CE PLUS - Nota 004199
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 18/07/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 09:50:46
Descrição da Nota: COMPLEMENTO DO BOLETO - PONTO DE EXIT CBI005
Sintoma
Icluir ponto de exit para permitir gerar outra F-43 de pagamento antecipado no complemento do
boleto.
Solução
Ponto de exit CBI005
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04199 Data: 18/07/2007 Hora: 10:40:39
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04199
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00004
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02949 - 00001 - 6.0 - 00026 - PROCESSAR BOLETO INCLUSÃO EXIT PBE002 CMP007
03299 - 00002 - 6.0 - 00026 - COMPLEMENTO DO BOLETO - INSERIDA EXTI CBI003
03321 - 00003 - 6.0 - 00026 - EXIT COMPLEMENTO DO BOLETO - PAGAMENTO DE FATURA - F-43
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - PONTO DE EXIT CBI005
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO - PONTO DE EXIT CBI005
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA110F01
REPS /PWS/MZYCM110F01
REPS /PWS/MZYGL110F01
REPS /PWS/MZYGL110TOP
REPS /PWS/MZYGL110X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
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 CONTABILIZA_DOCTO_CP
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
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.
APPEND itab_zycbe033.
PERFORM lancamento_multiplo USING p_tpimp
p_recontabiliza
p_recuperar.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
...
...
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 EXECUTA_APROVACAO_CP
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_APROVACAO_CP
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.
APPEND itab_zycbe033.
v_belnr = p_belnr.
CALL FUNCTION '/PWS/ZYGL_TRANSACAO_FBV0_A'
EXPORTING
v_modo = v_modo_bi
TABLES
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
APPEND itab_zycbe035.
ENDFORM.
FORM call_function_f43a.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
IF v_modo_bi IS INITIAL.
v_modo_bi = 'N'.
ENDIF.
* >> Início da inclusão: FORM CALL_FUNCTION_F43A
MOVE sy-repid TO v_repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
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.
READ TABLE itab_zyglt100 WITH KEY zexit = 'CBI005'.
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
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_43A'
EXPORTING
v_modo = v_modo_bi
v_agums = v_agums
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_contas = itab_zycbe035
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* >> Início da inclusão: FORM CALL_FUNCTION_F43A
ENDIF.
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-43'
tabela = '/PWS/ZYCBT117'
cpochv = /pws/zycbe031-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
MESSAGE i223 WITH itab_zycbt032-belnr.
/pws/zycbe031-belnr_p = itab_zycbt032-belnr.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
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'.
* >> Início da exclusão: FORM IMPRIME_BOLETO
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_BOLETO
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_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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110TOP
...
v_programa LIKE /pws/zyglt213-report,
v_mdcorresp LIKE /pws/zycbt031-mdcorresp,
v_modulo TYPE c,
v_display,
norma LIKE /pws/zyglt214-norma,
v_cols TYPE cxtab_column,
mark,
v_acm LIKE /pws/zycbe031-vlme,
v_acm2 LIKE /pws/zycbt031-vlme,
v_dif LIKE /pws/zycbe031-vlme,
* >> Início da exclusão:
v_agums LIKE wa_zycbt011-agums,
* << Fim da exclusão
v_bancario,
v_codmodulo LIKE /pws/zyglt209-codmod,
v_tpboleto LIKE /pws/zyglt213-tpboleto,
txtcodfrmentr(25) TYPE c,
txtcodmodtra(25) TYPE c,
txtmodalidade(12) TYPE c,
entrega(25) TYPE c,
transacao(25) TYPE c,
modalidade(25) TYPE c,
matchcode(8),
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110X01
...
DATA: BEGIN OF itab_zycmt020 OCCURS 0.
INCLUDE STRUCTURE /pws/zycmt020.
DATA: END OF itab_zycmt020.
DATA: wa_zycbt007 TYPE /pws/zycbt007,
v_modo_bi TYPE /pws/zycbt039-modo,
v_exec_f51(01) TYPE c.
DATA: ok_code LIKE sy-ucomm,
v_subrc TYPE sy-subrc,
w_ok LIKE ok_code,
v_tcode(20) TYPE c,
* >> Início da exclusão:
v_cbi002(1) TYPE c.
* << Fim da exclusão
* >> Início da inclusão:
v_cbi002(1) TYPE c,
v_agums type /pws/zycbt011-agums.
* << Fim da inclusão
DATA: END OF COMMON PART.