FUNçãOEm revisão
IncRegua
IncRegua()Incrementa a barra de processamento usada no fluxo de RptStatus.
Visão geral
IncRegua incrementa a barra de processamento associada ao RptStatus, após o total ter sido definido por SetRegua. É útil em rotinas que percorrem consultas ou listas e precisam apresentar avanço visual ao usuário. Diferencie esse fluxo do uso de Processa, que normalmente trabalha com ProcRegua e IncProc.
Sintaxe
IncRegua()Retorno
A referência consultada não documenta retorno. Use a função como incremento visual da régua.
Incrementar barra em RptStatus
#Include "TOTVS.ch"
#Include "TopConn.ch"
User Function ExRptStatus()
Local aArea := GetArea()
RptStatus({|| U_ExReguaQuery()}, "Aguarde...", "Executando consulta...")
RestArea(aArea)
Return
User Function ExReguaQuery()
Local aArea := GetArea()
Local nTotal := 0
TCQuery "SELECT BM_GRUPO, BM_DESC FROM %table:SBM% SBM WHERE SBM.D_E_L_E_T_ = ' '" New Alias "QRY_AUX"
Count To nTotal
SetRegua(nTotal)
QRY_AUX->(DbGoTop())
While ! QRY_AUX->(Eof())
// Processa o registro atual.
IncRegua()
QRY_AUX->(DbSkip())
EndDo
QRY_AUX->(DbCloseArea())
RestArea(aArea)
ReturnResultado esperado
SetRegua define o total de registros e IncRegua avança a barra a cada registro processado.
- Use SetRegua antes de chamar IncRegua.
- Em queries, uma contagem prévia pode definir o total da régua.
- Preserve e restaure áreas com GetArea e RestArea quando abrir aliases de trabalho.
- Não confunda IncRegua com IncProc.
- Evite contar registros em consultas muito pesadas sem avaliar custo de performance.
- Feche o alias temporário ao final do processamento.
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.