Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 27/08/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:18:03
Descrição da Nota: DUMP DIVISÃO POR ZERO
Sintoma
Ao tentar criar uma nota fiscal de remessa esta ocorrendo DUMP por divisão por zero
Solução
Ajustado programa para preencher o campo basred da tabela interna itab_zycit003 com o valor '100'
quando o campo estiver em branco.
7.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07209 Data: 27/08/2008 Hora: 16:02:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07209
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00062
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05383 - 00001 - 7.0 - 00003 - ABERTURA DE EXIT PARA CÁLCULO DE ICMS
----------------------------------------------------------------------------------------------------
DUMP DIVISÃO POR ZERO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DUMP - DIVISÃO - ZERO - REMESSA - CRIAR
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
( itab_zycit042_d-vldpii /
itab_zycit044-menge * itab_zycit044-qtd_item ) .
v_outras_ic = ( itab_zycit044-vldp /
itab_zycit044-menge * itab_zycit044-qtd_item ) + v_vldp_044.
it_zycee007-netoth = v_despesas + v_outras + v_ipi +
v_vldp_044 .
it_zycee007-netpr = itab_zycit044-netpr.
v_total = ( ( it_zycee007-netpr * itab_zycit044-qtd_item ) +
it_zycee007-netfre + it_zycee007-netins +
it_zycee007-netoth ).
* >> Início da exclusão: FORM VALORES_R
IF itab_zycit100-icms_dif = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM VALORES_R
IF itab_zycit100-icms_dif = 'X' OR
itab_zycit003-basred IS INITIAL.
* << Fim da inclusão
itab_zycit003-basred = '100'.
v_basred = itab_zycit003-basred.
ENDIF.
...