Erstellte Dokumente anzeigen

[eknori]

Da das fragliche Document ja mehr oder minder ein Profil ist, würde ich mit Profildokumenten arbeiten ... Lese mal das entsprechende Kapitel in deinen Büchern ...

[Michael84]

Hallo Andreas

Ich kann dir auch nur Empfehlen dir Fachliteratur zubesorgen.
Das Buch "Anwedungsentwicklung unter Lotus Notes und Domini" ist wie ich finde nicht so außergewöhnlich toll.
Die Lernscripte des Herdt Verlages kann ich dir da nur wärmstens weiter empfehlen. Bin selber erst seit ein paar Tagen dran Domino zulernen.
Masken und Ansichten sind gar nicht mal so schwer wie es auf den ersten Blick aussieht

[Andreas Huhn]

Hallo,

danke erstmal für eure Antworten!

Ich werde mir auch die Lernscripte noch besorgen.

Prinzipiell kannst du einem Agenten keinen Parameter übergeben (von einer Ausnahme abgesehen). Du musst in deinem Fall innerhalb des Agenten auf das Dokument mit dem Feld zugreifen. Schau dir dazu mal die Methode GetDocumentByKey aus der Klasse NotesView in der Designer-Hilfe an. Dort sind auch genügend Beispiele vorhanden.

Also.. ich habe für das Dokument eine Maske mskKonfiguration erstellt. Es existiert ein Dokument das mit dieser Maske erstellt wurde. Wenn ich eine Ansicht AnsKonfiguration erstelle und als Bedingung die Dokumente angebe die damit erstellt wurden kann bekomm ich eine Liste mit einem Eintrag,

[1] aber wie kann ich gleich dieses eine zurückgegebene Dokument anzeigen lassen und nicht die Liste?


Wegen der Wertübergabe an den Agenten...

Habe in der Hilfe folgenden Code gefunden:

Code

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim doc As NotesDocument
	
	key =  "Leather"
	
	Set db = session.CurrentDatabase
	Set view = db.GetView ("By Category" )
	Set doc = view.GetDocumentByKey (key )
	
	If Not (doc Is Nothing) Then
		Messagebox "$" & doc.GetItemValue ("Price")(0),, _
		"Price"
	Else
		Messagebox "By Category " + key,, "Not found"
	End If
End Sub

In meiner Ansicht gibt es nur eine Spalte, Spalte1 und die zeigt als Spaltenwert die einfache Funktion "Nummer in Ansicht" an, so daß der tatsächlich angezeigte Wert "1" ist.

Müsste dann der benötigte Code bei mir ungefähr so aussehen, oder?

Code

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim doc As NotesDocument
	
	key =  "1"
	
	Set db = session.CurrentDatabase
	Set view = db.GetView ("AnsKonfiguration" )
	Set doc = view.GetDocumentByKey (key )
	
	If Not (doc Is Nothing) Then
		Messagebox "$" & doc.GetItemValue ("txtCoordinatorErinnerung")(0),, _
		"Titel der Messagebox"
	Else
		Messagebox "By Category " + key,, "Not found"
	End If
End Sub

Wenn ich auf meiner Maske mskKonfiguration einfach testweise mal einen Hotspot-button einfüge und ihm den Code auf das Clickereignis lege dann kommt die Fehlermeldung:


Object variable not set


(Ab dem zweiten Click auf den Button passiert einfach gar nichts mehr !?  )

Vielen Dank für eure Hilfe!

Andreas

[klaussal]

Wie heisst die View denn jetzt tatsächlich ? "AnsKategorie" oder "AnsKategorie" ?
Ansonsten Debugger einschalten und nachsehen, wo der Fehler kommt !

[Axel]

Hi,

ich habe vor einiger Zeit mal eine Demo zusammengestellt, wie man Konfigurationsdokumente nutzen kann. Schau sie dir mal an, dann sollte einiges klarer werden.

Der Zugriff auf das Konfig.-Dokument erfolgt über eine versteckte Ansicht. So kann man das Design der Ansicht mit dem/den Konfigurationsdokument(en), welche(s) im Client angezeigt wird, beliebig ändern, ohne dass man durch die gesamte Gestaltung toben und seine Lookups anpassen muss.


Axel

[Andreas Huhn]

Du meinst AnsKonfiguration und AnsKategorie. War ein Fehler. Nun funktioniert das Script zumindest syntaktisch. Semantisch scheints jedoch noch fehlerhaft zu sein, da ich jetzt ein "$" also den If-Zweig zurückbekomme aber noch nicht den Inhalt meines Text-Feldes "txtCoordinator".

hier nochmal der Code:

Code

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim doc As NotesDocument
	
	key =  "1"
	
	Set db = session.CurrentDatabase
	Set view = db.GetView ("AnsKonfiguration" )
	Set doc = view.GetDocumentByKey (key )
	
	If Not (doc Is Nothing) Then
		Messagebox "$" & doc.GetItemValue ("txtCoordinatorErinnerung")(0),, _
		"Titel der Messagebox"
	Else
		Messagebox "By Category " + key,, "Not found"
	End If
	
End Sub

[Axel]

Ist dein Feld gefüllt? Ist der Feldname richtig geschrieben?


Axel
 

[Andreas Huhn]

Okay, nun klappt es. Aber jetzt mal ne sehr wichtige Frage:

Manche der Änderungen werden nach speichern sofort an die in Notes geöffnete DB weitergegeben und können gleich begutachtet / getestet werden. Manche Änderungen wiederum zum Beispiel wenn man etwas im Script ändert werden anscheinend erst übernommen wenn man die DB schließt und wieder öffnet.

Genau darüber bin ich hier auch gestolpert. Der Code war schon lange richtig und ich hab noch daran geschraubt.

Gibt es dafür irgendeine Regel? Oder sollte ich nachdem ich etwas verändert habe sicherheitshalber immer die DB neu öffnen?

Die Konfigurations-DB werde ich mir gleich ansehen, vielen Dank dafür!

und danke auch für die Unterstützung. Jetzt klappts zumindest mal, werds wahrscheinlich noch auf Konfig-Dokument umstellen.

Viele Grüße,

Andreas

[Axel]

Hi,

sicherheitshalber solltest du nach Gestaltungsänderungen immer die DB schließen und wieder öffnen. Dann bist du einigermaßen auf der sicheren Seite. Ich habe mir angewöhnt, bei Gestaltungsänderungen, die DB immer vorher zu schließen.

Im schlimmsten Fall kann es sogar vorkommen, dass du den Client neu starten musst. Manchmal musst du auch die cache.ndk löschen.


Axel

[Andreas Huhn]

  

So langsam verstehe ich den Spruch unter deinem Avatar...