Merge branch 'POSPayment'

SDL/Classes/cRKSV.vb

@@ -1061,7 +1061,7 @@ Public Class cRKSV
     End Function
 
     'cboPrinter.SelectedItem.ToString
-    Public Shared Function printKundenBeleg(BELEG As EABeleg, KASSE As cRKSV_Kasse, PERSONAL As cPersonal, printername As String, showDok As Boolean) As Boolean
+    Public Shared Function printKundenBeleg(BELEG As EABeleg, KASSE As cRKSV_Kasse, PERSONAL As cPersonal, printername As String, showDok As Boolean, Optional POSPayment As Boolean = False) As Boolean
 
         'Dim print As New frmPrintLayout
 
@@ -1238,6 +1238,10 @@ Public Class cRKSV
                                                  rpt.lblGesamtbetrag.Text = CDbl(sum + (sum * s)).ToString("C")
                                                  If sum < 0 Then rpt.Label2.Text = "Rechnungskorrektur Nr."
                                              End Sub
+        If False Then 'POSPayment Then
+            'Dim Pos = New frmPOSTerminal(rpt, sum)
+            'Pos.ShowDialog()
+        End If
 
         'PaperKind = System.Drawing.Printing.PaperKind.Custom
         ' Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.Custom

SDL/Classes/cRKSV_POS.vb

@@ -0,0 +1,165 @@
+
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+
+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
+    Property pos_com As Object = Nothing
+    Property pos_baudrate As Object = Nothing
+    Property pos_comspeed As Object = Nothing
+    Property pos_comstop As Object = Nothing
+    Property pos_ip As Object = Nothing
+    Property pos_port As Object = Nothing
+    Property pos_typ As Object = Nothing
+    Property pos_lizenz As Object = Nothing
+    Property pos_kassendruck As Object = Nothing
+    Property pos_demoausdruck As Object = Nothing
+    Property pos_demodummyausdruck As Object = Nothing
+    Property pos_pin As Object = Nothing
+    Property pos_händerbeleg_drucken As Object = Nothing
+    Property pos_storno As Object = Nothing
+    Property pos_wartezeit As Object = Nothing
+
+    Public hasEntry = False
+
+
+    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))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_com", pos_com))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_baudrate", pos_baudrate))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_comspeed", pos_comspeed))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_comstop", pos_comstop))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_ip", pos_ip))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_port", pos_port))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_typ", pos_typ))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_lizenz", pos_lizenz))
+        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_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))
+
+        Return list
+    End Function
+
+
+
+    Public Function SAVE() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblRKSV_POS  WHERE pos_Id=@pos_Id) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+
+        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+    End Function
+
+    Public Sub LOAD()
+        Try
+            hasEntry = False
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblRKSV_POS WHERE pos_Id=@pos_Id  ", conn)
+                    cmd.Parameters.AddWithValue("@pos_Id", pos_Id)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
+
+
+    Public Function getUpdateCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+            Dim str As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            Return (" UPDATE [tblRKSV_POS] SET " & str & " WHERE pos_Id=@pos_Id ")
+
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
+
+
+    Public Function getInsertCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim str As String = ""
+            Dim values As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "],"
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO tblRKSV_POS  (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
+
+
+    Public Sub delete()
+        SQL.doSQL("delete from [tblRKSV_POS] where pos_Id = '" & pos_Id & "' ", "FMZOLL")
+    End Sub
+
+End Class

SDL/SDL.vbproj

@@ -512,6 +512,7 @@
     <Compile Include="Classes\cGenWord.vb" />
     <Compile Include="Classes\cRKSV.vb" />
     <Compile Include="Classes\cRKSV_Kasse.vb" />
+    <Compile Include="Classes\cRKSV_POS.vb" />
     <Compile Include="Classes\cSDL.vb" />
     <Compile Include="Classes\cSDLAbholung.vb" />
     <Compile Include="Classes\cGeschaeftsjahr.vb" />
@@ -578,6 +579,12 @@
     <Compile Include="frmEssensbestellungen.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="kassenbuch\frmPOSTerminal.Designer.vb">
+      <DependentUpon>frmPOSTerminal.vb</DependentUpon>
+    </Compile>
+    <Compile Include="kassenbuch\frmPOSTerminal.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="kunden\frmKundenBesonderheiten_Add.Designer.vb">
       <DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
     </Compile>
@@ -2835,6 +2842,9 @@
     <EmbeddedResource Include="frmEssensbestellungen.resx">
       <DependentUpon>frmEssensbestellungen.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="kassenbuch\frmPOSTerminal.resx">
+      <DependentUpon>frmPOSTerminal.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="kunden\frmKundenBesonderheiten_Add.resx">
       <DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
     </EmbeddedResource>

SDL/kassenbuch/frmBelegNeu.Designer.vb

@@ -22,6 +22,7 @@ Partial Class frmBelegNeu
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBelegNeu))
         Me.dgvBelegPos = New System.Windows.Forms.DataGridView()
         Me.clmnAnzahl = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -97,6 +98,7 @@ Partial Class frmBelegNeu
         Me.Label1 = New System.Windows.Forms.Label()
         Me.kdkunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
         Me.pnlOPt = New System.Windows.Forms.Panel()
+        Me.btnPOS = New System.Windows.Forms.Button()
         Me.cbxBelegOffnen = New System.Windows.Forms.CheckBox()
         Me.lblStorno = New System.Windows.Forms.Label()
         Me.Label17 = New System.Windows.Forms.Label()
@@ -135,6 +137,7 @@ Partial Class frmBelegNeu
         Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         CType(Me.dgvBelegPos, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnl.SuspendLayout()
         Me.pnlData.SuspendLayout()
@@ -423,12 +426,12 @@ Partial Class frmBelegNeu
         '
         Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnPrint.ForeColor = System.Drawing.Color.Black
-        Me.btnPrint.Image = Global.SDL.My.Resources.printer2
+        Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2
         Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnPrint.Location = New System.Drawing.Point(475, 33)
+        Me.btnPrint.Location = New System.Drawing.Point(556, 33)
         Me.btnPrint.Name = "btnPrint"
         Me.btnPrint.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
-        Me.btnPrint.Size = New System.Drawing.Size(145, 59)
+        Me.btnPrint.Size = New System.Drawing.Size(64, 59)
         Me.btnPrint.TabIndex = 13
         Me.btnPrint.Text = "Beleg drucken" & Global.Microsoft.VisualBasic.ChrW(10) & "und buchen"
         Me.btnPrint.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -501,12 +504,15 @@ Partial Class frmBelegNeu
         Me.txtAbfertigungsNr._DateTimeOnly = False
         Me.txtAbfertigungsNr._numbersOnly = False
         Me.txtAbfertigungsNr._numbersOnlyKommastellen = ""
+        Me.txtAbfertigungsNr._numbersOnlyTrennzeichen = True
         Me.txtAbfertigungsNr._Prozent = False
         Me.txtAbfertigungsNr._ShortDateNew = False
         Me.txtAbfertigungsNr._ShortDateOnly = False
         Me.txtAbfertigungsNr._TimeOnly = False
+        Me.txtAbfertigungsNr._TimeOnly_Seconds = False
         Me.txtAbfertigungsNr._value = Nothing
         Me.txtAbfertigungsNr._Waehrung = False
+        Me.txtAbfertigungsNr._WaehrungZeichen = True
         Me.txtAbfertigungsNr.ForeColor = System.Drawing.Color.Black
         Me.txtAbfertigungsNr.Location = New System.Drawing.Point(266, 259)
         Me.txtAbfertigungsNr.MaxLength = 8
@@ -679,12 +685,15 @@ Partial Class frmBelegNeu
         Me.txtzuKassieren._DateTimeOnly = False
         Me.txtzuKassieren._numbersOnly = False
         Me.txtzuKassieren._numbersOnlyKommastellen = ""
+        Me.txtzuKassieren._numbersOnlyTrennzeichen = True
         Me.txtzuKassieren._Prozent = False
         Me.txtzuKassieren._ShortDateNew = False
         Me.txtzuKassieren._ShortDateOnly = False
         Me.txtzuKassieren._TimeOnly = False
+        Me.txtzuKassieren._TimeOnly_Seconds = False
         Me.txtzuKassieren._value = Nothing
         Me.txtzuKassieren._Waehrung = True
+        Me.txtzuKassieren._WaehrungZeichen = True
         Me.txtzuKassieren.Enabled = False
         Me.txtzuKassieren.ForeColor = System.Drawing.Color.Black
         Me.txtzuKassieren.Location = New System.Drawing.Point(441, 133)
@@ -757,7 +766,7 @@ Partial Class frmBelegNeu
         '
         Me.btnOfferte.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnOfferte.ForeColor = System.Drawing.Color.Black
-        Me.btnOfferte.Image = Global.SDL.My.Resources.list
+        Me.btnOfferte.Image = Global.SDL.My.Resources.Resources.list
         Me.btnOfferte.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnOfferte.Location = New System.Drawing.Point(212, 6)
         Me.btnOfferte.Name = "btnOfferte"
@@ -786,12 +795,15 @@ Partial Class frmBelegNeu
         Me.lblAtrKdNr._DateTimeOnly = False
         Me.lblAtrKdNr._numbersOnly = False
         Me.lblAtrKdNr._numbersOnlyKommastellen = ""
+        Me.lblAtrKdNr._numbersOnlyTrennzeichen = True
         Me.lblAtrKdNr._Prozent = False
         Me.lblAtrKdNr._ShortDateNew = False
         Me.lblAtrKdNr._ShortDateOnly = False
         Me.lblAtrKdNr._TimeOnly = False
+        Me.lblAtrKdNr._TimeOnly_Seconds = False
         Me.lblAtrKdNr._value = Nothing
         Me.lblAtrKdNr._Waehrung = False
+        Me.lblAtrKdNr._WaehrungZeichen = True
         Me.lblAtrKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer))
         Me.lblAtrKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.lblAtrKdNr.ForeColor = System.Drawing.Color.Black
@@ -810,12 +822,15 @@ Partial Class frmBelegNeu
         Me.lblkundeKdNr._DateTimeOnly = False
         Me.lblkundeKdNr._numbersOnly = False
         Me.lblkundeKdNr._numbersOnlyKommastellen = ""
+        Me.lblkundeKdNr._numbersOnlyTrennzeichen = True
         Me.lblkundeKdNr._Prozent = False
         Me.lblkundeKdNr._ShortDateNew = False
         Me.lblkundeKdNr._ShortDateOnly = False
         Me.lblkundeKdNr._TimeOnly = False
+        Me.lblkundeKdNr._TimeOnly_Seconds = False
         Me.lblkundeKdNr._value = Nothing
         Me.lblkundeKdNr._Waehrung = False
+        Me.lblkundeKdNr._WaehrungZeichen = True
         Me.lblkundeKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer))
         Me.lblkundeKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.lblkundeKdNr.ForeColor = System.Drawing.Color.Black
@@ -858,12 +873,15 @@ Partial Class frmBelegNeu
         Me.lblKunde_UstId_Land._DateTimeOnly = False
         Me.lblKunde_UstId_Land._numbersOnly = False
         Me.lblKunde_UstId_Land._numbersOnlyKommastellen = ""
+        Me.lblKunde_UstId_Land._numbersOnlyTrennzeichen = True
         Me.lblKunde_UstId_Land._Prozent = False
         Me.lblKunde_UstId_Land._ShortDateNew = False
         Me.lblKunde_UstId_Land._ShortDateOnly = False
         Me.lblKunde_UstId_Land._TimeOnly = False
+        Me.lblKunde_UstId_Land._TimeOnly_Seconds = False
         Me.lblKunde_UstId_Land._value = Nothing
         Me.lblKunde_UstId_Land._Waehrung = False
+        Me.lblKunde_UstId_Land._WaehrungZeichen = True
         Me.lblKunde_UstId_Land.ForeColor = System.Drawing.Color.Black
         Me.lblKunde_UstId_Land.Location = New System.Drawing.Point(62, 117)
         Me.lblKunde_UstId_Land.MaxLength = 2
