[gelöst] Parameter von Formular an Formular übergeben

[juetho]

Aus Formular1 soll per Makro Formular2 geladen werden. Das geht grundsätzlich so (siehe Base-Handbuch S. 249):

Code: Alles auswählen

ThisDatabaseDocument.FormDocuments.getByName( "Formular2" ).open

Formular2 soll aber nur bestimmte Daten bearbeiten; am einfachsten dürfte es sein, in seiner (Haupt-) Tabelle einen Filter vorzusehen.

Wie kann ich den betreffenden Wert (ID einer Adressen-Datei) am sinnvollsten übergeben? Ich habe dazu zwei Wege gefunden, die mir beide nicht gefallen:

• Filtersetzung über eine globale Variable -- globale Variable passen nicht zur OOP (nun ja, StarBasic passt auch nur bedingt zur OOP)
• Filter per Model verändern (dort für einen Report angegeben, vielleicht funktioniert es auch für ein Formular) -- aber da wird das Objekt erstmal im Designer-Modus geöffnet.

Gibt es vielleicht einen besseren Weg? Jürgen

[F3K Total]

Hi,
du kannst in einem Makro sowohl das Formular 2 öffnen als ihm auch eine ID übergeben.
Angenommen in Formular 1 steht in Spalte 1 deine ID, dann holst du die ID des aktuellen Datensatzes mit

Code: Alles auswählen

oForm = ThisComponent.Drawpage.Forms.MainForm 'Wenn das Formular im Formularnavigator MainForm heißt
nID = oForm.getint(1)

Dann öffnest Du, z.B. wie o.a. dein 2. Formular.
Den Dateninhalt dieses Formulares kannst Du jetzt über die Setzung des Filters oder z.B. auch über ein SQL-Kommado steuern.
Schau zur 2.Variante, die ich eleganter finde, mal hier ziemlich weit unten nach. Statt des ? kannst Du hier auch deine nID einsetzen.
Für die dortigen Erklärungen kann ich mich nur nochmals bei DPunch bedanken.

Viel Erfolg, Gruß R

[juetho]

Angenommen in Formular 1 steht in Spalte 1 deine ID, dann holst du die ID des aktuellen Datensatzes ...

Dieser Teil ist klar.

Dann öffnest Du, z.B. wie o.a. dein 2. Formular.
Den Dateninhalt dieses Formulares kannst Du jetzt über die Setzung des Filters oder z.B. auch über ein SQL-Kommado steuern....

Verstehe ich das richtig, dass ich nach dem open-Befehl noch mehr Aufgaben vom Formular1 aus erledigen kann (z.B. den Filter in Formular2 setzen)? Ich bin bisher davon ausgegangen, dass durch open "sofort" das Formular2 geladen und der Fokus übergeben wird. Der geänderte Filter könnte also ggf. erst später wirksam werden.

Die Hinweise von DPunch in deinem Link werde ich mir morgen vornehmen. Danke erstmal! Jürgen

[F3K Total]

Hi,

Verstehe ich das richtig, dass ich nach dem open-Befehl noch mehr...

Ja, wenn Du die Formularkomponente selber in eine Object-Variable, z.B. so: (aus dem Kopf, mit Xray kannst Du selber schauen):

Code: Alles auswählen

oformcomponent2 = ThisDatabaseDocument.FormDocuments.getByName( "Formular2" ).open
oForm2 = oformcomponent2.drawpage.forms.MainForm
... 

schreibst.
Edit: Habe es probiert, der Code geht.
Gruß R

[juetho]

Habe es übernommen und angepasst - funktioniert wunschgemäß! Danke vielmals für die Hilfe (und indirekt auch DPunch)! Damit spätere Leser nicht so viel blättern müssen, fasse ich hier nochmals zusammen (mit einigen Erläuterungen):

Code: Alles auswählen

Sub CallOrderForm( oEvent as Object )
rem **************************************
rem Formular:      fibu.MainForm
rem Kontrollfeld:  btnOrder
rem Aufruf durch:  Ereignis "Aktion ausführen"
rem --------------------------------------
rem Das Formular Order/Objects wird gestartet.
rem Dabei wird die aktuelle Adr-Nr. übergeben und angezeigt.
rem *****************************************

Dim adrForm as Object
Dim newForm as Object
Dim adrID as Integer

Als Kopf der Routine.

Code: Alles auswählen

adrForm = oEvent.Source.Model.Parent
adrID = adrForm.getInt(1)

Zugriff auf das ursprüngliche Formular: Auslöser (Source) des Ereignisses ist der Button; der liegt (Model) innerhalb (Parent) eines bestimmten Formulars. Hole die ID aus der ersten Spalte (grrrh, Nummerierung ab 1 und nicht ab 0 beachten).

Code: Alles auswählen

newForms = thisDatabaseDocument.FormDocuments.getByName("fibu.Orders_Objects").open

Erzeuge das neue Formular. Rückgabewert der Funktion open() ist das gesamte Writer-Dokument, dessen Elemente im folgenden Code angesprochen werden können (vorher existieren drawpage und alle eingebetteten Objekte noch nicht).

Code: Alles auswählen

newForm = newForms.drawpage.forms.MainForm
newForm.Filter = "fibu.bk_order.kd_id = " + adrID
newForm.reload()
newForm.txtKunde.Label = "Kd.-Nr. " + CStr(adrForm.getInt(2)) + " " + adrForm.getString(4)

Setze im neuen Formular den Filter, lade die Daten dazu und zeige zusätzlich Informationen zum Kunden an (Nummer, Name u.a.)

Und wieder ist ein Schritt erledigt. Jürgen