TControlCardDoc.Post
| TControlCardDoc = class (TObject) | Interface de TControlCardDoc | Exemples de TControlCardDoc |
Met à jour le document modèle de carte de contrôle dans la GED
Syntaxe
procedure Post()
Remarques
Il faut que le document accédé via le TControlCardDoc soit en création.
Exemples
uses Qubes, QuBESControlCard, QuBESDocuments;
// Mise à jour de la valeur cible d'une carte de contrôle
LocalStartTransaction;
// Récupération de l'ID de la version en application du document
var oldDocId := AppliedDocIDForRUD('RudDeLaCarteDeControle');
// Création d'une nouvelle version mineure du document, en création
var newDocId := SpawnNewDocumentVersion(oldDocId, False);
// Mise à jour de la valeur cible
var c := TControlCardDoc.ConnectByID(newDocId);
c.TargetValue := 25.50;
c.Post;
// Mise en application du document
ApplyDocuments(newDocId);
LocalCommit;
// Mise à jour de la valeur cible d'une carte de contrôle
LocalStartTransaction;
// Récupération de l'ID de la version en application du document
var oldDocId := AppliedDocIDForRUD('RudDeLaCarteDeControle');
// Création d'une nouvelle version mineure du document, en création
var newDocId := SpawnNewDocumentVersion(oldDocId, False);
// Mise à jour de la valeur cible
var c := TControlCardDoc.ConnectByID(newDocId);
c.TargetValue := 25.50;
c.Post;
// Mise en application du document
ApplyDocuments(newDocId);
LocalCommit;