1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br
jaisonantoniazzi

Acompanhamento com vídeo 2014-04-22

acomp,video,ut-acomp

  1. jaisonantoniazzi
    /*
    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.
    Isaaac curtiu isso.