FUNçãOEm revisão
IncProc
IncProc()Incrementa a régua de progressão criada por Processa().
Visão geral
IncProc() avança em uma unidade a régua de progresso preparada dentro de uma rotina executada por Processa(). Normalmente é usada em laços de processamento para sinalizar visualmente ao usuário que a rotina continua em execução.
Sintaxe
IncProc()Incrementando a régua de Processa
#Include "TOTVS.ch"
User Function ExIncProc()
Local bAcao := {|lFim| U_Executa(@lFim) }
Processa(bAcao, "Processamento", "Processando registros...", .T.)
Return
User Function Executa(lFim)
Local nItem
ProcRegua(100)
For nItem := 1 To 100
If lFim
Exit
EndIf
// Processa o item atual
IncProc()
Next
ReturnResultado esperado
ProcRegua() define o total e IncProc() avança a régua a cada item processado.
- Use ProcRegua() antes do laço para informar o total esperado de passos.
- Chame IncProc() a cada item efetivamente processado.
- Quando Processa() permitir cancelamento, respeite o parâmetro lógico recebido pelo bloco de ação.
- Sem ProcRegua(), a régua pode não refletir corretamente o percentual de execução.
- Incrementar a régua fora da mesma rotina controlada por Processa() dificulta entender o fluxo.
- Como a referência usada é histórica, valide comportamento em releases atuais do Protheus.
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.