CE PLUS - Nota 004249
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:53
Descrição da Nota: EXIT CONTABILIZAÇÃO DA ASSOCIAÇÃO ASS004 E ASS005
Sintoma
EXIT CONTABILIZAÇÃO DA ASSOCIAÇÃO ASS004 e ASS005
Solução
EXIT CONTABILIZAÇÃO DA ASSOCIAÇÃO ASS004 e ASS005
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04249 Data: 24/07/2007 Hora: 10:13:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04249
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 ASS004 E 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 i016(/pws/zycmm) WITH itab_zycbt034-descricao.
v_ok = ' '.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
* >> Início da exclusão: FORM F51_FINANC_MOEDAS_IGUAIS
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS004'.
* << Fim da exclusão
* >> Início da inclusão: FORM F51_FINANC_MOEDAS_IGUAIS
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS005'.
* << Fim da inclusão
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_51O'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
...
...
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 exclusão: FORM F51_FINANC_MOEDAS_DIF
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS004'.
* << Fim da exclusão
* >> Início da inclusão: FORM F51_FINANC_MOEDAS_DIF
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS005'.
* << Fim da inclusão
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_51O'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
...
...
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 exclusão: FORM F51_PGFAT_MOEDAS_IGUAIS
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS004'.
* << Fim da exclusão
* >> Início da inclusão: FORM F51_PGFAT_MOEDAS_IGUAIS
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS005'.
* << Fim da inclusão
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_51O'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
...
...
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 exclusão: FORM F51_PGFAT_MOEDAS_DIF
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS004'.
* << Fim da exclusão
* >> Início da inclusão: FORM F51_PGFAT_MOEDAS_DIF
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASS005'.
* << Fim da inclusão
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_51O'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
...
...
...
...
...
...