EquipmentsByTypeSiteService
Retourne une liste d'équipements concernés par un type, un site et un service.
Syntaxe
procedure EquipmentsByTypeSiteService(resultList: TStrings; typeEqpt: String; siteName: String; serviceLocName: String)
resultList : Liste des équipements trouvés (au format commatext) selon les critères de recherche.
typeEqpt : Nom du type d'équipement utilisé pour la recherche.
siteName : Nom du site de l'équipement utilisé pour la recherche.
serviceLocName : Nom du service de localisation de l'équipement utilisé pour la recherche.
Remarques
Si les critères sont passés à vide, ils ne sont pas pris en compte dans le filtre.
Si les critères sont renseignés, mais que les valeurs n'existent dans la base, une exception est générée.
Exemples
var listeEquipements:TStrings;
var typeEqpt, siteName, serviceLocName:String;
typeEqpt:='THERMOMETRE MERCURE';
siteName:='UPL';
serviceLocName:='QSE';
listeEquipements:=TStrings.Create;
EquipmentsByTypeSiteService(listeEquipements, typeEqpt, siteName, serviceLocName);
Print(listeEquipements.CommaText); // Affiche la liste des équipements trouvés au format commatext.
var typeEqpt, siteName, serviceLocName:String;
typeEqpt:='THERMOMETRE MERCURE';
siteName:='UPL';
serviceLocName:='QSE';
listeEquipements:=TStrings.Create;
EquipmentsByTypeSiteService(listeEquipements, typeEqpt, siteName, serviceLocName);
Print(listeEquipements.CommaText); // Affiche la liste des équipements trouvés au format commatext.