PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → WX - BuscaConfigValor e BuscaConfigStatus
WX - BuscaConfigValor e BuscaConfigStatus
Débuté par BOLLER, 17 jan. 2018 22:23 - 1 réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 17 janvier 2018 - 22:23
Tabela Config


-- Script généré par WINDEV Mobile le 17/01/2018 19:22:40
-- Tables de l'analyse CVAZebra.wda
-- pour SQL générique (ANSI 92)

-- Création de la table t000_config
CREATE TABLE "t000_config" (
"t000_config_ID" NUMERIC(19,0) PRIMARY KEY ,
"t000_descricao" VARCHAR(255) UNIQUE ,
"t000_valor" LONGVARCHAR ,
"t000_status" BIT );



// Résumé : <indiquez ici ce que fait la procédure>
// Syntaxe :
//[ <Résultat> = ] BuscaConfigStatus (<Descricao>)
//
// Paramètres :
// Descricao : <indiquez ici le rôle de Descricao>
// Valeur de retour :
// booléen : // Aucune
//
// Exemple :
// Indiquez ici un exemple d'utilisation.
//
Procedure BuscaConfigStatus(Descricao)

bStatus is boolean

IF Descricao <> "" THEN

HReset(t000_config)

IF HReadSeek(t000_config,t000_descricao,Descricao,hIdentical) = True THEN

IF HFound(t000_config) = True

bStatus = t000_config.t000_status

END

ELSE

//Nao existe cria a configuração
t000_config.t000_descricao = Descricao
HAdd(t000_config)

END

END

RESULT(bStatus)




// Résumé : <indiquez ici ce que fait la procédure>
// Syntaxe :
//[ <Résultat> = ] BuscaConfigValor (<Descricao>)
//
// Paramètres :
// Descricao : <indiquez ici le rôle de Descricao>
// Valeur de retour :
// chaîne UNICODE : // Aucune
//
// Exemple :
// Indiquez ici un exemple d'utilisation.
//
Procedure BuscaConfigValor(Descricao)

sValor is string

IF Descricao <> "" THEN

HReset(t000_config)

IF HReadSeek(t000_config,t000_descricao,Descricao,hIdentical) = True THEN

IF HFound(t000_config) = True

sValor = t000_config.t000_valor

END

ELSE

//Nao existe cria a configuração
t000_config.t000_descricao = Descricao
HAdd(t000_config)

END

END

RESULT(sValor)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 18 janvier 2018 - 11:33
Prezados,

Segue mais um adendo nesse post:

Como fazer Duas Sobrecargas de Metodos com mesmo nome mas com quantidade de parametros diferentes

//1
Procedure GravaConfig(Descricao,Valor,Status boolean)

ok is boolean

IF Descricao <> "" THEN

IF HReadSeek(t000_config,t000_descricao,Descricao,hIdentical) = True THEN

IF HFound(t000_config) = True

t000_config.t000_valor = Valor

t000_config.t000_status = Status

ok = HModify(t000_config)

END

ELSE

t000_config.t000_descricao = Descricao

t000_config.t000_valor = Valor

t000_config.t000_status = True

ok = HAdd(t000_config)

END

END

RESULT(ok)




//2
Procedure GravaConfig(Descricao, Valor)

ok is boolean

IF Descricao <> "" THEN

IF HReadSeek(t000_config,t000_descricao,Descricao,hIdentical) = True THEN

IF HFound(t000_config) = True

t000_config.t000_valor = Valor

t000_config.t000_status = True

ok = HModify(t000_config)

END

ELSE

t000_config.t000_descricao = Descricao

t000_config.t000_valor = Valor

t000_config.t000_status = True

ok = HAdd(t000_config)

END

END

RESULT(ok)




Modo de usar:

Na abertura da Janela:

INT_SalvarSenha = BuscaConfigStatus("Salvar Senha")

IF INT_SalvarSenha = True OR INT_SalvarSenha = 1

SAI_Login_SAP = BuscaConfigValor("Login")

SAI_Password = BuscaConfigValor("Password")

END



No Botão Login:

// vérification basique
IF SAI_Login_SAP="" THEN
Info("Informe sua matricula de login")
SetFocus(SAI_Login_SAP)
RETURN
END

// vérification basique
IF SAI_Password="" THEN
Info("Informe sua senha")
SetFocus(SAI_Password)
RETURN
END

//Consulta webservice
gsToken = ""

WS_LoginToken02(SAI_Login_SAP,SAI_Password)

IF gsToken <> ""

IF INT_SalvarSenha = True

GravaConfig("Login",SAI_Login_SAP)

GravaConfig("Password",SAI_Password)

GravaConfig("Salvar Senha","SIM",True)

ELSE

GravaConfig("Login","")

GravaConfig("Password","")

GravaConfig("Salvar Senha","NAO",False)

END

OpenMobileWindow(FEN_Menu)

END


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/