Re: Использование функций документооборота ТКС АПИ.

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