Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Atribui o valor total da régua de progressão

Tempo aproximado para leitura: 00:03:00 min

Dúvida
Atribui o valor total da régua de progressão?

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – Todas as versões

Solução
ProcRegua - Atribui o valor total da régua de progressão cria pela pela função Processa().

Sintaxe
ProcRegua( nTotal ) -> nil

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

Saiba mais
ProcRegua 
IncProc
Processa