CE PLUS - Nota 004251
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Associação
Data/Hora da Publicação: 24/07/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 09:50:38
Descrição da Nota: EXIT CONTABILIZAÇÃO DA ASSOCIAÇÃO ASS005
Sintoma
EXIT CONTABILIZAÇÃO DA ASSOCIAÇÃO ASS005
Solução
EXIT CONTABILIZAÇÃO DA ASSOCIAÇÃO ASS005
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04251 Data: 24/07/2007 Hora: 10:24:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04251
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00005
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01988 - 00001 - 6.0 - 00024 - ASSOCIAÇÃO DE FATURAS - DA RATEIO POR ITEM DOC. COMPRA
04038 - 00002 - 7.0 - 00002 - ASSOCIAÇÃO DE FATURAS - PONTOS DE EXIT ASS004 E ASS005
----------------------------------------------------------------------------------------------------
EXIT CONTABILIZAÇÃO DA ASSOCIAÇÃO ASS005
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT PAGAMENTO ANTECIPADO, FINANCIAMENTO, E FATURA CÂMBIO COM FATURA DE
IMPORTAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCMGF2F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCMGF2F01
...
EXIT.
ENDIF.
ENDIF.
ENDIF.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i254(/pws/zycmm) WITH itab_zycbt034-descricao
v_codeven.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_FINANCIAMENTO
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS004'.
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_51N'
EXPORTING
v_modo = v_modo_bi
v_empresa = /pws/zycbe112-bukrs
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt036 = itab_zycbt036
t_zycbt032 = itab_zycbt032
t_zycbe035 = itab_zycbe035
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_FINANCIAMENTO
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-51'
tabela = '/PWS/ZYCBT112'
cpochv = /pws/zycbe112-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
MESSAGE i015(/pws/zycmm) WITH itab_zycbt032-msg.
itab_zycbt131-belnr_rfin = itab_zycbt032-belnr.
MODIFY itab_zycbt131 TRANSPORTING belnr_rfin
WHERE belnr EQ itab_zycbt108-belnr
...
...
ENDIF.
ENDIF.
ENDIF.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i254(/pws/zycmm) WITH itab_zycbt034-descricao
v_codeven.
v_ok = ' '.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_FATURA
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS004'.
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_51N'
EXPORTING
v_modo = v_modo_bi
v_empresa = /pws/zycbt119-bukrs
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt036 = itab_zycbt036
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_FATURA
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-51'
tabela = '/PWS/ZYCBT108'
cpochv = /pws/zycbt119-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
MESSAGE i015(/pws/zycmm) WITH itab_zycbt032-msg.
itab_zycbt131-belnr_rfat = itab_zycbt032-belnr.
MODIFY itab_zycbt131 TRANSPORTING belnr_rfat
WHERE belnr EQ itab_zycbt108-belnr
...
...
EXIT.
ENDIF.
ENDIF.
ENDIF.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i254(/pws/zycmm) WITH itab_zycbt034-descricao
v_codeven.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
* >> Início da inclusão: FORM RECLASSIFICA_FINANCIAMENTO
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS004'.
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_51N'
EXPORTING
v_modo = v_modo_bi
v_empresa = /pws/zycbe112-bukrs
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt036 = itab_zycbt036
t_zycbt032 = itab_zycbt032
t_zycbe035 = itab_zycbe035
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM RECLASSIFICA_FINANCIAMENTO
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-51'
tabela = '/PWS/ZYCBT112'
cpochv = /pws/zycbe112-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
MESSAGE i015(/pws/zycmm) WITH itab_zycbt032-msg.
CLEAR itab_zycbt131-belnr_rfin.
MODIFY itab_zycbt131 TRANSPORTING belnr_rfin
WHERE belnr EQ itab_zycbt131-belnr
...
...
EXIT.
ENDIF.
ENDIF.
ENDIF.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i016(/pws/zycmm) WITH itab_zycbt034-descricao.
v_ok = ' '.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
* >> Início da inclusão: FORM F51_FINANC_MOEDAS_IGUAIS
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS005'.
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_51O'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM F51_FINANC_MOEDAS_IGUAIS
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-51'
tabela = '/PWS/ZYCBT108'
cpochv = v_chave
tpmsg = 'S'.
IF sy-subrc = 0.
v_ok = 'X'.
MESSAGE i015(/pws/zycmm) WITH itab_zycbt032-msg.
itab_zycbt131-belnr_as = itab_zycbt032-belnr.
MODIFY itab_zycbt131 TRANSPORTING belnr_as
...
...
EXIT.
ENDIF.
ENDIF.
ENDIF.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i016(/pws/zycmm) WITH itab_zycbt034-descricao.
v_ok = ' '.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
* >> Início da inclusão: FORM F51_FINANC_MOEDAS_DIF
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS005'.
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_51O'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM F51_FINANC_MOEDAS_DIF
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-51'
tabela = '/PWS/ZYCBT108'
cpochv = v_chave
tpmsg = 'S'.
IF sy-subrc = 0.
v_ok = 'X'.
MESSAGE i015(/pws/zycmm) WITH itab_zycbt032-msg.
itab_zycbt131-belnr_as = itab_zycbt032-belnr.
MODIFY itab_zycbt131 TRANSPORTING belnr_as
...
...
EXIT.
ENDIF.
ENDIF.
ENDIF.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i254(/pws/zycmm) WITH itab_zycbt034-descricao
v_codeven.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
* >> Início da inclusão: FORM RECLASSIFICA_FATURA
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS004'.
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_51N'
EXPORTING
v_modo = v_modo_bi
v_empresa = /pws/zycbt119-bukrs
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt036 = itab_zycbt036
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM RECLASSIFICA_FATURA
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-51'
tabela = '/PWS/ZYCBT108'
cpochv = /pws/zycbt119-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
MESSAGE i015(/pws/zycmm) WITH itab_zycbt032-msg.
CLEAR itab_zycbt131-belnr_rfat.
MODIFY itab_zycbt131 TRANSPORTING belnr_rfat
WHERE belnr EQ itab_zycbt108-belnr
...
...
EXIT.
ENDIF.
ENDIF.
ENDIF.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i254(/pws/zycmm) WITH itab_zycbt034-descricao
v_codeven.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PGFAT
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS004'.
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_51N'
EXPORTING
v_modo = v_modo_bi
v_empresa = /pws/zycbe119-bukrs
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt036 = itab_zycbt036
t_zycbt032 = itab_zycbt032
t_zycbe035 = itab_zycbe035
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PGFAT
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-51'
tabela = '/PWS/ZYCBT112'
cpochv = /pws/zycbe119-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
MESSAGE i015(/pws/zycmm) WITH itab_zycbt032-msg.
itab_zycbt131-belnr_rfin = itab_zycbt032-belnr.
MODIFY itab_zycbt131 TRANSPORTING belnr_rfin
WHERE belnr EQ itab_zycbt108-belnr
...
...
EXIT.
ENDIF.
ENDIF.
ENDIF.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i254(/pws/zycmm) WITH itab_zycbt034-descricao
v_codeven.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
* >> Início da inclusão: FORM RECLASSIFICA_PGTOFAT
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS004'.
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_51N'
EXPORTING
v_modo = v_modo_bi
v_empresa = /pws/zycbe119-bukrs
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt036 = itab_zycbt036
t_zycbt032 = itab_zycbt032
t_zycbe035 = itab_zycbe035
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM RECLASSIFICA_PGTOFAT
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-51'
tabela = '/PWS/ZYCBT112'
cpochv = /pws/zycbe119-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
MESSAGE i015(/pws/zycmm) WITH itab_zycbt032-msg.
CLEAR itab_zycbt131-belnr_rfin.
MODIFY itab_zycbt131 TRANSPORTING belnr_rfin
WHERE belnr EQ itab_zycbt131-belnr
...
...
EXIT.
ENDIF.
ENDIF.
ENDIF.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i016(/pws/zycmm) WITH itab_zycbt034-descricao.
v_ok = ' '.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
* >> Início da inclusão: FORM F51_PGFAT_MOEDAS_IGUAIS
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS005'.
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_51O'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM F51_PGFAT_MOEDAS_IGUAIS
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-51'
tabela = '/PWS/ZYCBT108'
cpochv = v_chave
tpmsg = 'S'.
IF sy-subrc = 0.
v_ok = 'X'.
MESSAGE i015(/pws/zycmm) WITH itab_zycbt032-msg.
itab_zycbt131-belnr_as = itab_zycbt032-belnr.
MODIFY itab_zycbt131 TRANSPORTING belnr_as
...
...
EXIT.
ENDIF.
ENDIF.
ENDIF.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i016(/pws/zycmm) WITH itab_zycbt034-descricao.
v_ok = ' '.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
* >> Início da inclusão: FORM F51_PGFAT_MOEDAS_DIF
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS005'.
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_51O'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM F51_PGFAT_MOEDAS_DIF
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-51'
tabela = '/PWS/ZYCBT108'
cpochv = v_chave
tpmsg = 'S'.
IF sy-subrc = 0.
v_ok = 'X'.
MESSAGE i015(/pws/zycmm) WITH itab_zycbt032-msg.
itab_zycbt131-belnr_as = itab_zycbt032-belnr.
MODIFY itab_zycbt131 TRANSPORTING belnr_as
...
...