CE PLUS - Nota 002567
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 01/12/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:44:57
Descrição da Nota: ROTINA MENSAL - ERRO AO CALCULAR OS JUROS P/ CONTRATOS COM ESCALONAMENTO
Sintoma
Inclusão de ponto de exit ao gravar o complemento do boleto.
Solução
Foi incluído o ponto de exit no complemento do boleto.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02567 Data: 01/12/2006 Hora: 14:34:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02567
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00142
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ROTINA MENSAL - ERRO AO CALCULAR OS JUROS P/ CONTRATOS COM ESCALONAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL JUROS ESCALONAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR003
...
CLEAR: v_tx_esc_tot, v_tx_esc_var, v_tx_esc_fix.
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.
v_tx_esc_tot = itab_zycbt002j-txjtotal.
v_tx_esc_var = itab_zycbt002j-txjvar.
v_tx_esc_fix = itab_zycbt002j-txjfixa.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM ESCALONAMENTO
IF p_dtbase > itab_zycbt002j-dtfinal AND
v_tx_esc_tot = 0 AND
v_tx_esc_var = 0 AND
v_tx_esc_fix = 0.
v_tx_esc_tot = itab_zycbt002j-txjtotal.
v_tx_esc_var = itab_zycbt002j-txjvar.
v_tx_esc_fix = itab_zycbt002j-txjfixa.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM processa_ace2 USING p_data_de.
DATA: v_dtate LIKE sy-datum,
v_vlme LIKE /pws/zycbt006-vlme.
CLEAR: v_vlme, v_vlme_par.
ADD itab_zycbt005-vlme_p TO v_vlme.
v_dtate = itab_zycbt005-dtcredext.
PERFORM escalonamento USING v_dtate.
IF v_dtate > s_dtentr.
...