CE PLUS - Nota 005308
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: PLI
Data/Hora da Publicação: 26/11/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:22:41
Descrição da Nota: AO ENTRAR NO DETALHE DO ITEM DA PLI OCORRE DUMP DIVISÃO POR ZERO
Sintoma
O programa não estava verificando se divisor estava zerado na PLI.
E dava dump ao entrar no detalhe do item.
Solução
Verificar se divisor estava zerado para não dividir.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05308 Data: 26/11/2007 Hora: 13:54:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05308
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00022
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AO ENTRAR NO DETALHE DO ITEM DA PLI OCORRE DUMP DIVISÃO POR ZERO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DIVISÃO POR ZERO - DIVISÃO POR 0
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
ELSE.
MESSAGE i015 WITH text-025 text-032.
ENDIF.
ENDIF.
CLEAR /pws/zycie078-dtdef.
ENDFORM.
FORM comm_detli.
v_flag2 = '1'.
LOOP AT it_zycit079 WHERE mark = 'X'.
v_ip = sy-tabix.
* >> Início da inclusão: FORM COMM_DETLI
if v_qtdtot > 0 .
* << Fim da inclusão
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.
* >> Início da inclusão: FORM COMM_DETLI
else.
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ).
endif.
* << Fim da inclusão
MODIFY it_zycit079 TRANSPORTING qtd_drawback.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.
...
...
ELSEIF /pws/zycie078-modalidade EQ 'S'.
/pws/zycie078-codregtri = '5'.
ENDIF.
MESSAGE s015 WITH text-441.
LOOP AT it_zycit079.
READ TABLE itab_zycit376 WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp
nrseqd = v_nrseqd_v.
MOVE:
itab_zycit376-nritem+2 TO it_zycit079-item_drawback.
* >> Início da inclusão: FORM VINCULA_ATO
if v_qtdtot > 0.
* << Fim da inclusão
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.
* >> Início da inclusão: FORM VINCULA_ATO
else.
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ).
endif.
* << Fim da inclusão
it_zycit079-vl_prod_drawback =
it_zycit079-qtd_iten * it_zycit079-netpr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
WHERE nrseqd EQ /pws/zycie078-nrseqd.
READ TABLE it_zycit079 INDEX 1.
READ TABLE it_zycit003_aux2 WITH KEY
ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
READ TABLE it_zycit245 WITH KEY codcomp =
it_zycit003_aux2-matnr.
MOVE:
it_zycit245-nritem+2 TO it_zycit079-item_drawback,
/pws/zycie078-vlmerc TO it_zycit079-vl_prod_drawback.
* >> Início da inclusão: MODULE USER_COMMAND_0810
if v_qtdtot > 0.
* << Fim da inclusão
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.
* >> Início da inclusão: MODULE USER_COMMAND_0810
else.
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ).
endif.
* << Fim da inclusão
MODIFY it_zycit079 INDEX 1.
ENDIF.
...