Замена формы документа

@modyzdoMP · Регистрация: 16.07.2009

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

задача простая - при сохранении нового(только нового) документа нужно его форму заменить,

LotusScript
1
2
3
4
5
...
If Source.IsNewDoc Then
Call Source.Document.ReplaceItemValue("Form", "temp_f_company")
End If
...

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

ps понятно что остается создавать новые доки по форме temp_f_company, просто интересует почему заменить форму не вышло.

@okupoko · 29.11.2009, 13:52

поле "Form" на форме поцепи

@Xotyt · 29.11.2009, 14:07

В пост сэйв надо. Если документ только создается, то уидок.документ будет ничто. После первого сохранения он появится. И тогда можно пробовать заменить.

@mvyush · 29.11.2009, 14:15

Сообщение от xalet

В пост сэйв надо. Если документ только создается, то уидок.документ будет ничто. После первого сохранения он появится. И тогда можно пробовать заменить.

В постсэйве Source.IsNewDoc = False полюбому. Поэтому:
1. Объявляем в глобалс документа

Code
1
Public IsNewDoc as Boolean

2. В кверисэйв пишем

Code
1
If Source.IsNewDoc Then IsNewDoc = True

3. В постсэйве пишем

Code
1
2
3
If IsNewDoc Then
Call Source.Document.ReplaceItemValue("Form", "temp_f_company")
End If

29.11.2009, 14:26

Сообщение от nvy

3. В постсэйве пишем

Вот только если после п.3 документ закрыть, то новое значение Form не сохранится. Вобщем, пользуйте поле на форме, как Akupaka советовал.

@modyzdoMP · 29.11.2009, 14:39

гм. а так заработало...

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Querysave(Source As Notesuidocument, Continue As Variant)
If Source.IsNewDoc Then
Call Source.Document.ReplaceItemValue("NewField", "1")
End If
End Sub
 
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If Source.Document.GetItemValue("NewField")(0) = "1" Then
Call Source.Document.ReplaceItemValue("Form", "temp_f_company")
Call Source.Document.ReplaceItemValue("NewField", "0")
Call Source.Document.Save(True, False, FALSE)
End If
End Sub

Добавлено: тему еще одну открывать не хотелось бы,
вопрос -
есть ли какой-нибудь способ отличить: из дизайнера агент запускается или с клиента-сервера?

@susymmm · 29.11.2009, 14:51

Сomputed поле Form не подойдет)
Мой пример: в бд есть форма с таблицей Show only one row at a time(закладки)
Так вот нужно было сделать несколько кнопок, при click что бы по умолчанию открывалась определенная закладка.
Скриптом не стал делать (нужно было весь код на PostOpen переносить на кнопки).
Сделал несколько форм и поля $My_Table куда и пишу название закладки

В форме есть поле Form - Computed, где и должно идти переименование формы.

Так вот у некоторых при сохранении поле Form=""

Может, я что то неправильно делаю))

@mvyush · 29.11.2009, 14:59

Сообщение от nadezdaMP

гм. а так заработало...

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

Code
1
      Call Source.Document.ReplaceItemValue("NewField", "0")

на

Code
1
      Call Source.Document.RemoveItem("NewField")

@okupoko · 29.11.2009, 15:32

Сообщение от TIA

Вобщем, пользуйте поле на форме

партия не ищет легких путей

Сообщение от susinmn

Может, я что то неправильно делаю))

"видимо что-то случилось!" (с)

29.11.2009, 15:40

Сообщение от nadezdaMP

гм. а так заработало..

А теперь создайте новый документ и попробуйте закрыть без сохранения.

@susymmm · 29.11.2009, 15:46

Сообщение от Akupaka

партия не ищет легких путей

"видимо что-то случилось!" (с)

Ага, не пойму в чем дело. у некоторых работало нормально, у некоторых поле Form="". "то ли сани не едут, то ли..."©

@okupoko · 29.11.2009, 15:47

Сообщение от TIA

А теперь создайте новый документ и попробуйте закрыть без сохранения

дык Querysave не отрабатывал, ничего не должно случится, не?

29.11.2009, 16:01

Сообщение от Akupaka

дык Querysave не отрабатывал, ничего не должно случится, не?

Хм... Да, фальтстарт. Извиняюсь.
Всё равно так не кузяво, с полем лучше.

Хотя, стоп. Сценарий:
1. Содаём новый документ
2. Пользователь заполняет поля
3. Сохраняет БЕЗ ЗАКРЫТИЯ
4. Пользователь ещё заполняет поля
5. Не хочет сохранять то, что в п.4. Закрывает без сохранения.

Сохранилось то, что не хотелось (п.4)

@okupoko · 29.11.2009, 16:09

Сообщение от TIA

Сохранилось то, что не хотелось

конечный результат вычисления значения поля Form единый для всех случаев, поэтому частный случай нельзя отнести к ошибкам

зы: не универсально, но все же...
зы2: но с полем мне тоже больше нравится ))

29.11.2009, 16:35

Сообщение от Akupaka

конечный результат вычисления значения поля Form единый для всех случаев, поэтому частный случай нельзя отнести к ошибкам

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

P.S. Двойной сэйв -- тоже очень некачественное решение.

@okupoko · 29.11.2009, 16:40

Сообщение от TIA

Такая вот логика?

@modyzdoMP · 30.11.2009, 09:25

спасибо всем за помощь!))))))

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@okupoko 0 / 0 / 0 Регистрация: 04.10.2007 Сообщений: 2,977
	29.11.2009, 13:52
	поле "Form" на форме поцепи 0

@Xotyt 0 / 0 / 0 Регистрация: 04.08.2008 Сообщений: 408
	29.11.2009, 14:07
	В пост сэйв надо. Если документ только создается, то уидок.документ будет ничто. После первого сохранения он появится. И тогда можно пробовать заменить. 0

@susymmm 0 / 0 / 0 Регистрация: 12.10.2007 Сообщений: 522
	29.11.2009, 14:51
	Сomputed поле Form не подойдет) Мой пример: в бд есть форма с таблицей Show only one row at a time(закладки) Так вот нужно было сделать несколько кнопок, при click что бы по умолчанию открывалась определенная закладка. Скриптом не стал делать (нужно было весь код на PostOpen переносить на кнопки). Сделал несколько форм и поля $My_Table куда и пишу название закладки В форме есть поле Form - Computed, где и должно идти переименование формы. Так вот у некоторых при сохранении поле Form="" Может, я что то неправильно делаю)) 0

@modyzdoMP 0 / 0 / 0 Регистрация: 16.07.2009 Сообщений: 110
	30.11.2009, 09:25
	спасибо всем за помощь!)))))) 0