Nesse vídeo demonstraremos a utilização da função WaitAMinute, que serve para pausar a execução da thread por 3 segundos.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe529
Pausa a execução da função por 3 segundos
@type Function
@author Atilio
@since 06/04/2023
@obs 

    Função WaitAMinute
    Parâmetros
        Função não tem parâmetros
    Retorno
        Função não tem retorno

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe529()
    Local aArea      := FWGetArea()
    Local cInicio    := ""
    Local cTermino   := ""

    //Aciona a rotina para esperar 3 segundos e marca o tempo antes e depois
    cInicio := Time()
    WaitAMinute()
    cTermino := Time()

    //Mostra a diferença de tempo
    FWAlertInfo("Total espera: " + ElapTime(cInicio, cTermino), "Teste WaitAMinute")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até próxima.

Tags: AdvPLMaratonaProtheusTL++