Régua de processamento, sem a possibilidade de alterar o texto, também pode ser usada via Coletor
Exemplo da Rotina:
RptStatus({|| fSuaFuncao()}, "Título...", "Texto...")
Exemplo 1- Mostrando a barra de processamento:
//Bibliotecas
#Include "Protheus.ch"
#Include "TopConn.ch"
/*/{Protheus.doc} zTstBar
Função de exemplo de barras de processamento em AdvPL
@author Atilio
@since 28/10/2018
@version 1.0
@type function
@example u_zTstBar()
/*/
User Function zTstBar()
Local aArea := GetArea()
Local lContinua := .T.
Local nTipoRegua := 0
Local oProcess
Private cQryAux := ""
//Monta a consulta de grupo de produtos
cQryAux := " SELECT " + CRLF
cQryAux += " BM_GRUPO, " + CRLF
cQryAux += " BM_DESC " + CRLF
cQryAux += " FROM " + CRLF
cQryAux += " SBM010 SBM " + CRLF
cQryAux += " WHERE " + CRLF
cQryAux += " BM_FILIAL = ' ' " + CRLF
cQryAux += " AND SBM.D_E_L_E_T_ = ' ' " + CRLF
RptStatus({|| fExemplo4()}, "Aguarde...", "Executando rotina...")
RestArea(aArea)
Return
/*-----------------------------------------------------------*
| Func.: fExemplo4 |
| Desc.: Exemplo utilizando RptStatus |
*-----------------------------------------------------------*/
Static Function fExemplo4()
Local aArea := GetArea()
Local nAtual := 0
Local nTotal := 0
//Executa a consulta
TCQuery cQryAux New Alias "QRY_AUX"
//Conta quantos registros existem, e seta no tamanho da régua
Count To nTotal
SetRegua(nTotal)
//Percorre todos os registros da query
QRY_AUX->(DbGoTop())
While ! QRY_AUX->(EoF())
//Incrementa a mensagem na régua
nAtual++
IncRegua()
QRY_AUX->(DbSkip())
EndDo
QRY_AUX->(DbCloseArea())
RestArea(aArea)
Return
Exemplo em Vídeo:
Clique nesse link para ver um exemplo em Vídeo da nossa Maratona de Exemplos.
