Barras de progreso en AdvPL

Descripción general

Las barras de progreso ayudan al usuario a percibir que una rutina larga sigue en ejecución. En AdvPL, el flujo común con Processa usa un bloque de acción, ProcRegua para definir el total e IncProc para avanzar la barra. En otro modelo visual, RptStatus trabaja con SetRegua e IncRegua. Aunque los nombres son parecidos, los pares pertenecen a flujos diferentes; mezclarlos sin validar el contexto puede generar comportamiento inesperado.

Sintaxis

Processa · ProcRegua · IncProc · RptStatus · SetRegua · IncRegua

Parámetros

Processa con ProcRegua e IncProc

#Include "TOTVS.ch"

User Function EjecutaProceso()
    Local bAccion := {|lFin| U_ProcesaItems(@lFin)}
    Local cTitulo := "Procesamiento"
    Local cMsg    := "Procesando items..."
    Local lAborta := .T.

    Processa(bAccion, cTitulo, cMsg, lAborta)
Return

User Function ProcesaItems(lFin)
    Local nItem
    Local nTotal := 100

    ProcRegua(nTotal)

    For nItem := 1 To nTotal
        If lFin
            Exit
        EndIf

        // Procese aquí el item.
        IncProc()
    Next nItem
Return

RptStatus con SetRegua e IncRegua

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

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

    RptStatus({|| U_ReguaConsulta()}, "Espere...", "Ejecutando consulta...")

    RestArea(aArea)
Return

User Function ReguaConsulta()
    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())
        // Procesa el registro actual.
        IncRegua()
        QRY_AUX->(DbSkip())
    EndDo

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

Contenido relacionado