Makro - Finde best. Wert in Subformular und kopiere in Feld

[gogo]

Werte "suchen und finden" ist vielleicht nicht der richtige Weg. Versuch mal das:

Button im Formular anlegen und mit folgendem Makro verknüpfen:

Code: Alles auswählen

Sub RatenStatus_Updaten()

oDoc = StarDesktop.CurrentComponent
oForm = oDoc.DrawPage.Forms.GetByIndex(0)

'Ermittelt die aktuelle KundenID
oFeld = oForm.getByName("fmtIDKunde")
sIDKunde = oFeld.text

' SQL-Statements
oStatement = ThisDatabaseDocument.CurrentController.ActiveConnection.createStatement

oResultSet = oStatement.executeQuery( "Update ""Kunden"" set ""bisherbezahlt"" = (SELECT SUM( ""bezahlterBetrag"" ) FROM ""Raten"" WHERE ""IDKunde"" = " + sIDKunde + ") where ""IDKunde"" =  " + sIDKunde)

oResultSet = oStatement.executeQuery( "Update ""Kunden"" set ""zuletztbezahlt"" = (SELECT ""bezahlterBetrag"" FROM ""Raten"" WHERE ""bezahltam"" in (SELECT MAX( ""bezahltam"" ) FROM ""Raten"" WHERE ""IDKunde"" = " + sIDKunde + ") AND ""IDKunde"" = " + sIDKunde + ") where ""IDKunde"" = " + sIDKunde )

oResultSet = oStatement.executeQuery( "Update ""Kunden"" set ""naechstefaelligam"" = (SELECT MIN( ""Faelligam"" ) FROM ""Raten"" WHERE ""bezahlt"" = False AND ""IDKunde"" = " + sIDKunde + ") where ""IDKunde"" = " + sIDKunde )

'legt einen Filter an und laed das Formular mit den aktualisierten Daten neu
oForm.filter = "IDKunde = " + sIDKunde
oForm.ApplyFilter=true
oForm.reload

end Sub

Wenn Du das Zeug mit "sIDKunde" in eine Beziehung auf Kunden-ID-Basis umformst, dann kann Deine Datenbank komplett aktualisiert werden (alle Kunden mit einem Klick)

g

[DPunch]

Aloha

Darf man nachhaken, warum das unbedingt per Makro umgesetzt werden soll?
Meinem Verständnis nach sollte das komplett ohne Makros per Views und Subformularen ebenso möglich sein, dazu müsstest Du allerdings möglicherweise Deine Datenbank vorher normalisieren.

[DPunch]

Aloha

Ja und mein Problem ist, dass ich z. B. die verschiedenen Ergebnisse aus den Unterformularen (Summe ... ) nicht zusammen in eine Abfrage mit den Standarddaten aus der Haupttabelle kriege.

Warum kriegst Du die Daten nicht in eine Abfrage, wenn Du sie doch auch per Abfrage auslesen kannst, um sie in die Haupttabelle zu schreiben? Das kann ich nicht nachvollziehen.
Nimms mir nicht übel, ich will Dir nicht zu nahe treten oder hier Klugscheissen, aber die momentane Struktur Deiner Datenbank ist redundant und fehleranfällig (z.B. wenn jemand eine Rate als bezahlt einträgt, aber, aus welchem Grund auch immer, vergisst, Deine Haupttabelle zu aktualisieren... dann geht ein netter Brief an einen Kunden raus, der eigentlich schon längst gezahlt hat. Kommt selten gut an.) - da Du hier gefragt hast, nehme ich einfach mal an, dass Du auch an Hilfe oder eher Ratschlägen in diesem Fall interessiert bist

(...)Dort wird anstatt 30,00 der Wert 50,00 eingetragen(...)

Wenn ich mir Dein Schaubild anschaue, macht das doch auch Sinn, die 30 sind ja auch nicht als bezahlt markiert.
Ein weiterer Stolperstein, nur einen Haken vergessen und es entstehen Fehler in Deiner Haupttabelle

Es gibt noch einen kleinen Haken(...)

Wenn Du schon auf Formularebene arbeitest, musst Du keine direkten Updates an die Datenbank absetzen - Du kannst die Werte auch in die entsprechenden Textfelder des Formulars schreiben und von dort aus in die Tabelle. Dann erübrigen sich Filter etc.

Code: Alles auswählen

	oDoc = thisComponent
	oDrawpage = oDoc.Drawpage
	oForm = oDrawpage.Forms(0)
	
	txtIDKunde = oForm.getByName("fmtIDKunde")
	txtBisher = oForm.getByName("fmtbisherbezahlt")

	sIDKunde = txtIDKunde.Text

	oConnection = oForm.ActiveConnection
	oStatement = oConnection.createStatement
	sSQL = "SELECT SUM(""bezahlterBetrag"") FROM ""Raten"" WHERE ""IDKunde"" = " & sIDKunde
	
	oResult = oStatement.executeQuery(sSQL)
	If oResult.Next Then
		txtBisher.BoundField.updateInt(oResult.getInt(1))
	End If

[gogo]

(...)Dort wird anstatt 30,00 der Wert 50,00 eingetragen(...)

Wenn ich mir Dein Schaubild anschaue, macht das doch auch Sinn, die 30 sind ja auch nicht als bezahlt markiert.
Ein weiterer Stolperstein, nur einen Haken vergessen und es entstehen Fehler in Deiner Haupttabelle

nein, das hat schon seine Richtigkeit - der 'Fehler' dürfte in einem falschen Buchungsdatum liegen. Wenn Du genau hinsiehst, dann wirst Du feststellen, dass der zuletzt bezahlte Betrag am 29.10.2010 50 Euronen sind, die 30€ wurden schon am 27.9.2010 bezahlt


g

[gogo]

Gibt es vielleicht auch die Möglichkeit irgendwie zu coden - "nehme den letzten Eintrag der Spalte "bezahlterBetrag" Dann wäre nämlich auch noch eine Fehlerquelle mehr ausgeschlossen ??

gibt es, es muss sowieso eine SUM Funktion werden, denn was ist, wenn der Kunde an diesem Tag mehrere Raten bezahlt hat, dann hast Du garantiert eine falsche Zahl drin stehen...

g

[DPunch]

Ich glaub das liegt daran - das der MAX Wert nur aus den ersten 2 Stellen des Buchungsdatums erzeugt wird

Das liegt ganz einfach daran, dass ein bei Strings ein lexikographischer Vergleich gemacht wird. Und da wird von vorne nach hinten durchgegangen.
Vorschlag: definiere das Feld "bezahltam" als Datum.
(Ausserdem die Felder "bezahlterBetrag" und "FaelligerBetrag" noch mit Nachkommastellen versehen)

Gibt es vielleicht auch die Möglichkeit irgendwie zu coden - "nehme den letzten Eintrag der Spalte "bezahlterBetrag"

Nicht direkt - was für Dich der "letzte Eintrag" ist, ergibt sich nur aus der momentanen Sortierung.

(siehe Bilder unten: Abfrage die Summe anzeigt funktioniert - Abfrage um dann Name und Summe für Serienbrief zu erstellen erzeugt Syntax Fehler)

Vermutlich, weil Du das Feld "IDKunde" nicht in einer GROUP BY-Klausel verwendest, was aber aufgrund der Verwendung vom SUM (Aggregatfunktion) zwingend notwendig ist.

Als SQL würde Deine Abfrage in etwa so aussehen (Abfragen -> Abfrage in SQL-Ansicht erstellen -> Code copy-pasten):

Code: Alles auswählen

SELECT 
	"K"."IDKunde", 
	"K"."Name",
	(SELECT SUM("bezahlterBetrag") FROM "Raten" WHERE "IDKunde" = "K"."IDKunde") AS "bisherbezahlt",
	(SELECT "bezahlterBetrag" FROM "Raten" "R" WHERE "IDKunde" = "K"."IDKunde" AND "bezahltam" = 
		(SELECT MAX("bezahltam") FROM "Raten" WHERE "IDKunde" = "R"."IDKunde" AND "bezahlterBetrag" > 0)) AS "zuletztbezahlt"
FROM "Kunden" "K"

Als View oder Abfrage angelegt kannst Du daraus dann Serienbriefe erstellen... und brauchst die Daten nicht redundant und potenziell fehlerbehaftet in der Datenbank zu speichern

Wenn SQL Abfragen einmal richtig geproggt sind, dann sind sie immer richtig - sagt die Logik

Und der Changelog sagt, dass Du Dein Posting nach meinem nochmal geändert hast

[gogo]

Primär ging ich davon aus, dass die auszufüllenden Felder statische Daten darstellen, die buchhalterisch notwendig sind, oder die die Kontrolle der Eingaben möglich machen. Ein aktueller Datenstatus wie z.B. für einen Mahnbrief oä soll natürlich immer per aktueller Abfrage wiedergegeben werden.

... nachdem da ein Teilbetrag angegeben war nahm ich an, dass Teilzahlungen von Raten auch in der Ratentabelle gebucht werden. (Und nicht in einer untergeordneten "Teilzahlungstabelle"). Wenn das der Fall ist, kannst Du das 2. Update-Statement einfach auf

"Update ""Kunden"" set ""zuletztbezahlt"" = (SELECT SUM(""bezahlterBetrag"") FROM ...

ändern, dann wird auch bei gleichem Buchungsdatum die volle Summe des gesamten Buchungstages ermittelt.



Den Filter kannst Du in der Entwurfsansicht des Formulars löschen: Formular-Eigenschaften / Daten /Filter .... und da dann den String "IDKunde =2" oder was auch immer drinsteht rauslöschen. Formular speichern - fertig

Zum reinen Update der Textfelder nach den SQL-Statements ersetzt Du einfach den Filterteil des Makros durch:

Code: Alles auswählen

dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Refresh", "", 0, Array())

@DPunch:
meine letzte Änderung war:

Zuletzt geändert von gogo am Di, 14.12.2010 15:07, insgesamt 2-mal geändert.

und Dein Post um 15:26... *confused*

... und rausgenommen hab ich den schlauen Satz der mich schon so oft überrascht hat weil ich auf die Schnelle keine Zeit hatte clipnotics Post vom merkwürdigen Sortierverhalten beim Datum nachzugehen. Selbstverständlich hätte ich den Originalzustand wiederhergestellt, aber leider leider leider geht das aus beweistechnischen Gründen jetzt nicht mehr

g

[gogo]

So da hab ich ja Blödsinn getextet...

...
Zum reinen Update der Textfelder nach den SQL-Statements ersetzt Du einfach den Filterteil des Makros durch:

Code: Alles auswählen

dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Refresh", "", 0, Array())

...

Die Anzeige zu aktualisieren ohne Reload und ohne zu einem anderen Datensatz zu springen geht so:

Code: Alles auswählen

oForm.isModified = TRUE
oForm.refreshRow

(sieht auch eleganter aus )

g