Nesse vídeo demonstraremos a utilização da função Sleep, que serve para pausar a execução do programa conforme um número de milissegundos.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe447
Pausa a execução na thread por um número de milissegundos
@type Function
@author Atilio
@since 31/03/2023
@see https://tdn.totvs.com/display/tec/Sleep
@obs
Função Sleep
Parâmetros
+ nSleep , Numérico , Quantidade de milissegundos que a Thread ficará pausada
Retorno
Função não tem retorno
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe447()
Local aArea := FWGetArea()
Local cHrIni := Time()
Local cHrFim
//Pausa o processamento por 5 segundos
Sleep(5000)
//Pega a hora final, e mostra uma mensagem
cHrFim := Time()
FWAlertInfo("Hora Ini: " + cHrIni + " e Hora Fim: " + cHrFim, "Teste Sleep")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
