Moin,moin alle zusammen,
lässt sich das realisieren? Hintergrund ist, dass ich gerne eine Aktion zum Erstellen von Dokumenten, die in allen Datenbanken gleich aufgebaut ist, in eine gemeinsame Aktion in einer "Gestaltungsdatenbank" umwandeln würde.
Im Moment hatte ich das mit folgenden Formeln gelöst:
@Set("M1";"Abrechnungsgrundlage - Dateiverknüpfung");
@Set("M2";"Abrechnungsgrundlage - Kostenstelle");
@Set("M3";"Abrechnungsgrundlage - Stundenaufteilung");
@Set("M4";"Krankenkasse - Allgemein");
@Set("M5";"Krankenkasse - Kürzel");
@Set("M6";"Mitarbeiter/in - Allgemein");
@Set("M7";"Mitarbeiter/in - Arbeitsunfall");
@Set("M8";"Mitarbeiter/in - Aufenthaltstitel");
@Command([Compose]; ""; @Prompt([OkCancelList]; "Firma"; "Bitte wählen Sie die Art des Dokuments, dass Sie erstellen wollen."; ""; @Sort(M1:M2:M3:M4:M5:M6:M7:M8)))
Wie ich die Forms per Script auslese weiß ich, nur werden ja dann automatisch alle ausgelesen.
Geht das überhaupt mit der Maskeneigenschaft?
Gruß
Demian
Das ist etwas aufwändiger, da man diese Eigenschaft (noch) nicht direkt aus der Maske (Klasse: NotesForm) auslesen kann.
Ist die Eigenschaft der Maske 'Include in menu' abgewählt, wird dies im Eintrag '$Flags' des Gestaltungsdokuments der Maske mit einem 'C' gekennzeichnet.
Wie Du mit Script an die Gestaltungsdokumente kommst und den Eintrag ausliest, zeigt dieser kurze, schmutzige Agent:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim noteID As String, designDoc As NotesDocument
' Alle Masken in eine NotesNoteCollection lesen
Dim nc As NotesNoteCollection
Set nc = db.CreateNoteCollection(False)
nc.SelectForms = True
Call nc.BuildCollection
' Schleife über alle Elemente der Collection
noteID = nc.GetFirstNoteId()
While noteID <> ""
' Gestaltungsdokument anhand noteID in NotesDocument lesen
Set designDoc = db.GetDocumentByID( noteID )
' Eintrag $Flags aus Gestaltungsdokument anzeigen
Messagebox(designDoc.GetFirstItem("$flags").values(0))
noteID = nc.GetNextNoteId(noteID)
Wend
End Sub
Eine Übersicht der Einträge für $Flags findest du hier (gibts auch sicher irgendwo schöner..) -> http://www-10.lotus.com/ldd/nd6forum.nsf/55c38d716d632d9b8525689b005ba1c0/ccfc127a7c71e43b8525703000501af8?OpenDocument&Highlight=0,%24flags
Gruß
Peter