CE PLUS - Nota 010615
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 21/09/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:02:50
Descrição da Nota: DUMP DE DIVISÃO POR ZERO
Sintoma
Ao criar a DI e informar uma data que não possua taxa de conversão de moeda cadastrada ocorre DUMP
de divisão por zero.
Solução
Ajustado programa para não efetuar o rateio até possuir as taxas de conversão.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10615 Data: 21/09/2010 Hora: 16:13:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10615
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00040
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10590 - 00001 - 8.0 - 00004 - RATEIO DE DESPESA POR CIF ESTÁ ERRADO NO CALC. DA BASE DE ICMS
----------------------------------------------------------------------------------------------------
DUMP DE DIVISÃO POR ZERO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DUMP - DI - DIVISÃO - ZERO - TAXA - CONVERSÃO - MOEDA
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
/pws/zycie085-waersfob
CHANGING itab_zycit003-netpr.
ENDIF.
t_ivdes2 = ( ( itab_zycit003-netpr * itab_zycit003-qtd_itenc3 )
/
v_tot_plan ) * itab_zycit049-vlreal.
ENDIF.
ENDIF.
ELSE.
IF /pws/zycit062-bs_rat_icms EQ 'CIF'.
* >> Início da exclusão: FORM LOAD_IICMS
IF NOT /pws/zycie085-vlfob IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
IF NOT /pws/zycie085-vlfob IS INITIAL
AND NOT /pws/zycie085-ukursfob IS INITIAL.
* << Fim da inclusão
v_vltfrer = /pws/zycie085-vlfre.
v_vltsegr = /pws/zycie085-vlseg.
IF /pws/zycie085-waersfre NE /pws/zycie085-waersfob.
PERFORM trata_decimais
USING /pws/zycie085-waersfre
CHANGING v_vltfrer.
v_vltfrer = ( v_vltfrer * /pws/zycie085-ukursfre )
/ /pws/zycie085-ukursfob.
PERFORM retorna_decimais
USING /pws/zycie085-waersfob
...