CE PLUS - Nota 004419
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 14/08/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:51:33
Descrição da Nota: CAPTAÇÃO - PT - PRÉ-PAGAMENTO - JUROS NEGATIVO - DUMP
Sintoma
Ao criar uma captação de pré-pagamento com parcelas de principal e informar o valor das mesmas maior
que o valor da captação, ocorre dump após informar os juros.
Solução
Não permitir juros negativo quando ocorrer o mesmo, zerar o mesmo para evitar dump.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04419 Data: 14/08/2007 Hora: 16:15:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04419
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00008
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03744 - 00001 - 7.0 - 00001 - ROTINA MENSAL EXPORTAÇÃO E CAPTAÇÃO - CÁLCULO JUROS
----------------------------------------------------------------------------------------------------
CAPTAÇÃO - PT - PRÉ-PAGAMENTO - JUROS NEGATIVO - DUMP
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO PT PRÉ-PAGAMENTO JUROS NEGATIVO DUMP
VALOR PARCELAS DE PRINCIPAL MAIOR VALOR CAPTAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
( ( v_vlmeamj * ( itab_zycbt002-txjtotal / 100 ) )
/ itab_zycbt010-nrdias )
* ( itab_zycbt002-dtfinal - itab_zycbt002-dtinicio ).
ELSE.
itab_zycbt002-vlme =
( ( v_vlmeamj * ( itab_zycbt002-txjtotal / 100 ) )
/ itab_zycbt010-nrdias ) * ( itab_zycbt002-nrdiasj ).
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM DIAS_JUROS
if itab_zycbt002-vlme < 0.
clear itab_zycbt002-vlme.
endif.
* << Fim da inclusão
itab_zycbt002_aux-vlme = itab_zycbt002-vlme.
MODIFY itab_zycbt002_aux TRANSPORTING vlme
WHERE nrseqc = itab_zycbt002-nrseqc
AND nrparc = itab_zycbt002-nrparc
AND tpparc = itab_zycbt002-tpparc.
IF sy-subrc <> 0.
MOVE itab_zycbt002 TO itab_zycbt002_aux.
APPEND itab_zycbt002_aux.
ENDIF.
IF ( /pws/zycbe001-tpcontr(1) EQ 'P' OR
...