TDocument.SetServicesApplication
| TProcessDoc = class (TDocument) | Interface de TProcessDoc | Exemples de TProcessDoc |
héritée de TDocument.SetServicesApplication
| TDocument = class (TObject) | Interface de TDocument | Exemples de TDocument |
Remplacement de la liste des services d'application du document.
Syntaxe
procedure SetServicesApplication(servicesCommaText: String)
servicesCommaText: Liste des noms abrégés des services
Remarques
Doit être utilisé dans un BeginUpdate puis EndUpdate
Ne renvoie pas d'erreur, par exemple si un service est erroné.
Attention, la liste des services est remplacée!!!
Exemples
Pour un remplacement des services d'application
uses QuBESDocuments ;
//se connecte au document d'id 1000
var doc := TDocument.ConnectByID(1000);
var lst := TStrings.Create();
//ajoute le service de nom abrégé RH à la liste
lst.Add('RH');
try
doc.BeginUpdate;
doc.SetServicesApplication(lst.CommaText);
doc.EndUpdate
finally
doc.Free
end
//se connecte au document d'id 1000
var doc := TDocument.ConnectByID(1000);
var lst := TStrings.Create();
//ajoute le service de nom abrégé RH à la liste
lst.Add('RH');
try
doc.BeginUpdate;
doc.SetServicesApplication(lst.CommaText);
doc.EndUpdate
finally
doc.Free
end
Pour ajouter un service d'application aux services existants
uses QuBESDocuments ;
//se connecte au document d'id 1000
var doc := TDocument.ConnectByID(1000);
var lst := doc.CreateApplicationServicesList(true,false);
//ajoute le service de nom abrégé RH à la liste
lst.Add('RH');
try
doc.BeginUpdate;
doc.SetServicesApplication(lst.CommaText);
doc.EndUpdate
finally
doc.Free
end
//se connecte au document d'id 1000
var doc := TDocument.ConnectByID(1000);
var lst := doc.CreateApplicationServicesList(true,false);
//ajoute le service de nom abrégé RH à la liste
lst.Add('RH');
try
doc.BeginUpdate;
doc.SetServicesApplication(lst.CommaText);
doc.EndUpdate
finally
doc.Free
end