@@ -879,12 +897,15 @@ Partial Class frmBelegNeu
         Me.lblKunde_UstId_Nr._DateTimeOnly = False
         Me.lblKunde_UstId_Nr._numbersOnly = False
         Me.lblKunde_UstId_Nr._numbersOnlyKommastellen = ""
+        Me.lblKunde_UstId_Nr._numbersOnlyTrennzeichen = True
         Me.lblKunde_UstId_Nr._Prozent = False
         Me.lblKunde_UstId_Nr._ShortDateNew = False
         Me.lblKunde_UstId_Nr._ShortDateOnly = False
         Me.lblKunde_UstId_Nr._TimeOnly = False
+        Me.lblKunde_UstId_Nr._TimeOnly_Seconds = False
         Me.lblKunde_UstId_Nr._value = Nothing
         Me.lblKunde_UstId_Nr._Waehrung = False
+        Me.lblKunde_UstId_Nr._WaehrungZeichen = True
         Me.lblKunde_UstId_Nr.ForeColor = System.Drawing.Color.Black
         Me.lblKunde_UstId_Nr.Location = New System.Drawing.Point(120, 117)
         Me.lblKunde_UstId_Nr.MaxLength = 12
@@ -900,12 +921,15 @@ Partial Class frmBelegNeu
         Me.txtSteuersatz._DateTimeOnly = False
         Me.txtSteuersatz._numbersOnly = False
         Me.txtSteuersatz._numbersOnlyKommastellen = ""
+        Me.txtSteuersatz._numbersOnlyTrennzeichen = True
         Me.txtSteuersatz._Prozent = True
         Me.txtSteuersatz._ShortDateNew = False
         Me.txtSteuersatz._ShortDateOnly = False
         Me.txtSteuersatz._TimeOnly = False
+        Me.txtSteuersatz._TimeOnly_Seconds = False
         Me.txtSteuersatz._value = Nothing
         Me.txtSteuersatz._Waehrung = False
+        Me.txtSteuersatz._WaehrungZeichen = True
         Me.txtSteuersatz.ForeColor = System.Drawing.Color.Black
         Me.txtSteuersatz.Location = New System.Drawing.Point(441, 77)
         Me.txtSteuersatz.MaxLineLength = -1
@@ -945,12 +969,15 @@ Partial Class frmBelegNeu
         Me.lblFrachtf_Pass._DateTimeOnly = False
         Me.lblFrachtf_Pass._numbersOnly = False
         Me.lblFrachtf_Pass._numbersOnlyKommastellen = ""
+        Me.lblFrachtf_Pass._numbersOnlyTrennzeichen = True
         Me.lblFrachtf_Pass._Prozent = False
         Me.lblFrachtf_Pass._ShortDateNew = False
         Me.lblFrachtf_Pass._ShortDateOnly = False
         Me.lblFrachtf_Pass._TimeOnly = False
+        Me.lblFrachtf_Pass._TimeOnly_Seconds = False
         Me.lblFrachtf_Pass._value = Nothing
         Me.lblFrachtf_Pass._Waehrung = False
+        Me.lblFrachtf_Pass._WaehrungZeichen = True
         Me.lblFrachtf_Pass.ForeColor = System.Drawing.Color.Black
         Me.lblFrachtf_Pass.Location = New System.Drawing.Point(441, 182)
         Me.lblFrachtf_Pass.MaxLength = 15
@@ -966,12 +993,15 @@ Partial Class frmBelegNeu
         Me.lblKunde_Land._DateTimeOnly = False
         Me.lblKunde_Land._numbersOnly = False
         Me.lblKunde_Land._numbersOnlyKommastellen = ""
+        Me.lblKunde_Land._numbersOnlyTrennzeichen = True
         Me.lblKunde_Land._Prozent = False
         Me.lblKunde_Land._ShortDateNew = False
         Me.lblKunde_Land._ShortDateOnly = False
         Me.lblKunde_Land._TimeOnly = False
+        Me.lblKunde_Land._TimeOnly_Seconds = False
         Me.lblKunde_Land._value = Nothing
         Me.lblKunde_Land._Waehrung = False
+        Me.lblKunde_Land._WaehrungZeichen = True
         Me.lblKunde_Land.ForeColor = System.Drawing.Color.Black
         Me.lblKunde_Land.Location = New System.Drawing.Point(8, 98)
         Me.lblKunde_Land.MaxLength = 3
@@ -987,12 +1017,15 @@ Partial Class frmBelegNeu
         Me.lblFrachtf_Fahrer._DateTimeOnly = False
         Me.lblFrachtf_Fahrer._numbersOnly = False
         Me.lblFrachtf_Fahrer._numbersOnlyKommastellen = ""
+        Me.lblFrachtf_Fahrer._numbersOnlyTrennzeichen = True
         Me.lblFrachtf_Fahrer._Prozent = False
         Me.lblFrachtf_Fahrer._ShortDateNew = False
         Me.lblFrachtf_Fahrer._ShortDateOnly = False
         Me.lblFrachtf_Fahrer._TimeOnly = False
+        Me.lblFrachtf_Fahrer._TimeOnly_Seconds = False
         Me.lblFrachtf_Fahrer._value = Nothing
         Me.lblFrachtf_Fahrer._Waehrung = False
+        Me.lblFrachtf_Fahrer._WaehrungZeichen = True
         Me.lblFrachtf_Fahrer.ForeColor = System.Drawing.Color.Black
         Me.lblFrachtf_Fahrer.Location = New System.Drawing.Point(441, 163)
         Me.lblFrachtf_Fahrer.MaxLength = 40
@@ -1008,12 +1041,15 @@ Partial Class frmBelegNeu
         Me.lblKunde_Plz._DateTimeOnly = False
         Me.lblKunde_Plz._numbersOnly = False
         Me.lblKunde_Plz._numbersOnlyKommastellen = ""
+        Me.lblKunde_Plz._numbersOnlyTrennzeichen = True
         Me.lblKunde_Plz._Prozent = False
         Me.lblKunde_Plz._ShortDateNew = False
         Me.lblKunde_Plz._ShortDateOnly = False
         Me.lblKunde_Plz._TimeOnly = False
+        Me.lblKunde_Plz._TimeOnly_Seconds = False
         Me.lblKunde_Plz._value = Nothing
         Me.lblKunde_Plz._Waehrung = False
+        Me.lblKunde_Plz._WaehrungZeichen = True
         Me.lblKunde_Plz.ForeColor = System.Drawing.Color.Black
         Me.lblKunde_Plz.Location = New System.Drawing.Point(34, 98)
         Me.lblKunde_Plz.MaxLength = 7
@@ -1029,12 +1065,15 @@ Partial Class frmBelegNeu
         Me.lblKunde_Strasse._DateTimeOnly = False
         Me.lblKunde_Strasse._numbersOnly = False
         Me.lblKunde_Strasse._numbersOnlyKommastellen = ""
+        Me.lblKunde_Strasse._numbersOnlyTrennzeichen = True
         Me.lblKunde_Strasse._Prozent = False
         Me.lblKunde_Strasse._ShortDateNew = False
         Me.lblKunde_Strasse._ShortDateOnly = False
         Me.lblKunde_Strasse._TimeOnly = False
+        Me.lblKunde_Strasse._TimeOnly_Seconds = False
         Me.lblKunde_Strasse._value = Nothing
         Me.lblKunde_Strasse._Waehrung = False
+        Me.lblKunde_Strasse._WaehrungZeichen = True
         Me.lblKunde_Strasse.ForeColor = System.Drawing.Color.Black
         Me.lblKunde_Strasse.Location = New System.Drawing.Point(8, 79)
         Me.lblKunde_Strasse.MaxLength = 40
@@ -1050,12 +1089,15 @@ Partial Class frmBelegNeu
         Me.lblFrachtf_LKWNr._DateTimeOnly = False
         Me.lblFrachtf_LKWNr._numbersOnly = False
         Me.lblFrachtf_LKWNr._numbersOnlyKommastellen = ""
+        Me.lblFrachtf_LKWNr._numbersOnlyTrennzeichen = True
         Me.lblFrachtf_LKWNr._Prozent = False
         Me.lblFrachtf_LKWNr._ShortDateNew = False
         Me.lblFrachtf_LKWNr._ShortDateOnly = False
         Me.lblFrachtf_LKWNr._TimeOnly = False
+        Me.lblFrachtf_LKWNr._TimeOnly_Seconds = False
         Me.lblFrachtf_LKWNr._value = Nothing
         Me.lblFrachtf_LKWNr._Waehrung = False
+        Me.lblFrachtf_LKWNr._WaehrungZeichen = True
         Me.lblFrachtf_LKWNr.ForeColor = System.Drawing.Color.Black
         Me.lblFrachtf_LKWNr.Location = New System.Drawing.Point(110, 164)
         Me.lblFrachtf_LKWNr.MaxLength = 25
@@ -1071,12 +1113,15 @@ Partial Class frmBelegNeu
         Me.lblKunde_Ort._DateTimeOnly = False
         Me.lblKunde_Ort._numbersOnly = False
         Me.lblKunde_Ort._numbersOnlyKommastellen = ""
+        Me.lblKunde_Ort._numbersOnlyTrennzeichen = True
         Me.lblKunde_Ort._Prozent = False
         Me.lblKunde_Ort._ShortDateNew = False
         Me.lblKunde_Ort._ShortDateOnly = False
         Me.lblKunde_Ort._TimeOnly = False
+        Me.lblKunde_Ort._TimeOnly_Seconds = False
         Me.lblKunde_Ort._value = Nothing
         Me.lblKunde_Ort._Waehrung = False
+        Me.lblKunde_Ort._WaehrungZeichen = True
         Me.lblKunde_Ort.ForeColor = System.Drawing.Color.Black
         Me.lblKunde_Ort.Location = New System.Drawing.Point(92, 98)
         Me.lblKunde_Ort.MaxLength = 40
@@ -1100,6 +1145,7 @@ Partial Class frmBelegNeu
         '
         'kdkunde
         '
+        Me.kdkunde._AlleFirmenCLUSTER = False
         Me.kdkunde._AllowSetValue = True
         Me.kdkunde._autoSizeGross = False
         Me.kdkunde._display_Name1 = False
@@ -1108,6 +1154,7 @@ Partial Class frmBelegNeu
         Me.kdkunde._displayWoelflKd = False
         Me.kdkunde._hideIfListEmpty = True
         Me.kdkunde._loadKdData = True
+        Me.kdkunde._UseFIRMA = ""
         Me.kdkunde._ValueKdAndName = False
         Me.kdkunde.dgvpos = "LEFT"
         Me.kdkunde.KdName = Nothing
@@ -1121,10 +1168,12 @@ Partial Class frmBelegNeu
         Me.kdkunde.searchActive = True
         Me.kdkunde.Size = New System.Drawing.Size(331, 20)
         Me.kdkunde.TabIndex = 10
+        Me.kdkunde.TIMER_SEARCH = True
         Me.kdkunde.usrcntl = Nothing
         '
         'pnlOPt
         '
+        Me.pnlOPt.Controls.Add(Me.btnPOS)
         Me.pnlOPt.Controls.Add(Me.cbxBelegOffnen)
         Me.pnlOPt.Controls.Add(Me.lblStorno)
         Me.pnlOPt.Controls.Add(Me.Label17)
@@ -1147,6 +1196,20 @@ Partial Class frmBelegNeu
         Me.pnlOPt.Size = New System.Drawing.Size(624, 92)
         Me.pnlOPt.TabIndex = 6
         '
+        'btnPOS
+        '
+        Me.btnPOS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnPOS.ForeColor = System.Drawing.Color.Black
+        Me.btnPOS.Image = Global.SDL.My.Resources.Resources.verag_Card1
+        Me.btnPOS.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnPOS.Location = New System.Drawing.Point(486, 33)
+        Me.btnPOS.Name = "btnPOS"
+        Me.btnPOS.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
+        Me.btnPOS.Size = New System.Drawing.Size(64, 59)
+        Me.btnPOS.TabIndex = 16
+        Me.btnPOS.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnPOS.UseVisualStyleBackColor = True
+        '
         'cbxBelegOffnen
         '
         Me.cbxBelegOffnen.AutoSize = True
@@ -1210,7 +1273,7 @@ Partial Class frmBelegNeu
         '
         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button3.ForeColor = System.Drawing.Color.Black
-        Me.Button3.Image = Global.SDL.My.Resources.save
+        Me.Button3.Image = Global.SDL.My.Resources.Resources.save
         Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button3.Location = New System.Drawing.Point(590, 67)
         Me.Button3.Name = "Button3"
@@ -1347,12 +1410,15 @@ Partial Class frmBelegNeu
         Me.txtEinzelpreis._DateTimeOnly = False
         Me.txtEinzelpreis._numbersOnly = True
         Me.txtEinzelpreis._numbersOnlyKommastellen = "2"
+        Me.txtEinzelpreis._numbersOnlyTrennzeichen = True
         Me.txtEinzelpreis._Prozent = False
         Me.txtEinzelpreis._ShortDateNew = False
         Me.txtEinzelpreis._ShortDateOnly = False
         Me.txtEinzelpreis._TimeOnly = False
+        Me.txtEinzelpreis._TimeOnly_Seconds = False
         Me.txtEinzelpreis._value = ""
         Me.txtEinzelpreis._Waehrung = False
+        Me.txtEinzelpreis._WaehrungZeichen = True
         Me.txtEinzelpreis.Enabled = False
         Me.txtEinzelpreis.ForeColor = System.Drawing.Color.Red
         Me.txtEinzelpreis.Location = New System.Drawing.Point(-1, 179)
@@ -1369,12 +1435,15 @@ Partial Class frmBelegNeu
         Me.MyTextBox1._DateTimeOnly = False
         Me.MyTextBox1._numbersOnly = False
         Me.MyTextBox1._numbersOnlyKommastellen = ""
+        Me.MyTextBox1._numbersOnlyTrennzeichen = True
         Me.MyTextBox1._Prozent = False
         Me.MyTextBox1._ShortDateNew = False
         Me.MyTextBox1._ShortDateOnly = False
         Me.MyTextBox1._TimeOnly = False
+        Me.MyTextBox1._TimeOnly_Seconds = False
         Me.MyTextBox1._value = ""
         Me.MyTextBox1._Waehrung = False
+        Me.MyTextBox1._WaehrungZeichen = True
         Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
         Me.MyTextBox1.Location = New System.Drawing.Point(0, 0)
         Me.MyTextBox1.MaxLineLength = -1
@@ -1483,6 +1552,7 @@ Partial Class frmBelegNeu
         '
         'kdFrachtf
         '
+        Me.kdFrachtf._AlleFirmenCLUSTER = False
         Me.kdFrachtf._AllowSetValue = True
         Me.kdFrachtf._autoSizeGross = False
         Me.kdFrachtf._display_Name1 = False
@@ -1491,6 +1561,7 @@ Partial Class frmBelegNeu
         Me.kdFrachtf._displayWoelflKd = False
         Me.kdFrachtf._hideIfListEmpty = True
         Me.kdFrachtf._loadKdData = True
+        Me.kdFrachtf._UseFIRMA = ""
         Me.kdFrachtf._ValueKdAndName = False
         Me.kdFrachtf.dgvpos = "LEFT"
         Me.kdFrachtf.KdName = Nothing
@@ -1504,6 +1575,7 @@ Partial Class frmBelegNeu
         Me.kdFrachtf.searchActive = True
         Me.kdFrachtf.Size = New System.Drawing.Size(331, 20)
         Me.kdFrachtf.TabIndex = 30
+        Me.kdFrachtf.TIMER_SEARCH = True
         Me.kdFrachtf.usrcntl = Nothing
         Me.kdFrachtf.Visible = False
         '
@@ -1591,6 +1663,11 @@ Partial Class frmBelegNeu
         Me.FlowLayoutPanel2.TabIndex = 3
         Me.FlowLayoutPanel2.Visible = False
         '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
+        '
         'frmBelegNeu
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1730,4 +1807,6 @@ Partial Class frmBelegNeu
     Friend WithEvents Label8 As System.Windows.Forms.Label
     Friend WithEvents txtzuKassieren As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label22 As System.Windows.Forms.Label
+    Friend WithEvents btnPOS As Button
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
 End Class

SDL/kassenbuch/frmBelegNeu.resx

@@ -156,6 +156,9 @@
   <metadata name="FilialenNr.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

SDL/kassenbuch/frmBelegNeu.vb

@@ -1,7 +1,12 @@
 Imports System.Data.SqlClient
 Imports System.Drawing.Printing
 Imports System.Globalization
+Imports com.sun.org.apache.xpath.internal.operations
+Imports com.sun.xml.internal.ws.api.model
+Imports DAKOSY_Worker.DEXPRD
+Imports Microsoft.Win32
 Imports SDL.RKSVServer
+Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class frmBelegNeu
     Implements System.ComponentModel.INotifyPropertyChanged
@@ -27,6 +32,13 @@ Public Class frmBelegNeu
     Public printErfolgreich = False
     Public defaultPrinter = ""
 
+    Private EasyZVT_Worker As System.ComponentModel.BackgroundWorker = New System.ComponentModel.BackgroundWorker()
+    Private Funktion As Integer
+    Private Betrag As Integer = 0
+    Private posTerminal As cRKSV_POS
+    Private dt As DataTable
+    Private setBreak As Boolean = True
+    Dim sourceCnTxt As Control = Nothing
 
 
     Public aktFiliale As Integer = 0
@@ -226,7 +238,7 @@ Public Class frmBelegNeu
                 Label17.Visible = True
                 btnPrint.Text = "Beleg Kopie" & vbNewLine & "drucken"
             End If
-             
+
             If BELEG.Belegart = "1" Then
                 EA = "E"
                 Label19.Text = "Kunden-Beleg"
@@ -245,7 +257,7 @@ Public Class frmBelegNeu
             init()
         End If
 
-     
+
         initArt() 'Einnahme/AusgabeBeleg
 
         lblMandant_niederlassung.Text = PERSONAL.Niederlassung
@@ -279,6 +291,17 @@ Public Class frmBelegNeu
             cboFiliale.Enabled = False
         End If
 
+        AddHandler EasyZVT_Worker.DoWork, New ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async)
+        AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted)
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kassenbuch POS-Terminalzahlungen", Me) = 0 Then
+            btnPOS.Enabled = False
+        Else
+            btnPOS.Enabled = True
+        End If
+
+
+
     End Sub
 
 
@@ -306,7 +329,7 @@ Public Class frmBelegNeu
             Case Else : cbxSplittung.Checked = Not If(BELEG.LKW_Beleg, False)
         End Select
 
-        
+
 
         aktFiliale = BELEG.FilialenNr
         aktAbfertigungsNr = BELEG.AbfertigungsNr
@@ -721,15 +744,20 @@ Public Class frmBelegNeu
 
 
     ' Dim RKSV_Service_Location = "\\192.168.0.106:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/"
-    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
+    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click ', btnPOS.Click
 
+        Dim IsPosPayment As Boolean = False
+
+        If sender.Name = "btnPOS" Then
+            IsPosPayment = True
+        End If
         Try
             printErfolgreich = False
             If BELEG.gebucht Or BELEG.gebuchtStorno Then
                 '  KASSE.LOAD(cboKassen._value)
                 If BELEG.rksv_id > 0 Then KASSE.LOAD(BELEG.rksv_id)
                 Select Case BELEG.Belegart
-                    Case "1" : If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then Me.Close()
+                    Case "1" : If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked, IsPosPayment) Then Me.Close()
                     Case "2" : If cRKSV.printKundenBelegLG(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, "LG") Then Me.Close() 'Beleg drucken 
                 End Select
             Else
@@ -853,10 +881,16 @@ Public Class frmBelegNeu
                 Me.DialogResult = Windows.Forms.DialogResult.OK
                 'printBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString) 'Beleg drucken
 
+                If IsPosPayment And Betrag > 0 Then
+                    POSpayment(sender, e)
+                    While setBreak
+                        System.Threading.Thread.Sleep(5000)
+                    End While
+                End If
 
                 Select Case BELEG.Belegart
                     Case "1"
-                        If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
+                        If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked, IsPosPayment) Then
                             'WARTEN
                             printErfolgreich = True
                         End If
@@ -898,6 +932,8 @@ Public Class frmBelegNeu
                 Me.Cursor = Cursors.Default
             End If
 
+
+
         Catch ex As Exception
             Me.DialogResult = Windows.Forms.DialogResult.None
             Me.Cursor = Cursors.Default
@@ -1099,7 +1135,8 @@ Public Class frmBelegNeu
         '  If EA = "E" Then
         lblBetrag_Netto.Text = sum.ToString("C")
         lblBetrag_Steuern.Text = (sum * txtSteuersatz._value).ToString("C")
-        lblBetrag_Brutto.Text = (sum + sum * txtSteuersatz._value).ToString("C")
+        Betrag = (sum + sum * txtSteuersatz._value)
+        lblBetrag_Brutto.Text = (Betrag).ToString("C")
         '  Else
         '  lblBetrag_Netto.Text = (-1 * sum).ToString("C")
         '   lblBetrag_Steuern.Text = (-1 * (sum * txtSteuersatz._value)).ToString("C")
@@ -1416,7 +1453,8 @@ Public Class frmBelegNeu
         End If
     End Sub
 
-    
+
+
 
     Function cntPosFilAbf(FilialenNr, AbfertigungsNr) As Integer
         For Each b In BELEG.POS
@@ -1455,13 +1493,177 @@ Public Class frmBelegNeu
             End If
 
         Next
-        
+
         'neu Laden
         FlowLayoutPanel.Controls.Clear()
         iniChangePNL()
 
     End Sub
 
