Вызов процедуры!

[DNT]

Есть библиотека "MainLib".
В ней процедура "Sub LogWriteSave (sr As Notesdocument, Action As String)"
Процедуру вызываю из события формы - всё ОК.

Затык в следующем - в "Общей программе БД" на событие Querydocumentdelete пишу код:

....
Dim doc As NotesDocument
...
For i = 1 To collection.Count
Set doc = collection.GetNthDocument(i)
Call LogWriteSave(doc,"Отмена удаления")
Next
....

Ошибка: Type mismath on: DOC

Почему???? Может где-то нужно дополнительно что-то объявить?
Спасибо.

 

[Domino6]

<!--QuoteBegin-DNT+30:01:2006, 13:20 -->
<span class="vbquote">(DNT @ 30:01:2006, 13:20 )</span><!--QuoteEBegin-->Set doc = collection.GetNthDocument(i)

[snapback]29920" rel="nofollow" target="_blank[/snapback]​

проверка на пусто документа[/quote]

if NOT(doc is Nothing) then
Call LogWriteSave(doc,"Отмена удаления")
end if

И заодно посмотри может в "doc" какая-то буква русская "о" или "с"