Реферат: MIDAS. Практическое применение
params.paramByName('DocID').AsInteger := FDocID;
Active := True;
end;
FState := osUpdate;
ibtDoc.Commit;
except
DoInactiveState;
raise;
end;
end;
DoOpen предназначена для открытия существующего документа, идентификатор DOC_ID которого равен входному параметру DocID. Первым делом с помощью RegisterDoc производится проверка того, что документ в данный момент не редактируется. Затем идентификатор документа запоминается, и в клиентские наборы данных загружаются данные документа. В случае ошибки состояние документа переводится в osInactive.
|
procedure TrdmDoc.DoCreateNew; var NewDocID: Integer; begin try NewDocID := NewID; if not RegisterDoc(NewDocID) then raise Exception.Create('Документредактируется'); FDocID := NewDocID; ibdDocs.Connected := True; ibtDoc.StartTransaction; with cdsTitle do begin params.paramByName('DocID').AsInteger := FDocID; Active := True; Append; Post; end; К-во Просмотров: 839
Бесплатно скачать Реферат: MIDAS. Практическое применение
|