bAcaoBloque de código ejecutado dentro de la ventana de procesamiento.
Guía AdvPLProcessa( <bAcao>, [<cTitulo>], [<cMsg>], [<lAborta>] )Crea una ventana de procesamiento con barra de progreso para acompañar la ejecución de una acción.
Processa crea un diálogo con una barra de progreso y ejecuta una acción informada como bloque de código. La rutina llamada puede recibir una variable lógica por referencia para identificar solicitud de cancelación. Junto con ProcRegua e IncProc, permite informar el total de pasos y actualizar visualmente el avance del procesamiento.
Processa( <bAcao>, [<cTitulo>], [<cMsg>], [<lAborta>] )bAcaoBloque de código ejecutado dentro de la ventana de procesamiento.
cTituloTítulo de la ventana.
cMsgMensaje presentado debajo de la barra de progreso.
lAbortaCuando es verdadero, habilita el botón de cancelación.
Nil, conforme a la referencia de la Central TOTVS.
#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
ReturnProcessa abre la ventana; ProcRegua define 100 pasos e IncProc avanza la barra durante el For...Next.
Desarrollado con Usina Docs · Alpha
© 2026 Usina.BR. Todos los derechos reservados. TOTVS, Protheus, Microsiga y sus respectivos logotipos son marcas de sus titulares. Guía AdvPL es independiente y utiliza citas limitadas, atribuidas y justificadas por fines educativos. Consulta los Términos de Uso. Términos de Uso
Comentarios
Todavía no hay comentarios aprobados.
Inicia sesión con Google o Microsoft para comentar.