CE PLUS - Nota 007517
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 31/10/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:00:30
Descrição da Nota: AO CALCULAR VALOR DE SEGURO PELA PORCENTAGEM, VALOR FICA INCORRETO.
Sintoma
Ao calcular valor de seguro pela porcentagem, valor fica incorreto.
Solução
Calcular o valor do seguro corretamente ao alterar porcentagem . Quando incoterm = CIF, valor do
seguro é calculado em cima do valor CIF.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07517 Data: 31/10/2008 Hora: 17:20:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07517
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00071
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01949 - 00001 - 6.0 - 00024 - VALOR DO RATEIO DO SEGURO CIF POR ITEM DI IGUAL AO SISCOMEX
06920 - 00002 - 7.0 - 00006 - CÁLCULO DO VALOR PERCENTUAL DO SEGURO DA DI ESTÁ INCORRETO
07075 - 00003 - 7.0 - 00006 - MELHORIA EM CÓDIGO DA DI, CORRIGINDO ERROS DA VERIFICAÇÃO AMPLIAD
----------------------------------------------------------------------------------------------------
AO CALCULAR VALOR DE SEGURO PELA PORCENTAGEM, VALOR FICA INCORRETO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
SEGURO - DI - PORCENTAGEM - DDU
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
FORM load_sevl.
* >> Início da inclusão: FORM LOAD_SEVL
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.
* << Fim da inclusão
IF NOT v_tval2 IS INITIAL AND
NOT /pws/zycie085-per_seg IS INITIAL.
/pws/zycie085-vlseg = ( v_tval2 + v_bltofat - v_desp_brl ) *
( /pws/zycie085-per_seg / 100 ).
PERFORM retorna_decimais USING /pws/zycie085-waersseg
CHANGING /pws/zycie085-vlseg.
* >> Início da inclusão: FORM LOAD_SEVL
ENDIF.
* << Fim da inclusão
ENDIF.
...