Глобальная переменная

@mototykymkyr · Регистрация: 21.09.2007

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

Здравствуйте.

Помогите, пожалуйста, новичку.

Как передать значение переменной, определяемой процедурой одной формы, процедуре другой формы?

Спасибо.

@morphyus · 25.09.2007, 12:05

Для: NataliGinger
несколько варантов

Через
Поля
Environment
Профильный документ
через гл. переменную LS

ОПишитика свою задачу подробнее

@mototykymkyr · 25.09.2007, 12:50

Дочернему документу переназначается родительский.
Для этого я выясняю #Ref будущего родительского в момент, когда документ выбран во view по кнопочке в форме.
Затем во view выбирается дочерний и ему переназначается родительский, используя тот самый #Ref, значение которого храниться в переменной тоже по кнопочке в форме.

Логичнее, конечно, сделать кнопочки в самом view. Там возникает ошибка.
Код на кнопке:

Dim session As New NotesSession
Dim db As NotesDatabas
Dim doc As NotesDocument
Set ws = New NotesUIWorkspace
Set uidoc = ws.CurrentDocument

Set doc = uidoc.Document
"Object variable not set"

Ref1= Cstr(doc.GetItemValue("$REF")(0))
Messagebox Ref1

В Globals Declarations view: Public Ref1 As String

@morphyus · 25.09.2007, 13:18

(NataliGinger @ 26:09:2007, 11:37 )Для этого я выясняю #Ref будущего родительского в момент, когда документ выбран во view по кнопочке в форме.
[snapback]79588" rel="nofollow" target="_blank[/snapback]?[/quote]
ниче не понял так во вью или в форме?


(NataliGinger @ 26:09:2007, 11:37 )Object variable not set"
[snapback]79588" rel="nofollow" target="_blank[/snapback]?[/quote]

В Globals Declarations view: Public Ref1 As String - вобще никчему

@mototykymkyr · 25.09.2007, 13:51

Вообщем, я пробовала сначала в форме, а теперь остановилась на вью.
Я ограничена во времени, тороплюсь, поэтому и мечусь.
Спасибо за ссылку. Помогло.

Теперь другая проблема.
Когда переназначаю родителя:

Call doc.MakeResponse(db.GetDocumentByID(Ref1 ))

Ругается:

"Parent Document is required to make a response Document"

@Mydyvys · 25.09.2007, 13:57

Для: NataliGinger
Не понятно зачем тебе поле $Ref ?
Сразу по-нормальному через документы нельзя сделать?

@mototykymkyr · 25.09.2007, 14:06

Документ уже существует и у него уже есть родительский, а теперь мне нужно определить ему другой родительский.

Подскажите, как по-нормальному, если родительский уже есть.
Спасибо.

@ysovoytobty · 25.09.2007, 14:11

Видимо, ситуация такая:

Во вьюхе человек открывает документ (ответный), потом жмёт кнопку, появляется пиклист с вьюхой, из которой выбирается документ, который должен стать новым родителем для текущего документа.

Вроде бы при выборе из вьюхи возвращается String... Тогда можно возвращать унид документа, по нему в бд искать документ (NotesDocument) и потом уже выполнять MakeResponse.

Думаю, как-то так...

@Mydyvys · 25.09.2007, 14:23

Для: NataliGinger
На кнопочках код какой?


(IsAvailable @ 26:09:2007, 13:58 )Вроде бы при выборе из вьюхи возвращается String... Тогда можно возвращать унид документа, по нему в бд искать документ (NotesDocument) и потом уже выполнять MakeResponse.
[snapback]79611" rel="nofollow" target="_blank[/snapback]?[/quote]
Надо использовать метод notesUIWorkspace.PickListCollection. И всё будет просто.

@ysovoytobty · 25.09.2007, 14:30

Для: Medevic
А, ну да, точно. Тогда без всяких унидов - сразу можно NotesDocument получить и родителем назначить.

@mototykymkyr · 25.09.2007, 14:33

А можно пример кода?

@somstomtym o shyrvomymko · 25.09.2007, 14:38

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

Для: NataliGinger
несколько варантов

Через
Поля
Environment
Профильный документ
через гл. переменную LS

Последнее (между разными формами) невозможно.

@Mydyvys · 25.09.2007, 14:41

Code
1
2
3
4
5
6
7
8
9
10
11
Dim ws AS New NotesUIWorkspace
Dim pdoc As NotesDocument
Dim rdoc As NotesDocument
 
Set pdoc = ws.PickListCollection(...).GetFirstDocument
Set rdoc = ws.PickListCollection(...).GetFirstDocument
 
If Not (pdoc is Nothyng Or rdoc Is Nothyng) Then
Call rdoc.MakeResponse(pdoc)
Call rdoc.Save(True, True)
End If

@Duydyv · 25.09.2007, 17:28

(Constantin A Chervonenko @ 26:09:2007, 14:25 )Последнее (между разными формами) невозможно.
[snapback]79619" rel="nofollow" target="_blank[/snapback]?[/quote]

А если переменную объявить в библиотеке общей для этих форм?

@Somdr · 25.09.2007, 17:42

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

А если переменную объявить в библиотеке общей для этих форм?

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

@somstomtym o shyrvomymko · 26.09.2007, 02:00

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

А если переменную объявить в библиотеке общей для этих форм?

Это прокатывает только для двух субформ одной формы

@Duydyv · 26.09.2007, 14:55

(Constantin A Chervonenko @ 27:09:2007, 01:47 )Это прокатывает только для двух субформ одной формы
[snapback]79696" rel="nofollow" target="_blank[/snapback]?[/quote]

Объяснишь, почему это невозможно для двух отдельных форм?

@morphyus · 26.09.2007, 15:33

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

@Duydyv · 26.09.2007, 16:46

(Morpheus @ 27:09:2007, 15:20 )очень просто разные формы инициализируют библиотеку каждая от себя - результат в памяти две библиотеки и двойной набор переменных хоть и глобальных
[snapback]79819" rel="nofollow" target="_blank[/snapback]?[/quote]

Мне вот этот момент очень интересен.... не ужели нельзя что то вроде кэша в оперативной памяти создать?

@morphyus · 26.09.2007, 16:57

Для: Duedev
угу... а в какой памяти? лотус та .. того мультиплатформенный ... а могёт и через Web

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@mototykymkyr 0 / 0 / 0 Регистрация: 21.09.2007 Сообщений: 43

	Глобальная переменная 25.09.2007, 11:40. Показов 37999. Ответов 31 Метки нет (Все метки) Здравствуйте. Помогите, пожалуйста, новичку. Как передать значение переменной, определяемой процедурой одной формы, процедуре другой формы? Спасибо. 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	25.09.2007, 12:05
	Для: NataliGinger несколько варантов Через Поля Environment Профильный документ через гл. переменную LS ОПишитика свою задачу подробнее 0

@mototykymkyr 0 / 0 / 0 Регистрация: 21.09.2007 Сообщений: 43
	25.09.2007, 12:50
	Дочернему документу переназначается родительский. Для этого я выясняю #Ref будущего родительского в момент, когда документ выбран во view по кнопочке в форме. Затем во view выбирается дочерний и ему переназначается родительский, используя тот самый #Ref, значение которого храниться в переменной тоже по кнопочке в форме. Логичнее, конечно, сделать кнопочки в самом view. Там возникает ошибка. Код на кнопке: Dim session As New NotesSession Dim db As NotesDatabas Dim doc As NotesDocument Set ws = New NotesUIWorkspace Set uidoc = ws.CurrentDocument Set doc = uidoc.Document "Object variable not set" Ref1= Cstr(doc.GetItemValue("$REF")(0)) Messagebox Ref1 В Globals Declarations view: Public Ref1 As String 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	25.09.2007, 13:18
	<!--QuoteBegin-NataliGinger+26:09:2007, 11:37 --> <span class="vbquote">(NataliGinger @ 26:09:2007, 11:37 )</span><!--QuoteEBegin-->Для этого я выясняю #Ref будущего родительского в момент, когда документ выбран во view по кнопочке в форме. [snapback]79588" rel="nofollow" target="_blank[/snapback]?[/quote] ниче не понял так во вью или в форме? <!--QuoteBegin-NataliGinger+26:09:2007, 11:37 --> <span class="vbquote">(NataliGinger @ 26:09:2007, 11:37 )</span><!--QuoteEBegin-->Object variable not set" [snapback]79588" rel="nofollow" target="_blank[/snapback]?[/quote] В Globals Declarations view: Public Ref1 As String - вобще никчему 0

