CE PLUS - Nota 008708
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 21/07/2009 00:00:00
Data/Hora Última Alteração: 16/12/2010 09:29:22
Descrição da Nota: CAPTAÇÃO HISTÓRICO CONTÁBIL DATA PRORROGAÇÃO DE PRIN NA COL. DT.FINAL
Sintoma
Ao exibir o histórico contábil de um contrato de PT/ST com data de prorrogação, não esta
considerando a mesma na coluna Data Final. Considera a própria data final da parcela.
Solução
Considerar a tabela /pws/zycbt003 (tabela de prorrogação) no histórico contábil, para buscar as
prorrogações das parcelas de principal e exibir a data de prorrogação na coluna Data Final.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08708 Data: 21/07/2009 Hora: 11:53:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08708
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00106
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CAPTAÇÃO HISTÓRICO CONTÁBIL DATA PRORROGAÇÃO DE PRIN NA COL. DT.FINAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO HISTÓRICO CONTÁBIL DATA PRORROGAÇÃO PRINCIPAL DATA FINAL
/PWS/ZYCBT003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR059
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR059
...
/pws/zyglt009,
/pws/zycbt017, "#EC *
/pws/zycbt021,
/pws/zycbt050, "#EC *
/pws/zycbt051, "#EC *
/pws/zycbt084, "#EC *
/pws/zycbt154.
data: begin of itab_zycbt001 occurs 10.
include structure /pws/zycbt001.
data: end of itab_zycbt001.
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt003 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt003.
DATA: END OF itab_zycbt003.
* << Fim da inclusão
data: begin of itab_zycbt074 occurs 10.
include structure /pws/zycbt074.
data: end of itab_zycbt074.
data: begin of itab_zycbt002 occurs 10.
include structure /pws/zycbt002.
data: end of itab_zycbt002.
data: begin of itab_zycbt004 occurs 10.
include structure /pws/zycbt004.
data: end of itab_zycbt004.
data: begin of itab_zycbt004_desp occurs 10.
...
...
where nrseqc = nrseqc.
if sy-subrc ne 0.
message i015 with text-032.
leave list-processing.
else.
if not itab_zycbt001[] is initial.
select * from /pws/zycbt074
into table itab_zycbt074
for all entries in itab_zycbt001
where nrseqc = itab_zycbt001-nrseqc.
* >> Início da inclusão: FORM SELECIONA_DADOS
SELECT * FROM /pws/zycbt003
INTO TABLE itab_zycbt003
FOR ALL ENTRIES IN itab_zycbt001
WHERE nrseqc = itab_zycbt001-nrseqc.
* << Fim da inclusão
endif.
endif.
select * from /pws/zycbt004
into table itab_zycbt004_desp
where nrseqc = nrseqc
and tpdesp ne 'J'.
select * from /pws/zycbt004
into table itab_zycbt004
where nrseqc = nrseqc
and tpdesp like 'J%'.
...
...
endloop.
endloop.
sort itab_zycbt069 by nrinvoic gsberf dtvincul belnr_vinc.
sort itab_zycbt084 by nrinvoic gsberf dtvincul dtpagto.
loop at itab_aux.
perform move_dados.
endloop.
loop at itab_zycbt002.
if itab_zycbt002-tpparc = 'P'.
move: itab_zycbt002-dtinicio to itab_principal-dtinicio,
* >> Início da exclusão: FORM SELECIONA_DADOS
itab_zycbt002-dtfinal to itab_principal-dtfinal ,
* << Fim da exclusão
itab_zycbt002-vlme to itab_principal-vlme ,
itab_zycbt002-belnr to itab_principal-belnr ,
itab_zycbt002-slvinc to itab_principal-slvinc ,
itab_zycbt002-nrparc to itab_principal-nrparc.
* >> Início da inclusão: FORM SELECIONA_DADOS
READ TABLE itab_zycbt003 WITH KEY nrseqc = itab_zycbt002-nrseqc
tppror = 'P'
nrparc = itab_zycbt002-nrparc.
IF sy-subrc = 0.
MOVE: itab_zycbt003-dtpror TO itab_principal-dtfinal.
ELSE.
MOVE: itab_zycbt002-dtfinal TO itab_principal-dtfinal.
ENDIF.
* << Fim da inclusão
append itab_principal.
elseif itab_zycbt002-tpparc eq 'J'.
clear: /pws/zycbt154-belnr_cl,
itab_juros-dtpagto,
itab_juros-belnr.
select * from /pws/zycbt154 up to 1 rows
where codmod = 'E'
and codmodul = 'JD'
and tpcontr = itab_zycbt002-tpcontr
and codint = itab_zycbt002-nrparc
...