SealRange (TSealOpeLogRegClass)

<source lang='delphi'>class function SealRange(iFirstSequenceNumber:Integer; iLastSequenceNumber:Integer; var aReason:string):Integer;</source>

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 :

<source lang="delphi"> 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; </source>

Voir aussi

• Classe scellée

{{#if:Classe_journal de scellement_(stereotype)|

{{#if:Classe_journal de scellement_(stereotype)|— Classe_journal de scellement_(stereotype) |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}