CE PLUS - Nota 011426
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 05/09/2011 00:00:00
Data/Hora Última Alteração: 09/09/2011 11:39:06
Descrição da Nota: QUANDO POSSUI MOEDAS DIFERENTES, RATEIO DE DESPESA CIF FICA ERRADO
Sintoma
O rateio da despesa siscomex é por CIF e valor real.A taxa do siscomex é base de ICMS.
No embarque tem dois pedidos com moedas diferentes (EUR e USD), incoterm EXW.
Na DI, no momento de ratear a taxa do siscomex para o pedido que está em EUR, está convertendo duas
vezes para USD (FOB ITAB IT).
Solução
Converter valor FOB, frete e seguro tudo na mesma moeda
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11426 Data: 05/09/2011 Hora: 10:11:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11426
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00008
Agrupamento : 00084
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10590 - 00001 - 8.0 - 00004 - RATEIO DE DESPESA POR CIF ESTÁ ERRADO NO CALC. DA BASE DE ICMS
11377 - 00002 - 8.0 - 00008 - RATEIO DE SEGURO NÃO BATE COM TOTAL DE ITENS QUANDO A MOEDA É DIF
----------------------------------------------------------------------------------------------------
QUANDO POSSUI MOEDAS DIFERENTES, RATEIO DE DESPESA CIF FICA ERRADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - MOEDAS DIFERENTES - RATEIO - DESPESA CIF - TAXA SISCOMEX.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
IF /pws/zycit062-bs_rat_icms EQ 'CIF'.
IF NOT /pws/zycie085-vlfob IS INITIAL
AND NOT /pws/zycie085-ukursfob IS INITIAL.
v_vltfrer = /pws/zycie085-vlfre.
v_vltsegr = /pws/zycie085-vlseg.
* >> Início da exclusão: FORM LOAD_IICMS
IF /pws/zycie085-waersfre NE /pws/zycie085-waersfob.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
IF /pws/zycie085-waersseg NE /pws/zycie085-waersfob.
* << Fim da inclusão
PERFORM trata_decimais
* >> Início da exclusão: FORM LOAD_IICMS
USING /pws/zycie085-waersfre
CHANGING v_vltfrer.
v_vltfrer = ( v_vltfrer * /pws/zycie085-ukursfre )
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
USING /pws/zycie085-waersseg
CHANGING v_vltsegr.
v_vltsegr = ( v_vltsegr * /pws/zycie085-ukursseg )
* << Fim da inclusão
/ /pws/zycie085-ukursfob.
* >> Início da inclusão: FORM LOAD_IICMS
ENDIF.
IF /pws/zycie085-waersfre NE /pws/zycie085-waersfob.
* << Fim da inclusão
PERFORM retorna_decimais
USING /pws/zycie085-waersfob
CHANGING v_vltfrer.
* >> Início da inclusão: FORM LOAD_IICMS
v_vltfrer = ( v_vltfrer * /pws/zycie085-ukursfre )
/ /pws/zycie085-ukursfob.
* << Fim da inclusão
ENDIF.
v_vlfobr = itab_it-vlfob.
* >> Início da exclusão: FORM LOAD_IICMS
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.
* << Fim da exclusão
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.
t_ivdes2 = ( itab_zycit049-vlreal *
( v_vlfobr + v_vlfrer + v_vlsegr ) )
/ ( /pws/zycie085-vlfob + v_vltfrer + v_vltsegr ) .
ENDIF.
...