CE PLUS - Nota 009394
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 17/11/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:04:39
Descrição da Nota: VINCULAÇÃO E LIQUIDAÇÃO DE FATURAS
Sintoma
Ao processar a vinculação esta gerando gerando erro por não localizar o documento da chave de
referência. No momento que o sistema vai desmembrar o valor do contrato, esta se perdendo porque a
chave de referencia esta sendo preenchida com o exercicio da fatura (2008) e o documento contabil
com o exercicio do contrato (2009).
Solução
Verifica a data do Contrato na /pws/zycbt074-dtcont para determinar a data do Contrato.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09394 Data: 17/11/2009 Hora: 09:21:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09394
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07760 - 00001 - 7.0 - 00007 - DA-LIQUIDAÇÃO E VINCULAÇÃO LIQ. AUTOMÁT - NORMAL/ARBITRAGEM/PERFO
08536 - 00002 - 7.0 - 00009 - DA-VINCULAÇÃO/LIQUIDAÇÃO-OTIMIZAÇÃO-BUSCA TAXAS/TIPO DOCTO. POR C
08692 - 00003 - 7.0 - 00010 - VINCULAÇÃO/LIQUIDAÇÃO - CHAVE REFERÊNCIA E DATA LANÇAMENTO CONTRA
----------------------------------------------------------------------------------------------------
VINCULAÇÃO E LIQUIDAÇÃO DE FATURAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO, LIQUIDAÇÃO DE FATURAS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
itab_zycbe033-belnr = itab_zycbt069-belnr.
itab_zycbe033-dtdocto = itab_zycbt005-dtbelnr.
endif.
else.
if itab_zycbt006-tpcontr(1) ca 'CE'
or ( /pws/zycbe001-tpcontr(1) eq 'D' and
/pws/zycbt089-f_cont_vinc eq 'F' ).
if /pws/zycbe001-belnr2 is initial
or ( /pws/zycbe001-belnr = /pws/zycbe001-belnr2 and
not /pws/zycbe001-belnr2 is initial ).
* >> Início da inclusão: FORM FILL_DATE6_F30_ACE
select single * from /pws/zycbt074
where nrseqc = /pws/zycbe001-nrseqc.
if sy-subrc = 0.
if not /pws/zycbt074-dtcont is initial.
v_data = /pws/zycbt074-dtcont.
else.
case /pws/zycbe001-fdtlanc.
when 'O'.
v_data = /pws/zycbe001-dtcontr.
when 'D'.
v_data = /pws/zycbe001-dtdesem.
when others.
v_data = /pws/zycbe001-dtcred.
endcase.
endif.
else.
* << Fim da inclusão
case /pws/zycbe001-fdtlanc.
when 'O'.
v_data = /pws/zycbe001-dtcontr.
when 'D'.
v_data = /pws/zycbe001-dtdesem.
when others.
v_data = /pws/zycbe001-dtcred.
endcase.
* >> Início da inclusão: FORM FILL_DATE6_F30_ACE
endif.
* << Fim da inclusão
itab_zycbe033-belnr = /pws/zycbe001-belnr.
itab_zycbe033-dtdocto = v_data.
else.
itab_zycbe033-belnr = /pws/zycbe001-belnr2.
* >> Início da inclusão: FORM FILL_DATE6_F30_ACE
select single * from /pws/zycbt074
where nrseqc = /pws/zycbe001-nrseqc.
if not /pws/zycbt074-dtcont is initial.
itab_zycbe033-dtdocto = /pws/zycbt074-dtcont.
else.
* << Fim da inclusão
itab_zycbe033-dtdocto = /pws/zycbe001-dtvincul.
if ( /pws/zycbe001-tpcontr(1) eq 'D' and
/pws/zycbt089-f_cont_vinc eq 'F' ) or
( /pws/zycbe001-tpcontr(1) eq 'C' and
wa_zycbt007-liq_cp eq 'X' ).
select * from /pws/zycbt005 into table itab_zycbt005_vinc
where nrseqc = /pws/zycbe001-nrseqc
and status = 'C'.
describe table itab_zycbt005_vinc lines v_linha.
while v_linha > 0.
...
...
and
itab_zycbt005_vinc-slpagar < itab_zycbt005_vinc-vlvinc
and
itab_zycbt005_vinc-dtvincul < /pws/zycbe001-dtvincul.
itab_zycbe033-dtdocto = itab_zycbt005_vinc-dtvincul.
exit.
else.
v_linha = v_linha - 1.
endif.
endwhile.
* >> Início da inclusão: FORM FILL_DATE6_F30_ACE
endif.
* << Fim da inclusão
endif.
endif.
else.
if itab_zycbt005-belnr is initial.
itab_zycbe033-belnr = itab_zycbt005-belnr_vinc.
else.
itab_zycbe033-belnr = itab_zycbt005-belnr.
endif.
itab_zycbe033-dtdocto = itab_zycbt005-dtbelnr.
if ( /pws/zycbe001-tpcontr(1) eq 'D' and
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
itab_zycbe033-dtdocto = itab_zycbt005-dtbelnr.
endif.
else.
if ( itab_zycbt006-tpcontr(1) ca 'CE'
or ( /pws/zycbe001-tpcontr(1) eq 'D' and
/pws/zycbt089-f_cont_vinc eq 'F' ) )
and /pws/zycbe001-desc_receb is initial.
if v_zycbe001-belnr2 is initial
or ( /pws/zycbe001-belnr = v_zycbe001-belnr2 and
not v_zycbe001-belnr2 is initial ).
* >> Início da inclusão: FORM DESMEMBRA_ACE
select single * from /pws/zycbt074
where nrseqc = v_zycbe001-nrseqc.
if sy-subrc = 0.
if not /pws/zycbt074-dtcont is initial.
v_data = /pws/zycbt074-dtcont.
else.
* << Fim da inclusão
case v_zycbe001-fdtlanc.
when 'O'.
v_data = v_zycbe001-dtcontr.
when 'D'.
v_data = v_zycbe001-dtdesem.
when others.
v_data = v_zycbe001-dtcred.
endcase.
* >> Início da inclusão: FORM DESMEMBRA_ACE
endif.
else.
case v_zycbe001-fdtlanc.
when 'O'.
v_data = v_zycbe001-dtcontr.
when 'D'.
v_data = v_zycbe001-dtdesem.
when others.
v_data = v_zycbe001-dtcred.
endcase.
endif.
* << Fim da inclusão
itab_zycbe033-belnr = v_zycbe001-belnr.
itab_zycbe033-dtdocto = v_data.
else.
itab_zycbe033-belnr = v_zycbe001-belnr2.
select single * from /pws/zycbt074
where nrseqc = v_zycbe001-nrseqc.
if not /pws/zycbt074-dtcont is initial.
itab_zycbe033-dtdocto = /pws/zycbt074-dtcont.
else.
itab_zycbe033-dtdocto = v_zycbe001-dtvincul.
...