CE PLUS - Nota 003170
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 01/03/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:52:55
Descrição da Nota: QUANDO ESTORNAMOS UM RECEBIMENTO REALIZADA EM UM AC DÁ DUMP.
Sintoma
Quando estornamos um Recebimento na Importação realizada em um AC está dando Dump.
Solução
Verificar se valor está zerado ou não antes de efetuar divisão .
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03170 Data: 01/03/2007 Hora: 09:46:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03170
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00155
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01981 - 00001 - 6.0 - 00024 - AJUSTE PARA TRATAR NOTAS FISCAIS DE REMESSA NO RECEBIMENTO VINC.
----------------------------------------------------------------------------------------------------
QUANDO ESTORNAMOS UM RECEBIMENTO REALIZADA EM UM AC DÁ DUMP.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ESTORNO DE RECEBIMENTO - ATO CONCESSÓRIO - DUMP
DIVISÃO POR ZERO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
IF sy-subrc = 0 .
v_tabix1 = sy-tabix.
READ TABLE itab_zycit376d WITH KEY ebeln = itab_itens_nf-ebeln
ebelp = itab_itens_nf-ebelp.
READ TABLE itab_zycit245d WITH KEY nrseqd = itab_zycit376d-nrseqd
nritem = itab_zycit376d-nritem.
READ TABLE itab_zycit003 WITH KEY nrseq = itab_itens_nf-nrseq
ebeln = itab_itens_nf-ebeln
ebelp = itab_itens_nf-ebelp.
CLEAR: v_variacfobd.
* >> Início da inclusão: FORM ESTORNA_SALDO_ATO
IF NOT itab_zycit279-menge IS INITIAL
AND NOT itab_zycit376d-qtd_apro IS INITIAL.
* << Fim da inclusão
v_variacfobd = itab_zycit279-menge *
( ( itab_zycit376d-vlfob / itab_zycit376d-qtd_apro ) -
( itab_zycit279-vltot / itab_zycit279-menge ) ).
* >> Início da inclusão: FORM ESTORNA_SALDO_ATO
ENDIF.
* << Fim da inclusão
itab_zycit245d-vlvinc = itab_zycit245d-vlvinc + v_variacfobd.
UPDATE /pws/zycit245 SET vlvinc = itab_zycit245d-vlvinc
WHERE nrseqd EQ itab_zycit245d-nrseqd
AND nritem EQ itab_zycit245d-nritem.
...