Предыдущая страница реферата | 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;