PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 24 → DICAS 2096-2095 - WINDEV WEBDEV MOBILE - WEBSERVICE 25 - SOAP
DICAS 2096-2095 - WINDEV WEBDEV MOBILE - WEBSERVICE 25 - SOAP
Iniciado por amarildo, mai., 03 2019 8:45 PM - Sem resposta
Membro registado
530 mensagems
Popularité : +3 (3 votes)
Publicado em maio, 03 2019 - 8:45 PM
BOM DIA,SEJA BEM VINDOS A MAIS UMA VIDEO AULA. ESSA AULA ESTA SENDO GRAVADA NO DIA 03 05 2019. DICA 2096-2095 . RESUMO LIVE DO DIA 02 05 2019 SOBRE SOAP WEBDEV E MOBILE. 

DICAS 2096-2095 - WINDEV WEBDEV MOBILE - WEBSERVICE 25 - SOAP

// DECLARATION OF SERVERPROCEDURES

array_inicio is array of string
string_valor is string="1"
token_senha is string="2"

DeclareWebserviceContext(array_inicio)
DeclareWebserviceContext(string_valor)
DeclareWebserviceContext(token_senha)

Procedure email_login(recebe_email is string,recebe_senha is string)

retorno is string=""

HReadSeekFirst(usuario,Email,recebe_email)
IF HFound(usuario)=True THEN
IF usuario.senha="" THEN
retorno="senha nao informada no webservice"
ELSE
IF usuario.senha=recebe_senha THEN
retorno="OK"
ELSE
retorno="Senha Invalida"
END
END
ELSE
retorno="Email Nao Existe"
END

retorno_array is array of string
Add(retorno_array,retorno)
RESULT retorno_array

Procedure relacao_clientes()

clientes_manda is string=""

HExecuteQuery(Query_clientes_ler)

FOR EACH Query_clientes_ler
clientes_manda+=Query_clientes_ler.clienteid+"|"
clientes_manda+=Query_clientes_ler.cnpj_cpf+"|"
clientes_manda+=Query_clientes_ler.email+"|"
clientes_manda+=Query_clientes_ler.nome+"|"+CR
END
//1|3802121|amarildo.matos|amarildo
//2|3802121|pedramarildo.matos|amarildo

retorno_array is array of string
Add(retorno_array,clientes_manda)
RESULT retorno_array


// BTN_ENTRAR_LOGIN

email_verifica is email_loginResponse=email_login(EDT_email,EDT_SENHA)
sRetorno_email is string=email_verifica.email_loginResult

IF sRetorno_email="OK" THEN

Info("CONtinua")

ELSE

Info(sRetorno_email)
ReturnToCapture(EDT_email)

END


ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br

www.windev.com
https://www.pcsoft.fr/webinaires.htm…
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
https://groups.google.com/forum/…
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html


LINK DO HANGOUT LIVE DIA 02 05 2019 SOBRE SOAP



https://windevdesenvolvimento.blogspot.com/2019/05/dicas-2096-2095-windev-webdev-mobile.html
https://windevdesenvolvimento.blogspot.com/2019/05/dica-2095-windev-mobile-webdev.html

LINK AULA DE 03 05 2019 SOBRE SOAP