CE PLUS - Nota 007823
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 22/12/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:01:26
Descrição da Nota: RATEIO DE SEGURO INCORRETO NA DI.
Sintoma
Valor total do seguro dos itens é diferente do valor informado no cabeçalho da DI.
Solução
Ajustado programa para verificar o parametro "Rat.Seguro no Local do Embarque" para não realizar
conversão incorreta.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07823 Data: 22/12/2008 Hora: 14:21:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07823
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00078
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01801 - 00002 - 6.0 - 00024 - RATEIO DE SEGURO DA DI DIFERE DO RATEIO DO SISCOMEX
05883 - 00001 - 7.0 - 00004 - RATEIO DO SEGURO PARA ITENS COM MOEDAS DIFERENTES
----------------------------------------------------------------------------------------------------
RATEIO DE SEGURO INCORRETO NA DI.
----------------------------------------------------------------------------------------------------
Palavras Chave:
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
ENDIF.
CLEAR: v_sisco3.
IF /pws/zycie100a-dttaxbem IS INITIAL.
MOVE itab_it-dttaxbem TO /pws/zycie100a-dttaxbem.
ENDIF.
IF p_tipo NE 'B' OR t_ivmle IS INITIAL OR v_dit = 'N'.
t_ivmle_d2 = t_ivmle = t_vmle * /pws/zycie100a-dttaxbem.
ENDIF.
PERFORM valor_cfr USING p_tipo.
IF itab_it-waersbem NE /pws/zycie085-waersfob AND
* >> Início da exclusão: FORM LOAD_ITAX
/pws/zycie085-ukursfob > 0 .
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_ITAX
/pws/zycie085-ukursfob > 0 and
/pws/zycit000-rat_seg_fob IS INITIAL.
* << Fim da inclusão
v_cfr = ( v_cfr * /pws/zycie100a-dttaxbem ) /
/pws/zycie085-ukursfob.
ENDIF.
IF s_inco1_ci EQ 'CIF'.
IF NOT itab_it-qtd_itend IS INITIAL.
READ TABLE itab_zycit003 WITH KEY nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0.
v_cif_fat = ( itab_zycit003-vlreal * itab_it-qtd_itend ) +
...