Visualização da Nota 9062

CE PLUS - Nota 009062

Módulo: CÂMBIO EXPORTAÇÃO

Funcionalidade: Vinculação

Data/Hora da Publicação: 22/09/2009 00:00:00

Data/Hora Última Alteração: 18/02/2011 17:56:28

Descrição da Nota: DESVINCULAÇÃO LIQUIDAÇÃO ATUALIZAÇÃO INCORRETA 001-DTVINCUL E 005-BELNR

Sintoma

- Ao efetuar a desvinculação de uma fatura que já foi liquidada, contrato ACE/CP/DP, esta

atualizando incorretamente o campo "data de vencimento", sobrepondo a data da liquidação que

estava neste campo, gerando erro nas próximas contabilizações.

- Ao efetuar a liquidação, esta atualizando apenas o campo do documento contábil da fatura a ser

liquidada, mas como este documento é do contrato, tem que atualizar de todas faturas vinculadas ao

contrato.

Solução

Se estiver modificando a vinculação, não atualizar o campo /pws/zycbt001-dtvincul para contrato de

ACE/Câmbio Pronto e Down Payment com liquidação automática.

Ao liquidar qualquer fatura, atualizar em todos os registros da /pws/zycbt005, deste contrato, o

campo BELNR com o documento gerado para o contrato.

Versões Tratadas

7.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 8935

LIQUIDAÇÃO DE ACC COM PRÉ - CAPTAÇÕES

Nota 8226

LIQUIDAÇÃO - GRAVAR NOVA DATA QUANDO ESTA EM PERÍODO FECHADO

Nota 8269

TRATAMENTO DE PROCESSOS DE EXPORTAÇÃO EM BRL-CAPTAÇAO,VINCULAÇAO E LIQU.

Nota 6166

VINCULAÇÃO - GRAVAR DATA VINCULAÇÃO NA TABELA /PWS/ZYCBT001 - DTVINCUL

Nota 7760

DA-LIQUIDAÇÃO E VINCULAÇÃO LIQ. AUTOMÁT - NORMAL/ARBITRAGEM/PERFORMANCE

Nota 8930

CAPTAÇÃO - LIQUIDAÇÃO DAS CAPTAÇÕES DE PRÉ-PAGAMENTO E SECURITIZAÇÃO.

Nota 6165

VINCULAÇAO - AJUSTES CHAMADO 432177

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 09062 Data: 22/09/2009 Hora: 11:22:03

----------------------------------------------------------------------------------------------------

Nota Número : 09062

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

06165 - 00001 - 7.0 - 00004 - VINCULAÇAO - AJUSTES CHAMADO 432177

06166 - 00002 - 7.0 - 00004 - VINCULAÇÃO - GRAVAR DATA VINCULAÇÃO NA TABELA /PWS/ZYCBT001 - DTV

07760 - 00003 - 7.0 - 00007 - DA-LIQUIDAÇÃO E VINCULAÇÃO LIQ. AUTOMÁT - NORMAL/ARBITRAGEM/PERFO

08226 - 00004 - 7.0 - 00009 - LIQUIDAÇÃO - GRAVAR NOVA DATA QUANDO ESTA EM PERÍODO FECHADO

08269 - 00005 - 7.0 - 00009 - TRATAMENTO DE PROCESSOS DE EXPORTAÇÃO EM BRL-CAPTAÇAO,VINCULAÇAO

08930 - 00006 - 7.0 - 00010 - CAPTAÇÃO - LIQUIDAÇÃO DAS CAPTAÇÕES DE PRÉ-PAGAMENTO E SECURITIZA

08935 - 00007 - 7.0 - 00010 - LIQUIDAÇÃO DE ACC COM PRÉ - CAPTAÇÕES

----------------------------------------------------------------------------------------------------

DESVINCULAÇÃO LIQUIDAÇÃO ATUALIZAÇÃO INCORRETA 001-DTVINCUL E 005-BELNR

----------------------------------------------------------------------------------------------------

Palavras Chave:

VINCULAÇÃO LIQUIDAÇÃO ATUALIZAÇÃO INCORRETA 001-DTVINCUL E 005-BELNR

/PWS/ZYCBT001 /PWS/ZYCBT005 DTVINCUL BELNR DESVINCULAÇÃO

----------------------------------------------------------------------------------------------------

Objetos da nota:

FUNC /PWS/ZYCB_TRANSACAO_F_30_P

REPS /PWS/MZYCB004F02

REPS /PWS/MZYCB009F10

----------------------------------------------------------------------------------------------------

Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_P

...

'BDC_OKCODE' '=PI'.

endif.

perform bdc_screen using 'SAPDF05X' '3100'.

