CE PLUS - Nota 002949
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 23/01/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 13:20:43
Descrição da Nota: PROCESSAR BOLETO INCLUSÃO EXIT PBE002 CMP007
Sintoma
Processar Boleto Inclusão EXIT PBE002, CMP007
Solução
Processar Boleto Inclusão EXIT PBE002, CMP007
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02949 Data: 23/01/2007 Hora: 14:38:20
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02949
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00149
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PROCESSAR BOLETO INCLUSÃO EXIT PBE002 CMP007
----------------------------------------------------------------------------------------------------
Palavras Chave:
PROCESSAR BOLETO INCLUSÃO EXIT PBE002 CMP007
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR102
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
e_programa = v_programa.
ENDIF.
SELECT SINGLE * FROM /pws/zycit006 INTO /pws/zycit006
WHERE nrseq EQ wa_line-docto
AND nrseq_pgfat EQ v_nrpgfat.
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycit132 INTO /pws/zycit132
WHERE nrseq EQ wa_line-docto
AND nrseq_pgfat EQ v_nrpgfat.
ENDIF.
* >> Início da inclusão: FORM IMPRIME_BOLETO
DATA: v_repid type sy-repid.
move sy-repid to v_repid.
if itab_zycbt031-mdcorresp(1) = 'C'.
v_cod = 'F'.
else.
v_cod = itab_zycbt031-mdcorresp(1).
endif.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = v_cod
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 ='CMP007'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ENDIF.
* << Fim da inclusão
IF v_programa IS INITIAL.
IF itab_zycbt031-mdcorresp EQ 'IP' AND sy-subrc EQ 0.
SUBMIT /pws/zycbr107 AND RETURN.
ELSE.
SUBMIT /pws/zycbr105 AND RETURN.
ENDIF.
ELSE.
SUBMIT (v_programa) AND RETURN.
ENDIF.
CLEAR: ok_code, w_ok.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110TOP
...
v_mode TYPE c ,
v_update TYPE c ,
v_msgno LIKE t100-msgnr,
v_nrseq1 LIKE /pws/zycie008-nrseq,
v_indice(02) TYPE n ,
v_indcampo(40) TYPE c ,
v_vlmi_tot type /pws/zycbe031-vlmi,
* >> Início da exclusão:
v_vlmiir_tot type /pws/zycbe031-vlmiir.
* << Fim da exclusão
* >> Início da inclusão:
v_vlmiir_tot type /pws/zycbe031-vlmiir,
v_cod type c.
* << Fim da inclusão
DATA: v_codparc(03) TYPE c.
DATA: v_dfact LIKE tcurr-ffact,
v_pfact LIKE tcurr-ffact,
v_ctmoeda LIKE tcurr-kurst.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR102
...
SELECT SINGLE * FROM /pws/zycit132 INTO /pws/zycit132
WHERE nrseq EQ wa_line-docto
AND nrseq_pgfat EQ v_nrpgfat.
ENDIF.
IF NOT sy-binpt IS INITIAL.
IMPORT itab_boleto[] FROM MEMORY ID 'AGIL'.
itab_boleto-nrseq = /pws/zycbt031-nrseq.
APPEND itab_boleto.
EXPORT itab_boleto[] TO MEMORY ID 'AGIL'.
ENDIF.
* >> Início da inclusão: FORM IMPRIME_BOLETO
MOVE sy-repid TO v_rep.
if itab_zycbt031-mdcorresp(1) = 'C'.
v_codmod = 'F'.
else.
v_codmod = itab_zycbt031-mdcorresp(1).
endif.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = v_codmod
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 ='PBE002'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ENDIF.
* << Fim da inclusão
IF v_programa IS INITIAL.
IF itab_selreg_aux-fmd EQ 'IP' AND sy-subrc EQ 0.
SUBMIT /pws/zycbr107 AND RETURN.
ELSE.
SUBMIT /pws/zycbr105 AND RETURN.
ENDIF.
ELSE.
SUBMIT (v_programa) AND RETURN.
ENDIF.
ELSE.
...