CE PLUS - Nota 008288
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 08/04/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:03:50
Descrição da Nota: DUMP DE DIVISÃO POR ZERO NA CRIAÇÃO DA DI.
Sintoma
Dump de divisão por zero na criação da DI.
Dump ocorre em processos com valor de frete ou seguro na fatura.
Solução
Corrigido preenchimento da quantidade na tabela interna dos itens.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08288 Data: 08/04/2009 Hora: 10:54:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08288
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00093
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08277 - 00001 - 7.0 - 00009 - AO ENTRAR NA DI NÃO CALCULA O VALOR DA MERCADORIA NA CARGA 2
----------------------------------------------------------------------------------------------------
DUMP DE DIVISÃO POR ZERO NA CRIAÇÃO DA DI.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DUMP - DI - DIVISÃO - ZERO - QUANTIDADE -
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
WHERE pais EQ 'BR'.
ENDIF.
IF /pws/zycie085-j_1bbranch IS INITIAL.
READ TABLE itab_zycit001 INDEX 1.
/pws/zycie085-j_1bbranch = itab_zycit001-j_1bbranch.
ENDIF.
PERFORM find_region.
/pws/zycie085-mdadicao = 'S'.
CLEAR: v_tntgew, v_tval, v_tmle, v_waers, v_tsegfat.
LOOP AT itab_zycit003.
* >> Início da inclusão: FORM FILL_ITABIT
itab_zycit003-qtd_itendc3 = itab_zycit003-qtd_itend
* 10000.
itab_zycit003-qtd_itenc3 = itab_zycit003-qtd_iten
* 10000.
itab_zycit003-qtd_itendc3 =
trunc( itab_zycit003-qtd_itendc3 ) / 10000.
itab_zycit003-qtd_itenc3 =
trunc( itab_zycit003-qtd_itenc3 ) / 10000.
MODIFY itab_zycit003 .
* << Fim da inclusão
READ TABLE itab_zycit013 WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
MOVE: itab_zycit013-slqtde TO itab_zycit003-slqtde,
itab_zycit013-uebto TO itab_zycit003-uebto,
itab_zycit013-uebtk TO itab_zycit003-uebtk,
'X' TO itab_zycit003-noinitial.
CLEAR itab_it.
READ TABLE itab_it WITH KEY
nrseq = itab_zycit003-nrseq
...
...
( itab_it-vlfre_fat / itab_zycit003-qtd_itenc3 ).
CLEAR itab_it-vlfre_fat.
ENDIF.
IF NOT itab_it-vlseg_fat IS INITIAL AND
NOT itab_zycit003-qtd_iten IS INITIAL.
itab_it-vlreal = itab_it-vlreal +
( itab_it-vlseg_fat / itab_zycit003-qtd_itenc3 ).
CLEAR itab_it-vlseg_fat.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM FILL_ITABIT
itab_zycit003-qtd_itendc3 = itab_zycit003-qtd_itend
* 10000.
itab_zycit003-qtd_itenc3 = itab_zycit003-qtd_iten
* 10000.
itab_it-qtd_itendc3 = itab_zycit003-qtd_itendc3 =
trunc( itab_zycit003-qtd_itendc3 ) / 10000.
itab_it-qtd_itenc3 = itab_zycit003-qtd_itenc3 =
trunc( itab_zycit003-qtd_itenc3 ) / 10000.
MODIFY itab_zycit003 TRANSPORTING qtd_itendc3 qtd_itenc3
WHERE ebeln = itab_it-ebeln
and EBELP = itab_it-ebelp.
* << Fim da exclusão
itab_it-vlreal_dest = itab_it-vlreal.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
EXPORTING
input = itab_it-matnr_item
IMPORTING
output = itab_it-matnr_item.
IF sy-subrc <> 0.
ENDIF.
MODIFY itab_it.
ENDLOOP.
...