Incrementa régua de progressão.
Sintaxe
IncProc() -> nil
Descrição
Para incrementar a régua criada pela função Processa(), 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