CE PLUS - Nota 008184
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 12/03/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:19:33
Descrição da Nota: CALCULO DO ICMS OPERAÇÃO FUNDAP
Sintoma
O valor do ICMS está incorreto na Nota fiscal nos processos envolvendo operação FUNDAP.
Solução
Atualização da conversão de moedas na nota fiscal nos processos FUNDAP.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08184 Data: 12/03/2009 Hora: 14:38:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08184
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00088
----------------------------------------------------------------------------------------------------
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)
----------------------------------------------------------------------------------------------------
CALCULO DO ICMS OPERAÇÃO FUNDAP
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA FISCAL GLOBAL CALCULO DO ICMS OPERAÇÃO FUNDAP
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF NOT itab_zycit020[] IS INITIAL.
SELECT * FROM /pws/zycit019 INTO TABLE itab_zycit019
FOR ALL ENTRIES IN itab_zycit020
WHERE regio = itab_zycit020-regio
AND codigo = itab_zycit020-codigo
AND land1 = t001-land1.
ENDIF.
LOOP AT itab_zycit049_fndp
WHERE tpdesp NE /pws/zycit000-cod_sisc.
IF itab_zycit049_fndp-waers EQ /pws/zycie085-waersfob .
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
v_vlreal = v_vlreal + itab_zycit049_fndp-vldp .
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
CLEAR: itab_zycit019, itab_zycit020.
READ TABLE itab_zycit019 WITH KEY
tpdesp = itab_zycit049_fndp-tpdesp.
IF sy-subrc EQ 0 .
READ TABLE itab_zycit020 WITH KEY
codigo = itab_zycit019-codigo.
ENDIF.
IF itab_zycit020-baseii NE 'X'.
v_vlreal = v_vlreal + itab_zycit049_fndp-vldp *
/pws/zycie085-ukursfob.
ENDIF.
* << Fim da inclusão
ELSE.
PERFORM trata_decimais USING itab_zycit049_fndp-waers
CHANGING itab_zycit049_fndp-vldp.
PERFORM taxa_converte USING itab_zycit049_fndp-waers
/pws/zycie085-dttax
CHANGING v_taxa_desp.
CLEAR: itab_zycit019, itab_zycit020.
READ TABLE itab_zycit019 WITH KEY
tpdesp = itab_zycit049_fndp-tpdesp.
IF sy-subrc EQ 0 .
...