CE PLUS - Nota 007645
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 26/11/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:00:45
Descrição da Nota: DUMP NA DI QUANDO NÃO ENCONTRA TAXA DE VALOR DE SEGURO.
Sintoma
Dump na DI quando não encontra taxa de valor de seguro.
Solução
Verificar se campo está zerado antes de dividir.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07645 Data: 26/11/2008 Hora: 12:05:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07645
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00075
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07519 - 00001 - 7.0 - 00007 - CÁLCULO DO SEGURO QUANDO EXISTEM MOEDAS DIFERENTES ENTRE VMLE E F
----------------------------------------------------------------------------------------------------
DUMP NA DI QUANDO NÃO ENCONTRA TAXA DE VALOR DE SEGURO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DUMP - DI - SEGURO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
PERFORM taxa_converte USING /pws/zycie085-waersfre
/pws/zycie085-dttax
CHANGING v_taxa.
IF NOT v_taxa IS INITIAL.
v_fre = v_bltofat * v_taxa .
ENDIF.
* >> Início da inclusão: FORM LOAD_SEVL
IF NOT /pws/zycie085-ukursseg IS INITIAL.
* << Fim da inclusão
/pws/zycie085-vlseg = ( ( v_fob + v_fre - v_desp_brl ) *
( /pws/zycie085-per_seg / 100 ) ) / /pws/zycie085-ukursseg.
* >> Início da inclusão: FORM LOAD_SEVL
ENDIF.
* << Fim da inclusão
PERFORM retorna_decimais USING /pws/zycie085-waersseg
CHANGING /pws/zycie085-vlseg.
ENDIF.
ENDIF.
...