POS

SDL/kassenbuch/frmKassenbuch.vb

@@ -1274,4 +1274,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 Button11.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