Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Funções de tela de carregamento

Tempo aproximado para leitura: 00:01:30 min

Dúvida
Quais classes que apresentam uma tela de carregamento?

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - ADVPL - Todas as versões

Solução

Segue abaixo uma lista contendo nome da classe/função que geram uma tela de carregamento.

FWMsgRun()
Exemplo:

TMeter()
Exemplo:

Processa()
Exemplo:

Customizada
Caso deseje montar manualmente uma tela para carregamento segue abaixo um exemplo:

#include 'totvs.ch' 
#include 'sigawin.ch' 
User Function MeuAguarde()  
Local oDlg  
Local lEnd := .f.  
DEFAULT lAbort := .f.  
DEFAULT cMsg := OemToAnsi("Processando..."), cTitle := OemToAnsi("Aguarde") //"Processando..." ### "Aguarde"  
DEFINE MSDIALOG oDlg FROM 12,35 TO 19.5, 75 TITLE OemToAnsi(cTitle)     
@ 10, 20 SAY oText VAR OemToAnsi(cMsg) SIZE 130, 10 PIXEL OF oDlg FONT oDlg:oFont  
ACTIVATE DIALOG oDlg VALID lEnd CENTERED 
Return nil

Saiba Mais
FWMsgRun()
TMeter()
Processa()