SealRange (TSealOpeLogRegClass)

class function SealRange(iFirstSequenceNumber:Integer; iLastSequenceNumber:Integer; var aReason:string):Integer;

Paramètre	Usage
Result	Nombre d'objet scellé, 0 indique une erreur
iFirstSequenceNumber	Premier numéro de séquence.
iLastSequenceNumber	Dernier numéro de séquence.
aReason	Information sur l'erreur

Cette méthode scelle les objets dont le numéro de séquence est compris entre iFirstSequenceNumber (inclu) et iLastSequenceNumber (exclu) et crée un enregistrement de journal.

Crée un enregistrement de journal
Gère une transaction longue si aucune transaction longue n'est ouverte.

Le premier numéro de séquence (iFirstSequenceNumber) doit être le prochain numéro de séquence du dernier enregistrement du journal.

Exemple :

function SealInstancesByRange(iFirstSequence:Integer; iLastSequence:Integer; var aReason:string):Integer;
var aSequenceNumber:Integer; AStr:string;
begin
  ClassManager.BeginLongTran(0,'ClassSealed');
  try
   Result := ClassSealOpeLog.SealRange(iFirstSequence,iLastSequence,AStr);
   aReason := AStr;
   if Result=0 then
    begin
      ClassManager.RollBackLongTran;
      Exit;
    end;
   ClassManager.CommitLongTran;
  except
  Result := 0;
  ClassManager.RollBackLongTran;
  end;
end;

Voir aussi

Classe scellée

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