Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Ergebnis auf einen Datensatz reduzieren (https://www.delphipraxis.net/215216-ergebnis-auf-einen-datensatz-reduzieren.html)

HCB 29. Mai 2024 14:19

Datenbank: Access mdb • Version: 2003 • Zugriff über: SQL / Delphi FireDac

Ergebnis auf einen Datensatz reduzieren
 
Nun ich schon wieder :)
Bitte um Hilfe von den SQL Profis hier. Ich habe eine SQL Abfrage die mir die Gesamtzahl der Lieferungen eines Artikels zeigen soll:
Delphi-Quellcode:
 SELECT
    ABFDocAuftragNr,
    ABFPosMenge,
    ABFPosArtNr,
    (
        SELECT distinct SUM(ABFPosMenge)
        FROM ABFDok AS D
        INNER JOIN ABFPos AS P ON D.ABFDocID = P.ABFPosdocID
        WHERE D.ABFDocOptFertig = false AND
              D.ABFDocVisType = 2 AND
              P.ABFPosEPreis > 0 AND
              P.ABFPosType IN (0, 7) AND
              P.ABFPosNr <> '' AND
              P.ABFPosArtNr = ABFPos.ABFPosArtNr
    ) AS TotalSum
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 <> ''
ORDER BY ABFPosArtNr;
Das Ergebis sieht so aus:

ABFDocAuftragNr ABFPosMenge ABFPosArtNr TotalSum
Text[8] Currency Text[22] Currency
------------------------------------------------------------------
A023705 10 1031009-011 10
A023705 10 1031010-046 10
A023705 12 1031019-017 12
A023705 5 1031040-006 5
A023705 3 1036020-002 12
A023705 9 1036020-002 12
A023705 2 1036023-005 2
A023705 5 1041812 5
A023854 5 1061853 5
A023850 1 1062558 1
A023850 1 1062559 1
A023763 1 1119022 3
A023763 2 1119022 3

Nun wird der Artikel 1036020-002 zweimal aufgeführt, die TotalSum passt also 1 x 3 St. + 1 x 9 St. = 12.

Frage aller Fragen: Wie kann ich es bewerkstelligen, dass nur einmal der Datensatz angezeigt wird, also jede Artikelnummer einzeln und nicht doppelt?
Wenn ihr helfen könntet, wäre mein Tag super.

LG Harry

stifflersmom 29. Mai 2024 14:31

AW: Ergebnis auf einen Datensatz reduzieren
 
So wie ich das (ungetestet) sehe, könntest Du eigentlich auf den subselect verzichten und gleich ein SUM auf ABFPosMenge machen, musst halt nur ein group by hinzufügen.

Uwe Raabe 29. Mai 2024 14:49

AW: Ergebnis auf einen Datensatz reduzieren
 
Um das mal zu konkretisieren (nur so hingeschrieben):
SQL-Code:
SELECT
    ABFDocAuftragNr,
    ABFPosArtNr,
    SUM(ABFPosMenge) AS TotalSum
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
ORDER BY ABFPosArtNr;

HCB 29. Mai 2024 15:48

AW: Ergebnis auf einen Datensatz reduzieren
 
Liste der Anhänge anzeigen (Anzahl: 2)
Hallo Danke, Super!
Jetzt wird es aber wesentlich komplexer mit zwei Tabellen:

1. ABFDok (da sind nur die Dokumente wie Auftrag, Lieferschein, Rechnung etc. gespeichert)

2. ABFPos (da sind die einzelenen Positionen des Auftrags, Lieferschein etc.)
Nun habe ich z.B. im Auftrag eine Bestellmenge eines Artikels von 12 St.

Anhand der ABFDocAuftragsID 106921 = ABFDocID brauche ich in der ABFPos unter der ABFPosDocId die bestellte Menge unter ABFPosMenge = 10St.
Jetzt suche ich alle gelieferten Artikel anhand des Lieferscheins ABFDocVisType = 2 mit der ABFDocID 107348 in ABFPos die gelieferte Menge = 1
Nun wurde aber nochmals eine Teilmenge geliefert, mit Lieferschein ABFDocVisType = 2 und der ABFDocID 1073347 in ABFPos die gelieferte Menge = 2

