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
Seite 1 von 3  1 23      
HCB

Registriert seit: 12. Feb 2020
172 Beiträge
 
Delphi 12 Athens
 
#1

Ergebnis auf einen Datensatz reduzieren

  Alt 29. Mai 2024, 15:19
Datenbank: Access mdb • Version: 2003 • Zugriff über: SQL / Delphi FireDac
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
  Mit Zitat antworten Zitat
stifflersmom

Registriert seit: 8. Dez 2005
Ort: 24994 Holt
379 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 29. Mai 2024, 15:31
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.
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

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

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 29. Mai 2024, 15:49
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;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
HCB

Registriert seit: 12. Feb 2020
172 Beiträge
 
Delphi 12 Athens
 
#4

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 29. Mai 2024, 16:48
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
Miniaturansicht angehängter Grafiken
sql1.jpg   sql2.jpg  
  Mit Zitat antworten Zitat
HCB

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

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 30. Mai 2024, 15:28
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
  Mit Zitat antworten Zitat
Benutzerbild von Jasocul
Jasocul

Registriert seit: 22. Sep 2004
Ort: Delmenhorst
1.354 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 30. Mai 2024, 16:01
Wir haben in vielen Bereichen heute einen Feiertag. Da ist im Forum meist nicht viel los. Morgen ist dann dementsprechend Brückentag
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.
Peter
  Mit Zitat antworten Zitat
HCB

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

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 30. Mai 2024, 16:47
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
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

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

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 30. Mai 2024, 17:14
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;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
HCB

Registriert seit: 12. Feb 2020
172 Beiträge
 
Delphi 12 Athens
 
#9

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 30. Mai 2024, 17:41
Danke Uwe. Bringt Fehler: 1 Parameter wurden erwartet, aber es wurden zu wenig Parameter übergeben.

LG Harry

Geändert von HCB (30. Mai 2024 um 18:10 Uhr)
  Mit Zitat antworten Zitat
HCB

Registriert seit: 12. Feb 2020
172 Beiträge
 
Delphi 12 Athens
 
#10

AW: Ergebnis auf einen Datensatz reduzieren

  Alt 31. Mai 2024, 08:44
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
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23      


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 08:56 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz