Заменить имя шаблона без Notesapi

morpheus

скриптописец
07.08.2006
3 915
1
#1
Оказываеться название базы, мастер шаблон и шаблон наследования для каждой базы находиться в документе иконки базы ( который имеет постоянный ID ) в поле $Title

Ниже приведён формат в котором должна содержиться инфформация в поле $Title:

Database_Title + CHR(10) + "#1" + Master_Template_Name + CHR(10) + "#2" + Design_Template_Name

так что, всё что необходимо: взять документ иконки и изменить в нём одно поле.
Код:
curTitle = db.Title & Chr$(10) & "#2" & TemplateName
Set iconDoc = db.GetDocumentByID("FFFF0010")
Call iconDoc.ReplaceItemValue("$Title",curTitle)
Call iconDoc.Save(True,True)
вот и всё. Для базы db мы заменили шаблон из которого будет идти наследование дизайна( указатель #2 ) .



Источник тут
 

NickProstoNick

Статус как статус :)
Lotus team
22.08.2008
1 809
21
#2
В версии 8.х работает так
Код:
db.Title = Title & Chr$(10) & "#2" & designTemplate