CE PLUS - Nota 011200
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 02/06/2011 00:00:00
Data/Hora Última Alteração: 02/06/2011 15:51:44
Descrição da Nota: VALOR DE SEGURO ERRADO QUANDO DI POSSUI MOEDAS DIFERENTES
Sintoma
Valor de seguro está errado quando DI possui moedas diferentes
Solução
Atualizado cálculo do seguro para converter valor de frete do BL antes de fazer calcular a
porcentagem
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11200 Data: 02/06/2011 Hora: 14:03:47
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11200
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00073
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07519 - 00001 - 7.0 - 00007 - CÁLCULO DO SEGURO QUANDO EXISTEM MOEDAS DIFERENTES ENTRE VMLE E F
09748 - 00002 - 8.0 - 00002 - (CFR)VALOR DO SEGURO NA DI COM MOEDA DE FRETE E MERCADORIA DIFERE
----------------------------------------------------------------------------------------------------
VALOR DE SEGURO ERRADO QUANDO DI POSSUI MOEDAS DIFERENTES
----------------------------------------------------------------------------------------------------
Palavras Chave:
SEGURO - DI - CÁLCULO - MOEDAS DIFERENTES
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
IF NOT v_tval2 IS INITIAL AND
NOT /pws/zycie085-per_seg IS INITIAL.
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.
* >> Início da exclusão: FORM LOAD_SEVL
IF s_inco1_ci EQ 'FOB'.
PERFORM taxa_converte USING /pws/zycie085-waersfre
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_SEVL
PERFORM taxa_converte USING /pws/zycie093-waersfre
* << Fim da inclusão
/pws/zycie085-dttax
CHANGING v_taxa.
* >> Início da exclusão: FORM LOAD_SEVL
ENDIF.
* << Fim da exclusão
IF NOT v_taxa IS INITIAL.
v_fre = v_bltofat * v_taxa .
ENDIF.
IF NOT /pws/zycie085-ukursseg IS INITIAL.
/pws/zycie085-vlseg = ( ( v_fob + v_fre - v_desp_brl ) *
...