MIDAS. Практическое применение
Категория реферата: Рефераты по информатике, программированию
Теги реферата: курсовая работа по менеджменту, доклад по обж
Добавил(а) на сайт: Roman.
Предыдущая страница реферата | 16 17 18 19 20 21 22 23 24 25 26 | Следующая страница реферата
begin
Edit;
FieldByName('DOC_SUM').asCurrency := CalcSum;
Post;
end;
RenumLines; // перенумерация содержимого
// Сохранение в БД...
ibtDoc.StartTransaction;
// При вставке сначала сохраняем изменения в cdsTitle...
if FState = osInsert then
begin
if cdsTitle.ChangeCount > 0 then
cdsTitle.ApplyUpdates(0);
if cdsBody.ChangeCount > 0 then
cdsBody.ApplyUpdates(-1);
end;
// ...а при изменении – в cdsBody.
if FState = osUpdate then
begin
if cdsBody.ChangeCount > 0 then
cdsBody.ApplyUpdates(-1);
if cdsTitle.ChangeCount > 0 then
cdsTitle.ApplyUpdates(0);
end;
// FLastUpdateErrors заполняется на OnReconcileError.
Result := FLastUpdateErrors;
if Result = '' then
ibtDoc.Commit
else
begin
ibtDoc.Rollback;
end;
finally
ibtDoc.Active := False;
unlock;
end;
end;