Das Notes Forum
Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: basswurm am 05.11.08 - 15:01:41
-
Hallo zusammen!
Die Möglichkeiten rund um LotusScript sind mir noch sehr verborgen. Allerdings zweifel ich nicht an seinem Potential, mein folgendes Problem zu lösen: ;)
Folgende Ausgangssituation:
Ich habe eine Datenbank kreiert mit einem Frameset, bestehend aus den entsprechenden Seiten, Masken und Ansichten. In der Summe soll das ganze ein Versuch werden, eine Art "Kunden- und Bestelldatenbank" darzustellen.
Insgesamt wurden vier Ansichten erstellt:
a) Ansicht der Kunden nach Nachname,
b) Ansicht der Kunden nach Wohnort,
c) Ansicht der Bestellungen nach Nachname und
d) Ansicht der Bestellungen nach Artikel
Ich würde mir nun gern die bereits gespeicherten Kunden (nur Vor- und Nachname) in einem Pop-up - Fenster anzeigen lassen. Eine weitere Verwendung ist dann nicht nötig...es sollen wirklich nur untereinander die existierenden Kunden in einer Outputbox angezeigt werden...
Ist das mit LotusScript machbar? Hat wer einen Vorschlag, wie ich genau auf den Datensatz des Kunden per LotusScript zugreifen kann und eine Outputbox generieren kann?
Vielen Dank vorab!!
Grüße, Steven
-
Wann soll das passieren? Sollen Angaben des momentan selektierten Kunden in einer Messagebox angezeigt werden? Oder gar alle (was ja Blödsinn wäre - auch mit einem 236-Zoll-Monitor ;D)?
Mehr Input, mehr Output.
Bernhard
-
DialogBox method
PickListStrings method
usw.....
-
Ich würde mir nun gern die bereits gespeicherten Kunden (nur Vor- und Nachname) in einem Pop-up - Fenster anzeigen lassen. Eine weitere Verwendung ist dann nicht nötig...es sollen wirklich nur untereinander die existierenden Kunden in einer Outputbox angezeigt werden...
Wozu das Ganze? ???
Dafür hast du doch die Ansicht(en).
Axel
-
Sorry, habe die Rahmenbedingungen und den Zweck des ganzen außenvorgelassen...
Das Projekt bewegt sich im Rahmen meines Studiums. Ziel ist eine Mini-DB mit einigen wenigen LotusScript-Anwendungen.
Der Anhang erleichtert evtl. es verständlicher rüberzubringen...
Direkt auf der Willkommens-Seite (oder wo auch immer) möchte ich einen Button einfügen und per LotusScript die Namen der Kunden anzeigen lassen. Es handelt sich hier natürlich nur um einige wenige Datensätze (max. 10) - die DB erfüllt lediglich demonstrative Zwecke, daher reicht auch schon ein 12" ;)!
Klar, natürlich kann ich sämtliche Kunden auch in den Ansichten erkennen - wie gesagt, ein Beispielbutton mit LS-Sprache und Outputbox, mehr nicht...
Danke schonmal für euer feedback!!
Steven
-
pickliststrings method
du musst ja nichts weiterverarbeiten
-
Also...habe folgenden Code (PickListStrings method) mal dem Button hinterlegt:
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim picklist As Variant
Dim messagelist As String
picklist = workspace.PickListStrings( PICKLIST_RESOURCES )
If ( Isempty( picklist ) ) Then
Messagebox "Canceled" , , "Resource selected"
Else
Forall plist In picklist
messagelist = messagelist & plist & Chr(10)
End Forall
Messagebox messagelist , , "Resource selected"
End If
End Sub
Wie kann ich hier bestimmen, dass als Ressource meine Ansicht (= "Kunden_Nachname") gegriffen wird? Durch obigen Code öffnet sich momentan das Adressbuch meiner FH :-:
Grüße!!
-
Benutze bitte die sehr gute Designer-Hilfe - da steht die erforderliche Syntax genau beschrieben.
Ob PicklistStrings für Dein Problem die allerbeste Lösung ist, wage ich zu bezweifeln, aber irgendwo musst Du ja erstmal anfangen.
Bernhard
-
Hallo an alle Helfer!!!
Habe mein Problem gelöst...habe mir nochmal Gedanken gemacht und nicht die Outputbox sondern ein mitwachsendes Feld bevorzugt...
Wahrscheinlich stellt das hier ein Klacks für Routiniers dar...ich, allerdings, klopf mir auf die Schulter ;)!
folgender Code, falls es in irgendeiner Art interessiert:
Sub Click(Source As Button)
Dim db As NotesDatabase
Set DB = New NotesDatabase("","LotusScript_DB.nsf")
Dim view As NotesView
Set view = db.getView("Kunden_Nachname")
Dim doc As NotesDocument
Set doc = view.GetFirstDocument
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Dim lastNameField As Variant
Dim firstNameField As Variant
Dim FullName As String
uidoc.FieldSetText"allekunden",""
While Not (doc Is Nothing)
LastNameField = doc.GetItemValue("Nachname")
FirstNameField = doc.GetItemValue("Vorname")
FullName = (FirstNameField(0) & " " & LastNameField(0))
UIdoc.FieldAppendText"allekunden",FullName + Chr (10)
Set doc = view.GetNextDocument(doc)
Wend
End Sub
Danke nochmal für eure Hilfe und ciao................
Steven