CE PLUS - Nota 007830
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Pagamento de Juros
Data/Hora da Publicação: 23/12/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:09:58
Descrição da Nota: PAGAMENTO DE JUROS - PONTO DE EXIT PGJ006 - VERIFICAÇÃO EXIT ATIVA
Sintoma
Criar ponto de exit que permita não consistir a mensagem de que o valor MI tem que ser igual.
Ajustar outros pontos que exit que não verificam se a mesma esta ativa na /pws/zyglt100.
Solução
Criar ponto de exit PGJ006 que permite ignorar a mensagem de erro dos valores MI. Incluir
verificação do campo ZEXIT_ATIVA em pontos já existentes.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07830 Data: 23/12/2008 Hora: 13:17:53
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07830
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00078
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02197 - 00001 - 6.0 - 00025 - NO PAGAMENTO DE JUROS, TRATAMENTO INCORRETO NO FATOR DE CONVERSÃO
03631 - 00002 - 7.0 - 00001 - CRIAÇÃO DE EXITS
07819 - 00003 - 7.0 - 00008 - FLEXIBILIZAR AS CONTAS DE BANCO NO PROGRAMA DE PAGAMENTO DE JUROS
----------------------------------------------------------------------------------------------------
PAGAMENTO DE JUROS - PONTO DE EXIT PGJ006 - VERIFICAÇÃO EXIT ATIVA
----------------------------------------------------------------------------------------------------
Palavras Chave:
PAGAMENTO DE JUROS PONTO DE EXIT PGJ006 VERIFICAÇÃO EXIT ATIVA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB012F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012F01
...
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
ENDIF.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt100 WITH KEY zexit = 'PGJ003'.
* >> Início da exclusão: FORM GRAVA_TABELAS
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
IF sy-subrc EQ 0
AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
* << Fim da inclusão
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ENDIF.
IF v_lib = 'X'.
/pws/zycbe043-frgzu = '2'.
/pws/zycbe043-bname = sy-uname.
ENDIF.
IF itab_zycbt044 IS INITIAL.
SELECT * FROM /pws/zycbt044
...
...
v_sai = 'X'.
EXIT.
ENDIF.
ENDLOOP.
IF v_sai EQ 'X'.
MESSAGE i015 WITH text-035 text-038.
EXIT.
ENDIF.
PERFORM seleciona_dados_despesa.
PERFORM calcula_total.
* >> Início da inclusão: FORM GRAVA_TABELAS
IF itab_zyglt100[] IS INITIAL.
MOVE sy-repid TO v_repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'E'
i_func = v_repid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'PGJ006'.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
* << Fim da inclusão
IF v_tot_vlmi NE /pws/zycbe043-vlmi2.
v_fim = v_tot_vlmi - /pws/zycbe043-vlmi2 .
replace '-' with ' ' into v_fim.
MESSAGE i061 WITH text-122 text-123 text-124 v_fim.
EXIT.
ENDIF.
* >> Início da inclusão: FORM GRAVA_TABELAS
ENDIF.
* << Fim da inclusão
/pws/zycbe043-CONTA_CONTAB = v_contrazao.
...
...
i_func = v_repid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt100 WITH KEY zexit = v_exit.
* >> Início da exclusão: FORM VERIFICA_PARCELAS
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PARCELAS
IF sy-subrc EQ 0
AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
* << Fim da inclusão
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
v_contabiliza = 'X'.
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_periodo.
DATA: v_monat LIKE t001b-frpe1,
v_gjahr LIKE t001b-frye1,
...