Incrementa a barra de processamento do RPTStatus
Exemplo da Rotina:
IncRegua()
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