Sintoma

Estorno parcial de liquidação de fatura vinculada ao contrato pronto, no cenário de liquidação

automática. Exemplo: Captação no valor de usd 100,00, com duas faturas vinculada/liquidadas: fat x =

usd 30,00 e fat y = usd 70,00. No segundo momento, o usuário altera o valor da vinculação/liquidação

para fat y= 20,00 e o saldo seja alocado na fat w=50,00. (no programa de vinculação).

Ao salvar, o sistema deveria: estornar a vinc/liquidação da fat y no valor de 50,00 e vincular e

liquidar a fat w pelo valor de 50,00. O sistema apenas contabiliza a fatura w e gera erro no estorno

contábil da fat y. As tabelas \pws\zycbt001(SLPAGAR),\pws\zycbt005 (SLPAGAR) e \pws\zycbt006(VLME)

para o contrato ficam com valores incorretos.

Solução

Ajuste no programa de vinculação na atualização das tabelas 001, 005 e 006, nos campos de documentos

contábeis.

Informações Complementares

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

Nota Número 03970 Data: 19/06/2007 Hora: 13:59:58

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

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

Nota Número              : 03970

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00170

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

Referência às notas relacionadas:

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

03538  - 00001 - 7.0    - 00001  - VINCULAÇÃO - LIQUIDAÇÃO CAMBIO PRONTO

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

VINCULAÇÃO - LIQUIDAÇÃO AUTOMATICA CAMBIO PRONTO

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

Palavras Chave:

VINCULAÇÃO - LIQUIDAÇÃO AUTOMATICA CAMBIO PRONTO

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

Objetos da nota:

REPS /PWS/MZYCB009F03

REPS /PWS/MZYCB009F07

REPS /PWS/MZYCB009F08

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

Modificações efetuadas em REPS /PWS/MZYCB009F03

...

       itab_zycbt005-gsber    TO itab_zycbt006-gsber,

       itab_zycbt005-kunnr    TO itab_zycbt006-kunnr,

       itab_zycbt005-waers    TO itab_zycbt006-waers,

       itab_zycbt005-vlvinc   TO itab_zycbt006-vlme,

       itab_zycbt005-txtinf   TO itab_zycbt006-txtinf,

       itab_zycbt005-ftxt     TO itab_zycbt006-ftxt,

       itab_zycbt005-belnr    TO itab_zycbt006-belnr5,

       itab_zycbt005-status   TO itab_zycbt006-status,

       itab_zycbt005-kostl    TO itab_zycbt006-kostl,

       itab_zycbt005-prctr    TO itab_zycbt006-prctr,

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

       itab_zycbt005-belnr_d  TO itab_zycbt006-belnr,

* << Fim da inclusão

       itab_zycbt005-fipos    TO itab_zycbt006-fipos.

    MOVE: /pws/zycbe006-dtpagext  TO itab_zycbt006-dtpagext ,

          /pws/zycbe006-dtpagto   TO itab_zycbt006-dtpagto  .

    IF NOT v_dtpagext IS INITIAL.

      MOVE 'E' TO itab_zycbt006-dtcalcjur.

    ELSEIF NOT v_dtpagtoc IS INITIAL.

      MOVE 'L' TO itab_zycbt006-dtcalcjur.

    ENDIF.

    APPEND itab_zycbt006.

  ENDLOOP.

...

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

Modificações efetuadas em REPS /PWS/MZYCB009F07

...

        LOOP AT itab_zycbt069 WHERE nrseqc   = wa_zycbt005-nrseqc

                                AND nrinvoic = wa_zycbt005-nrinvoic

                                AND dtvincul = wa_zycbt005-dtvincul

                                AND gsberf   = wa_zycbt005-gsberf

                                AND nrparcf  = wa_zycbt005-nrparcf.

          itab_zycbt069-belnr = itab_zycbt032-belnr.

          MODIFY itab_zycbt069.

        ENDLOOP.

        IF wa_zycbt005-tpcontr(1) CA 'CE'.

          /pws/zycbe001-belnr2   = wa_zycbt005-belnr.

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

          v_belnr_001 = /pws/zycbe001-belnr2.

* << Fim da inclusão

          /pws/zycbe001-dtvincul = wa_zycbt005-dtvincul.

        ENDIF.

        itab_contabil-nrinvoic = wa_zycbt005-nrinvoic.

        CLEAR itab_contabil-vbeln.

        itab_contabil-nrparcf  = wa_zycbt005-nrparcf.

        itab_contabil-gsberf   = itab_zycbe033-c_gsber.

        itab_contabil-docto    = itab_zycbt032-belnr.

        itab_contabil-msg      = text-325.

        itab_contabil-dtdocto  = /pws/zycbe006-dtpagto.

        itab_contabil-bukrs    = itab_zycbe033-bukrs.

...

...

                OTHERS          = 3.

    IF sy-subrc = 0.

      READ TABLE itab_zycbt032 WITH KEY tcode  = 'F-30'

                                        tabela = 'ZYCBT006'

                                        cpochv = itab_zycbe033-cpochv

                                        tpmsg  = 'S'.

      IF sy-subrc EQ 0.

        v_cp_ok = 'X'.

        wa_zycbt005-status = 'C'.

        wa_zycbt005-dtbelnr = itab_zycbe033-budat.

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

        wa_zycbt005-belnr   = itab_zycbt032-belnr.

* << Fim da exclusão

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

        wa_zycbt005-belnr_d  = itab_zycbt032-belnr.

* << Fim da inclusão

        wa_zycbt005-slpagar = 0.

        itab_contabil-nrinvoic = wa_zycbt005-nrinvoic.

        itab_contabil-nrparcf  = wa_zycbt005-nrparcf.

        CLEAR itab_contabil-vbeln.

        itab_contabil-gsberf   = wa_zycbt005-gsberf.

        itab_contabil-docto    = itab_zycbt032-belnr.

        itab_contabil-msg      = text-295.

        CLEAR /pws/zycbt084.

        READ TABLE itab_zycbt074 WITH KEY nrseqc = wa_zycbt005-nrseqc.

        IF sy-subrc EQ 0.

...

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

Modificações efetuadas em REPS /PWS/MZYCB009F08

...

  itab_zycbe033-tcode  = 'FBRA'.

  itab_zycbe033-tabela = 'ZYCBT005'.

  CONCATENATE itab_vinc-nrseqc

              itab_vinc-nrinvoic

              itab_vinc-dtvincul

              INTO v_cpochv.

  itab_zycbe033-cpochv = v_cpochv.

  IF /pws/zycbe001-tpcontr(1) EQ 'C' AND

     NOT itab_vinc-belnr_f28 IS INITIAL.

    itab_zycbe033-belnr = itab_vinc-belnr_f28.

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

  ELSEIF /pws/zycbe001-tpcontr(1) EQ 'C' AND

         wa_zycbt007-liq_cp       EQ 'X'.

    itab_zycbe033-belnr = itab_zycbt006-belnr.

* << Fim da inclusão

  ELSE.

    itab_zycbe033-belnr  = itab_vinc-belnr.

  ENDIF.

  itab_zycbe033-bukrs  = itab_vinc-bukrs.

  itab_zycbe033-bldat  = itab_vinc-dtvincul.

  itab_zycbe033-budat  = itab_vinc-dtvincul.

  IF ( /pws/zycbe001-tpcontr EQ 'C '  AND

       wa_zycbt007-liq_cp    EQ 'X' ) OR

     ( /pws/zycbe001-tpcontr EQ 'DP'  AND

       /pws/zycbt089-f_cont_vinc EQ 'F' ).

...