Открыть документ в Frameset , Frame

[wowa]

Добрый день!

В одной БД есть кнопка. ПРи нажатии на нее открывается другая БД, нужный FrameSet, Frame, и в данном фрейме создается документ по нужной форме. Вот кусок кода:

Dim wks As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim s As New NotesSession
Dim doc As NotesDocument
Dim db As New NotesDatabase( "", "")

Set uidoc = wks.CurrentDocument
Set doc = uidoc.Document

..................................................
' Открывается нужная БД
Сall wks.OpenDatabase( db.Server, db.FilePath )
' Открывается нужный Frameset
Call wks.OpenframeSet("ReportsFrame")
' Устанавливается нужный Frame
Call wks.SetTargetFrame("content")

Далее для проверкия делаю
Call Wks.OpenPage( "RefreshView" ), Данная Страница заносится в нужный Фрейм.
Подскажите, Как создать(ОТКРЫТЬ) во фрейме документ по форме???????????????

В Форме нет никаких полей, просто автоматически генерируется html-таблица

Я пробывал и Call wks.ComposeDocument( "", "", "FP" ) и т.д.
Выскакивает ошибка:
Notes Error - Target frame is ancestor of script object

 

[Yakov]

Свойства формы - третья вкладка - Auto Frame.

 

[Medevic]

У ComposeDocument есть параметр. Что-то типа return UI document. Поставь его в False.

 

[wowa]

Yakov , Спасибо, немного помогло, но придется исправлять много где в других местах.
Возможно ли обойтись без настроек формы, а кодом?
Почему Page, где Auto Frame не указан - открывается. А форма нет?

Medevic , Нужно ли тоже исправлять настройки(Auto Frame) формы???

 

[Medevic]

wowa
Нет, автофрейм не нужно ставить.

 

[wowa]

Medevic , Таже самая ошибка. Может что-то не так делаю:

Dim wks As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim s As New NotesSession
Dim doc As NotesDocument
Dim db As New NotesDatabase( "", "")

Set uidoc = wks.CurrentDocument
Set doc = uidoc.Document
................................
Call wks.OpenDatabase( "", db.FilePath )
Call wks.OpenframeSet("ReportsFrame")
Call wks.SetTargetFrame("content")

Dim uidocNew As NotesUIDocument
Set uidocNew = Wks.ComposeDocument( "", "", "FP", False )

 

[Medevic]

Конечно не так.
Set uidocNew = Wks.ComposeDocument( "", "", "FP", , , False )

 

[wowa]

Medevic , Огромное спасибо, получилось так как надо

Я сначала чего -то сделал так : Set uidocNew = Wks.ComposeDocument( "", "", "FP","" ,"" , False )
:)))

Yakov , Спасибо за второй вариант, вдруг пригодится


Medevic , Yakov , +1