Код:
Class spo
Public Function get_docs_charakteristik_kotelnaya(db As NotesDatabase, cur_doc As NotesDocument, kv As String) As NotesDocumentCollection
On Error GoTo errmes
'чего то делаем .... и получаем
Set get_docs_charakteristik_kotelnaya = coll
GoOut:
Exit Function
errmes:
strErrMessage = "Ошибка #" & Err &" <"& Error$ & "> в выполняемой процедуре #" & GetThreadInfo(10) &" подпроцедура #" & GetThreadInfo(1) & ", в строке #" & CStr(Erl)
Print strErrMessage
Call errorstr(strErrMessage)
Resume GoOut
End Function
Public Function select_doc_in_docscharakteristiks(coll As NotesDocumentCollection,manual_select_doc As Boolean) As NotesDocument
On Error GoTo errmes
'делаем много проверок... выбрали... получили
Set select_doc_in_docscharakteristiks = db.Getdocumentbyunid(coll.Getlastdocument.Universalid)
GoOut:
Exit Function
errmes:
strErrMessage_rep = "Ошибка #" & Err &" <"& Error$ & "> в выполняемой процедуре #" & GetThreadInfo(10) &" подпроцедура #" & GetThreadInfo(1) & ", в строке #" & CStr(Erl)
Print strErrMessage_rep
Call errorstr(strErrMessage_rep)
Resume GoOut
End Function
Public Function getmaindoc_ofresponce(doc As NotesDocument) As NotesDocument
On Error GoTo errmes
исчем ... и получаем это
Set getmaindoc_ofresponce = db.Getdocumentbyunid(doc.ID(0))
'или это Set getmaindoc_ofresponce = Nothing
GoOut:
Exit Function
errmes:
strErrMessage_rep = "Ошибка #" & Err &" <"& Error$ & "> в выполняемой процедуре #" & GetThreadInfo(10) &" подпроцедура #" & GetThreadInfo(1) & ", в строке #" & CStr(Erl)
Print strErrMessage
Call errorstr(strErrMessage)
Resume GoOut
End Function
End Class
Ошибка предположим возникла на участке функции
get_docs_charakteristik_kotelnaya в строке 15
а обработчик пишет что Erl=37, открываем код и ищем 37 строку и попадаем например на строку Print strErrMessage.
Понятно что там ошибки быть не может, но следуя тому что написано. человек будет искать именно ту строку которая написана, а именно 37.