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

Barra de progressão (ProgressBar)

Discussão em 'Progress 4GL' iniciado por eduardo, Dezembro 9, 2009.

  1. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    Segue exemplo para o UT-PERC no Datasul:

    Código:
    
    def var iNumReg         as integer  no-undo.
    def var h-prog          as handle   no-undo.
    
    /**** Busca o número de registro na tabela ITEM ****/
    select count(*) into iNumReg
         from item
        where item.cod-obsoleto < 4.
    
    /**** faz leitura na tabela emitente e mostra barra de progresso ****/
    run utp/ut-perc.p  persistent set h-prog.
    run pi-inicializar in h-prog (input "Listando Cliente", iNumReg).
    
    for each item
       where item.cod-obsoleto < 4 no-lock:
    
        run pi-acompanhar   in h-prog.
        run pi-registro     in h-prog (input string(item.it-codigo) + string(item.desc-item)).
    
    end.
    
    run pi-finalizar in h-prog.
    
    
  2. RobertoLeal

    RobertoLeal Sem Pontuação

    Veja o anexo com um exemplo bem simples do uso do ProgressBare do Slider.

    Arquivos Anexados:

  3. eder.ufscar

    eder.ufscar Membro Participativo

    alguém poderia me passar um procedimento do percentula via utp?

Compartilhe esta Página