Tempo aproximado para leitura: 00:03:00 min
Dúvida
Função para criar régua de progressão.
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – Todas as versões
Solução
Processa - Cria diálogo com uma régua de progressão.
Sintaxe
Processa( bAcao, [ cTitulo ] , [ cMsg ], [ lAborta] ) -> nil
|
Argumento |
Obrigat. |
Tipo |
Descrição |
|
bAcao |
Sim |
C |
Função a ser executada. |
|
cMsg |
Não |
C |
Mensagem a ser exibida a baixo da régua de progressão |
|
cTitulo |
Não |
C |
Título de janela |
|
lAborta |
Não |
L |
Habilita botão cancelar. |
Descrição
A função Processa() cria um diálogo onde a execução de um determinada função pode ser acompanhada através de uma régua de progressão. Para atribuir o valor total da régua utilizamos a função ProcRegua() e para incrementar a régua utilizamos a função IncProc().
Exemplo
User Function <nome-da-função>( )
Local bAcao := {|lFim| Exemplo(@lFim) }
Local cTitulo := ''
Local cMsg := 'Processando'
Local lAborta := .T.
Processa( bAcao, cTitulo, cMsg, lAborta )
Return
Static Function Exemplo(lFim)
Local nI
ProcRegua(10000)
For nI := 1 To 10000
If lFim
Exit
EndIf
IncProc()
Next
Return
0 Comentários