FUNçãOEm revisão

SetRegua

SetRegua( <nTotal> )

Define o total da régua de progressão usada por RptStatus().

RelatóriosProcessamentoRégua de progresso

01 · VISÃO GERAL

Visão geral

SetRegua() prepara a régua de progresso exibida por RptStatus(), informando a quantidade total de passos de uma rotina de relatório ou processamento com acompanhamento visual.

02 · SINTAXE

Sintaxe

SetRegua( <nTotal> )

Parâmetros

nTotal

NuméricoObrigatório

Valor total da régua de progressão.

03 · EXEMPLO PRÁTICO

Régua em relatório

#Include "TOTVS.ch"

User Function ExSetRegua()
    Local bAcao := {|lFim| U_GeraRel(@lFim) }

    RptStatus(bAcao, "Relatório", "Gerando informações...")
Return

User Function GeraRel(lFim)
    Local nLinha

    SetRegua(50)
    For nLinha := 1 To 50
        If lFim
            Exit
        EndIf

        IncRegua()
    Next
Return

Resultado esperado

SetRegua() define o total e IncRegua() atualiza o avanço dentro de RptStatus().

BOAS PRÁTICAS

Use SetRegua() em conjunto com RptStatus() e IncRegua().
A diferença principal em relação a ProcRegua() é o contexto: SetRegua() aparece associado ao fluxo de RptStatus().
Mantenha a contagem alinhada ao número real de incrementos.

Conteúdos relacionados

REFERÊNCIAS

Help ADVPL.chm. Help AdvPL/APMSLib, documentação oficial histórica, 15 mar. 2004. Conteúdo resumido, reorganizado e marcado para revisão contra documentação atual da TOTVS quando disponível.

Situação: Em revisão
Página criada em: 25/08/2026 às 00:20
Última revisão em: 25/08/2026 às 00:20
Idioma original: Português
Revisão: Usina.BR