CE PLUS - Nota 003239
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 14/03/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:13:59
Descrição da Nota: ERROS PARA NF DE PROCESSOS ISENÇÃO, SUSPENSÃO E RECOLHIMENTO INTEGRAL.
Sintoma
Erros em Nota Fiscal :
- o processo é de isenção porém está levando o ipi,
- Processo de suspensão e o valor da nota fiscal está errado.
- O regime tributário é isento para todos os impostos, entretanto, o valor do ICMS entrou na base de
cálculo do ICMS mas na nota fiscal não está aparecendo.O valor do ICMS deverá aparecer na linha do
IPI, coluna montante base excluída.
Solução
Fazer tratamento da linha do IPI quando o processo é de isenção, corrigir valores quando processo de
DI for suspensão e tratar valor do ICMS quando for recolhimento integral.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03239 Data: 14/03/2007 Hora: 11:11:45
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03239
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00156
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02120 - 00001 - 6.0 - 00024 - NÃO ESTÁ BATENDO A LINHA DO IPI COM O TOTAL DA NF.
03197 - 00002 - 7.0 - 00001 - AO FAZER A NOTA FISCAL NÃO LEVOU A ALIQUOTA DO ICMS.
----------------------------------------------------------------------------------------------------
ERROS PARA NF DE PROCESSOS ISENÇÃO, SUSPENSÃO E RECOLHIMENTO INTEGRAL.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ISENÇÃO - SUSPENSÃO - RECOLHIMENTO INTEGRAL - VALOR TOTAL
REGIME TRIBUTÁRIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ENDIF.
ENDIF.
ENDFORM.
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 NOT /pws/zycit100-vlicms IS INITIAL AND
NOT /pws/zycit100-icms_dif = 'X'
* >> Início da exclusão: FORM ATUALIZA_ICMS_UNITARIO
AND ( NOT /pws/zycit100-codregtriicms EQ '5' or
NOT /pws/zycit100-codregtriicms EQ ' ' )
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ICMS_UNITARIO
AND NOT ' 5' ca /pws/zycit100-codregtriicms
* << Fim da inclusão
AND NOT /pws/zycit100-codregtri EQ '6'.
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.
ENDIF.
...
...
it_zycee007-taxval2 = itab_zycit036-vlreal.
ELSE.
CLEAR it_zycee007-taxval2.
ENDIF.
it_zycee007-taxtyp2 = itab_zycit033-taxtyp2.
CASE itab_zycit033-tribipi.
WHEN 1.
PERFORM verifica_montante.
v_montante1 = itab_zycit100-baseipi.
it_zycee007-base2 = v_montante1.
* >> Início da exclusão: FORM ITENS_NFNEW
IF itab_zycit100-codregtri = '5'.
it_zycee007-base2 = it_zycee007-base2 - itab_zycit100-vlii.
ELSEIF ( /pws/zycit001-tpdecl = 'DSI' AND
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFNEW
IF ( /pws/zycit001-tpdecl = 'DSI' AND
* << Fim da inclusão
/pws/zycit001-regime = '09' ).
it_zycee007-base2 = it_zycee007-base2 - itab_zycit100-vlii.
ENDIF.
IF /pws/zycit001-meioemba = 'PS'.
it_zycee007-base2 = it_zycee007-base2 +
it_zycee007-taxval.
* >> Início da inclusão: FORM ITENS_NFNEW
ENDIF.
IF itab_zycit100-codregtriicms EQ '3'.
it_zycee007-p_excbas = itab_zycit100-vlicms.
* << Fim da inclusão
ENDIF.
WHEN 2.
PERFORM verifica_montante.
v_montante1 = itab_zycit100-baseipi.
it_zycee007-p_excbas = v_montante1.
* >> Início da exclusão: FORM ITENS_NFNEW
IF itab_zycit100-codregtri = '5'.
it_zycee007-p_excbas = it_zycee007-p_excbas -
itab_zycit100-vlii.
ELSEIF ( /pws/zycit001-tpdecl = 'DSI' AND
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFNEW
IF ( /pws/zycit001-tpdecl = 'DSI' AND
* << Fim da inclusão
/pws/zycit001-regime = '09' ).
it_zycee007-p_excbas = it_zycee007-p_excbas -
itab_zycit100-vlii.
ENDIF.
CLEAR it_zycee007-taxval2.
IF /pws/zycit001-meioemba = 'PS'.
it_zycee007-p_excbas = it_zycee007-p_excbas +
it_zycee007-taxval.
* >> Início da inclusão: FORM ITENS_NFNEW
IF itab_zycit100-codregtriipi = '1' .
it_zycee007-p_excbas = it_zycee007-p_excbas +
itab_zycit100-vlipi.
ENDIF.
* << Fim da inclusão
ENDIF.
WHEN 3.
PERFORM verifica_montante.
v_montante1 = itab_zycit100-baseipi.
it_zycee007-othbas2 = v_montante1.
* >> Início da exclusão: FORM ITENS_NFNEW
IF itab_zycit100-codregtri = '5'.
it_zycee007-othbas2 = it_zycee007-othbas2 - itab_zycit100-vlii.
ELSEIF ( /pws/zycit001-tpdecl = 'DSI' AND
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFNEW
IF ( /pws/zycit001-tpdecl = 'DSI' AND
* << Fim da inclusão
/pws/zycit001-regime = '09' ).
it_zycee007-othbas2 = it_zycee007-othbas2 - itab_zycit100-vlii.
ENDIF.
IF /pws/zycit001-meioemba = 'PS'.
it_zycee007-othbas2 = it_zycee007-othbas2 +
it_zycee007-taxval.
* >> Início da inclusão: FORM ITENS_NFNEW
ENDIF.
IF itab_zycit100-codregtriicms EQ '3'.
it_zycee007-p_excbas = itab_zycit100-vlicms.
* << Fim da inclusão
ENDIF.
ENDCASE.
DATA: itab_zycit398 LIKE /pws/zycit398 OCCURS 0 WITH HEADER LINE.
SELECT * FROM /pws/zycit398
INTO TABLE itab_zycit398
WHERE bukrs EQ /pws/zycie041-bukrs
AND clnf EQ itab_zycit033-clnf
AND tpnf EQ itab_zycit033-tpnf
AND ( tributos EQ 'PIS' OR
tributos EQ 'COFINS' ).
...