@mototykymkyr 0 / 0 / 0 Регистрация: 21.09.2007 Сообщений: 43
	25.09.2007, 13:51
	Вообщем, я пробовала сначала в форме, а теперь остановилась на вью. Я ограничена во времени, тороплюсь, поэтому и мечусь. Спасибо за ссылку. Помогло. Теперь другая проблема. Когда переназначаю родителя: Call doc.MakeResponse(db.GetDocumentByID(Ref1 )) Ругается: "Parent Document is required to make a response Document" 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	25.09.2007, 13:57
	Для: NataliGinger Не понятно зачем тебе поле $Ref ? Сразу по-нормальному через документы нельзя сделать? 0

@mototykymkyr 0 / 0 / 0 Регистрация: 21.09.2007 Сообщений: 43
	25.09.2007, 14:06
	Документ уже существует и у него уже есть родительский, а теперь мне нужно определить ему другой родительский. Подскажите, как по-нормальному, если родительский уже есть. Спасибо. 0

@ysovoytobty 0 / 0 / 0 Регистрация: 15.12.2006 Сообщений: 202
	25.09.2007, 14:11
	Видимо, ситуация такая: Во вьюхе человек открывает документ (ответный), потом жмёт кнопку, появляется пиклист с вьюхой, из которой выбирается документ, который должен стать новым родителем для текущего документа. Вроде бы при выборе из вьюхи возвращается String... Тогда можно возвращать унид документа, по нему в бд искать документ (NotesDocument) и потом уже выполнять MakeResponse. Думаю, как-то так... 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	25.09.2007, 14:23
	Для: NataliGinger На кнопочках код какой? <!--QuoteBegin-IsAvailable+26:09:2007, 13:58 --> <span class="vbquote">(IsAvailable @ 26:09:2007, 13:58 )</span><!--QuoteEBegin-->Вроде бы при выборе из вьюхи возвращается String... Тогда можно возвращать унид документа, по нему в бд искать документ (NotesDocument) и потом уже выполнять MakeResponse. [snapback]79611" rel="nofollow" target="_blank[/snapback]?[/quote] Надо использовать метод notesUIWorkspace.PickListCollection. И всё будет просто. 0

@ysovoytobty 0 / 0 / 0 Регистрация: 15.12.2006 Сообщений: 202
	25.09.2007, 14:30
	Для: Medevic А, ну да, точно. Тогда без всяких унидов - сразу можно NotesDocument получить и родителем назначить. 0

@mototykymkyr 0 / 0 / 0 Регистрация: 21.09.2007 Сообщений: 43
	25.09.2007, 14:33
	А можно пример кода? 0

@Duydyv 0 / 0 / 0 Регистрация: 08.07.2005 Сообщений: 100
	25.09.2007, 17:28
	<!--QuoteBegin-Constantin A Chervonenko+26:09:2007, 14:25 --> <span class="vbquote">(Constantin A Chervonenko @ 26:09:2007, 14:25 )</span><!--QuoteEBegin-->Последнее (между разными формами) невозможно. [snapback]79619" rel="nofollow" target="_blank[/snapback]?[/quote] А если переменную объявить в библиотеке общей для этих форм? 0

@Duydyv 0 / 0 / 0 Регистрация: 08.07.2005 Сообщений: 100
	26.09.2007, 14:55
	<!--QuoteBegin-Constantin A Chervonenko+27:09:2007, 01:47 --> <span class="vbquote">(Constantin A Chervonenko @ 27:09:2007, 01:47 )</span><!--QuoteEBegin-->Это прокатывает только для двух субформ одной формы [snapback]79696" rel="nofollow" target="_blank[/snapback]?[/quote] Объяснишь, почему это невозможно для двух отдельных форм? 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	26.09.2007, 15:33
	Для: Duedev я был не прав, а Константин канечно же оказался прав... очень просто разные формы инициализируют библиотеку каждая от себя - результат в памяти две библиотеки и двойной набор переменных хоть и глобальных 0

@Duydyv 0 / 0 / 0 Регистрация: 08.07.2005 Сообщений: 100
	26.09.2007, 16:46
	<!--QuoteBegin-Morpheus+27:09:2007, 15:20 --> <span class="vbquote">(Morpheus @ 27:09:2007, 15:20 )</span><!--QuoteEBegin-->очень просто разные формы инициализируют библиотеку каждая от себя - результат в памяти две библиотеки и двойной набор переменных хоть и глобальных [snapback]79819" rel="nofollow" target="_blank[/snapback]?[/quote] Мне вот этот момент очень интересен.... не ужели нельзя что то вроде кэша в оперативной памяти создать? 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	26.09.2007, 16:57
	Для: Duedev угу... а в какой памяти? лотус та .. того мультиплатформенный ... а могёт и через Web 0