VARIAVEL Z_fgatua = "S" 
VARIAVEL Z_nalter = 0 
VARIAVEL Z_nok    = 0 
 
T10,4,16,76,Preco Compra -> Custo 
T3,3,Confirma Atualizar Precos ?,8,z_fgatua,! 
 
COMANDO ANTES Z_NIL=IF(Z_FGATUA<>"S",dbgobottom()) 
 
C[Empresa]                                     Data [Date()] 
C[Sistema]                                           Hora [Time()] 
CProdutos com Precos Promocionais Programados                 Pag [Pag 9999] 
C------------------------------------------------------------------------- 
CCod   Descricao                     Pr.Compra  Pr.Compra 
C                                     Anterior  Alterado 
C------------------------------------------------------------------------- 
* 
D[pcod 99999] [pdesc @s30] [z_pvlutabant @e 9,999.99] [pvlutab @E 9,999.99] 
 
COMANDO DURANTE z_pvlutabant = pvlutab 
COMANDO DURANTE z_fgatua = (pvluven3<>pvlutab) 
COMANDO DURANTE Z_NALTER = Z_NALTER + if(z_fgatua,1,0) 
COMANDO DURANTE Z_Nok    = Z_Nok    + if(!z_fgatua,1,0) 
COMANDO DURANTE z_nil    = if(z_fgatua, REGLOCK(), "") 
COMANDO DURANTE z_nil    = if(z_fgatua, PUT_VAR("pvlutab",  pvluven3*pitens ) ,"") 
COMANDO DEPOIS dbCommitAll() 
 
ULTPAG------------------------------------------------------------------------- 
ULTPAG Produtos com Preco de Compra Atualizados: [z_nalter @e 999,999] 
ULTPAG Produtos que ja estavam com Precos Ok...: [z_nok @e 999,999] 
 