I created a LotusScript class.
A function of this class return a notesdocument.
Even if the document is found in the function it always return nothing.
I tried in debug, and I can see the document befor the return and my code was working fine, until we upgrade server to 8.0.2 (we ran 8.0.1 befor).
Anyone see my mistake or is it a bug in 8.0.2?
Class look like this :
======================
Dim c as New MyClass()
c.Call(“blabla”)
Class MyClass
doc as NotesDocument
Public Sub Call(byval param1 as string)
set doc = GetDoc(param1)
End Sub
Private Function GetDoc(byval param1 as string) as NotesDocument
dim docFound as notesdocument
Stuff here…
if not docFound is nothing then
messagebox "Doc Found"
end if
Set GetDoc = docFound
End Fucntion
End Class