Проблема с радиобаттном

[maximus01]

Помгите кто сможет вот с какой простой и обыденной задачей
Есть письма с поручениями. Делаем кнопку которая создает задачу пользователю. В коде создается объект задача из формы задачи на которой заполняются текстовые поля методом appenditemvalue а вот радиобаттон упорно не поддается. простой радиобаттон два значения.
Нашел как сделать через simpleactions и @setfiled но ни один из этих способов нам не подходит.

как на lotusscript сделать что бы радиобаттон переключился, или как изменить дефолтное значение?

 

[Medevic]

<!--QuoteBegin-maximus01+11:05:2007, 09:05 -->
<span class="vbquote">(maximus01 @ 11:05:2007, 09:05 )</span><!--QuoteEBegin-->как на lotusscript сделать что бы радиобаттон переключился

[snapback]65540" rel="nofollow" target="_blank[/snapback]​

[/quote]
Просто установить значение поля.

 

[morpheus]

Для: maximus01
По дуфолту ,например радио баттон Ex_Page, пусть имеет 2 значения ("Альбомная" и "Книжная")
в дизайнере в секции Default value Вы и пишите любой из этих значений, н. "Альбомная"

чтобы выставить значение Радиобатона, просто пешите код
...
doc.Ex_Page = "Альбомная"
...

где doc это Ваш документ

 

[maximus01]

по дефолту мы догнали как сделать проблема в том что если просто создаешь задачу ручками дефолтное значение меняется на нужное а когда выполняется скрипт который создает задачу оно не меняется и просто выставляется на первое значение

Для: maximus01
По дуфолту ,например радио баттон Ex_Page, пусть имеет 2 значения ("Альбомная" и "Книжная")
в дизайнере в секции Default value Вы и пишите любой из этих значений, н. "Альбомная"

чтобы выставить значение Радиобатона, просто пешите код
...
doc.Ex_Page = "Альбомная"
...

где doc это Ваш документ

 

[morpheus]

Для: maximus01
Ну так а почему же оно меняеться в ручную??

что не пойму я Вас, опишите как по подробнее бо я свой угадыватель мыслей дома оставил

 

[maximus01]

вот наш пример кода

Sub Click(Source As Button)
Dim s As New NotesSession
Dim ws As New notesuiworkspace
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim note As NotesDocument
Dim Due As New NotesDateTime ("")

Set db = s.CurrentDatabase
Set collection = db.UnprocessedDocuments
If collection.count > 0 Then
Set note = collection.GetFirstDocument
End If
If note Is Nothing Then Set note = ws.CurrentDocument.Document
Call note.ReplaceItemValue("CopyInto","1")
'Make sure we copy all the correct info
Dim IntoForm As Variant
IntoForm = "ToDoFS"


'Дата задачи
Call Due.SetNow
Call Due.AdjustDay (3)
Call note.AppendItemValue("StartDate", Date$)
Call note.AppendItemValue("DueDate", Due)

' Здесь заполнились поля срок исполнения задачи
' Нужно изменить тип задача TaskType
note.TaskType="2" ' !!!!! не проходит

If PrepareNoteToCopyDrag(note , IntoForm ) = 0 Then
Exit Sub
Else
Call UICopyIntoNewDocument(CREATE_TASK, True)
End If
End Sub

Для: maximus01
Ну так а почему же оно меняеться в ручную??

что не пойму я Вас, опишите как по подробнее бо я свой угадыватель мыслей дома оставил

задачу мможно создать вручную например из меню зайти в задачи и ткнуть создать новую
тогда обрабатывается дефаултвалуе и ставится как надо

тоже самое делаем скриптом и дефаултвалуе не выставляется... такое впечатление что формула эта не посчиталась при программном создании задачи

 

[morpheus]

Для: maximus01
У Вашего поля TaskType псевдонимы значений есть?

что с note патом делаеться, он открываеться в UI ?
может сохранить надо?

 

[maximus01]

Для: maximus01
У Вашего поля TaskType псевдонимы значений есть?

что с note патом делаеться, он открываеться в UI ?
может сохранить надо?

он открывается в виде задачи с заполнеными датами в которую можно внести изменения и закрыть
т.е. часть функционала отрабатывает нрмлаьно.. оп крайней мере даты изменяются
а вот флажок нет, может он есть у вас это переключатель личной и групповой задачи

 

[morpheus]

<!--QuoteBegin-maximus01+11:05:2007, 09:42 -->
<span class="vbquote">(maximus01 @ 11:05:2007, 09:42 )</span><!--QuoteEBegin-->может он есть у вас это переключатель личной и групповой задачи

[snapback]65566" rel="nofollow" target="_blank[/snapback]​

[/quote]
Отчудава она у меня может взяться, я же не знаю в какой базе Вы работаете, и повторюсь телепататор я забыл

 

[maximus01]

он открывается в виде задачи с заполнеными датами в которую можно внести изменения и закрыть
т.е. часть функционала отрабатывает нрмлаьно.. оп крайней мере даты изменяются
а вот флажок нет, может он есть у вас это переключатель личной и групповой задачи

народ сильно не пинайте сами полдня потеряли оказывается в коде нотеса If PrepareNoteToCopyDrag(note , IntoForm ) = 0 Then в этой функции идет подмена на 1 т.е. все наши изменения затирались и выводились уже дефолтные с точки зрения этой процедуры.
%) всем спасибо за внимание и помощь

 

[morpheus]

Для: maximus01
пятницяяя