Seite 1 von 1
Werte der Liste eines Kombinationsfeldes [gelöst]
Verfasst: Di 20. Jan 2015, 10:20
von Dami
Tabelle Produkt:
In einer Produkttabelle sind zu den übrigen Daten mehrere Preise des Produkts abgespeichert
(EK-Preis, UVP, Rabattpreis 1, Rabatpreis2, …)
Tabelle Abrechnung:
In dieser Tabelle soll der tatsächlicher Preis (z.B. Rabattpreis1) mittels Kombinationsfeldes eingetragen werden. Dieser soll auch nicht „verlinkt“ werden, um eventuelle spätere Preisanpassungen in der abgeschlossener Abrechnung nicht zu verändern.
Problem:
Wie bekomme ich diese „horizontale“ Werte in die Auswahlliste des Kombinationsfeldes ?
Weiß jemand eine Lösung ?
Danke
Re: Werte der Liste eines Kombinationsfeldes
Verfasst: Di 20. Jan 2015, 16:15
von RobertG
Hallo Dami,
das gesuchte Feld dürfte kein Kombinationsfeld sein. Kombinationsfelder dienen dazu, Vorschläge anzuzeigen, gleichzeitig aber auch freie Eingaben zuzulassen. Du hingegen hast Priesvorgaben, die eben nicht beliebig sind, brauchst also ein Listenfeld, das diese Vorgaben zumindest zum Zeitpunkt der Eingabe ausliest.
Das Listenfelöd beruht z.B. auf einer Abfrage wie
Damit wird das Produkt angezeigt und der Rabattpreis 1 zum Zeitpunkt der Eingabe geschrieben. Funktioniert aber nur korrekt bei der Eingabe, nicht bei einer späteren Anzeige, wenn sich der Rabattpreis geändert haben sollte, aber ein völlig anderes Produkt z.B. den bisherigen Rabattpreis haben sollte. deswegen nur in einem Formular nutzen, das eben nur zur Eingabe von Daten genutzt werden soll, nicht gleichzeitig auch zur Bearbeitung.
Gruß
Robert
Re: Werte der Liste eines Kombinationsfeldes
Verfasst: Do 22. Jan 2015, 13:20
von Dami
Hallo RobertG,
danke für deine Antwort. Leider kann ich es so nicht umsetzen bzw. ist nicht so gedacht.
Die Preise in der Produkttabelle liegen in Form von einzelnen Zahlenwerten.
Konkret: EK_Preis, UVP_Preis, Rabattpreis1, Rabattpreis2, Rabatttpreis3 und Rabatpreis4 (6 Preise).
Beim Verkauf des Produkts soll/kann der Anwender eines dieser Preise in die
Abrechnung des Kunden übertragen. Welcher Betrag… obliegt ihm
(Niedrigster ist ja EK, höchster ist UVP)
D.h. aus der Liste ein Preis auswählen und den Zahlenwert direkt in die Abrechnungstabelle übertragen.
Funktioniert mit einem Kombinationsfeld wunderbar.
Hat sogar die Möglichkeit ein Preis z.B.: zw. Rabattpreis1 und Rabattpreis2 zu generieren.
Vorteil:
Bei einer Preisänderung passe ich nur die Preise des Produkts an, da das Produkt selbst sich ja nicht ändert.
Gelaufene Verkäufe (Abrechnungen) bleiben davon unangetastet (wichtig für später).
Das würde mit einem Listenfeld so nicht funktionieren, da hier ein Verweis auf die ID.
Eine Preisänderung am Produkt (der ID) würde auch getätigte Verkäufe der Vergangenheit verändern, was nicht richtig wäre.
Mein Problem ist, wie bekomme ich die einzelnen Preise
(EK_Preis, UVP_Preis, Rabattpreis1, Rabattpreis2, Rabatttpreis3 und Rabatpreis4) in die Auswahlliste des Kombinationsfeldes.
Ein SELECT „EK_Preis“, „UVP_Preis“, Bla Bla… FROM „Produkt“ zeigt nur ein Wert
und zwar den ersten der SELECT Anweisung, ich brauche aber die 6 Werte in der Auswahlliste.
Re: Werte der Liste eines Kombinationsfeldes
Verfasst: Do 22. Jan 2015, 16:24
von RobertG
Hallo Dami,
über das Listenfeld würdest Du den aktuellen Rabattpreis auswählen. Du würdest auch den Preis schreiben, nicht den Bezug zum Produkt. Der Inhalt des Listenfeldes würde sich natürlich ändern, wenn die Rabattpreise sich ändern. Das Listefeld wäre aber auch nur für die Eingabe sinnvoll, nicht bei einer späteren Betrachtung. Da würde an der Stelle der Preis in einem Feld für Dezimaleingaben stehen.
Du könntest also sehr wohl den Preis beim Produkt ändern.
Normales Vorgehen wäre aus meiner Sicht sowieso, wenn Du irgendwo den Preis für ein Produkt in Abhängigkeit vom Datum gespeichert hättest (also eine Zusätzliche Tabelle). Dann könntest Du wirklich die gesamte Preisentwicklung für ein Produkt nachvollziehen.
Wenn Du in einer Abfrage die verschiedenen Rabattpreise untereinander haben willst, dann musst Du mit UNION arbeiten:
Code: Alles auswählen
SELECT "ID", "Rabattpreis 1" FROM "Tabelle"
UNION
SELECT "ID", "Rabattpreis 2" FROM "Tabelle"
UNION
...
Leider muss hier aber der Schlüsselwert für Dein Produkt an erster Stelle stehen, damit die Werte, die sich auf Dein Produkt beziehen, hintereinander augezeigt werden.
Besser geht es, wenn Du den Inhalt über ein Makro erstellst und dann für jede Unterabfrage auf den Schlüsselwert des Produktes eingrenzt:
Code: Alles auswählen
SELECT "Rabattpreis 1" FROM "Tabelle" WHERE "ID" = Schlüsselwert
UNION
SELECT "Rabattpreis 2" FROM "Tabelle" WHERE "ID" = Schlüsselwert
UNION
...
Das Makro müsste ausgelöst werden,. wenn Du das Produkt ausgewählt hast. Zum Code für so ein Makro siehe das aktuelle Base-Handbuch.
Gruß
Robert
Re: Werte der Liste eines Kombinationsfeldes
Verfasst: Mo 26. Jan 2015, 12:54
von Dami
Hallo RobertG,
ich danke Dir für deine Lösung und Tipps. Über die Umsetzung werde ich berichten.
Es läuft aber auf ein Makro heraus.
Re: Werte der Liste eines Kombinationsfeldes
Verfasst: Mi 8. Apr 2015, 10:29
von Dami
Hallo,
das Problem habe ich nun mit einem Makro gelöst.
Mit einem Listenfeld ("Artikel") wähle ich den Artikel aus und lese die ID des Artikels aus.
Anschließend befühle ich eine Combobox ("Preis") mit einem SQL Ausdruck.
Combobox auf SQL setzen
Es funktioniert wie gewünscht !
@RobertG: danke für den Tipp mit UNION
Code: Alles auswählen
SUB ListBoxID (oEvent AS OBJECT)
DIM oForm AS OBJECT
DIM oDoc AS OBJECT
DIM aForms AS OBJECT
DIM oList AS OBJECT
DIM oListCtr AS OBJECT
DIM stInhalt AS STRING
DIM oTextCtr AS STRING
DIM oPosCtr AS INTEGER
DIM stTag AS STRING
stTag = oEvent.Source.Model.Tag
aForms() = Split(stTag, ",")
oDoc = ThisComponent
oForm = oDoc.drawpage.forms.MainForm.getbyname( Trim(aForms(0)) ) REM 1. Eintrag = Name des Unterformulars
REM Abfrage; In einer Listbox Artikel auswählen und die ID des Artikels auslesen
oList = oForm.getByName( Trim(aForms(1)) ) REM 2. Eintrag = Listboxname
stInhalt = oList.currentValue
IF IsEmpty (stInhalt) THEN
oPosCtr = -1
ELSE
oPosCtr = CInt (stInhalt)
END IF
REM Belegen; Drop-Down Liste der Combobox "vertikal" belegen
oCombobox = oForm.getbyname( Trim(aForms(2)) ) REM 3. Eintrag = Name der Combobox
oListsource = "SELECT ""Preis1"" FROM ""Artikel"" WHERE ""ID"" = "+oPosCtr+"
UNION ALL SELECT ""Preis2"" FROM ""Artikel"" WHERE ""ID"" = "+oPosCtr+"
UNION ALL SELECT ""Preis3"" FROM ""Artikel"" WHERE ""ID"" = "+oPosCtr+"
UNION ALL SELECT ""Preis4"" FROM ""Artikel"" WHERE ""ID"" = "+oPosCtr+"
UNION ALL SELECT ""Preis5"" FROM ""Artikel"" WHERE ""ID"" = "+oPosCtr+"
UNION ALL SELECT ""Preis6"" FROM ""Artikel"" WHERE ""ID"" = "+oPosCtr+""
oCombobox.ListSource = oListsource
oCombobox.refresh
END SUB