CE PLUS - Nota 002662
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 11/12/2006 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:38:51
Descrição da Nota: VALOR DO SEGURO ERRADO
Sintoma
Favor verificar valores de seguro na pasta valor aduaneiro.
Solução
atualizado o programa para calcular corretamente
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02662 Data: 11/12/2006 Hora: 13:19:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02662
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00142
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01801 - 00001 - 6.0 - 00024 - RATEIO DE SEGURO DA DI DIFERE DO RATEIO DO SISCOMEX
01949 - 00002 - 6.0 - 00024 - VALOR DO RATEIO DO SEGURO CIF POR ITEM DI IGUAL AO SISCOMEX
02658 - 00003 - 6.0 - 00025 - DI
----------------------------------------------------------------------------------------------------
VALOR DO SEGURO ERRADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
SEGURO - ADUANEIRO - DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
PERFORM valor_cfr USING p_tipo.
IF /pws/zycit000-rat_seg_fob IS INITIAL.
CASE s_inco1_ci.
WHEN 'C&F'.
v_cfr = t_ivmle + t_ivfre.
WHEN 'FOB'.
v_cfr = t_ivmle.
ENDCASE.
ELSE.
IF s_inco1_ci EQ 'CIF'.
* >> Início da inclusão: FORM LOAD_ITAX
elseif s_inco1_ci eq 'C&F'.
v_cfr = t_ivmle + t_ivfre.
* << Fim da inclusão
ELSE.
v_cfr = t_ivmle.
ENDIF.
ENDIF.
IF s_inco1_ci EQ 'CIF'.
v_cif_fat = ( itab_it-vlreal * itab_it-qtd_iten ) +
itab_it-vlfre_fat + itab_it-vlseg_fat .
IF NOT v_tcif_fat IS INITIAL.
t_ivseg = itab_it-vlseg = ( v_cif_fat / v_tcif_fat ) *
s_stvr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
WHEN 'C&F'.
v_tcfr = s_fbvr_s_d + s_frvr.
WHEN 'CIF'.
v_tcfr = s_fbvr_s_d + s_frvr .
v_tcfr = v_tcfr - ( ( v_tsegfat - v_sgtofat ) *
/pws/zycie085-ukursfob ).
WHEN 'FOB'.
v_tcfr = s_fbvr_s_d.
ENDCASE.
ELSE.
* >> Início da exclusão: FORM VALOR_CFR
IF s_inco1_ci EQ 'CIF'.
* << Fim da exclusão
* >> Início da inclusão: FORM VALOR_CFR
IF s_inco1_ci EQ 'CIF'
or s_inco1_ci eq 'C&F'.
* << Fim da inclusão
v_tcfr = s_fbvr_s_d + s_frvr .
ELSE.
v_tcfr = s_fbvr_s_d.
ENDIF.
ENDIF.
ENDFORM.
FORM reclassificacao_ia.
DATA: BEGIN OF itab_zycit006_aux OCCURS 0 .
INCLUDE STRUCTURE /pws/zycit006.
DATA: hkont LIKE bsis-hkont.
...