CE PLUS - Nota 007407
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 07/10/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:18:50
Descrição da Nota: AO CRIAR NF NÃO CONSIDERA IPI OU ICMS É ISENTO PARA LANÇAR ALÍQUOTA.
Sintoma
Ao criar NF não considera IPI ou ICMS é isento para lançar alíquota.
Solução
Verifica se IPI ou ICMS é isento antes de lançar alíquota.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07407 Data: 07/10/2008 Hora: 09:30:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07407
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00068
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05107 - 00001 - 7.0 - 00003 - NO DRAFT DA NF REMESSA, O VALOR DO ICMS ESTÁ INCORRETO
----------------------------------------------------------------------------------------------------
AO CRIAR NF NÃO CONSIDERA IPI OU ICMS É ISENTO PARA LANÇAR ALÍQUOTA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
NF - GLOBAL - REMESSA - IPI - ICMS - ISENÇÃO - ISENTO
DETALHE DO ITEM - ALÍQUOTA - MENSAGEM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
READ TABLE itab_zycit044 INDEX 1.
IF sy-subrc EQ 0.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
LOOP AT itab_zycit042 WHERE docnum = itab_zycit044-docnumnfg.
READ TABLE itab_zycit100_aux WITH KEY ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
IF ( /pws/zycit085-tpdi EQ 'N' AND
* >> Início da exclusão: FORM MENSAGENS_NF_R
NOT ' 456' CA itab_zycit100_aux-codregtriicms ) OR
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
NOT ' 3456' CA itab_zycit100_aux-codregtriicms ) OR
* << Fim da inclusão
( /pws/zycit085-tpdi EQ 'S' AND
NOT '56' CA itab_zycit100_aux-codregtri ) .
IF itab_zycit100_aux-icms_dif NE 'X'.
v_icms_nfr_1 = v_icms_nfr_1 + itab_zycit100_aux-vlicms .
ELSE.
v_dif = 'X'.
ENDIF.
...
...
CLEAR: v_base, v_othbas.
CLEAR itab_zycit036.
READ TABLE itab_zycit036 WITH KEY nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp
codigo = 'IPI'.
* >> Início da inclusão: FORM ITENS_NFNEW
if ' 156' NA itab_zycit100-codregtriipi.
* << Fim da inclusão
it_zycee007-rate2 = itab_zycit003-advalipi.
* >> Início da inclusão: FORM ITENS_NFNEW
endif.
* << Fim da inclusão
IF NOT itab_zycit100-vlipi IS INITIAL.
it_zycee007-taxval2 = itab_zycit036-vlreal.
ELSE.
CLEAR it_zycee007-taxval2.
ENDIF.
it_zycee007-taxtyp2 = itab_zycit033-taxtyp2.
...
...
READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit044-nrseq
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
READ TABLE itab_zycit003 WITH KEY nrseq = itab_zycit044-nrseq
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
* >> Início da exclusão: FORM ITENS_NFRNEW
it_zycee007-rate = itab_zycit003-advalicms.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFRNEW
IF ' 356' NA itab_zycit100-codregtriicms.
it_zycee007-rate = itab_zycit003-advalicms.
ENDIF.
* << Fim da inclusão
it_zycee007-mfrpn = itab_zycit003-mfrpn .
CONCATENATE itab_zycit044-ebeln '/' itab_zycit044-ebelp
INTO it_zycee007-msg1.
...