diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
index d5e6bd56..bc87b31d 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
@@ -786,38 +786,25 @@ Class TrdInvoice_FUNCTIONS
     End Function
 
     Shared Function getSQLString_SELECTForTrdInvoice_Barverkauf(Mandant As String, Niederlassung As String, Konto As Integer, Optional Buchungsjahr As Integer = -1, Optional WithOrderClause As Boolean = True) 'NUR LEIHGELD-KASE ATILLA!
-        getSQLString_SELECTForTrdInvoice_Barverkauf = " 					   select max(tblKassenbuch.BelegDat) as RK_RechnungsDatum,max(tblKassenbuch.rksv_BelegId) as RK_RechnungsNr,max(tblKassenbuch.BelegDat) AS RK_Abfertigungsdatum, min([tblEABelegnummer].FilialenNr) as RK_FilialenNr, min([tblEABelegnummer].AbfertigungsNr) AS RK_AbfertigungsNr, 0 AS RK_UnterNr, 
-   case when SUM(soll) > 0 then
-     'Einnahme-LG'
-     else
-     'Ausgabe-LG'
-     end as RP_LeistungsBez,
-    0 as RP_Steuerpflichtig,
-     min(Buchungstext) as RK_Buchungstext,
-	  110 as RP_LeistungsNr,
-     0 AS RK_KundenNrZentrale, 
-     0 AS RK_RechnungsKundenNr, 
-     'AT' AS RK_RechnungsLandKz, 
-     '' AS RK_RechnungsUstIdKz, 
-     ''AS RK_RechnungsUstIdNr, 
-     0 AS RK_Lastschrift, 
-     0 AS RK_Steuerschlüssel, 
-     0 AS RK_SteuersatzProzent, 
-     'EUR' AS RK_Währungscode,
-     0 AS RK_Nettozahlungsziel, 
-     7 as Firma_ID,
-     0 AS RP_SteuerpflichtigerBetrag, 
-     (SUM(soll) + SUM(haben)) AS RP_SteuerfreierBetrag, 
-     0 AS RK_Steuerbetrag, 
-     (SUM(soll) + SUM(haben)) AS RK_Rechnungsbetrag,
-     Count(1) AS RP_Satzzähler,
-     '' as VZ,
-      1 as BV,
-     'KB' as Source,
-    '' as RP_Belegdaten,
-	  '' as AufschubkontoNr
-     FROM [tblKassenbuch] 
-    inner join [tblEABelegnummer] on [tblEABelegnummer].Mandant=tblKassenbuch.Mandant AND [tblEABelegnummer].Niederlassung=tblKassenbuch.Niederlassung AND [tblEABelegnummer].Benutzer=tblKassenbuch.Benutzer AND [tblEABelegnummer].BelegDat=tblKassenbuch.BelegDat AND [tblEABelegnummer].BelegNr=tblKassenbuch.BelegNr
+        getSQLString_SELECTForTrdInvoice_Barverkauf = " 					  select
+                                        max(tblKassenbuch.BelegDat) as RK_RechnungsDatum,max(tblKassenbuch.rksv_BelegId) as RK_RechnungsNr,max(tblKassenbuch.BelegDat) AS RK_Abfertigungsdatum, min([tblEABelegnummer].FilialenNr) as RK_FilialenNr, min([tblEABelegnummer].AbfertigungsNr) AS RK_AbfertigungsNr, 0 AS RK_UnterNr, 
+                                        case when SUM(soll) > 0 then
+                                        '31' --Einnahme 
+                                        else
+                                        '30' -- Ausgabe 
+                                        end as RK_BelegartenNr,
+										ISNULL(MIN(Buchungstext), '') + ' ' +ISNULL(MIN([LKW Kennzeichen]), '') + ' ' +ISNULL(MIN(Fahrer), '') AS RK_Buchungstext,
+										 case when SUM(soll) > 0 then
+                                        MIN(KundenNr)
+                                        else
+                                        2700
+                                        end as RK_KundenNrZentrale,
+										 0 AS RK_RechnungsKundenNr, 'AT' AS RK_RechnungsLandKz, '' AS RK_RechnungsUstIdKz, 
+                                        ''AS RK_RechnungsUstIdNr, 0 AS RK_Lastschrift, 0 AS RK_Steuerschlüssel, 0 AS RK_SteuersatzProzent, 'EUR' AS RK_Währungscode,
+                                        0 AS RK_Nettozahlungsziel, 7 as Firma_ID,0 AS RK_SteuerpflichtigerBetrag, (SUM(soll) + SUM(haben)) AS RK_SteuerfreierBetrag, 
+                                        0 AS RK_Steuerbetrag, (SUM(soll) + SUM(haben)) AS RK_Rechnungsbetrag,Count(1) AS RK_Satzzähler,'' as VZ,1 as BV,'KB' as Source
+                                        FROM [tblKassenbuch]
+					   inner join [tblEABelegnummer] on [tblEABelegnummer].Mandant=tblKassenbuch.Mandant AND [tblEABelegnummer].Niederlassung=tblKassenbuch.Niederlassung AND [tblEABelegnummer].Benutzer=tblKassenbuch.Benutzer AND [tblEABelegnummer].BelegDat=tblKassenbuch.BelegDat AND [tblEABelegnummer].BelegNr=tblKassenbuch.BelegNr
 					   WHERE tblKassenbuch.Mandant='" & Mandant & "' and tblKassenbuch.Niederlassung='" & Niederlassung & "'  And Konto= " & Konto & " and Trdin = 0 " & If(Buchungsjahr > 0, " and Year(cast(Buchungsdatum  as date)) =" & Buchungsjahr, "") & " 
 					   group by tblKassenbuch.rksv_BelegId, KundenNr HAVING case when SUM(soll) > 0 then MIN(KundenNr) else 2700 end > 0"