Sintoma

No final do relatório da Rotina Mensal estão aparecendo mensagens de aviso como Taxa de Juros Nula,

só que em contratos que nem juros possuem.

Solução

Retirar a mensagem de Taxa de Juros Nula, pois somente carrega quando o contrato não tem registro na

/pws/zycbt002, mas não tendo registro nesta tabela indica que não possui juros, portanto a mensagem

esta incorreta.

Informações Complementares

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

Nota Número 02670 Data: 12/12/2006 Hora: 11:10:23

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

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

Nota Número              : 02670

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00144

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ROTINA MENSAL EXPORTAÇÃO - EXCLUSÃO MENSAGEM WARNING

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

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO EXCLUSÃO MENSAGEM WARNING

TAXA DE JUROS NULA

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

Objetos da nota:

REPS /PWS/ZYCBI003

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

Modificações efetuadas em REPS /PWS/ZYCBI003

...

        v_ok(1)     TYPE c.

  IF v_tx_esc_tot IS INITIAL.

    v_txj = p_txj.

  ELSE.

    v_txj = v_tx_esc_tot.

  ENDIF.

  v_nrdias = p_dtate - p_dtde.

  READ TABLE itab_zycbt010 WITH KEY tptxjur = p_tptxjur.

  v_nrdiabase = itab_zycbt010-nrdias.

  READ TABLE itab_zycbt009 WITH KEY codpadr = p_ctmoeda.

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

  PERFORM verifica_taxa_juros USING v_txj.

* << Fim da exclusão

  CHECK NOT v_txj IS INITIAL.

  CHECK NOT v_nrdias IS INITIAL.

  READ TABLE itab_tcurx WITH KEY currkey = p_moeda.

  IF sy-subrc <> 0.

    itab_tcurx-currdec = 2.

  ENDIF.

  v_vlmeaux = p_vlme / ( 10 ** ( itab_tcurx-currdec - 2 ) ).

  CALL FUNCTION '/PWS/ZYCB_JUROS_CALCULA'

       EXPORTING

            i_vlme                       = v_vlmeaux

...

...

                               CURRENCY wa_itab_relat-waers,

             AT sy-linsz sy-vline.

      CLEAR v_vlrjprov.

    ENDIF.

    FORMAT COLOR OFF.

    ULINE.

    CLEAR : p_v_vlmej, wa_itab_relat.

  ENDIF.

ENDFORM.

FORM exibe_mensagens.

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

  sort itab_msg.

  delete adjacent duplicates from itab_msg comparing all fields.

* << Fim da inclusão

  LOOP AT itab_msg.

    WRITE: /    sy-vline,

                itab_msg-tpmsg,

                itab_msg-nrseqc,

                itab_msg-nrcontr,

                itab_msg-tpcontr,

                itab_msg-nrinvoic,

                itab_msg-nrparc,

                itab_msg-msg,

            AT sy-linsz sy-vline.

...