Da ich jetzt alles habe, soll mir die noch zu liefernde Menge angezeigt werden: 10 St aus Auftrag minus 1 St aus Lieferung1 minus 2 St. aus Lieferung2 also noch 7 st. zu liefern.

Mir brummt schon der Kopf! Beide Queries zu verbinden scheitert mangels Fachkenntissen.

Delphi-Quellcode:
SELECT
    ABFDocAuftragNr,
    ABFDocDatum,
    ABFDocKundeKurzbez,
    ABFDocSummeNetto_0,
    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 <> ''
order by ABFDocAuftragNr;
und wie von Uwe gepostet:
Delphi-Quellcode:
SELECT
    ABFDocAuftragNr,
    ABFPosArtNr,
    SUM(ABFPosMenge) AS TotalSum
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
ORDER BY ABFPosArtNr;
Anbei Screenshots.
Ich hoffe auf euere Hilfe.

LG Harry

HCB 30. Mai 2024 14:28

AW: Ergebnis auf einen Datensatz reduzieren
 
Keine Ideen?
Hab es jetzt mal mit temp tabelle versucht, es werden die Mengen eines Artikel summiert. Leider funktioniert die anschließende Update-Anweisung nicht.
Sieht jemand von der Cracks woran es liegt?
Delphi-Quellcode:
 UPDATE Tmp_Results
SET TotalMenge = SubQuery.TotalMenge
FROM Tmp_Results
INNER JOIN (
    SELECT ABFPosArtNr, SUM(ABFPosMenge) AS TotalMenge
    FROM ABFDok
    INNER JOIN ABFPos ON ABFDok.ABFDocID = ABFPos.ABFPosdocID
    WHERE ABFDocOptFertig = 0 AND
          ABFDocVisType = 2 AND
          ABFPosEPreis > 0 AND
          ABFPosType IN (0, 7) AND
          ABFPosNr <> ''
    GROUP BY ABFPosArtNr
) AS SubQuery ON Tmp_Results.ABFPosArtNr = SubQuery.ABFPosArtNr;
LG Harry

Jasocul 30. Mai 2024 15:01

AW: Ergebnis auf einen Datensatz reduzieren
 
Wir haben in vielen Bereichen heute einen Feiertag. Da ist im Forum meist nicht viel los. Morgen ist dann dementsprechend Brückentag :wink:
Nur mal auf die Schnelle:
Code:
select
    ABFDocAuftragNr,
    ABFDocDatum,
    ABFDocKundeKurzbez,
    ABFDocSummeNetto_0,
    ABFPosMenge as bestellt,
    ABFPosArtNr,
    ABFPosName1,
    (select sum(LIPos.ABFPosMenge) as LIMenge from ABFPos as LIPos where LIPos.ABFPosdocID = LI.ABFDocID) as geliefert
from ABFDok as AU
join ABFPos as AUPos
ON AU.ABFDocAuftragID = AUPos.ABFPosDocID
left outer join ABFDok as LI
on AU.ABFDocAuftragNr = LI.ABFDocAuftragNr
where AU.ABFDocOptFertig = false AND
    AU.ABFDocVisType = 1 AND
    AUPos.ABFPosEPreis > 0 AND
    AUPos.ABFPosType IN (0, 7) AND
    AUPos.ABFPosNr <> ''
Das ist völlig ungeprüft und ohne genaue hinzusehen.
Ob das in Access so funktioniert, weiß ich nicht und dein Update musst du dann gegebenenfalls selbst daraus erstellen.

HCB 30. Mai 2024 15:47

AW: Ergebnis auf einen Datensatz reduzieren
 
Danke, läuft aber nicht.
Mit diesem hier läuft es einmal, wenn keine Tabelle vorhanden ist.
Delphi-Quellcode:
SELECT ABFPosArtNr, SUM(ABFPosMenge) AS TotalMenge
INTO Tmp_Results
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;
Beim 2. Aufruf meckert er dass die Tabelle bereits existiert. Es müsste dann ein Update Statement her, aber daran scheitert es das obige statt INTO Tmp_Results auf UPDATE umzustellen.

LG Harry

Uwe Raabe 30. Mai 2024 16:14

AW: Ergebnis auf einen Datensatz reduzieren
 
Ohne konkrete Datenbank wird das schon schwierig, zumal ich mit MS Access schon ein halbes Leben lang nicht mehr arbeite. Trotzdem ein Versuch:
Code:
SELECT
    ABFDocAuftragNr,
    ABFDocDatum,
    ABFDocKundeKurzbez,
    ABFDocSummeNetto_0,
    ABFPosMenge as bestellt,
    ABFPosArtNr,
    ABFPosName1,
    (SELECT
       SUM(subPos.ABFPosMenge)
     FROM
       ABFDok subDok
     INNER JOIN
       ABFPos subPos ON subDok.ABFDocID = subPos.ABFPosdocID
     WHERE
       subDok.ABFDocAuftragNr = ABFDoc.ABFDocAuftragNr AND
       subPos.ABFPosArtNr = ABFPos.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
INNER JOIN
    ABFPos ON ABFDok.ABFDocAuftragID = ABFPos.ABFPosDocID
WHERE
    ABFDocOptFertig = false AND
    ABFDocVisType = 1 AND
    ABFPosEPreis > 0 AND
    ABFPosType IN (0, 7) AND
    ABFPosNr <> ''
order by ABFDocAuftragNr;

HCB 30. Mai 2024 16:41

AW: Ergebnis auf einen Datensatz reduzieren
 
Danke Uwe. Bringt Fehler: 1 Parameter wurden erwartet, aber es wurden zu wenig Parameter übergeben.

LG Harry

HCB 31. Mai 2024 07:44

AW: Ergebnis auf einen Datensatz reduzieren
 
Hi, also das mit den temp Tabellen habe ich wieder verworfen.
Habe es jetzt soweit mit einer SQL Abfrage probiert und bin nicht ganz zufrieden damit:
Delphi-Quellcode:
SELECT
    ABFDocAuftragNr,
    ABFPosArtNr,
    ABFPosMenge,
    ABFPosName1
FROM
    ABFDok
INNER JOIN
    ABFPos ON ABFPos.ABFPosAuftragID = ABFDok.ABFDocAuftragID
WHERE
    ABFDocOptFertig = false AND
    ABFDocVisType = 1 AND
    ABFPosType IN (0,7)
GROUP BY
    ABFDocAuftragNr,
    ABFPosMenge,
    ABFPosArtNr,
    ABFPosName1
ORDER BY
    ABFPosArtNr;
Es kommt folgendes Ergebnis zustande:

A023763 | 1119022 | 1
A023763 | 1119022 | 2
A023763 | 1119022 | 10

10 St. wurden bestellt, 1 St. geliefert und nochmals 2 St. geliefert.
Es müsste die Abfrage irgendwie umgestellt werden, dass nur die niedrigsten Zahlen 1 und 2 von der höchsten Zahl abgezogen werden. Damit ich sehen kann, 10 geliefert, 7 noch offen.
Ich habe es mit Max(ABFPosMenge) und Min(ABFPosMenge) schon probiert, bekomme aber keine Lösung damit.

Würde mir von Euch Profis etwas Hilfe geben?
Vielen Dank.

LG Harry

Jasocul 31. Mai 2024 07:55

AW: Ergebnis auf einen Datensatz reduzieren
 
Zitat:

Zitat von HCB (Beitrag 1537311)
Danke, läuft aber nicht.

Das ist etwas wenig Info, um Fehler zu korrigieren.

Deine letzter Versuch kann nicht funktionieren, weil die Aufträge und Lieferscheine gemischt anzeigst, wenn ich es richtig sehe. Die Ergebnisse für Aufträge und Lieferscheine müssen getrennt werden.

Wie Uwe schon schrieb, ist das ohne konkrete DB etwas schwierig. Da Uwe und ich ähnliche Ansätze verfolgt haben, hier kurz die Idee, die dahinter steckt, damit du dich ohne unsere Hilfe weiter rantasten kannst:
  • Erstmal alle betroffenen Aufträge mit Positionen selektieren
  • im Subselect die Lieferscheine mit den Positionen passend zu den Auftragspositionen ermitteln
  • Das Subselect darf nur die Summe der Mengen liefern
Den ersten Punkt kannst du sicher alleine hinbekommen. Das Problem ist also nur das Subselect.
Du musst mit Tabellenaliasen arbeiten, damit du die Bedingungen im Subselect sauber mit dem äußeren Select verknüpfen kannst.

Als ersten Ansatz kannst zu einem Ergebnis des Haupt-Selects erstmal eine weiteres Select erstellen, dass dann die richtigen Ergebnisse aus den Lieferscheinen liefert. Daran solltest du erkennen, welche Verknüpfungen im Subselect gesetzt werden müssen. Idealerweise testest du das mit einer Auftragsposition, die mehrere Teillieferungen hatte.

Hinweis am Rande:
Das Sum des Subselects kann NULL-Werte beinhalten. Keine Ahnung was Access damit macht, aber es kann dann sein, dass dort immer NULL rauskommt, sobald einer der Teilwerte NULL ist. Normalerweise habe DBs dafür eine Funktion, die ich aber für Access nicht kenne. Bei meiner DB muss ich Coalesce verwenden

Delphi.Narium 31. Mai 2024 09:58

AW: Ergebnis auf einen Datensatz reduzieren
 
Da ich keine Ahnung habe, woran ich "Bestellt" und "Geliefert" unterscheiden soll, hab' ich mal ein bisserl geraten (keine Ahnung ob Access das kann und ohne Datenmodell und passende DB nur Spekulatius ;-)).
SQL-Code:
SELECT
    ABFDocAuftragNr,
    ABFPosArtNr,
    Bestellt,
    Geliefert,
    Bestellt - Geliefert as Offen,
    ABFPosName1
FROM (
  SELECT
      ABFDocAuftragNr,
      ABFPosArtNr,
      case when ABFPosType = 0 then ABFPosMenge else 0 end as Bestellt,
      case when ABFPosType = 7 then 0 else ABFPosMenge end as Geliefert,
      ABFPosName1
  FROM
      ABFDok
  INNER JOIN
      ABFPos ON ABFPos.ABFPosAuftragID = ABFDok.ABFDocAuftragID
  WHERE
      ABFDocOptFertig = false AND
      ABFDocVisType = 1 AND
      ABFPosType in (0,7)
)
ORDER BY
    ABFPosArtNr
Was ich nicht verstehe: Wofür war in dem nicht so ganz korrekt funktionierenden SQL das Group by? Um irgendwelche uminösen Dubletten zu eliminieren? Eigentlich benötig man es bei Aggregatfunktionen, da es davon aber keine im SQL gibt, erscheint mir das irgendwie nicht plausibel. Wenn da keine unerwünschten Nebeneffekte auftreten, ist das eher Zufall.

Uwe Raabe 31. Mai 2024 12:04

AW: Ergebnis auf einen Datensatz reduzieren
 
Zitat:

Zitat von HCB (Beitrag 1537315)
Bringt Fehler: 1 Parameter wurden erwartet, aber es wurden zu wenig Parameter übergeben.

Ich kann in meinem SQL zwar jetzt keinen Parameter entdecken, aber da ich mit Access eh schon ewig nichts mehr am Hut habe, bin ich da wohl auch nicht die richtige Adresse.

Delphi.Narium 31. Mai 2024 12:13

AW: Ergebnis auf einen Datensatz reduzieren
 
Alles was Access nicht kennt, nennt es in der Fehlermeldung "Parameter", egal ob es nun ein Parameter ist oder nicht. Das ist zuweilen extrem irreführend.

Papaschlumpf73 31. Mai 2024 12:34

AW: Ergebnis auf einen Datensatz reduzieren
 
Probier mal ganz unten hinter der Klammer "as SubQuery" einzufügen:

ABFPosType in (0,7)
) as SubQuery
ORDER BY
ABFPosArtNr

HCB 31. Mai 2024 14:54

AW: Ergebnis auf einen Datensatz reduzieren
 
Hallo und Danke an alle die mir helfen wollen.
Ich habe 2 Queries die genau das machen was sie sollen, nur müsste das in einer Abfrage untergebracht werden.
Die erste Abfrage holt mir alle offenen Aufträge mit ABFDocVisType = 1 und ABFPos ON ABFDok.ABFDocAuftragID = ABFPos.ABFPosDocID und bringt mir u.a. die bestellte Menge. OK.
Die zweite Abfrage bringt mir die bereits gelieferten Mengen mit Lieferschein ABFDocVisType = 2 und SUM(ABFPosMenge) AS Geliefert und ABFPos ON ABFDok.ABFDocID = ABFPos.ABFPosdocID.
Die Innerjoins sowie die ABFDocVisType sind unterschiedlich: 1 = Aufträge, 2 = Lieferschein, 3 = Rechnung etc.

Hier nochmal beide Abfragen:
Delphi-Quellcode:
SELECT
    ABFDocAuftragNr,
    ABFDocDatum,
    ABFDocKundeKurzbez,
    ABFDocSummeNetto_0,
    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 <> ''
order by ABFDocAuftragNr;
Und hier die zweite:
Delphi-Quellcode:
SELECT
    ABFDocAuftragNr,
    ABFPosArtNr,
    SUM(ABFPosMenge) AS Geliefert
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
ORDER BY ABFPosArtNr;
Wahrscheinlich wird es noch deutlicher wenn man sich meine zuvor geposteten Screenshots ansieht.
Vielen lieben Dank nochmals für Eure Mühe.

LG Harry

Uwe Raabe 31. Mai 2024 15:09

AW: Ergebnis auf einen Datensatz reduzieren
 
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.

HCB 31. Mai 2024 15:25

AW: Ergebnis auf einen Datensatz reduzieren
 
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

Uwe Raabe 31. Mai 2024 15:33

AW: Ergebnis auf einen Datensatz reduzieren
 
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;

Delphi.Narium 31. Mai 2024 15:45

AW: Ergebnis auf einen Datensatz reduzieren
 
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;

HCB 31. Mai 2024 15:53

AW: Ergebnis auf einen Datensatz reduzieren
 
Donnerwetter! Uwe ich liebe Dich :-D
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.

Delphi.Narium 31. Mai 2024 16:00

AW: Ergebnis auf einen Datensatz reduzieren
 
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;

HCB 31. Mai 2024 16:06

AW: Ergebnis auf einen Datensatz reduzieren
 
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

Delphi.Narium 31. Mai 2024 16:13

AW: Ergebnis auf einen Datensatz reduzieren
 
Hab's oben noch etwas angepasst, wenn's immer noch nicht klappt, lass' ich das mit dem SQL und Access besser bleiben ;-)

HCB 31. Mai 2024 16:41

AW: Ergebnis auf einen Datensatz reduzieren
 
@delphi.narium:
Jetzt läuft es ohne Fehlermeldung, aber es werden mir jetzt 42 Einträge nur mit einer Spalte (ABFDocAuftragNr) gelistet.

Ne, Ne lass das mal mit SQL und Access nicht bleiben, schließlich hast Du mir schon oft geholfen dass ich das zum Laufen bekommen habe.
Nachträglich nochmals Danke dafür.

Ich bin sicher, dass ich bald wieder auf Schwierigkeiten stoße, wo Du mir sicher wieder helfen kannst.
Alles Gute

Harry


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:01 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