CE PLUS - Nota 007519
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 03/11/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:00:53
Descrição da Nota: CÁLCULO DO SEGURO QUANDO EXISTEM MOEDAS DIFERENTES ENTRE VMLE E FRETE.
Sintoma
Problema com o cálculo do seguro quando existem moedas diferentes entre VMLE e Frete.
Solução
O programa foi ajustado para converter os valores.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07519 Data: 03/11/2008 Hora: 11:29:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07519
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00072
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07517 - 00001 - 7.0 - 00007 - AO CALCULAR VALOR DE SEGURO PELA PORCENTAGEM, VALOR FICA INCORRET
----------------------------------------------------------------------------------------------------
CÁLCULO DO SEGURO QUANDO EXISTEM MOEDAS DIFERENTES ENTRE VMLE E FRETE.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI SEGURO MOEDAS DIFERENTES VMLE FRETE CONVERSÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
ENDFORM.
FORM load_coll.
v_fretc = /pws/zycie093-prepaid + /pws/zycie093-collect -
/pws/zycie093-ternacion.
s_frvr = v_fretc * /pws/zycie085-ukursfre.
PERFORM trata_decimais USING /pws/zycie093-waersfre
CHANGING s_frvr.
s_frvr_d2 = s_frvr.
ENDFORM.
FORM load_sevl.
* >> Início da inclusão: FORM LOAD_SEVL
DATA : v_fob TYPE /pws/zycie085-vlfob,
v_fre TYPE /pws/zycie085-vlfob.
* << Fim da inclusão
IF s_inco1_ci EQ 'CIF'.
IF NOT v_tcif_fat IS INITIAL AND
NOT /pws/zycie085-per_seg IS INITIAL.
/pws/zycie085-vlseg = v_tcif_fat *
( /pws/zycie085-per_seg / 100 ).
PERFORM retorna_decimais USING /pws/zycie085-waersseg
CHANGING /pws/zycie085-vlseg.
ENDIF.
ELSE.
IF NOT v_tval2 IS INITIAL AND
NOT /pws/zycie085-per_seg IS INITIAL.
* >> Início da exclusão: FORM LOAD_SEVL
/pws/zycie085-vlseg = ( v_tval2 + v_bltofat - v_desp_brl ) *
( /pws/zycie085-per_seg / 100 ).
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_SEVL
PERFORM taxa_converte USING /pws/zycie085-waersfob
/pws/zycie085-dttax
CHANGING v_taxa.
IF NOT v_taxa IS INITIAL.
v_fob = v_tval2 * v_taxa .
ENDIF.
PERFORM taxa_converte USING /pws/zycie085-waersfre
/pws/zycie085-dttax
CHANGING v_taxa.
IF NOT v_taxa IS INITIAL.
v_fre = v_bltofat * v_taxa .
ENDIF.
/pws/zycie085-vlseg = ( ( v_fob + v_fre - v_desp_brl ) *
( /pws/zycie085-per_seg / 100 ) ) / /pws/zycie085-ukursseg.
* << Fim da inclusão
PERFORM retorna_decimais USING /pws/zycie085-waersseg
CHANGING /pws/zycie085-vlseg.
ENDIF.
ENDIF.
s_stvr = /pws/zycie085-vlseg * /pws/zycie085-ukursseg.
PERFORM trata_decimais USING /pws/zycie085-waersseg
CHANGING s_stvr.
s_stvr_d2 = s_stvr.
ENDFORM.
FORM load_fbvl.
...