Sintoma

1-Ao efetuar a liquidação de um contrato, não esta efetuando a ativação da segunda partida, gerando

residual incorreto.

2-ao efetuar estorno de vinculação, onde o período da mesma esta fechado, faz o estorno, mas não

permite recriar, pois exibe mensagem de que o documento do contrato esta compensado ou não existe.

Solução

1-passar o parâmetro v_ult.

2-gravar a data de lançamento no dtvincul.

Informações Complementares

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

Nota Número 05930 Data: 14/02/2008 Hora: 17:11:34

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

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

Nota Número              : 05930

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00034

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

Referência às notas relacionadas:

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

03678  - 00001 - 7.0    - 00001  - LIQUIDAÇÃO - DA - CHECK DOS DOCUMENTOS - ESTORNO DAS FATURAS

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

VINCULAÇÃO LIQUIDAÇÃO - ESTORNO EM PERÍODO FECHADO

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

Palavras Chave:

VINCULAÇÃO LIQUIDAÇÃO - ESTORNO EM PERÍODO FECHADO

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

Objetos da nota:

REPS /PWS/MZYCB004F02

REPS /PWS/MZYCB009F01

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

    itab_zycbt036-belnr   = itab_zycbt030-belnr_t.

    itab_zycbt036-dtdocto = itab_zycbt030-budat_t.

  ENDIF.

  APPEND itab_zycbt036.

  IF itab_zycbt034 IS INITIAL.

    PERFORM unlock_cliente USING itab_zycbt006-kunnr

                                 itab_zycbe033-bukrs.

    CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_S'

         EXPORTING

              v_modo          = v_modo_bi

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

              v_ult           = 'X'

* << Fim da inclusão

         TABLES

              t_dados         = itab_zycbe033

              t_campo         = itab_zycbt034

              t_zycbt032      = itab_zycbt032

              t_zycbt036      = itab_zycbt036

         EXCEPTIONS

              campo_em_branco = 1

              periodo_fechado = 2

              OTHERS          = 3.

    PERFORM enqueue_cliente USING itab_zycbe033-bukrs

...

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

Modificações efetuadas em REPS /PWS/MZYCB009F01

...

      v_cpochv = /pws/zycbe001-nrseqc.

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

                                        tabela = '/PWS/ZYCBT005'

                                        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.

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

        IF v_dtdocto NE itab_vinc-dtvincul.

          /pws/zycbe001-dtvincul = v_dtdocto.

        ENDIF.

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

...