PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 24 → Example de Login and Download Database
Example de Login and Download Database
Débuté par adrianoboller, 24 nov. 2014 13:31 - Aucune réponse
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 13:31
//Login e Senha
DebugSN is string = ""

STC_Texto..Visible = True

// Increment the progress bar
PROGBAR..Visible = True
PROGBAR..MaxValue = 100
PROGBAR = 0

HourGlass(True) //Ampulheta de espera login

IF EDT_Login <> "" AND EDT_Senha <> "" THEN

PROGBAR = 5

HReadSeekFirst(T006Usuario, T006Usuario.Login006, EDT_Login)
IF HFound(T006Usuario) = True THEN

PROGBAR = 10

IF Upper(T006Usuario.Login006) = Upper(EDT_Login)
GloLogin = Upper(T006Usuario.Login006)
ELSE
GloLogin = ""
END
IF Upper(T006Usuario.Senha006) = Upper(EDT_Senha)
GloSenha = Upper(T006Usuario.Senha006)
ELSE
GloSenha = ""
END
IF GloLogin <> "" AND GloSenha <> ""
GloImei = Upper(T006Usuario.Imei006)
ELSE
GloImei = ""
END

PROGBAR = 20

Crypto is string = WS_Criptografia(GloLogin +"-"+ GloSenha +"-"+ GloImei, "C", DebugSN)

//info(Crypto)

//Autenticacao
PROGBAR = 30
STC_Texto = "Verificando login e senha de acesso..."
RetonoAutenticacao is string = WS_GetAutenticacao(Crypto,DebugSN)

//uma vez ao dia
HReadSeekFirst(T000Config,T000Config.Sigla000,"Hoje")
IF HFound(T000Config) = True AND T000Config.Valor000 <> DateSys()

PROGBAR = 40

//Baixa Tipos OS
STC_Texto = "Baixando e atualizando os Tipos de O.S."
WS_TiposOcorrenciaConsultar(DebugSN)

PROGBAR = 60

//Baixa Roteiros
STC_Texto = "Baixando Roteiros, aguarde..."
WS_RoteiroConsultar(DebugSN)

PROGBAR = 80


//Altera Cadastro e faz o import
T000Config.Valor000 = DateSys()
HModify(T000Config)

ELSE IF HFound(T000Config) = True AND T000Config.Valor000 = DateSys()

//INFO("NADA")

PROGBAR = 40

//Baixa Tipos OS
STC_Texto = "Baixando e atualizando os Tipos de O.S."
WS_TiposOcorrenciaConsultar(DebugSN)

PROGBAR = 60

//Baixa Roteiros
STC_Texto = "Baixando Roteiros, aguarde..."
WS_RoteiroConsultar(DebugSN)

PROGBAR = 80

//Baixar OS
//STC_Texto = "Baixando O.S., aguarde..."
//WS_BaixarOS(DebugSN)

ELSE IF HFound(T000Config) = False

PROGBAR = 40

//Baixa Tipos OS
STC_Texto = "Baixando e atualizando os Tipos de O.S."
WS_TiposOcorrenciaConsultar(DebugSN)

PROGBAR = 60

//Baixa Roteiros
STC_Texto = "Baixando Roteiros, aguarde..."
WS_RoteiroConsultar(DebugSN)


PROGBAR = 80

//Baixar OS
//STC_Texto = "Baixando O.S., aguarde..."
//WS_BaixarOS(DebugSN)

//Inclui o cadastro e faz o import
T000Config.CodConfig000 = 1
T000Config.Sigla000 = "Hoje"
T000Config.Descricao000 = "Data de Hoje"
T000Config.Valor000 = DateSys()
HAdd(T000Config)

END

PROGBAR = 100

IF RetonoAutenticacao <> "" THEN
HourGlass(False) //Ampulheta de espera login - Login com sucesso
OpenChild(WIN_OS_03Roteiro)
END

ELSE

HourGlass(False) //Ampulheta de espera login
IF EDT_Login <> ""
OpenChild(WIN_OS_06Usuarios_Update,EDT_Login)
END

END

ELSE
Info("Login e senha obrigatórios!...")
EDT_Login = ""
EDT_Senha = ""
GloLogin = ""
GloSenha = ""
END

HourGlass(False) //Ampulheta de espera login

PROGBAR = 100

STC_Texto..Visible = False