Função de progresso, que muda apenas o texto
Exemplo da Rotina:
1 | MsAguarde({|| fSuaFuncao()}, "Título..." , "Mensagem..." ) |
Exemplo 1- Mostrando a barra de processamento:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 | //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.