PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → WX - BuscaConfigStatus e BuscaConfigValor
WX - BuscaConfigStatus e BuscaConfigValor
Débuté par BOLLER, 19 fév. 2018 18:46 - Aucune réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 19 février 2018 - 18:46
Procedure BuscaConfigStatus(Descricao)

tempo_ocioso = 0

bStatus is boolean = False

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

t000_config.t000_valor = "SIM"

t000_config.t000_status = True

HAdd(t000_config)

bStatus = True

END

END

RESULT(bStatus)




Procedure BuscaConfigValor(Descricao)

tempo_ocioso = 0

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/