/*
autor: jaison antoniazzi
data.: 22/04/2014
email: jaison.antoniazzi@gmail.com
skype: jaison.antoniazzi
obs..: demonstrar o uso do ut-acomp e a opcao setar video (pi-seta-video 6).
*/
&SCOPED-DEFINE EXIBIR_VIDEO 6
DEFINE VARIABLE hacomp AS HANDLE NO-UNDO.
DEFINE VARIABLE icont AS INTEGER NO-UNDO.
RUN utp/ut-acomp.p PERSISTENT SET hacomp.
RUN pi-seta-tipo IN hacomp (INPUT {&EXIBIR_VIDEO}).
RUN pi-inicializar IN hacomp ("iniciando").
RUN pi-seta-titulo IN hacomp ("Processando...").
RUN pi-desabilita-cancela IN hacomp.
DO icont = 1 TO 40000:
RUN pi-acompanhar IN hacomp ("Processando:" + STRING(icont)).
END.
FINALLY:
RUN pi-finalizar IN hacomp.
END.
-
Anuncie Aqui ! Entre em contato fdantas@4each.com.br -
-