RenumberAndSeal (TSealOpeLogRegClass)
De Wiki1000
(Différences entre les versions)
Ligne 2 : | Ligne 2 : | ||
Cette méthode [[Renumber_(selector)|renumérote]] et scelle les objets référencés par le sélecteur et crée un enregistrement de journal. | Cette méthode [[Renumber_(selector)|renumérote]] et scelle les objets référencés par le sélecteur et crée un enregistrement de journal. | ||
+ | |||
+ | La méthode : | ||
+ | |||
+ | * Utilise le prochain numéro de séquence issu du dernier enregistrement de journal. | ||
+ | * Gère une transaction longue si aucune transaction longue n'est ouverte. | ||
{|class="wikitable" | {|class="wikitable" | ||
Ligne 24 : | Ligne 29 : | ||
|} | |} | ||
+ | Exemple : | ||
+ | |||
+ | '''Utilisation à l'intérieur d'une transaction longue :''' | ||
+ | |||
+ | <source lang=Delphi> | ||
+ | function RenumberAndSealInsideLT(var aReason:string):Intege; | ||
+ | var AStr:string; sel:TSelector; | ||
+ | begin | ||
+ | sel := ClassSealed.CreateSelector('(SequenceNumber=%1)','',True,[0]); | ||
+ | Result := sel.Count; | ||
+ | if Result=0 then | ||
+ | begin | ||
+ | aReason := 'Nothing to seal'; | ||
+ | Exit; | ||
+ | end; | ||
+ | |||
+ | ClassManager.BeginLongTran(0,'ClassSealed'); | ||
+ | try | ||
+ | Result := ClassSealOpeLog.RenumberAndSeal(sel,['isSealed'],[True],aStr); | ||
+ | if Result=0 then | ||
+ | begin | ||
+ | aReason := aStr; | ||
+ | ClassManager.RollBackLongTran; | ||
+ | Exit; | ||
+ | end; | ||
+ | ClassManager.CommitLongTran; | ||
+ | except | ||
+ | Result := 0; | ||
+ | ClassManager.RollBackLongTran; | ||
+ | end; | ||
+ | end; | ||
+ | </source> | ||
+ | |||
+ | |||
+ | '''Utilisation avec transaction gérée par la méthode :''' | ||
+ | |||
+ | <source lang=Delphi> | ||
+ | function RenumberAndSealManageLT(var aReason:string):Intege; | ||
+ | ar AStr:string; sel:TSelector; | ||
+ | begin | ||
+ | sel := ClassSealed.CreateSelector('(SequenceNumber=%1)','',True,[0]); | ||
+ | Result := sel.Count; | ||
+ | if Result=0 then | ||
+ | begin | ||
+ | aReason := 'Nothing to seal'; | ||
+ | Exit; | ||
+ | end; | ||
+ | |||
+ | Result := ClassSealOpeLog.RenumberAndSeal(sel,['isSealed'],[True],aStr); | ||
+ | if Result=0 then | ||
+ | begin | ||
+ | aReason := aStr; | ||
+ | Exit; | ||
+ | end; | ||
+ | end; | ||
+ | </source> | ||
Voir aussi | Voir aussi |
Version du 13 avril 2017 à 08:43
class function RenumberAndSeal(sel:TSelector; const iUpdateProperties:Array of variant; iUpdateValues:Array of variant; var aReason:string):Integer;
Cette méthode renumérote et scelle les objets référencés par le sélecteur et crée un enregistrement de journal.
La méthode :
- Utilise le prochain numéro de séquence issu du dernier enregistrement de journal.
- Gère une transaction longue si aucune transaction longue n'est ouverte.
Paramètre | Usage |
---|---|
Result | Nombre d'objet scellé, 0 indique une erreur |
sel | Sélecteur de la classe scellée |
iUpdateProperties | Liste d'attribut à mettre à jour |
iLastSequenceNumber | Liste des valeurs des attributs à mettre à jour |
aReason | Information sur l'erreur |
Exemple :
Utilisation à l'intérieur d'une transaction longue :
function RenumberAndSealInsideLT(var aReason:string):Intege; var AStr:string; sel:TSelector; begin sel := ClassSealed.CreateSelector('(SequenceNumber=%1)','',True,[0]); Result := sel.Count; if Result=0 then begin aReason := 'Nothing to seal'; Exit; end; ClassManager.BeginLongTran(0,'ClassSealed'); try Result := ClassSealOpeLog.RenumberAndSeal(sel,['isSealed'],[True],aStr); if Result=0 then begin aReason := aStr; ClassManager.RollBackLongTran; Exit; end; ClassManager.CommitLongTran; except Result := 0; ClassManager.RollBackLongTran; end; end;
Utilisation avec transaction gérée par la méthode :
function RenumberAndSealManageLT(var aReason:string):Intege; ar AStr:string; sel:TSelector; begin sel := ClassSealed.CreateSelector('(SequenceNumber=%1)','',True,[0]); Result := sel.Count; if Result=0 then begin aReason := 'Nothing to seal'; Exit; end; Result := ClassSealOpeLog.RenumberAndSeal(sel,['isSealed'],[True],aStr); if Result=0 then begin aReason := aStr; Exit; end; end;
Voir aussi
— Classe_journal de scellement_(stereotype) — Développement DSM —