1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
If MasterContext.ClassManager.TranCount=0 then
begin
TranFlag:=TRUE;
MasterContext.ClassManager.BeginTran(0);
end
else
TranFlag:=False;
Try
importsession:=MasterContext.ClassManager.CreateObjectList('TSessionImport');
importsession.AddWhere('','UpdDate',TRUE,unassigned);
importsession.GetInstance(importsession.count-1,masession);
If TranFlag then
MasterContext.ClassManager.commit;
Except
If TranFlag then
MasterContext.ClassManager.Rollback;
Raise;
end;
.......
....... |
Partager