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

wowa

Well-known member
01.02.2007
845
0
#1
Добрый день!

В одной БД есть кнопка. ПРи нажатии на нее открывается другая БД, нужный 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
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#3
У ComposeDocument есть параметр. Что-то типа return UI document. Поставь его в False.
 

wowa

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

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

wowa

Well-known member
01.02.2007
845
0
#6
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

Что это ? :)
Lotus team
10.12.2004
3 346
1
#7
Конечно не так. :)
Set uidocNew = Wks.ComposeDocument( "", "", "FP", , , False )
 

wowa

Well-known member
01.02.2007
845
0
#8
Medevic , Огромное спасибо, получилось так как надо

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

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


Medevic , Yakov , +1