Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 02/10/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:18:39
Descrição da Nota: ESTÁ LEVANDO VALOR DE ICMS NAS MENSAGENS DA NF MESMO ISENTO
Sintoma
Está levando valor de icms nas mensagens da nf mesmo quando está isento.
Solução
Verificar se ICMS é isento antes de somar.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07393 Data: 02/10/2008 Hora: 15:21:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07393
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00067
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03302 - 00001 - 7.0 - 00001 - NA NOTA FISCAL VERIFICAR TABELA ZYCIT062 PARA NÃO INCIDÊNCIA DA D
04528 - 00002 - 7.0 - 00003 - DRAFT NOTA FISCAL ICMS SUSPENSO
----------------------------------------------------------------------------------------------------
ESTÁ LEVANDO VALOR DE ICMS NAS MENSAGENS DA NF MESMO ISENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ICMS - MENSAGENS - NF - ISENÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
READ TABLE itab_zycit100 WITH KEY
nrseq = itab_zycit042_mark-nrseq
ebeln = itab_zycit042_mark-ebeln
ebelp = itab_zycit042_mark-ebelp .
IF sy-subrc EQ 0 AND
( /pws/zycit085-tpdi EQ 'N' AND
* >> Início da exclusão: FORM MENSAGENS_NF
NOT '56' CA itab_zycit100-codregtriicms ) OR
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
NOT '356' CA itab_zycit100-codregtriicms ) OR
* << Fim da inclusão
( /pws/zycit085-tpdi EQ 'S' AND
NOT '56' CA itab_zycit100-codregtri ).
IF itab_zycit100-icms_dif NE 'X'.
v_icms_dif = v_icms_dif + itab_zycit100-vlicms.
ELSE.
v_dif = 'X'.
ENDIF.
ENDIF.
...