Sintoma

Ao refinanciar um financiamento com parcelas de principal no CP, LP e curtíssimo, onde as contas de

CP e curtíssimo são iguais, as contabilizações se perdem, não finalizando o novo financiamento. No

estorno não volta as parcelas do financiamento original na conta correta, de acordo com seu prazo.

Solução

Efetuar agrupamento na ida pela conta de LP/CP/Curtíssimo, para que agrupe os valores e faça um só

lançamento na F-51. No estorno analisar o campo /PWS/ZYCBT113-FTRANSF, lançando na conta de acordo

com o valor do mesmo.

Informações Complementares

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

Nota Número 04941 Data: 09/10/2007 Hora: 10:29:32

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

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

Nota Número              : 04941

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00018

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

Referência às notas relacionadas:

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

02045  - 00001 - 6.0    - 00025  - REFINANCIAMENTO - BATCH INPUT F-51.

04735  - 00002 - 7.0    - 00002  - FINANCIAMENTO - RELATÓRIO DE MENSAGENS DE CONTABILIZAÇÃO

04805  - 00003 - 7.0    - 00003  - IMPORTAÇÃO FIANCIAMENTO

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

REFINANCIAMENTO - CONTAS IGUAIS DE LP/CP/CURTÍSSIMO

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

Palavras Chave:

REFINANCIAMENTO CONTAS IGUAIS DE LP CP CURTÍSSIMO

CONTABILIZAÇÃO IDA ESTORNO

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

Objetos da nota:

REPS /PWS/MZYCM101F01

REPS /PWS/MZYCM101X01

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

Modificações efetuadas em REPS /PWS/MZYCM101F01

...

      itab_zycbt035-d_gsber  = itab_totais-gsber.

    ENDIF.

    itab_zycbt035-d_prctr  = /pws/zycbe112-prctr.

    itab_zycbt035-c_prctr  = /pws/zycbe112-prctr.

    itab_zycbt035-wrbtr    = itab_totais-vlme.

    itab_zycbt035-wrbtr1   = itab_totais-vlrefinp.

    itab_zycbt035-d_zuonr  = itab_totais-nrfinanc.

    PERFORM conta_debito.

    APPEND itab_zycbt035.

  ENDLOOP.

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

  REFRESH itab_zycbt035_aux.

  LOOP AT itab_zycbt035.

    MOVE-CORRESPONDING itab_zycbt035 TO itab_zycbt035_aux.

    COLLECT itab_zycbt035_aux.

  ENDLOOP.

  itab_zycbt035[] = itab_zycbt035_aux[].

* << Fim da inclusão

  READ TABLE itab_zycbt116 INDEX 1.

  CLEAR itab_zycbt035.

  itab_zycbt035-tcode    = text-050.

  itab_zycbt035-tabela   = text-008.

  itab_zycbt035-cpochv   = /pws/zycbe112-nrseq.

  itab_zycbt035-bschl    = '50'.

  itab_zycbt035-wrbtr    = /pws/zycbe112-vlme.

  itab_zycbt035-d_zuonr  = /pws/zycbe112-nrseq.

  itab_zycbt035-d_gsber  = /pws/zycbe112-gsber.

  itab_zycbe033-d_fictr  = /pws/zycbe112-fictr.

...

...

        IF sy-subrc = 0.

          wa_mensagem-tpmsg = c_sucesso.

          CONCATENATE text-058

                      itab_zycbt032-msg

                 INTO wa_mensagem-msg

            SEPARATED BY space.

          REFRESH itab_zycbt036.

          itab_zycbt036-tcode  = text-083.

          itab_zycbt036-tabela = text-008.

          itab_zycbt036-cpochv = wa_zycbt112r-nrseq.

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

          itab_zycbt036-belnr = itab_zycbt032-belnr.

* << Fim da exclusão

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

          itab_zycbt036-belnr  = itab_zycbt032-belnr.

          SELECT SINGLE awkey FROM bkpf

                 INTO itab_zycbt036-awkey

                 WHERE bukrs = itab_zycbe033-bukrs

                   AND belnr = itab_zycbt032-belnr

                   AND gjahr = itab_zycbe033-budat(4).

* << Fim da inclusão

          APPEND itab_zycbt036.

          CLEAR v_zuonr.

          IF NOT v_flag IS INITIAL.

            CONCATENATE wa_zycbt112r-nrseq 'R' INTO v_zuonr.

          ENDIF.

          wa_zycbt113-belnr = itab_zycbt032-belnr.

          IF v_prazo EQ 'L'.

            wa_zycbt113-belnr_lp = itab_zycbt032-belnr.

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

            wa_zycbt113-ftransf  = 'L'.

          ELSE.

            wa_zycbt113-ftransf = 'S'.

* << Fim da exclusão

          ENDIF.

          wa_zycbt112r-slrefin  = wa_zycbt112r-slrefin +

                                   itab_zycbt116a-vlrefinp.

          wa_zycbt112r-sldesem  = wa_zycbt112r-sldesem +

                                   itab_zycbt116a-vlrefinp.

          UPDATE /pws/zycbt112 SET slrefin  = wa_zycbt112r-slrefin

                              sldesem  = wa_zycbt112r-sldesem

                        WHERE nrseq    = wa_zycbt112r-nrseq.

          IF wa_zycbt007-cfm = 'X'.

            SELECT SINGLE *

...

...

  SELECT * FROM /pws/zyglt321

           INTO TABLE itab_zyglt321

           WHERE ktosl   = 'FIN'

             AND codeven = v_codeven.

  REFRESH: itab_zycbt012.

  SELECT * FROM /pws/zycbt012

           INTO TABLE itab_zycbt012

           WHERE codeven = v_codeven

             AND codmod  = text-016.

  CLEAR itab_zycbt012.

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

  v_nrdias =  wa_zycbt113-dtvecto - sy-datum.

* << Fim da exclusão

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

  v_prazo = wa_zycbt113-ftransf.

* << Fim da inclusão

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

  CLEAR /pws/zyglt009.

  SELECT SINGLE nrdias_cp FROM /pws/zyglt009

                     INTO /pws/zyglt009-nrdias_cp

                     WHERE bukrs EQ /pws/zycbe112-bukrs.

  IF v_nrdias <= /pws/zyglt009-nrdias_cp.

    v_prazo = 'S'.

  ELSE.

    v_prazo = 'L'.

  ENDIF.

* << Fim da exclusão

  CLEAR wa_zycbt011.

  SELECT SINGLE * FROM /pws/zycbt011

                INTO wa_zycbt011

                WHERE codeven = v_codeven

                AND codmod  = text-016.

  CONCATENATE wa_zycbt112r-codint v_prazo

              INTO v_codaux1 SEPARATED BY space.

  CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'

       EXPORTING

            bukrs           = /pws/zycbe112-bukrs

...

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

Modificações efetuadas em REPS /PWS/MZYCM101X01

...

      itab_zycbt112 LIKE /pws/zycbt112 OCCURS 20 WITH HEADER LINE.

DATA : BEGIN OF itab_zycbt113pa OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt113.

DATA : END OF itab_zycbt113pa.

DATA : BEGIN OF itab_zycbt116a OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt116.

DATA : END OF itab_zycbt116a.

DATA: BEGIN OF itab_zycbt035 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbe035.

DATA: END OF itab_zycbt035.

* >> Início da inclusão:

DATA: itab_zycbt035_aux LIKE itab_zycbt035 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

DATA:   okcode           LIKE sy-ucomm.

DATA: END OF COMMON PART.