AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Berechnungen per SQL

Berechnungen per SQL

Ein Thema von Walter Landwehr · begonnen am 5. Feb 2017 · letzter Beitrag vom 5. Feb 2017
Antwort Antwort
Walter Landwehr

Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
346 Beiträge
 
Delphi 10.4 Sydney
 
#1

Berechnungen per SQL

  Alt 5. Feb 2017, 13:44
Datenbank: Firbird • Version: 2,5,5 • Zugriff über: IBO / IBExpert
Hallo,

ich habe eine Tabelle Rechnung indem Gutschriften und Rechnungen gespeichert sind. Im Feld Belegart sind Rechnungen als 'GU' und Rechnen als 'RE'.

Die Rechnungssumme oder Gutschriftssumme sind jeweils als positiver Wer gespeichert.

Nun benötige ich den Rechnungsbetrag - Gutschriftsbetrag in einer Spalte.

Mein Ansatz sieht so aus.

Delphi-Quellcode:
select Belegart, Rechnungsjahr as Behandlungsjahr,
cast(sum(Rechnungssumme) as Integer) as Summe
from tbl_rechnung
where Rechnungsjahr between :VonJahr and :BisJahr
and ((Belegart = 'RE') or (Belegart = 'GU'))
group by Belegart, Rechnungsjahr
Ergebnis:
BELEGART BEHANDLUNGSJAHR SUMME
GU 2.014 115
GU 2.017 34
RE 2.008 18.049
RE 2.009 48.023
RE 2.010 61.406
RE 2.011 51.508
RE 2.012 32.561
RE 2.013 52.201
RE 2.014 21.193
RE 2.015 4.701
RE 2.016 1.701
RE 2.017 21

Wie bekomme ich es hin das die Berechnung in einer Spalte stattfindet.

Ergebnis sollte so aussehen:
Belegjahr Ergebnis
2008 18.049
2009 48.023
2010 61.406
2011 51.508
2012 32.561
2013 52.201
2014 21.078
2015 4.701
2016 1.701
2017 -13
Walter Landwehr
Mfg

Walter

Geändert von Walter Landwehr ( 5. Feb 2017 um 14:17 Uhr)
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#2

AW: Berechnungen per SQL

  Alt 5. Feb 2017, 14:10
Eventuell sowas?
SQL-Code:
select Cast(Rechnungsjahr as VarChar) as Behandlungsjahr,
cast(sum(Rechnungssumme) as Integer) as Summe
from tbl_rechnung
where Rechnungsjahr between :VonJahr and :BisJahr
and ((Belegart = 'RE') or (Belegart = 'GU'))
group by Belegart, Rechnungsjahr
  Mit Zitat antworten Zitat
Walter Landwehr

Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
346 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Berechnungen per SQL

  Alt 5. Feb 2017, 14:20
Nein das bringt nichts. Es muss bei einer Gutschrift die Rechnungssumme * -1 berechnet werden.
Walter Landwehr
Mfg

Walter

Geändert von Walter Landwehr ( 5. Feb 2017 um 14:26 Uhr)
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.802 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Berechnungen per SQL

  Alt 5. Feb 2017, 14:37
SQL-Code:
select
  Rechnungsjahr as Behandlungsjahr,
  (iif(Belegart = 'RE', cast(sum(Rechnungssumme) as Integer), 0) - iif(Belegart = 'GU', cast(sum(Rechnungssumme) as Integer),0)) as summe
from
  tbl_rechnung
where
  Rechnungsjahr between :VonJahr and :BisJahr
  and ((Belegart = 'RE') or (Belegart = 'GU'))
group by
  Rechnungsjahr;
Markus Kinzler
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#5

AW: Berechnungen per SQL

  Alt 5. Feb 2017, 14:40
Nur hingedaddelt, nicht getestet (mangels entsprechender Datenbank)
SQL-Code:
select Behandlungsjahr, RE - GU as Summe from
(
  select
    Cast(Rechnungsjahr as VarChar) as Behandlungsjahr,
    case Belegart
      when 'REthen cast(sum(Rechnungssumme) as Integer)
      else 0
    end as RE,
    case Belegart
      when 'GUthen cast(sum(Rechnungssumme) as Integer)
      else 0
    end as GU
  from tbl_rechnung
  where Rechnungsjahr between :VonJahr and :BisJahr
  and Belegart in ('RE','GU')
  group by Belegart, Rechnungsjahr
)
order by 1
  Mit Zitat antworten Zitat
