Простые операции на Ls

[Cleric-Lviv]

Всем привет!
вопросов много но вот литератури мало
никогда не програмировал.......но теперь пришлось
учусь с самого легкого пробую писать кнопки на lotusscript
типа Save вишло

Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.currentdocument
Call uidoc.save
Call uidoc.Close
End Sub

нормально
вот пробую edit

Sub Click(Source As Button)
Dim ws As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
uidoc.EditMode = True
End Sub

неканает
ну и чтото пробивал на скрипте следующую команду @command([compose]; "form")
здесь глушняк полний как задать форму?

Sub Click(Source As Button)
Dim ws As NotesUIWorkspace
Dim sesion As New NotesSession
Dim form As NotesForm
Dim uidoc As NotesUIDocument

????	 = "ADMCR"	---типа форма
End Sub

может кто хорошую книгу подкинет еще:blink)))) буду признателен!!!!

 

[morpheus]

Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As NotesUIWorkspace
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument ( db )
doc.Form = "ADMCR"
call ws.editdocument( true, doc )

 

[Cleric-Lviv]

Morpheus
спасибо, но на будующее плиз просто толкой в правильное направление а то так и не научусь

 

[Akupaka]

пробуй пользоваться справкой, там много того, что нужно

notesUIWorkspace.ComposeDocument( [ server$ [, file$ [, form$...)

 

[abbatik]

В простых кнопках лучше юзать формулы.

Сохранить и заркрыть - @If ( @Command ( [FileSave] ) ; @Command ( [FileCloseWindow] ) ; @Return ("") )
Просто сохарнить соответственно @Command ( [FileSave] )
Редактировать @Command ( [EditDocument] )

 

[Omh]

Ещё можно не использовать dot-notation, а спец. ф-ии NotesDocument'a.
Т.е. вместо

doc.Form = "Z"

писать

doc.ReplaceItemValue("Form", "Z")

 

[Cleric-Lviv]

В простых кнопках лучше юзать формулы.

Я знаю так и делаю но вот чтоб врубится в lotus script я пробую писать кнопки