Маленький вопрос по Querymodechange

@SOFTOBZOR.ru · Регистрация: 21.02.2006

Студворк — интернет-сервис помощи студентам

Мне необходимо что-бы если док. редактирют (начинают редактировать) значение 1 поля очищалось.
Делаю так:

Code
1
2
3
4
5
Dim doc As NotesDocument
Dim item As NotesItem
Set item = doc.ReplaceItemValue _
( "Pole", "" )
Call doc.Save( True, True )

Ругаеться....

@Mydyvys · 14.01.2007, 12:02

doc не определен.

@SOFTOBZOR.ru · 14.01.2007, 12:04

Medevic, а пример для глупых

@oshmyomsky · 14.01.2007, 12:09

Для: SOFTOBZOR.ru
в какой момент и где делаешь? как ругается?

ммм, в QueryModeChange. мимо пролетело. извиняюсь.
как ругается?

@SOFTOBZOR.ru · 14.01.2007, 12:12

Засунул в Querymodechange
В документе есть кнопка [редактировать]
Тыкаю в нее

Code
1
2
3
4
5
6
7
---------------------------
Lotus Notes
---------------------------
Object variable not set
---------------------------
ОК
---------------------------

@morphyus · 14.01.2007, 12:12

<span class="vbquote">(SOFTOBZOR.ru @ 15:01:2007, 11:51 )</span>а пример для глупых
[snapback]53164" rel="nofollow" target="_blank[/snapback]?[/quote]

Code
1
2
3
4
5
6
 Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
....

@Kyy_Kyykkymym · 14.01.2007, 12:13

в декларашионс формы, объяви uidoc и doc, в постопен их (uidoc и doc) инициализируй,
а в кверимодченч уже используй твой doc

@oshmyomsky · 14.01.2007, 12:22

Для: Morpheus
Для: Kee_Keekkenen
вот, е-мае. шустрые ребята. я только покурить вышел...

@SOFTOBZOR.ru · 14.01.2007, 12:22

Мужики спасибо работает, но криво!

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
 
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Dim item As NotesItem
 
Set item = doc.ReplaceItemValue( "Factor", "" )
Call doc.Save( True, True )
Call workspace.ViewRefresh
 
End Sub

Получается такая бяка, открываю док.
Есть в нем поле - текстовое, редактируемое которое и нужно очистить.
Если сделать так [Редактировать] [Закрыть] [Открыть] - то поле очищено
А если так [Редактировать] [Сохранить] [Закрыть] [Открыть] - то поле не очищено

Что может быть?
Т.е. мне надо когда док открыли на редактирование что бы поле это было чистиньким.

@oshmyomsky · 14.01.2007, 12:28

Для: SOFTOBZOR.ru
поле Factor редактируемое или вычисляемое? какое значение у этого поля по-умолчанию?
смотри скрипт на QuerySave.

@SOFTOBZOR.ru · 14.01.2007, 12:40

Factor это редактируемое поле, значение по умолчанию = ""
Когда создаеться документ это поле обязательное для ввода.

Создают, вводят Foctor, сохраняют, когда редактируют, нужно что-бы это поле очистилось для ввода новых данных и сохраняли.

Тут хитрость в том что это поле имеет следующий смысл [причина редактирования] есть другое поле в которое заносяться все причины, редактирования данного документа.
То есть

[Factor] = "Прична такак-то"

[FactorLog] = FactorLog+Factor

@Kyy_Kyykkymym · 14.01.2007, 13:02

лучше сделай так

Code
1
2
3
4
Sub Postmodechange(Source As Notesuidocument)
Call source.Fieldsettext("Factor","")
source.Refresh
End Sub

если нужно, то сохраняй текущее состояние

@Fossyt sody · 14.01.2007, 13:14

Сообщение от SOFTOBZOR.ru

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
 
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Dim item As NotesItem
 
Set item = doc.ReplaceItemValue( "Factor", "" )
Call doc.Save( True, True )
Call workspace.ViewRefresh
 
End Sub

...
Т.е. мне надо когда док открыли на редактирование что бы поле это было чистиньким.

Для начала чисто техническое замечание: вот этого всего не нужно по определению.

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document

Вполне довольно Set doc = source.Document. Ведь сорс уже передан как параметр.

Второе, кто будет писать Continue = FALSE/TRUE? А то бедное событие не может понять, отрабатывать ему или нет.

Наконец, есть свойство

To get: flag = notesUIDocument.EditMode
To set: notesUIDocument.EditMode = flag
Legal values
True indicates that the document is in Edit mode.

Его можно использовать в событии PostModeChange, чтобы очистить поле _после_ перехода документа в режим редактирования.

Удачи!

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	14.01.2007, 12:02
	doc не определен. 0

@SOFTOBZOR.ru 0 / 0 / 0 Регистрация: 21.02.2006 Сообщений: 267
	14.01.2007, 12:04
	Medevic, а пример для глупых 0

@oshmyomsky 0 / 0 / 0 Регистрация: 13.10.2005 Сообщений: 848
	14.01.2007, 12:09
	Для: SOFTOBZOR.ru в какой момент и где делаешь? как ругается? ммм, в QueryModeChange. мимо пролетело. извиняюсь. как ругается? 0

@Kyy_Kyykkymym 1 / 1 / 0 Регистрация: 01.10.2006 Сообщений: 615
	14.01.2007, 12:13
	в декларашионс формы, объяви uidoc и doc, в постопен их (uidoc и doc) инициализируй, а в кверимодченч уже используй твой doc 0

@oshmyomsky 0 / 0 / 0 Регистрация: 13.10.2005 Сообщений: 848
	14.01.2007, 12:22
	Для: Morpheus Для: Kee_Keekkenen вот, е-мае. шустрые ребята. я только покурить вышел... 0

@oshmyomsky 0 / 0 / 0 Регистрация: 13.10.2005 Сообщений: 848
	14.01.2007, 12:28
	Для: SOFTOBZOR.ru поле Factor редактируемое или вычисляемое? какое значение у этого поля по-умолчанию? смотри скрипт на QuerySave. 0

@SOFTOBZOR.ru 0 / 0 / 0 Регистрация: 21.02.2006 Сообщений: 267
	14.01.2007, 12:40
	Factor это редактируемое поле, значение по умолчанию = "" Когда создаеться документ это поле обязательное для ввода. Создают, вводят Foctor, сохраняют, когда редактируют, нужно что-бы это поле очистилось для ввода новых данных и сохраняли. Тут хитрость в том что это поле имеет следующий смысл [причина редактирования] есть другое поле в которое заносяться все причины, редактирования данного документа. То есть [Factor] = "Прична такак-то" [FactorLog] = FactorLog+Factor 0