/*
autor: jaison antoniazzi
data : 09/05/2014
obs : demonstrar o uso do acompanhamento com barra de progresso
contato:
jaison.antoniazzi@gmail.com
skype
jaison.antoniazzi
*/
&SCOPED-DEFINE MAX_VALUE 5000
def var h-prog as handle no-undo.
run utp/ut-perc.p persistent set h-prog.
run pi-inicializar in h-prog(input "Contando", {&MAX_VALUE} ).
run pi-desabilita-cancela in h-prog.
DEFINE VARIABLE icont AS INTEGER NO-UNDO.
DO icont = 1 TO {&MAX_VALUE}:
run pi-acompanhar in h-prog.
run pi-registro in h-prog (input string(icont)).
END.
FINALLY:
IF VALID-HANDLE(h-prog) THEN DO:
run pi-finalizar in h-prog.
END.
END.
-
Anuncie Aqui ! Entre em contato fdantas@4each.com.br -
-