CE PLUS - Nota 004014
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 22/06/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:14:26
Descrição da Nota: QUANDO O PROCESSO TEM BASE DE ICMS REDUZIDA, VALOR FICA INCORRETO NA NF
Sintoma
Nota Fiscal com suspensão de impostos - A composição da nota deve considerar a suspensão dos
impostos, como segue: RegSuspNF = Não = Excluído IPI deve carregar II, PIS e COFINS suspensos. Valor
do produto não deve somar ICMS. RegSuspNF = Sim = Valor do produto não deve somar ICMS suspenso.
Segue anexo.
Solução
Atualização do programa de Nota Fiscal para calcular corretamente o valor total da nota fiscal nos
casos de suspensão.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04014 Data: 22/06/2007 Hora: 14:05:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04014
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00171
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02922 - 00001 - 6.0 - 00026 - CRIADO PARAMETRO PARA LEVAR ICMS REDUZ NO TOTAL DA NF
03302 - 00002 - 7.0 - 00001 - NA NOTA FISCAL VERIFICAR TABELA ZYCIT062 PARA NÃO INCIDÊNCIA DA D
----------------------------------------------------------------------------------------------------
QUANDO O PROCESSO TEM BASE DE ICMS REDUZIDA, VALOR FICA INCORRETO NA NF
----------------------------------------------------------------------------------------------------
Palavras Chave:
QUANDO BASE DE ICMS REDUZIDA - VALORES NF - NOTA FISCAL - DI
/PWS/ZYCIT062
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
FORM atualiza_icms_unitario.
SELECT SINGLE * FROM /pws/zycit100
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp.
IF sy-subrc EQ 0.
SELECT * UP TO 1 ROWS FROM /pws/zycit085
WHERE nrseqdi = /pws/zycit100-nrseqdi.
ENDSELECT.
ENDIF.
IF /pws/zycit001-tpdecl IS INITIAL.
SELECT SINGLE *
FROM /pws/zycit001
WHERE nrseq EQ itab_zycit042-nrseq.
ENDIF.
IF NOT /pws/zycit100-vlicms IS INITIAL AND
NOT /pws/zycit100-icms_dif = 'X'.
IF ( /pws/zycit085-tpdi EQ 'N' AND
* >> Início da exclusão: FORM ATUALIZA_ICMS_UNITARIO
NOT ' 456' CA /pws/zycit100-codregtriicms ) OR
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ICMS_UNITARIO
NOT ' 56' CA /pws/zycit100-codregtriicms ) OR
* << Fim da inclusão
( /pws/zycit085-tpdi EQ 'S' AND
NOT '56' CA /pws/zycit100-codregtri ) .
IF /pws/zycit062-tred IS INITIAL.
itab_zycit042-netpr = itab_zycit042-netpr +
( ( /pws/zycit100-vlicms / itab_zycit042-qtd_iten )
* 100 ) / itab_zycit003-basred.
ELSE.
itab_zycit042-netpr = itab_zycit042-netpr +
( /pws/zycit100-vlicms / itab_zycit042-qtd_iten ).
ENDIF.
...