Werte der Liste eines Kombinationsfeldes [gelöst]

[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

[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

Code: Alles auswählen

SELECT "Produkt", "Rabattpreis 1" FROM Tabelle

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

[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.

[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

[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.

[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