FUNCIóNEn revisión
IncRegua
IncRegua()Incrementa la barra de procesamiento usada en el flujo de RptStatus.
Descripción general
IncRegua incrementa la barra de procesamiento asociada a RptStatus después de que el total haya sido definido por SetRegua. Es útil en rutinas que recorren consultas o listas y necesitan mostrar avance visual al usuario. Diferencie este flujo del uso de Processa, que normalmente trabaja con ProcRegua e IncProc.
Sintaxis
IncRegua()Retorno
La referencia consultada no documenta retorno. Use la función como incremento visual de la barra.
Incrementar barra en RptStatus
#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)
ReturnResultado esperado
SetRegua define el total de registros e IncRegua avanza la barra por cada registro procesado.
- Use SetRegua antes de llamar IncRegua.
- En queries, una cuenta previa puede definir el total de la barra.
- Preserve y restaure áreas con GetArea y RestArea cuando abra aliases de trabajo.
- No confunda IncRegua con IncProc.
- Evite contar registros en consultas muy pesadas sin evaluar costo de performance.
- Cierre el alias temporal al final del procesamiento.
Comentarios
Todavía no hay comentarios aprobados.
Inicia sesión con Google o Microsoft para comentar.