CE PLUS - Nota 001438
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 26/05/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:32:50
Descrição da Nota: ERRO NA EXIBIÇÃO DO ENCERRAMENTO DE PROCESSO SEM EURO
Sintoma
Erro na exibição do custo efetivo e do encerramento de custo de processo na moeda EURO.
Tratamento para Euro X
Solução
Correção da função montante_converte
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01438 Data: 26/05/2006 Hora: 16:33:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01438
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00115
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01400 - 00001 - 6.0 - 00023 - FUNÇÃO DE CONVERSÃO DE VALORES EM DIFERENTES MOEDAS
01437 - 00002 - 6.0 - 00023 - ALTERAÇÃO DE DATA NO EMBARQUE
----------------------------------------------------------------------------------------------------
ERRO NA EXIBIÇÃO DO ENCERRAMENTO DE PROCESSO SEM EURO
----------------------------------------------------------------------------------------------------
Palavras Chave:
MONTANTE_CONVERTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010F01
REPS /PWS/MZYCI010O02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F01
...
IF /pws/zycit000-kurst IS INITIAL.
v_kurst = 'M'.
ELSE.
v_kurst = /pws/zycit000-kurst.
ENDIF.
* >> Início da exclusão: FORM CONVERTER_MOEDA
CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTER_MOEDA
CALL FUNCTION '/PWS/ZYGL_MONTANTE_CONVERTE'
* << Fim da inclusão
EXPORTING
i_montante = p_devlme
i_demoeda = p_deme
i_paramoeda = p_parame
i_ctmoeda = v_kurst
i_dtbase = sy-datum
IMPORTING
e_montante = p_paravlme
e_txc = v_tax
e_defator = v_dfact
EXCEPTIONS
* >> Início da exclusão: FORM CONVERTER_MOEDA
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
fator_nao_encontrado = 3
i_ctmoeda_nao_encontrado = 4
i_dtbase_nao_encontrada = 5
taxa_nao_encontrada = 6
i_montante_nao_encontrado = 7.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTER_MOEDA
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
tabela_categ_nao_configurada = 8
OTHERS = 9
.
* << Fim da inclusão
IF sy-subrc NE 0.
* >> Início da exclusão: FORM CONVERTER_MOEDA
v_demoeda = p_deme.
v_paramoeda = p_parame.
* << Fim da exclusão
* >> Início da exclusão: FORM CONVERTER_MOEDA
.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTER_MOEDA
MESSAGE i061 WITH text-013 p_deme 'para' p_parame.
* << Fim da inclusão
v_medestino = v_meatual.
v_erro_conv = 'S'.
ENDIF.
IF v_tax < 0.
MESSAGE e015 WITH text-066.
...
...
AND v_erro_conv NE 'S'
AND itab_zycit036a-vlreal GT 0 AND
NOT itab_zycit036a-waers_real IS INITIAL.
IF NOT /pws/zycit085-dttax IS INITIAL.
IF /pws/zycit000-flag_desp IS INITIAL.
* >> Início da exclusão: FORM CONVERSOES_DESPESA_EMBARQUE
PERFORM converter_moeda USING itab_zycit036a-vlreal
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERSOES_DESPESA_EMBARQUE
PERFORM converter_moeda USING itab_zycit036a-vlreal
* << Fim da inclusão
itab_zycit036a-waers_real
/pws/zycbt007-waersb
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
...
...
AND v_erro_conv NE 'S'
AND itab_zycit036a-vldif GT 0 AND
NOT itab_zycit036a-waers_dif IS INITIAL.
IF NOT /pws/zycit085-dttax IS INITIAL.
IF /pws/zycit000-flag_desp IS INITIAL.
* >> Início da exclusão: FORM CONVERSOES_DESPESA_EMBARQUE
PERFORM converter_moeda USING itab_zycit036a-vldif
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERSOES_DESPESA_EMBARQUE
PERFORM converter_moeda USING itab_zycit036a-vldif
* << Fim da inclusão
itab_zycit036a-waers_dif
/pws/zycbt007-waersb
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
...
...
ENDLOOP.
APPEND itab_zycit003_custo.
ENDLOOP.
IF v_erro_conv EQ 'S'.
CLEAR v_erro_conv.
* >> Início da exclusão: FORM CUSTEAR_ITENS
MESSAGE w015 WITH text-019 text-020.
* << Fim da exclusão
* >> Início da inclusão: FORM CUSTEAR_ITENS
MESSAGE I015 WITH text-019 text-020.
* << Fim da inclusão
MOVE itab_zycit003[] TO itab_zycit003_custo[].
ENDIF.
ENDFORM.
FORM custear_embarque.
DATA: v_vlplan LIKE /pws/zycie036-vlreal,
...
...
DELETE itab_zycit036_aux2.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM COD_DUPLICADOS
CLEAR itab_zycit036_plan.
* << Fim da exclusão
* >> Início da inclusão: FORM COD_DUPLICADOS
CLEAR: itab_zycit036_plan,
v_erro_m.
* << Fim da inclusão
REFRESH itab_zycit036_plan.
LOOP AT itab_zycit036_aux.
IF itab_zycit036_aux-origem = 'PED'.
MOVE itab_zycit036_aux TO itab_zycit036_plan.
APPEND itab_zycit036_plan.
...
...
AND gjahr EQ it_zycit006_aux2-dt_belnrp(04).
ENDIF.
LOOP AT itab_zycit036_aux2.
PERFORM move_plan_mov_aux.
ENDLOOP.
* >> Início da inclusão: FORM COD_DUPLICADOS
if v_erro_m NE 0.
MESSAGE i061 WITH text-013 v_demoeda 'para' v_paramoeda.
endif.
* << Fim da inclusão
SORT itab_zycit036_aux2 BY nrseq ebeln ebelp codigo origem.
ENDFORM.
...
...
/pws/zycie001-waers
CHANGING v_vlreal.
ELSE.
PERFORM conversao_aux.
ENDIF.
* >> Início da exclusão: FORM CUSTEAR_EMBARQUE
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM CUSTEAR_EMBARQUE
ELSEIF itab_zycit036_aux2-origem NE 'NF' AND
itab_zycit036_aux2-origem NE 'NFC' .
* << Fim da inclusão
PERFORM read_docts USING itab_zycit036_aux2-origem
itab_zycit036_aux2-nrseqori
CHANGING v_dtreal.
* >> Início da inclusão: FORM CUSTEAR_EMBARQUE
IF v_dtreal LT /pws/zycit085-dtuserc.
* << Fim da inclusão
* >> Início da exclusão: FORM CUSTEAR_EMBARQUE
IF v_dtreal LT /pws/zycit085-dtuserc OR
itab_zycit036_aux2-origem NE 'NF' OR
itab_zycit036_aux2-origem NE 'NFC'.
* << Fim da exclusão
PERFORM conversao_vlreal
* >> Início da exclusão: FORM CUSTEAR_EMBARQUE
USING v_vlreal_t itab_zycit036_aux2-waers_real.
* << Fim da exclusão
* >> Início da inclusão: FORM CUSTEAR_EMBARQUE
USING v_vlreal_t itab_zycit036_aux2-waers_real
CHANGING v_vlreal.
* << Fim da inclusão
ELSE.
PERFORM conversao_aux.
ENDIF.
* >> Início da inclusão: FORM CUSTEAR_EMBARQUE
ELSE.
PERFORM conversao_aux.
* << Fim da inclusão
ENDIF.
ELSE.
PERFORM conversao_aux.
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT itab_zycit036a.
* >> Início da inclusão: FORM CUSTEAR_EMBARQUE
CLEAR: v_vlreal.
IF v_erro_conv NE 'S'.
IF itab_zycit036a-waers_real NE /pws/zycie001-waers AND
NOT itab_zycit036a-waers_real IS INITIAL.
IF itab_zycit036_aux2-origem EQ 'FAT'.
CLEAR it_fat.
READ TABLE it_fat WITH KEY
nrseq = itab_zycit036_aux2-nrseqori.
IF it_fat-dtincl LT /pws/zycit085-dtuserc.
PERFORM converter_moeda
USING v_vlreal_t
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.
ELSE.
PERFORM conversao_aux.
ENDIF.
ELSEIF itab_zycit036_aux2-origem NE 'NF' AND
itab_zycit036_aux2-origem NE 'NFC' .
PERFORM read_docts USING itab_zycit036_aux2-origem
itab_zycit036_aux2-nrseqori
CHANGING v_dtreal.
IF v_dtreal LT /pws/zycit085-dtuserc.
PERFORM conversao_vlreal
USING v_vlreal_t itab_zycit036_aux2-waers_real
CHANGING v_vlreal.
ELSE.
PERFORM conversao_aux.
ENDIF.
ELSE.
IF itab_zycit036a-waers_real NE /pws/zycbt007-waersb.
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036a-waers_real
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036a-waers_real
sy-datum
CHANGING v_taxa.
ENDIF.
itab_zycit036a-vlreal = itab_zycit036a-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.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036a-vlreal / v_taxa.
ELSE.
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
LEAVE PROGRAM.
ENDIF.
ENDIF.
ELSE.
PERFORM retorna_decimais USING /pws/zycie001-waers
CHANGING itab_zycit036a-vlreal.
v_vlreal = itab_zycit036a-vlreal.
ENDIF.
/pws/zycie001-vlreal = v_vlreal + /pws/zycie001-vlreal.
/pws/zycie001-waers_real = /pws/zycie001-waers.
ENDIF.
* << Fim da inclusão
/pws/zycie001-vlmov = itab_zycit036a-vlmov +
/pws/zycie001-vlmov.
IF NOT itab_zycit036a-waers_mov IS INITIAL.
/pws/zycie001-waers_mov = itab_zycit036a-waers_mov.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F03
...
ENDIF.
ENDIF.
MOVE itab_zycit036_aux[] TO itab_zycit036_ori2[].
ENDFORM.
FORM move_plan_mov_aux.
* >> Início da exclusão: FORM MOVE_PLAN_MOV_AUX
DATA: v_vlreal LIKE /pws/zycit036-vlmov.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
DATA: v_vlreal LIKE /pws/zycit036-vlmov,
v_valor LIKE /pws/zycit036-vlmov.
* << Fim da inclusão
* >> Início da exclusão: FORM MOVE_PLAN_MOV_AUX
CLEAR: v_taxa, s_msg1.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
CLEAR: v_taxa, s_msg1,
v_valor.
* << Fim da inclusão
SELECT SINGLE land1
FROM t001
INTO t001-land1
WHERE bukrs EQ /pws/zycie001-bukrs.
SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007
...
...
CLEAR: v_vlreal.
v_vlreal = itab_zycit036_aux2-vlreal.
IF itab_zycit036_aux2-origem NE 'FAT'.
PERFORM retorna_decimais USING itab_zycit036_aux2-waers
CHANGING v_vlreal.
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
v_valor = v_vlreal.
* << Fim da inclusão
PERFORM converter_moeda USING
v_vlreal
itab_zycit036_aux2-waers
wa_zycbt007-waersb
CHANGING v_vlreal.
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
if wa_zycbt007-waersb ne itab_zycit036_aux2-waers
and v_valor eq v_vlreal.
v_erro_m = 1.
endif.
* << Fim da inclusão
ELSE.
READ TABLE it_zycit006_aux2 WITH KEY
nrseq = itab_zycit036_aux2-nrseqori.
IF sy-subrc EQ 0 AND it_zycit006_aux2-frpagto EQ 'P'.
v_vlreal = v_vlreal * /pws/zycit085-ukursfre .
...
...
codigo = itab_zycit036_conve-codigo.
PERFORM read_docts USING itab_zycit036-origem
itab_zycit036-nrseqori
CHANGING v_dtreal.
IF v_dtreal LT /pws/zycit085-dtuserc and (
itab_zycit036_aux2-origem NE 'NF' OR
itab_zycit036_aux2-origem NE 'NFC' ) .
PERFORM conversao_vlreal
USING itab_zycit036_conve-vlreal
* >> Início da exclusão: FORM ALTERA_MOEDA
itab_zycit036_conve-waers_real.
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_MOEDA
itab_zycit036_conve-waers_real
changing itab_zycit036_conve-vlreal.
* << Fim da inclusão
ELSE.
PERFORM altera_moeda_aux.
ENDIF.
ELSE.
MOVE: itab_zycit036_conve-vlreal TO itab_zycit036a-vlreal,
itab_zycit036_conve-waers_real TO itab_zycit036a-waers_real.
ENDIF.
CLEAR: v_vlbrl_a, s_msg1, v_vlbrl.
IF itab_zycit036_conve-waers_mov NE v_medestino_a
AND v_erro_conv NE 'S'
...
...
CHANGING v_taxa.
IF v_taxa IS INITIAL.
v_taxa = 1.
ENDIF.
itab_zycit036a-vlreal =
itab_zycit036a-vlreal * v_taxa.
ENDIF.
ELSE.
PERFORM conversao_vlreal
USING itab_zycit036a-vlreal
* >> Início da exclusão: FORM ALTERA_MOEDA
v_medestino_a.
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_MOEDA
v_medestino_a
changing itab_zycit036a-vlreal.
* << Fim da inclusão
v_trea = v_trea + itab_zycit036a-vlreal.
* >> Início da inclusão: FORM ALTERA_MOEDA
ENDIF.
ENDIF.
ELSE.
if itab_zycit036-origem EQ 'NF' OR
itab_zycit036-origem EQ 'NFC'.
SELECT SINGLE * FROM tcurx INTO wa_tcurx WHERE
currkey = itab_zycit036a-waers_real.
IF sy-subrc EQ 0.
PERFORM retorna_decimais USING itab_zycit036a-waers_real
CHANGING itab_zycit036a-vlreal.
ELSE.
PERFORM trata_decimais USING v_medestino_a
CHANGING itab_zycit036a-vlreal.
ENDIF.
IF itab_zycit036a-waers_real NE /pws/zycbt007-waersb.
PERFORM taxa_converte USING itab_zycit036_conve-waers_real
/pws/zycit085-dttax
CHANGING v_taxa.
ELSE.
v_taxa = 1.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM ALTERA_MOEDA
v_vlbrl_a = itab_zycit036a-vlreal * v_taxa.
IF v_medestino_a NE /pws/zycbt007-waersb.
PERFORM taxa_converte USING v_medestino_a
/pws/zycit085-dttax
CHANGING v_taxa.
ELSE.
v_taxa = 1.
ENDIF.
IF NOT v_taxa IS INITIAL.
itab_zycit036a-vlreal = v_vlbrl_a / v_taxa.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM ALTERA_MOEDA
v_trea = v_trea + itab_zycit036a-vlreal.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM ALTERA_MOEDA
IF v_dtreal LT /pws/zycit085-dtuserc and (
itab_zycit036-origem NE 'NF' OR
itab_zycit036-origem NE 'NFC' ) .
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_MOEDA
IF v_dtreal LT /pws/zycit085-dtuserc.
* << Fim da inclusão
PERFORM conversao_vlreal
USING itab_zycit036a-vlreal
* >> Início da exclusão: FORM ALTERA_MOEDA
v_medestino_a.
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_MOEDA
v_medestino_a
changing itab_zycit036a-vlreal.
* << Fim da inclusão
v_trea = v_trea + itab_zycit036a-vlreal.
...
...
v_taxa = 1.
ENDIF.
IF NOT v_taxa IS INITIAL.
itab_zycit036a-vlreal = v_vlbrl_a / v_taxa.
ENDIF.
v_trea = v_trea + itab_zycit036a-vlreal.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM ALTERA_MOEDA
ENDIF.
* << Fim da inclusão
itab_zycit036a-waers_real = v_medestino_a.
IF itab_zycit036a-vlmov IS INITIAL.
CLEAR itab_zycit036a-waers_mov.
ELSE.
v_tmov = v_tmov + itab_zycit036a-vlmov.
ENDIF.
IF itab_zycit036a-vldif IS INITIAL.
CLEAR itab_zycit036a-waers_dif.
ELSE.
v_sdif = v_sdif + itab_zycit036a-vldif.
...
...
ENDIF.
IF NOT itab_zycit027[] IS INITIAL AND itab_zycit026 IS INITIAL.
SELECT * FROM /pws/zycit026
INTO TABLE itab_zycit026
FOR ALL ENTRIES IN itab_zycit027
WHERE nrseq EQ itab_zycit027-nrseq
AND nrpres EQ itab_zycit027-nradto.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM CONVERSAO_VLREAL
FORM conversao_vlreal USING v_real v_waers.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERSAO_VLREAL
FORM conversao_vlreal USING v_real v_waers
changing v_vlreal.
* << Fim da inclusão
PERFORM converter_moeda
USING v_real
v_waers
/pws/zycbt007-waersb
* >> Início da exclusão: FORM CONVERSAO_VLREAL
CHANGING v_vlreal.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERSAO_VLREAL
CHANGING v_real.
* << Fim da inclusão
PERFORM converter_moeda
* >> Início da exclusão: FORM CONVERSAO_VLREAL
USING v_vlreal
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERSAO_VLREAL
USING v_real
* << Fim da inclusão
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da exclusão: FORM CONVERSAO_VLREAL
CHANGING v_real.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERSAO_VLREAL
CHANGING v_vlreal.
* << Fim da inclusão
ENDFORM.
FORM read_docts USING p_origem
p_nrseqori
CHANGING p_data.
CASE p_origem.
WHEN 'AD'.
READ TABLE itab_zycit008 WITH KEY
nrseq = itab_zycit036-nrseqori
tpgto = 'A'.
MOVE itab_zycit008-dtaprov TO p_data.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010O02
...
custo = 'X'.
IF sy-subrc = 0.
IF itab_zycit140-origem = 'NF'.
READ TABLE itab_zycit085 INDEX 1.
IF itab_zycit036a-waers_real EQ itab_zycit085-waersseg.
* >> 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_zycit036a-vlreal / itab_zycit085-ukursseg.
* << Fim da inclusão
v_treal_conv = v_treal_aux.
ELSE.
PERFORM taxa_converte USING itab_zycit036a-waers_real
itab_zycit085-dttax
CHANGING v_taxa.
...
...
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 retorna_decimais USING itab_zycit036a-waers_real
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TOTAIS
PERFORM trata_decimais USING itab_zycit036a-waers_real
* << Fim da inclusão
CHANGING v_treal_conv.
ELSE.
PERFORM converter_moeda USING
itab_zycit036a-vlreal
itab_zycit036a-waers_real
...
...
ENDIF.
ENDIF.
ELSE.
READ TABLE itab_zycit085 INDEX 1.
IF itab_zycit036a-waers_real ne itab_zycit085-waersseg.
* >> 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_zycit036a-vlreal / itab_zycit085-ukursseg.
* << Fim da inclusão
v_treal_conv = v_treal_aux.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
PERFORM retorna_decimais USING itab_zycit036a-waers_real
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TOTAIS
PERFORM trata_decimais USING itab_zycit036a-waers_real
* << Fim da inclusão
CHANGING v_treal_conv.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
PERFORM retorna_decimais USING /pws/zycie001-waers_real
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TOTAIS
PERFORM trata_decimais USING /pws/zycie001-waers_real
* << Fim da inclusão
CHANGING v_treal_conv.
v_trea = v_trea + v_treal_conv.
ELSE.
v_treal_conv = itab_zycit036a-vlreal.
PERFORM retorna_decimais USING /pws/zycie001-waers_real
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010TOP
...
* >> Início da inclusão:
Data: v_erro_m like sy-subrc,
v_erro_m1 like sy-subrc,
v_demoeda like /pws/zycit036-waers,
v_paramoeda like /pws/zycit036-waers.
* << Fim da inclusão
...