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.

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 —