Anpassung Auswertung aus Ansicht

UID/frmMain/usrcntlAuftraege.vb

@@ -17,6 +17,21 @@ atr_frachtfab_firma,
 atr_frachtf_firma,
 atr_Auftragsart,
 atr_TransportauftragArt,
+Anzahl,
+Frächter,
+ShortAuftragsart,
+(Rechnungen/Anzahl) as Rechnungen,
+(Vorkosten/Anzahl) as Vorkosten,
+(Marge/Anzahl) as Marge
+
+from (select 
+atr_frachtpos,  
+atr_auftr_firma,
+atr_ladest_firma,
+atr_frachtfab_firma,
+atr_frachtf_firma,
+atr_Auftragsart,
+atr_TransportauftragArt,
 count(*) As Anzahl,
 case 
 	when atr_TransportauftragArt = 'NACH' then atr_frachtfab_firma
@@ -673,7 +688,7 @@ WHERE " & where & ""
     Private Sub btnSuchAuswertung_Click(sender As Object, e As EventArgs) Handles btnSuchAuswertung.Click
         Dim frmAus As New frmAuswertung
         SQLAuswerungAusAnsicht = Core_SQLAuswertungAusAnsicht & WhereInator3000() & " group by atr_frachtpos, atr_auftr_firma, atr_frachtfAb_firma, atr_frachtf_firma, atr_ladest_firma, atr_Auftragsart, atr_TransportauftragArt--, Anzahl
-ORDER BY atr_frachtpos"
+ ) as db1 ORDER BY atr_frachtpos"
         frmAus.Niederlassung = returnfil()
         frmAus.chkStandard.Checked = False
         frmAus.chkAusSuchererg.Checked = True