Sintoma

Ao alterar a data de vencimento do cabeçalho de empréstimo, as parcelas de principal/juros/comissão

não consistem esta data e salva mesmo assim, com dias inconsistentes, ou seja, a soma do número de

dias de principal/juros/comissão fica diferente do número de dias do cabeçalho.

Solução

Não tem consistência para as parcelas quando a data de vencimento é alterada.

Informações Complementares

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

Nota Número 05441 Data: 12/12/2007 Hora: 16:26:26

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

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

Nota Número              : 05441

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00024

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

EMPRÉSTIMO - ALTERAÇÃO DATA DE VENCIMENTO - DATAS PARCELAS

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

Palavras Chave:

EMPRÉSTIMO ALTERAÇÃO DATA DE VENCIMENTO DATAS PARCELAS

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

Objetos da nota:

REPS /PWS/MZYCA111F01

REPS /PWS/MZYCA111O01

REPS /PWS/MZYCA111TOP

REPT /PWS/SAPMZYCA111

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

Modificações efetuadas em REPS /PWS/MZYCA111F01

...

         FROM /pws/zycbt128

         WHERE nrseq LIKE v_ano.

  v_count = v_nrseq(8) + 1.

  CONCATENATE v_count  sy-datum+2(2) INTO /pws/zycbe128-nrseq.

  v_nrseqc = /pws/zycbe128-nrseq.

  v_nrseqcview = /pws/zycbe128-nrseq.

ENDFORM.

FORM save_changes.

  DATA: v_dif   LIKE v_soma_vlme,

        v_tabix LIKE sy-tabix.

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

      DESCRIBE TABLE itab_zycbt129p LINES v_li.

      READ TABLE itab_zycbt129p INDEX 1.

      IF itab_zycbt129p-nrdias NE '00000'.

        IF itab_zycbt129p-dtinicio <> /pws/zycbe128-dtdesem AND

           v_li > 0 AND itab_zycbt129p-belnr_p IS INITIAL.

          MESSAGE i015 WITH text-133.

          EXIT.

        ENDIF.

        v_dia = 0.

        v_di = /pws/zycbe128-dtvencto - /pws/zycbe128-dtdesem.

        LOOP AT itab_zycbt129p.

          v_dia = v_dia + itab_zycbt129p-nrdias.

        ENDLOOP.

        IF v_di <> v_dia AND v_li > 0 AND

           itab_zycbt129p-belnr_p IS INITIAL.

          MESSAGE w015 WITH text-134.

          EXIT.

        ENDIF.

        DESCRIBE TABLE itab_zycbt129p LINES v_li.

        READ TABLE itab_zycbt129p INDEX v_li.

        IF itab_zycbt129p-dtfinal <> /pws/zycbe128-dtvencto AND

           v_li > 0 AND itab_zycbt129p-belnr_p IS INITIAL.

          MESSAGE w015 WITH text-135.

          itab_zycbt129p-dtfinal = /pws/zycbe128-dtvencto.

          itab_zycbt129p-nrdias =

            ( itab_zycbt129p-dtfinal - itab_zycbt129p-dtinicio ).

          EXIT.

        ENDIF.

      ENDIF.

* << Fim da inclusão

  IF v_status_s NE 0 OR v_status_s IS INITIAL.

    v_soma_vlme = 0.

    LOOP AT itab_zycbt129c.

      v_soma_vlme = v_soma_vlme + itab_zycbt129c-vlme.

      v_tabix = sy-tabix.

    ENDLOOP.

    IF v_soma_vlme <> /pws/zycbe128-vlcomis.

      v_dif = /pws/zycbe128-vlcomis - v_soma_vlme.

      IF v_dif > text-082 OR

         v_dif < 0.

...

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

Modificações efetuadas em REPS /PWS/MZYCA111O01

...

            itab_zycbt129p-dtliquida   = itab_zycbt048-dtliquida.

            itab_zycbt129p-dtswift     = itab_zycbt048-dtswift.

            itab_zycbt129p-instituicao = itab_zycbt048-instituicao.

            itab_zycbt129p-praca       = itab_zycbt048-praca.

            itab_zycbt129p-codnatoper  = itab_zycbt048-codnatoper.

            itab_zycbt129p-corret  = itab_zycbt048-corret.

            MODIFY itab_zycbt129p.

          ENDIF.

        ENDIF.

      ENDLOOP.

* >> Início da inclusão: MODULE LOAD_ITAB_ZYCBT129P

      DESCRIBE TABLE itab_zycbt129p LINES v_li.

      READ TABLE itab_zycbt129p INDEX 1.

      IF itab_zycbt129p-nrdias NE '00000'.

        IF itab_zycbt129p-dtinicio <> /pws/zycbe128-dtdesem AND

           v_li > 0 AND itab_zycbt129p-belnr_p IS INITIAL.

          MESSAGE i015 WITH text-133.

        ENDIF.

        v_dia = 0.

        v_di = /pws/zycbe128-dtvencto - /pws/zycbe128-dtdesem.

        LOOP AT itab_zycbt129p.

          v_dia = v_dia + itab_zycbt129p-nrdias.

        ENDLOOP.

        IF v_di <> v_dia AND v_li > 0 AND

           itab_zycbt129p-belnr_p IS INITIAL.

          MESSAGE w015 WITH text-134.

        ENDIF.

        DESCRIBE TABLE itab_zycbt129p LINES v_li.

        READ TABLE itab_zycbt129p INDEX v_li.

        IF itab_zycbt129p-dtfinal <> /pws/zycbe128-dtvencto AND

           v_li > 0 AND itab_zycbt129p-belnr_p IS INITIAL.

          MESSAGE w015 WITH text-135.

          itab_zycbt129p-dtfinal = /pws/zycbe128-dtvencto.

          itab_zycbt129p-nrdias =

            ( itab_zycbt129p-dtfinal - itab_zycbt129p-dtinicio ).

        ENDIF.

      ENDIF.

* << Fim da inclusão

    WHEN '0103'.

      IF okcode = 'DELE'.

        v_dele = 1.

        EXIT.

      ELSE.

        IF NOT v_nrseqc IS INITIAL.

          IF sy-tcode NE '/PWS/ZYCB111_C'.

            IF itab_zycbt129j[] IS INITIAL AND v_dele NE 1.

              SELECT * FROM /pws/zycbt129 INTO TABLE itab_zycbt129j

                WHERE nrseq = v_nrseqc

...

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

Modificações efetuadas em REPS /PWS/MZYCA111TOP

...

  v_nrdias            TYPE i,

  v_periodo           TYPE i,

  v_nrdias_util       TYPE i,

  v_controle          TYPE i,

  v_diasp             TYPE i,

  v_diasj             TYPE i,

  v_diasc             TYPE i,

  v_dias              TYPE i,

  v_altera            TYPE i,

  v_dele              TYPE i,

* >> Início da inclusão:

  v_li                TYPE i,

  v_dia               TYPE i,

  v_di                TYPE i,

* << Fim da inclusão

  v_li2               TYPE i,

  v_li3               TYPE i,                               "#EC NEEDED

  v_message           TYPE i,                               "#EC NEEDED

  ok_code             LIKE sy-ucomm,

  v_tela              LIKE sy-ucomm,

  v_index             LIKE sy-tabix,

  v_syrepid           LIKE sy-repid,

  v_tela_help         LIKE sy-dynnr VALUE '0052',           "#EC NEEDED

  bcodescr            LIKE lfa1-name1,

  bcodescr1           LIKE lfa1-name1,

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCA111

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 133

Texto: (73 caracteres)

"Data incial da 1ª parc Com,Juros ou Principal é diferente da Data "

"Desemb."

Comprimento máximo: 73

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 134

Texto: (73 caracteres)

"Total dias está dif. total dias do per. Prin,Juros ou Com,ENTER p/"

"corrig."

Comprimento máximo: 73

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 135

Texto: (73 caracteres)

"Data Final Últ. parc Princ, Jur ou Comis é dif data Venc,ENTER p/a"

"lterar."

Comprimento máximo: 73