RenumberAndSeal (TSealOpeLogRegClass)

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 scellée

— Classe_journal de scellement_(stereotype) — Développement DSM —