Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lotus Notes/Domino: Программирование
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.55/69: Рейтинг темы: голосов - 69, средняя оценка - 4.55
Dymok-163rus
0 / 0 / 0
Регистрация: 17.06.2013
Сообщений: 112
1

Обращение К Др.форме Из Гл.формы

11.08.2013, 17:00. Просмотров 12370. Ответов 21
Метки нет (Все метки)

Подскажите пжлст.:

Работаю в форме "Рублев.облигации"(jpeg 1 файл вложен) - она является основной формой, в которой содержатся многие другие:

- досрочное погашение,
- списки владельцев,
- существенные факты,
- купонные периоды и т.д

кнопку создал в форме существенные факты(jpeg 2 файл вложен) "Генерация сущ.фактов", с помощью неё будет идти выгрузка в Word, код кнопки ниже...


.SpoilerTarget">Спойлер: Раскрывающийся Текст


LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 Sub Click(Source As Button)
 
Dim ws As New NotesUIWorkspace
Dim sess As New NotesSession
 
On Error Goto handler
 
Dim NotDocColl As NotesDocumentCollection
Dim tmpdoc As NotesDocument
 
Dim curdb As NotesDatabase
Dim uidoc As NotesUIDocument
Dim pdoc As NotesDocument
 
Set uidoc = ws.CurrentDocument
Set pdoc = uidoc.Document
Set curdb = sess.CurrentDatabase
 
Dim refdb As NotesDatabase
Dim profile As NotesDocument
 
Продолжать?
Dim askme As Variant
askme = ws.Prompt(PROMPT_YESNO, "Вы уверены?", "Сгенерировать документ?")
Msgbox pdoc.Podpisant(0)
If askme=0 Then
Exit Sub
End If
 
--------------------------------------------------------------------------------------------------------------------------------------
Проверка на корректность ввода
If pdoc.Podpisant(0)="" Then
Messagebox "Не указан подписант", 0 ,"Ошибка ввода"
Messagebox "Заполните поле подписант!"
Exit Sub
End If
If pdoc.Dol_podp(0)="" Then
Messagebox "Не указана должность подписанта", 0 ,"Ошибка ввода"
Messagebox "Заполните поле должность подписанта!"
Exit Sub
End If
If pdoc.Osn_podpis(0)="" Then
Messagebox "Не указана основание для подписания сущ.фактов!", 0 ,"Ошибка ввода"
Messagebox "Заполните поле основание для подписания сущ.фактов!"
Exit Sub
 
Поля из других форм
 
Открыть на редактирование ajhve
If pdoc.EditMode = False Then
Call ws.EditDocument( True )
End If
Call pdoc.Save( True, False )
Exit Sub
 
handler:
Простейший обработчик ошибок
Msgbox "Error:" & Error$ & Chr(10) & Chr(13) & " in line:" & Erl,16
If Not view Is Nothyng Then View.AutoUpdate = True  Это чтобы вернуть автообновление при ошибке.
Resume endh
endh:
End If
End Sub
как мне обратиться к полям другой формы, например форма "купонный период" поле "Num_period", она так же вложена в форму "рублевые облигации",
дабы проверить поля на корректность ввода и для последующих работ с ними...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.08.2013, 17:00
Ответы с готовыми решениями:

Обращение к переменной одной формы, обрабатывая событие на другой форме...
Я сделал в гриде столбец селект. При нажатии на кнопку, я сохраняю индекс...

Не удается обращение к элементам и методам формы из другой формы
Добрый день, Создал 2 формы, на второй есть паблик метод, элемент и несколько...

Обращение к полям родительской формы из дочерней формы
В главной форме я создаю класс как поле и создаю другую форму public...

Обращение из первой формы к элементам второй формы
Имеются две формы задача при нажатии на одну кнопку скрывать некоторые данные...

Обращение к функции первой формы из второй формы
Вот есть функция она объявлена и работает замечательно в первой форме, я хочу...

21
Dymok-163rus
0 / 0 / 0
Регистрация: 17.06.2013
Сообщений: 112
13.08.2013, 11:54 21
почему может не работать поиск по справочнику формы шаблона?
Справочник находится в той же базе db
TmpForm_Profile - имя формы,
PRCH - имя шаблона


LotusScript
1
2
3
4
5
6
7
8
9
Dim coll1 As NotesDocumentCollection
Dim dt1 As New NotesDateTime("")
Dim doc1 As NotesDocument Справочный док
 
По коду шаблона ищем в справочнике шаблонов нужную карточку шаблона
 
Set coll1 = db.Search({Form = "TmpForm_Profile" & ShortName = "PRCH"},Nothyng,0)
Msgbox "Количество док-тов : " & coll1.Count
Кол-во документов = 0
0
sovt
0 / 0 / 0
Регистрация: 27.10.2011
Сообщений: 2,124
13.08.2013, 12:48 22
Либо в названии формы ошибся. либо значения ShortName
0
13.08.2013, 12:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.08.2013, 12:48

Обращение из родительской формы к элементам второй формы
Помогите пожалуйста, надо динамически вывести dataGridView с таблицами данных...

Выборка в подчиненной форме 2 из формы 2 по выбранному значению в подчиненной форме 1 из формы 1
Добрый день! Есть 2 формы(на первой форме находится "подчиненная форма 1", на...

Обращение к форме
Ребята помогите плиз. Не могу обратиться к форме (всплывающее окно) Данный...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
22
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru