CE PLUS - Nota 006535
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Reports
Data/Hora da Publicação: 08/05/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 13:21:52
Descrição da Nota: RELAÓRIO IMPOSTOS PAGOS NÃO DESCONSIDERAVA OS REGIMES NÃO TRIBUTAVEIS
Sintoma
O Relatório de Impostos Pagos não estava desconsiderando os impostos de regime não tributáveis
Solução
Verificar se o imposto é tributavel
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06535 Data: 08/05/2008 Hora: 13:41:33
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06535
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00046
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
RELAÓRIO IMPOSTOS PAGOS NÃO DESCONSIDERAVA OS REGIMES NÃO TRIBUTAVEIS
----------------------------------------------------------------------------------------------------
Palavras Chave:
RELATÓRIO - IMPOSTOS - PAGOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR153
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR153
...
itab_j_1bnfdoc-waerk TO itab_dados-waerk ,
itab_j_1bnfdoc-docdat TO itab_dados-docdat ,
itab_j_1bnfdoc-pstdat TO itab_dados-pstdat ,
itab_zycit085-nrdi TO itab_dados-nrdi ,
itab_zycit003-advalii TO itab_dados-advalii ,
itab_zycit003-advalicms TO itab_dados-aliqicms ,
itab_zycit003-advalipi TO itab_dados-aliqipi ,
itab_lfa1-name1 TO itab_dados-name1 .
READ TABLE itab_zycit041 WITH KEY nrseq = itab_zycit042-nrseqnf
docnum = itab_zycit042-docnum .
* >> Início da exclusão: FORM CARREGA_DADOS
itab_dados-vlii = itab_zycit100-vlii .
itab_dados-vlipi = itab_zycit100-vlipi .
itab_dados-vlicms = itab_zycit100-vlicms .
itab_dados-vlpis = itab_zycit100-vlpis .
itab_dados-vlcofins = itab_zycit100-vlcofins .
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS
if not '356' ca itab_zycit100-codregtri.
itab_dados-vlii = itab_zycit100-vlii.
endif.
if not '156' ca itab_zycit100-codregtriipi.
itab_dados-vlipi = itab_zycit100-vlipi.
endif.
if not '356' ca itab_zycit100-codregtriicms.
if itab_zycit100-icms_dif IS INITIAL.
itab_dados-vlicms = itab_zycit100-vlicms.
endif.
endif.
if not '356' ca itab_zycit100-codregtripiscofi.
itab_dados-vlpis = itab_zycit100-vlpis.
itab_dados-vlcofins = itab_zycit100-vlcofins.
endif.
* << Fim da inclusão
IF itab_zycit100-icms_dif EQ 'X'.
MOVE text-038 TO itab_dados-tpicms.
ELSE.
MOVE text-039 TO itab_dados-tpicms.
ENDIF.
itab_dados-waerk = /pws/zycbt007-waersb.
MOVE: itab_j_1bnfdoc-nfnum TO itab_dados-docnf ,
itab_j_1bnfdoc-series TO itab_dados-series ,
itab_j_1bnfdoc-subser TO itab_dados-subser .
SHIFT itab_dados-docnf RIGHT DELETING TRAILING space.
...