// 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