Domino 9 und frühere Versionen > ND6: Entwicklung

Noch etwas zu tun...

(1/5) > >>

Bruce Willis:
Hallo,

wenn ich etwas zu tun habe, erstelle ich eine Aufgabe in meiner Email-Datei. Mit der Zeit wird es mehr und mehr. Es kommen auch verschiede Emails, die mit diesen Aufgaben zu tun haben. Und dann verliert man den Überblick.

Um dies zu vermeiden, habe ich ein Zusatzfeld "Relations" in der Maske "Aufgabe" erstellt, wo ich Verknüpfungen zu bestimmten Emails (sowie auch entsprechende DateSent, Sender, Subject o.ä.) einfüge.

Es wäre natürlich geschickter, noch einen Button in dieser Maske zu erstellen, der mir ein kleines Fenster mit der Liste all der Emails in Inbox zur Auswahl anzeigen könnte und dann mit "OK" die o.g. Angaben mit der Verknüpfung zur ausgewählten Email in dieses Feld "Relations" einfügen würde.

Weiß jemand welchen Code man dafür braucht?

Gruß
Bruce

TMC:
Ist prinzipiell einfach umsetzbar.

Du brauchst aber eine separate View hierzu wo in einer Spalte die Formel
@Text(@DocumentUniqueID)
steht.
Außerdem noch eine View die nichts weiteres als 1 Spalte enthält mit @Text(@DocumentUniqueID).

In Deinem Button machst Du dann sowas in der Art:

_ViewUNID := "(Link_unid)";
_ViewAnzeige := "(Link_picklist)";
_unid := @PickList([Custom]:[Single];"":"";_ViewAnzeige; "irgend ein titel";"noch ein bisschen text";XXXX);
_Server := @Subset (@DbName; 1);
_Datenbank := @Subset (@DbName; -1);
@Command([FileOpenDatabase];_Server : _Datenbank ;_ViewUNID;_unid;"1";"1");
@Command([EditMakeDocLink]);
@Command([FileCloseWindow]);
@PostedCommand([EditPaste])

Wobei XXXX eine Zahl ist - nämlich die Spaltennummer in der die Formel @Text(@DocumentUniqueID) steht.

Bruce Willis:
Danke!
Kriege leider die Meldung "Eintrag nicht in Gestaltungsliste"...  :(
Was ist denn falsch?

1. Eine separate Standard-View "ViewRelations" erstellt, eine Spalte ganz vorne hinzugefügt. Die Formel ist @Text(@DocumentUniqueID) .

2. Eine leere View "ViewRelationsOne" erstellt, eine Spalte ganz vorne hinzugefügt. Die Formel ist gleich: @Text(@DocumentUniqueID)

3. In der Maske "Aufgabe" ist ein Feld "Relations" (RichText, Bearbeitbar) vorhanden.

4. In der Maske "Aufgabe" eine neue Aktion mit dem u.g. Code erstellt:

_ViewUNID := "(Link_unid)";
_ViewAnzeige := "(Link_picklist)";
_unid := @PickList([Custom]:[Single];"":"";_ViewAnzeige; "ViewRelations";"noch ein bisschen text";1);
_Server := @Subset (@DbName; 1);
_Datenbank := @Subset (@DbName; -1);
@Command([FileOpenDatabase];_Server : _Datenbank ;_ViewUNID;_unid;"1";"1");
@Command([EditMakeDocLink]);
@Command([FileCloseWindow]);
@PostedCommand([EditPaste])

TMC:
Dann solltest Du auch die Namen entsprechend anpassen.

Ich gehe mal davon aus, dass die View "ViewRelations" mehrere Spalten enthält (z.B. Empfänger und Subject etc.). Also die View ist, aus der Du die Dokumente auswählen willst.
Also:
_ViewAnzeige := "ViewRelations";

die andere View hat wie gesagt nur 1 Spalte:
_ViewUNID := "ViewRelationsOne";

Die View ViewRelationsOne muss dabei unbedingt aufsteigend sortiert sein, sonst klappt es nicht.

TMC:
Eine Abfrage in der Formel, ob was gewählt wurde, schadet evtl. auch nicht:

_Server := @Subset (@DbName; 1);
_Datenbank := @Subset (@DbName; -1);
_ViewUNID := "ViewRelationsOne";
_ViewAnzeige := "ViewRelations";
_PicklistTitel := "irgend ein titel";
_PicklistText := "irgend ein text";

_unid := @PickList([Custom]:[Single];"":"";_ViewAnzeige; _PicklistTitel;_PicklistText;1);

@If(_unid != "";
   @Do(
      @Command([FileOpenDatabase];_Server :_Datenbank ;_ViewUNID;_unid;"1";"1");
      @Command([EditMakeDocLink]);
      @Command([FileCloseWindow]);
      @PostedCommand([EditPaste])
      );
   @Prompt([OK]; "Error"; "Es wurde kein Dok ausgewählt")
   )

Navigation

[0] Themen-Index

[#] Nächste Seite