CE PLUS - Nota 009191
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 14/10/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:56:43
Descrição da Nota: RELATÓRIO - CONTRATOS - VALORES A VINCULAR E PAGAR INCORRETOS
Sintoma
Relatório - Contratos - valores a vincular e pagar incorretos
Solução
Relatório - Contratos - pegar os valores corretos para aparecer no relatorio alv.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09191 Data: 14/10/2009 Hora: 14:36:07
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09191
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04495 - 00001 - 7.0 - 00002 - RELATÓRIO DE CONTRATOS - AJUSTES PERFORMANCE
07934 - 00002 - 7.0 - 00008 - RELATÓRIO DE CONTRATOS - SALDO A VINCULAR PREENCHIDO PARA DP POR
----------------------------------------------------------------------------------------------------
RELATÓRIO - CONTRATOS - VALORES A VINCULAR E PAGAR INCORRETOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
RELATÓRIO - CONTRATOS - VALORES A VINCULAR E PAGAR INCORRETOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR010
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR010
...
endif.
else.
v_slpagar = v_slpagar + itab_zycbt006-vlme.
endif.
endloop.
v_vlvinc = v_vlvinc + itab_zycbt005-vlvinc.
endloop.
loop at itab_zycbt051 where nrseqc = itab_relat-nrseqc.
v_vlreceb = v_vlreceb + itab_zycbt051-vlme.
endloop.
* >> Início da inclusão: FORM PROCESSAR_DADOS
IF itab_zycbt005 is initial or
itab_zycbt006 is initial or
itab_zycbt051 is initial.
else.
* << Fim da inclusão
itab_relat-slpagar = itab_zycbt001-vlme - v_slpagar -
v_vldev + v_vlreceb.
* >> Início da inclusão: FORM PROCESSAR_DADOS
endif.
* << Fim da inclusão
if itab_zycbt001-waers ne /pws/zycbt007-waersb.
perform converter_moeda using itab_relat-slpagar
itab_zycbt001-waers
/pws/zycbt007-waersb
v_type
...
...
endif.
if s_txcamb <> ''.
itab_relat-slpagbr = itab_relat-slpagar * s_txcamb.
endif.
modify itab_relat transporting slpagar slpagbr
where nrseqc = itab_zycbt001-nrseqc.
endif.
if not ( itab_zycbt001-tpcontr(1) = 'D' and
itab_zycbt001-tp_pagt_antc = 'C' ).
itab_relat-vlvinc = v_vlvinc.
* >> Início da inclusão: FORM PROCESSAR_DADOS
if itab_zycbt005 is initial or
itab_zycbt006 is initial or
itab_zycbt051 is initial.
else.
* << Fim da inclusão
v_slvinc = itab_zycbt001-vlme - v_vlvinc + v_vldev.
itab_relat-slvinc = v_slvinc - v_vldev.
* >> Início da inclusão: FORM PROCESSAR_DADOS
endif.
* << Fim da inclusão
endif.
if not s_a_entr is initial.
if itab_relat-slvinc is initial.
delete itab_relat where nrseqc = itab_zycbt001-nrseqc.
continue.
...