edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

POS Terminal

Browse Source
This commit is contained in:
d.breimaier
2023-03-01 12:04:49 +01:00
parent a6ba393fe4
commit 21cf23cab0
3 changed files with 522 additions and 241 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
SDL/Classes/cRKSV_POS.vb
View File

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

265
SDL/kassenbuch/frmPOSTerminal.Designer.vb generated
View File

@@ -24,7 +24,6 @@ Partial Class frmPOSTerminal
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Me.dgvTerminals = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvTerminals = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.CheckBoxDummy = New System.Windows.Forms.CheckBox() Me.CheckBoxDummy = New System.Windows.Forms.CheckBox()
Me.CheckBoxAutodruck = New System.Windows.Forms.CheckBox() Me.CheckBoxAutodruck = New System.Windows.Forms.CheckBox()
Me.Label15 = New System.Windows.Forms.Label() Me.Label15 = New System.Windows.Forms.Label()
@@ -43,7 +42,6 @@ Partial Class frmPOSTerminal
Me.Button_Storno = New System.Windows.Forms.Button() Me.Button_Storno = New System.Windows.Forms.Button()
Me.Button_Tagesabschluss = New System.Windows.Forms.Button() Me.Button_Tagesabschluss = New System.Windows.Forms.Button()
Me.Button_Diagnose = New System.Windows.Forms.Button() Me.Button_Diagnose = New System.Windows.Forms.Button()
Me.Button_Exit = New System.Windows.Forms.Button()
Me.CheckBox_Kassedruck = New System.Windows.Forms.CheckBox() Me.CheckBox_Kassedruck = New System.Windows.Forms.CheckBox()
Me.Label11 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label()
Me.TextBox_Drucktext2 = New System.Windows.Forms.TextBox() Me.TextBox_Drucktext2 = New System.Windows.Forms.TextBox()
@@ -70,6 +68,15 @@ Partial Class frmPOSTerminal
Me.TextBox_KasseNr = New System.Windows.Forms.TextBox() Me.TextBox_KasseNr = New System.Windows.Forms.TextBox()
Me.Label16 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label()
Me.btnNew = New System.Windows.Forms.Button() 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() CType(Me.dgvTerminals, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -77,26 +84,22 @@ Partial Class frmPOSTerminal
' '
Me.dgvTerminals.AKTUALISIERUNGS_INTERVALL = -1 Me.dgvTerminals.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvTerminals.AllowUserToAddRows = False Me.dgvTerminals.AllowUserToAddRows = False
Me.dgvTerminals.AllowUserToDeleteRows = False
Me.dgvTerminals.BackgroundColor = System.Drawing.Color.White Me.dgvTerminals.BackgroundColor = System.Drawing.Color.White
Me.dgvTerminals.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvTerminals.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvTerminals.Location = New System.Drawing.Point(25, 36) Me.dgvTerminals.Location = New System.Drawing.Point(12, 12)
Me.dgvTerminals.MultiSelect = False
Me.dgvTerminals.Name = "dgvTerminals" Me.dgvTerminals.Name = "dgvTerminals"
Me.dgvTerminals.Size = New System.Drawing.Size(804, 348) 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 Me.dgvTerminals.TabIndex = 92
' '
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(22, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(39, 13)
Me.Label1.TabIndex = 93
Me.Label1.Text = "Label1"
'
'CheckBoxDummy 'CheckBoxDummy
' '
Me.CheckBoxDummy.AutoSize = True Me.CheckBoxDummy.AutoSize = True
Me.CheckBoxDummy.Location = New System.Drawing.Point(691, 420) Me.CheckBoxDummy.Location = New System.Drawing.Point(867, 152)
Me.CheckBoxDummy.Name = "CheckBoxDummy" Me.CheckBoxDummy.Name = "CheckBoxDummy"
Me.CheckBoxDummy.Size = New System.Drawing.Size(128, 17) Me.CheckBoxDummy.Size = New System.Drawing.Size(128, 17)
Me.CheckBoxDummy.TabIndex = 137 Me.CheckBoxDummy.TabIndex = 137
@@ -106,7 +109,7 @@ Partial Class frmPOSTerminal
'CheckBoxAutodruck 'CheckBoxAutodruck
' '
Me.CheckBoxAutodruck.AutoSize = True Me.CheckBoxAutodruck.AutoSize = True
Me.CheckBoxAutodruck.Location = New System.Drawing.Point(604, 421) Me.CheckBoxAutodruck.Location = New System.Drawing.Point(780, 153)
Me.CheckBoxAutodruck.Name = "CheckBoxAutodruck" Me.CheckBoxAutodruck.Name = "CheckBoxAutodruck"
Me.CheckBoxAutodruck.Size = New System.Drawing.Size(75, 17) Me.CheckBoxAutodruck.Size = New System.Drawing.Size(75, 17)
Me.CheckBoxAutodruck.TabIndex = 136 Me.CheckBoxAutodruck.TabIndex = 136
@@ -116,7 +119,7 @@ Partial Class frmPOSTerminal
'Label15 'Label15
' '
Me.Label15.AutoSize = True Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(268, 421) Me.Label15.Location = New System.Drawing.Point(209, 347)
Me.Label15.Name = "Label15" Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(45, 13) Me.Label15.Size = New System.Drawing.Size(45, 13)
Me.Label15.TabIndex = 135 Me.Label15.TabIndex = 135
@@ -125,15 +128,15 @@ Partial Class frmPOSTerminal
'comboInstalledPrinters 'comboInstalledPrinters
' '
Me.comboInstalledPrinters.FormattingEnabled = True Me.comboInstalledPrinters.FormattingEnabled = True
Me.comboInstalledPrinters.Location = New System.Drawing.Point(334, 418) Me.comboInstalledPrinters.Location = New System.Drawing.Point(304, 342)
Me.comboInstalledPrinters.Name = "comboInstalledPrinters" Me.comboInstalledPrinters.Name = "comboInstalledPrinters"
Me.comboInstalledPrinters.Size = New System.Drawing.Size(229, 21) Me.comboInstalledPrinters.Size = New System.Drawing.Size(101, 21)
Me.comboInstalledPrinters.TabIndex = 134 Me.comboInstalledPrinters.TabIndex = 134
' '
'Label12 'Label12
' '
Me.Label12.AutoSize = True Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(33, 620) Me.Label12.Location = New System.Drawing.Point(210, 321)
Me.Label12.Name = "Label12" Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(45, 13) Me.Label12.Size = New System.Drawing.Size(45, 13)
Me.Label12.TabIndex = 133 Me.Label12.TabIndex = 133
@@ -141,7 +144,7 @@ Partial Class frmPOSTerminal
' '
'TextBox_BelegNr 'TextBox_BelegNr
' '
Me.TextBox_BelegNr.Location = New System.Drawing.Point(130, 617) Me.TextBox_BelegNr.Location = New System.Drawing.Point(306, 314)
Me.TextBox_BelegNr.Name = "TextBox_BelegNr" Me.TextBox_BelegNr.Name = "TextBox_BelegNr"
Me.TextBox_BelegNr.ReadOnly = True Me.TextBox_BelegNr.ReadOnly = True
Me.TextBox_BelegNr.Size = New System.Drawing.Size(44, 20) Me.TextBox_BelegNr.Size = New System.Drawing.Size(44, 20)
@@ -150,7 +153,7 @@ Partial Class frmPOSTerminal
'Label14 'Label14
' '
Me.Label14.AutoSize = True Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(609, 645) Me.Label14.Location = New System.Drawing.Point(807, 423)
Me.Label14.Name = "Label14" Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(76, 13) Me.Label14.Size = New System.Drawing.Size(76, 13)
Me.Label14.TabIndex = 131 Me.Label14.TabIndex = 131
@@ -158,7 +161,7 @@ Partial Class frmPOSTerminal
' '
'StornoBelegNr 'StornoBelegNr
' '
Me.StornoBelegNr.Location = New System.Drawing.Point(691, 642) Me.StornoBelegNr.Location = New System.Drawing.Point(889, 420)
Me.StornoBelegNr.Name = "StornoBelegNr" Me.StornoBelegNr.Name = "StornoBelegNr"
Me.StornoBelegNr.Size = New System.Drawing.Size(78, 20) Me.StornoBelegNr.Size = New System.Drawing.Size(78, 20)
Me.StornoBelegNr.TabIndex = 130 Me.StornoBelegNr.TabIndex = 130
@@ -166,7 +169,7 @@ Partial Class frmPOSTerminal
'TextBox_Aktiv 'TextBox_Aktiv
' '
Me.TextBox_Aktiv.BackColor = System.Drawing.Color.Gray Me.TextBox_Aktiv.BackColor = System.Drawing.Color.Gray
Me.TextBox_Aktiv.Location = New System.Drawing.Point(36, 911) Me.TextBox_Aktiv.Location = New System.Drawing.Point(206, 519)
Me.TextBox_Aktiv.Name = "TextBox_Aktiv" Me.TextBox_Aktiv.Name = "TextBox_Aktiv"
Me.TextBox_Aktiv.Size = New System.Drawing.Size(123, 20) Me.TextBox_Aktiv.Size = New System.Drawing.Size(123, 20)
Me.TextBox_Aktiv.TabIndex = 129 Me.TextBox_Aktiv.TabIndex = 129
@@ -174,7 +177,7 @@ Partial Class frmPOSTerminal
'Label13 'Label13
' '
Me.Label13.AutoSize = True Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(342, 515) Me.Label13.Location = New System.Drawing.Point(210, 229)
Me.Label13.Name = "Label13" Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(25, 13) Me.Label13.Size = New System.Drawing.Size(25, 13)
Me.Label13.TabIndex = 128 Me.Label13.TabIndex = 128
@@ -184,7 +187,7 @@ Partial Class frmPOSTerminal
' '
Me.ComboBox_Typ.FormattingEnabled = True 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.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(408, 511) Me.ComboBox_Typ.Location = New System.Drawing.Point(306, 226)
Me.ComboBox_Typ.MaxDropDownItems = 12 Me.ComboBox_Typ.MaxDropDownItems = 12
Me.ComboBox_Typ.Name = "ComboBox_Typ" Me.ComboBox_Typ.Name = "ComboBox_Typ"
Me.ComboBox_Typ.Size = New System.Drawing.Size(154, 21) Me.ComboBox_Typ.Size = New System.Drawing.Size(154, 21)
@@ -193,7 +196,7 @@ Partial Class frmPOSTerminal
' '
'Button_Haendlerbeleg_drucken 'Button_Haendlerbeleg_drucken
' '
Me.Button_Haendlerbeleg_drucken.Location = New System.Drawing.Point(336, 882) Me.Button_Haendlerbeleg_drucken.Location = New System.Drawing.Point(512, 490)
Me.Button_Haendlerbeleg_drucken.Name = "Button_Haendlerbeleg_drucken" Me.Button_Haendlerbeleg_drucken.Name = "Button_Haendlerbeleg_drucken"
Me.Button_Haendlerbeleg_drucken.Size = New System.Drawing.Size(122, 23) Me.Button_Haendlerbeleg_drucken.Size = New System.Drawing.Size(122, 23)
Me.Button_Haendlerbeleg_drucken.TabIndex = 126 Me.Button_Haendlerbeleg_drucken.TabIndex = 126
@@ -203,17 +206,17 @@ Partial Class frmPOSTerminal
'TextBox_Kassenbon '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.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(603, 451) Me.TextBox_Kassenbon.Location = New System.Drawing.Point(779, 183)
Me.TextBox_Kassenbon.Multiline = True Me.TextBox_Kassenbon.Multiline = True
Me.TextBox_Kassenbon.Name = "TextBox_Kassenbon" Me.TextBox_Kassenbon.Name = "TextBox_Kassenbon"
Me.TextBox_Kassenbon.ReadOnly = True Me.TextBox_Kassenbon.ReadOnly = True
Me.TextBox_Kassenbon.Size = New System.Drawing.Size(221, 76) Me.TextBox_Kassenbon.Size = New System.Drawing.Size(221, 151)
Me.TextBox_Kassenbon.TabIndex = 125 Me.TextBox_Kassenbon.TabIndex = 125
Me.TextBox_Kassenbon.Text = "Kassenbon" Me.TextBox_Kassenbon.Text = "Kassenbon"
' '
'Button_Kundenbeleg_drucken 'Button_Kundenbeleg_drucken
' '
Me.Button_Kundenbeleg_drucken.Location = New System.Drawing.Point(37, 882) Me.Button_Kundenbeleg_drucken.Location = New System.Drawing.Point(213, 490)
Me.Button_Kundenbeleg_drucken.Name = "Button_Kundenbeleg_drucken" Me.Button_Kundenbeleg_drucken.Name = "Button_Kundenbeleg_drucken"
Me.Button_Kundenbeleg_drucken.Size = New System.Drawing.Size(122, 23) Me.Button_Kundenbeleg_drucken.Size = New System.Drawing.Size(122, 23)
Me.Button_Kundenbeleg_drucken.TabIndex = 124 Me.Button_Kundenbeleg_drucken.TabIndex = 124
@@ -222,54 +225,44 @@ Partial Class frmPOSTerminal
' '
'Button_Gutschrift 'Button_Gutschrift
' '
Me.Button_Gutschrift.Location = New System.Drawing.Point(608, 721) Me.Button_Gutschrift.Location = New System.Drawing.Point(908, 451)
Me.Button_Gutschrift.Name = "Button_Gutschrift" Me.Button_Gutschrift.Name = "Button_Gutschrift"
Me.Button_Gutschrift.Size = New System.Drawing.Size(163, 29) Me.Button_Gutschrift.Size = New System.Drawing.Size(84, 29)
Me.Button_Gutschrift.TabIndex = 123 Me.Button_Gutschrift.TabIndex = 123
Me.Button_Gutschrift.Text = "4 = Gutschrift" Me.Button_Gutschrift.Text = "4 = Gutschrift"
Me.Button_Gutschrift.UseVisualStyleBackColor = True Me.Button_Gutschrift.UseVisualStyleBackColor = True
' '
'Button_Storno 'Button_Storno
' '
Me.Button_Storno.Location = New System.Drawing.Point(608, 668) Me.Button_Storno.Location = New System.Drawing.Point(806, 446)
Me.Button_Storno.Name = "Button_Storno" Me.Button_Storno.Name = "Button_Storno"
Me.Button_Storno.Size = New System.Drawing.Size(163, 34) Me.Button_Storno.Size = New System.Drawing.Size(84, 34)
Me.Button_Storno.TabIndex = 122 Me.Button_Storno.TabIndex = 122
Me.Button_Storno.Text = "3 = Storno" Me.Button_Storno.Text = "3 = Storno"
Me.Button_Storno.UseVisualStyleBackColor = True Me.Button_Storno.UseVisualStyleBackColor = True
' '
'Button_Tagesabschluss 'Button_Tagesabschluss
' '
Me.Button_Tagesabschluss.Location = New System.Drawing.Point(607, 594) Me.Button_Tagesabschluss.Location = New System.Drawing.Point(805, 372)
Me.Button_Tagesabschluss.Name = "Button_Tagesabschluss" Me.Button_Tagesabschluss.Name = "Button_Tagesabschluss"
Me.Button_Tagesabschluss.Size = New System.Drawing.Size(163, 34) Me.Button_Tagesabschluss.Size = New System.Drawing.Size(98, 34)
Me.Button_Tagesabschluss.TabIndex = 121 Me.Button_Tagesabschluss.TabIndex = 121
Me.Button_Tagesabschluss.Text = "2 = Tagesabschluss" Me.Button_Tagesabschluss.Text = "2 = Tagesabschl."
Me.Button_Tagesabschluss.UseVisualStyleBackColor = True Me.Button_Tagesabschluss.UseVisualStyleBackColor = True
' '
'Button_Diagnose 'Button_Diagnose
' '
Me.Button_Diagnose.Location = New System.Drawing.Point(607, 544) Me.Button_Diagnose.Location = New System.Drawing.Point(914, 372)
Me.Button_Diagnose.Name = "Button_Diagnose" Me.Button_Diagnose.Name = "Button_Diagnose"
Me.Button_Diagnose.Size = New System.Drawing.Size(164, 33) Me.Button_Diagnose.Size = New System.Drawing.Size(78, 33)
Me.Button_Diagnose.TabIndex = 120 Me.Button_Diagnose.TabIndex = 120
Me.Button_Diagnose.Text = "1 = Diagnose" Me.Button_Diagnose.Text = "1 = Diagnose"
Me.Button_Diagnose.UseVisualStyleBackColor = True Me.Button_Diagnose.UseVisualStyleBackColor = True
' '
'Button_Exit
'
Me.Button_Exit.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button_Exit.Location = New System.Drawing.Point(607, 882)
Me.Button_Exit.Name = "Button_Exit"
Me.Button_Exit.Size = New System.Drawing.Size(162, 23)
Me.Button_Exit.TabIndex = 119
Me.Button_Exit.Text = "Programmende"
Me.Button_Exit.UseVisualStyleBackColor = True
'
'CheckBox_Kassedruck 'CheckBox_Kassedruck
' '
Me.CheckBox_Kassedruck.AutoSize = True Me.CheckBox_Kassedruck.AutoSize = True
Me.CheckBox_Kassedruck.Location = New System.Drawing.Point(408, 482) Me.CheckBox_Kassedruck.Location = New System.Drawing.Point(779, 127)
Me.CheckBox_Kassedruck.Name = "CheckBox_Kassedruck" Me.CheckBox_Kassedruck.Name = "CheckBox_Kassedruck"
Me.CheckBox_Kassedruck.Size = New System.Drawing.Size(82, 17) Me.CheckBox_Kassedruck.Size = New System.Drawing.Size(82, 17)
Me.CheckBox_Kassedruck.TabIndex = 118 Me.CheckBox_Kassedruck.TabIndex = 118
@@ -279,7 +272,7 @@ Partial Class frmPOSTerminal
'Label11 'Label11
' '
Me.Label11.AutoSize = True Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(333, 642) Me.Label11.Location = New System.Drawing.Point(509, 372)
Me.Label11.Name = "Label11" Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(131, 13) Me.Label11.Size = New System.Drawing.Size(131, 13)
Me.Label11.TabIndex = 117 Me.Label11.TabIndex = 117
@@ -287,18 +280,18 @@ Partial Class frmPOSTerminal
' '
'TextBox_Drucktext2 'TextBox_Drucktext2
' '
Me.TextBox_Drucktext2.Location = New System.Drawing.Point(336, 668) Me.TextBox_Drucktext2.Location = New System.Drawing.Point(512, 388)
Me.TextBox_Drucktext2.Multiline = True Me.TextBox_Drucktext2.Multiline = True
Me.TextBox_Drucktext2.Name = "TextBox_Drucktext2" Me.TextBox_Drucktext2.Name = "TextBox_Drucktext2"
Me.TextBox_Drucktext2.ReadOnly = True Me.TextBox_Drucktext2.ReadOnly = True
Me.TextBox_Drucktext2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.TextBox_Drucktext2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.TextBox_Drucktext2.Size = New System.Drawing.Size(226, 208) Me.TextBox_Drucktext2.Size = New System.Drawing.Size(226, 96)
Me.TextBox_Drucktext2.TabIndex = 116 Me.TextBox_Drucktext2.TabIndex = 116
' '
'Label10 'Label10
' '
Me.Label10.AutoSize = True Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(34, 642) Me.Label10.Location = New System.Drawing.Point(210, 372)
Me.Label10.Name = "Label10" Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(125, 13) Me.Label10.Size = New System.Drawing.Size(125, 13)
Me.Label10.TabIndex = 115 Me.Label10.TabIndex = 115
@@ -306,17 +299,17 @@ Partial Class frmPOSTerminal
' '
'TextBox_Drucktext 'TextBox_Drucktext
' '
Me.TextBox_Drucktext.Location = New System.Drawing.Point(36, 667) Me.TextBox_Drucktext.Location = New System.Drawing.Point(212, 388)
Me.TextBox_Drucktext.Multiline = True Me.TextBox_Drucktext.Multiline = True
Me.TextBox_Drucktext.Name = "TextBox_Drucktext" Me.TextBox_Drucktext.Name = "TextBox_Drucktext"
Me.TextBox_Drucktext.ReadOnly = True Me.TextBox_Drucktext.ReadOnly = True
Me.TextBox_Drucktext.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.TextBox_Drucktext.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.TextBox_Drucktext.Size = New System.Drawing.Size(223, 209) Me.TextBox_Drucktext.Size = New System.Drawing.Size(223, 96)
Me.TextBox_Drucktext.TabIndex = 114 Me.TextBox_Drucktext.TabIndex = 114
' '
'TextBox_ErgebnisText 'TextBox_ErgebnisText
' '
Me.TextBox_ErgebnisText.Location = New System.Drawing.Point(188, 594) Me.TextBox_ErgebnisText.Location = New System.Drawing.Point(364, 291)
Me.TextBox_ErgebnisText.Multiline = True Me.TextBox_ErgebnisText.Multiline = True
Me.TextBox_ErgebnisText.Name = "TextBox_ErgebnisText" Me.TextBox_ErgebnisText.Name = "TextBox_ErgebnisText"
Me.TextBox_ErgebnisText.ReadOnly = True Me.TextBox_ErgebnisText.ReadOnly = True
@@ -325,7 +318,7 @@ Partial Class frmPOSTerminal
' '
'TextBox_Ergebnis 'TextBox_Ergebnis
' '
Me.TextBox_Ergebnis.Location = New System.Drawing.Point(130, 594) Me.TextBox_Ergebnis.Location = New System.Drawing.Point(306, 291)
Me.TextBox_Ergebnis.Name = "TextBox_Ergebnis" Me.TextBox_Ergebnis.Name = "TextBox_Ergebnis"
Me.TextBox_Ergebnis.ReadOnly = True Me.TextBox_Ergebnis.ReadOnly = True
Me.TextBox_Ergebnis.Size = New System.Drawing.Size(44, 20) Me.TextBox_Ergebnis.Size = New System.Drawing.Size(44, 20)
@@ -334,7 +327,7 @@ Partial Class frmPOSTerminal
'Label9 'Label9
' '
Me.Label9.AutoSize = True Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(34, 597) Me.Label9.Location = New System.Drawing.Point(210, 294)
Me.Label9.Name = "Label9" Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(48, 13) Me.Label9.Size = New System.Drawing.Size(48, 13)
Me.Label9.TabIndex = 111 Me.Label9.TabIndex = 111
@@ -342,7 +335,7 @@ Partial Class frmPOSTerminal
' '
'Button_Autorisierung 'Button_Autorisierung
' '
Me.Button_Autorisierung.Location = New System.Drawing.Point(188, 558) Me.Button_Autorisierung.Location = New System.Drawing.Point(364, 255)
Me.Button_Autorisierung.Name = "Button_Autorisierung" Me.Button_Autorisierung.Name = "Button_Autorisierung"
Me.Button_Autorisierung.Size = New System.Drawing.Size(199, 24) Me.Button_Autorisierung.Size = New System.Drawing.Size(199, 24)
Me.Button_Autorisierung.TabIndex = 96 Me.Button_Autorisierung.TabIndex = 96
@@ -351,7 +344,7 @@ Partial Class frmPOSTerminal
' '
'TextBox_Betrag 'TextBox_Betrag
' '
Me.TextBox_Betrag.Location = New System.Drawing.Point(128, 561) Me.TextBox_Betrag.Location = New System.Drawing.Point(304, 258)
Me.TextBox_Betrag.MaxLength = 8 Me.TextBox_Betrag.MaxLength = 8
Me.TextBox_Betrag.Name = "TextBox_Betrag" Me.TextBox_Betrag.Name = "TextBox_Betrag"
Me.TextBox_Betrag.Size = New System.Drawing.Size(46, 20) Me.TextBox_Betrag.Size = New System.Drawing.Size(46, 20)
@@ -361,7 +354,7 @@ Partial Class frmPOSTerminal
'Label8 'Label8
' '
Me.Label8.AutoSize = True Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(34, 564) Me.Label8.Location = New System.Drawing.Point(210, 261)
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(38, 13) Me.Label8.Size = New System.Drawing.Size(38, 13)
Me.Label8.TabIndex = 110 Me.Label8.TabIndex = 110
@@ -369,7 +362,7 @@ Partial Class frmPOSTerminal
' '
'TextBox_Lizenz 'TextBox_Lizenz
' '
Me.TextBox_Lizenz.Location = New System.Drawing.Point(128, 508) Me.TextBox_Lizenz.Location = New System.Drawing.Point(304, 197)
Me.TextBox_Lizenz.Name = "TextBox_Lizenz" Me.TextBox_Lizenz.Name = "TextBox_Lizenz"
Me.TextBox_Lizenz.Size = New System.Drawing.Size(190, 20) Me.TextBox_Lizenz.Size = New System.Drawing.Size(190, 20)
Me.TextBox_Lizenz.TabIndex = 109 Me.TextBox_Lizenz.TabIndex = 109
@@ -377,7 +370,7 @@ Partial Class frmPOSTerminal
'Label7 'Label7
' '
Me.Label7.AutoSize = True Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(34, 511) Me.Label7.Location = New System.Drawing.Point(210, 200)
Me.Label7.Name = "Label7" Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(37, 13) Me.Label7.Size = New System.Drawing.Size(37, 13)
Me.Label7.TabIndex = 108 Me.Label7.TabIndex = 108
@@ -387,7 +380,7 @@ Partial Class frmPOSTerminal
' '
Me.ComboBox_ComStop.FormattingEnabled = True Me.ComboBox_ComStop.FormattingEnabled = True
Me.ComboBox_ComStop.Items.AddRange(New Object() {"1", "2"}) Me.ComboBox_ComStop.Items.AddRange(New Object() {"1", "2"})
Me.ComboBox_ComStop.Location = New System.Drawing.Point(336, 479) Me.ComboBox_ComStop.Location = New System.Drawing.Point(304, 169)
Me.ComboBox_ComStop.Name = "ComboBox_ComStop" Me.ComboBox_ComStop.Name = "ComboBox_ComStop"
Me.ComboBox_ComStop.Size = New System.Drawing.Size(38, 21) Me.ComboBox_ComStop.Size = New System.Drawing.Size(38, 21)
Me.ComboBox_ComStop.TabIndex = 107 Me.ComboBox_ComStop.TabIndex = 107
@@ -396,7 +389,7 @@ Partial Class frmPOSTerminal
'Label6 'Label6
' '
Me.Label6.AutoSize = True Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(268, 482) Me.Label6.Location = New System.Drawing.Point(209, 172)
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(50, 13) Me.Label6.Size = New System.Drawing.Size(50, 13)
Me.Label6.TabIndex = 106 Me.Label6.TabIndex = 106
@@ -406,7 +399,7 @@ Partial Class frmPOSTerminal
' '
Me.ComboBox_ComSpeed.FormattingEnabled = True Me.ComboBox_ComSpeed.FormattingEnabled = True
Me.ComboBox_ComSpeed.Items.AddRange(New Object() {"9600", "115000"}) Me.ComboBox_ComSpeed.Items.AddRange(New Object() {"9600", "115000"})
Me.ComboBox_ComSpeed.Location = New System.Drawing.Point(128, 478) Me.ComboBox_ComSpeed.Location = New System.Drawing.Point(304, 136)
Me.ComboBox_ComSpeed.Name = "ComboBox_ComSpeed" Me.ComboBox_ComSpeed.Name = "ComboBox_ComSpeed"
Me.ComboBox_ComSpeed.Size = New System.Drawing.Size(121, 21) Me.ComboBox_ComSpeed.Size = New System.Drawing.Size(121, 21)
Me.ComboBox_ComSpeed.TabIndex = 105 Me.ComboBox_ComSpeed.TabIndex = 105
@@ -415,7 +408,7 @@ Partial Class frmPOSTerminal
'Label5 'Label5
' '
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(34, 482) Me.Label5.Location = New System.Drawing.Point(210, 140)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(59, 13) Me.Label5.Size = New System.Drawing.Size(59, 13)
Me.Label5.TabIndex = 104 Me.Label5.TabIndex = 104
@@ -423,7 +416,7 @@ Partial Class frmPOSTerminal
' '
'TextBox_Port 'TextBox_Port
' '
Me.TextBox_Port.Location = New System.Drawing.Point(505, 452) Me.TextBox_Port.Location = New System.Drawing.Point(470, 109)
Me.TextBox_Port.MaxLength = 5 Me.TextBox_Port.MaxLength = 5
Me.TextBox_Port.Name = "TextBox_Port" Me.TextBox_Port.Name = "TextBox_Port"
Me.TextBox_Port.Size = New System.Drawing.Size(58, 20) Me.TextBox_Port.Size = New System.Drawing.Size(58, 20)
@@ -432,7 +425,7 @@ Partial Class frmPOSTerminal
'Label4 'Label4
' '
Me.Label4.AutoSize = True Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(473, 455) Me.Label4.Location = New System.Drawing.Point(438, 112)
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(26, 13) Me.Label4.Size = New System.Drawing.Size(26, 13)
Me.Label4.TabIndex = 102 Me.Label4.TabIndex = 102
@@ -441,7 +434,7 @@ Partial Class frmPOSTerminal
'Label3 'Label3
' '
Me.Label3.AutoSize = True Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(268, 455) Me.Label3.Location = New System.Drawing.Point(210, 109)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(17, 13) Me.Label3.Size = New System.Drawing.Size(17, 13)
Me.Label3.TabIndex = 101 Me.Label3.TabIndex = 101
@@ -449,7 +442,7 @@ Partial Class frmPOSTerminal
' '
'TextBox_IP 'TextBox_IP
' '
Me.TextBox_IP.Location = New System.Drawing.Point(336, 452) Me.TextBox_IP.Location = New System.Drawing.Point(304, 106)
Me.TextBox_IP.MaxLength = 30 Me.TextBox_IP.MaxLength = 30
Me.TextBox_IP.Name = "TextBox_IP" Me.TextBox_IP.Name = "TextBox_IP"
Me.TextBox_IP.Size = New System.Drawing.Size(114, 20) Me.TextBox_IP.Size = New System.Drawing.Size(114, 20)
@@ -458,17 +451,17 @@ Partial Class frmPOSTerminal
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(34, 454) Me.Label2.Location = New System.Drawing.Point(210, 78)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(31, 13) Me.Label2.Size = New System.Drawing.Size(55, 13)
Me.Label2.TabIndex = 99 Me.Label2.TabIndex = 99
Me.Label2.Text = "COM" Me.Label2.Text = "Anschluss"
' '
'ComboBox_COM 'ComboBox_COM
' '
Me.ComboBox_COM.FormattingEnabled = True 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.Items.AddRange(New Object() {"LAN", "COM", "COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9"})
Me.ComboBox_COM.Location = New System.Drawing.Point(128, 451) Me.ComboBox_COM.Location = New System.Drawing.Point(304, 75)
Me.ComboBox_COM.Name = "ComboBox_COM" Me.ComboBox_COM.Name = "ComboBox_COM"
Me.ComboBox_COM.Size = New System.Drawing.Size(121, 21) Me.ComboBox_COM.Size = New System.Drawing.Size(121, 21)
Me.ComboBox_COM.TabIndex = 98 Me.ComboBox_COM.TabIndex = 98
@@ -476,37 +469,132 @@ Partial Class frmPOSTerminal
' '
'TextBox_KasseNr 'TextBox_KasseNr
' '
Me.TextBox_KasseNr.Location = New System.Drawing.Point(128, 425) Me.TextBox_KasseNr.Location = New System.Drawing.Point(304, 21)
Me.TextBox_KasseNr.MaxLength = 4 Me.TextBox_KasseNr.MaxLength = 4
Me.TextBox_KasseNr.Name = "TextBox_KasseNr" Me.TextBox_KasseNr.Name = "TextBox_KasseNr"
Me.TextBox_KasseNr.Size = New System.Drawing.Size(46, 20) Me.TextBox_KasseNr.Size = New System.Drawing.Size(46, 20)
Me.TextBox_KasseNr.TabIndex = 97 Me.TextBox_KasseNr.TabIndex = 97
Me.TextBox_KasseNr.Text = "1"
' '
'Label16 'Label16
' '
Me.Label16.AutoSize = True Me.Label16.AutoSize = True
Me.Label16.Location = New System.Drawing.Point(34, 428) Me.Label16.Location = New System.Drawing.Point(210, 24)
Me.Label16.Name = "Label16" Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(47, 13) Me.Label16.Size = New System.Drawing.Size(50, 13)
Me.Label16.TabIndex = 94 Me.Label16.TabIndex = 94
Me.Label16.Text = "KasseNr" Me.Label16.Text = "Kasse Nr"
' '
'btnNew 'btnNew
' '
Me.btnNew.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.btnNew.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnNew.Location = New System.Drawing.Point(741, 924) Me.btnNew.Location = New System.Drawing.Point(917, 518)
Me.btnNew.Name = "btnNew" Me.btnNew.Name = "btnNew"
Me.btnNew.Size = New System.Drawing.Size(78, 23) Me.btnNew.Size = New System.Drawing.Size(78, 23)
Me.btnNew.TabIndex = 138 Me.btnNew.TabIndex = 138
Me.btnNew.Text = "Speichern" Me.btnNew.Text = "Speichern"
Me.btnNew.UseVisualStyleBackColor = True 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 'frmPOSTerminal
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(841, 959) 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.btnNew)
Me.Controls.Add(Me.CheckBoxDummy) Me.Controls.Add(Me.CheckBoxDummy)
Me.Controls.Add(Me.CheckBoxAutodruck) Me.Controls.Add(Me.CheckBoxAutodruck)
@@ -526,7 +614,6 @@ Partial Class frmPOSTerminal
Me.Controls.Add(Me.Button_Storno) Me.Controls.Add(Me.Button_Storno)
Me.Controls.Add(Me.Button_Tagesabschluss) Me.Controls.Add(Me.Button_Tagesabschluss)
Me.Controls.Add(Me.Button_Diagnose) Me.Controls.Add(Me.Button_Diagnose)
Me.Controls.Add(Me.Button_Exit)
Me.Controls.Add(Me.CheckBox_Kassedruck) Me.Controls.Add(Me.CheckBox_Kassedruck)
Me.Controls.Add(Me.Label11) Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.TextBox_Drucktext2) Me.Controls.Add(Me.TextBox_Drucktext2)
@@ -552,7 +639,6 @@ Partial Class frmPOSTerminal
Me.Controls.Add(Me.ComboBox_COM) Me.Controls.Add(Me.ComboBox_COM)
Me.Controls.Add(Me.TextBox_KasseNr) Me.Controls.Add(Me.TextBox_KasseNr)
Me.Controls.Add(Me.Label16) Me.Controls.Add(Me.Label16)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.dgvTerminals) Me.Controls.Add(Me.dgvTerminals)
Me.Name = "frmPOSTerminal" Me.Name = "frmPOSTerminal"
Me.Text = "POS Terminal einstellen" Me.Text = "POS Terminal einstellen"
@@ -562,7 +648,6 @@ Partial Class frmPOSTerminal
End Sub End Sub
Friend WithEvents dgvTerminals As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents dgvTerminals As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Label1 As Label
Friend WithEvents CheckBoxDummy As CheckBox Friend WithEvents CheckBoxDummy As CheckBox
Friend WithEvents CheckBoxAutodruck As CheckBox Friend WithEvents CheckBoxAutodruck As CheckBox
Friend WithEvents Label15 As Label Friend WithEvents Label15 As Label
@@ -581,7 +666,6 @@ Partial Class frmPOSTerminal
Friend WithEvents Button_Storno As Button Friend WithEvents Button_Storno As Button
Friend WithEvents Button_Tagesabschluss As Button Friend WithEvents Button_Tagesabschluss As Button
Friend WithEvents Button_Diagnose As Button Friend WithEvents Button_Diagnose As Button
Friend WithEvents Button_Exit As Button
Friend WithEvents CheckBox_Kassedruck As CheckBox Friend WithEvents CheckBox_Kassedruck As CheckBox
Friend WithEvents Label11 As Label Friend WithEvents Label11 As Label
Friend WithEvents TextBox_Drucktext2 As TextBox Friend WithEvents TextBox_Drucktext2 As TextBox
@@ -608,4 +692,13 @@ Partial Class frmPOSTerminal
Friend WithEvents TextBox_KasseNr As TextBox Friend WithEvents TextBox_KasseNr As TextBox
Friend WithEvents Label16 As Label Friend WithEvents Label16 As Label
Friend WithEvents btnNew As Button 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 End Class

