CE PLUS - Nota 002814
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 04/01/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:23:30
Descrição da Nota: AJUSTE NO CALCULO DO TOTAL DO REALIZADO DO EMBARQUE.
Sintoma
O valor da coluna realizado do encerramento de custo não está igual ao valor do custo efetivo.
Solução
Ajustado o calculo do valor total realizado para verificar a taxa de conversão de moeda correta para
cada despesa.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02814 Data: 04/01/2007 Hora: 14:56:45
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02814
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00146
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01422 - 00001 - 6.0 - 00023 - VALOR QUE FOI LEVADO PARA O ENCER. DE CUSTOS ESTA MAIOR DO QUE DE
01438 - 00002 - 6.0 - 00023 - ERRO NA EXIBIÇÃO DO ENCERRAMENTO DE PROCESSO SEM EURO
----------------------------------------------------------------------------------------------------
AJUSTE NO CALCULO DO TOTAL DO REALIZADO DO EMBARQUE.
----------------------------------------------------------------------------------------------------
Palavras Chave:
TOTAL - REALIZADO - ECUSTO - EFETIVO - CONVERSÃO - MOEDA
/PWS/SAPMZYCI010 - ENCERRAMENTO DE CUSTO - CUSTO EFETIVO - MOEDA JPY
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010O02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F01
...
CLEAR: v_frete.
LOOP AT itab_zycit036_aux2 WHERE codigo = 'FRETEI'.
v_frete = v_frete + 1.
ENDLOOP.
PERFORM sel_docts.
LOOP AT itab_zycit036_aux2.
ON CHANGE OF itab_zycit036_aux2-codigo.
CLEAR: itab_zycit036a.
ENDON.
itab_zycit036a-nrseq = itab_zycit036_aux2-nrseq.
* >> Início da exclusão: FORM CUSTEANDO_DESPESAS_EMBARQUE
itab_zycit036a-embarca = itab_zycit036_aux2-embarca.
* << Fim da exclusão
itab_zycit036a-bukrs = itab_zycit036_aux2-bukrs.
itab_zycit036a-codigo = itab_zycit036_aux2-codigo.
IF NOT itab_zycit036_aux2-waers_real IS INITIAL
AND itab_zycit036_aux2-vlreal NE 0.
itab_zycit036a-waers_real = itab_zycit036_aux2-waers_real.
ENDIF.
IF itab_zycit036_aux2-codigo NE 'FRETEI'.
itab_zycit036a-vlreal = itab_zycit036_aux2-vlreal.
ENDIF.
IF itab_zycit036_aux2-origem EQ 'PED'.
...
...
PERFORM converter_moeda
USING itab_zycit036_aux2-vlreal
itab_zycit036_aux2-waers_real
/pws/zycbt007-waersb
CHANGING v_vlreal.
PERFORM converter_moeda
USING v_vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
CHANGING v_vlreal.
* >> Início da inclusão: FORM CUSTEAR_ITENS
PERFORM trata_decimais USING /pws/zycie001-waers
CHANGING v_vlreal.
* << Fim da inclusão
ELSEIF itab_zycit036_aux2-origem EQ 'PC'.
READ TABLE it_pc WITH KEY
nrseq = itab_zycit036_aux2-nrseq
nrpres = itab_zycit036_aux2-nrseqori.
* >> Início da exclusão: FORM CUSTEAR_ITENS
PERFORM trata_decimais USING /pws/zycie001-waers
CHANGING itab_zycit036_aux2-vlreal.
* << Fim da exclusão
IF it_pc-dtaprov LT /pws/zycit085-dtuserc.
PERFORM converter_moeda
USING itab_zycit036_aux2-vlreal
itab_zycit036_aux2-waers_real
/pws/zycbt007-waersb
CHANGING v_vlreal.
PERFORM converter_moeda
USING v_vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
CHANGING v_vlreal.
* >> Início da inclusão: FORM CUSTEAR_ITENS
PERFORM trata_decimais USING /pws/zycie001-waers
CHANGING v_vlreal.
* << Fim da inclusão
ELSE.
IF itab_zycit036_aux2-waers_real NE
/pws/zycbt007-waersb AND
itab_zycit036_aux2-origem NE 'PED'.
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036_aux2-waers_real
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036_aux2-waers_real
sy-datum
CHANGING v_taxa.
ENDIF.
itab_zycit036_aux2-vlreal =
itab_zycit036_aux2-vlreal * v_taxa.
ENDIF.
* >> Início da exclusão: FORM CUSTEAR_ITENS
PERFORM trata_decimais USING /pws/zycie001-waers
CHANGING itab_zycit036_aux2-vlreal.
* << Fim da exclusão
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
* >> Início da inclusão: FORM CUSTEAR_ITENS
PERFORM trata_decimais USING /pws/zycie001-waers
CHANGING v_vlreal.
* << Fim da inclusão
ELSE.
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
LEAVE PROGRAM.
ENDIF.
ENDIF.
ELSEIF itab_zycit036_aux2-origem EQ 'DC'.
READ TABLE it_dc WITH KEY
nrseq = itab_zycit036_aux2-nrseq
nradto = itab_zycit036_aux2-nrseqori.
* >> Início da exclusão: FORM CUSTEAR_ITENS
IF it_pc-dtaprov LT /pws/zycit085-dtuserc.
* << Fim da exclusão
* >> Início da inclusão: FORM CUSTEAR_ITENS
IF it_dc-dtaprov LT /pws/zycit085-dtuserc.
* << Fim da inclusão
* >> Início da exclusão: FORM CUSTEAR_ITENS
PERFORM trata_decimais USING /pws/zycie001-waers
CHANGING itab_zycit036_aux2-vlreal.
* << Fim da exclusão
PERFORM converter_moeda
USING itab_zycit036_aux2-vlreal
itab_zycit036_aux2-waers_real
/pws/zycbt007-waersb
CHANGING v_vlreal.
PERFORM converter_moeda
USING v_vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da inclusão: FORM CUSTEAR_ITENS
CHANGING v_vlreal.
PERFORM trata_decimais USING /pws/zycie001-waers
* << Fim da inclusão
CHANGING v_vlreal.
ELSE.
IF itab_zycit036_aux2-waers_real NE
/pws/zycbt007-waersb AND
itab_zycit036_aux2-origem NE 'PED'.
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036_aux2-waers_real
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
...
...
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
* >> Início da inclusão: FORM CUSTEAR_ITENS
PERFORM trata_decimais USING /pws/zycie001-waers
CHANGING v_vlreal.
* << Fim da inclusão
ELSE.
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
LEAVE PROGRAM.
ENDIF.
ENDIF.
ELSEIF itab_zycit036_aux2-origem EQ 'DCD'.
IF itab_zycit036_aux2-waers_real NE /pws/zycbt007-waersb AND
itab_zycit036_aux2-origem NE 'PED'.
...
...
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM CUSTEAR_ITENS
PERFORM trata_decimais USING /pws/zycie001-waers
CHANGING itab_zycit036_aux2-vlreal.
* << Fim da exclusão
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
ELSE.
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
LEAVE PROGRAM.
ENDIF.
* >> Início da inclusão: FORM CUSTEAR_ITENS
PERFORM trata_decimais USING /pws/zycie001-waers
CHANGING v_vlreal.
* << Fim da inclusão
ELSE.
IF itab_zycit036_aux2-waers_real NE /pws/zycbt007-waersb AND
itab_zycit036_aux2-origem NE 'PED'.
IF NOT /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036_aux2-waers_real
/pws/zycit442-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036_aux2-waers_real
sy-datum
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010O02
...
CHANGING v_tplan_aux.
v_tplan_conv = v_tplan_aux.
PERFORM retorna_decimais USING /pws/zycie001-waers_plan
CHANGING v_tplan_conv.
v_tplan = v_tplan + v_tplan_conv.
ELSE.
v_tplan = v_tplan + itab_zycit036a-netpr.
ENDIF.
IF itab_zycit036a-waers_real NE /pws/zycie001-waers_real
AND NOT itab_zycit036a-vlreal IS INITIAL.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
IF itab_zycit036a-codigo = 'FOB' OR itab_zycit036a-codigo =
'SEGURO' OR itab_zycit036a-codigo = 'FRETEI'.
READ TABLE itab_zycit140 WITH KEY codigo = itab_zycit036a-codigo
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TOTAIS
IF /pws/zycit085 IS INITIAL.
READ TABLE itab_zycit085 INDEX 1.
/pws/zycit085 = itab_zycit085.
ENDIF.
LOOP AT itab_zycit036 WHERE
codigo EQ itab_zycit036a-codigo.
CLEAR: v_vlreal, v_treal_conv.
IF itab_zycit036-origem EQ 'FAT'.
PERFORM converter_moeda
USING itab_zycit036-vlreal
itab_zycit036-waers_real
/pws/zycbt007-waersb
CHANGING v_vlreal.
PERFORM converter_moeda
USING v_vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
CHANGING v_vlreal.
v_treal_conv = v_vlreal.
ELSEIF itab_zycit036-origem EQ 'PC'.
READ TABLE it_pc WITH KEY
nrseq = itab_zycit036-nrseq
nrpres = itab_zycit036-nrseqori.
IF it_pc-dtaprov LT /pws/zycit085-dtuserc.
PERFORM converter_moeda
USING itab_zycit036-vlreal
itab_zycit036-waers_real
/pws/zycbt007-waersb
CHANGING v_vlreal.
PERFORM converter_moeda
USING v_vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
CHANGING v_vlreal.
ELSE.
IF itab_zycit036-waers_real NE
/pws/zycbt007-waersb AND
itab_zycit036-origem NE 'PED'.
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036-waers_real
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036-waers_real
sy-datum
CHANGING v_taxa.
ENDIF.
itab_zycit036-vlreal =
itab_zycit036-vlreal * v_taxa.
ENDIF.
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036-vlreal / v_taxa.
ELSE.
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
LEAVE PROGRAM.
ENDIF.
ENDIF.
v_treal_conv = v_vlreal.
ELSEIF itab_zycit036-origem EQ 'DC'.
READ TABLE it_dc WITH KEY
nrseq = itab_zycit036-nrseq
nradto = itab_zycit036-nrseqori.
IF it_dc-dtaprov LT /pws/zycit085-dtuserc.
PERFORM converter_moeda
USING itab_zycit036-vlreal
itab_zycit036-waers_real
/pws/zycbt007-waersb
CHANGING v_vlreal.
PERFORM converter_moeda
USING v_vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
CHANGING v_vlreal.
ELSE.
IF itab_zycit036-waers_real NE
/pws/zycbt007-waersb AND
itab_zycit036-origem NE 'PED'.
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036-waers_real
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036-waers_real
sy-datum
CHANGING v_taxa.
ENDIF.
itab_zycit036-vlreal =
itab_zycit036-vlreal * v_taxa.
ENDIF.
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036-vlreal / v_taxa.
ELSE.
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
LEAVE PROGRAM.
ENDIF.
ENDIF.
v_treal_conv = v_vlreal.
ELSEIF itab_zycit036-origem EQ 'DCD'.
IF itab_zycit036-waers_real NE /pws/zycbt007-waersb AND
itab_zycit036-origem NE 'PED'.
IF NOT /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036-waers_real
/pws/zycit442-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036-waers_real
sy-datum
CHANGING v_taxa.
ENDIF.
itab_zycit036-vlreal = itab_zycit036-vlreal * v_taxa.
ENDIF.
IF NOT /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit442-dttax IS INITIAL.
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036-vlreal / v_taxa.
ELSE.
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
LEAVE PROGRAM.
ENDIF.
v_treal_conv = v_vlreal.
ELSEIF itab_zycit036-origem EQ 'PCD'.
IF itab_zycit036-waers_real NE /pws/zycbt007-waersb AND
itab_zycit036-origem NE 'PED'.
IF NOT /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036-waers_real
/pws/zycit442-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036-waers_real
sy-datum
CHANGING v_taxa.
ENDIF.
itab_zycit036-vlreal = itab_zycit036-vlreal * v_taxa.
ENDIF.
IF NOT /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit442-dttax IS INITIAL.
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036-vlreal / v_taxa.
ELSE.
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
LEAVE PROGRAM.
ENDIF.
v_treal_conv = v_vlreal.
ELSE.
IF itab_zycit036-codigo = 'FOB' OR
itab_zycit036-codigo = 'SEGURO' OR
itab_zycit036-codigo = 'FRETEI'.
READ TABLE itab_zycit140 WITH KEY
codigo = itab_zycit036-codigo
* << Fim da inclusão
custo = 'X'.
IF sy-subrc = 0.
IF itab_zycit140-origem = 'NF'.
READ TABLE itab_zycit085 INDEX 1.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
IF itab_zycit036a-waers_real EQ itab_zycit085-waersseg.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TOTAIS
IF itab_zycit036-waers_real EQ itab_zycit085-waersseg.
* << Fim da inclusão
IF itab_zycit085-ukursseg > 0.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
v_treal_aux = itab_zycit036a-vlreal / itab_zycit085-ukursseg.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TOTAIS
v_treal_aux = itab_zycit036-vlreal
/ itab_zycit085-ukursseg.
* << Fim da inclusão
ENDIF.
v_treal_conv = v_treal_aux.
ELSE.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
PERFORM taxa_converte USING itab_zycit036a-waers_real
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TOTAIS
PERFORM taxa_converte USING itab_zycit036-waers_real
* << Fim da inclusão
itab_zycit085-dttax
CHANGING v_taxa.
IF NOT v_taxa IS INITIAL.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
v_treal_aux = itab_zycit036a-vlreal * v_taxa.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TOTAIS
v_treal_aux = itab_zycit036-vlreal * v_taxa.
* << Fim da inclusão
IF itab_zycit085-ukursfob > 0.
v_treal_aux = v_treal_aux / itab_zycit085-ukursfob.
v_treal_conv = v_treal_aux.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
PERFORM trata_decimais USING itab_zycit036a-waers_real
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TOTAIS
PERFORM trata_decimais USING itab_zycit036-waers_real
* << Fim da inclusão
CHANGING v_treal_conv.
ELSE.
PERFORM converter_moeda USING
* >> Início da exclusão: MODULE CARREGA_TOTAIS
itab_zycit036a-vlreal
itab_zycit036a-waers_real
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TOTAIS
itab_zycit036-vlreal
itab_zycit036-waers_real
* << Fim da inclusão
/pws/zycie001-waers_real
CHANGING v_treal_aux.
v_treal_conv = v_treal_aux.
ENDIF.
ENDIF.
ELSE.
READ TABLE itab_zycit085 INDEX 1.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
IF itab_zycit036a-waers_real NE itab_zycit085-waersseg.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TOTAIS
IF itab_zycit036-waers_real NE itab_zycit085-waersseg.
* << Fim da inclusão
IF itab_zycit085-ukursseg > 0.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
v_treal_aux = itab_zycit036a-vlreal / itab_zycit085-ukursseg.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TOTAIS
v_treal_aux = itab_zycit036-vlreal /
itab_zycit085-ukursseg.
* << Fim da inclusão
ENDIF.
v_treal_conv = v_treal_aux.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
PERFORM trata_decimais USING itab_zycit036a-waers_real
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TOTAIS
PERFORM trata_decimais USING itab_zycit036-waers_real
* << Fim da inclusão
CHANGING v_treal_conv.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE CARREGA_TOTAIS
ENDIF.
* << Fim da inclusão
PERFORM trata_decimais USING /pws/zycie001-waers_real
CHANGING v_treal_conv.
v_trea = v_trea + v_treal_conv.
* >> Início da inclusão: MODULE CARREGA_TOTAIS
ENDLOOP.
* << Fim da inclusão
ELSE.
v_treal_conv = itab_zycit036a-vlreal.
PERFORM retorna_decimais USING /pws/zycie001-waers_real
CHANGING v_treal_conv.
PERFORM trata_decimais USING /pws/zycie001-waers_real
CHANGING v_treal_conv.
v_trea = v_trea + v_treal_conv.
ENDIF.
IF v_resp EQ '1'.
/pws/zycie001-waers_mov = /pws/zycbt007-waersb.
...