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.
