Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Don Pasquale am 21.03.03 - 13:09:33
-
Hallo Lotus-Freaks
Kennt jemand folgende Fehlermeldung und kann mir mögliche Ursachen dafür nennen ?
Netzwerk-Protkoll Fehler: Nachricht vom Server war zu kurz.
Ciao
Don Pasquale
Das soll bei folgendem Code aufgetreten sein :
(EIgene Dokumente ist ein Ordner Public, private at first use,
die Anwendung liegt zentral auf dem Server)
Dim ws As New NotesUiWorkspace
Dim s As New NotesSession
Dim view As NotesView
Dim dc As NotesDocumentCollection
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim DocDelete As NotesDocument
Dim ORDNER_DOKS_NACH_INITIATOREN As String
Dim ORDNER_DOKS_NACH_SENDEN_AN As String
Dim ORDNER_EIGENE_DOKUMENTE As String
ORDNER_DOKS_NACH_INITIATOREN = "_Initiator"
ORDNER_DOKS_NACH_SENDEN_AN = "_Senden"
ORDNER_EIGENE_DOKUMENTE = "Eigene Dokumente"
Dim session As New NotesSession
Dim vc As NotesViewEntryCollection
Set db = s.CurrentDatabase
Set db = session.CurrentDatabase
Set view = db.GetView(ORDNER_EIGENE_DOKUMENTE)
Set vc = view.AllEntries
Call vc.RemoveAllFromFolder(ORDNER_EIGENE_DOKUMENTE)
Set db = session.CurrentDatabase
Set view = db.GetView(ORDNER_DOKS_NACH_INITIATOREN)
Set vc = view.GetAllEntriesByKey(session.CommonUserName,False)
Call vc.PutAllInFolder( ORDNER_EIGENE_DOKUMENTE, True)
Set view = db.GetView(ORDNER_DOKS_NACH_SENDEN_AN)
Set vc = view.GetAllEntriesByKey(s.CommonUserName, False)
Call vc.PutAllInFolder(ORDNER_EIGENE_DOKUMENTE, True )
Set view = db.GetView( ORDNER_EIGENE_DOKUMENTE )
Call ws.ViewRefresh
-
hm..kA was der Fehler soll, aber nur ein Tip ganz am Rande
Const ORDNER_DOKS_NACH_INITIATOREN = "_Initiator"
ist etwas kürzer als
Dim ORDNER_DOKS_NACH_INITIATOREN As String
ORDNER_DOKS_NACH_INITIATOREN = "_Initiator"
bewirkt aber (nahezu) das Gleiche.