CE PLUS - Nota 004987
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 15/10/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 10:51:02
Descrição da Nota: QUANDO O PIS E COFINS É ISENÇÃO NA DI NÃO LANÇA A BASE NA NF
Sintoma
QUANDO O PIS E COFINS É isento NA DI NÃO LANÇA A BASE NA NOTA FISCAL, sendo OU NÃO DRAWBACK.
Solução
ajustar para lançar valores de base de pis e cofins na nota fiscal mesmo que o regime tributário
seja isenção
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04987 Data: 15/10/2007 Hora: 14:53:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04987
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00017
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
QUANDO O PIS E COFINS É ISENÇÃO NA DI NÃO LANÇA A BASE NA NF
----------------------------------------------------------------------------------------------------
Palavras Chave:
PIS - COFINS - ISENÇÃO - DRAWBACK - DI - NOTA FISCAL
REGIME TRIBUTÁRIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF sy-subrc EQ 0.
it_zycee007-leipis = itab_zycit398-leipis.
ENDIF.
IF NOT itab_zycit100-vlpis IS INITIAL.
CLEAR itab_zycit036.
READ TABLE itab_zycit036 WITH KEY nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp
codigo = 'PIS'.
it_zycee007-taxval_pis = itab_zycit036-vlreal.
* >> Início da inclusão: FORM ITENS_NFNEW
else.
clear it_zycee007-taxval_pis .
endif.
* << Fim da inclusão
READ TABLE itab_zycit398 WITH KEY tributos = 'PIS'.
IF sy-subrc EQ 0.
it_zycee007-taxtyp_pis = itab_zycit398-taxtyp.
ELSE.
CLEAR it_zycee007-taxtyp_pis.
ENDIF.
IF NOT it_zycee007-taxval_pis IS INITIAL.
it_zycee007-rate_pis = itab_zycit100-advalpis.
ENDIF.
CASE itab_zycit398-tribpiscof.
...
...
WHEN 2.
PERFORM verifica_montante.
v_montante1 = itab_zycit100-basepis.
it_zycee007-pis_excbas = v_montante1.
CLEAR it_zycee007-taxval_pis.
WHEN 3.
PERFORM verifica_montante.
v_montante1 = itab_zycit100-basepis.
it_zycee007-othbas_pis = v_montante1.
ENDCASE.
* >> Início da exclusão: FORM ITENS_NFNEW
ENDIF.
* << Fim da exclusão
READ TABLE itab_zycit398 WITH KEY tributos = 'COFINS'.
IF sy-subrc EQ 0.
it_zycee007-leicofins = itab_zycit398-leicofins.
ENDIF.
IF NOT itab_zycit100-vlcofins IS INITIAL.
CLEAR itab_zycit036.
READ TABLE itab_zycit036 WITH KEY nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp
codigo = 'COFINS'.
it_zycee007-taxval_cof = itab_zycit036-vlreal.
* >> Início da inclusão: FORM ITENS_NFNEW
else .
clear it_zycee007-taxval_cof .
endif.
* << Fim da inclusão
READ TABLE itab_zycit398 WITH KEY tributos = 'COFINS'.
IF sy-subrc EQ 0.
it_zycee007-taxtyp_cof = itab_zycit398-taxtyp.
ELSE.
CLEAR it_zycee007-taxtyp_cof.
ENDIF.
IF NOT it_zycee007-taxval_cof IS INITIAL.
it_zycee007-rate_cof = itab_zycit100-advalcofins.
ENDIF.
CASE itab_zycit398-tribpiscof.
...
...
WHEN 2.
PERFORM verifica_montante.
v_montante1 = itab_zycit100-basecofins.
it_zycee007-cof_excbas = v_montante1.
CLEAR it_zycee007-taxval_cof.
WHEN 3.
PERFORM verifica_montante.
v_montante1 = itab_zycit100-basecofins.
it_zycee007-othbas_cof = v_montante1.
ENDCASE.
* >> Início da exclusão: FORM ITENS_NFNEW
ENDIF.
* << Fim da exclusão
IF ( NOT /pws/zycie001-modalidade EQ '05' AND
NOT /pws/zycie001-tpdecl EQ 'DI' ) OR
itab_zycit480[] IS INITIAL.
IF /pws/zycit062-flag_icms = 'X' AND /pws/zycit001-meioemba NE 'PS'.
IF NOT v_basred IS INITIAL.
it_zycee007-p_excbas = it_zycee007-p_excbas +
itab_zycit042-vldp + ( ( it_zycee007-taxval * 100 ) /
v_basred ) + v_impostos.
ELSE.
v_basred = '100'.
...