CE PLUS - Nota 006920
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 07/07/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:58:11
Descrição da Nota: CÁLCULO DO VALOR PERCENTUAL DO SEGURO DA DI ESTÁ INCORRETO
Sintoma
Ajustes para cálculo do valor percentual do seguro da DI.
Solução
Ajustar cálculo de valores para qualquer incoterm.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06920 Data: 07/07/2008 Hora: 10:44:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06920
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00055
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06729 - 00001 - 7.0 - 00005 - SOMANDO O VALOR DO SEGURO DOS ITENS, NÃO BATE COM O SEGURO DA CAR
----------------------------------------------------------------------------------------------------
CÁLCULO DO VALOR PERCENTUAL DO SEGURO DA DI ESTÁ INCORRETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - CÁLCULO - PORCENTAGEM - VALOR DO SEGURO - INCOTERM - CARGA 2
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
FORM load_sevl.
DATA: v_fretebl LIKE /pws/zycie093-prepaid,
v_vlcif_temp LIKE /pws/zycit085-vlfob.
* >> Início da exclusão: FORM LOAD_SEVL
IF NOT v_tmle 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 = ( ( ( v_tmle + s_frvr - v_desp_brl ) /
/pws/zycie085-ukursseg ) * /pws/zycie085-per_seg ) / 100.
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 ).
ELSE.
v_fretebl = /pws/zycie093-prepaid + /pws/zycie093-collect .
PERFORM: calc_conv_moeda:
USING /pws/zycie093-waersfre wa_zycbt007-waersb
CHANGING v_fretebl.
PERFORM trata_decimais USING /pws/zycie085-waersseg
v_fretebl .
/pws/zycie085-vlseg = ( ( ( v_tmle + v_fretebl - v_desp_brl ) /
/pws/zycie085-ukursseg ) * /pws/zycie085-per_seg ) / 100.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_SEVL
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 ).
* << Fim da inclusão
PERFORM retorna_decimais USING /pws/zycie085-waersseg
/pws/zycie085-vlseg.
ENDIF.
s_stvr = /pws/zycie085-vlseg * /pws/zycie085-ukursseg.
PERFORM trata_decimais USING /pws/zycie085-waersseg
s_stvr.
s_stvr_d2 = s_stvr.
ENDFORM.
...