Sitze jetzt vor der Datenbank.
Der Aufruf des Profildokumentes ist nicht, wie oben beschrieben in der Formelsprache, sondern in Lotus Script, jedoch wie beschrieben über eine Aktion in einer Ansicht:
Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Call workspace.EditProfile("(color)")End Sub
Es existieren derzeit 5 Farbfelder, 4 für die Schriftfarbe und eines für die Hintergrundfarbe + einem berechnetem Textfeld namens $c1. Bei der Maske sind wie in der Hilfe beschrieben alle 3 Optionen bei Anzeige deaktiviert und es wird auch in keiner Ansicht angezeigt.
Standard Lese-Zugriff wurden nicht geändert, d.h. Alle Leser und höhere bzw. Alle Autoren und höhere sind markiert
Das Feld $c1 gibt folgenden Wert zurück:
_diff := (@Now - @TextToTime(LFENDT)) / (3600*24);
@If( (_diff>=5 & _diff<10) ; _stat:="s01" ;
(_diff>=10 & _diff<15); _stat:="s02";
(_diff>=15); _stat:="s03"; _stat:="s04");
S_1B := "00FFFFFF";
S_1F := "00FFE118";
S_2B := "00FFFFFF";
S_2F := "00E26200";
S_3B := "00FFFFFF";
S_3F := "00C21212";
S_4B := "00FFFFFF";
S_4F := "00000000";
co01 := S_1B : S_1F;
co02 := S_2B : S_2F;
co03 := S_3B : S_3F;
co04 := S_4B : S_4F;
@If( _stat = "s01" ; co01; co02)
Alles anzeigen
Das ist nicht der Code, mit dem das Feld berechnet wird, sondern das bereits berechnete Ergebnis. Bisher in der letzten Abfrage nur co01 und co02 zu Testzwecken.
Die erste Spalte in der Ansicht hat den Titel "ColorColumn(Hidden)" und den programmseitigen Namen $c1. Folgende Einstellungen sind dort aktiviert:
- Wert als Farbe darstellen
- Benutzerdefinierbar
- Profildokument: (color)
- Spalte verbergen
Der Inhalt der Spalte ist wie in der Hilfe angegeben @UserName.
=> Ist also fast identisch mit der Hilfe bzw. der Mail-Datenbank. Es funktioniert leider nicht.