Sintoma

Ao efetuar a rotina mensal(clearing no pagamento e separação de acc/ace) de um contrato que já

passou por vinculação/liquidação, em certo momento o valor a provisionar de acc é negativo e o de

ace é positivo, mas a contabilização não deve seguir estes valores, tem que provisionar o valor

exibido na primeira tela, confrontando um com o outro.

Solução

Ao existir valor negativo para provisionar de ACC, confrontar este valor com o valor positivo de

ACE, com isso irá contabilizar a diferença correta.

Informações Complementares

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

Nota Número 05316 Data: 26/11/2007 Hora: 17:29:51

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

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

Nota Número              : 05316

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00023

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

Referência às notas relacionadas:

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

01309  - 00001 - 6.0    - 00023  - ROTINA MENSAL EXPORTAÇÃO CONTABILIZAÇÃO SEPARADA DE ACC E ACE = S

02694  - 00002 - 6.0    - 00026  - ROTINA MENSAL EXPORTAÇÃO - TRANSFERÊNCIA LP/CP - CONTABILIZAÇÃO

02763  - 00003 - 6.0    - 00026  - LIQUIDAÇÃO - VALOR JUROS ACE ACC - CHAVES PVE E DSE.

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

ROTINA MENSAL EXPORTAÇÃO - SEPARAÇÃO ACC/ACE - CONTABILIZAÇÃO

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

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO SEPARAÇÃO ACC/ACE CONTABILIZAÇÃO

CLEARING PAGAMENTO VALOR NEGATIVO

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

Objetos da nota:

REPS /PWS/ZYCBI003

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

Modificações efetuadas em REPS /PWS/ZYCBI003

...

    v_dias_mes   TYPE i,

    v_data       LIKE /pws/zycbt154-dtcont,

    v_totac      LIKE /pws/zycbt001-vlme,

    v_premio     LIKE /pws/zycbt136-vlprinc,

    v_dias       TYPE i,

    v_dias3      TYPE i,

    v_feriado    TYPE c,

    v_dia_semana TYPE p,

    v_txc        LIKE itab_relat-txc,

    v_taxac      LIKE itab_relat-txc,

* >> Início da exclusão:

    v_vlme_par   LIKE /pws/zycbt006-vlme.

* << Fim da exclusão

* >> Início da inclusão:

    v_vlme_par   LIKE /pws/zycbt006-vlme,

    v_nrcorresp  TYPE /pws/zycbt154-nrcorresp,

    v_vlrprov    TYPE /pws/zycbt154-vlme.

* << Fim da inclusão

FORM processa_calculo_juros USING value(p_vlme)

                         value(p_txj)

                         value(p_tptxjur)

                         value(p_dtde)

                         value(p_dtate)

                         value(p_moeda)

                         value(p_ctmoeda)

                         value(p_tpjuros).

  DATA: v_vlmeaux LIKE /pws/zycbt001-vlme,

        v_dtate(10),

...

...

      v_sytabix = sy-tabix.

      READ TABLE itab_contabil WITH KEY

                                    nrcorresp = itab_contabil-nrcorresp

                                    vlrprov   = itab_contabil-vlrprov

                                    subtotal  = ' '.

      IF sy-subrc = 0.

        DELETE itab_contabil INDEX v_sytabix.

      ENDIF.

    ENDLOOP.

    REFRESH itab_contabil_aux.

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

    DELETE itab_contabil WHERE vlrprov  EQ 0

                           AND tpcontab NE 'T'.

    SORT itab_contabil BY nrcorresp vlrprov.

* << Fim da inclusão

    LOOP AT itab_contabil.

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

      IF itab_contabil-tpcontab    IS INITIAL AND

         NOT itab_contabil-vlrprov GT 0.

        v_nrcorresp = itab_contabil-nrcorresp.

        v_vlrprov   = itab_contabil-vlrprov.

        CONTINUE.

      ELSEIF itab_contabil-tpcontab  IS INITIAL AND

             itab_contabil-vlrprov   GT 0       AND

             v_nrcorresp             EQ itab_contabil-nrcorresp.

          itab_contabil-vlrprov = itab_contabil-vlrprov + v_vlrprov.

      ENDIF.

* << Fim da inclusão

      CLEAR itab_contabil_aux.

      MOVE-CORRESPONDING itab_contabil TO itab_contabil_aux.

      COLLECT itab_contabil_aux.

    ENDLOOP.

    itab_contabil[] = itab_contabil_aux[].

  ELSE.

    SORT itab_contabil.

    DELETE ADJACENT DUPLICATES FROM itab_contabil.

  ENDIF.

  LOOP AT itab_contabil.

...