GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV Mobile 2024
→
Example de Login and Download Database
Example de Login and Download Database
Iniciado por adrianoboller, nov., 24 2014 1:31 PM - Sem resposta
Conecte-se…
adrianoboller
#1
Membro registado
3.662 mensagems
Popularité : +175 (223 votes)
Publicado em novembro, 24 2014 - 1:31 PM
//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
Denunciar
0
0
→ Voltar para WINDEV Mobile 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (versões anteriores)
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto