AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Ergebnis auf einen Datensatz reduzieren
Thema durchsuchen
Ansicht
Themen-Optionen

Ergebnis auf einen Datensatz reduzieren

Ein Thema von HCB · begonnen am 29. Mai 2024 · letzter Beitrag vom 31. Mai 2024
Antwort Antwort
Benutzerbild von Uwe Raabe
Uwe Raabe
Online

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.758 Beiträge
 
Delphi 12 Athens
 
#1

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 31. Mai 2024, 15:09
Im Prinzip habe ich auch nichts anderes gemacht als die beiden Abfragen zu kombinieren. Die erste Abfrage mit den "bestellt"-Werten habe ich um ein Feld "geliefert" ergänzt, dass durch ein Sub-Select realisiert wird. Offenbar gibt es aber bei Access ein Problem mit der verwendeten Syntax.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
HCB

Registriert seit: 12. Feb 2020
226 Beiträge
 
Delphi 12 Athens
 
#2

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 31. Mai 2024, 15:25
Ja, ja Uwe Dein Code läuft, es ist derselbe wie in Abfrage 2. Dieser bringt mir korrekt die gelieferten Mengen. Aber damit kann ich nicht die ursprünglich im Auftrag bestellte Menge sehen, sondern nur die bereits gelieferten.

LG Harry
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe
Online

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.758 Beiträge
 
Delphi 12 Athens
 
#3

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 31. Mai 2024, 15:33
Das war mein erster Code. Der zweite ist der mit dem Subselect. Hier nochmal in abgewandelter Form mit vollständigen Alias:

SQL-Code:
SELECT
    Dok.ABFDocAuftragNr,
    Dok.ABFDocDatum,
    Dok.ABFDocKundeKurzbez,
    Dok.ABFDocSummeNetto_0,
    Pos.ABFPosMenge as bestellt,
    Pos.ABFPosArtNr,
    Pos.ABFPosName1,
    (SELECT
       SUM(subPos.ABFPosMenge)
     FROM
       ABFDok subDok
     INNER JOIN
       ABFPos subPos ON subDok.ABFDocID = subPos.ABFPosdocID
     WHERE
       subDok.ABFDocAuftragNr = Dok.ABFDocAuftragNr AND
       subPos.ABFPosArtNr = Pos.ABFPosArtNr AND
       subDok.ABFDocOptFertig = false AND
       subDok.ABFDocVisType = 2 AND
       subPos.ABFPosEPreis > 0 AND
       subPos.ABFPosType IN (0, 7) AND
       subPos.ABFPosNr <> ''
    ) AS geliefert
FROM
    ABFDok Dok
INNER JOIN
    ABFPos Pos ON Dok.ABFDocAuftragID = Pos.ABFPosDocID
WHERE
    Dok.ABFDocOptFertig = false AND
    Dok.ABFDocVisType = 1 AND
    Pos.ABFPosEPreis > 0 AND
    Pos.ABFPosType IN (0, 7) AND
    Pos.ABFPosNr <> ''
order by Dok.ABFDocAuftragNr;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
2.599 Beiträge
 
Delphi 7 Professional
 
#4

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 31. Mai 2024, 15:45
Klappt das?
SQL-Code:
select
    ABFDocAuftragNr,
    ABFDocDatum,
    ABFDocKundeKurzbez,
    ABFDocSummeNetto_0,
    Sum(Geliefert) as Geliefert,
    Sum(Bestellt) as Bestellt,
    ABFPosArtNr,
    ABFPosName1
from
(
  SELECT
      ABFDocAuftragNr,
      ABFDocDatum,
      ABFDocKundeKurzbez,
      ABFDocSummeNetto_0,
      0 as Geliefert,
      ABFPosMenge as Bestellt,
      ABFPosArtNr,
      ABFPosName1
  FROM
      ABFDok
  INNER JOIN
      ABFPos ON ABFDok.ABFDocAuftragID = ABFPos.ABFPosDocID
  WHERE
      ABFDocOptFertig = false AND
      ABFDocVisType = 1 AND
      ABFPosEPreis > 0 AND
      ABFPosType IN (0, 7) AND
      ABFPosNr <> ''
  union all
  SELECT
      ABFDocAuftragNr,
      ABFDocDatum,
      ABFDocKundeKurzbez,
      ABFDocSummeNetto_0,
      0 as Geliefert,
      Sum(ABFPosMenge) as Bestellt,
      ABFPosArtNr,
      ABFPosName1
  FROM
      ABFDok
  INNER JOIN
      ABFPos ON ABFDok.ABFDocID = ABFPos.ABFPosdocID
  WHERE
      ABFDocOptFertig = false AND
      ABFDocVisType = 2 AND
      ABFPosEPreis > 0 AND
      ABFPosType IN (0, 7) AND
      ABFPosNr <> ''
  GROUP BY
    ABFPosArtNr,
    ABFDocAuftragNr
) a
group by
    ABFDocAuftragNr,
    ABFDocDatum,
    ABFDocKundeKurzbez,
    ABFDocSummeNetto_0,
    ABFPosArtNr,
    ABFPosName1
ORDER BY
  ABFPosArtNr;
  Mit Zitat antworten Zitat
HCB

Registriert seit: 12. Feb 2020
226 Beiträge
 
Delphi 12 Athens
 
#5

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 31. Mai 2024, 15:53
Donnerwetter! Uwe ich liebe Dich
Du bist ein SQL Guru.
Vielen lieben Dank, du hast meinen Tag verschönert.
Dein SQL läuft perfekt so wie ich es mir vorgestellt - aber mangels Intelligenz nicht hin bekommen habe!

LG Harry

@Delphi.Narium
Dein Code liefert folgenden Fehler:
Von Alias 'Geliefert' verursachter Zirkelbezug in der SELECT-Liste der Abfragedefinition
Trotzdem Danke für Deine Unterstüzung.
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
2.599 Beiträge
 
Delphi 7 Professional
 
#6

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 31. Mai 2024, 16:00
Auch wenn's schon 'ne Lösung gibt.

Klappt das?
SQL-Code:
select
    ABFDocAuftragNr,
    ABFDocDatum,
    ABFDocKundeKurzbez,
    ABFDocSummeNetto_0,
    Sum(a_Geliefert) as Geliefert,
    Sum(a_Bestellt) as Bestellt,
    ABFPosArtNr,
    ABFPosName1
from
(
  SELECT
      ABFDocAuftragNr,
      ABFDocDatum,
      ABFDocKundeKurzbez,
      ABFDocSummeNetto_0,
      0 as a_Geliefert,
      ABFPosMenge as a_Bestellt,
      ABFPosArtNr,
      ABFPosName1
  FROM
      ABFDok
  INNER JOIN
      ABFPos ON ABFDok.ABFDocAuftragID = ABFPos.ABFPosDocID
  WHERE
      ABFDocOptFertig = false AND
      ABFDocVisType = 1 AND
      ABFPosEPreis > 0 AND
      ABFPosType IN (0, 7) AND
      ABFPosNr <> ''
  union all
  SELECT
      ABFDocAuftragNr,
      ABFDocDatum,
      ABFDocKundeKurzbez,
      ABFDocSummeNetto_0,
      0 as a_Geliefert,
      Sum(ABFPosMenge) as a_Bestellt,
      ABFPosArtNr,
      ABFPosName1
  FROM
      ABFDok
  INNER JOIN
      ABFPos ON ABFDok.ABFDocID = ABFPos.ABFPosdocID
  WHERE
      ABFDocOptFertig = false AND
      ABFDocVisType = 2 AND
      ABFPosEPreis > 0 AND
      ABFPosType IN (0, 7) AND
      ABFPosNr <> ''
  GROUP BY
      ABFDocAuftragNr,
      ABFDocDatum,
      ABFDocKundeKurzbez,
      ABFDocSummeNetto_0,
      ABFPosArtNr,
      ABFPosName1
) a
group by
    ABFDocAuftragNr,
    ABFDocDatum,
    ABFDocKundeKurzbez,
    ABFDocSummeNetto_0,
    ABFPosArtNr,
    ABFPosName1
ORDER BY
  ABFPosArtNr;

Geändert von Delphi.Narium (31. Mai 2024 um 16:12 Uhr) Grund: Group by ergänzt - siehe nächsten Post
  Mit Zitat antworten Zitat
HCB

Registriert seit: 12. Feb 2020
226 Beiträge
 
Delphi 12 Athens
 
#7

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 31. Mai 2024, 16:06
Hallo Delphi.Narium, auch diese Abfrage bringt jetzt folgenden Fehler:

<Sie wollten eine Abfrage ausführen, die den angegebenen Ausdruck 'ABFDocDatum' nicht als Teil der Aggregatfunktion einschließt>

LG Harry
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
2.599 Beiträge
 
Delphi 7 Professional
 
#8

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 31. Mai 2024, 16:13
Hab's oben noch etwas angepasst, wenn's immer noch nicht klappt, lass' ich das mit dem SQL und Access besser bleiben
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz