CE PLUS - Nota 004453
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 17/08/2007 00:00:00
Data/Hora Última Alteração: 08/09/2010 16:38:26
Descrição da Nota: FINANCEIRO CRIAÇÃO DE PONTO DE EXIT PBE003
Sintoma
FINANCEIRO CRIAÇÃO DE PONTO DE EXIT PBE003
Solução
FINANCEIRO CRIAÇÃO DE PONTO DE EXIT PBE003
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04453 Data: 17/08/2007 Hora: 16:37:41
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04453
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00008
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
FINANCEIRO CRIAÇÃO DE PONTO DE EXIT PBE003
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT, FINANCEIRO, BOLETO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBI102
REPS /PWS/ZYCBR102
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI102
...
frggr LIKE /pws/zycbt118-frggr,
vliss like /pws/zycat025-vlimpme,
vlpis like /pws/zycat025-vlimpme,
vlcofins like /pws/zycat025-vlimpme,
vliof like /pws/zycat025-vlimpme,
dtpagtoir like /pws/zycbt002-dtpagtoir,
dtemb LIKE /pws/zycbt119-dtemb,
END OF itab_selreg.
DATA: BEGIN OF COMMON part c.
DATA: itab_selreg_aux LIKE itab_selreg OCCURS 100 WITH HEADER LINE.
* >> Início da exclusão:
DATA: v_gera_boleto type c.
* << Fim da exclusão
* >> Início da inclusão:
DATA: v_gera_boleto type c,
v_codretorno TYPE c.
* << Fim da inclusão
DATA: END OF COMMON part.
DATA:
itab_selreg_aux2 LIKE itab_selreg OCCURS 100 WITH HEADER LINE,
itab_selreg_aux3 LIKE itab_selreg OCCURS 100 WITH HEADER LINE,
wa_line LIKE itab_selreg_aux,
itab_boleto LIKE /pws/zycbt031 OCCURS 100 WITH HEADER
LINE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR102
...
ENDIF.
ELSE.
PERFORM imprime_boleto.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM.
FORM imprime_boleto.
* >> Início da inclusão: FORM IMPRIME_BOLETO
MOVE sy-repid TO v_rep.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = v_cdmodu
i_func = v_rep
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 = 'PBE003'.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
IF v_codretorno NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
IF v_codpagto EQ 'X'.
MESSAGE i015 WITH text-190.
EXIT.
ENDIF.
SELECT MAX( nrseq ) INTO v_nrseq
FROM /pws/zycbt031.
v_count = v_nrseq + 1.
CLEAR: /pws/zycbt031, /pws/zycbt048.
MOVE:
v_count TO /pws/zycbt031-nrseq,
...
...