Топик для вопросов и ответов связанных с Lotus продуктами, не требующие длительных рассуждений и отдельных тем.

Помогите. Постараюсь описать проблему подробнее. Есть форма. На ней есть computed subform. В подформе есть кнопка "Проверить". В самой форме есть поле "стат" типа Radio button, в нем 3 значения, по умолчанию стоит одно из значений. Я хотел что бы при нажатии на кнопку "проверить" в форме значение поля "стат" менялось. Подскажите как это можно реализовать? Спасибо.

Можно в описании поля(радио батон) задать вот такие выборы:
Выбор раз | 1
Выбор дваз | 2
Выбор триз | 3

Затем в кнопке вставить следующую формулу:
Field RadBut := RadBut;
@SetField(“RadBut”; “2”)

Если по умолчанию было выбрано первое поле, то после нажатия кнопки выбор будет на второй. Вроде должен быть…

Gogan.exe Неа не работает. Сама кнопка в подформе находится. То есть ее видно если по условию открывается эта подформа. Как сделать по другому я не знаю.

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

Gogan.exe

dim uidoc as NotesUIDocument
dim doc as NoteDocument
dim ws as NotesUIWorkspace

set ws = new NotesUIWorkspace

set uidoc = ws.CurrentDocument
set doc = uidoc.Document

.....
.....


' "форма предлагает сохранить и закрыть" - делаем это автоматом
doc.SaveOptions = 0
Call doc.Save(true, true)
call uidoc.Close
set uidoc = ws.EditDocument(true, doc)

___________________________

"Как сказать полю с типом Date, чтобы отображала дату как текст?" - ничего полю говорить не надо, надо преобразовывать значение даты в текстовое значение, как тебе Veselinka говорила, например
date_str = Cstr(doc.MyDate(0))

или еще лучше можно воспользоваться свойствами класса NotesDateTime (вроде так называется) и преобразовывать в текст отдельные атрибуты поля типа DateTime: месяц, год, день и т.д....

Все эти вешчи текстовые объединяешь вместе в нужном тебе порядке для получения строки, которая будет служить значением single category в embedded view...
после этого пишешь код, который я выше написал (надеюсь без ошибок) - внедренное представление обновится...


(А в твоем этом отчете пользователь изменяет только дату для получения выборки документов? А что если нужно будет дополнительно указать другие признаки отбора? Как тогда ты будешь выборку отображать?)
__________________________

" Ругается на дату “Keyword must be a single string”." - не знаю даже чем тебе тут помочь, попробуй в свойствах поля поставить Native OS Style, а по умолчанию - пустое значение ""

[B]

Isk
Я сделал твою кнопку на подформе, которая загружается в форму по условию и по нажатию кнопки изменил значение поля, тип которого RadioButton (поле находится в форме) - все тоже самое, как и Gogan.exe тебе писал ранеее

на кнопке код:

FIELD stat := stat;

@SetField("stat"; "2")

"stat" - поле типа RadioButton, значения которого следующие:

value1 | 1
value2 | 2
value3 | 3

значение поля по умолчанию "1"

nor Работает, но если док не сохраняешь. А если сохранить, а потом открыть, то в ответ тишина.

nor
Gogan.exe
Сорри, все действительно работает, просто торможу.

Isk
Бывает... :)
Зато как приятно, когда все работает! :)

Люди, хелп!
Почему не работает серч?
Я создал несколько отображений (вьюх). Вверху у них есть серчбар. Ввожу в бар условие (филд «номер» = 2), а он не отображает ни дного документа! В чем дело? Док такой точно есть! Я его вижу перед нажатием Серч. Что я не так сделал?

Gogan.exe
Если есть индекс у базы - обнови...
Еще помогает обновление индексов представления (Shift+F9)

Народ, помню был пример кода работы с экс-эль, но найти не могу, если не трудно еще раз выложите.

Обыкновенный пример создание обьекта Excel и работа со свойствами этого обьекта. Пример выгрузки вида в Excel

Vagor.ini THANKS!!!

Народ, знаю, что это миллион раз обсуждалось, но забыл и снова найти ответа не могу. Как сделать отказ от сохранения? Чтобы при закрытии формы не спрашивалось сохранить или нет, а лучше, чтобы вообще сохранить форму невозможно было. Знаю, что нужно написать SaveOptions := 0, но где это писать?
Кстати, пасибо з совет про преобразование даты в текст - начальник остался доволен результатом :))

Что бы запретить сохранение формы необходимо в событии QuerySave параметру Continue присвоить 0 (нуль).

Чтобы при закрытии формы не спрашивало сохранить ли документ, необходимо doc.SaveOptions = 0 прописать в событии формы PostOpen или, например в теле скрипта, если с документом работает агент, например:

....
doc.item1 = "value1"
doc.item2 = "value2"
....
....
doc.SaveOptions = 0
doc.Save(True, True)
....
___________________
(doc - текущий документ NotesDocument)

привет Народ, второй день не могу понять в чем проблема:
версия как R5, так и R6.5
Есть код функции, который находит некоторый документ и возвращает либо его либо Nothing.
Если эту функцию проходишь в дебагере по шагам - то она возвращает документ, а если ее не проходишь, то документ она находит (выяснено методом отладки со вставкой месаджбоксов), но она его НЕ ВОЗВРАЩАЕТ. То есть когда из функции происходит возврат - значение указателя обнуляется.

Вот код функции - он обходит адресные книги и проверяет - является ли данное имя группой или нет

Function ISGr(grname) As Notesdocument
Set ISGr=Nothing
Dim session As New NotesSession
abs_ =session.addressBooks

Forall ab In abs_
Set adb=New Notesdatabase(ab.server,ab.filepath)
If adb.Isopen() Then
Set view=adb.GetView("($VIMGroups)")
If Not view Is Nothing Then
Call view.refresh
Set gdoc1=view.getdocumentbykey(grname,True)
If Not gdoc1 Is Nothing Then
Set ISGr=gdoc1
Exit Function
End If
End If
End If
End Forall
End Function
Если есть какие-либо мысли на счет того как это может быть - пишите плиз

Есть мысля, как такое может быть. На такие же грабли сам наступал

Имхо проблема в том, что как только функция возвращает результат, а результатом является документ из другой базы, то ссылка на саму базу уничтожается, и соответственно чтобы не оставлять мусора в памяти уничтожаются все подчиненные этой базе объекты, в том числе и найденный документ.
И как только управление переходит за пределы функции - возвращаемого объекта в памяти больше НЕТ.
Имхо отсюда ноги и растут.

полечила затычкой - сделала функцию static

Народ, как сделать так чтобы посчитать сколько дней прошло с начала создания документа? то есть перевести так сказать в числовой формат. В хэлпе вроде накопал через Абс, но не работает, все время выдает ошибку, а вообще хотелось бы узнать как это можно сделать на Л скрипте.

Isk
Есть у меня пример такого скрипта (с буржуйского сайта): Скрипт определяющий количество дней между двумя датами (исключая выходные и праздники)
Для него нужно создать вид "holiday" где загнать все праздники и библиотеку со слудующей функцией:

Спасибо большое.Vagor.ini

Имхо можно гораздо проще
dim res as variant
Dim doc As Notesdocument

' определяем документ
set doc = ...

Res = Evaluate (|(@today - @Created)/3600/24|, doc)
Print "Количество дней между датами " + Cstr(Res(0))

Вуаля.