CE PLUS - Nota 000458
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 15/12/2005 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:04:14
Descrição da Nota: AJUSTE NO CALCULO DO SEGURO DA DI
Sintoma
valor mencionado no campo ``valor na moeda``, da pasta carga 2, DI, é alterado quando salvamos a
DI.
Teste feito com embarque 111I05, pedido 4500004864, DI 90I05, ambiente F6H.
Antes de salvar a DI, no campo ``valor na moeda`` aparecia o valor de US 749,42. Após salvar a DI o
valor foi alterado para US 749,53 (vide anexo).
O valor correto é de US 749,53.
Solução
Criado calculo de seguro para CIF.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00458 Data: 15/12/2005 Hora: 15:21:53
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00458
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00093
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTE NO CALCULO DO SEGURO DA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - CALCULO - SEGURO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
PERFORM trata_decimais USING /pws/zycie093-waersfre
s_frvr.
s_frvr_d2 = s_frvr.
ENDFORM.
FORM load_sevl.
* >> Início da exclusão: FORM LOAD_SEVL
DATA: v_fretebl LIKE /pws/zycie093-prepaid.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_SEVL
DATA: v_fretebl LIKE /pws/zycie093-prepaid,
v_vlcif_temp LIKE /pws/zycit085-vlfob.
* << Fim da inclusão
IF NOT s_fbvr IS INITIAL AND
NOT s_frvr IS INITIAL AND
NOT /pws/zycie085-ukursseg IS INITIAL AND
NOT /pws/zycie085-per_seg IS INITIAL.
IF s_inco1_ci = 'FOB'.
/pws/zycie085-vlseg = ( ( ( s_fbvr + s_frvr - v_desp_brl ) /
/pws/zycie085-ukursseg ) * /pws/zycie085-per_seg ) / 100.
* >> Início da inclusão: FORM LOAD_SEVL
ELSEIF s_inco1_ci = 'CIF'.
LOOP AT itab_it.
v_vlcif_temp = itab_it-qtd_iten * itab_it-vlreal.
ENDLOOP.
/pws/zycie085-vlseg = ( v_vlcif_temp * /pws/zycie085-per_seg ) /
( 100 + /pws/zycie085-per_seg ).
* << Fim da inclusão
ELSE.
v_fretebl = /pws/zycie093-prepaid + /pws/zycie093-collect .
PERFORM: calc_conv_moeda:
USING /pws/zycie093-waersfre wa_zycbt007-waersb
CHANGING v_fretebl.
...