CE PLUS - Nota 000570
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 02/01/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:53:20
Descrição da Nota: EXITS VNC003 VNC004 LIQ006 LIQ007 NOS PROGRAMAS LIQUIDAÇÃO E VINCULAÇÃO
Sintoma
Na liquidação de um pre-pagamento o programa está se perdendo após o lançamento de compensação (DA
criado para atender o Fluxo de Caixa). O programa está parando na compensação do cliente com a conta
de ACE. E quando há mais de uma fatura na liquidação o valor do lançamento de compensação não está
sendo aletrado.
Solução
Inserido os pontos para as exits VNC003, VNC004, LIQ006 e LIQ007 nos programas de vinculação e
liquidação, respectivamente.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00570 Data: 02/01/2006 Hora: 13:48:41
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00570
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00095
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
EXITS VNC003 VNC004 LIQ006 LIQ007 NOS PROGRAMAS LIQUIDAÇÃO E VINCULAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT VNC003 VNC004 LIQ006 LIQ007 LIQUIDAÇÃO VINCULAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004TOP
REPS /PWS/MZYCB004X01
REPS /PWS/MZYCB009F08
REPS /PWS/MZYCB009TOP
REPS /PWS/MZYCB009X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
v_prazo,
v_banco_d LIKE /pws/zycbt001-bconegoc,
v_belnr_cap LIKE /pws/zycbt006-belnr,
v_codaux LIKE /pws/zyglt316-codaux1,
v_tpcontr LIKE /pws/zycbt001-tpcontr,
* >> Início da exclusão: FORM BAIXA_CLIENTE_ACE
v_dp(1) TYPE c,
* << Fim da exclusão
v_contas_iguais(1) TYPE c,
v_contador TYPE n.
* >> Início da exclusão: FORM BAIXA_CLIENTE_ACE
DATA: BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA: END OF itab_partidas.
* << Fim da exclusão
PERFORM clear_date_batch.
CONCATENATE '003' /pws/zycbe005-tpcontr INTO v_codeven.
CLEAR: v_data,
v_codeven.
CONCATENATE '003' itab_zycbt006-tpcontr INTO v_codeven.
...
...
v_dp = 'X'.
ELSE.
CLEAR v_dp.
ENDIF.
IF itab_zycbt034 IS INITIAL.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
CLEAR itab_zyglt100.
IF itab_zyglt100[] IS INITIAL.
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.
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ006' BINARY SEARCH.
IF sy-subrc EQ 0 AND
NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
sy-subrc = v_retorno.
ELSE.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_W'
EXPORTING
v_modo = v_modo_bi
v_vinc_tot = v_vinc_tot
v_desc_rec = /pws/zycbe001-desc_receb
...
...
t_partidas = itab_partidas
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-30'
tabela = 'ZYCBT006'
cpochv = itab_zycbe033-cpochv
tpmsg = 'S'.
...
...
v_codaux LIKE /pws/zyglt316-codaux1,
v_codaux2 LIKE /pws/zyglt316-codaux2.
DATA: BEGIN OF itab_zycbt084 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt084.
DATA: END OF itab_zycbt084.
* >> Início da exclusão: FORM ESTORNO_PERIODO_FECHADO
DATA: BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA: END OF itab_partidas.
* << Fim da exclusão
DATA: BEGIN OF itab_bsad OCCURS 0,
bukrs LIKE bsad-bukrs,
kunnr LIKE bsad-kunnr,
umskz LIKE bsad-umskz,
gjahr LIKE bsad-gjahr,
...
...
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
CLEAR itab_zyglt100.
IF itab_zyglt100[] IS INITIAL.
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.
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ007' BINARY SEARCH.
IF sy-subrc EQ 0 AND
NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
sy-subrc = v_retorno.
ELSE.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_02G'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
...
...
t_partidas = itab_partidas
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-02'
tabela = 'ZYCBT006'
cpochv = itab_zycbe033-cpochv
tpmsg = 'S'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004TOP
...
f02(1) TYPE c,
END OF itab_doc_f02.
DATA: itab_zycbt012 LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,
itab_zycbt012_trans LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,
itab_zycbt013 LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,
* >> Início da exclusão:
itab_zycbt032 LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE,
itab_zycbt034 LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,
* << Fim da exclusão
itab_zycbt035 LIKE /pws/zycbe035 OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF itab_zycbe033a OCCURS 10.
INCLUDE STRUCTURE /pws/zycbe033.
DATA:
chave LIKE /pws/zycbe033-cpochv,
...
...
INCLUDE STRUCTURE /pws/zycbt006.
DATA: v_parid LIKE /pws/zycbt005-parid,
v_vlme_c LIKE /pws/zycbt005-vlvinc,
v_waers_c LIKE /pws/zycbt005-waers_c.
DATA: END OF itab_paridade.
* >> Início da exclusão:
DATA: BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA: END OF itab_partidas.
* << Fim da exclusão
DATA: itab_thead LIKE thead OCCURS 50 WITH HEADER LINE,
itab_tline LIKE tline OCCURS 50 WITH HEADER LINE.
DATA: BEGIN OF itab_t320 OCCURS 0,
campo(35) TYPE c,
flag,
...
...
v_nrparcf LIKE /pws/zycbe005-nrparcf,
v_gsberf LIKE /pws/zycbe005-gsberf,
v_dtvencto LIKE /pws/zycbe005-dtvencto,
v_taxa LIKE bkpf-kursf,
v_waersbrl LIKE /pws/zycbt007-waersb,
* >> Início da exclusão:
v_modo_bi,
* << Fim da exclusão
erro_bi VALUE ' ',
v_exit(1) TYPE c VALUE 'N',
v_gjahr LIKE bsid-gjahr,
v_saliq LIKE /pws/zycbt006-vlme,
v_some LIKE /pws/zycbt006-vlme,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004X01
...
data: chave like /pws/zycbe033-cpochv,
end of itab_zycbe033.
DATA: BEGIN OF itab_zyglt321 occurs 0.
include structure /pws/zyglt321.
DATA: END OF itab_zyglt321.
* >> Início da inclusão:
DATA: v_retorno TYPE sy-subrc,
v_modo_bi(1) TYPE c,
v_dp(1) TYPE c.
DATA: itab_zycbt032
TYPE STANDARD TABLE OF /pws/zycbt032 WITH HEADER LINE,
itab_zycbt034
TYPE STANDARD TABLE OF /pws/zycbt034 WITH HEADER LINE.
DATA BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA END OF itab_partidas.
* << Fim da inclusão
data begin of itab_doctos occurs 0.
include structure /pws/zycbt036.
data end of itab_doctos.
data itab_zycbt036 type standard table of /pws/zycbt036
with header line.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
v_kursf TYPE kursf,
v_ano TYPE gjahr,
v_subrc LIKE sy-subrc,
v_datum LIKE sy-datum,
v_koart LIKE itab_zycbe033-koart.
* >> Início da exclusão: FORM ESTORNO_PERIODO_FECHADO
DATA: BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA: END OF itab_partidas.
* << Fim da exclusão
DATA: BEGIN OF itab_bsad OCCURS 0,
bukrs LIKE bsad-bukrs,
kunnr LIKE bsad-kunnr,
umskz LIKE bsad-umskz,
gjahr LIKE bsad-gjahr,
...
...
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
CLEAR itab_zyglt100.
IF itab_zyglt100[] IS INITIAL.
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.
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'VNC004' BINARY SEARCH.
IF sy-subrc EQ 0 AND
NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
sy-subrc = v_retorno.
ELSE.
* << Fim da inclusão
IF /pws/zycbe001-tpcontr(1) = 'D' AND
wa_zycbt089-rateio_cl = 'X'.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_02J'
EXPORTING
v_modo = v_modo_bi
...
...
t_zycbt035 = itab_zycbt035
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
ENDIF.
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-02'
tabela = 'ZYCBT005'
cpochv = itab_zycbe033-cpochv
...
...
DATA: v_nrdias TYPE i,
v_prazo,
v_data LIKE sy-datum,
v_codaux1 LIKE /pws/zyglt316-codaux1,
v_res_liq_and TYPE c.
* >> Início da exclusão: FORM BAIXA_CLIENTE_ACE
DATA: BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA: END OF itab_partidas.
* << Fim da exclusão
PERFORM clear_date_batch.
CLEAR: v_data.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = 'ZYCBT005'.
CONCATENATE itab_zycbt005-nrseqc itab_zycbt005-tpdesp
...
...
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
CLEAR itab_zyglt100.
IF itab_zyglt100[] IS INITIAL.
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.
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'VNC003' BINARY SEARCH.
IF sy-subrc EQ 0 AND
NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
sy-subrc = v_retorno.
ELSE.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_W'
EXPORTING
v_modo = v_modo_bi
v_vinc_tot = 'X'
v_dp = 'X'
...
...
t_partidas = itab_partidas
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-30'
tabela = 'ZYCBT005'
cpochv = itab_zycbe033-cpochv
tpmsg = 'S'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009TOP
...
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycbe017-nrsd,
high LIKE /pws/zycbe017a-nrsd,
END OF itab_nrsd.
* >> Início da exclusão:
DATA: itab_zycbt032 LIKE /pws/zycbt032 OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão:
DATA:
* << Fim da inclusão
itab_zycbt032_aux LIKE /pws/zycbt032 OCCURS 0 WITH HEADER LINE,
itab_zycbt032b LIKE /pws/zycbt032 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycbt032a OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt032.
DATA budat LIKE /pws/zycbe033-budat.
DATA: END OF itab_zycbt032a.
* >> Início da exclusão:
DATA: itab_zycbe033 LIKE /pws/zycbe033 OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão:
DATA:
* << Fim da inclusão
itab_zycbe033_aux LIKE /pws/zycbe033 OCCURS 0 WITH HEADER LINE,
itab_zycbe033a LIKE /pws/zycbe033 OCCURS 0 WITH HEADER LINE,
itab_zycbe033b LIKE /pws/zycbe033 OCCURS 0 WITH HEADER LINE.
* >> Início da exclusão:
DATA: itab_zycbt034 LIKE /pws/zycbt034 OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão:
DATA:
* << Fim da inclusão
itab_zycbt034_aux LIKE /pws/zycbt034 OCCURS 0 WITH HEADER LINE.
* >> Início da exclusão:
DATA: itab_zycbt036 LIKE /pws/zycbt036 OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
DATA: itab_zycbt036_dp LIKE /pws/zycbt036 OCCURS 0 WITH HEADER LINE.
...
...
v_dtbl VALUE space,
v_inco1 VALUE space,
v_tpcontrdescr LIKE /pws/zycbt016-txtdesc,
v_negdescr LIKE lfa1-name1,
v_findescr LIKE lfa1-name1,
* >> Início da exclusão:
v_modo_bi,
* << Fim da exclusão
v_msg(100) TYPE c,
v_tstwaers(1) TYPE c,
v_msg1(100) TYPE c,
v_msg2(100) TYPE c,
v_encontrou(1) TYPE c,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009X01
...
INCLUDE STRUCTURE /pws/zycbt051.
DATA: mark(1),
END OF itab_zycbt051.
DATA: wa_zycbt051 LIKE /pws/zycbt051,
wa_zycbt005 LIKE itab_zycbt005.
* >> Início da inclusão:
DATA: v_retorno TYPE sy-subrc,
v_modo_bi(1) TYPE c.
DATA BEGIN OF itab_zycbe033 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbe033.
DATA: chave TYPE /pws/zycbe033-cpochv,
END OF itab_zycbe033.
DATA: itab_zycbt032
TYPE STANDARD TABLE OF /pws/zycbt032 WITH HEADER LINE,
itab_zycbt034
TYPE STANDARD TABLE OF /pws/zycbt034 WITH HEADER LINE,
itab_zycbt036
TYPE STANDARD TABLE OF /pws/zycbt036 WITH HEADER LINE.
DATA BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA END OF itab_partidas.
* << Fim da inclusão
DATA: ok_code LIKE sy-ucomm.
DATA: BEGIN OF itab_zyglt321 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt321.
DATA: END OF itab_zyglt321.
DATA: BEGIN OF itab_doctos OCCURS 0.
...