CE PLUS - Nota 009468
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 27/11/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:35:25
Descrição da Nota: ERRO AO CONVERTER MOEDA CLP NO CUSTO EFETIVO
Sintoma
Erro ao converter moeda CLP no custo efetivo.
Solução
Tratar conversão da moeda.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09468 Data: 27/11/2009 Hora: 09:55:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09468
Categoria : Erro de Programa
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
06389 - 00001 - 7.0 - 00005 - ESTÁ INCORRETA A CONVERSÃO DE MOEDAS P/ NOVO TIPO DE MOEDA PARAME
----------------------------------------------------------------------------------------------------
ERRO AO CONVERTER MOEDA CLP NO CUSTO EFETIVO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CUSTO - MOEDA - CLP - ARGENTINA - AR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010F01
REPS /PWS/ZYCIR006
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F01
...
itab_zycit036a-vlreal = itab_zycit036_aux2-vlreal.
ENDIF.
IF itab_zycit036_aux2-origem EQ 'PED'.
PERFORM retorna_decimais USING itab_zycit036a-waers_real
CHANGING itab_zycit036a-vlreal.
ENDIF.
IF itab_zycit036_aux2-codigo NE 'FRETEI'.
itab_zycit036a-vlmov = itab_zycit036_aux2-vlmov.
itab_zycit036a-waers_mov = /pws/zycbt007-waersb.
IF itab_zycit036_aux2-origem EQ 'PED'.
* >> Início da exclusão: FORM CUSTEANDO_DESPESAS_EMBARQUE
PERFORM retorna_decimais USING itab_zycit036a-waers_mov
CHANGING itab_zycit036a-vlmov.
* << Fim da exclusão
ENDIF.
ENDIF.
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'.
* >> Início da exclusão: FORM CUSTEANDO_DESPESAS_EMBARQUE
PERFORM retorna_decimais USING itab_zycit036a-waers_mov
CHANGING itab_zycit036a-vldif.
* << Fim da exclusão
ENDIF.
ENDIF.
ENDIF.
IF itab_zycit036_aux2-codigo EQ 'FRETEI' .
IF itab_zycit036_aux2-vlreal EQ space AND
itab_zycit036_aux2-origem NE 'PED' AND
itab_zycit036_aux2-congelamov NE 'X'.
CONTINUE.
ENDIF.
IF v_frete > 1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR006
...
itab_zycit036-vlmov = v_valor .
ENDIF.
ELSE.
PERFORM retorna_decimais USING itab_zycit036-waers
CHANGING itab_zycit036-netpr.
PERFORM converter_moeda USING itab_zycit036-netpr
itab_zycit036-waers
/pws/zycbt007-waersb
CHANGING itab_zycit036-vlmov.
itab_zycit036-waers_mov = /pws/zycbt007-waersb.
* >> Início da inclusão: FORM CALCULAR_OUTROS_CUSTOS
PERFORM trata_decimais USING itab_zycit036-waers_mov
CHANGING itab_zycit036-vlmov.
* << Fim da inclusão
ENDIF.
itab_zycit036-waers_mov = /pws/zycbt007-waersb.
ENDIF.
itab_zycit036-vldif = 0 - itab_zycit036-vlmov.
itab_zycit036-waers_dif = /pws/zycbt007-waersb.
ELSE.
itab_zycit036-vldif = 0 - itab_zycit036-vlmov.
itab_zycit036-waers_dif = /pws/zycbt007-waersb.
ENDIF.
IF itab_zycit036-vlmov IS INITIAL.
...
...
.
ELSE.
itab_zycit036-vlmov = v_valor .
ENDIF.
ELSE.
PERFORM converter_moeda USING itab_zycit036-netpr
itab_zycit036-waers
/pws/zycbt007-waersb
CHANGING itab_zycit036-vlmov.
itab_zycit036-waers_mov = /pws/zycbt007-waersb.
* >> Início da inclusão: FORM CALCULAR_OUTROS_CUSTOS
PERFORM trata_decimais USING itab_zycit036-waers_mov
CHANGING itab_zycit036-vlmov.
* << Fim da inclusão
ENDIF.
itab_zycit036-waers_mov = /pws/zycbt007-waersb.
ENDIF.
itab_zycit036-vldif = 0 - itab_zycit036-vlmov.
itab_zycit036-waers_dif = /pws/zycbt007-waersb.
ELSE.
itab_zycit036-vldif = 0 - itab_zycit036-vlmov.
itab_zycit036-waers_dif = /pws/zycbt007-waersb.
ENDIF.
IF itab_zycit036-vlmov IS INITIAL.
...
...
OR ( itab_zycit036-origem EQ 'NF' AND
itab_zycit036-nrseqori EQ '0000000000' ) .
IF v_itemcongela NE 'X'.
PERFORM retorna_decimais USING itab_zycit036-waers
CHANGING itab_zycit036-netpr.
PERFORM converter_moeda USING itab_zycit036-netpr
itab_zycit036-waers
/pws/zycbt007-waersb
CHANGING itab_zycit036-vlmov.
itab_zycit036-waers_mov = /pws/zycbt007-waersb.
* >> Início da inclusão: FORM CALCULAR_OUTROS_CUSTOS
PERFORM trata_decimais USING itab_zycit036-waers_mov
CHANGING itab_zycit036-vlmov.
* << Fim da inclusão
ENDIF.
itab_zycit036-vldif = 0 - itab_zycit036-vlmov.
itab_zycit036-waers_dif = /pws/zycbt007-waersb.
ELSE.
IF itab_zycit036-origem NE 'EST'.
itab_zycit036-vldif = 0 - itab_zycit036-vlmov.
itab_zycit036-waers_dif = /pws/zycbt007-waersb.
ENDIF.
ENDIF.
IF itab_zycit036-vlmov IS INITIAL.
...
...
OR ( itab_zycit036-origem EQ 'NF' AND
itab_zycit036-nrseqori EQ '0000000000' ) .
IF v_itemcongela NE 'X'.
PERFORM retorna_decimais USING itab_zycit036-waers
CHANGING itab_zycit036-netpr.
PERFORM converter_moeda USING itab_zycit036-netpr
itab_zycit036-waers
/pws/zycbt007-waersb
CHANGING itab_zycit036-vlmov.
itab_zycit036-waers_mov = /pws/zycbt007-waersb.
* >> Início da inclusão: FORM CALCULAR_OUTROS_CUSTOS
PERFORM trata_decimais USING itab_zycit036-waers_mov
CHANGING itab_zycit036-vlmov.
* << Fim da inclusão
ENDIF.
itab_zycit036-vldif = 0 - itab_zycit036-vlmov.
itab_zycit036-waers_dif = /pws/zycbt007-waersb.
ELSE.
IF itab_zycit036-origem NE 'EST'.
itab_zycit036-vldif = 0 - itab_zycit036-vlmov.
itab_zycit036-waers_dif = /pws/zycbt007-waersb.
ENDIF.
ENDIF.
ENDIF.
...