Sintoma

Criei um financiamento com oito parcelas de principal, sendo que

apenas a primeira está dentro do periodo de curto prazo, ao rodar

a rotina mensal para este contrato no dia 31/10/2005 o programa

deveria passar para curto prazo a segunda e a terceira parcela de

principal, mas o programa apenas passou a segunda parcela a terceira

que tem seu vencimento 30/10/2006 não foi passada para o periodo

de curto Prazo, verifiquei na tabela 007 e o prazo de curto prazo

está parametrizado para 365 dias.

Solução

Buscar o número de dias referente a curto e longo prazo na tabela

de parâmetros gerais, transação /pws/zygl007.

Informações Complementares

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

Nota Número 00585 Data: 04/01/2006 Hora: 11:01:11

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

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

Nota Número              : 00585

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00095

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ROTINA MENSAL IMPORTAÇÃO DIAS TRANSFERENCIA CP/LP

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

Palavras Chave:

ROTINA MENSAL IMPORTAÇÃO DIAS TRANSAFERENCIA

CURTO PRAZO LONGO PRAZO PARCELA PRINCIPAL CP LP

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

Objetos da nota:

REPS /PWS/ZYCBI112

REPS /PWS/ZYCBR112

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

Modificações efetuadas em REPS /PWS/ZYCBI112

Contexto: FORM seleciona_parametros_gerais.

  " Seleciona parametrizações de categoria da moeda

  SELECT * FROM /pws/zycbt009

           INTO TABLE itab_zycbt009.

  " Seleciona número de dias p/ tipo de taxa de juros

  SELECT * FROM /pws/zycbt010

           INTO TABLE itab_zycbt010.

  " Seleciona forma de cálculo de juros

  SELECT * FROM tcurx

         INTO TABLE itab_tcurx

         FOR ALL ENTRIES IN itab_zycbt112

         WHERE currkey = itab_zycbt112-waers.

*<< Inicio inclusão >>

  SELECT SINGLE *

    FROM /pws/zyglt009

    INTO wa_zyglt009.

*<< Fim inclusão >>

ENDFORM.                               " SELECIONA_PARAMETROS_GERAIS

Contexto: FORM processa_transfer_longo_curto.

  DATA: v_nrdias TYPE i.

  LOOP AT itab_zycbt112.

    CLEAR itab_relat.

    PERFORM seleciona_data_operacao.

    v_nrdias = itab_zycbt112-dtvencto - v_dtoperac.

*<< Inicio exclusão >>

*    CHECK v_nrdias > 360.

*<< Fim exclusão >>

*<< Inicio inclusão >>

    CHECK v_nrdias GT wa_zyglt009-nrdias_cp.

*<< Fim inclusão >>

    " Verifica se prazo atual é curto

    LOOP AT itab_zycbt113p WHERE nrseq = itab_zycbt112-nrseq.

      CHECK itab_zycbt113p-dtpagto IS INITIAL.

      CLEAR v_f_encerrado.

      v_nrdias = itab_zycbt113p-dtfinal - s_dtentr.

      IF

*<< Inicio exclusão >>

*        v_nrdias <= 360

*<< Fim exclusão >>

*<< Inicio inclusão >>

         v_nrdias LE wa_zyglt009-nrdias_cp

*<< Fim inclusão >>

         AND itab_zycbt113p-ftransf = 'L'.

        itab_relat-vlme = itab_zycbt113p-vlme.

        itab_relat-tpcontab = 'T'.

        itab_relat-vlmetransf = itab_zycbt113p-vlme.

        PERFORM preenche_itab_relat.

        APPEND itab_relat.

      ENDIF.

    ENDLOOP.

  ENDLOOP.

ENDFORM.                               " PROCESSA_TRANSFER_LONGO_CURTO

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

Modificações efetuadas em REPS /PWS/ZYCBR112

...

* Variáveis Globais

