D
Dimok-163rus
Подскажите пжлст.:
Работаю в форме "Рублев.облигации"(jpeg 1 файл вложен) - она является основной формой, в которой содержатся многие другие:
- досрочное погашение,
- списки владельцев,
- существенные факты,
- купонные периоды и т.д
кнопку создал в форме существенные факты(jpeg 2 файл вложен) "Генерация сущ.фактов", с помощью неё будет идти выгрузка в Word, код кнопки ниже...
как мне обратиться к полям другой формы, например форма "купонный период" поле "Num_period", она так же вложена в форму "рублевые облигации",
дабы проверить поля на корректность ввода и для последующих работ с ними...
Работаю в форме "Рублев.облигации"(jpeg 1 файл вложен) - она является основной формой, в которой содержатся многие другие:
- досрочное погашение,
- списки владельцев,
- существенные факты,
- купонные периоды и т.д
кнопку создал в форме существенные факты(jpeg 2 файл вложен) "Генерация сущ.фактов", с помощью неё будет идти выгрузка в Word, код кнопки ниже...
Код:
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 Nothing Then View.AutoUpdate = True ' Это чтобы вернуть автообновление при ошибке.
Resume endh
endh:
End If
End Sub
как мне обратиться к полям другой формы, например форма "купонный период" поле "Num_period", она так же вложена в форму "рублевые облигации",
дабы проверить поля на корректность ввода и для последующих работ с ними...