Moin,
Kurze Problembeschreibung:
Ich habe eine Maske mit mehreren Feldern. Eines dieser Felder heisst Konfiguration, ein anderes Objekt.
Die Nutzer sollen mit der Maske die Möglichkeit haben erst die Konfiguration zu wählen und anschliessend (mit Picklistcollection) ein einzelnes Objekt (also so ne Art gestaffelte Auswahl).
PickListCollection soll das set Version 5 können.
Also flux nen Script gebastelt:
Dim ws As New notesuiworkspace
Dim s As New notessession
Dim ui As notesuidocument
Dim col As notesdocumentcollection
Dim doc As notesdocument
'View Dialog aufrufen (als PickListCollection)
Set ui=ws.currentdocument
Set col=ws.PickListCollection(PICKLIST_CUSTOM,False,"XXX_01","SupportV20.nsf","(PM4)","Auswahl
des betroffenen Objekts","Bitte wählen Sie das betroffene Objekt
aus der
Liste!",ui.fieldgettext("Konfiguration"))
If Not col Is Nothing Then
Set doc=col.getfirstdocument
'Auswahldocumentfelder kopieren und anzeigen
Call ui.fieldsettext("Typ",doc.Typ(0))
Call ui.fieldsettext("Untertyp",doc.Untertyp(0))
Call ui.fieldsettext("Bezeichnung",doc.Bezeichnung(0))
Call ui.fieldsettext("Hersteller",doc.Hersteller(0))
Call ui.fieldsettext("Seriennummer",doc.Seriennummer(0))
Call ui.fieldsettext("BEN",doc.BEN(0))
Else
Messagebox ("Sie müssen ein Objekt wählen!")
End If
Alles anzeigen
Die Ansicht (PM4) ist kategorisiert und in der zweiten Spalte sortiert (ohne weitere Kategorie).
Sieht alles aus als sollte es funktionieren, beim Testen hatte ich aber beim Aufruf von PickListCollection ein leeres Dialogfeld.
Nehme ich die kategorisierung in der PickListCollection raus funktioniert alles wie gewünscht; aber die Auswahl ist halt etwas gross.
Gibts da ne Lösung?