D
Dimok-163rus
Всё без изменений, такое же окно...уже начинаю склоняться к косяку LN,
Вкладываю весь код, если будет время для интереса )
Уже все перепробовал, вывод окошка(рис.ниже) и всё тут... :wacko:
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">"Код целиком"</div></div><div class="sp-body"><div class="sp-content">
Вкладываю весь код, если будет время для интереса )
Уже все перепробовал, вывод окошка(рис.ниже) и всё тут... :wacko:
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">"Код целиком"</div></div><div class="sp-body"><div class="sp-content">
Код:
Sub Click(Source As Button)
' Если будет ошибка в работе - перейдет на обработчик ошибок
On Error Goto Handler
'Объявление переменных
' _________________________________________
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim UIview As NotesUIView
Dim uidoc As NotesUIDocument
Dim view As NotesView
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim currNoteID As String
Dim parentDoc As NotesDocument
Dim childDoc As NotesDocument
Dim VName As NotesDateTime
Dim n As Variant
Dim i As Integer
Dim res As Integer
'Поля
Dim Organ As Long
Dim Data_sovet As Single
Dim Data_protokol As Single
Dim Data_end As Single
Dim n_copy As Variant
Dim result
'Продолжать?
' _________________________________________
Dim askme As Variant
askme = ws.Prompt(PROMPT_YESNO, "Вы уверены?", "Сгенерировать документ?")
If askme=0 Then
Exit Sub
End If
Set db=session.CurrentDatabase
Set doc=db.CreateDocument
'Подробней об CaretNoteID
currNoteID = ws.CurrentView.CaretNoteID
' документ из представления, копия которого будет сделана
Set parentDoc = session.CurrentDatabase.GetDocumentByID(currNoteID)
If parentDoc Is Nothing Then Error 5002, "Ошибка при получении основного документа"
If ParentDoc.GetItemValue("data_end")(0) < ParentDoc.GetItemValue("data_protokol")(0) Then
Msgbox "Ошибка ввода конечной даты"
Exit Sub
Elseif ParentDoc.GetItemValue("data_end")(0) = ParentDoc.GetItemValue("data_protokol")(0) Then
Msgbox "Конечная дата идентична дате протокола, копии не нужны"
' копии не создаем
n = 0
Exit Sub
Else
'Окно ручного ввода
' If Not ws.DialogBox( "Test_1", True , True , False , False , False ,False , "Название окна" , doc, True ) Then
' n = doc.getitemvalue("n_copy")(0)
' End If
' Msgbox "" & n
Call Doc.ReplaceItemValue("Form","Test_1")
' Call Doc.Computewithform(False, False)
result = ws.DialogBox("Test_1",True,True,False,False, False, False, "Количество документов потомков",Doc, True)
' Msgbox Doc.GetItemValue("n_copy")(0)
If result Then 'нажали Ok в диалоге
Msgbox Cstr(Doc.Getitemvalue( "n_copy")(0))
n = Doc.GetItemValue( "n_copy" )(0) 'получаем значение поля n_cop
' Msgbox n
Else
Exit Sub
End If
' n = Inputbox("Введите количество копий документа", "Создание копий документа")
' Высчитываем кол-во копий
' res = ParentDoc.GetItemValue("data_end")(0) - ParentDoc.GetItemValue("data_sovet")(0)
' Msgbox res
' n = res/182 - 1
' Msgbox n
For i=1 To n
Set VName = New NotesDateTime("" & parentDoc.Getitemvalue("Data_protokol")(0))
Call VName.AdjustDay(182)
Set childDoc = parentDoc.CopyToDatabase( session.CurrentDatabase)
Organ = parentDoc.GetItemValue ("Organ")(0)
childDoc.Organ = Organ+1
' дата совета это дата протокола из оригинального документа
Call childDoc.ReplaceItemValue("Data_sovet", parentDoc.GetItemvalue("Data_protokol"))
' дата протокола это +182 дня
Call childDoc.ReplaceItemValue("Data_protokol", Cdat(VName.Dateonly))
Call childDoc.Save(True,False)
Set parentDoc = childDoc
Next
'Обновляем, чтобы сразу появился в виде
Call ws.ViewRefresh
Exit Sub
End If
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 Sub