+    Private Sub EasyZVT_Async(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
+        ' Programmstart von ZVTStart.exe und warten auf Programmende
+
+        Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
+        Try
+            Dim ZVTStart As String = ZVTKey.GetValue("Start")
+            Dim Proc As System.Diagnostics.Process
+
+            If (Len(ZVTStart) > 1) Then
+                ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Wenn das Ergebnis 1000 bleibt konnte EasyZVT nicht gestartet werden
+                Proc = System.Diagnostics.Process.Start(ZVTStart)
+                System.Threading.Thread.Sleep(posTerminal.pos_wartezeit) ' Warte xx Sekunden bis Prozess ZVTStart geladen ist, dann erst anfangen Flag Aktiv abzufragen
+                While ZVTKey.GetValue("Aktiv") = 1
+                    System.Threading.Thread.Sleep(500) ' Warten...
+
+                End While
+
+            Else
+                MsgBox("EasyZVT ist nicht installiert. Bitte im Internet Explorer über www.easyzvt.de/publish installieren")
+            End If
+        Catch ex As Exception
+            MessageBox.Show("Der Programmstart ist fehlgeschlagen: " & ex.Message)
+            Exit Sub
+        End Try
+        ZVTKey.Close()
+    End Sub
+    Private Sub EasyZVT_OnCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
+        ' Diese Funktion wird automatisch aufgerufen wenn der Worker-Thread seine Arbeit beendet
+        ' und EasyZVT seine Ausgabewerte in die Registry zurückgeschrieben hat
+
+
+        Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
+        Dim response As String = ""
+        response &= ZVTKey.GetValue("Ergebnis") & vbNewLine
+        response &= ZVTKey.GetValue("ErgebnisText")
+
+        'TextBox_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf)
+        'TextBox_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf)
+
+        'TextBox_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString
+        'TextBox_Betrag.Text = ""
+
+        'If CheckBoxAutodruck.Checked Then
+        '    If Len(TextBox_Drucktext.Text) > 1 Then
+        '        Button_Kundenbeleg_drucken.PerformClick()
+        '    End If
+        '    If Len(TextBox_Drucktext2.Text) > 1 Then
+        '        Button_Haendlerbeleg_drucken.PerformClick()
+        '    End If
+
+        'End If
+
+        'TextBox_Betrag.Focus()
+        'Button_Autorisierung.Enabled = True
+        'Button_Diagnose.Enabled = True
+        'Button_Tagesabschluss.Enabled = True
+        'Button_Storno.Enabled = True
+        'Button_Gutschrift.Enabled = True
+        ZVTKey.Close()
+        MsgBox(response)
+    End Sub
+
+    Private Sub POSpayment(sender As Object, e As EventArgs) Handles btnPOS.Click
+
+        If cboKassen.SelectedItem.Text = "" Then Exit Sub
+
+
+        dt = SQL.loadDgvBySql("SELECT * FROM tblRKSV_POS WHERE [pos_aktiv] = 1 AND [pos_kasse]='" & cboKassen.SelectedItem.Value & "'", "FMZOLL")
+
+        Select Case dt.Rows.Count
+            Case 0
+                MsgBox("Für diese Kasse ist kein aktives POS-Terminal hinterlegt!")
+                Exit Sub
+            Case 1
+                PosPAyment2()
+
+            Case Else
+                ContextMenuStrip1.Items.Clear()
+                For i As Integer = 0 To dt.Rows.Count - 1
+                    Dim posMenu = New ToolStripMenuItem() With {.Text = dt.Rows(i).Item("pos_bezeichnung"), .Name = dt.Rows(i).Item("pos_id"), .Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)}
+                    AddHandler posMenu.Click, AddressOf mnuItem_Clicked
+                    ContextMenuStrip1.Items.Add(posMenu)
+
+                Next
+
+                ContextMenuStrip1.Show(Cursor.Position)
+        End Select
+
+
+
+
+    End Sub
+
+    Private Sub PosPAyment2(Optional posid As Integer = -1)
+
+
+        If posid = -1 Then
+            posTerminal = New cRKSV_POS(dt.Rows(0).Item("pos_id"), dt.Rows(0).Item("pos_kasse"))
+        Else
+            posTerminal = New cRKSV_POS(posid, dt.Rows(0).Item("pos_kasse"))
+        End If
+
+        Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
+        Dim Typ As Long
+
+        Try
+
+            ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord)
+            Typ = posTerminal.pos_typ
+            ZVTKey.SetValue("Typ", Typ, RegistryValueKind.DWord)
+            ZVTKey.SetValue("KasseNr", posTerminal.pos_kassennr, RegistryValueKind.String)
+            ZVTKey.SetValue("COM", posTerminal.pos_com, RegistryValueKind.String)
+            ZVTKey.SetValue("IP", posTerminal.pos_ip, RegistryValueKind.String)
+            ZVTKey.SetValue("Port", CInt(posTerminal.pos_port), RegistryValueKind.DWord)
+            ZVTKey.SetValue("ComSpeed", CInt(posTerminal.pos_comspeed), RegistryValueKind.DWord)
+            ZVTKey.SetValue("ComStop", CInt(posTerminal.pos_comstop), RegistryValueKind.DWord)
+            ZVTKey.SetValue("Lizenz", posTerminal.pos_lizenz, RegistryValueKind.String)
+            If Funktion = 0 Or Funktion = 4 Then
+                ZVTKey.SetValue("Betrag", Betrag * 100, RegistryValueKind.DWord) 'CENTbeträge 1€ --> 100 CENT
+            End If
+            If Funktion = 3 Then
+                'ZVTKey.SetValue("StornoBetrag", CInt("0" & TextBox_Betrag.Text), RegistryValueKind.DWord)
+                'ZVTKey.SetValue("StornoBelegNr", CInt("0" & StornoBelegNr.Text), RegistryValueKind.DWord)
+            End If
+            If posTerminal.pos_kassendruck Then
+                ZVTKey.SetValue("Kassedruck", 1, RegistryValueKind.DWord)
+            Else
+                ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord)
+            End If
+            ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Zur Sicherheit, falls EasyZVT gar nicht installiert ist oder nicht gestartet werden kann
+            ZVTKey.SetValue("ErgebnisText", "EasyZVT konnte nicht gestartet werden", RegistryValueKind.String)
+            'ZVTKey.SetValue("DemoDruckername", comboInstalledPrinters.Text, RegistryValueKind.String)
+            'If CheckBoxAutodruck.Checked Then
+            '    ZVTKey.SetValue("DemoAutodruck", 1, RegistryValueKind.DWord)
+            'Else
+            '    ZVTKey.SetValue("DemoAutodruck", 0, RegistryValueKind.DWord)
+            'End If
+            'If CheckBoxDummy.Checked Then
+            '    ZVTKey.SetValue("DemoDummydruck", 1, RegistryValueKind.DWord)
+            'Else
+            '    ZVTKey.SetValue("DemoDummydruck", 0, RegistryValueKind.DWord)
+            'End If
+
+            EasyZVT_Worker.RunWorkerAsync()
+
+
+        Catch ex As Exception
+            MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message)
+            Exit Sub
+        End Try
+        ZVTKey.Close()
+
+    End Sub
+
+
+    Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
+        ContextMenuStrip1.Hide() 'Sometimes the menu items can remain open.  May not be necessary for you.
+        Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
+        If item IsNot Nothing Then
+            PosPAyment2(item.Name)
+        End If
+    End Sub
+
+
 End Class
 
 Class TestRKSVW

SDL/kassenbuch/frmKassenbuch.Designer.vb

@@ -69,6 +69,7 @@ Partial Class frmKassenbuch
         Me.Button10 = New System.Windows.Forms.Button()
         Me.btnBelegGSKunde = New System.Windows.Forms.Button()
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.btnPosTerminal = New System.Windows.Forms.Button()
         Me.Button7 = New System.Windows.Forms.Button()
         Me.Button9 = New System.Windows.Forms.Button()
         Me.Button8 = New System.Windows.Forms.Button()
@@ -659,6 +660,7 @@ Partial Class frmKassenbuch
         '
         'pnl
         '
+        Me.pnl.Controls.Add(Me.btnPosTerminal)
         Me.pnl.Controls.Add(Me.Button7)
         Me.pnl.Controls.Add(Me.Label11)
         Me.pnl.Controls.Add(Me.Label12)
@@ -673,6 +675,20 @@ Partial Class frmKassenbuch
         Me.pnl.TabIndex = 430
         Me.pnl.Visible = False
         '
+        'btnPosTerminal
+        '
+        Me.btnPosTerminal.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnPosTerminal.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnPosTerminal.ForeColor = System.Drawing.Color.Black
+        Me.btnPosTerminal.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnPosTerminal.Location = New System.Drawing.Point(147, 193)
+        Me.btnPosTerminal.Name = "btnPosTerminal"
+        Me.btnPosTerminal.Size = New System.Drawing.Size(129, 30)
+        Me.btnPosTerminal.TabIndex = 430
+        Me.btnPosTerminal.Text = "POS Terminal"
+        Me.btnPosTerminal.UseVisualStyleBackColor = True
+        Me.btnPosTerminal.Visible = False
+        '
         'Button7
         '
         Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -875,4 +891,5 @@ Partial Class frmKassenbuch
     Friend WithEvents Button1 As System.Windows.Forms.Button
     Friend WithEvents Button7 As System.Windows.Forms.Button
     Friend WithEvents Button10 As Button
+    Friend WithEvents btnPosTerminal As Button
 End Class

SDL/kassenbuch/frmKassenbuch.vb

@@ -58,7 +58,7 @@ Public Class frmKassenbuch
 
 
         If PERSONAL.ID = 274 Then master_Kasse = True
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "SIENER" Then
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "SIENER" Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "DANIEL" Then
             Button6.Visible = True
         End If
         KennwortTime = Now
@@ -74,6 +74,12 @@ Public Class frmKassenbuch
             btnBelegLeihgeld.Enabled = False
             btnStorno.Enabled = False
         End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kassenbuch POS-Terminal einrichten", Me) Then
+            btnPosTerminal.Enabled = False
+        End If
+
+
     End Sub
     Sub init()
         Dim sqlstr = ""
@@ -1274,4 +1280,16 @@ Public Class frmKassenbuch
         print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
         print.Show()
     End Sub
+
+    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnPosTerminal.Click
+        Label18.ForeColor = Color.Black
+        If Not IsNumeric(cboKassen._value) Then
+            Label18.ForeColor = Color.Red
+            Exit Sub
+        End If
+
+        Dim f As New frmPOSTerminal(cboKassen.Text, cboKassen._value)
+        f.Show()
+
+    End Sub
 End Class

SDL/kassenbuch/frmPOSTerminal.Designer.vb

@@ -0,0 +1,704 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmPOSTerminal
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.dgvTerminals = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.CheckBoxDummy = New System.Windows.Forms.CheckBox()
+        Me.CheckBoxAutodruck = New System.Windows.Forms.CheckBox()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.comboInstalledPrinters = New System.Windows.Forms.ComboBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.TextBox_BelegNr = New System.Windows.Forms.TextBox()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.StornoBelegNr = New System.Windows.Forms.TextBox()
+        Me.TextBox_Aktiv = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.ComboBox_Typ = New System.Windows.Forms.ComboBox()
+        Me.Button_Haendlerbeleg_drucken = New System.Windows.Forms.Button()
+        Me.TextBox_Kassenbon = New System.Windows.Forms.TextBox()
+        Me.Button_Kundenbeleg_drucken = New System.Windows.Forms.Button()
+        Me.Button_Gutschrift = New System.Windows.Forms.Button()
+        Me.Button_Storno = New System.Windows.Forms.Button()
+        Me.Button_Tagesabschluss = New System.Windows.Forms.Button()
+        Me.Button_Diagnose = New System.Windows.Forms.Button()
+        Me.CheckBox_Kassedruck = New System.Windows.Forms.CheckBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.TextBox_Drucktext2 = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.TextBox_Drucktext = New System.Windows.Forms.TextBox()
+        Me.TextBox_ErgebnisText = New System.Windows.Forms.TextBox()
+        Me.TextBox_Ergebnis = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Button_Autorisierung = New System.Windows.Forms.Button()
+        Me.TextBox_Betrag = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.TextBox_Lizenz = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.ComboBox_ComStop = New System.Windows.Forms.ComboBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.ComboBox_ComSpeed = New System.Windows.Forms.ComboBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.TextBox_Port = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TextBox_IP = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.ComboBox_COM = New System.Windows.Forms.ComboBox()
+        Me.TextBox_KasseNr = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.btnNew = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.LinkLabel2 = New System.Windows.Forms.LinkLabel()
+        Me.txtKassenBez = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.cbxAktiv = New System.Windows.Forms.CheckBox()
+        Me.txtWartezeit = New System.Windows.Forms.TextBox()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.Label18 = New System.Windows.Forms.Label()
+        CType(Me.dgvTerminals, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'dgvTerminals
+        '
+        Me.dgvTerminals.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvTerminals.AllowUserToAddRows = False
+        Me.dgvTerminals.AllowUserToDeleteRows = False
+        Me.dgvTerminals.BackgroundColor = System.Drawing.Color.White
+        Me.dgvTerminals.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvTerminals.Location = New System.Drawing.Point(12, 12)
+        Me.dgvTerminals.MultiSelect = False
+        Me.dgvTerminals.Name = "dgvTerminals"
+        Me.dgvTerminals.ReadOnly = True
+        Me.dgvTerminals.RowHeadersVisible = False
+        Me.dgvTerminals.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvTerminals.Size = New System.Drawing.Size(188, 529)
+        Me.dgvTerminals.TabIndex = 92
+        '
+        'CheckBoxDummy
+        '
+        Me.CheckBoxDummy.AutoSize = True
+        Me.CheckBoxDummy.Location = New System.Drawing.Point(867, 152)
+        Me.CheckBoxDummy.Name = "CheckBoxDummy"
+        Me.CheckBoxDummy.Size = New System.Drawing.Size(128, 17)
+        Me.CheckBoxDummy.TabIndex = 137
+        Me.CheckBoxDummy.Text = "Dummy-Kopf drucken"
+        Me.CheckBoxDummy.UseVisualStyleBackColor = True
+        '
+        'CheckBoxAutodruck
+        '
+        Me.CheckBoxAutodruck.AutoSize = True
+        Me.CheckBoxAutodruck.Location = New System.Drawing.Point(780, 153)
+        Me.CheckBoxAutodruck.Name = "CheckBoxAutodruck"
+        Me.CheckBoxAutodruck.Size = New System.Drawing.Size(75, 17)
+        Me.CheckBoxAutodruck.TabIndex = 136
+        Me.CheckBoxAutodruck.Text = "Autodruck"
+        Me.CheckBoxAutodruck.UseVisualStyleBackColor = True
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(209, 347)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(45, 13)
+        Me.Label15.TabIndex = 135
+        Me.Label15.Text = "Drucker"
+        '
+        'comboInstalledPrinters
+        '
+        Me.comboInstalledPrinters.FormattingEnabled = True
+        Me.comboInstalledPrinters.Location = New System.Drawing.Point(304, 342)
+        Me.comboInstalledPrinters.Name = "comboInstalledPrinters"
+        Me.comboInstalledPrinters.Size = New System.Drawing.Size(101, 21)
+        Me.comboInstalledPrinters.TabIndex = 134
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(210, 321)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(45, 13)
+        Me.Label12.TabIndex = 133
+        Me.Label12.Text = "BelegNr"
+        '
+        'TextBox_BelegNr
+        '
+        Me.TextBox_BelegNr.Location = New System.Drawing.Point(306, 314)
+        Me.TextBox_BelegNr.Name = "TextBox_BelegNr"
+        Me.TextBox_BelegNr.ReadOnly = True
+        Me.TextBox_BelegNr.Size = New System.Drawing.Size(44, 20)
+        Me.TextBox_BelegNr.TabIndex = 132
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(807, 423)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(76, 13)
+        Me.Label14.TabIndex = 131
+        Me.Label14.Text = "StornoBelegNr"
+        '
+        'StornoBelegNr
+        '
+        Me.StornoBelegNr.Location = New System.Drawing.Point(889, 420)
+        Me.StornoBelegNr.Name = "StornoBelegNr"
+        Me.StornoBelegNr.Size = New System.Drawing.Size(78, 20)
+        Me.StornoBelegNr.TabIndex = 130
+        '
+        'TextBox_Aktiv
+        '
+        Me.TextBox_Aktiv.BackColor = System.Drawing.Color.Gray
+        Me.TextBox_Aktiv.Location = New System.Drawing.Point(206, 519)
+        Me.TextBox_Aktiv.Name = "TextBox_Aktiv"
+        Me.TextBox_Aktiv.Size = New System.Drawing.Size(123, 20)
+        Me.TextBox_Aktiv.TabIndex = 129
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Location = New System.Drawing.Point(210, 229)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(25, 13)
+        Me.Label13.TabIndex = 128
+        Me.Label13.Text = "Typ"
+        '
+        'ComboBox_Typ
+        '
+        Me.ComboBox_Typ.FormattingEnabled = True
+        Me.ComboBox_Typ.Items.AddRange(New Object() {"0: ZVT Standard", "1: ICP mit Shutter", "2: ICT 220 alt", "3: ICP Zelos", "4: Clover", "5: CCV Base seriell", "10: SIX", "11: OPI", "12: myPOS", "13: TIM-Server"})
+        Me.ComboBox_Typ.Location = New System.Drawing.Point(306, 226)
+        Me.ComboBox_Typ.MaxDropDownItems = 12
+        Me.ComboBox_Typ.Name = "ComboBox_Typ"
+        Me.ComboBox_Typ.Size = New System.Drawing.Size(154, 21)
+        Me.ComboBox_Typ.TabIndex = 127
+        Me.ComboBox_Typ.Text = "0: ZVT Standard"
+        '
+        'Button_Haendlerbeleg_drucken
+        '
+        Me.Button_Haendlerbeleg_drucken.Location = New System.Drawing.Point(512, 490)
+        Me.Button_Haendlerbeleg_drucken.Name = "Button_Haendlerbeleg_drucken"
+        Me.Button_Haendlerbeleg_drucken.Size = New System.Drawing.Size(122, 23)
+        Me.Button_Haendlerbeleg_drucken.TabIndex = 126
+        Me.Button_Haendlerbeleg_drucken.Text = "Drucken"
+        Me.Button_Haendlerbeleg_drucken.UseVisualStyleBackColor = True
+        '
+        'TextBox_Kassenbon
+        '
+        Me.TextBox_Kassenbon.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBox_Kassenbon.Location = New System.Drawing.Point(779, 183)
+        Me.TextBox_Kassenbon.Multiline = True
+        Me.TextBox_Kassenbon.Name = "TextBox_Kassenbon"
+        Me.TextBox_Kassenbon.ReadOnly = True
+        Me.TextBox_Kassenbon.Size = New System.Drawing.Size(221, 151)
+        Me.TextBox_Kassenbon.TabIndex = 125
+        Me.TextBox_Kassenbon.Text = "Kassenbon"
+        '
+        'Button_Kundenbeleg_drucken
+        '
+        Me.Button_Kundenbeleg_drucken.Location = New System.Drawing.Point(213, 490)
+        Me.Button_Kundenbeleg_drucken.Name = "Button_Kundenbeleg_drucken"
+        Me.Button_Kundenbeleg_drucken.Size = New System.Drawing.Size(122, 23)
+        Me.Button_Kundenbeleg_drucken.TabIndex = 124
+        Me.Button_Kundenbeleg_drucken.Text = "Drucken"
+        Me.Button_Kundenbeleg_drucken.UseVisualStyleBackColor = True
+        '
+        'Button_Gutschrift
+        '
+        Me.Button_Gutschrift.Location = New System.Drawing.Point(908, 451)
+        Me.Button_Gutschrift.Name = "Button_Gutschrift"
+        Me.Button_Gutschrift.Size = New System.Drawing.Size(84, 29)
+        Me.Button_Gutschrift.TabIndex = 123
+        Me.Button_Gutschrift.Text = "4 = Gutschrift"
+        Me.Button_Gutschrift.UseVisualStyleBackColor = True
+        '
+        'Button_Storno
+        '
+        Me.Button_Storno.Location = New System.Drawing.Point(806, 446)
+        Me.Button_Storno.Name = "Button_Storno"
+        Me.Button_Storno.Size = New System.Drawing.Size(84, 34)
+        Me.Button_Storno.TabIndex = 122
+        Me.Button_Storno.Text = "3 = Storno"
+        Me.Button_Storno.UseVisualStyleBackColor = True
+        '
+        'Button_Tagesabschluss
+        '
+        Me.Button_Tagesabschluss.Location = New System.Drawing.Point(805, 372)
+        Me.Button_Tagesabschluss.Name = "Button_Tagesabschluss"
+        Me.Button_Tagesabschluss.Size = New System.Drawing.Size(98, 34)
+        Me.Button_Tagesabschluss.TabIndex = 121
+        Me.Button_Tagesabschluss.Text = "2 = Tagesabschl."
+        Me.Button_Tagesabschluss.UseVisualStyleBackColor = True
+        '
+        'Button_Diagnose
+        '
+        Me.Button_Diagnose.Location = New System.Drawing.Point(914, 372)
+        Me.Button_Diagnose.Name = "Button_Diagnose"
+        Me.Button_Diagnose.Size = New System.Drawing.Size(78, 33)
+        Me.Button_Diagnose.TabIndex = 120
+        Me.Button_Diagnose.Text = "1 = Diagnose"
+        Me.Button_Diagnose.UseVisualStyleBackColor = True
+        '
+        'CheckBox_Kassedruck
+        '
+        Me.CheckBox_Kassedruck.AutoSize = True
+        Me.CheckBox_Kassedruck.Location = New System.Drawing.Point(779, 127)
+        Me.CheckBox_Kassedruck.Name = "CheckBox_Kassedruck"
+        Me.CheckBox_Kassedruck.Size = New System.Drawing.Size(82, 17)
+        Me.CheckBox_Kassedruck.TabIndex = 118
+        Me.CheckBox_Kassedruck.Text = "Kassedruck"
+        Me.CheckBox_Kassedruck.UseVisualStyleBackColor = True
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(509, 372)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(131, 13)
+        Me.Label11.TabIndex = 117
+        Me.Label11.Text = "Drucktext2 (Händlerbeleg)"
+        '
+        'TextBox_Drucktext2
+        '
+        Me.TextBox_Drucktext2.Location = New System.Drawing.Point(512, 388)
+        Me.TextBox_Drucktext2.Multiline = True
+        Me.TextBox_Drucktext2.Name = "TextBox_Drucktext2"
+        Me.TextBox_Drucktext2.ReadOnly = True
+        Me.TextBox_Drucktext2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.TextBox_Drucktext2.Size = New System.Drawing.Size(226, 96)
+        Me.TextBox_Drucktext2.TabIndex = 116
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(210, 372)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(125, 13)
+        Me.Label10.TabIndex = 115
+        Me.Label10.Text = "Drucktext (Kundenbeleg)"
+        '
+        'TextBox_Drucktext
+        '
+        Me.TextBox_Drucktext.Location = New System.Drawing.Point(212, 388)
+        Me.TextBox_Drucktext.Multiline = True
+        Me.TextBox_Drucktext.Name = "TextBox_Drucktext"
+        Me.TextBox_Drucktext.ReadOnly = True
+        Me.TextBox_Drucktext.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.TextBox_Drucktext.Size = New System.Drawing.Size(223, 96)
+        Me.TextBox_Drucktext.TabIndex = 114
+        '
+        'TextBox_ErgebnisText
+        '
+        Me.TextBox_ErgebnisText.Location = New System.Drawing.Point(364, 291)
+        Me.TextBox_ErgebnisText.Multiline = True
+        Me.TextBox_ErgebnisText.Name = "TextBox_ErgebnisText"
+        Me.TextBox_ErgebnisText.ReadOnly = True
+        Me.TextBox_ErgebnisText.Size = New System.Drawing.Size(375, 43)
+        Me.TextBox_ErgebnisText.TabIndex = 113
+        '
+        'TextBox_Ergebnis
+        '
+        Me.TextBox_Ergebnis.Location = New System.Drawing.Point(306, 291)
+        Me.TextBox_Ergebnis.Name = "TextBox_Ergebnis"
+        Me.TextBox_Ergebnis.ReadOnly = True
+        Me.TextBox_Ergebnis.Size = New System.Drawing.Size(44, 20)
+        Me.TextBox_Ergebnis.TabIndex = 112
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(210, 294)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(48, 13)
+        Me.Label9.TabIndex = 111
+        Me.Label9.Text = "Ergebnis"
+        '
+        'Button_Autorisierung
+        '
+        Me.Button_Autorisierung.Location = New System.Drawing.Point(364, 255)
+        Me.Button_Autorisierung.Name = "Button_Autorisierung"
+        Me.Button_Autorisierung.Size = New System.Drawing.Size(199, 24)
+        Me.Button_Autorisierung.TabIndex = 96
+        Me.Button_Autorisierung.Text = "Autorisierung starten"
+        Me.Button_Autorisierung.UseVisualStyleBackColor = True
+        '
+        'TextBox_Betrag
+        '
+        Me.TextBox_Betrag.Location = New System.Drawing.Point(304, 258)
+        Me.TextBox_Betrag.MaxLength = 8
+        Me.TextBox_Betrag.Name = "TextBox_Betrag"
+        Me.TextBox_Betrag.Size = New System.Drawing.Size(46, 20)
+        Me.TextBox_Betrag.TabIndex = 95
+        Me.TextBox_Betrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(210, 261)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(38, 13)
+        Me.Label8.TabIndex = 110
+        Me.Label8.Text = "Betrag"
+        '
+        'TextBox_Lizenz
+        '
+        Me.TextBox_Lizenz.Location = New System.Drawing.Point(304, 197)
+        Me.TextBox_Lizenz.Name = "TextBox_Lizenz"
+        Me.TextBox_Lizenz.Size = New System.Drawing.Size(190, 20)
+        Me.TextBox_Lizenz.TabIndex = 109
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(210, 200)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(37, 13)
+        Me.Label7.TabIndex = 108
+        Me.Label7.Text = "Lizenz"
+        '
+        'ComboBox_ComStop
+        '
+        Me.ComboBox_ComStop.FormattingEnabled = True
+        Me.ComboBox_ComStop.Items.AddRange(New Object() {"1", "2"})
+        Me.ComboBox_ComStop.Location = New System.Drawing.Point(304, 169)
+        Me.ComboBox_ComStop.Name = "ComboBox_ComStop"
+        Me.ComboBox_ComStop.Size = New System.Drawing.Size(38, 21)
+        Me.ComboBox_ComStop.TabIndex = 107
+        Me.ComboBox_ComStop.Text = "1"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(209, 172)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(50, 13)
+        Me.Label6.TabIndex = 106
+        Me.Label6.Text = "ComStop"
+        '
+        'ComboBox_ComSpeed
+        '
+        Me.ComboBox_ComSpeed.FormattingEnabled = True
+        Me.ComboBox_ComSpeed.Items.AddRange(New Object() {"9600", "115000"})
+        Me.ComboBox_ComSpeed.Location = New System.Drawing.Point(304, 136)
+        Me.ComboBox_ComSpeed.Name = "ComboBox_ComSpeed"
+        Me.ComboBox_ComSpeed.Size = New System.Drawing.Size(121, 21)
+        Me.ComboBox_ComSpeed.TabIndex = 105
+        Me.ComboBox_ComSpeed.Text = "9600"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(210, 140)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(59, 13)
+        Me.Label5.TabIndex = 104
+        Me.Label5.Text = "ComSpeed"
+        '
+        'TextBox_Port
+        '
+        Me.TextBox_Port.Location = New System.Drawing.Point(470, 109)
+        Me.TextBox_Port.MaxLength = 5
+        Me.TextBox_Port.Name = "TextBox_Port"
+        Me.TextBox_Port.Size = New System.Drawing.Size(58, 20)
+        Me.TextBox_Port.TabIndex = 103
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(438, 112)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(26, 13)
+        Me.Label4.TabIndex = 102
+        Me.Label4.Text = "Port"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(210, 109)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(17, 13)
+        Me.Label3.TabIndex = 101
+        Me.Label3.Text = "IP"
+        '
+        'TextBox_IP
+        '
+        Me.TextBox_IP.Location = New System.Drawing.Point(304, 106)
+        Me.TextBox_IP.MaxLength = 30
+        Me.TextBox_IP.Name = "TextBox_IP"
+        Me.TextBox_IP.Size = New System.Drawing.Size(114, 20)
+        Me.TextBox_IP.TabIndex = 100
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(210, 78)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(55, 13)
+        Me.Label2.TabIndex = 99
+        Me.Label2.Text = "Anschluss"
+        '
+        'ComboBox_COM
+        '
+        Me.ComboBox_COM.FormattingEnabled = True
+        Me.ComboBox_COM.Items.AddRange(New Object() {"LAN", "COM", "COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9"})
+        Me.ComboBox_COM.Location = New System.Drawing.Point(304, 75)
+        Me.ComboBox_COM.Name = "ComboBox_COM"
+        Me.ComboBox_COM.Size = New System.Drawing.Size(121, 21)
+        Me.ComboBox_COM.TabIndex = 98
+        Me.ComboBox_COM.Text = "LAN"
+        '
+        'TextBox_KasseNr
+        '
+        Me.TextBox_KasseNr.Location = New System.Drawing.Point(304, 21)
+        Me.TextBox_KasseNr.MaxLength = 4
+        Me.TextBox_KasseNr.Name = "TextBox_KasseNr"
+        Me.TextBox_KasseNr.Size = New System.Drawing.Size(46, 20)
+        Me.TextBox_KasseNr.TabIndex = 97
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Location = New System.Drawing.Point(210, 24)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(50, 13)
+        Me.Label16.TabIndex = 94
+        Me.Label16.Text = "Kasse Nr"
+        '
+        'btnNew
+        '
+        Me.btnNew.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btnNew.Location = New System.Drawing.Point(917, 518)
+        Me.btnNew.Name = "btnNew"
+        Me.btnNew.Size = New System.Drawing.Size(78, 23)
+        Me.btnNew.TabIndex = 138
+        Me.btnNew.Text = "Speichern"
+        Me.btnNew.UseVisualStyleBackColor = True
+        '
+        'Button1
+        '
+        Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.del
+        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(153, 521)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(24, 20)
+        Me.Button1.TabIndex = 140
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'btn
+        '
+        Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus
+        Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Location = New System.Drawing.Point(176, 521)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(24, 20)
+        Me.btn.TabIndex = 139
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'LinkLabel2
+        '
+        Me.LinkLabel2.AutoSize = True
+        Me.LinkLabel2.Location = New System.Drawing.Point(780, 106)
+        Me.LinkLabel2.Name = "LinkLabel2"
+        Me.LinkLabel2.Size = New System.Drawing.Size(144, 13)
+        Me.LinkLabel2.TabIndex = 142
+        Me.LinkLabel2.TabStop = True
+        Me.LinkLabel2.Text = "Installation ZVT (hier klicken)"
+        '
+        'txtKassenBez
+        '
+        Me.txtKassenBez.Location = New System.Drawing.Point(304, 45)
+        Me.txtKassenBez.MaxLength = 4
+        Me.txtKassenBez.Name = "txtKassenBez"
+        Me.txtKassenBez.Size = New System.Drawing.Size(121, 20)
+        Me.txtKassenBez.TabIndex = 144
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(210, 48)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(57, 13)
+        Me.Label1.TabIndex = 143
+        Me.Label1.Text = "Kasse Bez"
+        '
+        'cbxAktiv
+        '
+        Me.cbxAktiv.AutoSize = True
+        Me.cbxAktiv.Location = New System.Drawing.Point(446, 23)
+        Me.cbxAktiv.Name = "cbxAktiv"
+        Me.cbxAktiv.Size = New System.Drawing.Size(172, 17)
+        Me.cbxAktiv.TabIndex = 145
+        Me.cbxAktiv.Text = "aktiv (Terminal angeschlossen)"
+        Me.cbxAktiv.UseVisualStyleBackColor = True
+        '
+        'txtWartezeit
+        '
+        Me.txtWartezeit.Location = New System.Drawing.Point(838, 20)
+        Me.txtWartezeit.MaxLength = 4
+        Me.txtWartezeit.Name = "txtWartezeit"
+        Me.txtWartezeit.Size = New System.Drawing.Size(23, 20)
+        Me.txtWartezeit.TabIndex = 147
+        Me.txtWartezeit.Text = "3"
+        Me.txtWartezeit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.Location = New System.Drawing.Point(744, 23)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(88, 13)
+        Me.Label17.TabIndex = 146
+        Me.Label17.Text = "Wartezeit in Sec."
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Location = New System.Drawing.Point(645, 21)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(74, 13)
+        Me.Label18.TabIndex = 148
+        Me.Label18.Text = "Start von ZVT"
+        '
+        'frmPOSTerminal
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1005, 555)
+        Me.Controls.Add(Me.Label18)
+        Me.Controls.Add(Me.txtWartezeit)
+        Me.Controls.Add(Me.Label17)
+        Me.Controls.Add(Me.cbxAktiv)
+        Me.Controls.Add(Me.txtKassenBez)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.LinkLabel2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.btnNew)
+        Me.Controls.Add(Me.CheckBoxDummy)
+        Me.Controls.Add(Me.CheckBoxAutodruck)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.comboInstalledPrinters)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.TextBox_BelegNr)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.StornoBelegNr)
+        Me.Controls.Add(Me.TextBox_Aktiv)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.ComboBox_Typ)
+        Me.Controls.Add(Me.Button_Haendlerbeleg_drucken)
+        Me.Controls.Add(Me.TextBox_Kassenbon)
+        Me.Controls.Add(Me.Button_Kundenbeleg_drucken)
+        Me.Controls.Add(Me.Button_Gutschrift)
+        Me.Controls.Add(Me.Button_Storno)
+        Me.Controls.Add(Me.Button_Tagesabschluss)
+        Me.Controls.Add(Me.Button_Diagnose)
+        Me.Controls.Add(Me.CheckBox_Kassedruck)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.TextBox_Drucktext2)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.TextBox_Drucktext)
+        Me.Controls.Add(Me.TextBox_ErgebnisText)
+        Me.Controls.Add(Me.TextBox_Ergebnis)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.Button_Autorisierung)
+        Me.Controls.Add(Me.TextBox_Betrag)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.TextBox_Lizenz)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.ComboBox_ComStop)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.ComboBox_ComSpeed)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.TextBox_Port)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.TextBox_IP)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.ComboBox_COM)
+        Me.Controls.Add(Me.TextBox_KasseNr)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.dgvTerminals)
+        Me.Name = "frmPOSTerminal"
+        Me.Text = "POS Terminal einstellen"
+        CType(Me.dgvTerminals, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents dgvTerminals As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents CheckBoxDummy As CheckBox
+    Friend WithEvents CheckBoxAutodruck As CheckBox
+    Friend WithEvents Label15 As Label
+    Friend WithEvents comboInstalledPrinters As ComboBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents TextBox_BelegNr As TextBox
+    Friend WithEvents Label14 As Label
+    Friend WithEvents StornoBelegNr As TextBox
+    Friend WithEvents TextBox_Aktiv As TextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents ComboBox_Typ As ComboBox
+    Friend WithEvents Button_Haendlerbeleg_drucken As Button
+    Friend WithEvents TextBox_Kassenbon As TextBox
+    Friend WithEvents Button_Kundenbeleg_drucken As Button
+    Friend WithEvents Button_Gutschrift As Button
+    Friend WithEvents Button_Storno As Button
+    Friend WithEvents Button_Tagesabschluss As Button
+    Friend WithEvents Button_Diagnose As Button
+    Friend WithEvents CheckBox_Kassedruck As CheckBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents TextBox_Drucktext2 As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents TextBox_Drucktext As TextBox
+    Friend WithEvents TextBox_ErgebnisText As TextBox
+    Friend WithEvents TextBox_Ergebnis As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents Button_Autorisierung As Button
+    Friend WithEvents TextBox_Betrag As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents TextBox_Lizenz As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents ComboBox_ComStop As ComboBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents ComboBox_ComSpeed As ComboBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents TextBox_Port As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TextBox_IP As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents ComboBox_COM As ComboBox
+    Friend WithEvents TextBox_KasseNr As TextBox
+    Friend WithEvents Label16 As Label
+    Friend WithEvents btnNew As Button
+    Friend WithEvents Button1 As Button
+    Friend WithEvents btn As Button
+    Friend WithEvents LinkLabel2 As LinkLabel
+    Friend WithEvents txtKassenBez As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents cbxAktiv As CheckBox
+    Friend WithEvents txtWartezeit As TextBox
+    Friend WithEvents Label17 As Label
+    Friend WithEvents Label18 As Label
+End Class

SDL/kassenbuch/frmPOSTerminal.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

SDL/kassenbuch/frmPOSTerminal.vb

@@ -0,0 +1,573 @@
+Imports System.Drawing.Printing
+Imports com.sun.tools.corba.se.idl.constExpr
+Imports Microsoft.Win32
+Imports TAlex.WPF.Helpers
+
+Public Class frmPOSTerminal
+
+	Dim currentPOS As cRKSV_POS
+
+	'Public Sub New(ByVal _rptKundenBeleg, betrag)
+	'	rptKundenBeleg = _rptKundenBeleg
+	'	betrag = CInt(betrag)
+
+	'End Sub
+
+	Public Sub New(_kasse, _kassenId)
+		InitializeComponent()
+		kasse = _kasse
+		kassenID = _kassenId
+	End Sub
+
+
+
+
+	' Erstellt durch Jan Groetzner, Groetzner Unternehmensberatung, Seevetal
+	' Version: 02.03.2020
+	' Kontakt: easyzvt@groetzner.de
+
+	' Dieser Quellcode dient als Beispielimplementierung zur Einbindung von EasyZVT in die eigene Kassenanwendung.
+	' Der Code und auch Teile davon dürfen frei kopiert und in der Kassenanwendung verwendet werden 
+
+	Private EasyZVT_Worker As System.ComponentModel.BackgroundWorker = New System.ComponentModel.BackgroundWorker()
+	Private Funktion As Integer
+	Private rptKundenBeleg As rptKundenBeleg
+	Private Betrag As Integer
+	Private kasse As String
+	Private kassenID As Integer
+
+	Private WithEvents PDoc As Printing.PrintDocument
+
+	Private Sub POS_Load(sender As Object, e As EventArgs) ' Handles MyBase.Load
+		' Anwendungsstart
+		' Worker-Thread wird initialisiert 
+		' Vorherige Werte werden aus der Registry gelesen und in die Oberfläche eingetragen
+		' Die Werte in der Oberfläche sollten in der echten Anwendung in der Stammdatentabelle der Kasse gespeichert werden und nicht in der Registry. Geht aber natürlich auch hier.
+
+		Try
+
+			'Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
+			'TextBox_KasseNr.Text = ZVTKey.GetValue("KasseNr", "1")
+			'ComboBox_COM.Text = ZVTKey.GetValue("COM", "LAN")
+			'TextBox_IP.Text = ZVTKey.GetValue("IP", "192.168.86.122")
+			'TextBox_Port.Text = ZVTKey.GetValue("Port", "20007")
+			'ComboBox_ComSpeed.Text = ZVTKey.GetValue("ComSpeed", "9600")
+			'ComboBox_ComStop.Text = ZVTKey.GetValue("ComStop", "1")
+			'TextBox_Lizenz.Text = ZVTKey.GetValue("Lizenz", "")
+			'If ZVTKey.GetValue("Kassedruck", 0) = 1 Then
+			'	CheckBox_Kassedruck.Checked = True
+			'Else
+			'	CheckBox_Kassedruck.Checked = False
+			'End If
+			'ComboBox_Typ.SelectedIndex = ComboBox_Typ.FindString(ZVTKey.GetValue("Typ", 0).ToString)
+			'PopulateInstalledPrintersCombo()
+			'comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", ""))
+			'If ZVTKey.GetValue("DemoAutodruck", 0) = 0 Then
+			'	CheckBoxAutodruck.Checked = False
+			'Else
+			'	CheckBoxAutodruck.Checked = True
+			'End If
+			'If ZVTKey.GetValue("DemoDummydruck", 1) = 0 Then
+			'	CheckBoxDummy.Checked = False
+			'Else
+			'	CheckBoxDummy.Checked = True
+			'End If
+			'ZVTKey.Close()
+
+
+		Catch ex As Exception
+			MessageBox.Show("Fehler beim Einlesen der Standardwerte: " & ex.Message)
+		End Try
+	End Sub
+
+
+	Private Sub SetRegistryParameter()
+		'Funktion holt Werte direkt aus der Oberfläche (TextBox_...) und schreibt diese in die Registry als Eingabeparameter für EasyZVT. 
+		'Im wahren Leben stehen diese Werte in Datenbankeinträgen der Stammdatenverwaltung in der Hauptanwendung
+
+		Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
+		Dim TypSelected As String
+		Dim Typ As Long
+
+		Try
+
+			ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord)
+			TypSelected = Strings.Left(ComboBox_Typ.Text, 2).Replace(":", "")
+			Typ = TypSelected
+			ZVTKey.SetValue("Typ", Typ, RegistryValueKind.DWord)
+			ZVTKey.SetValue("KasseNr", TextBox_KasseNr.Text, RegistryValueKind.String)
+			ZVTKey.SetValue("COM", ComboBox_COM.Text, RegistryValueKind.String)
+			ZVTKey.SetValue("IP", TextBox_IP.Text, RegistryValueKind.String)
+			ZVTKey.SetValue("Port", CInt(TextBox_Port.Text), RegistryValueKind.DWord)
+			ZVTKey.SetValue("ComSpeed", CInt(ComboBox_ComSpeed.Text), RegistryValueKind.DWord)
+			ZVTKey.SetValue("ComStop", CInt(ComboBox_ComStop.Text), RegistryValueKind.DWord)
+			ZVTKey.SetValue("Lizenz", TextBox_Lizenz.Text, RegistryValueKind.String)
+			If Funktion = 0 Or Funktion = 4 Then
+				Betrag = CInt("0" & TextBox_Betrag.Text)
+				ZVTKey.SetValue("Betrag", Betrag, RegistryValueKind.DWord)
+			End If
+			If Funktion = 3 Then
+				ZVTKey.SetValue("StornoBetrag", CInt("0" & TextBox_Betrag.Text), RegistryValueKind.DWord)
+				ZVTKey.SetValue("StornoBelegNr", CInt("0" & StornoBelegNr.Text), RegistryValueKind.DWord)
+			End If
+			If CheckBox_Kassedruck.Checked Then
+				ZVTKey.SetValue("Kassedruck", 1, RegistryValueKind.DWord)
+			Else
+				ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord)
+			End If
+			ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Zur Sicherheit, falls EasyZVT gar nicht installiert ist oder nicht gestartet werden kann
+			ZVTKey.SetValue("ErgebnisText", "EasyZVT konnte nicht gestartet werden", RegistryValueKind.String)
+			ZVTKey.SetValue("DemoDruckername", comboInstalledPrinters.Text, RegistryValueKind.String)
+			If CheckBoxAutodruck.Checked Then
+				ZVTKey.SetValue("DemoAutodruck", 1, RegistryValueKind.DWord)
+			Else
+				ZVTKey.SetValue("DemoAutodruck", 0, RegistryValueKind.DWord)
+			End If
+			If CheckBoxDummy.Checked Then
+				ZVTKey.SetValue("DemoDummydruck", 1, RegistryValueKind.DWord)
+			Else
+				ZVTKey.SetValue("DemoDummydruck", 0, RegistryValueKind.DWord)
+			End If
+			Button_Autorisierung.Enabled = False
+			Button_Diagnose.Enabled = False
+			Button_Tagesabschluss.Enabled = False
+			Button_Storno.Enabled = False
+			Button_Gutschrift.Enabled = False
+
+			TextBox_ErgebnisText.Text = "EasyZVT-Zahlung aktiv"
+			TextBox_Aktiv.Text = "warte auf Aktiv=0"
+
+		Catch ex As Exception
+			MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message)
+			Exit Sub
+		End Try
+		ZVTKey.Close()
+
+	End Sub
+
+	Private Sub Autorisierung()
+
+		Funktion = 0
+		SetRegistryParameter()
+		EasyZVT_Worker.RunWorkerAsync()
+
+	End Sub
+	Private Sub Button_Autorisierung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Autorisierung.Click
+		'Zahlung per Klick auslösen
+		Autorisierung()
+	End Sub
+	Private Sub TextBox_Betrag_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
+
+	End Sub
+
+	Private Sub EasyZVT_Async(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
+		' Programmstart von ZVTStart.exe und warten auf Programmende
+
+		Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
+		Try
+			Dim ZVTStart As String = ZVTKey.GetValue("Start")
+			Dim Proc As System.Diagnostics.Process
+
+			If (Len(ZVTStart) > 1) Then
+				ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Wenn das Ergebnis 1000 bleibt konnte EasyZVT nicht gestartet werden
+				Proc = System.Diagnostics.Process.Start(ZVTStart)
+				System.Threading.Thread.Sleep(currentPOS.pos_wartezeit) ' Warte xx Sekunden bis Prozess ZVTStart geladen ist, dann erst anfangen Flag Aktiv abzufragen
+				While ZVTKey.GetValue("Aktiv") = 1
+					System.Threading.Thread.Sleep(500) ' Warten...
+					If TextBox_Aktiv.BackColor = Color.Gray Then ' kleine Spielerei :-)
+						TextBox_Aktiv.BackColor = Color.Red
+					Else
+						TextBox_Aktiv.BackColor = Color.Gray
+            End If
+			End While
+				TextBox_Aktiv.BackColor = Color.Gray
+			Else
+			MsgBox("EasyZVT ist nicht installiert. Bitte im Internet Explorer über www.easyzvt.de/publish installieren")
+			End If
+		Catch ex As Exception
+			MessageBox.Show("Der Programmstart ist fehlgeschlagen: " & ex.Message)
+			Exit Sub
+		End Try
+		ZVTKey.Close()
+	End Sub
+	Private Sub EasyZVT_OnCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
+		' Diese Funktion wird automatisch aufgerufen wenn der Worker-Thread seine Arbeit beendet
+		' und EasyZVT seine Ausgabewerte in die Registry zurückgeschrieben hat
+
+
+		Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
+		TextBox_Aktiv.Text = ""
+		TextBox_Ergebnis.Text = ZVTKey.GetValue("Ergebnis")
+		TextBox_ErgebnisText.Text = ZVTKey.GetValue("ErgebnisText")
+		TextBox_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf)
+		TextBox_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf)
+
+		TextBox_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString
+		TextBox_Betrag.Text = ""
+
+		If CheckBoxAutodruck.Checked Then
+			If Len(TextBox_Drucktext.Text) > 1 Then
+				Button_Kundenbeleg_drucken.PerformClick()
+			End If
+			If Len(TextBox_Drucktext2.Text) > 1 Then
+				Button_Haendlerbeleg_drucken.PerformClick()
+			End If
+
+		End If
+
+		TextBox_Betrag.Focus()
+		Button_Autorisierung.Enabled = True
+		Button_Diagnose.Enabled = True
+		Button_Tagesabschluss.Enabled = True
+		Button_Storno.Enabled = True
+		Button_Gutschrift.Enabled = True
+		ZVTKey.Close()
+	End Sub
+
+
+	Private Sub Button_Diagnose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Diagnose.Click
+		Funktion = 1
+		SetRegistryParameter()
+		EasyZVT_Worker.RunWorkerAsync()
+
+	End Sub
+
+	Private Sub Button_Tagesabschluss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Tagesabschluss.Click
+		Funktion = 2
+		SetRegistryParameter()
+		EasyZVT_Worker.RunWorkerAsync()
+
+	End Sub
+
+	Private Sub Button_Storno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Storno.Click
+		Funktion = 3
+		SetRegistryParameter()
+		EasyZVT_Worker.RunWorkerAsync()
+
+	End Sub
+
+	Private Sub Button_Gutschrift_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Gutschrift.Click
+		Funktion = 4
+		SetRegistryParameter()
+		EasyZVT_Worker.RunWorkerAsync()
+
+	End Sub
+
+
+	Private Sub PDoc_SeiteDrucken(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PDoc.PrintPage
+
+		'Dim Textfont As Font = TextBox_Kassenbon.Font
+		Dim Hoehe, Breite As Integer
+		Dim Links, Oben As Integer
+		With PDoc.DefaultPageSettings
+			'Hoehe = .PaperSize.Height - .Margins.Top - .Margins.Bottom
+			'Breite = .PaperSize.Width - .Margins.Left - .Margins.Right
+			Hoehe = 500 ' 5,00 Zoll
+			Breite = 270 ' = 2,70 zoll 
+			'Links = PDoc.DefaultPageSettings.Margins.Left
+			'Oben = PDoc.DefaultPageSettings.Margins.Top
+			Links = 10
+			Oben = 10
+		End With
+		' Einen Rahmen zeichnen
+		Dim Rahmen As New Rectangle(Links, Oben, Breite, Hoehe)
+		e.Graphics.DrawRectangle(Pens.Blue, Rahmen)
+		' In den Rahmen den Kassenbontext zeichnen
+		Dim StrFormat As StringFormat
+		StrFormat = New StringFormat(StringFormatFlags.LineLimit)
+		'e.Graphics.DrawString(TextBox_Kassenbon.Text, Textfont, Brushes.Black, Rahmen, StrFormat)
+		e.HasMorePages = False
+
+	End Sub
+	Private Sub PopulateInstalledPrintersCombo()
+		' Add list of installed printers found to the combo box.
+		' The pkInstalledPrinters string will be used to provide the display string.
+		Dim i As Integer
+		Dim pkInstalledPrinters As String
+
+		For i = 0 To PrinterSettings.InstalledPrinters.Count - 1
+			pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i)
+			comboInstalledPrinters.Items.Add(pkInstalledPrinters)
+		Next
+	End Sub
+
+	Private Sub comboInstalledPrinters_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
+
+	End Sub
+
+	Sub initDgv()
+		With dgvTerminals
+
+			.Columns.Clear()
+
+			.SET_SQL("SELECT [pos_id],[pos_aktiv],[pos_bezeichnung] ,[pos_kasse] ,[pos_kassennr] ,[pos_com] 
+					,[pos_baudrate] ,[pos_comspeed] ,[pos_comstop] ,[pos_ip] ,[pos_port] ,[pos_typ]
+					,[pos_lizenz] ,[pos_kassendruck] ,[pos_demoausdruck] 
+					,[pos_demodummyausdruck] ,[pos_pin] ,[pos_händerbeleg_drucken] ,[pos_storno] ,[pos_wartezeit]
+						FROM [VERAG].[dbo].[tblRKSV_POS] WHERE [pos_kasse] =" & kassenID, "FMZOLL")
+
+			.LOAD()
+
+			If .Columns.Count < 1 Then Exit Sub
+
+
+			.Columns("pos_id").Visible = False
+			.Columns("pos_bezeichnung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
+			.Columns("pos_bezeichnung").HeaderText = "Terminal"
+			.Columns("pos_kassennr").Width = 100
+			.Columns("pos_kassennr").HeaderText = "Kassen-Nr"
+			.Columns("pos_aktiv").Width = 50
+			.Columns("pos_aktiv").HeaderText = "Aktiv"
+			.Columns("pos_kassendruck").Visible = False
+			.Columns("pos_kasse").Visible = False
+			.Columns("pos_com").Visible = False
+			.Columns("pos_baudrate").Visible = False
+			.Columns("pos_comspeed").Visible = False
+			.Columns("pos_comstop").Visible = False
+			.Columns("pos_port").Visible = False
+			.Columns("pos_typ").Visible = False
+			.Columns("pos_lizenz").Visible = False
+			.Columns("pos_kassendruck").Visible = False
+			.Columns("pos_demoausdruck").Visible = False
+			.Columns("pos_demodummyausdruck").Visible = False
+			.Columns("pos_pin").Visible = False
+			.Columns("pos_händerbeleg_drucken").Visible = False
+			.Columns("pos_storno").Visible = False
+			.Columns("pos_wartezeit").Visible = False
+		End With
+	End Sub
+
+	Private Sub frmPOSTerminal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+		Try
+			Text = kasse & " - POS Terminal einstellen "
+			initDgv()
+
+			AddHandler EasyZVT_Worker.DoWork, New System.ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async)
+			AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted)
+
+			If dgvTerminals.Columns.Count < 1 Then Exit Sub
+
+			loadCurrentPOS()
+
+		Catch ex As Exception
+			MessageBox.Show("Fehler beim Einlesen der Standardwerte: " & ex.Message)
+		End Try
+	End Sub
+
+	Private Sub loadCurrentPOS()
+
+
+		If dgvTerminals.SelectedRows.Count > 0 Then
+
+			currentPOS = New cRKSV_POS(dgvTerminals.SelectedRows(0).Cells("pos_Id").Value, dgvTerminals.SelectedRows(0).Cells("pos_kasse").Value)
+
+
+			cbxAktiv.Checked = currentPOS.pos_aktiv
+			txtWartezeit.Text = currentPOS.pos_wartezeit / 1000
+			TextBox_KasseNr.Text = currentPOS.pos_kassennr
+			ComboBox_COM.Text = currentPOS.pos_com
+			TextBox_IP.Text = currentPOS.pos_ip
+			TextBox_Port.Text = currentPOS.pos_port
+			ComboBox_ComSpeed.Text = currentPOS.pos_comspeed
+			ComboBox_ComStop.Text = currentPOS.pos_comstop
+			TextBox_Lizenz.Text = currentPOS.pos_lizenz
+			If currentPOS.pos_kassendruck Then
+				CheckBox_Kassedruck.Checked = True
+			Else
+				CheckBox_Kassedruck.Checked = False
+			End If
+
+			ComboBox_Typ.SelectedIndex = ComboBox_Typ.FindString(currentPOS.pos_typ)
+			PopulateInstalledPrintersCombo()
+			'comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", ""))
+			If Not currentPOS.pos_demoausdruck Then
+				CheckBoxAutodruck.Checked = False
+			Else
+				CheckBoxAutodruck.Checked = True
+			End If
+
+			If Not currentPOS.pos_demodummyausdruck Then
+				CheckBoxDummy.Checked = False
+			Else
+				CheckBoxDummy.Checked = True
+			End If
+
+		End If
+
+
+	End Sub
+
+
+	Private Sub savePOS()
+
+
+		If dgvTerminals.SelectedRows.Count > 0 Then
+
+			currentPOS.pos_kassennr = TextBox_KasseNr.Text
+			currentPOS.pos_aktiv = cbxAktiv.Checked
+			currentPOS.pos_wartezeit = CInt(txtWartezeit.Text) * 1000
+			currentPOS.pos_com = ComboBox_COM.Text
+			currentPOS.pos_ip = TextBox_IP.Text
+			currentPOS.pos_port = TextBox_Port.Text
+			currentPOS.pos_comspeed = ComboBox_ComSpeed.Text
+			currentPOS.pos_comstop = ComboBox_ComStop.Text
+			currentPOS.pos_lizenz = TextBox_Lizenz.Text
+			If CheckBox_Kassedruck.Checked Then
+				currentPOS.pos_kassendruck = True
+			Else
+				currentPOS.pos_kassendruck = False
+			End If
+
+			currentPOS.pos_typ = ComboBox_Typ.FindString(ComboBox_Typ.SelectedIndex)
+			PopulateInstalledPrintersCombo()
+			'comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", ""))
+			If Not CheckBoxAutodruck.Checked Then
+				currentPOS.pos_demoausdruck = False
+			Else
+				currentPOS.pos_demoausdruck = True
+			End If
+
+			If Not CheckBoxDummy.Checked Then
+				currentPOS.pos_demodummyausdruck = False
+			Else
+				currentPOS.pos_demodummyausdruck = True
+			End If
+
+
+			currentPOS.SAVE()
+		End If
+
+
+
+
+	End Sub
+
+	Private Sub dgvTerminals_SelectionChanged(sender As Object, e As EventArgs) Handles dgvTerminals.SelectionChanged
+		loadCurrentPOS()
+	End Sub
+
+
+
+	Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+
+		Dim input = InputBox("Bitte geben Sie die Bezeichnung des neuen Terminals ein ein:", "POS-Terminal anlegen")
+		If input <> "" Then
+			If checkNameIsValid(input) Then
+				currentPOS = New cRKSV_POS(input, kassenID, True)
+				initDgv()
+			Else
+				MsgBox("Für die Kassa" & kasse.ToString & " existiert bereits ein POS-Terminal " & input)
+			End If
+
+		Else
+			MsgBox("Keine Bezeichnung angegeben!")
+		End If
+	End Sub
+
+
+	Private Function checkNameIsValid(name As String) As Boolean
+
+		If dgvTerminals.Rows.Count = 0 Then Return True
+
+		For Each row As DataGridViewRow In dgvTerminals.Rows
+			If Not IsDBNull(row.Cells("pos_bezeichnung").Value) Then
+				If row.Cells("pos_bezeichnung").Value.ToLower = name.ToLower Then
+					Return False
+				End If
+			End If
+
+		Next
+
+		Return True
+
+	End Function
+
+	Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
+		savePOS()
+	End Sub
+
+	Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+		If dgvTerminals.SelectedRows.Count > 0 Then
+
+			If vbYes = MsgBox("Möchten Sie das Terminal " & dgvTerminals.SelectedRows(0).Cells("pos_bezeichnung").Value & " wirklich löschen?", vbYesNo) Then
+				currentPOS.delete()
+				initDgv()
+			End If
+		End If
+	End Sub
+
+	Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
+		Dim webAddress As String = "http://www.easyzvt.de/publish31/index.htm"
+		Process.Start(webAddress)
+	End Sub
+
+	Private Sub Button_Kundenbeleg_drucken_Click(sender As System.Object, e As System.EventArgs) Handles Button_Kundenbeleg_drucken.Click
+
+		Dim PDlg As PrintDialog = New PrintDialog()
+		PDlg.UseEXDialog = True ' Notwendig für x64
+		PDoc = New Printing.PrintDocument()
+		AddHandler PDoc.PrintPage, AddressOf PDoc_SeiteDrucken
+
+		If CheckBoxDummy.Checked Then
+			TextBox_Kassenbon.Text = "Kassenbon EasyZVT DemoApp" & vbCrLf
+			TextBox_Kassenbon.Text &= "KasseNr: " & TextBox_KasseNr.Text & vbCrLf & vbCrLf
+			If Betrag > 0 And Funktion = 0 Then
+				TextBox_Kassenbon.Text &= "Testartikel Menge 1 Betrag " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf
+				TextBox_Kassenbon.Text &= "Gesamtbetrag               " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf
+				TextBox_Kassenbon.Text &= "Kartenzahlung              " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf
+			End If
+
+			TextBox_Kassenbon.Text &= TextBox_Drucktext.Text ' Hier den Kundenbeleg hinzufügen
+		Else
+			TextBox_Kassenbon.Text = TextBox_Drucktext.Text
+		End If
+
+		If comboInstalledPrinters.SelectedIndex <> -1 Then
+			PDoc.PrinterSettings.PrinterName = comboInstalledPrinters.Text
+			PDoc.Print()
+		Else
+			PDlg.Document = PDoc
+			If PDlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
+				PDoc.Print()
+			End If
+
+		End If
+
+	End Sub
+
+	Private Sub Button_Haendlerbeleg_drucken_Click(sender As System.Object, e As System.EventArgs) Handles Button_Haendlerbeleg_drucken.Click
+
+		Dim PDlg As PrintDialog = New PrintDialog()
+		PDlg.UseEXDialog = True ' Notwendig für x64
+		PDoc = New Printing.PrintDocument()
+		AddHandler PDoc.PrintPage, AddressOf PDoc_SeiteDrucken
+
+		If CheckBoxDummy.Checked Then
+			TextBox_Kassenbon.Text = "Kassenbon EasyZVT DemoApp" & vbCrLf
+			TextBox_Kassenbon.Text &= "KasseNr: " & TextBox_KasseNr.Text & vbCrLf & vbCrLf
+			If Betrag > 0 And Funktion = 0 Then
+				TextBox_Kassenbon.Text &= "Testartikel Menge 1 Betrag " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf
+				TextBox_Kassenbon.Text &= "Gesamtbetrag               " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf
+				TextBox_Kassenbon.Text &= "Kartenzahlung              " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf
+			End If
+
+			TextBox_Kassenbon.Text &= TextBox_Drucktext2.Text ' Hier den Händlerbeleg hinzufügen
+		Else
+			TextBox_Kassenbon.Text &= TextBox_Drucktext.Text
+		End If
+
+		If comboInstalledPrinters.SelectedIndex <> -1 Then
+			PDoc.PrinterSettings.PrinterName = comboInstalledPrinters.Text
+			PDoc.Print()
+		Else
+			PDlg.Document = PDoc
+			If PDlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
+				PDoc.Print()
+			End If
+
+		End If
+
+	End Sub
+
+End Class

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -1192,7 +1192,7 @@
       <Version>3.8.0</Version>
     </PackageReference>
     <PackageReference Include="Newtonsoft.Json">
-      <Version>10.0.3</Version>
+      <Version>13.0.2</Version>
     </PackageReference>
   </ItemGroup>
   <ItemGroup>