Nesse vídeo demonstraremos a utilização das funções GetdDataBase e SetdDataBase, que servem para buscar ou setar a data logada no sistema (variável dDataBase).

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe271
Funções que manipulam a variável de data de login (dDatabase) do sistema
@type  Function
@author Atilio
@since 21/02/2023
@obs 

    Função GetdDataBase
    Parâmetros
        Não tem parâmetros
    Retorno
        Retorna a data que o usuário fez login no sistema

    Função SetdDataBase
    Parâmetros
        Informa a nova data de login do sistema
    Retorno
        Não tem retorno
    
    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe271()
    Local aArea      := FWGetArea()
    Local dOntem     := DaySub(Date(), 1)

    //Altera a data de login para a data de ontem
    SetdDataBase(dOntem)

    //Busca a informação e exibe
    cMensagem := "A nova data de login é: " + dToC( GetdDataBase() )
    FWAlertInfo(cMensagem, "Teste GetdDataBase e SetdDataBase")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++