CE PLUS - Nota 011204
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 03/06/2011 00:00:00
Data/Hora Última Alteração: 03/06/2011 15:14:20
Descrição da Nota: VINCULAÇÃO - ESTORNO DE FATURAS E CONTRATO DE CAPTAÇÃO PERIODO FECHADO
Sintoma
Ao estornar a ultima vinculação de um contrato deverá ser gravado a data do estorno na tabela
zycbt001-DTVINCUL para que não ocorra problema no estorno do contrato de captação quando o período
estiver fechado. Enquanto não estiver estornada todas as faturas vinculadas o sistema não permite
estornar o contrato por isso a verificação deverá ocorrer somente no último estorno.
Solução
Quando ocorrer estorno em período fechado, o sistema irá atualizar corretamente o campo DTVINCUL da
tabela /pws/zycbt001, permitindo assim o estorno correto da captação.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11204 Data: 03/06/2011 Hora: 14:30:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11204
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00073
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03752 - 00001 - 7.0 - 00001 - VINCULAÇÃO - ESTORNO AUTOMATICO POR ERRO NA CONTABILIZAÇÃO
05930 - 00002 - 7.0 - 00004 - VINCULAÇÃO LIQUIDAÇÃO - ESTORNO EM PERÍODO FECHADO
06166 - 00003 - 7.0 - 00004 - VINCULAÇÃO - GRAVAR DATA VINCULAÇÃO NA TABELA /PWS/ZYCBT001 - DTV
08269 - 00004 - 7.0 - 00009 - TRATAMENTO DE PROCESSOS DE EXPORTAÇÃO EM BRL-CAPTAÇAO,VINCULAÇAO
08536 - 00005 - 7.0 - 00009 - DA-VINCULAÇÃO/LIQUIDAÇÃO-OTIMIZAÇÃO-BUSCA TAXAS/TIPO DOCTO. POR C
09062 - 00006 - 8.0 - 00001 - DESVINCULAÇÃO LIQUIDAÇÃO ATUALIZAÇÃO INCORRETA 001-DTVINCUL E 005
----------------------------------------------------------------------------------------------------
VINCULAÇÃO - ESTORNO DE FATURAS E CONTRATO DE CAPTAÇÃO PERIODO FECHADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO, FATURAS, EXPORTAÇÃO, ESTORNO EM PERÍODO FECHADO
ESTORNO CONTRATO CAPTAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F01
REPS /PWS/MZYCB009F08
REPS /PWS/MZYCB009F10
REPS /PWS/MZYCB009X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F01
...
itab_zycbt077-status = 'E'.
itab_zycbt077-tcode = itab_zycbt032-tcode.
concatenate text-198 /pws/zycbe001-tpcontr into
itab_zycbt077-codeven.
itab_zycbt077-codmod = 'E'.
itab_zycbt077-nrseqc = /pws/zycbe001-nrseqc.
itab_zycbt077-gsberf = itab_vinc-gsberf.
itab_zycbt077-dtvincul = itab_vinc-dtvincul.
itab_zycbt077-nrinvoic = itab_vinc-nrinvoic.
itab_zycbt077-nrparcf = itab_vinc-nrparcf.
* >> Início da inclusão: FORM FILL_DATE1_F02
clear v_aux_dtvincul.
v_aux_dtvincul = itab_zycbe033-budat.
* << Fim da inclusão
delete from /pws/zycbt084
where nrseqc = itab_vinc-nrseqc and
nrparc = itab_vinc-nrparc and
dtincl = itab_vinc-dtincl and
nrinvoic = itab_vinc-nrinvoic and
nrparcf = itab_vinc-nrparcf and
gsberf = itab_vinc-gsberf and
dtvincul = itab_vinc-dtvincul and
tdesmemb = 'C'.
commit work.
...
...
itab_zycbt077-status = 'E'.
itab_zycbt077-tcode = itab_zycbt032-tcode.
concatenate text-198 /pws/zycbe001-tpcontr into
itab_zycbt077-codeven.
itab_zycbt077-codmod = 'E'.
itab_zycbt077-nrseqc = /pws/zycbe001-nrseqc.
itab_zycbt077-gsberf = itab_vinc-gsberf.
itab_zycbt077-dtvincul = itab_vinc-dtvincul.
itab_zycbt077-nrinvoic = itab_vinc-nrinvoic.
itab_zycbt077-nrparcf = itab_vinc-nrparcf.
* >> Início da inclusão: FORM FILL_DATE1_F30
clear v_aux_dtvincul.
v_aux_dtvincul = itab_zycbe033-budat.
* << Fim da inclusão
itab_contabil-nrinvoic = itab_vinc-nrinvoic.
itab_contabil-nrparcf = itab_vinc-nrparcf.
itab_contabil-gsberf = itab_vinc-gsberf.
itab_contabil-docto = itab_vinc-belnr.
itab_contabil-msg = text-302.
itab_contabil-dtdocto = itab_vinc-dtbelnr.
itab_contabil-bukrs = /pws/zycbe001-bukrs.
append itab_contabil.
else.
read table itab_zycbt032 with key tcode = 'F-30'
...
...
cpochv = v_cpochv
tpmsg = 'S'.
if sy-subrc eq 0.
v_slvinc = /pws/zycbe001-slvinc.
v_belnr_001 = itab_zycbt032-belnr.
/pws/zycbe001-belnr2 = itab_zycbt032-belnr.
v_dtdocto = itab_zycbe033-budat.
if v_dtdocto ne itab_vinc-dtvincul.
/pws/zycbe001-dtvincul = v_dtdocto.
endif.
* >> Início da inclusão: FORM FILL_DATE1_F30
clear v_aux_dtvincul.
v_aux_dtvincul = itab_zycbe033-budat.
* << Fim da inclusão
modify /pws/zycbt221 from table itab_zycbt221.
commit work.
loop at itab_vinc
where flag = 'A'.
itab_vinc-flag = ' '.
modify itab_vinc.
endloop.
itab_zycbt077-belnr = itab_zycbt032-belnr.
itab_zycbt077-bukrs = itab_zycbe033-bukrs.
itab_zycbt077-gjahr = itab_zycbe033-budat(4).
...
...
itab_zycbt077-tcode = itab_zycbt032b-tcode.
concatenate text-198 /pws/zycbe001-tpcontr into
itab_zycbt077-codeven.
itab_zycbt077-codmod = 'E'.
itab_zycbt077-nrseqc = /pws/zycbe001-nrseqc.
itab_zycbt077-gsberf = itab_vinc-gsberf.
itab_zycbt077-dtvincul = itab_vinc-dtvincul.
itab_zycbt077-nrinvoic = itab_vinc-nrinvoic.
itab_zycbt077-nrparcf = itab_vinc-nrparcf.
itab_zycbt077-nrparc = itab_zycbt002p_aux-nrparc.
* >> Início da inclusão: FORM FILL_DATE1_F02_PRE
clear v_aux_dtvincul.
v_aux_dtvincul = itab_zycbe033-budat.
* << Fim da inclusão
itab_contabil-nrinvoic = itab_vinc-nrinvoic.
itab_contabil-nrparcf = itab_vinc-nrparcf.
itab_contabil-gsberf = itab_vinc-gsberf.
itab_contabil-docto = itab_zycbt032b-belnr.
itab_contabil-msg = text-110.
itab_contabil-dtdocto = itab_zycbe033-budat..
itab_contabil-bukrs = itab_zycbe033-bukrs.
append itab_contabil.
delete from /pws/zycbt084
where nrseqc = itab_vinc-nrseqc and
...
...
itab_zycbt077-status = 'E'.
itab_zycbt077-tcode = itab_zycbt032-tcode.
concatenate text-198 /pws/zycbe001-tpcontr into
itab_zycbt077-codeven.
itab_zycbt077-codmod = 'E'.
itab_zycbt077-nrseqc = /pws/zycbe001-nrseqc.
itab_zycbt077-gsberf = wa_zycbt005-gsberf.
itab_zycbt077-dtvincul = wa_zycbt005-dtvincul.
itab_zycbt077-nrinvoic = wa_zycbt005-nrinvoic.
itab_zycbt077-nrparcf = wa_zycbt005-nrparcf.
* >> Início da inclusão: FORM FILL_DATE1_F30_PRE
clear v_aux_dtvincul.
v_aux_dtvincul = itab_zycbe033-budat.
* << Fim da inclusão
commit work.
itab_contabil-nrinvoic = wa_zycbt005-nrinvoic.
itab_contabil-nrparcf = wa_zycbt005-nrparcf.
itab_contabil-gsberf = wa_zycbt005-gsberf.
itab_contabil-docto = itab_zycbt032-belnr.
itab_contabil-msg = text-341.
itab_contabil-dtdocto = itab_zycbe033-budat..
itab_contabil-bukrs = itab_zycbe033-bukrs.
append itab_contabil.
else.
...
...
itab_zycbt077-nrparc = itab_zycbt002p_aux-nrparc.
itab_zycbt077-nrparcf = wa_zycbt005-nrparcf.
itab_contabil-nrinvoic = wa_zycbt005-nrinvoic.
itab_contabil-nrparcf = wa_zycbt005-nrparcf.
itab_contabil-gsberf = wa_zycbt005-gsberf.
itab_contabil-docto = itab_zycbt032-belnr.
itab_contabil-msg = text-302.
itab_contabil-dtdocto = itab_zycbe033-budat.
itab_contabil-bukrs = itab_zycbe033-bukrs.
append itab_contabil.
* >> Início da inclusão: FORM FILL_DATE1_F30_ACE
clear v_aux_dtvincul.
v_aux_dtvincul = itab_zycbe033-budat.
* << Fim da inclusão
else.
itab_zycbt002p-slvinc = itab_zycbt002p-slvinc -
itab_zycbt005_ant-vlvinc.
modify itab_zycbt002p transporting slvinc
where nrparc = itab_zycbt002p_aux-nrparc.
modify /pws/zycbt002 from table itab_zycbt002p.
loop at itab_zycbt032 where tcode = 'F-30'
and tabela = '/PWS/ZYCBT005'
and cpochv = v_cpochv
and tpmsg = 'E'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
if not itab_zycbt032-belnr is initial.
v_dtdocto = itab_zycbe033-budat.
v_belnr_001 = itab_zycbt032-belnr.
v_doc_f30 = 'X'.
elseif ( not v_vinc_total is initial and v_contas = 'N' ).
v_dtdocto = itab_zycbe033-budat.
v_belnr_001 = itab_zycbe033-belnr.
v_doc_f30 = 'X'.
endif.
clear v_ind_errocont.
* >> Início da inclusão: FORM FILL_DATE1_F30_DESM
clear v_aux_dtvincul.
v_aux_dtvincul = itab_zycbe033-budat.
* << Fim da inclusão
read table itab_zycbt005 with key
nrinvoic = itab_zycbt017-nrinvoic
nrparcf = itab_zycbt017-nrparcf
gsberf = itab_zycbt017-gsberf.
check sy-subrc = 0.
if v_vinc_total is initial or v_contas = 'S'.
read table itab_zycbe033 with key cpochv = v_cpochv.
itab_zycbt077-belnr = itab_zycbt032-belnr.
itab_zycbt077-bukrs = itab_zycbe033-bukrs.
itab_zycbt077-gjahr = itab_zycbe033-budat(4).
...
...
itab_zycbt077-gsberf = itab_zycbt005-gsberf.
itab_zycbt077-dtvincul = itab_zycbt005-dtvincul.
itab_zycbt077-nrinvoic = itab_zycbt005-nrinvoic.
commit work.
itab_contabil-nrinvoic = itab_zycbt005-nrinvoic.
itab_contabil-docto = itab_zycbt032-belnr.
itab_contabil-msg = text-285.
itab_contabil-bukrs = /pws/zycbe001-bukrs.
itab_contabil-dtdocto = itab_zycbt005-dtvincul.
append itab_contabil.
* >> Início da inclusão: FORM FILL_DATE1_F30_VINC
clear v_aux_dtvincul.
v_aux_dtvincul = itab_zycbe033-budat.
* << Fim da inclusão
else.
loop at itab_zycbt032 where cpochv = v_cpochv.
itab_erro-msg = itab_zycbt032-msg.
append itab_erro.
endloop.
concatenate text-053 itab_zycbt005-nrinvoic text-076
into v_msg separated by space.
itab_erro-msg = v_msg.
append itab_erro.
v_status_s = '1'.
...
...
itab_zycbt002p-belnr2 = itab_zycbt032-belnr.
itab_zycbt002p-dtvincul = itab_zycbe033-budat.
clear v_vinctot.
endif.
modify itab_zycbt002p transporting slvinc belnr2 dtvincul
where nrseqc = itab_zycbt002p-nrseqc and
nrparc = itab_zycbt002p-nrparc and
tpparc = itab_zycbt002p-tpparc.
v_saldo002 = v_saldo002 - v_wrbtr.
perform atualiza_zycbt069.
* >> Início da inclusão: FORM VINCULACAO
clear v_aux_dtvincul.
v_aux_dtvincul = itab_zycbe033-budat.
* << Fim da inclusão
endif.
modify itab_zycbt005 transporting belnr belnr_vinc
dtbelnr vlvinc status
where nrseqc = itab_zycbt005-nrseqc and
tpdesp = itab_zycbt005-tpdesp and
nrparc = itab_zycbt005-nrparc and
dtincl = itab_zycbt005-dtincl and
nrinvoic = itab_zycbt005-nrinvoic and
gsberf = itab_zycbt005-gsberf and
dtvincul = itab_zycbt005-dtvincul and
...
...
v_saldo002 = v_slvinc.
itab_zycbt002p-belnr2 = itab_zycbt032-belnr.
itab_zycbt002p-slvinc = itab_zycbt002p_aux-slvinc.
v_dtdocto = itab_zycbe033-budat.
itab_zycbt002p-dtvincul = itab_zycbe033-budat.
modify itab_zycbt002p transporting slvinc belnr2 dtvincul
where nrseqc = itab_zycbt002p-nrseqc and
nrparc = itab_zycbt002p-nrparc and
tpparc = itab_zycbt002p-tpparc.
modify /pws/zycbt002 from table itab_zycbt002p.
* >> Início da inclusão: FORM DESMEMBRAMENTO
clear v_aux_dtvincul.
v_aux_dtvincul = itab_zycbe033-budat.
* << Fim da inclusão
/pws/zycbt084-nrseqc = itab_zycbt005-nrseqc.
/pws/zycbt084-tpdesp = itab_zycbt005-tpdesp.
/pws/zycbt084-nrparc = itab_zycbt005-nrparc.
/pws/zycbt084-dtincl = itab_zycbt005-dtincl.
/pws/zycbt084-nrinvoic = itab_zycbt005-nrinvoic.
/pws/zycbt084-nrparcf = itab_zycbt005-nrparcf.
/pws/zycbt084-gsberf = itab_zycbt005-gsberf.
/pws/zycbt084-dtvincul = itab_zycbt005-dtvincul.
/pws/zycbt084-vbeln = itab_zycbt030-vbeln.
/pws/zycbt084-belnr = itab_zycbt032-belnr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
up to 1 rows
from /pws/zycbt005 into /pws/zycbt005-dtvincul
where nrseqc = /pws/zycbe001-nrseqc.
endselect.
if not ( ( /pws/zycbe001-tpcontr(1) = 'E' or
/pws/zycbe001-tpcontr(1) = 'C' or
( /pws/zycbe001-tpcontr(1) = 'D' and
/pws/zycbt089-f_cont_vinc = 'F' ) )
and ( sy-tcode eq '/PWS/ZYCB009_A'
or ( sy-tcode eq '/PWS/ZYCB009_C' and sy-subrc eq 0 ) ) ).
* >> Início da inclusão: FORM GRAVA_CONTABILIZACAO
if not v_aux_dtvincul is initial.
/pws/zycbe001-dtvincul = v_aux_dtvincul.
else.
* << Fim da inclusão
if not itab_zycbe033-budat is initial.
/pws/zycbe001-dtvincul = itab_zycbe033-budat.
else.
/pws/zycbe001-dtvincul = /pws/zycbe005-dtvincul.
* >> Início da inclusão: FORM GRAVA_CONTABILIZACAO
endif.
* << Fim da inclusão
endif.
endif.
if /pws/zycbe001-tpcontr(1) eq 'C' and
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009X01
...
data: begin of itab_zyglt321 occurs 0.
include structure /pws/zyglt321.
data: end of itab_zyglt321.
data: begin of itab_doctos occurs 0.
include structure /pws/zycbt036.
data: end of itab_doctos.
data: v_searchhelp type shlpname,
v_nrseqc type /pws/zycbt001-nrseqc,
v_cliente type /pws/zycbt001-kunnr.
data: v_aux_dtpagext type /pws/zycbt005-dtpagext.
* >> Início da inclusão:
data: v_aux_dtvincul type /pws/zycbt001-dtvincul.
* << Fim da inclusão
data: end of common part.