Barverkauf, etc.

SDL/Classes/cEABeleg.vb

@@ -22,7 +22,6 @@ Public Class EABelegPositionen
     Property Betrag As Double = 0
     Property Preisbindung As Integer = 0
     Property EABPo_Zeitstempel As DateTime = Now
-
     Property FilialenNr As Integer = -1
     Property AbfertigungsNr As Integer = -1
 
@@ -275,10 +274,14 @@ Public Class EABeleg
     Property Beleg_TYP As String = Nothing
     Property Auftraggeber_KdAuftragsnummer As Object = Nothing
     Property Auftraggeber_Provision As Object = Nothing
-
     Property LKW_Id As Object = Nothing
     Property LKW_Beleg As Object = Nothing
     Property Benutzer_LG As Object = Nothing
+    Property durchfuehrender_Benutzer As Object = Nothing
+    Property ECZahlungsNr As Object = Nothing
+    Property ECZahlungsPerAPI As Boolean = True
+    Property ECTerminalreturnCode As Object = Nothing
+    Property EC_daid As Integer = 0
 
 
     Property POS As New List(Of EABelegPositionen)
@@ -354,6 +357,11 @@ Public Class EABeleg
                         Me.LKW_Id = cSqlDb.checkNullReturnValue(dr.Item("LKW_Id"), Nothing)
                         Me.LKW_Beleg = cSqlDb.checkNullReturnValue(dr.Item("LKW_Beleg"), Nothing)
                         Me.Benutzer_LG = cSqlDb.checkNullReturnValue(dr.Item("Benutzer_LG"), Nothing)
+                        Me.durchfuehrender_Benutzer = cSqlDb.checkNullReturnValue(dr.Item("durchfuehrender_Benutzer"), -1)
+                        Me.ECZahlungsNr = cSqlDb.checkNullReturnValue(dr.Item("ECZahlungsNr"), Nothing)
+                        Me.ECZahlungsPerAPI = cSqlDb.checkNullReturnValue(dr.Item("ECZahlungsPerAPI"), Nothing)
+                        Me.ECTerminalreturnCode = cSqlDb.checkNullReturnValue(dr.Item("ECTerminalreturnCode"), Nothing)
+                        Me.EC_daid = cSqlDb.checkNullReturnValue(dr.Item("EC_daid"), Nothing)
 
                         If loadPosAswell Then POS = LOAD_POS_List(Mandant, Niederlassung, Benutzer, BelegNr, BelegDat)
                         ' MsgBox(POS.Count)
@@ -534,6 +542,12 @@ Public Class EABeleg
         list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LKW_Beleg", LKW_Beleg))
         list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Benutzer_LG", Benutzer_LG))
 
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("durchfuehrender_Benutzer", durchfuehrender_Benutzer))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("ECZahlungsNr", ECZahlungsNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("ECZahlungsPerAPI", ECZahlungsPerAPI))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("ECTerminalreturnCode", ECTerminalreturnCode))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("EC_daid", EC_daid))
+
         'For Each p As System.Reflection.PropertyInfo In Me.GetType().GetProperties()
         'If p.CanRead Then
         'Dim name = p.Name

SDL/Classes/cKassenbuch.vb

@@ -27,6 +27,7 @@ Public Class cKassenbuch
     Property rksv_id As Object = Nothing
     Property rksv_BelegId As Object = Nothing
     Property rksv_aktiv As Boolean = False
+    Property durchfuehrender_Benutzer As Integer = -1
 
     Dim SQL As New SQL
 
@@ -102,6 +103,7 @@ Public Class cKassenbuch
                         Me.rksv_id = cSqlDb.checkNullReturnValue(dr.Item("rksv_id"), Nothing)
                         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"))
 
 
 
@@ -147,6 +149,7 @@ Public Class cKassenbuch
         list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_id", rksv_id))
         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))
 
         Return list
     End Function

SDL/Classes/cRKSV.vb

@@ -2234,6 +2234,7 @@ Public Class cRKSV
                     KBEntry.Belegverbuchung = True
                     KBEntry.gebucht = True
                     KBEntry.Finanzwege = Finanzwege
+                    KBEntry.durchfuehrender_Benutzer = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
 
                     If Not KBEntry.INSERT() Then
                         Return False
@@ -2288,6 +2289,7 @@ Public Class cRKSV
                         KBEntryGB.Belegverbuchung = True
                         KBEntryGB.gebucht = True
                         KBEntryGB.Finanzwege = Finanzwege
+                        KBEntryGB.durchfuehrender_Benutzer = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
 
                         If Not KBEntryGB.INSERT() Then
                             Return False
@@ -2322,6 +2324,7 @@ Public Class cRKSV
 
                         KBEntryST.Belegverbuchung = True
                         KBEntryST.gebucht = True
+                        KBEntryST.durchfuehrender_Benutzer = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
 
                         If Not KBEntryST.INSERT() Then
                             Return False
@@ -2378,6 +2381,7 @@ Public Class cRKSV
                             KBEntryEC.Belegverbuchung = True
                             KBEntryEC.gebucht = True
                             KBEntryEC.Finanzwege = Finanzwege
+                            KBEntryEC.durchfuehrender_Benutzer = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
 
                             If Not KBEntryEC.INSERT() Then
                                 Return False