Dokument 'über Datenbank' öffnen erzeugt Illegal Function Call

[DerAndre]

Ich habe gesucht aber nichts passendes gefunden.

Ich habe das Phänomen, daß wenn unten eingestellte Eigenschaften für eine Datenbank gewählt sind wird im PostOpen des Datenbankscript ein Illegal Function Call erzeugt.
Der Fehler tritt in der ersten  Zeile, eine simple Zuweisung, nach der Deklaration auf. Nach wegklicken der Meldung wird dann die DB geöffnet.

Hat jemand so ein Phänomen schon gehabt?

Client ist 6.5.1 DE
Server ist auch 6.5.1

[Glombi]

Unter 6.5.3 tritt das nicht auf.

Poste doch mal das Script im Postopen der Datenbank.

Andreas

[DerAndre]

Script:

Sub Postopen(Source As Notesuidatabase)
   Dim db As notesdatabase
   Dim Gdp_MainServer As String,Gdp_SecondServer As String,Gdp_ThirdServer As String
   Dim Gdp_Serverlist As Variant,MsgRetValue As Integer
   Dim dispServer As String
   Gdp_SecondServer="" -> hier meldet sich der Debugger
   Gdp_ThirdServer=""
     'v1.6
   On Error Resume Next
   Gdp_Serverlist=GetGlobalParamByKey("SAS_ServerList","names")
   Gdp_MainServer=Gdp_Serverlist(0)
   Gdp_SecondServer=Gdp_Serverlist(1)
   On Error Goto errorLabel
   Set db = source.database
   dispServer =Gdp_MainServer
   If db.server = Gdp_MainServer Then
      dispServer =    Gdp_SecondServer
   End If
   
   Dim continue As Variant
   
   continue=True
   Call ApromService_VerifyHttpConnection(continue)
   
   If (Not continue) Then
      MsgRetValue=Messagebox("Es besteht keine Verbindung zum Aprom-Server"+Chr(13)+ _
      "Sie werden weitergeleitet auf NotesServer: " +at_name_cn(dispServer) ,0+16,"SAS")
      Dim ws As New NotesUiWorkspace   
      Call ws.openDatabase(dispServer,db.filepath)
   Else
      setModelParamId("APR-MP-000008")
      Call  ApromService_ClientPreloading
      Activateapp  db.Title
   End If
   Goto endOfSub
   
errorLabel:
   MsgRetValue=Messagebox("Fehler aufgetreten in Modul:  Dbase PostOpen" +_
   " Fehler-Nr.:" & Str(Err) & ": " &  Chr(13) & Error$,16,"SAS Fehlermeldung")   
endOfSub:   
End Sub


Der Code ist nicht von mir, ich hoffe aber, das er ein bischen hilft.

[DerAndre]

Das ist alles nicht wahr... 

Ich habe noch im Errorhandle was eingefügt, danach kein Fehler mehr.

Schablone wieder drüber, kein Fehler mehr...

Ich versteh das nicht...

[DerAndre]

Ich bekomm die Kriese.

Fehler kommt, Fehler kommt nicht...

Dann auch noch eine Fehlinformation.

Fehler kommt bei der Zeile

    Activateapp  db.Title

[DerAndre]

Ok, weitergesucht...

Fehler kommt jetzt dauerhaft.

Was mir aufgefallen ist:

'über Datenbank' Dokument wird erst auf der Arbeitsbereichsseite dargestellt
dann geht die Datenbank auf, danach die über Seite und dann ist alles Ok, bis auf die Fehlermeldung...

[DerAndre]

Habe jetzt mal den 7.0.2er Client genötigt.

Auch da habe ich das Problem.

Scheint wohl nicht wirklich was mit der Notesversion zu tun zu haben, eher mit dem was wir hier veranstalten...
Merkwürdig ist es trotzdem

[ata]

... die Meldung weist auf eine Benutzerdefinierte Meldung hin - Irgendwo im Postopen wird eine Funktion verwendet, die dort nicht declariert ist, oder nicht zur Verfügung steht...

Toni

[DerAndre]

Hi Toni.

Die Meldung ist aus dem Errorhandle.
Die Funktion die nicht klappt ist Activateapp und Notesbestand

ActivateApp statement 

Makes a program window the active window.
Syntax
ActivateApp windowName
AppActivate is acceptable in place of ActivateApp.
Elements
windowName
A string expression designating the program window to activate.
Usage
windowName is not case sensitive. It must exactly match the leftmost characters of the program title that appears in the program window title bar. For example, if the program title of a running program window is "Lotus Notes - Workspace," then a windowName value of "Lotus Notes" will activate that window. If more than one program title matches windowName, LotusScript will choose one of the program windows.
ActivateApp can activate a minimized window, but cannot restore or maximize it. Use SendKeys to restore or maximize a window. Use Shell to start a program.


Was merkwürdig ist, das es nur passiert, wenn das Dokument 'über Datenbank' angezeigt werden soll, und dann auch nicht immer

[ata]

... in solchen zweifelhaften fällen mache ich gerne eine Recompile auf die Datenbank, gehe aus Notes, lösche die Cache.ndk / bz. dsk und versuche es erneut. Ein Compact auf die Datenbank oder Fixup hat auch schon mal das eine oder andere Wunder bewirkt - da bleibt einem nur die Ruhe zu bewahren...

Toni

[DerAndre]

Ich versuch mal mein Glück damit.
Dummerweise tritt dieses Phänomen bei einer anderen Datenbank, zum Glück nur eine Testdatenbank, auch auf. Schlafende Hunde soll man nicht wecken... 

Ich mach jetzt erstmal recompile und laß dananch unseren Admin mal ein fixup machen.