Subject: RE: loading script libraryin view - error when in the global options
yes - i did recompile (and closed/reopened Notes and deleted cache.ndk - for some other reason).
It does not error with every library:
<Use “helv_UIView”> doesn’t work
but <Use “helv_UIDoc”> is OK
helv_UIView has only one function:
===================================
Function helvUIViewcheckPaste(view As NotesView) As Boolean
’ wird im QueryPaste-Event eines Views aufgerufen
’ prüft, ob Einfügen aus Zwischenablage erlaubt ist
’ @author: Uwe Jandt
’ @modified: 04.02.2008
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim flag As String
Dim viewnames As Variant
Dim viewIdent As String
helvUIViewcheckPaste = True
’ Feldnamen im Profildoc
Const CProfileForm = "ProfileDatabaseSettings"
Const CFNameRadio = "viewpaste"
Const CFNameDialist = "viewpasteSelection"
’ Wenn Viewaliases vorhanden, dann den ersten nehmen, sonst den Viewnamen
If Isempty(view.Aliases) Then
viewIdent = view.Name
Else
viewIdent = view.Aliases(0)
End If
’ Info im DBProfile, ob copy/paste in Views erlaubt ist
Set db = session.CurrentDatabase
Set doc = db.GetProfileDocument(CProfileForm)
If doc.HasItem(CFNameRadio) Then
flag = doc.GetItemValue(CFNameRadio)(0)
Select Case flag
Case "0":
Msgbox "Einfügen von Dokumenten aus der Zwischenablage in dieser DB nicht erlaubt.",48,"Achtung"
helvUIViewcheckPaste = False
Case "2":
If doc.HasItem(CFNameDialist) Then
viewnames = doc.GetItemValue(CFNameDialist)
’ Viewname oder Alias mit der Profiledoc-Liste vergleichen
Forall v In viewnames
If v = viewIdent Then
helvUIViewcheckPaste = False
Msgbox "Einfügen von Dokumenten aus der Zwischenablage in dieser Ansicht nicht erlaubt.",48,"Achtung"
Exit Function
End If
End Forall
End If
End Select
End If
End Function
======================================
Maybe you see sth obvious in the code?
Do the compiler checks the functions, and stops because I pass the parameter “view As NotesView” in the function?
But as I said: when I place it in the views options, it is OK
Uwe