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

@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

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

Новые блоги и статьи Все статьи Все блоги /
YAFU@home — распределённые вычисления для математики. На CPU Programma_Boinc 20.01.2026 YAFU@home — распределённые вычисления для математики. На CPU YAFU@home — это BOINC-проект, который занимается факторизацией больших чисел и исследованием aliquot-последовательностей. Звучит. . .	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@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