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.
Le premier numéro de séquence (iFirstSequenceNumber) doit être le prochain numéro de séquence du dernier enregistrement du journal.
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
{{#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 —
}}