Реферат: Перенос приложений MIDAS с одной СУБД на другую

Edit;

FieldByName('DOC_SUM').asCurrency := CalcSum;

Post;

end;

adcDocs.BeginTrans; //явные транзакции задаются на уровне соединения

if FState = osInsert then //а не отдельным компонентом

begin

if cdsTitle.ChangeCount > 0 then

cdsTitle.ApplyUpdates(-1);

if cdsBody.ChangeCount > 0 then

cdsBody.ApplyUpdates(-1);

end;

if FState = osUpdate then

begin

if cdsBody.ChangeCount > 0 then

cdsBody.ApplyUpdates(-1);

if cdsTitle.ChangeCount > 0 then

cdsTitle.ApplyUpdates(-1);

end;

Result := FLastUpdateErrors;

if Result = '' then

adcDocs.CommitTrans

else

begin

adcDocs.RollbackTrans;

end;

finally

unlock;

end;