CE PLUS - Nota 005466
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 14/12/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:19:08
Descrição da Nota: O VALOR DO PLANEJADO ESTA DIFERENDO DO REALIZADO NA ALTERAÇÃO DE MOEDAS
Sintoma
O Programa não estava verificando o parâmetro na zycit000-flag_desp. Neste mesmo chamado de
homologação ajute realizado para não retirar do custo Fatura de FRETEI quando o custo tiver
congelado
Solução
Verificar o parâmetro na zycit000-flag_desp. Neste mesmo chamado de homologação ajute realizado para
não retirar do custo Fatura de FRETEI quando o custo tiver congelado
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05466 Data: 14/12/2007 Hora: 16:25:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05466
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00025
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
O VALOR DO PLANEJADO ESTA DIFERENDO DO REALIZADO NA ALTERAÇÃO DE MOEDAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
ALTERA MOEDA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010F01
REPS /PWS/MZYCI010F03
REPS /PWS/SAPMZYCI010
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F01
...
IF itab_zycit036_aux2-codigo NE 'FRETEI'.
itab_zycit036a-vldif = itab_zycit036_aux2-vldif.
IF itab_zycit036a-vldif NE 0.
IF itab_zycit036_aux2-origem EQ 'PED'.
PERFORM retorna_decimais USING itab_zycit036a-waers_mov
CHANGING itab_zycit036a-vldif.
ENDIF.
ENDIF.
ENDIF.
IF itab_zycit036_aux2-codigo EQ 'FRETEI' .
* >> Início da exclusão: FORM CUSTEANDO_DESPESAS_EMBARQUE
IF itab_zycit036_aux2-vlreal EQ space.
* << Fim da exclusão
* >> Início da inclusão: FORM CUSTEANDO_DESPESAS_EMBARQUE
IF itab_zycit036_aux2-vlreal EQ space and
itab_zycit036_aux2-CONGELAMOV NE 'X'.
* << Fim da inclusão
CONTINUE.
ENDIF.
IF v_frete > 1.
IF itab_zycit036a-waers_real = 'JPY' AND
/pws/zycit000-fretepres NE 'X'.
PERFORM retorna_decimais USING itab_zycit036_aux2-waers_real
CHANGING itab_zycit036_aux2-vlreal.
IF NOT /pws/zycit085-ukursfre IS INITIAL.
itab_zycit036_aux2-vlreal = itab_zycit036_aux2-vlreal *
/pws/zycit085-ukursfre.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F03
...
IF itab_zycit036a-codigo EQ 'FOB' OR
itab_zycit036a-codigo EQ 'C&F' OR
itab_zycit036a-codigo EQ 'CIF' .
READ TABLE itab_zycit140 WITH KEY
codmod = 'D'
codigo = itab_zycit036a-codigo
origem = itab_zycit036-origem
custo = 'X' .
IF itab_zycit140-origem EQ 'NF' .
IF NOT /pws/zycit085-dttax IS INITIAL.
* >> Início da inclusão: FORM ALTERA_MOEDA
IF /pws/zycit000-flag_desp IS INITIAL.
PERFORM converter_moeda USING
itab_zycit036_conve-netpr
itab_zycit036_conve-waers
/pws/zycbt007-waersb
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
CHANGING itab_zycit036a-netpr.
ELSE.
* << Fim da inclusão
IF itab_zycit036_conve-waers NE /pws/zycbt007-waersb.
PERFORM taxa_converte USING itab_zycit036_conve-waers
/pws/zycit085-dttax
CHANGING v_taxa.
ELSE.
v_taxa = 1.
ENDIF.
v_vlbrl_a = itab_zycit036_conve-netpr * 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-netpr = v_vlbrl_a / v_taxa.
ENDIF.
* >> Início da inclusão: FORM ALTERA_MOEDA
ENDIF.
* << Fim da inclusão
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
CHANGING v_vlbrl_a.
PERFORM converter_moeda USING v_vlbrl_a
/pws/zycbt007-waersb
v_medestino_a
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI010