CE PLUS - Nota 006729
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 09/06/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 13:51:54
Descrição da Nota: SOMANDO O VALOR DO SEGURO DOS ITENS, NÃO BATE COM O SEGURO DA CARGA 2.
Sintoma
O valor do seguro na DI está correto na pasta "Carga 2", porém ao entrar no detalhe do item o valor
do seguro está errado. A soma do valor do seguro dos 2 itens na pasta"Valor Aduaneiro" do detalhe do
item está menor do que o valor que está na pasta "Carga 2".
Solução
Atualização do programa de DI para que o valor do seguro seja calculado corretamente no Detalhe do
Item.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06729 Data: 09/06/2008 Hora: 17:34:58
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06729
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00051
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
SOMANDO O VALOR DO SEGURO DOS ITENS, NÃO BATE COM O SEGURO DA CARGA 2.
----------------------------------------------------------------------------------------------------
Palavras Chave:
SEGURO - ITENS - DI - RATEIO - CARGA 2
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F02
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
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 s_fbvr IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_SEVL
IF NOT v_tmle IS INITIAL AND
* << Fim da inclusão
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'.
* >> Início da exclusão: FORM LOAD_SEVL
/pws/zycie085-vlseg = ( ( ( s_fbvr + s_frvr - v_desp_brl ) /
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_SEVL
/pws/zycie085-vlseg = ( ( ( v_tmle + s_frvr - v_desp_brl ) /
* << Fim da inclusão
/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 .
* >> Início da exclusão: FORM LOAD_SEVL
/pws/zycie085-vlseg = ( ( ( s_fbvr + v_fretebl - v_desp_brl ) /
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_SEVL
/pws/zycie085-vlseg = ( ( ( v_tmle + v_fretebl - v_desp_brl ) /
* << Fim da inclusão
/pws/zycie085-ukursseg ) * /pws/zycie085-per_seg ) / 100.
ENDIF.
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
SELECT * FROM /pws/zycit438 APPENDING TABLE itab_zycit438
WHERE regio = ' '
AND lei = 'MP255'.
ENDIF.
CLEAR v_nova.
IF /pws/zycie085-dtuserc IS INITIAL.
/pws/zycie085-dtuserc = sy-datlo.
ENDIF.
CLEAR : v_fatx, v_xa , v_xb , v_xc, v_faty, v_fatpc.
LOOP AT itab_zycit049 WHERE baseicms EQ 'X' AND NOT vlreal IS initial.
* >> Início da inclusão: FORM LOAD_IICMS
CLEAR t_ivdes2.
* << Fim da inclusão
IF /pws/zycit000-flag_txsisc IS INITIAL OR v_dit NE 'N' OR
wa_it000-cod_sisc NE itab_zycit049-tpdesp.
* >> Início da exclusão: FORM LOAD_IICMS
IF NOT itab_zycit049-tipo EQ 'D'.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
IF NOT itab_zycit049-tipo EQ 'D' OR
itab_zycit049-tpdesp = /pws/zycit000-flagfreten.
* << Fim da inclusão
IF itab_zycit049-divabs EQ 'X'.
...
...
IF s_inco1_ci EQ 'CIF'.
v_tcfr = /pws/zycie085-vlfob + v_sgtofat + v_bltofat.
v_cfr = t_vmle .
ELSEIF s_inco1_ci EQ 'C&F'.
v_tcfr = s_fbvr_s_d .
v_cfr = t_ivmle + t_ivfre.
ELSE.
v_tcfr = s_fbvr_s_d.
v_cfr = t_ivmle.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM VALOR_CFR
v_cfr = v_cfr + v_diftern.
* << Fim da inclusão
ENDFORM.
...