Не заполняются свойства спецификации

[Pavor]

Сначала открывается файл спецификации, которую предстоит заполнить,
и вот на настройке свойств уже забуксовал.
Делаю так:

Код Выделить Развернуть


  specparam:= ksDocumentParam(Kompas.GetParamStruct(ko_DocumentParam));
        if specparam<>nil then begin {specparam begin}
           specparam.Init;
        if spec.ksGetObjParam(spec.reference, specparam, ALLPARAM)<>0 then begin
                specparam.fileName:='specification.spw';
                specparam.author:='Author';
                specparam.type_:= 3;// тип - Спецификация
                spec.ksSetObjParam(spec.reference, specparam, ALLPARAM);
                end;
        end;{specparam end}

В итоге свойства не изменяются. Проверял, строки выполняются...
Этот кусок кода переделан из работы с чертежом, там он работает нормально, вот исходный фрагмент:

Код Выделить Развернуть


// РАБОТА С ДОКУМЕНТОМ 2D
        docparam:= ksDocumentParam(Kompas.GetParamStruct(ko_DocumentParam));
        if docparam<>nil then begin {docparam begin}
        docparam.Init;
        if doc.ksGetObjParam(doc.reference, docparam, ALLPARAM)<>0 then begin
                docparam.fileName:='drawing.cdw';
                docparam.author:='Author';
                doc.ksSetObjParam(doc.reference, docparam, ALLPARAM);
                end;
        end;{docparam end}


Подскажите, в чем может быть дело???

[Pavor]

Никто, видимо не знает...

Проблему решил, создавая спецификацию заново, "с нуля".
Теперь все заполняется.

[333]

Имя файла устанавливать через SetObjParam?
Причем не полный путь.
Если нужно изменить имя файла нужно использоват функцию SaveDocument.
В SetObjParam нужно менять только автора
Тип документа изменить нельзя