Atribui o valor total da régua de progressão cria pela pela função Processa().
Sintaxe
ProcRegua( nTotal ) -> nil
| Argumento | Obrigat. | Tipo | Descrição |
| nTotal | Sim | N | Valor total da régua. |
Descrição
Após atribuir o valor total da régua, para incrementar 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 nI
Return