CE PLUS - Nota 007150
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 15/08/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:24:08
Descrição da Nota: EMBARQUE COM MAIS DE 1 ITEM PEGAR DT. INICIO PARA CALCULAR VL.PLANEJDADO
Sintoma
O Embarque esta recalculando toda vez o planejado quando possui moedas diferentes
Solução
Fazer um novo tratamento para pegar data de inicio se o embarque possuir mais de um item com moeda
diferente
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07150 Data: 15/08/2008 Hora: 15:13:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07150
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00059
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03425 - 00001 - 7.0 - 00001 - TRATAMENTO DE REGIME TRIBUTÁRIO PRÓPRIO PARA O ICMS E PIS/COFINS
06867 - 00002 - 7.0 - 00006 - AO CRIAR FATURA COM PEDIDOS DE MOEDAS DIFERENTES FICA ERRADO.
----------------------------------------------------------------------------------------------------
EMBARQUE COM MAIS DE 1 ITEM PEGAR DT. INICIO PARA CALCULAR VL.PLANEJDADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMABRQUE - VL. PLANEJADO - DT INICIO - MOEDAS - DIFERENTES
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_RATEIO_CUSTO
REPS /PWS/MZYCI001F02
REPS /PWS/MZYCI010F01
REPS /PWS/MZYCI010F03
REPS /PWS/MZYCI010I01
REPS /PWS/MZYCI010O02
REPS /PWS/MZYCI037F01
REPS /PWS/ZYCIR035
REPS /PWS/ZYCIR495
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_RATEIO_CUSTO
...
itab_zycit036_aux-nrseqori = /pws/zycit085-nrseqdi.
itab_zycit036_aux-usernamec = sy-uname.
itab_zycit036_aux-dtuserc = sy-datum.
itab_zycit036_aux-hruserc = sy-uzeit.
IF /pws/zycit085-mdadicao EQ 'N'.
IF itab_zycit036_aux-waers NE /pws/zycit085-waersfob.
PERFORM converter_moeda(/pws/sapmzyci010) USING
itab_zycit036_aux-netpr
itab_zycit036_aux-waers
/pws/zycit085-waersfob
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036_aux-netpr.
itab_zycit036_aux-waers = /pws/zycit085-waersfob.
ENDIF.
ENDIF.
MODIFY itab_zycit036_aux.
ENDLOOP.
LOOP AT itab_zycit036_aux.
MOVE itab_zycit036_aux TO itab_zycit036.
APPEND itab_zycit036.
ENDLOOP.
...
...
itab_zycit036-origem = 'NF'.
itab_zycit036-usernamec = sy-uname.
itab_zycit036-dtuserc = sy-datum.
itab_zycit036-hruserc = sy-uzeit.
IF /pws/zycit085-mdadicao EQ 'N'.
IF itab_zycit036-waers NE /pws/zycit085-waersfob.
PERFORM converter_moeda(/pws/sapmzyci010) USING
itab_zycit036-netpr
itab_zycit036-waers
/pws/zycit085-waersfob
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036-netpr.
itab_zycit036-waers = /pws/zycit085-waersfob.
ENDIF.
ENDIF.
MODIFY itab_zycit036.
ENDLOOP.
MOVE itab_zycit036[] TO itab_zycit036_aux[].
LOOP AT itab_despesa WHERE netpr NE 0.
CLEAR: v_tot_desp.
LOOP AT itab_zycit003 WHERE servico IS initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F02
...
IF sy-subrc NE 0.
MESSAGE w120.
ENDIF.
IF p_waers_real NE /pws/zycie001-waers.
CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'
EXPORTING
i_montante = v_montante
i_demoeda = p_waers_real
i_paramoeda = /pws/zycbt007-waersb
i_ctmoeda = v_kurst
* >> Início da exclusão: FORM BUSCA_TAXA_DIA
i_dtbase = sy-datlo
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_TAXA_DIA
i_dtbase = /pws/zycie001-dtinicio
* << Fim da inclusão
IMPORTING
e_montante = v_montante
e_txc = p_taxa
EXCEPTIONS
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
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F01
...
NOT itab_zycit036-waers IS INITIAL.
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036-waers
/pws/zycit085-dttax
CHANGING v_taxa.
v_vlbrl_a = itab_zycit036-netpr * v_taxa.
MOVE v_vlbrl_a TO v_vlbrl.
PERFORM converter_moeda USING v_vlbrl
/pws/zycbt007-waersb
v_medestino
* >> Início da inclusão: FORM CONVERSOES_DESPESA_ITEM
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036-netpr.
ELSEIF NOT /pws/zycit085-dttax IS INITIAL AND
s_msg1 = 'X'.
PERFORM converter_moeda USING itab_zycit036-netpr
itab_zycit036-waers
/pws/zycbt007-waersb
* >> Início da inclusão: FORM CONVERSOES_DESPESA_ITEM
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino
* >> Início da inclusão: FORM CONVERSOES_DESPESA_ITEM
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036-netpr.
ENDIF.
itab_zycit036-waers = v_medestino.
ENDIF.
CLEAR: v_vlbrl_a, s_msg1, v_vlbrl.
IF itab_zycit036-waers_real NE v_medestino
AND v_erro_conv NE 'S'
AND itab_zycit036-vlreal GT 0 AND
NOT itab_zycit036-waers_real IS INITIAL.
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036-waers_real
/pws/zycit085-dttax
CHANGING v_taxa.
v_vlbrl_a = itab_zycit036-vlreal * v_taxa.
MOVE v_vlbrl_a TO v_vlbrl.
PERFORM converter_moeda USING v_vlbrl
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM CONVERSOES_DESPESA_ITEM
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036-vlreal.
ELSEIF NOT /pws/zycit085-dttax IS INITIAL AND
s_msg1 = 'X'.
PERFORM converter_moeda USING itab_zycit036-vlreal
itab_zycit036-waers_real
/pws/zycbt007-waersb
* >> Início da inclusão: FORM CONVERSOES_DESPESA_ITEM
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino
* >> Início da inclusão: FORM CONVERSOES_DESPESA_ITEM
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036-vlreal.
ENDIF.
itab_zycit036-waers_real = v_medestino.
ENDIF.
CLEAR: v_vlbrl_a, s_msg1, v_vlbrl.
IF itab_zycit036-waers_mov NE v_medestino
AND v_erro_conv NE 'S'
AND itab_zycit036-vlmov GT 0 AND
NOT itab_zycit036-waers_mov IS INITIAL.
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036-waers_mov
/pws/zycit085-dttax
CHANGING v_taxa.
v_vlbrl_a = itab_zycit036-vlmov * v_taxa.
MOVE v_vlbrl_a TO v_vlbrl.
PERFORM converter_moeda USING v_vlbrl
/pws/zycbt007-waersb
v_medestino
* >> Início da inclusão: FORM CONVERSOES_DESPESA_ITEM
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036-vlmov.
ELSEIF NOT /pws/zycit085-dttax IS INITIAL AND
s_msg1 = 'X'.
PERFORM converter_moeda USING itab_zycit036-vlmov
itab_zycit036-waers_mov
/pws/zycbt007-waersb
* >> Início da inclusão: FORM CONVERSOES_DESPESA_ITEM
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl
/pws/zycbt007-waersb
v_medestino
* >> Início da inclusão: FORM CONVERSOES_DESPESA_ITEM
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036-vlmov.
ENDIF.
itab_zycit036-waers_mov = v_medestino.
ENDIF.
CLEAR: v_vlbrl_a, s_msg1, v_vlbrl.
IF itab_zycit036-waers_dif NE v_medestino
AND v_erro_conv NE 'S'
AND itab_zycit036-vldif GT 0 AND
NOT itab_zycit036-waers_dif IS INITIAL.
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036-waers_dif
/pws/zycit085-dttax
CHANGING v_taxa.
v_vlbrl_a = itab_zycit036-vldif * v_taxa.
MOVE v_vlbrl_a TO v_vlbrl.
PERFORM converter_moeda USING v_vlbrl
/pws/zycbt007-waersb
v_medestino
* >> Início da inclusão: FORM CONVERSOES_DESPESA_ITEM
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036-vldif.
ELSEIF NOT /pws/zycit085-dttax IS INITIAL AND
s_msg1 = 'X'.
PERFORM converter_moeda USING itab_zycit036-vldif
itab_zycit036-waers_dif
/pws/zycbt007-waersb
* >> Início da inclusão: FORM CONVERSOES_DESPESA_ITEM
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl
/pws/zycbt007-waersb
v_medestino
* >> Início da inclusão: FORM CONVERSOES_DESPESA_ITEM
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036-vldif.
ENDIF.
itab_zycit036-waers_dif = v_medestino.
ENDIF.
IF v_erro_conv NE 'S'.
MODIFY itab_zycit036 INDEX tc_despesas-current_line.
ENDIF.
ELSEIF v_resp EQ '1'.
READ TABLE itab_zycit036_ini WITH KEY nrseq = itab_zycit036-nrseq
ebeln = itab_zycit036-ebeln
...
...
IF v_linha EQ sy-stepl.
IF NOT v_medestino IS INITIAL AND v_erro_conv NE 'S'.
v_meatual = v_medestino.
ENDIF.
CLEAR v_erro_conv.
ENDIF.
ENDFORM.
FORM converter_moeda USING p_devlme
p_deme
p_parame
* >> Início da inclusão: FORM CONVERTER_MOEDA
p_data
* << Fim da inclusão
CHANGING p_paravlme.
DATA: v_ctmoeda LIKE tcurr-kurst VALUE 'M',
v_tax LIKE tcurr-ukurs,
v_dfact LIKE tcurr-ffact,
v_kurst LIKE /pws/zycit000-kurst.
DATA: v_deme TYPE waers,
v_parame TYPE waers.
* >> Início da inclusão: FORM CONVERTER_MOEDA
DATA: v_data_conv LIKE /pws/zycit001-dtinicio.
* << Fim da inclusão
IF p_devlme NE 0.
IF p_deme IS INITIAL.
v_deme = /pws/zycbt007-waersb.
ELSE.
v_deme = p_deme.
ENDIF.
IF p_parame IS INITIAL.
v_parame = /pws/zycbt007-waersb.
ELSE.
v_parame = p_parame.
...
...
v_kurst = 'M'.
ELSE.
v_kurst = /pws/zycit000-kurst.
ENDIF.
CALL FUNCTION '/PWS/ZYGL_MONTANTE_CONVERTE'
EXPORTING
i_montante = p_devlme
i_demoeda = v_deme
i_paramoeda = v_parame
i_ctmoeda = v_kurst
* >> Início da exclusão: FORM CONVERTER_MOEDA
i_dtbase = sy-datlo
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTER_MOEDA
i_dtbase = p_data
* << Fim da inclusão
IMPORTING
e_montante = p_paravlme
e_txc = v_tax
e_defator = v_dfact
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
...
...
v_ebeln = itab_zycit003-ebeln.
v_ebelp = itab_zycit003-ebelp.
CLEAR v_vlplan.
IF v_erro_conv NE 'S'.
IF itab_zycit036_plan-waers NE /pws/zycie001-waers.
IF /pws/zycit000-flag_desp IS INITIAL.
PERFORM converter_moeda
USING itab_zycit036_plan-netpr
itab_zycit036_plan-waers
/pws/zycbt007-waersb
* >> Início da inclusão: FORM CUSTEAR_ITENS
sy-datlo
* << Fim da inclusão
CHANGING v_vlplan.
PERFORM converter_moeda
USING v_vlplan
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da inclusão: FORM CUSTEAR_ITENS
sy-datlo
* << Fim da inclusão
CHANGING v_vlplan.
ELSE.
...
...
itab_zycit003_custo-waers = /pws/zycie001-waers.
ENDLOOP.
CLEAR v_vlreal.
IF v_erro_conv NE 'S'.
IF itab_zycit036_aux2-waers_real NE /pws/zycie001-waers.
IF itab_zycit036_aux2-origem EQ 'FAT'.
PERFORM converter_moeda
USING itab_zycit036_aux2-vlreal
itab_zycit036_aux2-waers_real
/pws/zycbt007-waersb
* >> Início da inclusão: FORM CUSTEAR_ITENS
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
PERFORM converter_moeda
USING v_vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da inclusão: FORM CUSTEAR_ITENS
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
PERFORM trata_decimais USING /pws/zycie001-waers
CHANGING v_vlreal.
ELSEIF itab_zycit036_aux2-origem EQ 'PC'.
READ TABLE it_pc WITH KEY
nrseq = itab_zycit036_aux2-nrseq
nrpres = itab_zycit036_aux2-nrseqori.
IF it_pc-dtaprov LT /pws/zycit085-dtuserc.
PERFORM converter_moeda
USING itab_zycit036_aux2-vlreal
itab_zycit036_aux2-waers_real
/pws/zycbt007-waersb
* >> Início da inclusão: FORM CUSTEAR_ITENS
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
PERFORM converter_moeda
USING v_vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da inclusão: FORM CUSTEAR_ITENS
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
PERFORM trata_decimais USING /pws/zycie001-waers
...
...
ENDIF.
ELSEIF itab_zycit036_aux2-origem EQ 'DC'.
READ TABLE it_dc WITH KEY
nrseq = itab_zycit036_aux2-nrseq
nradto = itab_zycit036_aux2-nrseqori.
IF it_dc-dtaprov LT /pws/zycit085-dtuserc.
PERFORM converter_moeda
USING itab_zycit036_aux2-vlreal
itab_zycit036_aux2-waers_real
/pws/zycbt007-waersb
* >> Início da inclusão: FORM CUSTEAR_ITENS
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
PERFORM converter_moeda
USING v_vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da inclusão: FORM CUSTEAR_ITENS
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
PERFORM trata_decimais USING /pws/zycie001-waers
...
...
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
ELSE.
LEAVE PROGRAM.
ENDIF.
ELSE.
IF /pws/zycit000-flag_desp IS INITIAL.
PERFORM converter_moeda
USING itab_zycit036_aux2-vlreal
itab_zycit036_aux2-waers_real
/pws/zycbt007-waersb
* >> Início da inclusão: FORM CUSTEAR_ITENS
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036_aux2-vlreal.
PERFORM converter_moeda
USING itab_zycit036_aux2-vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da inclusão: FORM CUSTEAR_ITENS
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036_aux2-vlreal.
ELSE.
...
...
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ELSE.
IF /pws/zycit000-flag_desp IS INITIAL.
PERFORM converter_moeda
USING itab_zycit036_aux2-vlreal
/pws/zycie001-waers
/pws/zycbt007-waersb
* >> Início da inclusão: FORM CUSTEAR_ITENS
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036_aux2-vlreal.
PERFORM converter_moeda
USING itab_zycit036_aux2-vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da inclusão: FORM CUSTEAR_ITENS
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036_aux2-vlreal.
ELSE.
...
...
CLEAR: itab_zycit036_plan.
LOOP AT itab_zycit036_plan.
CLEAR: v_vlplan.
IF v_erro_conv NE 'S'.
IF itab_zycit036_plan-waers NE /pws/zycie001-waers AND
NOT itab_zycit036_plan-waers IS INITIAL.
PERFORM converter_moeda
USING itab_zycit036_plan-netpr
itab_zycit036_plan-waers
/pws/zycbt007-waersb
* >> Início da inclusão: FORM CUSTEAR_EMBARQUE
sy-datlo
* << Fim da inclusão
CHANGING v_vlplan.
PERFORM converter_moeda
USING v_vlplan
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da inclusão: FORM CUSTEAR_EMBARQUE
sy-datlo
* << Fim da inclusão
CHANGING v_vlplan.
ELSE.
...
...
v_vlreal_t = itab_zycit036_aux2-vlreal.
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
* >> Início da inclusão: FORM CUSTEAR_EMBARQUE
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
PERFORM converter_moeda
USING v_vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da inclusão: FORM CUSTEAR_EMBARQUE
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F03
...
DATA: v_vlbrl LIKE /pws/zycie036-vlreal.
CHECK v_erro_conv NE 'S'.
IF v_meatual NE v_medestino AND NOT v_medestino IS INITIAL AND
v_medestino NE /pws/zycie001-waers.
CLEAR v_vlbrl.
IF itab_zycit036-waers_real NE v_medestino
AND v_erro_conv NE 'S'.
PERFORM converter_moeda USING itab_zycit036-vlreal
itab_zycit036-waers_real
/pws/zycbt007-waersb
* >> Início da inclusão: FORM CONVERSOES_DESPESA_ITEM1
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl.
PERFORM converter_moeda USING v_vlbrl
/pws/zycbt007-waersb
v_medestino
* >> Início da inclusão: FORM CONVERSOES_DESPESA_ITEM1
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036-vlreal.
itab_zycit036-waers_real = v_medestino.
ENDIF.
...
...
itab_zycit036_aux2-codigo EQ 'FRETEI' AND
( itab_zycit036_aux2-origem NE 'NF' OR
itab_zycit036_aux2-origem NE 'DI' ).
ELSE.
PERFORM retorna_decimais USING itab_zycit036_aux2-waers
CHANGING itab_zycit036_aux2-netpr.
PERFORM converter_moeda USING
itab_zycit036_aux2-netpr
itab_zycit036_aux2-waers
wa_zycbt007-waersb
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036_aux2-vlmov.
ENDIF.
ENDIF.
IF itab_zycit036_aux2-origem NE 'EST'.
itab_zycit036_aux2-vldif = itab_zycit036_aux2-vlreal -
itab_zycit036_aux2-vlmov.
itab_zycit036_aux2-waers_dif = wa_zycbt007-waersb.
ENDIF.
MODIFY itab_zycit036_aux2.
ELSE.
...
...
v_vlreal = v_vlreal * /pws/zycit085-ukursfre.
v_arred = v_arre2 * /pws/zycit085-ukursfre.
ELSEIF itab_zycit036_aux2-codigo EQ 'SEGURO'.
v_vlreal = v_vlreal * /pws/zycit085-ukursseg.
v_arred = v_arre2 * /pws/zycit085-ukursseg.
ELSE.
PERFORM converter_moeda USING
v_vlreal
itab_zycit036_aux2-waers_real
wa_zycbt007-waersb
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
PERFORM converter_moeda USING
v_arre2
itab_zycit036_aux2-waers_real
wa_zycbt007-waersb
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
sy-datlo
* << Fim da inclusão
CHANGING v_arred.
ENDIF.
...
...
v_vlreal = v_vlreal * /pws/zycit085-ukursfre.
v_arred = v_arre2 * /pws/zycit085-ukursfre.
ELSEIF itab_zycit036_aux2-codigo EQ 'SEGURO'.
v_vlreal = v_vlreal * /pws/zycit085-ukursseg.
v_arred = v_arre2 * /pws/zycit085-ukursseg.
ELSE.
PERFORM converter_moeda USING
v_vlreal
itab_zycit036_aux2-waers_real
wa_zycbt007-waersb
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
PERFORM converter_moeda USING
v_arre2
itab_zycit036_aux2-waers_real
wa_zycbt007-waersb
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
sy-datlo
* << Fim da inclusão
CHANGING v_arred.
ENDIF.
...
...
codigo = itab_zycit036a-codigo
origem = itab_zycit036-origem
custo = 'X' .
IF itab_zycit140-origem EQ 'NF' .
IF NOT /pws/zycit085-dttax IS INITIAL.
IF /pws/zycit000-flag_desp IS INITIAL.
PERFORM converter_moeda USING
itab_zycit036_conve-netpr
itab_zycit036_conve-waers
/pws/zycbt007-waersb
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-netpr.
ELSE.
IF itab_zycit036_conve-waers NE /pws/zycbt007-waersb.
...
...
IF NOT v_taxa IS INITIAL.
itab_zycit036a-netpr = v_vlbrl_a / v_taxa.
ENDIF.
ENDIF.
ELSEIF NOT /pws/zycit085-dttax IS INITIAL AND
s_msg1 = 'X'.
PERFORM converter_moeda
USING itab_zycit036_conve-netpr
itab_zycit036_conve-waers
/pws/zycbt007-waersb
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-netpr.
ENDIF.
ELSEIF itab_zycit140-origem EQ 'FAT'.
...
...
belnr = itab_zycit006-belnr_p
gjahr = itab_zycit006-dt_belnrp(04).
IF sy-subrc EQ 0 AND NOT it_bkpf_aux-kursf IS INITIAL.
v_vlbrl_a = it_bkpf_aux-kursf.
itab_zycit036a-netpr =
itab_zycit036_conve-netpr * it_bkpf_aux-kursf.
v_vlbrl_a = itab_zycit036a-netpr.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-netpr.
MOVE:
v_medestino_a TO itab_zycit036a-waers.
ENDIF.
ENDIF.
ELSE.
IF NOT /pws/zycit085-dttax IS INITIAL.
IF /pws/zycit000-flag_desp IS INITIAL.
PERFORM converter_moeda USING
itab_zycit036_conve-netpr
itab_zycit036_conve-waers
/pws/zycbt007-waersb
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-netpr.
ELSE.
IF itab_zycit036_conve-waers NE /pws/zycbt007-waersb.
...
...
IF NOT v_taxa IS INITIAL.
itab_zycit036a-netpr = v_vlbrl_a / v_taxa.
ENDIF.
ENDIF.
ELSEIF NOT /pws/zycit085-dttax IS INITIAL AND
s_msg1 = 'X'.
PERFORM converter_moeda
USING itab_zycit036_conve-netpr
itab_zycit036_conve-waers
/pws/zycbt007-waersb
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-netpr.
ENDIF.
ENDIF.
...
...
codigo = itab_zycit036a-codigo
origem = itab_zycit036-origem
custo = 'X' .
IF itab_zycit140-origem EQ 'NF' .
IF NOT /pws/zycit085-dttax IS INITIAL.
IF /pws/zycit000-flag_desp IS INITIAL.
PERFORM converter_moeda USING
itab_zycit036_conve-vlreal
itab_zycit036_conve-waers
/pws/zycbt007-waersb
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-vlreal
.
ELSE.
...
...
IF NOT v_taxa IS INITIAL.
itab_zycit036a-vlreal = v_vlbrl_a / v_taxa.
ENDIF.
ENDIF.
ELSEIF NOT /pws/zycit085-dttax IS INITIAL AND
s_msg1 = 'X'.
PERFORM converter_moeda
USING itab_zycit036_conve-vlreal
itab_zycit036_conve-waers
/pws/zycbt007-waersb
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-vlreal.
ENDIF.
ELSEIF itab_zycit140-origem EQ 'FAT'.
...
...
belnr = itab_zycit006-belnr_p
gjahr = itab_zycit006-dt_belnrp(04).
IF sy-subrc EQ 0 AND NOT it_bkpf_aux-kursf IS INITIAL.
v_vlbrl_a = it_bkpf_aux-kursf.
itab_zycit036a-vlreal =
itab_zycit036_conve-vlreal * it_bkpf_aux-kursf.
v_vlbrl_a = itab_zycit036a-vlreal.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-vlreal.
MOVE:
v_medestino_a TO itab_zycit036a-waers_real.
ENDIF.
ENDIF.
ELSE.
PERFORM read_docts USING itab_zycit036-origem
itab_zycit036-nrseqori
CHANGING v_dtreal.
IF v_dtreal < /pws/zycit085-dtuserc.
...
...
ENDIF.
IF NOT v_taxa IS INITIAL.
itab_zycit036a-vlmov = v_vlbrl_a / v_taxa.
ENDIF.
ELSEIF NOT /pws/zycit085-dttax IS INITIAL AND
s_msg1 = 'X'.
PERFORM converter_moeda
USING itab_zycit036_conve-vlmov
itab_zycit036_conve-waers_mov
/pws/zycbt007-waersb
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-vlmov.
ENDIF.
ELSEIF itab_zycit140-origem EQ 'FAT'.
...
...
IF sy-subrc EQ 0 AND NOT it_bkpf_aux-kursf IS INITIAL.
v_vlbrl_a = it_bkpf_aux-kursf.
IF it_bkpf_aux-waers = 'USD' AND v_medestino_a = 'USD'.
itab_zycit036a-vlmov =
itab_zycit036_conve-vlmov / it_bkpf_aux-kursf.
ELSE.
PERFORM converter_moeda
USING itab_zycit036_conve-vlmov
itab_zycit036_conve-waers_mov
/pws/zycbt007-waersb
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-vlmov.
ENDIF.
MOVE:
...
...
ENDIF.
MOVE:
v_medestino_a TO itab_zycit036a-waers_mov.
ELSE.
IF NOT /pws/zycit085-dttax IS INITIAL.
IF /pws/zycit000-flag_desp IS INITIAL.
PERFORM converter_moeda USING
itab_zycit036_conve-vlmov
itab_zycit036_conve-waers_mov
/pws/zycbt007-waersb
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-vlmov.
ELSE.
IF itab_zycit036_conve-waers_mov NE /pws/zycbt007-waersb.
...
...
IF NOT v_taxa IS INITIAL.
itab_zycit036a-vlmov = v_vlbrl_a / v_taxa.
ENDIF.
ENDIF.
ELSEIF NOT /pws/zycit085-dttax IS INITIAL AND
s_msg1 = 'X'.
PERFORM converter_moeda USING
itab_zycit036_conve-vlmov
itab_zycit036_conve-waers_mov
/pws/zycbt007-waersb
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-vlmov.
ENDIF.
SELECT SINGLE * FROM tcurx INTO wa_tcurx WHERE
...
...
CLEAR: v_vlbrl_a, s_msg1, v_vlbrl.
IF itab_zycit036_conve-waers_dif NE v_medestino_a
AND v_erro_conv NE 'S'
AND NOT itab_zycit036_conve-waers_dif IS INITIAL.
IF NOT /pws/zycit085-dttax IS INITIAL.
IF /pws/zycit000-flag_desp IS INITIAL.
PERFORM converter_moeda USING
itab_zycit036_conve-vldif
itab_zycit036_conve-waers_dif
/pws/zycbt007-waersb
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-vldif.
ELSE.
IF itab_zycit036_conve-waers_dif NE /pws/zycbt007-waersb.
...
...
IF NOT v_taxa IS INITIAL.
itab_zycit036a-vldif = v_vlbrl_a / v_taxa.
ENDIF.
ENDIF.
ELSEIF NOT /pws/zycit085-dttax IS INITIAL AND
s_msg1 = 'X'.
PERFORM converter_moeda USING
itab_zycit036_conve-vldif
itab_zycit036_conve-waers_dif
/pws/zycbt007-waersb
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-vldif.
ENDIF.
SELECT SINGLE * FROM tcurx INTO wa_tcurx WHERE
...
...
ENDIF.
ENDFORM.
FORM conversao_vlreal USING v_real v_waers
CHANGING v_vlreal.
DATA: v_reali TYPE /pws/zycit036-vlreal.
v_reali = v_real.
PERFORM converter_moeda
USING v_real
v_waers
/pws/zycbt007-waersb
* >> Início da inclusão: FORM CONVERSAO_VLREAL
sy-datlo
* << Fim da inclusão
CHANGING v_reali.
PERFORM converter_moeda
USING v_reali
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da inclusão: FORM CONVERSAO_VLREAL
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
ENDFORM.
...
...
MOVE itab_zycit026-dtaprov TO p_data.
ENDCASE.
ENDFORM.
FORM altera_moeda_aux.
IF NOT /pws/zycit085-dttax IS INITIAL.
IF /pws/zycit000-flag_desp IS INITIAL.
PERFORM converter_moeda USING
itab_zycit036_conve-vlreal
itab_zycit036_conve-waers_real
/pws/zycbt007-waersb
* >> Início da inclusão: FORM ALTERA_MOEDA_AUX
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA_AUX
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-vlreal.
ELSE.
IF itab_zycit036_conve-waers_real NE /pws/zycbt007-waersb.
...
...
IF NOT v_taxa IS INITIAL.
itab_zycit036a-vlreal = v_vlbrl_a / v_taxa.
ENDIF.
ENDIF.
ELSEIF NOT /pws/zycit085-dttax IS INITIAL AND
s_msg1 = 'X'.
PERFORM converter_moeda USING
itab_zycit036_conve-vlreal
itab_zycit036_conve-waers_real
/pws/zycbt007-waersb
* >> Início da inclusão: FORM ALTERA_MOEDA_AUX
sy-datlo
* << Fim da inclusão
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
* >> Início da inclusão: FORM ALTERA_MOEDA_AUX
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-vlreal.
ENDIF.
SELECT SINGLE * FROM tcurx INTO wa_tcurx WHERE
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010I01
...
itab_zycit036a-vlmov = itab_zycit036a-netpr.
itab_zycit036a-waers_mov = itab_zycit036a-waers.
ENDIF.
itab_zycit036a-vldif = itab_zycit036a-vlreal -
itab_zycit036a-vlmov.
itab_zycit036a-waers_dif = itab_zycit036a-waers.
PERFORM converter_moeda USING
itab_zycit036a-vlmov
itab_zycit036a-waers_mov
/pws/zycbt007-waersb
* >> Início da inclusão: MODULE USER_COMMAND_0200
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-vlmov.
itab_zycit036a-waers_mov = /pws/zycbt007-waersb.
PERFORM converter_moeda USING
itab_zycit036a-vldif
itab_zycit036a-waers_dif
/pws/zycbt007-waersb
* >> Início da inclusão: MODULE USER_COMMAND_0200
sy-datlo
* << Fim da inclusão
CHANGING itab_zycit036a-vldif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010O02
...
MOVE-corresponding /pws/zycit442 TO itab_zycit085.
APPEND itab_zycit085.
ENDIF.
LOOP AT itab_zycit036a.
IF itab_zycit036a-waers NE /pws/zycie001-waers_plan
AND NOT itab_zycit036a-netpr IS INITIAL.
PERFORM converter_moeda USING
itab_zycit036a-netpr
itab_zycit036a-waers
/pws/zycie001-waers_plan
* >> Início da inclusão: MODULE CARREGA_TOTAIS
sy-datlo
* << Fim da inclusão
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.
...
...
/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
* >> Início da inclusão: MODULE CARREGA_TOTAIS
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
PERFORM converter_moeda
USING v_vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da inclusão: MODULE CARREGA_TOTAIS
sy-datlo
* << Fim da inclusão
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
* >> Início da inclusão: MODULE CARREGA_TOTAIS
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
PERFORM converter_moeda
USING v_vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da inclusão: MODULE CARREGA_TOTAIS
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
ELSE.
...
...
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
* >> Início da inclusão: MODULE CARREGA_TOTAIS
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
PERFORM converter_moeda
USING v_vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da inclusão: MODULE CARREGA_TOTAIS
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
ELSE.
...
...
ENDIF.
ENDIF.
ENDIF.
PERFORM trata_decimais USING itab_zycit036-waers_real
CHANGING v_treal_conv.
ELSE.
PERFORM converter_moeda USING
itab_zycit036-vlreal
itab_zycit036-waers_real
/pws/zycie001-waers_real
* >> Início da inclusão: MODULE CARREGA_TOTAIS
sy-datlo
* << Fim da inclusão
CHANGING v_treal_aux.
v_treal_conv = v_treal_aux.
ENDIF.
ENDIF.
ELSE.
READ TABLE itab_zycit085 INDEX 1.
IF itab_zycit036-waers_real NE itab_zycit085-waersfob.
IF itab_zycit085-ukursfob > 0.
v_treal_aux = itab_zycit036-vlreal /
itab_zycit085-ukursfob.
...
...
v_tmov_conv = v_tmov_aux.
ENDIF.
ENDIF.
PERFORM trata_decimais USING itab_zycit036a-waers_real
CHANGING v_treal_conv.
ELSE.
PERFORM converter_moeda USING
itab_zycit036a-vlmov
itab_zycit036a-waers_mov
/pws/zycie001-waers_mov
* >> Início da inclusão: MODULE CARREGA_TOTAIS
sy-datlo
* << Fim da inclusão
CHANGING v_tmov_aux.
v_tmov_conv = v_tmov_aux.
ENDIF.
ENDIF.
ELSE.
IF itab_zycit036a-codigo = 'C&F'.
READ TABLE itab_zycit140 WITH KEY codigo = itab_zycit036a-codigo
custo = 'X'.
IF itab_zycit140-origem EQ 'FAT'.
READ TABLE itab_zycit036 WITH KEY
...
...
v_tmov = v_tmov + v_tmov_conv.
ELSE.
v_tmov = v_tmov + itab_zycit036a-vlmov.
ENDIF.
IF itab_zycit036a-waers_dif NE /pws/zycie001-waers_dif
AND NOT itab_zycit036a-vldif IS INITIAL.
PERFORM converter_moeda USING
itab_zycit036a-vldif
itab_zycit036a-waers_dif
/pws/zycie001-waers_dif
* >> Início da inclusão: MODULE CARREGA_TOTAIS
sy-datlo
* << Fim da inclusão
CHANGING v_tmov_aux.
v_tdif_conv = v_tmov_aux.
PERFORM trata_decimais USING /pws/zycie001-waers_dif
CHANGING v_tdif_conv.
PERFORM retorna_decimais USING /pws/zycie001-waers_dif
CHANGING v_tdif_conv.
v_sdif = v_sdif + v_tdif_conv .
ELSE.
v_sdif = v_sdif + itab_zycit036a-vldif.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI037F01
...
SELECT * FROM /pws/zycit029 INTO TABLE it_zycit029 WHERE codmod = 'D'
AND land1 EQ t001-land1.
LOOP AT it_zycit201.
v_vlplan = it_zycit201-netpr.
s_waers = it_zycit201-waers.
IF it_zycit201-waers NE /pws/zycie001-waers.
PERFORM converter_moeda(/pws/sapmzyci010)
USING it_zycit201-netpr
it_zycit201-waers
/pws/zycbt007-waersb
* >> Início da inclusão: FORM LOAD_ALL
sy-datlo
* << Fim da inclusão
CHANGING v_vlplan.
PERFORM converter_moeda(/pws/sapmzyci010)
USING v_vlplan
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da inclusão: FORM LOAD_ALL
sy-datlo
* << Fim da inclusão
CHANGING v_vlplan.
ENDIF.
v_vlreal = it_zycit201-vlreal.
s_w_real = /pws/zycie001-waers.
IF it_zycit201-waers_real NE /pws/zycie001-waers.
PERFORM trata_decimais(/pws/sapmzyci010)
USING /pws/zycie001-waers
CHANGING it_zycit201-vlreal.
PERFORM converter_moeda(/pws/sapmzyci010) USING it_zycit201-vlreal
it_zycit201-waers_real
/pws/zycbt007-waersb
* >> Início da inclusão: FORM LOAD_ALL
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
PERFORM converter_moeda(/pws/sapmzyci010) USING v_vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
* >> Início da inclusão: FORM LOAD_ALL
sy-datlo
* << Fim da inclusão
CHANGING v_vlreal.
ENDIF.
v_vlmov = it_zycit201-vlmov.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR035
...
* >> Início da inclusão: FORM CUSTEANDO_PLANEJADO
DATA: v_data LIKE /pws/zycie001-dtinicio.
* << Fim da inclusão
...
...
itab_zycit036_plan-embarca = itab_zycit001-embarca.
itab_zycit036_plan-bukrs = itab_zycit001-bukrs.
itab_zycit036_plan-werks = itab_zycit003-werks.
itab_zycit036_plan-waers = itab_zycit001-waers.
IF itab_zycit003-waers NE itab_zycit001-waers AND
NOT itab_zycit030_aux-valor IS INITIAL.
if itab_zycit030_aux-codigo eq 'FOB' OR
itab_zycit030_aux-codigo eq 'C&F' OR
itab_zycit030_aux-codigo eq 'CIF'.
v_valor = itab_zycit003-netpr.
* >> Início da inclusão: FORM CUSTEANDO_PLANEJADO
v_data = /pws/zycie001-dtinicio.
* << Fim da inclusão
else.
v_valor = itab_zycit030_aux-valor.
* >> Início da inclusão: FORM CUSTEANDO_PLANEJADO
v_data = sy-datlo.
* << Fim da inclusão
endif.
PERFORM converter_moeda(/pws/sapmzyci010) USING
v_valor
itab_zycit003-waers
/pws/zycbt007-waersb
* >> Início da inclusão: FORM CUSTEANDO_PLANEJADO
v_data
* << Fim da inclusão
CHANGING v_valor.
IF /pws/zycbt007-waersb NE itab_zycit001-waers.
PERFORM converter_moeda(/pws/sapmzyci010)
USING v_valor
/pws/zycbt007-waersb
itab_zycit001-waers
* >> Início da inclusão: FORM CUSTEANDO_PLANEJADO
v_data
* << Fim da inclusão
CHANGING v_valor.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR495
...
itab_zycit036_plan-bukrs = itab_zycit001-bukrs.
itab_zycit036_plan-werks = itab_zycit003-werks.
itab_zycit036_plan-waers = itab_zycit001-waers.
IF itab_zycit003-waers NE itab_zycit001-waers AND
NOT itab_zycit030_aux-valor IS INITIAL.
v_valor = itab_zycit003-netpr.
PERFORM converter_moeda(/pws/sapmzyci010) USING
v_valor
itab_zycit003-waers
/pws/zycbt007-waersb
* >> Início da inclusão: FORM CUSTEANDO_PLANEJADO
sy-datlo
* << Fim da inclusão
CHANGING v_valor.
IF /pws/zycbt007-waersb NE itab_zycit001-waers.
PERFORM converter_moeda(/pws/sapmzyci010)
USING v_valor
/pws/zycbt007-waersb
itab_zycit001-waers
* >> Início da inclusão: FORM CUSTEANDO_PLANEJADO
sy-datlo
* << Fim da inclusão
CHANGING v_valor.
...
...
...
...
...
...
...
...