TResourceCalendarPlage.CreateNew
| TResourceCalendarPlage = class (TObject) | Interface de TResourceCalendarPlage | Exemples de TResourceCalendarPlage |
Ajoute une nouvelle Plage au planning.
Syntaxe
constructor CreateNew(resourceName: Variant = ; plageKind: String; startDate: Float; endDate: Float; subject: String; FailOnConflict: Boolean)
resourceName: Nom ou ID de la resource sur lequel sera ajouté la plage
plageKind: Nom du type de plage
startDate: Date/Heure de début de plage
endDate: Date/Heure de fin de plage
subject: Sujet de la plage
FailOnConflict: si vrai, une erreur sera déclenchée s'il existe déjà une plage sur la resource aux date spécifiée
Exemple
L'exemple ci-dessous permet de créer pour toutes les ressources associées à l'utilisateur "userLogin" via le rôle "Personne" une plage de type "Absence", de titre "TitrePlage" du 01/08/2017 09h00 au 01/08/2017 18h00.
uses QuBESPlanning;
var login := 'userLogin';
var role := 'Personne';
var startDateTime := EncodeDate(2017, 08, 01) + EncodeTime(09, 00, 00, 00);
var endDateTime := EncodeDate(2017, 08, 01) + EncodeTime(18, 00, 00, 00);
var res := new TIntegerList;
res.AsString := ResourceIDsUsingUserByRole(login, role);
for var i := 0 to res.Count-1 do
TResourceCalendarPlage.CreateNew(res[i], 'Absence',
startDateTime, endDateTime,
'TitrePlage', False);
var login := 'userLogin';
var role := 'Personne';
var startDateTime := EncodeDate(2017, 08, 01) + EncodeTime(09, 00, 00, 00);
var endDateTime := EncodeDate(2017, 08, 01) + EncodeTime(18, 00, 00, 00);
var res := new TIntegerList;
res.AsString := ResourceIDsUsingUserByRole(login, role);
for var i := 0 to res.Count-1 do
TResourceCalendarPlage.CreateNew(res[i], 'Absence',
startDateTime, endDateTime,
'TitrePlage', False);