PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 2024 → Get Registro
Get Registro
Débuté par adrianoboller, 24 nov. 2014 12:11 - Aucune réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 24 novembre 2014 - 12:11
Procedure DB_GetRegistro(LOCAL Tabela, LOCAL CampoChave, LOCAL CampoBuscado, LOCAL ValorBuscado)

//Forma de usar:
//
// Info( GetRegistro(T008_Config, T008_Config.codigo008, T008_Config.valor008, 1) )
//
// ValorRetornado = DB_GetRegistro()
//

Retorno is string = ""

sTabela is string = Tabela
sCampoChave is string = Tabela +"-"+ CampoChave
sCampoBuscado is string = CampoBuscado
sValorBuscado is string = ValorBuscado

HReadSeekFirst(sTabela,sCampoChave,sValorBuscado)

IF HFound(sTabela) = True AND sValorBuscado <> "" AND sCampoChave <> "" AND sCampoChave = sValorBuscado
Retorno = sCampoBuscado
ELSE
Info("Erro: Faltou parametros ou dados não encontrados...",ErrorInfo(),ErrorOccurred)
END

RESULT(Retorno)