CE PLUS - Nota 003487
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação em Andamento
Data/Hora da Publicação: 18/04/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 15:16:28
Descrição da Nota: EXIT LIQ001 E LIQ002.
Sintoma
EXIT¿S LIQ001 e LIQ002.
Solução
EXIT¿S LIQ001 e LIQ002.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03487 Data: 18/04/2007 Hora: 10:22:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03487
Categoria : Consultoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00162
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
EXIT¿S LIQ001 E LIQ002.
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT¿S LIQ001 E LIQ002.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB031F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031F01
...
WHERE belnr = itab_zycbt030-belnr_d
AND gjahr = v_gjahr
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.
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.
* >> Início da inclusão: FORM PROC_INCLUSAO
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.
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).
ELSE.
* << 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
periodo_fechado = 2
OTHERS = 3.
* >> Início da inclusão: FORM PROC_INCLUSAO
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-30'
tabela = '/PWS/ZYCBT209'
cpochv = itab_zycbe033-cpochv
tpmsg = 'S'.
IF sy-subrc EQ 0.
itab_zycbt209-belnr = itab_zycbt032-belnr.
LOOP AT itab_zycbt030
WHERE nrinvoic = itab_zycbt209-nrinvoic AND
gsberf = itab_zycbt209-gsberf AND
...
...
SEPARATED BY space.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-residuo = itab_zycbe033-wrbtr.
itab_zycbt036-zuonr = itab_zycbe033-d_zuonr.
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-saldo.
v_vinc_tot = 'X'.
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.
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
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.
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).
ELSE.
* << 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
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-30'
tabela = '/PWS/ZYCBT209'
cpochv = itab_zycbe033-cpochv
tpmsg = 'S'.
IF sy-subrc EQ 0.
itab_zycbt030-belnr_d = itab_zycbt032-belnr.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = itab_zycbt032-msgid
...