CE PLUS - Nota 003244
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 14/03/2007 00:00:00
Data/Hora Última Alteração: 08/03/2010 17:03:21
Descrição da Nota: AJUSTE PARA CALCULAR O SEGURO
Sintoma
Não está calculando o seguro na DSI.
Solução
Ajustado o programa para calcular o seguro com o campo /pws/zycie085-vlfob.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03244 Data: 14/03/2007 Hora: 13:32:29
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03244
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00156
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTE PARA CALCULAR O SEGURO
----------------------------------------------------------------------------------------------------
Palavras Chave:
/PWS/ZYCIE085-VLFOB, FORM CALC_ITAB
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
ELSE.
/pws/zycie085-vlfob = v_tval2 .
ENDIF.
/pws/zycie085-vlfobr = s_fbvr = v_tmle.
IF v_tval2 LT '0'.
MESSAGE i015 WITH text-119 text-125.
LEAVE PROGRAM.
ENDIF.
ELSE.
/pws/zycie085-vlfobr = s_fbvr = v_tmle.
* >> Início da inclusão: FORM CALC_ITAB
/pws/zycie085-vlfob = v_tval.
* << Fim da inclusão
CLEAR: v_tval2.
ENDIF.
PERFORM load_fbvl.
CLEAR: v_desp_acr, v_desp_brl.
LOOP AT itab_zycit049 WHERE tipo = 'A' AND
vldp > 0.
IF itab_zycit049-waers = /pws/zycbt007-waersb.
s_fbvr = s_fbvr + itab_zycit049-vldp.
v_desp_brl = v_desp_brl + itab_zycit049-vldp.
ELSE.
...