Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 27/10/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:20:15
Descrição da Nota: RELATÓRIO CÂMBIOS FECHADOS
Sintoma
O Relatório /PWS/ZYCBR047 - Câmbios Fechados não está carregando todos os contratos que deveriam ser
selecionados.
Solução
Quando é selecionada a Opção de "Todos os Contratos", o relatório irá selecionar os dados comparando
a Data do Contrato com o campo da tela "Posição em.:". ( Quando o campo "Posição em.:" não estiver
preenchdio o relatório irá consider a Data Atual ) e irá desprezar os registros com STATUS = "I",
isto somente para a Opção de "Todos os Contratos".
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09266 Data: 27/10/2009 Hora: 13:47:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09266
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07151 - 00001 - 7.0 - 00006 - SELEÇÃO DO RELATORIO DE CAMBIOS FECHADOS COMO O CAMPO "POSIÇÃO EM
08235 - 00002 - 7.0 - 00009 - RELATORIO DE CAMBIOS FECHADOS - NÃO EXIBIR CONTRATOS ENCERRADOS
----------------------------------------------------------------------------------------------------
RELATÓRIO CÂMBIOS FECHADOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
RELATÓRIO CÄMBIOS FECHADOS - FLAG TODOS OS CONTRATOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR047
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR047
...
dtcred like /pws/zycbt001-dtcred,
dtliquid like /pws/zycbt001-dtliquid,
waers like /pws/zycbt001-waers,
vlme like /pws/zycbt001-vlme,
txcneg like /pws/zycbt001-txcneg,
slvinc like /pws/zycbt001-slvinc,
slpagar like /pws/zycbt001-slpagar,
kunnr like /pws/zycbt001-kunnr,
corret like /pws/zycbt001-corret,
vlmi like /pws/zycbt001-vlmi,
* >> Início da inclusão:
status like /pws/zycbt001-status,
* << Fim da inclusão
end of itab_zycbt001.
data: begin of itab_zycbt002 occurs 0,
nrseqc like /pws/zycbt002-nrseqc,
txjtotal like /pws/zycbt002-txjtotal,
tptxjur like /pws/zycbt002-tptxjur,
end of itab_zycbt002.
data: begin of itab_kna1cli occurs 0,
kunnr like kna1-kunnr,
name1 like kna1-name1,
end of itab_kna1cli.
...
...
if not p_alv is initial.
set pf-status 'SEL047'.
endif.
at user-command.
case sy-ucomm.
when others.
endcase.
form seleciona_dados.
select nrseqc nrcontr tpcontr bconegoc bukrs gsber dtcontr dtcred
dtliquid waers vlme txcneg slvinc slpagar kunnr corret vlmi
* >> Início da inclusão: FORM SELECIONA_DADOS
status
* << Fim da inclusão
into table itab_zycbt001 from /pws/zycbt001
where nrcontr in s_nrcont and
bukrs in s_bukrs and
werks in s_werks and
gsber in s_gsber and
tpcontr in s_tpcont and
dtcontr in s_dtcont and
corret in s_corret and
bconegoc in s_bconeg and
kunnr in s_kunnr "#EC CI_NOFIELD
...
...
delete itab_zycbt001 where nrseqc = v_nrseq.
if itab_zycbt001[] is initial.
message i222.
stop.
endif.
endif.
endif.
endif.
endloop.
if p_todos eq 'X'.
* >> Início da inclusão: FORM FILTRA_DADOS
if p_dtliq ne '00000000'.
delete itab_zycbt001 where dtcontr gt p_dtliq.
else.
delete itab_zycbt001 where dtcontr gt sy-datum.
endif.
delete itab_zycbt001 where status eq 'I'.
else.
* << Fim da inclusão
if p_dtliq ne '00000000'.
delete itab_zycbt001 where dtliquid gt p_dtliq.
delete itab_zycbt005 where dtvincul gt p_dtliq.
delete itab_zycbt006 where dtpagto gt p_dtliq.
else.
delete itab_zycbt001 where dtliquid gt sy-datum.
endif.
endif.
endform.