POS Terminal

SDL/Classes/cRKSV_POS.vb

@@ -7,6 +7,7 @@ Public Class cRKSV_POS
 
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Property pos_Id As Integer
+    Property pos_bezeichnung As String
     Property pos_aktiv As Object = Nothing
     Property pos_kasse As Object = Nothing
     Property pos_kassennr As Object = Nothing
@@ -29,13 +30,27 @@ Public Class cRKSV_POS
     Public hasEntry = False
 
 
-    Public Sub New(pos_Id)
+    Public Sub New(pos_Id, pos_kasse)
         Me.pos_Id = pos_Id
+        Me.pos_kasse = pos_kasse
+        LOAD()
+    End Sub
+
+    Public Sub New(pos_bezeichnung As String, pos_kasse As Integer, pos_aktiv As Boolean)
+        Me.pos_bezeichnung = pos_bezeichnung
+        Me.pos_kasse = pos_kasse
+        Me.pos_aktiv = pos_aktiv
+        SAVE()
+    End Sub
+
+    Public Sub New(pos_bezeichnung As String)
+        Me.pos_bezeichnung = pos_bezeichnung
         LOAD()
     End Sub
     Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_Id", pos_Id,, True))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_bezeichnung", pos_bezeichnung))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_aktiv", pos_aktiv))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kasse", pos_kasse))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kassennr", pos_kassennr))
@@ -50,7 +65,7 @@ Public Class cRKSV_POS
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kassendruck", pos_kassendruck))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_demoausdruck", pos_demoausdruck))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_demodummyausdruck", pos_demodummyausdruck))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_apos_pinktiv", pos_pin))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_pin", pos_pin))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_händerbeleg_drucken", pos_händerbeleg_drucken))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_storno", pos_storno))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_wartezeit", pos_wartezeit))
@@ -143,4 +158,8 @@ Public Class cRKSV_POS
     End Function
 
 
+    Public Sub delete()
+        SQL.doSQL("delete from [tblRKSV_POS] where pos_Id = '" & pos_Id & "' ", "FMZOLL")
+    End Sub
+
 End Class