Rs est une source de donnees
Sql est une chaine
MaVariable est une chaine

Sql = "SELECT EnService FROM Terminal WHERE TID="+Terminal.Num_terminal
Si Pas HExecuteRequeteSql(Rs,HRequeteDefaut,Sql) Alors
  Erreur(HErreurInfo())
  Retour
Fin

HLitPremier(Rs)
MaVarible = Rs.EnService