diff --git a/SDL/Classes/cKassenbuch.vb b/SDL/Classes/cKassenbuch.vb index f1cbf7ce..efe250b1 100644 --- a/SDL/Classes/cKassenbuch.vb +++ b/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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb index c50d5775..f8063fac 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb +++ b/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,