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;
Рекомендуем скачать другие рефераты по теме: зимнее сочинение, шпаргалки по уголовному.