CE PLUS - Nota 010590
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 10/09/2010 00:00:00
Data/Hora Última Alteração: 23/02/2011 10:10:13
Descrição da Nota: RATEIO DE DESPESA POR CIF ESTÁ ERRADO NO CALC. DA BASE DE ICMS
Sintoma
O rateio de despesas pelo valor CIF está errado quando a proporção de frete possui moeda diferente
da mercadoria.
Solução
Corrigido o rateio por valor CIF da despesas base de ICMS para igualar as moedas de fob, frete e
seguro.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10590 Data: 10/09/2010 Hora: 17:19:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10590
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00037
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08231 - 00001 - 7.0 - 00009 - AJUSTE NO CALCULO DO VALOR DA MERCADORIA PARA CONFORME FEITO NA F
09821 - 00002 - 8.0 - 00002 - CORREÇÃO DE RATEIO DAS DESPESAS POR VALOR CIF
----------------------------------------------------------------------------------------------------
RATEIO DE DESPESA POR CIF ESTÁ ERRADO NO CALC. DA BASE DE ICMS
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESPESA - RATEIO - CIF - BASE - ICMS - DI
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
FORM load_iicms USING p_tipo.
* >> Início da inclusão: FORM LOAD_IICMS
DATA:
v_vlfobr TYPE /pws/zycit100-vlfob,
v_vltfrer TYPE /pws/zycit100-vlfre,
v_vltsegr TYPE /pws/zycit100-vlseg,
v_vlfrer TYPE /pws/zycit100-vlfre,
v_vlsegr TYPE /pws/zycit085-vlseg.
* << Fim da inclusão
...
...
CHANGING itab_zycit003-netpr.
ENDIF.
t_ivdes2 = ( ( itab_zycit003-netpr * itab_zycit003-qtd_itenc3 )
/
v_tot_plan ) * itab_zycit049-vlreal.
ENDIF.
ENDIF.
ELSE.
IF /pws/zycit062-bs_rat_icms EQ 'CIF'.
IF NOT /pws/zycie085-vlfob IS INITIAL.
* >> Início da inclusão: FORM LOAD_IICMS
v_vltfrer = /pws/zycie085-vlfre.
v_vltsegr = /pws/zycie085-vlseg.
IF /pws/zycie085-waersfre NE /pws/zycie085-waersfob.
PERFORM trata_decimais
USING /pws/zycie085-waersfre
CHANGING v_vltfrer.
v_vltfrer = ( v_vltfrer * /pws/zycie085-ukursfre )
/ /pws/zycie085-ukursfob.
PERFORM retorna_decimais
USING /pws/zycie085-waersfob
CHANGING v_vltfrer.
ENDIF.
v_vlfobr = itab_it-vlfob.
IF itab_it-waers NE /pws/zycie085-waersfob.
v_vlfobr = ( itab_it-vlfob * itab_it-dttaxbem )
/ /pws/zycie085-ukursfob.
PERFORM retorna_decimais
USING /pws/zycie085-waersfob
CHANGING v_vlfrer.
ENDIF.
v_vlfrer = itab_it-vlfre / /pws/zycie085-ukursfob.
v_vlsegr = itab_it-vlseg / /pws/zycie085-ukursfob.
PERFORM retorna_decimais
USING /pws/zycie085-waersfob
CHANGING: v_vlfrer,
v_vlsegr.
* << Fim da inclusão
t_ivdes2 = ( itab_zycit049-vlreal *
* >> Início da exclusão: FORM LOAD_IICMS
( itab_it-vlfob + v_tot_fre + v_tot_seg ) )
/ ( /pws/zycie085-vlfob + v_bltofat + v_sgtofat ) .
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
( v_vlfobr + v_vlfrer + v_vlsegr ) )
/ ( /pws/zycie085-vlfob + v_vltfrer + v_vltsegr ) .
* << Fim da inclusão
ENDIF.
...