CE PLUS - Nota 011390
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 11/08/2011 00:00:00
Data/Hora Última Alteração: 12/08/2011 11:18:59
Descrição da Nota: LIQUIDAÇÃO CONTRATO - CALCULO JUROS ACC E ACE - HISTÓRICO CONTÁBIL
Sintoma
O programa esta calculando os valores de juros com base no valor vinculado e não
com base do valor liquidado
Solução
O programa foi ajustado para calcular os juros de ACC e ACE com base no valor
liquidado
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11390 Data: 11/08/2011 Hora: 16:20:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11390
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00008
Agrupamento : 00081
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10889 - 00001 - 8.0 - 00006 - VINCULAÇÃO/LIQUIDAÇÃO ARBITRAGEM-MOEDA SEM CASAS DECIMAIS, CENTAV
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO CONTRATO - CALCULO JUROS ACC E ACE - HISTÓRICO CONTÁBIL
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO CONTRATO - CALCULO JUROS ACC E ACE - HISTÓRICO CONTÁBIL
CONTABILIZAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
gsberf = itab_zycbt005_t-gsberf.
if sy-subrc ne 0.
continue.
endif.
read table itab_zycbt006 with key
nrinvoic = itab_zycbt005_t-nrinvoic
nrparcf = itab_zycbt005_t-nrparcf
gsberf = itab_zycbt005_t-gsberf.
check sy-subrc = 0 and itab_zycbt006-status = 'C'.
v_index = sy-tabix.
* >> Início da exclusão: FORM PROVISIONA_DIFERENCA_JUROS
v_calc_jur = itab_zycbt005-vlvinc.
* << Fim da exclusão
* >> Início da inclusão: FORM PROVISIONA_DIFERENCA_JUROS
CLEAR itab_paridade.
READ TABLE itab_paridade WITH KEY
nrseqc = itab_zycbt005-nrseqc
nrinvoic = itab_zycbt005-nrinvoic
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf
dtvincul = itab_zycbt005-dtvincul.
v_calc_jur = itab_paridade-v_vlme_c.
* << Fim da inclusão
perform seta_data_juros.
if v_dt_pgt = 'X'.
v_dtcalcjur = /pws/zycbe006-dtpagext.
elseif v_dtliq = 'X'.
v_dtcalcjur = v_dtpagto.
else.
case wa_zycbt007-dtjuros.
when 'DTPAGEXT'.
v_dtcalcjur = /pws/zycbe006-dtpagext.
when 'DTVENCTO'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004I01
...
if itab_zycbt005-dtcredext ne '00000000' and
itab_zycbt005-dtcredext ne ' '.
itab_zycbt005-v_vljur = itab_zycbt005-vljur.
modify itab_zycbt005 index v_index.
continue.
endif.
read table itab_zycbt001 index 1.
if itab_zycbt001-tpcontr+0(1) ca 'ACET' or
( itab_zycbt001-tpcontr+0(01) eq 'D' and
/pws/zycbt089-f_cont_vinc eq 'A' ) .
* >> Início da exclusão: MODULE CALCULA_JUROS
v_calc_jur = itab_zycbt005-vlvinc.
* << Fim da exclusão
* >> Início da inclusão: MODULE CALCULA_JUROS
CLEAR itab_paridade.
READ TABLE itab_paridade WITH KEY
nrseqc = itab_zycbt005-nrseqc
nrinvoic = itab_zycbt005-nrinvoic
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf
dtvincul = itab_zycbt005-dtvincul.
v_calc_jur = itab_paridade-v_vlme_c.
* << Fim da inclusão
perform seta_data_juros.
if v_dt_pgt = 'X'.
v_dtcalcjur = /pws/zycbe006-dtpagext.
elseif v_dtliq = 'X'.
v_dtcalcjur = v_dtpagto.
else.
case wa_zycbt007-dtjuros.
when 'DTPAGEXT'.
v_dtcalcjur = /pws/zycbe006-dtpagext.
when 'DTVENCTO'.
...