1

Тема: Проверка на повторение регистрационного номера документа.

Есть такая задача - канцелярии нужно перед регистрацией увидеть, был ли уже  в текущем месяце зарегистрирован документ с таким же номером?
Решение данной задачи сейчас такое:
1. Создается вид "Rnom" - последние регномера, категоризированный по полю "fullregnom" с формулой отбора:
SELECT ((Form = "incoming") | (Form = "inside") | (Form = "outgoing"))   & datereg>@Adjust(@Today; 0; 0; -30; 0; 0; 0)


2. В кнопке "Зарегистрировать" добавлен код до сохранения файла регнастроек:

    Dim view2 As NotesView
    Set view2 = db.GetView ("Rnom" )
    Dim rdoc As NotesDocument
    Key$ =     doc.doctype(0) + "/" + doc.regnom(0)
    Print "поиск "  Key$ 
    Set rdoc=view2.GetDocumentByKey(Key$)
    If Not rdoc   Is Nothing Then
        Print "найден дубль"
    '    If Left$ (doc.datereg(0),10)  = Left$(rdoc.datereg(0),10) Then
        If ws.Prompt (PROMPT_YESNO, "Продолжить регистрацию?",     "Документ с №" +  Key$  + "  от  "  + Left$ (rdoc.datereg(0),10)   + "  уже был зарегистрирован!") <> 1 Then Exit Sub
    '    End If
    End If

Поделиться