Função de progresso, que muda apenas o texto
Exemplo da Rotina:
MsAguarde({|| fSuaFuncao()}, "Título...", "Mensagem...")
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
MsAguarde({|| fExemplo1()}, "Aguarde...", "Processando Registros...")
RestArea(aArea)
Return
/*-----------------------------------------------------------*
| Func.: fExemplo1 |
| Desc.: Exemplo utilizando MsAguarde |
*-----------------------------------------------------------*/
Static Function fExemplo1()
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
//Percorre todos os registros da query
QRY_AUX->(DbGoTop())
While ! QRY_AUX->(EoF())
//Incrementa a mensagem na régua
nAtual++
MsProcTxt("Analisando registro " + cValToChar(nAtual) + " de " + cValToChar(nTotal) + "...")
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.
