INV, Kassenbuch

SDL/Classes/cKassenbuch.vb

@@ -28,10 +28,6 @@ Public Class cKassenbuch
     Property rksv_BelegId As Object = Nothing
     Property rksv_aktiv As Boolean = False
     Property durchfuehrender_Benutzer As Integer = -1
-    Property FilialenNr As Integer
-    Property AbfertigungsNr As Integer
-    Property UnterNr As Integer = -1
-
     Property Trdin As Boolean = False
 
     Dim SQL As New SQL
@@ -109,9 +105,6 @@ Public Class cKassenbuch
                         Me.rksv_BelegId = cSqlDb.checkNullReturnValue(dr.Item("rksv_BelegId"), Nothing)
                         Me.rksv_aktiv = cSqlDb.checkNullReturnValue(dr.Item("rksv_aktiv"), False)
                         Me.durchfuehrender_Benutzer = cSqlDb.checkNullInteger(dr.Item("durchfuehrender_Benutzer"))
-                        Me.FilialenNr = cSqlDb.checkNullInteger(dr.Item("FilialenNr"))
-                        Me.AbfertigungsNr = cSqlDb.checkNullInteger(dr.Item("AbfertigungsNr"))
-                        Me.UnterNr = cSqlDb.checkNullInteger(dr.Item("UnterNr"))
                         Me.Trdin = cSqlDb.checkNullReturnValue(dr.Item("Trdin"), False)
 
 
@@ -159,11 +152,7 @@ Public Class cKassenbuch
         list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_BelegId", rksv_BelegId))
         list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_aktiv", rksv_aktiv))
         list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("durchfuehrender_Benutzer", durchfuehrender_Benutzer))
-
         list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Trdin", Trdin))
-        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("FilialenNr", FilialenNr))
-        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("AbfertigungsNr", AbfertigungsNr))
-        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("UnterNr", UnterNr))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb

@@ -787,23 +787,18 @@ Class TrdInvoice_FUNCTIONS
 
     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, min(tblKassenbuch.UnterNr) AS RK_UnterNr, 
+                                        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,