Barra de progresso 2014-05-09

/*
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.