BeginLongTran (CM)
procedure BeginTranLongTran(iBatchSize:Integer; iParam:Variant);
Démarre une transaction longue.
| iBatchSize | Taille de lot minimum. |
| iParam | Paramètre indiquant une classe métier.
Ce paramètre peut être :
|
| Tip : iBatchSize indique la taille de lot minimum, si BatchLongTran est appelé alors que le nombre d'instance en transaction est inférieur à iBatchSize alors BatchLongTran est ignoré |
Exemple
var idx:Integer;
begin
ClassManager.BeginLonTran(100,'MaClass');
try
for idx:=0 to VeryBigInt do
begin
doProcessItem(idx);
if idx mod 100 =0 then ClassManager.BatchLongTran;
end;
ClassManager.CommitLongTran;
except
ClassManager.RollBackLongTran;
raise;
end;
end;
Voir aussi :