Domino 9 und frühere Versionen > Entwicklung

ausgewähltes dokument in einer ansicht in den zugriff bekommen?

<< < (3/3)

koehlerbv:
Und was ist mit den Datenmengen und Deinem "Überlauf-Problem" ?
Es gäbe da schon Lösungen, aber x Kilobyte Daten nur anschauen ... tsss  ???
Vielleicht hast Du ja aber auch in Wirklichkeit gar kein "Überlauf-Problem". Schau'n wir mal ...

Bernhard

OCS:
erstmal danke, das Du Dich mit meinem Problem befasst!

ich bekomme bei diesem script hier schon "Subscript out of range" obwohl nur 9 einträge in den array gemacht werden!

Sub Initialize
   
   'Variablen zum Schlüssel auslesen
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim workspace As New NotesUIWorkspace
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim uiview As NotesUIView
   Dim aunritem As notesitem
   Dim posiitem As notesitem   
   Dim aunr As String
   Dim posi As String
   Dim key As String
   
   'Variablen um auf FridaAktiv zuzugreifen
   
   Dim db_fri As notesdatabase
   Dim view_fri As notesview   
   Dim collect_Fri As notesdocumentcollection
   Dim doc_fri As NotesDocument
   Dim temp As Variant
   Dim adoc As Variant
   Dim anzeige() As String
   
   
   
   Set db = session.CurrentDatabase
   Set uiview = workspace.Currentview
   
   Set collection = db.UnprocessedDocuments
   Set doc = collection.GetFirstDocument()
   
   Call uiview.SelectDocument(doc) ' Soll das aktuell ausgewählte Dokument in den Zugriff nehmen
   
   Set aunritem = doc.GetFirstItem( "KOAUNR" )
   Set posiitem = doc.GetFirstItem( "PSPOSI" )
   
   aunr = aunritem.text ' kopiert den Inhalt des items als string in aunr
   posi = posiitem.text ' kopiert den Inhalt des items als string in posi
   
   key = aunr + " " + posi ' erstellt eindeutigen schlüssel aus auftragsnummer + position
   
   
   
   '---------------------------------------------------------------------------------------------------------------------------------------
   ' Jetzt auf FridaAktiv zugreifen und passende Tätigkeitsberichte suchen                =
   '---------------------------------------------------------------------------------------------------------------------------------------
   
   
   
   Set db_Fri = session.Getdatabase("OCS02/OCS GmbH", "aktiv\fridaakt.nsf", False)
   Set view_Fri = db_Fri.getview ("ViewActionsZeiten")
   Set collect_Fri = view_Fri.GetAllDocumentsByKey(key, exact)
   
   
   For i = 1 To collect_fri.Count ' Array aufbauen (Sätze)
      Set aDoc = collect_fri.GetNthDocument(i)
      anzeige(i) = adoc.CommonUser(0)
      
      Redim Preserve anzeige(i) As String
      
   Next      
   
   
   
      'Auswahl aus der Box ins Feld schreiben
   
   
   temp = workspace.prompt(PROMPT_OKCANCELLIST, "Stundenzettel", "Stundenzettel für Auftrag " + aunr + "Position " +  posi, Anzeige(1), Anzeige())
   
End Sub

koehlerbv:
WO bekommst Du "subscript out of range" - welche Zeile ?

Was bedeutet Anzeige () ?

Bernhard

OCS:
anzeige() ist der array den ich fülle! den subscript out of range bekomme ich gleich beim ersten füllen des array's.

obwohl da blos name und vorname eines mitarbeiter drin steht!

OCS:
hab den fehler grade gefunden! muss schon redimensionieren bevor ich das erste mla befülle! danke trotzdem für die hilfe!!! das mit dem "in welcher zeile" von dir hat mich drauf gebracht!!!!  danke danke danke!!!

gruß björn

Navigation

[0] Themen-Index

[*] Vorherige Sete