DATA: v_tamr           TYPE i VALUE 220,

      v_dtoperac       LIKE sy-datum,

      v_f_encerrado    LIKE /pws/zycbt112-f_encerrado,"Marc finan encer

      v_diascomatual   TYPE i,                     "comis dt solicitada

      v_vlcomis        LIKE /pws/zycbt112-vlme,    "valor da comissão.

      v_blart          LIKE /pws/zycbt011-blart,   "Tipo de documento

      v_d_sgtxt        LIKE /pws/zycbt011-txtdesc, "CÂMBIO-Texto Descrit

      v_c_sgtxt        LIKE /pws/zycbt011-txtdesc, "CÂMBIO-Texto Descrit

      v_d_newko        LIKE /pws/zycbt012-saknr1,  "Nº conta do Razão

      v_c_newko        LIKE /pws/zycbt012-saknr1,  "Nº conta do Razão

      v_dtinicio       LIKE sy-datum,

      v_dias_mes       TYPE i,

      v_dtdesem_mes    LIKE /pws/zycbt112-dtdesem,

      v_vlme_mes       LIKE /pws/zycbt001-vlme,

      qinfo(40),

      v_vlrjprov       LIKE /pws/zycbt154-vlme,

      v_vlrjprov2      LIKE /pws/zycbt154-vlme,

      v_vlrjprov3      LIKE /pws/zycbt154-vlme,

      v_tabix          LIKE sy-tabix,

      v_ok             TYPE i,

      v_ok2            TYPE i,

      v_ok3(1)         TYPE c,

      v_modo_bi,

      v_vlpagj         LIKE /pws/zycbt112-vlme,

      v_vlpagir        LIKE /pws/zycbt112-vlme,

      v_vlpagc         LIKE /pws/zycbt112-vlme,

      v_vlpagj2        LIKE /pws/zycbt112-vlme,

      v_vlpagir2       LIKE /pws/zycbt112-vlme,

      v_vlpagc2        LIKE /pws/zycbt112-vlme,

      v_valor_p        LIKE /pws/zycbt112-vlme,

      v_quebra(1)      TYPE c,

      v_codmod         LIKE /pws/zycbt154-codmod,

      v_vlmeir         LIKE /pws/zycbt112-vlme,  "Somatório por contrato

      v_vlmej          LIKE /pws/zycbt112-vlme,  "Somatório por contrato

      v_waers          LIKE /pws/zycbt112-waers,

      v_nrcorresp      LIKE /pws/zycbt154-nrcorresp,

      v_tamn           TYPE i VALUE 220,

      v_tjuros         LIKE /pws/zycbt129-vlme,

      v_tcomis         LIKE /pws/zycbt129-vlme,

      v_tir            LIKE /pws/zycbt129-vlme,

      v_answer         TYPE c,

      v_data           LIKE sy-datum,

      v_monat          LIKE t001b-frpe1,

      v_nrseq          LIKE /pws/zycbt112-nrseq,

      v_tpcontab       TYPE c,

      v_msg(150)       TYPE c,

      v_nrparcj        LIKE /pws/zycbt154-tpcontr,

*     Chamado 239916 - Renato - 21.06.2005 - Inicio

      v_syrepid        LIKE sy-repid,

      e_subrc          LIKE sy-subrc.

*     Chamado 239916 - Renato - 21.06.2005 - Fim

*----------------------------------------------------------------

* Work Areas

DATA: wa_itab_relat    LIKE itab_relat,

      wa_zycbt007      LIKE /pws/zycbt007,

      wa_zycbt011      LIKE /pws/zycbt011,

*<< Inicio inclusão >>

      wa_zyglt009      like /pws/zyglt009,

*<< Fim inclusão >>

      v_contabilizado,                 " Indica se lançam. foram realiz.

      v_cpochv         LIKE /pws/zycbe033-cpochv,

      v_codeven        LIKE /pws/zycbt011-codeven.

*-----------------------------------------------------------------------

* Tela de Seleção

SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE text-001.

SELECT-OPTIONS s_bukrs FOR /pws/zycbt112-bukrs.

PARAMETERS: s_dtentr LIKE sy-datum,

            s_dtlanc LIKE sy-datum.

SELECT-OPTIONS s_codint FOR /pws/zycbt112-codint.

SELECT-OPTIONS: s_nrseq FOR /pws/zycbt112-nrseq

                MATCHCODE OBJECT /pws/zycba156.

SELECTION-SCREEN END OF BLOCK 1.

SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE text-046.

PARAMETERS: s_rbrotm  RADIOBUTTON GROUP rg1,

            s_rbrotd RADIOBUTTON GROUP rg1,

            s_rbrela  RADIOBUTTON GROUP rg1.

SELECTION-SCREEN END OF BLOCK 2.

SELECTION-SCREEN BEGIN OF BLOCK 3 WITH FRAME TITLE text-045.

PARAMETERS: s_rbmens RADIOBUTTON GROUP rg2 USER-COMMAND rg2,

            s_rbinte RADIOBUTTON GROUP rg2.

SELECTION-SCREEN END OF BLOCK 3.

...