CE PLUS - Nota 010240
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 02/06/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:14:33
Descrição da Nota: EXPORTAÇÃO - ROTINA MENSAL - PT VALOR INCORRETO DO CALCULO DOS JUROS
Sintoma
Exportação - Rotina mensal - valor incorreto do calculo dos juros a provisionar e provisionado
Solução
Alterar o programa para verificar os registros da tab 004 e 002 onde campo dtpagto está preenchido
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10240 Data: 02/06/2010 Hora: 16:50:29
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10240
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00026
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03651 - 00001 - 7.0 - 00001 - ROTINA MENSAL DE EXPORTAÇÃO - JUROS ACC X PRÉ
04174 - 00002 - 7.0 - 00002 - ROTINA MENSAL EXPORTAÇÃO - EXCLUSÃO CONTRATOS DP
05726 - 00003 - 7.0 - 00004 - ROTINA MENSAL EXPORTAÇÃO - PROVISÃO CONTRATOS DP
06528 - 00004 - 7.0 - 00005 - ROTINA MENSAL - GERAÇÃO DE VALORES INDEVIDOS
07361 - 00005 - 7.0 - 00007 - ROTINA MENSAL EXPORTAÇÃO - RETIRAR DESPESAS /PWS/ZYCBT004 TIPO 01
10145 - 00006 - 8.0 - 00003 - ROTINA MENSAL DE EXPORTAÇÃO - PARCELA JUROS DE CAPTAÇÃO DE PRÉ-PA
----------------------------------------------------------------------------------------------------
EXPORTAÇÃO - ROTINA MENSAL - PT VALOR INCORRETO DO CALCULO DOS JUROS
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO - ROTINA MENSAL - VALOR INCORRETO DO CALCULO DOS JUROS
A PROVISIONAR E PROVISIONADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR003
...
from /pws/zycbt002
into table itab_zycbt002p
for all entries in itab_zycbt001
where nrseqc = itab_zycbt001-nrseqc and
tpparc = 'P'.
select *
from /pws/zycbt002
into table itab_zycbt002j
for all entries in itab_zycbt001
where nrseqc = itab_zycbt001-nrseqc and
* >> Início da inclusão: FORM SELECIONA_DADOS
( dtpagto eq '00000000' or
dtpagto eq space ) and
* << Fim da inclusão
tpparc = 'J'.
sort itab_zycbt002j by nrseqc nrparc dtinicio.
select nrseqc
tptaxa_comis
perc_comis
from /pws/zycbt074
into table itab_zycbt074
for all entries in itab_zycbt001
where nrseqc eq itab_zycbt001-nrseqc and
fpagto_comis eq 'P' and
...
...
where nrseqc = itab_zycbt001-nrseqc.
select *
from /pws/zycbt004
into table itab_zycbt004
for all entries in itab_zycbt001
where nrseqc = itab_zycbt001-nrseqc and
tpdesp like 'J%' and
( dtpagto <> '00000000' and
dtpagto <> ' ' and
dtpagto <= s_dtentr ).
* >> Início da inclusão: FORM SELECIONA_DADOS
delete itab_zycbt004 where TPCONTR(1) = 'P' or
TPCONTR(1) = 'S'.
* << Fim da inclusão
select *
from /pws/zycbt004
into table itab_zycbt004_pr
for all entries in itab_zycbt001
where nrseqc = itab_zycbt001-nrseqc and
tpdesp = 'PR' and
( dtpagto <> '00000000' and
dtpagto <= s_dtentr ).
select *
from /pws/zycbt136
...