475
SDL/kassenbuch/frmPOSTerminal.vb
View File

@@ -1,8 +1,12 @@
Imports System.Drawing.Printing Imports System.Drawing.Printing
Imports com.sun.tools.corba.se.idl.constExpr
Imports Microsoft.Win32 Imports Microsoft.Win32
Imports TAlex.WPF.Helpers
Public Class frmPOSTerminal Public Class frmPOSTerminal
Dim currentPOS As cRKSV_POS
'Public Sub New(ByVal _rptKundenBeleg, betrag) 'Public Sub New(ByVal _rptKundenBeleg, betrag)
' rptKundenBeleg = _rptKundenBeleg ' rptKundenBeleg = _rptKundenBeleg
' betrag = CInt(betrag) ' betrag = CInt(betrag)
@@ -87,54 +91,51 @@ Public Class frmPOSTerminal
Try 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"
'ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord) TextBox_Aktiv.Text = "warte auf Aktiv=0"
'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 Catch ex As Exception
MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message) MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message)
@@ -143,6 +144,7 @@ Public Class frmPOSTerminal
ZVTKey.Close() ZVTKey.Close()
End Sub End Sub
Private Sub Autorisierung() Private Sub Autorisierung()
Funktion = 0 Funktion = 0
@@ -150,7 +152,7 @@ Public Class frmPOSTerminal
EasyZVT_Worker.RunWorkerAsync() EasyZVT_Worker.RunWorkerAsync()
End Sub End Sub
Private Sub Button_Autorisierung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Private Sub Button_Autorisierung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Autorisierung.Click
'Zahlung per Klick auslösen 'Zahlung per Klick auslösen
Autorisierung() Autorisierung()
End Sub End Sub
@@ -166,22 +168,22 @@ Public Class frmPOSTerminal
Dim ZVTStart As String = ZVTKey.GetValue("Start") Dim ZVTStart As String = ZVTKey.GetValue("Start")
Dim Proc As System.Diagnostics.Process Dim Proc As System.Diagnostics.Process
' If (Len(ZVTStart) > 1) Then If (Len(ZVTStart) > 1) Then
ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Wenn das Ergebnis 1000 bleibt konnte EasyZVT nicht gestartet werden ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Wenn das Ergebnis 1000 bleibt konnte EasyZVT nicht gestartet werden
Proc = System.Diagnostics.Process.Start(ZVTStart) Proc = System.Diagnostics.Process.Start(ZVTStart)
System.Threading.Thread.Sleep(3000) ' Warte drei Sekunden bis Prozess ZVTStart geladen ist, dann erst anfangen Flag Aktiv abzufragen 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 While ZVTKey.GetValue("Aktiv") = 1
' System.Threading.Thread.Sleep(500) ' Warten... System.Threading.Thread.Sleep(500) ' Warten...
' ' If TextBox_Aktiv.BackColor = Color.Gray Then ' kleine Spielerei :-) If TextBox_Aktiv.BackColor = Color.Gray Then ' kleine Spielerei :-)
' ' TextBox_Aktiv.BackColor = Color.Red TextBox_Aktiv.BackColor = Color.Red
' Else Else
' ' TextBox_Aktiv.BackColor = Color.Gray TextBox_Aktiv.BackColor = Color.Gray
' End If End If
' End While End While
' 'TextBox_Aktiv.BackColor = Color.Gray TextBox_Aktiv.BackColor = Color.Gray
'Else Else
' MsgBox("EasyZVT ist nicht installiert. Bitte im Internet Explorer über www.easyzvt.de/publish installieren") MsgBox("EasyZVT ist nicht installiert. Bitte im Internet Explorer über www.easyzvt.de/publish installieren")
'End If End If
Catch ex As Exception Catch ex As Exception
MessageBox.Show("Der Programmstart ist fehlgeschlagen: " & ex.Message) MessageBox.Show("Der Programmstart ist fehlgeschlagen: " & ex.Message)
Exit Sub Exit Sub
@@ -193,58 +195,58 @@ Public Class frmPOSTerminal
' und EasyZVT seine Ausgabewerte in die Registry zurückgeschrieben hat ' und EasyZVT seine Ausgabewerte in die Registry zurückgeschrieben hat
'Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
'TextBox_Aktiv.Text = "" TextBox_Aktiv.Text = ""
'TextBox_Ergebnis.Text = ZVTKey.GetValue("Ergebnis") TextBox_Ergebnis.Text = ZVTKey.GetValue("Ergebnis")
'TextBox_ErgebnisText.Text = ZVTKey.GetValue("ErgebnisText") TextBox_ErgebnisText.Text = ZVTKey.GetValue("ErgebnisText")
'TextBox_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf) TextBox_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf)
'TextBox_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf) TextBox_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf)
'TextBox_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString TextBox_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString
'TextBox_Betrag.Text = "" TextBox_Betrag.Text = ""
'If CheckBoxAutodruck.Checked Then If CheckBoxAutodruck.Checked Then
' If Len(TextBox_Drucktext.Text) > 1 Then If Len(TextBox_Drucktext.Text) > 1 Then
' Button_Kundenbeleg_drucken.PerformClick() Button_Kundenbeleg_drucken.PerformClick()
' End If End If
' If Len(TextBox_Drucktext2.Text) > 1 Then If Len(TextBox_Drucktext2.Text) > 1 Then
' Button_Haendlerbeleg_drucken.PerformClick() Button_Haendlerbeleg_drucken.PerformClick()
' End If End If
'End If End If
'TextBox_Betrag.Focus() TextBox_Betrag.Focus()
'Button_Autorisierung.Enabled = True Button_Autorisierung.Enabled = True
'Button_Diagnose.Enabled = True Button_Diagnose.Enabled = True
'Button_Tagesabschluss.Enabled = True Button_Tagesabschluss.Enabled = True
'Button_Storno.Enabled = True Button_Storno.Enabled = True
'Button_Gutschrift.Enabled = True Button_Gutschrift.Enabled = True
'ZVTKey.Close() ZVTKey.Close()
End Sub End Sub
Private Sub Button_Diagnose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Private Sub Button_Diagnose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Diagnose.Click
Funktion = 1 Funktion = 1
SetRegistryParameter() SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync() EasyZVT_Worker.RunWorkerAsync()
End Sub End Sub
Private Sub Button_Tagesabschluss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Private Sub Button_Tagesabschluss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Tagesabschluss.Click
Funktion = 2 Funktion = 2
SetRegistryParameter() SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync() EasyZVT_Worker.RunWorkerAsync()
End Sub End Sub
Private Sub Button_Storno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Private Sub Button_Storno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Storno.Click
Funktion = 3 Funktion = 3
SetRegistryParameter() SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync() EasyZVT_Worker.RunWorkerAsync()
End Sub End Sub
Private Sub Button_Gutschrift_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Private Sub Button_Gutschrift_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Gutschrift.Click
Funktion = 4 Funktion = 4
SetRegistryParameter() SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync() EasyZVT_Worker.RunWorkerAsync()
@@ -276,13 +278,6 @@ Public Class frmPOSTerminal
'e.Graphics.DrawString(TextBox_Kassenbon.Text, Textfont, Brushes.Black, Rahmen, StrFormat) 'e.Graphics.DrawString(TextBox_Kassenbon.Text, Textfont, Brushes.Black, Rahmen, StrFormat)
e.HasMorePages = False e.HasMorePages = False
End Sub
Private Sub Button_Kundenbeleg_drucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button_Haendlerbeleg_drucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub End Sub
Private Sub PopulateInstalledPrintersCombo() Private Sub PopulateInstalledPrintersCombo()
' Add list of installed printers found to the combo box. ' Add list of installed printers found to the combo box.
@@ -292,7 +287,7 @@ Public Class frmPOSTerminal
For i = 0 To PrinterSettings.InstalledPrinters.Count - 1 For i = 0 To PrinterSettings.InstalledPrinters.Count - 1
pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i) pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i)
'comboInstalledPrinters.Items.Add(pkInstalledPrinters) comboInstalledPrinters.Items.Add(pkInstalledPrinters)
Next Next
End Sub End Sub
@@ -301,55 +296,55 @@ Public Class frmPOSTerminal
End Sub End Sub
Sub initDgv() Sub initDgv()
With dgvTerminals
.Columns.Clear()
'.Columns.Clear() .SET_SQL("SELECT [pos_id],[pos_aktiv],[pos_bezeichnung] ,[pos_kasse] ,[pos_kassennr] ,[pos_com]
dgvTerminals.SET_SQL("SELECT SELECT [pos_Id],[pos_aktiv] ,[pos_kasse] ,[pos_kassennr] ,[pos_com]
,[pos_baudrate] ,[pos_comspeed] ,[pos_comstop] ,[pos_ip] ,[pos_port] ,[pos_typ] ,[pos_baudrate] ,[pos_comspeed] ,[pos_comstop] ,[pos_ip] ,[pos_port] ,[pos_typ]
,[pos_lizenz] ,[pos_kassendruck] ,[pos_demoausdruck] ,[pos_lizenz] ,[pos_kassendruck] ,[pos_demoausdruck]
,[pos_demodummyausdruck] ,[pos_pin] ,[pos_händerbeleg_drucken] ,[pos_storno] ,[pos_wartezeit] ,[pos_demodummyausdruck] ,[pos_pin] ,[pos_händerbeleg_drucken] ,[pos_storno] ,[pos_wartezeit]
FROM [VERAG].[dbo].[tblRKSV_POS] WHERE [pos_kasse] =" & kassenID, "FMZOLL") FROM [VERAG].[dbo].[tblRKSV_POS] WHERE [pos_kasse] =" & kassenID, "FMZOLL")
dgvTerminals.LOAD() .LOAD()
If dgvTerminals.Columns.Count < 1 Then Exit Sub If .Columns.Count < 1 Then Exit Sub
With dgvTerminals .Columns("pos_id").Visible = False
.Columns("pos_aktiv").DefaultCellStyle.Format = "C" .Columns("pos_bezeichnung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
.Columns("pos_kasse").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight .Columns("pos_bezeichnung").HeaderText = "Terminal"
.Columns("pos_kassennr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("pos_kassennr").Width = 100
.Columns("pos_kassennr").HeaderText = "Kassen-Nr"
.Columns("pos_com").HeaderText = "Beleg-Nr" .Columns("pos_aktiv").Width = 50
.Columns("pos_baudrate").Width = 55 .Columns("pos_aktiv").HeaderText = "Aktiv"
.Columns("pos_comspeed").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("pos_kassendruck").Visible = False
.Columns("pos_comstop").HeaderText = "Datum" .Columns("pos_kasse").Visible = False
.Columns("pos_ip").Width = 65 .Columns("pos_com").Visible = False
.Columns("pos_port").HeaderText = "KB-Bel.Nr" .Columns("pos_baudrate").Visible = False
.Columns("pos_typ").Width = 55 .Columns("pos_comspeed").Visible = False
.Columns("pos_lizenz").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("pos_comstop").Visible = False
.Columns("pos_kassendruck").HeaderText = "Art" .Columns("pos_port").Visible = False
.Columns("pos_demoausdruck").Width = 30 .Columns("pos_typ").Visible = False
.Columns("pos_demodummyausdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("pos_lizenz").Visible = False
.Columns("pos_pin").Width = 160 .Columns("pos_kassendruck").Visible = False
.Columns("pos_händerbeleg_drucken").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .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_storno").Visible = False
.Columns("pos_wartezeit").HeaderText = "Storn."
.Columns("storniert").Width = 45
.Columns("pos_wartezeit").Visible = False .Columns("pos_wartezeit").Visible = False
End With End With
End Sub End Sub
Private Sub frmPOSTerminal_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmPOSTerminal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
Text = kasse & " - POS Terminal einstellen "
Label1.Text = kasse
initDgv() 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 If dgvTerminals.Columns.Count < 1 Then Exit Sub
@@ -362,38 +357,88 @@ Public Class frmPOSTerminal
Private Sub loadCurrentPOS() Private Sub loadCurrentPOS()
Dim currentPOS = New cRKSV_POS(dgvTerminals.SelectedRows(0).Cells("pos_Id"))
AddHandler EasyZVT_Worker.DoWork, New System.ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async) If dgvTerminals.SelectedRows.Count > 0 Then
AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted)
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
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 End If
ComboBox_Typ.SelectedIndex = ComboBox_Typ.FindString(currentPOS.pos_typ)
PopulateInstalledPrintersCombo() End Sub
'comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", ""))
If Not currentPOS.pos_demoausdruck Then
CheckBoxAutodruck.Checked = False Private Sub savePOS()
Else
CheckBoxAutodruck.Checked = True
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 If
If Not currentPOS.pos_demodummyausdruck Then
CheckBoxDummy.Checked = False
Else
CheckBoxDummy.Checked = True
End If
End Sub End Sub
@@ -401,4 +446,128 @@ Public Class frmPOSTerminal
Private Sub dgvTerminals_SelectionChanged(sender As Object, e As EventArgs) Handles dgvTerminals.SelectionChanged Private Sub dgvTerminals_SelectionChanged(sender As Object, e As EventArgs) Handles dgvTerminals.SelectionChanged
loadCurrentPOS() loadCurrentPOS()
End Sub 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 End Class