CE PLUS - Nota 003166
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 28/02/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 14:31:01
Descrição da Nota: ROTINA MENSAL - EXPORTAÇÃO - VALOR JUROS
Sintoma
1-)Ao criar uma captação de ACC com o tipo escalonado, 2-) a data preenchida no campo "data de
entrega" é a ultima dia do mês (data da rotina mensal), 3-) na pasta de juros foi prenchido o
primeiro período com a taxa de 5.00 e no segundo período a taxa de 6.00, 4-) Ao rodar a rotina
mensal no ultimo dia do mes, 5-) O erro acontece no momento qem que o programa de rotina mensal
calcula a taxa, pois está calculando sobre 6,00 o correto deveria ser 5,00 pois a data do dia da
rotina mensal ainda pertence ao primeiro período.
Solução
Ajuste efetuado no F6D, corrigindo uma inconsistencia de LOOP pois a taxa de juros ficava sendo
sempre a taxa do ultimo registro da tabela de juros
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03166 Data: 28/02/2007 Hora: 16:30:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03166
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00155
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ROTINA MENSAL - EXPORTAÇÃO - VALOR JUROS
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL - EXPORTAÇÃO - VALOR JUROS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR003
...
WITH p_bconeg = itab_zycbt001_ence-bconegoc
AND RETURN.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM escalonamento USING p_dtbase.
CLEAR: v_tx_esc_tot, v_tx_esc_var, v_tx_esc_fix.
* >> Início da inclusão: FORM ESCALONAMENTO
DATA: v_txjuros(1) type c.
* << Fim da inclusão
IF itab_zycbt001-tpcalcjur EQ 'E'.
LOOP AT itab_zycbt002j WHERE nrseqc = itab_zycbt001-nrseqc.
IF p_dtbase GE itab_zycbt002j-dtinicio AND
p_dtbase LE itab_zycbt002j-dtfinal.
* >> Início da inclusão: FORM ESCALONAMENTO
IF p_dtbase EQ itab_zycbt002j-dtinicio
AND v_txjuros = 'X'.
EXIT.
ENDIF.
* << Fim da inclusão
v_tx_esc_tot = itab_zycbt002j-txjtotal.
v_tx_esc_var = itab_zycbt002j-txjvar.
v_tx_esc_fix = itab_zycbt002j-txjfixa.
* >> Início da inclusão: FORM ESCALONAMENTO
v_txjuros = 'X'.
* << Fim da inclusão
ENDIF.
ENDLOOP.
IF p_dtbase > itab_zycbt002j-dtfinal AND
v_tx_esc_tot = 0 AND
...