CE PLUS - Nota 005035
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 19/10/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:48:58
Descrição da Nota: DUMP AO CRIAR FATURA DE DESPESAS COM CONTABILIZAÇÃO DE IMPOSTOS
Sintoma
Ao tentar criar uma fatura de despesas com contabilização de impostos pela miro ocorre um DUMP de
por estouro de campo.
Solução
Somar apenas os valores necessarios.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05035 Data: 19/10/2007 Hora: 17:17:17
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05035
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00017
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04978 - 00001 - 7.0 - 00003 - DESENVOLVIMENTO DE CONTABILIZAÇÃO DE IMPOSTOS ATRAVÉS DA MIRO
----------------------------------------------------------------------------------------------------
DUMP AO CRIAR FATURA DE DESPESAS COM CONTABILIZAÇÃO DE IMPOSTOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - DESPESAS - IMPOSTOS - DUMP
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
/pws/zycie006-dtincl
CHANGING v_taxaf.
IF v_taxaf IS INITIAL OR v_taxau IS INITIAL.
EXIT.
ENDIF.
REFRESH: itab_zycit403, itab_zycit403t, itab_zycit483.
SELECT * FROM /pws/zycit403 INTO TABLE itab_zycit403
WHERE nrseqdi EQ /pws/zycit085-nrseqdi.
DELETE itab_zycit403 WHERE percentual EQ 0.
LOOP AT itab_zycit403.
* >> Início da exclusão: FORM TRATA_IMPOSTOS
itab_zycit403t = itab_zycit403.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_IMPOSTOS
itab_zycit403t-codigo = itab_zycit403-codigo.
itab_zycit403t-base = itab_zycit403-base.
* << Fim da inclusão
CLEAR: itab_zycit403t-ebeln, itab_zycit403t-ebelp.
itab_zycit403t-base =
( itab_zycit403-base * v_taxau ) / v_taxaf.
COLLECT itab_zycit403t.
ENDLOOP.
ENDIF.
LOOP AT itab_zycit403t.
CLEAR: itab_zycit029, itab_zycit399.
READ TABLE itab_zycit399 WITH KEY codigo = itab_zycit403t-codigo.
READ TABLE itab_zycit029 WITH KEY codigo = itab_zycit403t-codigo.
...
...
PERFORM taxa_converte USING /pws/zycbt007-waersa
/pws/zycie006-dtincl
CHANGING v_taxau.
PERFORM taxa_converte USING /pws/zycie006-waers
/pws/zycie006-dtincl
CHANGING v_taxaf.
IF v_taxa IS INITIAL OR v_taxau IS INITIAL.
EXIT.
ENDIF.
LOOP AT itab_zycit403.
* >> Início da exclusão: FORM REFRESH_IMPOSTOS
itab_zycit403t = itab_zycit403.
* << Fim da exclusão
* >> Início da inclusão: FORM REFRESH_IMPOSTOS
itab_zycit403t-codigo = itab_zycit403-codigo.
itab_zycit403t-base = itab_zycit403-base.
* << Fim da inclusão
CLEAR: itab_zycit403t-ebeln, itab_zycit403t-ebelp.
itab_zycit403t-base =
( itab_zycit403-base * v_taxau ) / v_taxaf.
COLLECT itab_zycit403t.
ENDLOOP.
LOOP AT itab_zycit403t.
CLEAR: itab_zycit029, itab_zycit399.
READ TABLE itab_zycit399 WITH KEY codigo = itab_zycit403t-codigo.
READ TABLE itab_zycit029 WITH KEY codigo = itab_zycit403t-codigo.
LOOP AT itab_zycit047 WHERE vldp > 0.
...