Re: Использование функций документооборота ТКС АПИ.
"Выполним команду над документом. Нужно передать идентификатор команды 'или же -1 для того чтобы просто выгрузить тела на диск .
Commands.OpenDoc (-1) ."
У Вас есть пример с передачей идентификатора команд?
Я знаю все параметры записи документа, включая и файловый состав. Как при этом выгрузить файл или открыть для просмотра или редактирования.
Re: Использование функций документооборота ТКС АПИ.
"Выполним команду над документом. Нужно передать идентификатор команды 'или же -1 для того чтобы просто выгрузить тела на диск .
Commands.OpenDoc (-1) ."
У Вас есть пример с передачей идентификатора команд?
Я знаю все параметры записи документа, включая и файловый состав. Как при этом выгрузить файл или открыть для просмотра или редактирования.
Re: Использование функций документооборота ТКС АПИ.
Речь идет о том чтобы выполнить конкретную настроенную команду из документооборота или же открыть документ на редактирование (а обработчик запускается вами?). Последний способ реализован в версии 2.9.5.0 ( -2 надо указать ).
Re: Использование функций документооборота ТКС АПИ.
Напишите пожалуйста пару строк, в качестве примера, когда документ создается вместе с известными значениями известных атрибутов.
Re: Использование функций документооборота ТКС АПИ.
DocParamNames: OleVariant;
DocParamValues:OleVariant; DocParamNames := VarArrayCreate([0,IBQuery1.RecordCount-1],varOleStr);
DocParamValues := VarArrayCreate([0,IBQuery1.RecordCount-1],varVariant);
If Pos('(ввод нового документа)',FDann.Caption)=0 then begin
for i:=0 to SGrid.RowCount-2 do begin
DocParamNames[i] :=IBQuery1.FieldByName('PRJPAR_GUID').AsString;
if trim(SGrid.Cells[1,i+1])='' then DocParamValues[i]:=null
else DocParamValues[i]:= SGrid.Cells[1,i+1];
if SGrid.Cells[1,i+1]=' . . ' then DocParamValues[i]:=null
else DocParamValues[i]:= SGrid.Cells[1,i+1];
IBQuery1.Next;
end;
end else begin
for i:=0 to SGrid.RowCount-3 do begin
DocParamNames[i] :=IBQuery1.FieldByName('PRJPAR_GUID').AsString;
DocParamValues[i]:= null;
IBQuery1.Next;
end;
end;
Doc := TcsApp.CreateDoc[Edit1.Text+' '+Edit1.Hint+' '+Edit7.Text+' '+s1+' '+CBox6.Text+' '+DBLCBox1.Text,
Edit2.Text, IBQuery31.FieldValues['PRJTYPE_ID'],
IBQuery6.FieldValues['PRJTREE_ID'],
IBQuery41.FieldValues['ROUTING_ID'],
IBQuery81.FieldValues['WORKGRP_ID'],
DocParamNames,DocParamValues ];
Re: Использование функций документооборота ТКС АПИ.
Спасибо. Очень помогло. :D