Sintoma

Ao vincular duas ou mais faturas a um contrato, arbitragem, faz a primeira vez corretamente, mas ao

estornar, gera erro.

Solução

Ajustar a gravação do campo na tabela, onde só deve atualizar todas as faturas com um só documento

quando o docto a ser atualizado for igual ao saldo contrato. Caso contrário, atualiza pelas chaves.

Informações Complementares

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

Nota Número 09652 Data: 30/12/2009 Hora: 17:19:13

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

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

Nota Número              : 09652

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00002

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

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

09062  - 00002 - 8.0    - 00001  - DESVINCULAÇÃO LIQUIDAÇÃO ATUALIZAÇÃO INCORRETA 001-DTVINCUL E 005

09200  - 00003 - 8.0    - 00001  - ROTINA MENSAL EXPORTAÇÃO - DEDUZ JUROS, DATA PAGAMENTO EXTERIOR-L

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

LIQUIDAÇÃO - ERRO RE-LANÇAMENTO ARBITRAGEM DEVIDO CAMPO 005-BELNR

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

Palavras Chave:

LIQUIDAÇÃO ERRO RE-LANÇAMENTO ARBITRAGEM DEVIDO CAMPO 005-BELNR

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

Objetos da nota:

REPS /PWS/MZYCB004F02

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

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

      if itab_zycbt005_ant-belnr = /pws/zycbe001-belnr2.

* << Fim da inclusão

      update /pws/zycbt005 set belnr    = itab_zycbt005_ant-belnr

                         dtbelnr  = itab_zycbt005_ant-dtbelnr

                   where nrseqc   = itab_zycbt006-nrseqc

                     and dtvincul = itab_zycbt006-dtvincul.

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

      endif.

* << Fim da inclusão

      move itab_zycbt006 to wa_zycbt006_sbu.

      call customer-function '043'

          exporting

...

...

                                  'C'.

        else.

          perform grava_log using '/PWS/ZYCBT006'

                                  wa_log

                                  'A'.

        endif.

      endif.

      if itab_zycbt006-v_status ne 'N'.

        if not itab_zycbt006-belnr_d is initial.

          if itab_zycbt005-dtbelnr > itab_zycbt006-dtpagto.

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

            update /pws/zycbt005 set belnr   = itab_zycbt006-belnr_d

                         where nrseqc   = itab_zycbt006-nrseqc

                           and dtvincul = itab_zycbt006-dtvincul

                           and nrinvoic = itab_zycbt006-nrinvoic

                           and nrparcf  = itab_zycbt006-nrparcf

                           and gsberf   = itab_zycbt006-gsberf.

            if itab_zycbt006-belnr_d = /pws/zycbe001-belnr2.

* << Fim da inclusão

            update /pws/zycbt005 set belnr   = itab_zycbt006-belnr_d

                         where nrseqc   = itab_zycbt006-nrseqc

                           and dtvincul = itab_zycbt006-dtvincul.

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

            endif.

* << Fim da inclusão

          else.

            update /pws/zycbt005 set belnr   = itab_zycbt006-belnr_d

                                dtbelnr = itab_zycbt006-dtpagto

                         where nrseqc   = itab_zycbt006-nrseqc

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

                           and dtvincul = itab_zycbt006-dtvincul

                           and nrinvoic = itab_zycbt006-nrinvoic

                           and nrparcf  = itab_zycbt006-nrparcf

                           and gsberf   = itab_zycbt006-gsberf.

            if itab_zycbt006-belnr_d = /pws/zycbe001-belnr2.

              update /pws/zycbt005 set belnr   = itab_zycbt006-belnr_d

                                  dtbelnr = itab_zycbt006-dtpagto

                           where nrseqc   = itab_zycbt006-nrseqc

* << Fim da inclusão

                           and dtvincul = itab_zycbt006-dtvincul.

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

            endif.

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

...