OpenOffice.info

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

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

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

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)

Habe es übernommen und angepasst - funktioniert wunschgemäß! :D 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]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[/code]
Als Kopf der Routine.
[code]adrForm = oEvent.Source.Model.Parent
adrID = adrForm.getInt(1)[/code]
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]newForms = thisDatabaseDocument.FormDocuments.getByName("fibu.Orders_Objects").open[/code]
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]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)[/code]
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

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

Hi,
[quote="juetho"]Verstehe ich das richtig, dass ich nach dem open-Befehl noch mehr...[/quote]
Ja, wenn Du die Formularkomponente selber in eine Object-Variable, z.B. so: (aus dem Kopf, mit Xray kannst Du selber schauen):
[code]oformcomponent2 = ThisDatabaseDocument.FormDocuments.getByName( "Formular2" ).open
oForm2 = oformcomponent2.drawpage.forms.MainForm
... [/code] schreibst.
Edit: Habe es probiert, der Code geht.
Gruß R

[quote="F3K Total"]Angenommen in Formular 1 steht in Spalte 1 deine ID, dann holst du die ID des aktuellen Datensatzes ...[/quote]
Dieser Teil ist klar.
[quote]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 [color=#0040FF][b]SQL-Kommado[/b][/color] steuern....[/quote]
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

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

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]oForm = ThisComponent.Drawpage.Forms.MainForm 'Wenn das Formular im Formularnavigator MainForm heißt
nID = oForm.getint(1)[/code]
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 [color=#0040FF][b]SQL-Kommado[/b][/color] steuern.
Schau zur 2.Variante, die ich eleganter finde, mal [url=http://de.openoffice.info/viewtopic.php?f=8&t=47265&start=15#p172750]hier[/url] 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

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

Aus Formular1 soll per Makro Formular2 geladen werden. Das geht grundsätzlich so (siehe Base-Handbuch S. 249):
[code]ThisDatabaseDocument.FormDocuments.getByName( "Formular2" ).open[/code]
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:
[list][*][url=http://de.openoffice.info/viewtopic.php?f=18&t=27005#p113527]Filtersetzung über eine globale Variable[/url] -- globale Variable passen nicht zur OOP (nun ja, StarBasic passt auch nur bedingt zur OOP)
[*][url=http://de.openoffice.info/viewtopic.php?f=18&t=50472#p187017]Filter per Model verändern[/url] (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.[/list]
Gibt es vielleicht einen besseren Weg? Jürgen