Ausgabe sämtlicher angelegter Kunden aus Ansicht per LotusScript

[basswurm]

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

[koehlerbv]

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  )?

Mehr Input, mehr Output.

Bernhard

[DAU-in]

DialogBox method 
PickListStrings method 

usw.....

[Axel]

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

[basswurm]

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

[DAU-in]

pickliststrings method

du musst ja nichts weiterverarbeiten

[basswurm]

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!!

[koehlerbv]

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

[basswurm]

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