Réguas de progresso em AdvPL

Visão geral

Réguas de progresso ajudam o usuário a perceber que uma rotina longa continua em execução. No AdvPL, o conjunto mais comum com Processa usa um bloco de ação, ProcRegua para definir o total e IncProc para avançar a régua. Em outro modelo visual, RptStatus trabalha com SetRegua e IncRegua. Embora os nomes sejam parecidos, os pares pertencem a fluxos diferentes; misturá-los sem validar o contexto pode gerar comportamento inesperado.

Sintaxe

Processa · ProcRegua · IncProc · RptStatus · SetRegua · IncRegua

Parâmetros

Processa com ProcRegua e IncProc

#Include "TOTVS.ch"

User Function ExProcessa()
    Local bAcao   := {|lFim| U_ExProcessaItens(@lFim)}
    Local cTitulo := "Processamento"
    Local cMsg    := "Processando itens..."
    Local lAborta := .T.

    Processa(bAcao, cTitulo, cMsg, lAborta)
Return

User Function ExProcessaItens(lFim)
    Local nItem
    Local nTotal := 100

    ProcRegua(nTotal)

    For nItem := 1 To nTotal
        If lFim
            Exit
        EndIf

        // Execute aqui o processamento do item.
        IncProc()
    Next nItem
Return

RptStatus com SetRegua e IncRegua

#Include "TOTVS.ch"
#Include "TopConn.ch"

User Function ExRptStatus()
    Local aArea := GetArea()

    RptStatus({|| U_ExReguaQuery()}, "Aguarde...", "Executando consulta...")

    RestArea(aArea)
Return

User Function ExReguaQuery()
    Local aArea  := GetArea()
    Local nTotal := 0

    TCQuery "SELECT BM_GRUPO, BM_DESC FROM %table:SBM% SBM WHERE SBM.D_E_L_E_T_ = ' '" New Alias "QRY_AUX"

    Count To nTotal
    SetRegua(nTotal)

    QRY_AUX->(DbGoTop())
    While ! QRY_AUX->(Eof())
        // Processa o registro atual.
        IncRegua()
        QRY_AUX->(DbSkip())
    EndDo

    QRY_AUX->(DbCloseArea())
    RestArea(aArea)
Return

Conteúdos relacionados