Чтоза функция? Getpersondoc

Тема в разделе "Lotus - Программирование", создана пользователем NeoSimvolist, 15 июл 2010.

Статус темы:
Закрыта.
  1. NeoSimvolist

    NeoSimvolist Гость

    Нашел здесь на форуме вот такю функцию
    Function SetPersonFullName(sRegServer As String, sLastName As String, sFirstName As String, sMiddleInit As String, uReg As NotesRegistration) As Variant
    On Error Goto Error_
    SetPersonFullName = False

    Dim uPerson As NotesDocument
    Set uPerson = GetPersonDoc(sRegServer, sLastName, sFirstName, sMiddleInit)
    If (uPerson Is Nothing) Then
    Print sError & "Пользователь """ & sLastName & " " & sFirstName & " " & sMiddleInit & """ не найден в адресной книге на сервере """ & sRegServer & """"
    Exit Function
    End If

    With uPerson
    .FullName = Canonicalize(.FullName(0))
    .ShortName = uReg.ShortName
    SetPersonFullName = .Save(True, True)
    End With

    Exit_:
    Exit Function

    Error_:
    Print sError & "SetPersonFullName: (#" & Err() & ", #" & Erl() & ") " & Error()
    Call LogAdd(sError & "SetPersonFullName: (#" & Err() & ", #" & Erl() & ") " & Error(), "1")
    Resume Exit_
    End Function

    Чтоза функция? GetPersonDoc. Или как ее создать самому?
     
  2. Klido

    Klido Гость

    только НАЙТИ док юзера в АК.. .по ФИО...
    как создать? хм, взять и создать... или подождать пока хозян ща довыложит недостающее ;)
     
  3. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    NeoSimvolist
    самописная функция, смотри в дизейнере что и куда....
     
  4. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    код выкладывали давно. функция получает документ Person из АК сервера по ФИО.
    Напиши сам или ищи сообщения автора (наш модератор указал имя автора) за тот период на sysadmins.ru
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей