CE PLUS - Nota 007209

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.

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

ABERTURA DE EXIT PARA CÁLCULO DE ICMS

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.

 

...