Domino 9 und frühere Versionen > ND7: Entwicklung

Eigenschaft "Dieses Gestaltungselement nicht in Menüs" per Script auslesen

(1/3) > >>

Demian:
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:


--- Code: ---@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)))
--- Ende Code ---


Wie ich die Forms per Script auslese weiß ich, nur werden ja dann automatisch alle ausgelesen.

Geht das überhaupt mit der Maskeneigenschaft?

Gruß
Demian

DAU-in:

--- Zitat von: Demian am 23.07.08 - 08:59:36 ---
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.

.....
Wie ich die Forms per Script auslesen weiß ich, nur werden ja dann automatisch alle ausgelesen.

Geht das überhaupt mit der Maskeneigenschaft?

--- Ende Zitat ---

Ehrlich gesagt verstehe ich überhaupt nicht, was du machen willst bzw. was du wissen möchtest.

Grüsse

Dau-in

Demian:
Moin Dau-In,

ich möchte per Script abfragen, ob die Maskeneigenschaft "Dieses Gestaltungselement nicht in Menüs" gesetzt ist oder nicht.

Gruß
Demian

joringel:
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:


--- Code: ---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

--- Ende Code ---


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

DAU-in:
wieder was gelernt  :)

Navigation

[0] Themen-Index

[#] Nächste Seite