1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,192
  • Репутация : 0

Тема: Обработка ошибки в Lotus

Бывают ситуации, когда в какой-то функции или кнопке нужно обработать одну определенную ошибку.
Public Function
On Error Goto processError   
...
функция.

Exit Function    
processError:
        Print Err, Error & { в строке } & Erl

        If Err = 4091 Then
Set doclog = New NotesDocument    (dblog)
Call doclog.Save(True, False)
Print "Отработали ошибку 4091"
Resume Next
        End If

doclog.ERRMSG = Err & "// "& Error$  & " //СТРОКА " & Erl() & " //ЗАПРОС " & formula
        doclog.log_time=dateTime.LSLocalTime
        Call doclog.Save(True, False)
        Exit Function
    End Function

Поделиться