CE PLUS - Nota 008532
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 10/06/2009 00:00:00
Data/Hora Última Alteração: 21/02/2011 13:27:51
Descrição da Nota: RELATÓRIO IMPOSTOS PAGOS - TRATAMENTO NOTA FISCAL ELETRÔNICA
Sintoma
Relatório impostos pagos não está exibindo o numero da nota fiscal.
Solução
Ajustado relatório impostos pagos para tratar nota fiscal eletrônica.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08532 Data: 10/06/2009 Hora: 15:28:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08532
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00100
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06535 - 00001 - 7.0 - 00005 - RELAÓRIO IMPOSTOS PAGOS NÃO DESCONSIDERAVA OS REGIMES NÃO TRIBUTA
----------------------------------------------------------------------------------------------------
RELATÓRIO IMPOSTOS PAGOS - TRATAMENTO NOTA FISCAL ELETRÔNICA
----------------------------------------------------------------------------------------------------
Palavras Chave:
RELATÓRIO - IMPOSTOS - PAGOS - NOTA - FISCAL - ELETRÔNICA
/PWS/ZYCIR153
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR153
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR153
...
if not '356' ca itab_zycit100-codregtripiscofi.
itab_dados-vlpis = itab_zycit100-vlpis.
itab_dados-vlcofins = itab_zycit100-vlcofins.
endif.
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.
* >> Início da exclusão: FORM CARREGA_DADOS
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 .
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS
CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'
EXPORTING
docnum = itab_j_1bnfdoc-docnum
IMPORTING
nfnum = itab_dados-docnf
series = itab_dados-series
subser = itab_dados-subser.
* << Fim da inclusão
SHIFT itab_dados-docnf RIGHT DELETING TRAILING space.
OVERLAY itab_dados-docnf WITH '0000000000'.
READ TABLE itab_j_1bnfstx WITH KEY docnum = itab_zycit042-docnum
itmnum = itab_zycit042-itmnum
tipo = 'C'.
itab_dados-vtotal = itab_j_1bnflin-netwr + itab_j_1bnflin-netfre +
itab_j_1bnflin-netins + itab_j_1bnflin-netoth -
itab_zycit100-vlicms.
itab_dados-vtotal = itab_dados-vtotal - itab_zycit100-vlpis -
itab_zycit100-vlcofins.
...