CE PLUS - Nota 003920
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação em Andamento
Data/Hora da Publicação: 14/06/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:07:46
Descrição da Nota: LIQUIDAÇÃO EM ANDAMENTO - EXIT LIQ001 E LIQ002
Sintoma
Ajustar ponto de exit LIQ001 e LIQ002, pois não estamos conseguindo alterar a conta contábil.
Solução
Alterar posicionamento da chamada dos pontos de exit LIQ001 e LIQ002, antes da verificação da
itab_zycbt034.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03920 Data: 14/06/2007 Hora: 14:20:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03920
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03487 - 00001 - 7.0 - 00001 - EXIT¿S LIQ001 E LIQ002.
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO EM ANDAMENTO - EXIT LIQ001 E LIQ002
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO EM ANDAMENTO - EXIT LIQ001 E LIQ002
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB031F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031F01
...
AND kunnr = itab_zycbt209-kunnr
AND bukrs = itab_zycbt209-bukrs.
ELSE.
itab_zycbt036-dtdocto = itab_zycbt209-dtcredext.
ENDIF.
APPEND itab_zycbt036.
ENDLOOP.
IF sy-subrc EQ 0.
APPEND itab_zycbe033.
ENDIF.
* >> Início da exclusão: FORM PROC_INCLUSAO
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCBM'
msgty = 'I'
msgv1 = itab_zycbt034-descricao
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
* << Fim da exclusão
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'E'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM PROC_INCLUSAO
CLEAR itab_zyglt100.
* << Fim da inclusão
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ001' BINARY SEARCH.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
* >> Início da exclusão: FORM PROC_INCLUSAO
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM PROC_INCLUSAO
ENDIF.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCBM'
msgty = 'I'
msgv1 = itab_zycbt034-descricao
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
IF itab_zyglt100-zexit_ativa IS INITIAL.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_V'
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
...
...
APPEND itab_zycbt036.
itab_zycbe033-belnr = itab_zycbt030-v_belnr.
PERFORM verifica_prorrogacao.
IF itab_zycbe033-wrbtr GT 0.
APPEND itab_zycbe033.
ENDIF.
CLEAR v_vinc_tot.
IF itab_zycbt209-vlme = itab_zycbt209-vlsltrans.
v_vinc_tot = 'X'.
ENDIF.
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCBM'
msgty = 'I'
msgv1 = itab_zycbt034-descricao
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
* << Fim da exclusão
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'E'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM PROC_INCLUSAO
CLEAR itab_zyglt100.
* << Fim da inclusão
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ002' BINARY SEARCH.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
ENDIF.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCBM'
msgty = 'I'
msgv1 = itab_zycbt034-descricao
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
IF itab_zyglt100-zexit_ativa IS INITIAL.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_P'
EXPORTING
v_modo = v_modo_bi
v_vinc_tot = v_vinc_tot
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
EXCEPTIONS
...