CE PLUS - Nota 007774
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 12/12/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:19:00
Descrição da Nota: TRATAMENTO DA TAXA SISCOMEX BASE II E ICMS (FUNDAP)
Sintoma
Está duplicando a taxa siscomex na base de ICMS no calculo dos valores de Fundap.
Solução
Ao calcular a base de ICMS no tratamento de Fundap verificar se a taxa siscomex é base de II para
não duplicar a despesa.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07774 Data: 12/12/2008 Hora: 16:26:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07774
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07515 - 00001 - 7.0 - 00007 - DESPESA DUPLICADA NO TOTAL DA NOTA FISCAL(FUNDAP)
----------------------------------------------------------------------------------------------------
TRATAMENTO DA TAXA SISCOMEX BASE II E ICMS (FUNDAP)
----------------------------------------------------------------------------------------------------
Palavras Chave:
TAXA - SISCOMEX - BASE - II - ICMS - NOTA - FISCAL
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF NOT /pws/zycie085-vlfob IS INITIAL.
v_vldp = ( v_vlreal * itab_zycit100-vlfob ) /
/pws/zycie085-vlfob.
ENDIF.
ELSE.
IF NOT /pws/zycie085-vlfob IS INITIAL.
v_vldp = ( v_vlreal * itab_zycit100-vlfob ) /
/pws/zycie085-vlfob.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
CLEAR: itab_zycit019, itab_zycit020, v_vlsisco.
READ TABLE itab_zycit019 WITH KEY
tpdesp = /pws/zycit000-cod_sisc.
IF sy-subrc EQ 0 .
READ TABLE itab_zycit020 WITH KEY
codigo = itab_zycit019-codigo.
ENDIF.
IF itab_zycit020-baseii NE 'X'.
* << Fim da inclusão
READ TABLE itab_zycit049_fndp WITH KEY
tpdesp = /pws/zycit000-cod_sisc .
IF sy-subrc EQ 0.
IF itab_zycit049_fndp-waers EQ /pws/zycie085-waersfob .
IF NOT /pws/zycie085-vlfob IS INITIAL.
v_vlsisco =
( itab_zycit049_fndp-vldp * itab_zycit100-vlfob ) /
/pws/zycie085-vlfob.
ENDIF.
ELSE.
...
...
itab_zycit049_fndp-vldp * v_taxa_desp .
ENDIF.
IF NOT /pws/zycie085-vlfob IS INITIAL.
v_vlsisco =
( itab_zycit049_fndp-vldp * itab_zycit100-vlfob ) /
/pws/zycie085-vlfob.
PERFORM taxa_converte USING /pws/zycie085-waersfob
/pws/zycie085-dttax
CHANGING v_taxa_desp.
v_vlsisco = v_vlsisco * v_taxa_desp .
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
itab_zycit480-vl_nf_ent = itab_zycit100-baseii +
v_vlii + v_vlipi + v_vlpis + v_vlcofins
+ v_vlsisco .
READ TABLE itab_zycit042 WITH KEY
nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
...