perform bdc_field using 'BDC_CURSOR' 'RF05A-ABPOS'.

perform bdc_field using 'BDC_OKCODE' '=Z+'.

perform bdc_screen using 'SAPDF05X' '3100'.

if t_dados-flag_nc eq 'X'.

perform bdc_field using: 'BDC_OKCODE' '=BU'.

else.

perform bdc_field using: 'BDC_OKCODE' '=BS'.

* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_P

perform bdc_field using: 'BDC_OKCODE' '=BU'.

* << Fim da exclusão

endif.

perform verifica_empresas using t_dados-bukrs

'UMBUCHNG'

t_dados-d_newko

v_agkoa.

if v_linhas eq 1

and v_dp eq 'X'.

v_linhas = v_linhas + 1.

endif.

move t_dados-brnch to c_brnch.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

dtbelnr = itab_zycbt005_ant-dtbelnr

where nrseqc = itab_zycbt006-nrseqc

and tpdesp = itab_zycbt006-tpdesp

and nrparc = itab_zycbt006-nrparc

and dtincl = itab_zycbt006-dtincl

and nrinvoic = itab_zycbt006-nrinvoic

and gsberf = itab_zycbt006-gsberf

and dtvincul = itab_zycbt006-dtvincul

and dtvencto = itab_zycbt006-dtvencto

and nrparcf = itab_zycbt006-nrparcf.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

update /pws/zycbt005 set belnr = itab_zycbt005_ant-belnr

dtbelnr = itab_zycbt005_ant-dtbelnr

where nrseqc = itab_zycbt006-nrseqc.

* << Fim da inclusão

move itab_zycbt006 to wa_zycbt006_sbu.

call customer-function '043'

exporting

wa_zycbt006 = wa_zycbt006_sbu.

delete from /pws/zycbt084 where nrseqc = itab_zycbt006-nrseqc

and nrinvoic = itab_zycbt006-nrinvoic

and gsberf = itab_zycbt006-gsberf

and dtvincul = itab_zycbt006-dtvincul

and dtpagto = itab_zycbt006-dtpagto

and dtpagext = itab_zycbt006-dtpagext

...

else.

perform grava_log using '/PWS/ZYCBT006'

wa_log

'A'.

endif.

if itab_zycbt006-v_status ne 'N'.

if not itab_zycbt006-belnr_d is initial.

if itab_zycbt005-dtbelnr > itab_zycbt006-dtpagto.

update /pws/zycbt005 set belnr = itab_zycbt006-belnr_d

* >> Início da exclusão: FORM ATUALIZA_TABELAS_TRANSP2

where nrseqc = itab_zycbt006-nrseqc

and nrinvoic = itab_zycbt006-nrinvoic

and dtvincul = itab_zycbt006-dtvincul

and nrparcf = itab_zycbt006-nrparcf

and gsberf = itab_zycbt006-gsberf.

* << Fim da exclusão

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

where nrseqc = itab_zycbt006-nrseqc.

* << Fim da inclusão

else.

update /pws/zycbt005 set belnr = itab_zycbt006-belnr_d

dtbelnr = itab_zycbt006-dtpagto

* >> Início da exclusão: FORM ATUALIZA_TABELAS_TRANSP2

where nrseqc = itab_zycbt006-nrseqc

and nrinvoic = itab_zycbt006-nrinvoic

and dtvincul = itab_zycbt006-dtvincul

and nrparcf = itab_zycbt006-nrparcf

and gsberf = itab_zycbt006-gsberf.

* << Fim da exclusão

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

where nrseqc = itab_zycbt006-nrseqc.

* << Fim da inclusão

endif.

else.

if v_liquida eq 'X'.

if itab_zycbt006-status = 'C'.

v_slpagar = itab_zycbt005-slpagar + ( itab_zycbt006-vlme *

itab_zycbt005-parid ).

endif.

read table /pws/zycbt005.

update /pws/zycbt005 set slpagar = v_slpagar

where nrseqc = itab_zycbt006-nrseqc

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB009F10

...

v_pos_itab = sy-tabix.

itab_zycbt017-vlslf = ( itab_zycbt017-vlslf -

itab_zycbt005_excluidas-vlme_p ).

itab_zycbt017-fvinc = 'X'.

modify itab_zycbt017 index v_pos_itab.

endif.

endloop.

endif.

/pws/zycbe001-belnr2 = v_belnr_001.

* >> Início da inclusão: FORM GRAVA_CONTABILIZACAO

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' ).

* << 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.

if /pws/zycbe001-tpcontr(1) eq 'C' and

wa_zycbt007-liq_cp eq 'X'

...