Walter Landwehr

Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
346 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Berechnungen per SQL

  Alt 5. Feb 2017, 15:02
Hallo nahpets

das Ergebnis Deiner SQL Abfrage ist:
BEHANDLUNGSJAHR SUMME
2.008 18049
2.009 48023
2.010 61406
2.011 51508
2.012 32561
2.013 52201
2.014 21193
2.014 -115
2.015 4701
2.016 1701
2.017 21
2.017 -34

2014 und 2017 sollte aber in einer Zeile mit dem Ergebnis bei 2017 -13 sein.
Ist aber schon ganz nah dran.

Habe das Statement etwas geändert. Aus VarChar Integer gemacht, ansonsten kommt Fehler.


Delphi-Quellcode:
select Behandlungsjahr, RE - GU as Summe from
 (
   select
     Cast(Rechnungsjahr as Integer) as Behandlungsjahr,
     case Belegart
       when 'REthen cast(sum(Rechnungssumme) as Integer)
       else 0
     end as RE,
     case Belegart
       when 'GUthen cast(sum(Rechnungssumme) as Integer)
       else 0
     end as GU
   from tbl_rechnung
   where Rechnungsjahr between :VonJahr and :BisJahr
   and Belegart in ('RE','GU')
   group by Belegart, Rechnungsjahr
 )
order by 1
Walter Landwehr
Mfg

Walter
  Mit Zitat antworten Zitat
Walter Landwehr

Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
346 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: Berechnungen per SQL

  Alt 5. Feb 2017, 15:05
Hallo mkinzler,

Hier kommt der Fehler:
Invalid expression in the select list (not contained in either an aggregate function or the GROUP BY clause).
Walter Landwehr
Mfg

Walter
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#8

AW: Berechnungen per SQL

  Alt 5. Feb 2017, 15:09
Eventuell:
SQL-Code:
select Behandlungsjahr, Sum(RE - GU) as Summe from
 (
   select
     Cast(Rechnungsjahr as Integer) as Behandlungsjahr,
     case Belegart
       when 'REthen cast(sum(Rechnungssumme) as Integer)
       else 0
     end as RE,
     case Belegart
       when 'GUthen cast(sum(Rechnungssumme) as Integer)
       else 0
     end as GU
   from tbl_rechnung
   where Rechnungsjahr between :VonJahr and :BisJahr
   and Belegart in ('RE','GU')
   group by Belegart, Rechnungsjahr
 )
group by Behandlungsjahr
order by 1
Mich stören halt die Tausenderpunkte in der Jahreszahl, geht das eventuell auch so?
SQL-Code:
select Behandlungsjahr, Sum(RE - GU) as Summe from
 (
   select
     Cast(Rechnungsjahr as VarChar) as Behandlungsjahr,
     case Belegart
       when 'REthen cast(sum(Rechnungssumme) as Integer)
       else 0
     end as RE,
     case Belegart
       when 'GUthen cast(sum(Rechnungssumme) as Integer)
       else 0
     end as GU
   from tbl_rechnung
   where Rechnungsjahr between :VonJahr and :BisJahr
   and Belegart in ('RE','GU')
   group by Belegart, Cast(Rechnungsjahr as VarChar)
 )
group by Behandlungsjahr
order by 1
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.802 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: Berechnungen per SQL

  Alt 5. Feb 2017, 15:12
Zitat von Walter Landwehr:
Hier kommt der Fehler:
Invalid expression in the select list (not contained in either an aggregate function or the GROUP BY clause).
... cast(sum( iif(Belegart = 'RE', 0) - iif(Belegart = 'GU', 0)) as integer) as summe ...
Markus Kinzler

Geändert von mkinzler ( 5. Feb 2017 um 15:20 Uhr)
  Mit Zitat antworten Zitat
Walter Landwehr

Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
346 Beiträge
 
Delphi 10.4 Sydney
 
#10

AW: Berechnungen per SQL

  Alt 5. Feb 2017, 15:19
Hallo nahpets,

erste Abfrage passt. Super vielen Dank an alle.
Walter Landwehr
Mfg

Walter
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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