FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV Mobile 2024
→
Example de Login and Download Database
Example de Login and Download Database
Débuté par adrianoboller, 24 nov. 2014 13:31 - Aucune réponse
Connectez-vous…
adrianoboller
#1
Membre enregistré
3 655 messages
Popularité : +175 (223 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
Signaler
0
0
→ Revenir à WINDEV Mobile 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (précédentes versions)
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte