Domino 9 und frühere Versionen > ND6: Entwicklung

Index is not to be generated on server

(1/5) > >>

Don Pasquale:

bei erstellen eines Ordner Shared, priavte desktop on first use

hat jemand eine Idee, welche Einstellungen da fehlen könnten ?


Ciao
Don Pasquale

koehlerbv:
Frage am Rande: Ist diese Deine Frage
http://www.atnotes.de/index.php?board=3;action=display;threadid=11334
nicht die gleiche Problematik ?

Versionsnummern Server & Client wären noch interessant.

Bernhard

Don Pasquale:
@bernhard,

ich habe Lotus 6.0 im Einsatz.

Es ist eine weitere Facette des gleichen Problem.
Zum Einen bekam ich keine Kopie angelegt, zum anderen bekomme
ich jetzt diese Fehlermeldung.
Was die Kopie angeht, so ist es ja durchaus möglich,
dass Lotus 6 die Private Kopie nicht mehr als eigenes Icon anzeigt.

Der Code, der den Fehler evoziert :

   Dim ws As New NotesUiWorkspace
   Dim s As New NotesSession
   Dim view As NotesView
   Dim dc As NotesDocumentCollection
   Dim db As NotesDatabase
   Dim LOESCHLISTE List As String
   Dim doc As NotesDocument
   Dim Kommandodoc 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
   Dim j As Integer
   
   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
   user = session.CommonUserName   
   
   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


Ciao
Don Pasquale

Semeaphoros:
Da gibt es ein Problem im LotusScript: Dieser Fehler wird generiert, wenn der Folder noch nicht besteht. Sprich: der Benutzer muss den Folder zuerst von Hand mal erstellt haben, bevor man mit LS auf den Folder zugreifen kann. Bei Private on First Use auf dem Server gibts Möglichkeiten, das zu umgehen, soviel ich weiss, gibt es aber bei Desktop-Foldern keinen Workaround, ausser dem Benutzer irgendwie mitzuteilen, dass er erst mal auf das Icon klicken soll.

koehlerbv:
Hm, meines Erachtens ist dies noch nicht einmal ein "Problem in LS", sondern eine völlig logische Konsequenz: Gibt es ein Objekt noch nicht, kann man auch nicht darauf zugreifen.
Der Code sollte nach dem Instantiieren eines Objekt sowieso immer auf Erfolg prüfen, hier also:
Set view = db.GetView(ORDNER_EIGENE_DOKUMENTE)
If Not (view is Nothing) then
    'mach Dein Ding
else
    'warne oder lege den Folder an oder ...
End If

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite