CE PLUS - Nota 010900
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 18/01/2011 00:00:00
Data/Hora Última Alteração: 18/01/2011 14:04:38
Descrição da Nota: DUMP AO CRIAR DI
Sintoma
Dump ao criar DI
Solução
Não calcular valor negativo.
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10900 Data: 18/01/2011 Hora: 14:52:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10900
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00055
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DUMP AO CRIAR DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
DUMP - DI - TAXA DE CONVERSÃO - DATA DA TAXA - VALOR NEGATIVO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
* >> Início da inclusão: FORM CALC_ITAB
IF /pws/zycie085-vlfobr LT 0 .
CLEAR: /pws/zycie085-vlfobr, s_fbvr.
ENDIF.
IF /pws/zycie085-vlfob LT 0 .
CLEAR /pws/zycie085-vlfob.
ENDIF.
IF v_tval LT 0.
CLEAR v_tval.
ENDIF.
IF v_tval2 LT 0.
CLEAR v_tval2.
ENDIF.
IF v_tval3 LT 0.
CLEAR v_tval3.
ENDIF.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
IF /pws/zycie085-mdadicao = 'N'.
IF itab_it-waersbem EQ /pws/zycie085-waersfob.
IF NOT itab_it-vlreald IS INITIAL.
v_tval = v_tval + ( itab_it-qtd_itendc3 * itab_it-vlreal ).
ELSE.
v_tval = v_tval + ( itab_it-qtd_itenc3 * itab_it-vlreal ).
ENDIF.
ELSE.
* >> Início da inclusão: FORM CALC_INIT
IF NOT /pws/zycie085-dttax IS INITIAL.
* << Fim da inclusão
PERFORM taxa_converte USING itab_it-waersbem
/pws/zycie085-dttax
CHANGING v_taxa.
v_tvaln = v_tvaln + ( v_qtd_iten * itab_it-vlreal ).
v_tvaln = v_tvaln * v_taxa.
* >> Início da inclusão: FORM CALC_INIT
ENDIF.
* << Fim da inclusão
PERFORM taxa_converte USING /pws/zycie085-waersfob
/pws/zycie085-dttax
...