TTrainingSession.CreateNew
| TTrainingSession = class (TObject) | Interface de TTrainingSession | Exemples de TTrainingSession |
Qubes 8.0 Création d'une nouvelle session de formation
Syntaxe
constructor CreateNew(docId: Integer)
docId: id du document associé
Remarques
L'enregistrement dans la base ne sera effectif que lors de l'appel de la fonction Post.
Exemples
uses QubesDocument, QubesTraings;
var docId := DocIDForRUDAndVersion('RUD', 1, 22);
var session := TTrainingSession.CreateNew(docId);
session.Name := 'Formation Qubes';
session.DateTime := StrToDateTime('01/10/2018 14:00');
session.Duration := 4/24; // 4 heures
session.ManagerLogin := 'user0';
session.TrainerLogin := 'user1';
session.UserTraining['user2'].Status := UserTrainingStatus.Planned;
session.UserTraining['user3'].Status := UserTrainingStatus.Planned;
session.Post; // on enregistre la session, ce qui crée son ID, qu'on peut alors relire si besoin
var sessionId := session.ID;
var docId := DocIDForRUDAndVersion('RUD', 1, 22);
var session := TTrainingSession.CreateNew(docId);
session.Name := 'Formation Qubes';
session.DateTime := StrToDateTime('01/10/2018 14:00');
session.Duration := 4/24; // 4 heures
session.ManagerLogin := 'user0';
session.TrainerLogin := 'user1';
session.UserTraining['user2'].Status := UserTrainingStatus.Planned;
session.UserTraining['user3'].Status := UserTrainingStatus.Planned;
session.Post; // on enregistre la session, ce qui crée son ID, qu'on peut alors relire si besoin
var sessionId := session.ID;