| Maxa | Дата: Вторник, 15.09.2009, 13:48 | Сообщение # 1 |
|
Школьник
Группа: Администраторы
Сообщений: 22
Статус: Offline
| Как создать и сохранить пустой объект спецификации?
|
| |
| |
| Maxa | Дата: Вторник, 15.09.2009, 13:49 | Сообщение # 2 |
|
Школьник
Группа: Администраторы
Сообщений: 22
Статус: Offline
| var
kompas:KompasObject;
spcdoc1,spcdoc2:ksspcdocument;
par:ksdocumentparam;
sp:kssheetpar;
begin
kompas:=KompasObject(GetActiveOleObject('Kompas.Application.5'));
//устанавливаем лицензии
if kompas.ksIsModuleSpecificationActive=0 then
kompas.ksModuleSpecification(true);
spcdoc1:=ksspcdocument(kompas.SpcDocument);
par:=ksDocumentParam( kompas.GetParamStruct(ko_DocumentParam));
par.Init;
par.type_:=4;
sp:=kssheetpar(par.GetLayoutParam);
sp.layoutName:='';
sp.shtType:=1;
form1.Caption:=vartostr(spcdoc1.ksCreateDocument(par));
spcdoc1.ksSaveDocument('c:\3.spw');
|
| |
| |
