From 7e850241aa031dc244243f39d45899013add961a Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 6 Mar 2023 14:25:28 +0100 Subject: [PATCH] POS-Terminal --- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/kassenbuch/frmBelegNeu.vb | 11 +- SDL/kassenbuch/frmPOSTerminal.Designer.vb | 943 +++++++++++++--------- SDL/kassenbuch/frmPOSTerminal.vb | 424 ++++++---- 4 files changed, 838 insertions(+), 544 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 03e701ba..bbac6d1a 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index 3d36fa32..c7301c49 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -294,10 +294,8 @@ Public Class frmBelegNeu 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 + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kassenbuch POS-Terminalzahlungen", Me) = 0 Then btnPOS.Enabled = False - Else - btnPOS.Enabled = True End If @@ -1560,6 +1558,7 @@ Public Class frmBelegNeu 'Button_Gutschrift.Enabled = True ZVTKey.Close() MsgBox(response) + setBreak = False End Sub Private Sub POSpayment(sender As Object, e As EventArgs) Handles btnPOS.Click @@ -1574,7 +1573,7 @@ Public Class frmBelegNeu MsgBox("Für diese Kasse ist kein aktives POS-Terminal hinterlegt!") Exit Sub Case 1 - PosPAyment2() + SetRegEntries() Case Else ContextMenuStrip1.Items.Clear() @@ -1593,7 +1592,7 @@ Public Class frmBelegNeu End Sub - Private Sub PosPAyment2(Optional posid As Integer = -1) + Private Sub SetRegEntries(Optional posid As Integer = -1) If posid = -1 Then @@ -1659,7 +1658,7 @@ Public Class frmBelegNeu 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) + SetRegEntries(item.Name) End If End Sub diff --git a/SDL/kassenbuch/frmPOSTerminal.Designer.vb b/SDL/kassenbuch/frmPOSTerminal.Designer.vb index ce38cf33..661347f7 100644 --- a/SDL/kassenbuch/frmPOSTerminal.Designer.vb +++ b/SDL/kassenbuch/frmPOSTerminal.Designer.vb @@ -24,60 +24,77 @@ Partial Class frmPOSTerminal 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.cbx_Dummy = New System.Windows.Forms.CheckBox() + Me.cbx_Autodruck = 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.cbx_Typ = New System.Windows.Forms.ComboBox() + Me.btn_Haendlerbeleg_drucken = New System.Windows.Forms.Button() + Me.txt_Kassenbon = New System.Windows.Forms.TextBox() + Me.btn_Kundenbeleg_drucken = New System.Windows.Forms.Button() + Me.btn_Gutschrift = New System.Windows.Forms.Button() + Me.btn_Storno = New System.Windows.Forms.Button() + Me.btn_Tagesabschluss = New System.Windows.Forms.Button() + Me.btn_Diagnose = New System.Windows.Forms.Button() + Me.cbx_Kassedruck = New System.Windows.Forms.CheckBox() Me.Label11 = New System.Windows.Forms.Label() - Me.TextBox_Drucktext2 = New System.Windows.Forms.TextBox() + Me.txt_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.txt_Drucktext = New System.Windows.Forms.TextBox() + Me.txt_Lizenz = New System.Windows.Forms.TextBox() Me.Label7 = New System.Windows.Forms.Label() - Me.ComboBox_ComStop = New System.Windows.Forms.ComboBox() + Me.cbx_ComStop = New System.Windows.Forms.ComboBox() Me.Label6 = New System.Windows.Forms.Label() - Me.ComboBox_ComSpeed = New System.Windows.Forms.ComboBox() + Me.cbx_ComSpeed = New System.Windows.Forms.ComboBox() Me.Label5 = New System.Windows.Forms.Label() - Me.TextBox_Port = New System.Windows.Forms.TextBox() + Me.txt_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.txt_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.cbx_COM = New System.Windows.Forms.ComboBox() + Me.txt_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.txt_KassenBez = 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.cbx_aktiv = New System.Windows.Forms.CheckBox() + Me.txt_Wartezeit = New System.Windows.Forms.TextBox() Me.Label17 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.cbx_Sprache = New System.Windows.Forms.ComboBox() + Me.Label22 = New System.Windows.Forms.Label() + Me.btn_Sprache = New System.Windows.Forms.Button() + Me.btn_Kontostand = New System.Windows.Forms.Button() + Me.btn_Druckwiederh = New System.Windows.Forms.Button() + Me.Label21 = New System.Windows.Forms.Label() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() + Me.TextBox_Aktiv = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.txt_ErgebnisText = New System.Windows.Forms.TextBox() + Me.txt_Ergebnis = New System.Windows.Forms.TextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.txt_BelegNr = New System.Windows.Forms.TextBox() + Me.btn_Autorisierung = New System.Windows.Forms.Button() + Me.txt_Betrag = New System.Windows.Forms.TextBox() + Me.lblWarning = New System.Windows.Forms.Label() CType(Me.dgvTerminals, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.TabPage3.SuspendLayout() Me.SuspendLayout() ' 'dgvTerminals @@ -93,33 +110,33 @@ Partial Class frmPOSTerminal 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.Size = New System.Drawing.Size(260, 529) Me.dgvTerminals.TabIndex = 92 ' - 'CheckBoxDummy + 'cbx_Dummy ' - 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 + Me.cbx_Dummy.AutoSize = True + Me.cbx_Dummy.Location = New System.Drawing.Point(104, 48) + Me.cbx_Dummy.Name = "cbx_Dummy" + Me.cbx_Dummy.Size = New System.Drawing.Size(128, 17) + Me.cbx_Dummy.TabIndex = 137 + Me.cbx_Dummy.Text = "Dummy-Kopf drucken" + Me.cbx_Dummy.UseVisualStyleBackColor = True ' - 'CheckBoxAutodruck + 'cbx_Autodruck ' - 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 + Me.cbx_Autodruck.AutoSize = True + Me.cbx_Autodruck.Location = New System.Drawing.Point(17, 49) + Me.cbx_Autodruck.Name = "cbx_Autodruck" + Me.cbx_Autodruck.Size = New System.Drawing.Size(75, 17) + Me.cbx_Autodruck.TabIndex = 136 + Me.cbx_Autodruck.Text = "Autodruck" + Me.cbx_Autodruck.UseVisualStyleBackColor = True ' 'Label15 ' Me.Label15.AutoSize = True - Me.Label15.Location = New System.Drawing.Point(209, 347) + Me.Label15.Location = New System.Drawing.Point(14, 191) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(45, 13) Me.Label15.TabIndex = 135 @@ -128,32 +145,15 @@ Partial Class frmPOSTerminal 'comboInstalledPrinters ' Me.comboInstalledPrinters.FormattingEnabled = True - Me.comboInstalledPrinters.Location = New System.Drawing.Point(304, 342) + Me.comboInstalledPrinters.Location = New System.Drawing.Point(109, 186) 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.Location = New System.Drawing.Point(13, 190) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(76, 13) Me.Label14.TabIndex = 131 @@ -161,271 +161,210 @@ Partial Class frmPOSTerminal ' 'StornoBelegNr ' - Me.StornoBelegNr.Location = New System.Drawing.Point(889, 420) + Me.StornoBelegNr.Location = New System.Drawing.Point(16, 208) 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.Location = New System.Drawing.Point(8, 258) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(25, 13) Me.Label13.TabIndex = 128 Me.Label13.Text = "Typ" ' - 'ComboBox_Typ + 'cbx_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" + Me.cbx_Typ.FormattingEnabled = True + Me.cbx_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.cbx_Typ.Location = New System.Drawing.Point(137, 255) + Me.cbx_Typ.MaxDropDownItems = 12 + Me.cbx_Typ.Name = "cbx_Typ" + Me.cbx_Typ.Size = New System.Drawing.Size(154, 21) + Me.cbx_Typ.TabIndex = 127 + Me.cbx_Typ.Text = "0: ZVT Standard" ' - 'Button_Haendlerbeleg_drucken + 'btn_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 + Me.btn_Haendlerbeleg_drucken.Location = New System.Drawing.Point(317, 334) + Me.btn_Haendlerbeleg_drucken.Name = "btn_Haendlerbeleg_drucken" + Me.btn_Haendlerbeleg_drucken.Size = New System.Drawing.Size(122, 23) + Me.btn_Haendlerbeleg_drucken.TabIndex = 126 + Me.btn_Haendlerbeleg_drucken.Text = "Drucken" + Me.btn_Haendlerbeleg_drucken.UseVisualStyleBackColor = True ' - 'TextBox_Kassenbon + 'txt_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" + Me.txt_Kassenbon.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txt_Kassenbon.Location = New System.Drawing.Point(319, 22) + Me.txt_Kassenbon.Multiline = True + Me.txt_Kassenbon.Name = "txt_Kassenbon" + Me.txt_Kassenbon.ReadOnly = True + Me.txt_Kassenbon.Size = New System.Drawing.Size(221, 151) + Me.txt_Kassenbon.TabIndex = 125 + Me.txt_Kassenbon.Text = "Kassenbon" ' - 'Button_Kundenbeleg_drucken + 'btn_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 + Me.btn_Kundenbeleg_drucken.Location = New System.Drawing.Point(18, 334) + Me.btn_Kundenbeleg_drucken.Name = "btn_Kundenbeleg_drucken" + Me.btn_Kundenbeleg_drucken.Size = New System.Drawing.Size(122, 23) + Me.btn_Kundenbeleg_drucken.TabIndex = 124 + Me.btn_Kundenbeleg_drucken.Text = "Drucken" + Me.btn_Kundenbeleg_drucken.UseVisualStyleBackColor = True ' - 'Button_Gutschrift + 'btn_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 + Me.btn_Gutschrift.Location = New System.Drawing.Point(265, 194) + Me.btn_Gutschrift.Name = "btn_Gutschrift" + Me.btn_Gutschrift.Size = New System.Drawing.Size(129, 34) + Me.btn_Gutschrift.TabIndex = 123 + Me.btn_Gutschrift.Text = "Gutschrift" + Me.btn_Gutschrift.UseVisualStyleBackColor = True ' - 'Button_Storno + 'btn_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 + Me.btn_Storno.Location = New System.Drawing.Point(119, 194) + Me.btn_Storno.Name = "btn_Storno" + Me.btn_Storno.Size = New System.Drawing.Size(129, 34) + Me.btn_Storno.TabIndex = 122 + Me.btn_Storno.Text = " Storno" + Me.btn_Storno.UseVisualStyleBackColor = True ' - 'Button_Tagesabschluss + 'btn_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 + Me.btn_Tagesabschluss.Location = New System.Drawing.Point(305, 45) + Me.btn_Tagesabschluss.Name = "btn_Tagesabschluss" + Me.btn_Tagesabschluss.Size = New System.Drawing.Size(129, 34) + Me.btn_Tagesabschluss.TabIndex = 121 + Me.btn_Tagesabschluss.Text = "Tagesabschl." + Me.btn_Tagesabschluss.UseVisualStyleBackColor = True ' - 'Button_Diagnose + 'btn_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 + Me.btn_Diagnose.Location = New System.Drawing.Point(160, 45) + Me.btn_Diagnose.Name = "btn_Diagnose" + Me.btn_Diagnose.Size = New System.Drawing.Size(129, 33) + Me.btn_Diagnose.TabIndex = 120 + Me.btn_Diagnose.Text = "Diagnose" + Me.btn_Diagnose.UseVisualStyleBackColor = True ' - 'CheckBox_Kassedruck + 'cbx_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 + Me.cbx_Kassedruck.AutoSize = True + Me.cbx_Kassedruck.Location = New System.Drawing.Point(16, 23) + Me.cbx_Kassedruck.Name = "cbx_Kassedruck" + Me.cbx_Kassedruck.Size = New System.Drawing.Size(82, 17) + Me.cbx_Kassedruck.TabIndex = 118 + Me.cbx_Kassedruck.Text = "Kassedruck" + Me.cbx_Kassedruck.UseVisualStyleBackColor = True ' 'Label11 ' Me.Label11.AutoSize = True - Me.Label11.Location = New System.Drawing.Point(509, 372) + Me.Label11.Location = New System.Drawing.Point(314, 216) 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 + 'txt_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 + Me.txt_Drucktext2.Location = New System.Drawing.Point(317, 232) + Me.txt_Drucktext2.Multiline = True + Me.txt_Drucktext2.Name = "txt_Drucktext2" + Me.txt_Drucktext2.ReadOnly = True + Me.txt_Drucktext2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.txt_Drucktext2.Size = New System.Drawing.Size(226, 96) + Me.txt_Drucktext2.TabIndex = 116 ' 'Label10 ' Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(210, 372) + Me.Label10.Location = New System.Drawing.Point(15, 216) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(125, 13) Me.Label10.TabIndex = 115 Me.Label10.Text = "Drucktext (Kundenbeleg)" ' - 'TextBox_Drucktext + 'txt_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 + Me.txt_Drucktext.Location = New System.Drawing.Point(17, 232) + Me.txt_Drucktext.Multiline = True + Me.txt_Drucktext.Name = "txt_Drucktext" + Me.txt_Drucktext.ReadOnly = True + Me.txt_Drucktext.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.txt_Drucktext.Size = New System.Drawing.Size(223, 96) + Me.txt_Drucktext.TabIndex = 114 ' - 'TextBox_ErgebnisText + 'txt_Lizenz ' - 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 + Me.txt_Lizenz.Location = New System.Drawing.Point(135, 226) + Me.txt_Lizenz.Name = "txt_Lizenz" + Me.txt_Lizenz.Size = New System.Drawing.Size(190, 20) + Me.txt_Lizenz.TabIndex = 109 ' 'Label7 ' Me.Label7.AutoSize = True - Me.Label7.Location = New System.Drawing.Point(210, 200) + Me.Label7.Location = New System.Drawing.Point(8, 229) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(37, 13) Me.Label7.TabIndex = 108 Me.Label7.Text = "Lizenz" ' - 'ComboBox_ComStop + 'cbx_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" + Me.cbx_ComStop.FormattingEnabled = True + Me.cbx_ComStop.Items.AddRange(New Object() {"1", "2"}) + Me.cbx_ComStop.Location = New System.Drawing.Point(135, 198) + Me.cbx_ComStop.Name = "cbx_ComStop" + Me.cbx_ComStop.Size = New System.Drawing.Size(38, 21) + Me.cbx_ComStop.TabIndex = 107 + Me.cbx_ComStop.Text = "1" ' 'Label6 ' Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(209, 172) + Me.Label6.Location = New System.Drawing.Point(7, 201) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(50, 13) Me.Label6.TabIndex = 106 Me.Label6.Text = "ComStop" ' - 'ComboBox_ComSpeed + 'cbx_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" + Me.cbx_ComSpeed.FormattingEnabled = True + Me.cbx_ComSpeed.Items.AddRange(New Object() {"9600", "115000"}) + Me.cbx_ComSpeed.Location = New System.Drawing.Point(135, 165) + Me.cbx_ComSpeed.Name = "cbx_ComSpeed" + Me.cbx_ComSpeed.Size = New System.Drawing.Size(121, 21) + Me.cbx_ComSpeed.TabIndex = 105 + Me.cbx_ComSpeed.Text = "9600" ' 'Label5 ' Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(210, 140) + Me.Label5.Location = New System.Drawing.Point(8, 169) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(59, 13) Me.Label5.TabIndex = 104 Me.Label5.Text = "ComSpeed" ' - 'TextBox_Port + 'txt_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 + Me.txt_Port.Location = New System.Drawing.Point(301, 138) + Me.txt_Port.MaxLength = 5 + Me.txt_Port.Name = "txt_Port" + Me.txt_Port.Size = New System.Drawing.Size(58, 20) + Me.txt_Port.TabIndex = 103 ' 'Label4 ' Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(438, 112) + Me.Label4.Location = New System.Drawing.Point(269, 141) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(26, 13) Me.Label4.TabIndex = 102 @@ -434,51 +373,51 @@ Partial Class frmPOSTerminal 'Label3 ' Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(210, 109) + Me.Label3.Location = New System.Drawing.Point(8, 138) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(17, 13) Me.Label3.TabIndex = 101 Me.Label3.Text = "IP" ' - 'TextBox_IP + 'txt_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 + Me.txt_IP.Location = New System.Drawing.Point(135, 135) + Me.txt_IP.MaxLength = 30 + Me.txt_IP.Name = "txt_IP" + Me.txt_IP.Size = New System.Drawing.Size(121, 20) + Me.txt_IP.TabIndex = 100 ' 'Label2 ' Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(210, 78) + Me.Label2.Location = New System.Drawing.Point(8, 107) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(55, 13) Me.Label2.TabIndex = 99 Me.Label2.Text = "Anschluss" ' - 'ComboBox_COM + 'cbx_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" + Me.cbx_COM.FormattingEnabled = True + Me.cbx_COM.Items.AddRange(New Object() {"LAN", "COM", "COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9"}) + Me.cbx_COM.Location = New System.Drawing.Point(135, 104) + Me.cbx_COM.Name = "cbx_COM" + Me.cbx_COM.Size = New System.Drawing.Size(121, 21) + Me.cbx_COM.TabIndex = 98 + Me.cbx_COM.Text = "LAN" ' - 'TextBox_KasseNr + 'txt_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 + Me.txt_KasseNr.Location = New System.Drawing.Point(137, 10) + Me.txt_KasseNr.MaxLength = 4 + Me.txt_KasseNr.Name = "txt_KasseNr" + Me.txt_KasseNr.Size = New System.Drawing.Size(46, 20) + Me.txt_KasseNr.TabIndex = 97 ' 'Label16 ' Me.Label16.AutoSize = True - Me.Label16.Location = New System.Drawing.Point(210, 24) + Me.Label16.Location = New System.Drawing.Point(8, 15) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(50, 13) Me.Label16.TabIndex = 94 @@ -487,7 +426,7 @@ Partial Class frmPOSTerminal 'btnNew ' Me.btnNew.DialogResult = System.Windows.Forms.DialogResult.Cancel - Me.btnNew.Location = New System.Drawing.Point(917, 518) + Me.btnNew.Location = New System.Drawing.Point(760, 516) Me.btnNew.Name = "btnNew" Me.btnNew.Size = New System.Drawing.Size(78, 23) Me.btnNew.TabIndex = 138 @@ -499,7 +438,7 @@ Partial Class frmPOSTerminal 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.Location = New System.Drawing.Point(225, 521) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(24, 20) Me.Button1.TabIndex = 140 @@ -510,7 +449,7 @@ Partial Class frmPOSTerminal 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.Location = New System.Drawing.Point(248, 521) Me.btn.Name = "btn" Me.btn.Size = New System.Drawing.Size(24, 20) Me.btn.TabIndex = 139 @@ -519,54 +458,54 @@ Partial Class frmPOSTerminal 'LinkLabel2 ' Me.LinkLabel2.AutoSize = True - Me.LinkLabel2.Location = New System.Drawing.Point(780, 106) + Me.LinkLabel2.Location = New System.Drawing.Point(360, 43) 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 + 'txt_KassenBez ' - 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 + Me.txt_KassenBez.Location = New System.Drawing.Point(137, 36) + Me.txt_KassenBez.MaxLength = 4 + Me.txt_KassenBez.Name = "txt_KassenBez" + Me.txt_KassenBez.Size = New System.Drawing.Size(86, 20) + Me.txt_KassenBez.TabIndex = 144 ' 'Label1 ' Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(210, 48) + Me.Label1.Location = New System.Drawing.Point(7, 39) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(57, 13) + Me.Label1.Size = New System.Drawing.Size(112, 13) Me.Label1.TabIndex = 143 - Me.Label1.Text = "Kasse Bez" + Me.Label1.Text = "Terminal Bezeichnung" ' - 'cbxAktiv + 'cbx_aktiv ' - 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 + Me.cbx_aktiv.AutoSize = True + Me.cbx_aktiv.Location = New System.Drawing.Point(363, 14) + Me.cbx_aktiv.Name = "cbx_aktiv" + Me.cbx_aktiv.Size = New System.Drawing.Size(172, 17) + Me.cbx_aktiv.TabIndex = 145 + Me.cbx_aktiv.Text = "aktiv (Terminal angeschlossen)" + Me.cbx_aktiv.UseVisualStyleBackColor = True ' - 'txtWartezeit + 'txt_Wartezeit ' - 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 + Me.txt_Wartezeit.Location = New System.Drawing.Point(137, 64) + Me.txt_Wartezeit.MaxLength = 4 + Me.txt_Wartezeit.Name = "txt_Wartezeit" + Me.txt_Wartezeit.Size = New System.Drawing.Size(23, 20) + Me.txt_Wartezeit.TabIndex = 147 + Me.txt_Wartezeit.Text = "3" + Me.txt_Wartezeit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'Label17 ' Me.Label17.AutoSize = True - Me.Label17.Location = New System.Drawing.Point(744, 23) + Me.Label17.Location = New System.Drawing.Point(177, 67) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(88, 13) Me.Label17.TabIndex = 146 @@ -575,130 +514,362 @@ Partial Class frmPOSTerminal 'Label18 ' Me.Label18.AutoSize = True - Me.Label18.Location = New System.Drawing.Point(645, 21) + Me.Label18.Location = New System.Drawing.Point(8, 67) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(74, 13) Me.Label18.TabIndex = 148 Me.Label18.Text = "Start von ZVT" ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Location = New System.Drawing.Point(274, 9) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(568, 501) + Me.TabControl1.TabIndex = 149 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.Label16) + Me.TabPage1.Controls.Add(Me.Label18) + Me.TabPage1.Controls.Add(Me.txt_KasseNr) + Me.TabPage1.Controls.Add(Me.txt_Wartezeit) + Me.TabPage1.Controls.Add(Me.cbx_COM) + Me.TabPage1.Controls.Add(Me.Label17) + Me.TabPage1.Controls.Add(Me.Label2) + Me.TabPage1.Controls.Add(Me.cbx_aktiv) + Me.TabPage1.Controls.Add(Me.txt_IP) + Me.TabPage1.Controls.Add(Me.txt_KassenBez) + Me.TabPage1.Controls.Add(Me.Label3) + Me.TabPage1.Controls.Add(Me.Label1) + Me.TabPage1.Controls.Add(Me.Label4) + Me.TabPage1.Controls.Add(Me.LinkLabel2) + Me.TabPage1.Controls.Add(Me.txt_Port) + Me.TabPage1.Controls.Add(Me.Label5) + Me.TabPage1.Controls.Add(Me.cbx_ComSpeed) + Me.TabPage1.Controls.Add(Me.Label6) + Me.TabPage1.Controls.Add(Me.cbx_ComStop) + Me.TabPage1.Controls.Add(Me.Label7) + Me.TabPage1.Controls.Add(Me.txt_Lizenz) + Me.TabPage1.Controls.Add(Me.Label13) + Me.TabPage1.Controls.Add(Me.cbx_Typ) + Me.TabPage1.Location = New System.Drawing.Point(4, 22) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(560, 475) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "Allgemein" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.Label15) + Me.TabPage2.Controls.Add(Me.txt_Drucktext) + Me.TabPage2.Controls.Add(Me.Label10) + Me.TabPage2.Controls.Add(Me.txt_Drucktext2) + Me.TabPage2.Controls.Add(Me.Label11) + Me.TabPage2.Controls.Add(Me.btn_Kundenbeleg_drucken) + Me.TabPage2.Controls.Add(Me.btn_Haendlerbeleg_drucken) + Me.TabPage2.Controls.Add(Me.comboInstalledPrinters) + Me.TabPage2.Controls.Add(Me.txt_Kassenbon) + Me.TabPage2.Controls.Add(Me.cbx_Kassedruck) + Me.TabPage2.Controls.Add(Me.cbx_Autodruck) + Me.TabPage2.Controls.Add(Me.cbx_Dummy) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(560, 475) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "Ausdruck" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.cbx_Sprache) + Me.TabPage3.Controls.Add(Me.Label22) + Me.TabPage3.Controls.Add(Me.btn_Sprache) + Me.TabPage3.Controls.Add(Me.btn_Kontostand) + Me.TabPage3.Controls.Add(Me.btn_Druckwiederh) + Me.TabPage3.Controls.Add(Me.Label21) + Me.TabPage3.Controls.Add(Me.Label20) + Me.TabPage3.Controls.Add(Me.Label19) + Me.TabPage3.Controls.Add(Me.btn_Tagesabschluss) + Me.TabPage3.Controls.Add(Me.btn_Diagnose) + Me.TabPage3.Controls.Add(Me.TextBox_Aktiv) + Me.TabPage3.Controls.Add(Me.btn_Storno) + Me.TabPage3.Controls.Add(Me.btn_Gutschrift) + Me.TabPage3.Controls.Add(Me.Label14) + Me.TabPage3.Controls.Add(Me.Label8) + Me.TabPage3.Controls.Add(Me.txt_ErgebnisText) + Me.TabPage3.Controls.Add(Me.StornoBelegNr) + Me.TabPage3.Controls.Add(Me.txt_Ergebnis) + Me.TabPage3.Controls.Add(Me.Label12) + Me.TabPage3.Controls.Add(Me.Label9) + Me.TabPage3.Controls.Add(Me.txt_BelegNr) + Me.TabPage3.Controls.Add(Me.btn_Autorisierung) + Me.TabPage3.Controls.Add(Me.txt_Betrag) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage3.Size = New System.Drawing.Size(560, 475) + Me.TabPage3.TabIndex = 2 + Me.TabPage3.Text = "Funktionen" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'cbx_Sprache + ' + Me.cbx_Sprache.FormattingEnabled = True + Me.cbx_Sprache.Items.AddRange(New Object() {"DE", "FR", "ES", "NL", "IT", "PL"}) + Me.cbx_Sprache.Location = New System.Drawing.Point(16, 259) + Me.cbx_Sprache.Name = "cbx_Sprache" + Me.cbx_Sprache.Size = New System.Drawing.Size(80, 21) + Me.cbx_Sprache.TabIndex = 138 + Me.cbx_Sprache.Text = "DE" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(13, 243) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(47, 13) + Me.Label22.TabIndex = 139 + Me.Label22.Text = "Sprache" + ' + 'btn_Sprache + ' + Me.btn_Sprache.Location = New System.Drawing.Point(119, 251) + Me.btn_Sprache.Name = "btn_Sprache" + Me.btn_Sprache.Size = New System.Drawing.Size(129, 34) + Me.btn_Sprache.TabIndex = 137 + Me.btn_Sprache.Text = "Srpachauswahl" + Me.btn_Sprache.UseVisualStyleBackColor = True + ' + 'btn_Kontostand + ' + Me.btn_Kontostand.Location = New System.Drawing.Point(413, 194) + Me.btn_Kontostand.Name = "btn_Kontostand" + Me.btn_Kontostand.Size = New System.Drawing.Size(129, 34) + Me.btn_Kontostand.TabIndex = 136 + Me.btn_Kontostand.Text = "Kontostandabfr." + Me.btn_Kontostand.UseVisualStyleBackColor = True + ' + 'btn_Druckwiederh + ' + Me.btn_Druckwiederh.Location = New System.Drawing.Point(440, 44) + Me.btn_Druckwiederh.Name = "btn_Druckwiederh" + Me.btn_Druckwiederh.Size = New System.Drawing.Size(114, 34) + Me.btn_Druckwiederh.TabIndex = 135 + Me.btn_Druckwiederh.Text = "Druckwiederholung" + Me.btn_Druckwiederh.UseVisualStyleBackColor = True + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Location = New System.Drawing.Point(14, 355) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(43, 13) + Me.Label21.TabIndex = 134 + Me.Label21.Text = "Antwort" + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(13, 164) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(235, 13) + Me.Label20.TabIndex = 133 + Me.Label20.Text = "Funktionen mit Standard- oder Professionallizenz" + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Location = New System.Drawing.Point(6, 3) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(120, 13) + Me.Label19.TabIndex = 132 + Me.Label19.Text = "Funktionen ohne Lizenz" + ' + 'TextBox_Aktiv + ' + Me.TextBox_Aktiv.BackColor = System.Drawing.Color.Gray + Me.TextBox_Aktiv.Location = New System.Drawing.Point(13, 440) + Me.TextBox_Aktiv.Name = "TextBox_Aktiv" + Me.TextBox_Aktiv.Size = New System.Drawing.Size(123, 20) + Me.TextBox_Aktiv.TabIndex = 129 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(14, 22) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(38, 13) + Me.Label8.TabIndex = 110 + Me.Label8.Text = "Betrag" + ' + 'txt_ErgebnisText + ' + Me.txt_ErgebnisText.Location = New System.Drawing.Point(167, 382) + Me.txt_ErgebnisText.Multiline = True + Me.txt_ErgebnisText.Name = "txt_ErgebnisText" + Me.txt_ErgebnisText.ReadOnly = True + Me.txt_ErgebnisText.Size = New System.Drawing.Size(375, 43) + Me.txt_ErgebnisText.TabIndex = 113 + ' + 'txt_Ergebnis + ' + Me.txt_Ergebnis.Location = New System.Drawing.Point(109, 382) + Me.txt_Ergebnis.Name = "txt_Ergebnis" + Me.txt_Ergebnis.ReadOnly = True + Me.txt_Ergebnis.Size = New System.Drawing.Size(44, 20) + Me.txt_Ergebnis.TabIndex = 112 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(13, 412) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(45, 13) + Me.Label12.TabIndex = 133 + Me.Label12.Text = "BelegNr" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(13, 385) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(48, 13) + Me.Label9.TabIndex = 111 + Me.Label9.Text = "Ergebnis" + ' + 'txt_BelegNr + ' + Me.txt_BelegNr.Location = New System.Drawing.Point(109, 405) + Me.txt_BelegNr.Name = "txt_BelegNr" + Me.txt_BelegNr.ReadOnly = True + Me.txt_BelegNr.Size = New System.Drawing.Size(44, 20) + Me.txt_BelegNr.TabIndex = 132 + ' + 'btn_Autorisierung + ' + Me.btn_Autorisierung.Location = New System.Drawing.Point(9, 45) + Me.btn_Autorisierung.Name = "btn_Autorisierung" + Me.btn_Autorisierung.Size = New System.Drawing.Size(129, 33) + Me.btn_Autorisierung.TabIndex = 96 + Me.btn_Autorisierung.Text = "Autorisierung starten" + Me.btn_Autorisierung.UseVisualStyleBackColor = True + ' + 'txt_Betrag + ' + Me.txt_Betrag.Location = New System.Drawing.Point(108, 19) + Me.txt_Betrag.MaxLength = 8 + Me.txt_Betrag.Name = "txt_Betrag" + Me.txt_Betrag.Size = New System.Drawing.Size(46, 20) + Me.txt_Betrag.TabIndex = 95 + Me.txt_Betrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'lblWarning + ' + Me.lblWarning.AutoSize = True + Me.lblWarning.ForeColor = System.Drawing.Color.Red + Me.lblWarning.Location = New System.Drawing.Point(487, 9) + Me.lblWarning.Name = "lblWarning" + Me.lblWarning.Size = New System.Drawing.Size(47, 13) + Me.lblWarning.TabIndex = 150 + Me.lblWarning.Text = "Warning" + ' '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.ClientSize = New System.Drawing.Size(847, 550) + Me.Controls.Add(Me.lblWarning) + Me.Controls.Add(Me.TabControl1) 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.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + Me.TabPage2.ResumeLayout(False) + Me.TabPage2.PerformLayout() + Me.TabPage3.ResumeLayout(False) + Me.TabPage3.PerformLayout() 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 cbx_Dummy As CheckBox + Friend WithEvents cbx_Autodruck 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 cbx_Typ As ComboBox + Friend WithEvents btn_Haendlerbeleg_drucken As Button + Friend WithEvents txt_Kassenbon As TextBox + Friend WithEvents btn_Kundenbeleg_drucken As Button + Friend WithEvents btn_Gutschrift As Button + Friend WithEvents btn_Storno As Button + Friend WithEvents btn_Tagesabschluss As Button + Friend WithEvents btn_Diagnose As Button + Friend WithEvents cbx_Kassedruck As CheckBox Friend WithEvents Label11 As Label - Friend WithEvents TextBox_Drucktext2 As TextBox + Friend WithEvents txt_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 txt_Drucktext As TextBox + Friend WithEvents txt_Lizenz As TextBox Friend WithEvents Label7 As Label - Friend WithEvents ComboBox_ComStop As ComboBox + Friend WithEvents cbx_ComStop As ComboBox Friend WithEvents Label6 As Label - Friend WithEvents ComboBox_ComSpeed As ComboBox + Friend WithEvents cbx_ComSpeed As ComboBox Friend WithEvents Label5 As Label - Friend WithEvents TextBox_Port As TextBox + Friend WithEvents txt_Port As TextBox Friend WithEvents Label4 As Label Friend WithEvents Label3 As Label - Friend WithEvents TextBox_IP As TextBox + Friend WithEvents txt_IP As TextBox Friend WithEvents Label2 As Label - Friend WithEvents ComboBox_COM As ComboBox - Friend WithEvents TextBox_KasseNr As TextBox + Friend WithEvents cbx_COM As ComboBox + Friend WithEvents txt_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 txt_KassenBez As TextBox Friend WithEvents Label1 As Label - Friend WithEvents cbxAktiv As CheckBox - Friend WithEvents txtWartezeit As TextBox + Friend WithEvents cbx_aktiv As CheckBox + Friend WithEvents txt_Wartezeit As TextBox Friend WithEvents Label17 As Label Friend WithEvents Label18 As Label + Friend WithEvents TabControl1 As TabControl + Friend WithEvents TabPage1 As TabPage + Friend WithEvents TabPage2 As TabPage + Friend WithEvents TabPage3 As TabPage + Friend WithEvents lblWarning As Label + Friend WithEvents Label21 As Label + Friend WithEvents Label20 As Label + Friend WithEvents Label19 As Label + Friend WithEvents TextBox_Aktiv As TextBox + Friend WithEvents Label8 As Label + Friend WithEvents txt_ErgebnisText As TextBox + Friend WithEvents txt_Ergebnis As TextBox + Friend WithEvents Label12 As Label + Friend WithEvents Label9 As Label + Friend WithEvents txt_BelegNr As TextBox + Friend WithEvents btn_Autorisierung As Button + Friend WithEvents txt_Betrag As TextBox + Friend WithEvents btn_Druckwiederh As Button + Friend WithEvents btn_Kontostand As Button + Friend WithEvents cbx_Sprache As ComboBox + Friend WithEvents Label22 As Label + Friend WithEvents btn_Sprache As Button End Class diff --git a/SDL/kassenbuch/frmPOSTerminal.vb b/SDL/kassenbuch/frmPOSTerminal.vb index 4c1bbba1..86017d0d 100644 --- a/SDL/kassenbuch/frmPOSTerminal.vb +++ b/SDL/kassenbuch/frmPOSTerminal.vb @@ -1,11 +1,15 @@ Imports System.Drawing.Printing +Imports System.Security.Authentication.ExtendedProtection Imports com.sun.tools.corba.se.idl.constExpr +Imports DocumentFormat.OpenXml.Drawing.Diagrams +Imports java.awt.print Imports Microsoft.Win32 Imports TAlex.WPF.Helpers Public Class frmPOSTerminal Dim currentPOS As cRKSV_POS + Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL 'Public Sub New(ByVal _rptKundenBeleg, betrag) ' rptKundenBeleg = _rptKundenBeleg @@ -38,49 +42,6 @@ Public Class frmPOSTerminal 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 @@ -92,25 +53,32 @@ Public Class frmPOSTerminal Try ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord) - TypSelected = Strings.Left(ComboBox_Typ.Text, 2).Replace(":", "") + TypSelected = Strings.Left(cbx_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("KasseNr", txt_KasseNr.Text, RegistryValueKind.String) + ZVTKey.SetValue("COM", cbx_COM.Text, RegistryValueKind.String) + ZVTKey.SetValue("IP", txt_IP.Text, RegistryValueKind.String) + ZVTKey.SetValue("Port", CInt(txt_Port.Text), RegistryValueKind.DWord) + ZVTKey.SetValue("ComSpeed", CInt(cbx_ComSpeed.Text), RegistryValueKind.DWord) + ZVTKey.SetValue("ComStop", CInt(cbx_ComStop.Text), RegistryValueKind.DWord) + ZVTKey.SetValue("Lizenz", txt_Lizenz.Text, RegistryValueKind.String) + + Select Case Funktion + Case 0, 4 + Betrag = CInt("0" & txt_Betrag.Text) + ZVTKey.SetValue("Betrag", Betrag, RegistryValueKind.DWord) + + Case 3 + ZVTKey.SetValue("StornoBetrag", CInt("0" & txt_Betrag.Text), RegistryValueKind.DWord) + ZVTKey.SetValue("StornoBelegNr", CInt("0" & StornoBelegNr.Text), RegistryValueKind.DWord) + + Case 12 'Sprache + ZVTKey.SetValue("Sprache", cbx_Sprache.Text, RegistryValueKind.DWord) + + End Select + + If cbx_Kassedruck.Checked Then ZVTKey.SetValue("Kassedruck", 1, RegistryValueKind.DWord) Else ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord) @@ -118,23 +86,27 @@ Public Class frmPOSTerminal 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 + If cbx_Autodruck.Checked Then ZVTKey.SetValue("DemoAutodruck", 1, RegistryValueKind.DWord) Else ZVTKey.SetValue("DemoAutodruck", 0, RegistryValueKind.DWord) End If - If CheckBoxDummy.Checked Then + If cbx_Dummy.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 + btn_Autorisierung.Enabled = False + btn_Diagnose.Enabled = False + btn_Tagesabschluss.Enabled = False + btn_Storno.Enabled = False + btn_Gutschrift.Enabled = False + btn_Sprache.Enabled = False + btn_Druckwiederh.Enabled = False + btn_Kontostand.Enabled = False - TextBox_ErgebnisText.Text = "EasyZVT-Zahlung aktiv" + + txt_ErgebnisText.Text = "EasyZVT-Zahlung aktiv" TextBox_Aktiv.Text = "warte auf Aktiv=0" Catch ex As Exception @@ -146,13 +118,16 @@ Public Class frmPOSTerminal End Sub Private Sub Autorisierung() - + If txt_Betrag.Text = "" Then + txt_Betrag.Focus() + Exit Sub + End If 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 + Private Sub Button_Autorisierung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Autorisierung.Click 'Zahlung per Klick auslösen Autorisierung() End Sub @@ -178,11 +153,11 @@ Public Class frmPOSTerminal TextBox_Aktiv.BackColor = Color.Red Else TextBox_Aktiv.BackColor = Color.Gray - End If - End While + 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") + 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) @@ -197,62 +172,98 @@ Public Class frmPOSTerminal 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) + txt_Ergebnis.Text = ZVTKey.GetValue("Ergebnis") + txt_ErgebnisText.Text = ZVTKey.GetValue("ErgebnisText") + txt_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf) + txt_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf) - TextBox_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString - TextBox_Betrag.Text = "" + txt_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString + txt_Betrag.Text = "" - If CheckBoxAutodruck.Checked Then - If Len(TextBox_Drucktext.Text) > 1 Then - Button_Kundenbeleg_drucken.PerformClick() + If cbx_Autodruck.Checked Then + If Len(txt_Drucktext.Text) > 1 Then + btn_Kundenbeleg_drucken.PerformClick() End If - If Len(TextBox_Drucktext2.Text) > 1 Then - Button_Haendlerbeleg_drucken.PerformClick() + If Len(txt_Drucktext2.Text) > 1 Then + btn_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 + txt_Betrag.Focus() + btn_Autorisierung.Enabled = True + btn_Diagnose.Enabled = True + btn_Tagesabschluss.Enabled = True + btn_Storno.Enabled = True + btn_Gutschrift.Enabled = True + btn_Sprache.Enabled = True + btn_Druckwiederh.Enabled = True + btn_Kontostand.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 + Private Sub Button_Diagnose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_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 + Private Sub Button_Tagesabschluss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_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 + Private Sub Button_Storno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Storno.Click + If txt_Betrag.Text = "" Then + txt_Betrag.Focus() + Exit Sub + End If + + If StornoBelegNr.Text = "" Then + StornoBelegNr.Focus() + Exit Sub + End If + 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 + Private Sub Button_Gutschrift_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Gutschrift.Click + If txt_Betrag.Text = "" Then + txt_Betrag.Focus() + Exit Sub + End If Funktion = 4 SetRegistryParameter() EasyZVT_Worker.RunWorkerAsync() End Sub + Private Sub btn_Druckwiederh_Click(sender As Object, e As EventArgs) Handles btn_Druckwiederh.Click + Funktion = 5 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + End Sub + + Private Sub btn_Kontostand_Click(sender As Object, e As EventArgs) Handles btn_Kontostand.Click + Funktion = 7 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + End Sub + + Private Sub btn_Sprache_Click(sender As Object, e As EventArgs) Handles btn_Sprache.Click + Funktion = 13 + 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 @@ -300,7 +311,7 @@ Public Class frmPOSTerminal .Columns.Clear() - .SET_SQL("SELECT [pos_id],[pos_aktiv],[pos_bezeichnung] ,[pos_kasse] ,[pos_kassennr] ,[pos_com] + .SET_SQL("SELECT [pos_id],[pos_aktiv],[pos_kassennr],[pos_bezeichnung] ,[pos_kasse] ,[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] @@ -313,11 +324,12 @@ Public Class frmPOSTerminal .Columns("pos_id").Visible = False .Columns("pos_bezeichnung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft + .Columns("pos_bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .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_kassennr").Width = 40 + .Columns("pos_kassennr").HeaderText = "K-Nr" + .Columns("pos_aktiv").Width = 25 + .Columns("pos_aktiv").HeaderText = "" .Columns("pos_kassendruck").Visible = False .Columns("pos_kasse").Visible = False .Columns("pos_com").Visible = False @@ -334,6 +346,8 @@ Public Class frmPOSTerminal .Columns("pos_händerbeleg_drucken").Visible = False .Columns("pos_storno").Visible = False .Columns("pos_wartezeit").Visible = False + .Columns("pos_ip").HeaderText = "IP-Adresse" + .Columns("pos_ip").Width = 100 End With End Sub @@ -341,14 +355,16 @@ Public Class frmPOSTerminal Try Text = kasse & " - POS Terminal einstellen " + lblWarning.Text = "" + btnNew.Enabled = False 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() + If dgvTerminals.Columns.Count < 1 Then + loadCurrentPOS() + End If Catch ex As Exception MessageBox.Show("Fehler beim Einlesen der Standardwerte: " & ex.Message) @@ -357,42 +373,59 @@ Public Class frmPOSTerminal Private Sub loadCurrentPOS() + btnNew.Enabled = False 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 + txt_KassenBez.Text = currentPOS.pos_bezeichnung + cbx_aktiv.Checked = currentPOS.pos_aktiv + txt_Wartezeit.Text = currentPOS.pos_wartezeit / 1000 + txt_KasseNr.Text = currentPOS.pos_kassennr + cbx_COM.Text = currentPOS.pos_com + txt_IP.Text = currentPOS.pos_ip + txt_Port.Text = currentPOS.pos_port + cbx_ComSpeed.Text = currentPOS.pos_comspeed + cbx_ComStop.Text = currentPOS.pos_comstop + txt_Lizenz.Text = currentPOS.pos_lizenz If currentPOS.pos_kassendruck Then - CheckBox_Kassedruck.Checked = True + cbx_Kassedruck.Checked = True Else - CheckBox_Kassedruck.Checked = False + cbx_Kassedruck.Checked = False End If - ComboBox_Typ.SelectedIndex = ComboBox_Typ.FindString(currentPOS.pos_typ) + cbx_Typ.SelectedIndex = cbx_Typ.FindString(currentPOS.pos_typ) PopulateInstalledPrintersCombo() 'comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", "")) If Not currentPOS.pos_demoausdruck Then - CheckBoxAutodruck.Checked = False + cbx_Autodruck.Checked = False Else - CheckBoxAutodruck.Checked = True + cbx_Autodruck.Checked = True End If If Not currentPOS.pos_demodummyausdruck Then - CheckBoxDummy.Checked = False + cbx_Dummy.Checked = False Else - CheckBoxDummy.Checked = True + cbx_Dummy.Checked = True End If + + For Each tempTabPages As TabPage In TabControl1.TabPages + If Not tempTabPages.Name = "TabPage3" Then + For Each c As Control In tempTabPages.Controls + If TypeOf (c) Is CheckBox Then + AddHandler CType(c, CheckBox).CheckedChanged, AddressOf SomethingChanged + ElseIf TypeOf (c) Is TextBox Then + AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged + ElseIf TypeOf (c) Is ComboBox Then + AddHandler CType(c, ComboBox).SelectedValueChanged, AddressOf SomethingChanged + End If + Next + End If + + Next + End If @@ -403,32 +436,35 @@ Public Class frmPOSTerminal If dgvTerminals.SelectedRows.Count > 0 Then + If Not checkConstraints() Then + Exit Sub + End If - 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_kassennr = txt_KasseNr.Text + currentPOS.pos_aktiv = cbx_aktiv.Checked + currentPOS.pos_wartezeit = CInt(txt_Wartezeit.Text) * 1000 + currentPOS.pos_com = cbx_COM.Text + currentPOS.pos_ip = txt_IP.Text + currentPOS.pos_port = txt_Port.Text + currentPOS.pos_comspeed = cbx_ComSpeed.Text + currentPOS.pos_comstop = cbx_ComStop.Text + currentPOS.pos_lizenz = txt_Lizenz.Text + If cbx_Kassedruck.Checked Then currentPOS.pos_kassendruck = True Else currentPOS.pos_kassendruck = False End If - currentPOS.pos_typ = ComboBox_Typ.FindString(ComboBox_Typ.SelectedIndex) + currentPOS.pos_typ = cbx_Typ.FindString(cbx_Typ.SelectedIndex) PopulateInstalledPrintersCombo() 'comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", "")) - If Not CheckBoxAutodruck.Checked Then + If Not cbx_Autodruck.Checked Then currentPOS.pos_demoausdruck = False Else currentPOS.pos_demoausdruck = True End If - If Not CheckBoxDummy.Checked Then + If Not cbx_Dummy.Checked Then currentPOS.pos_demodummyausdruck = False Else currentPOS.pos_demodummyausdruck = True @@ -436,6 +472,7 @@ Public Class frmPOSTerminal currentPOS.SAVE() + btnNew.Enabled = False End If @@ -447,6 +484,9 @@ Public Class frmPOSTerminal loadCurrentPOS() End Sub + Private Sub SomethingChanged(sender As Object, e As EventArgs) + btnNew.Enabled = True + End Sub Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click @@ -502,25 +542,25 @@ Public Class frmPOSTerminal Process.Start(webAddress) End Sub - Private Sub Button_Kundenbeleg_drucken_Click(sender As System.Object, e As System.EventArgs) Handles Button_Kundenbeleg_drucken.Click + Private Sub Button_Kundenbeleg_drucken_Click(sender As System.Object, e As System.EventArgs) Handles btn_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 cbx_Dummy.Checked Then + txt_Kassenbon.Text = "Kassenbon EasyZVT DemoApp" & vbCrLf + txt_Kassenbon.Text &= "KasseNr: " & txt_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 + txt_Kassenbon.Text &= "Testartikel Menge 1 Betrag " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf + txt_Kassenbon.Text &= "Gesamtbetrag " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf + txt_Kassenbon.Text &= "Kartenzahlung " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf End If - TextBox_Kassenbon.Text &= TextBox_Drucktext.Text ' Hier den Kundenbeleg hinzufügen + txt_Kassenbon.Text &= txt_Drucktext.Text ' Hier den Kundenbeleg hinzufügen Else - TextBox_Kassenbon.Text = TextBox_Drucktext.Text + txt_Kassenbon.Text = txt_Drucktext.Text End If If comboInstalledPrinters.SelectedIndex <> -1 Then @@ -536,25 +576,25 @@ Public Class frmPOSTerminal End Sub - Private Sub Button_Haendlerbeleg_drucken_Click(sender As System.Object, e As System.EventArgs) Handles Button_Haendlerbeleg_drucken.Click + Private Sub Button_Haendlerbeleg_drucken_Click(sender As System.Object, e As System.EventArgs) Handles btn_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 cbx_Dummy.Checked Then + txt_Kassenbon.Text = "Kassenbon EasyZVT DemoApp" & vbCrLf + txt_Kassenbon.Text &= "KasseNr: " & txt_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 + txt_Kassenbon.Text &= "Testartikel Menge 1 Betrag " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf + txt_Kassenbon.Text &= "Gesamtbetrag " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf + txt_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 + txt_Kassenbon.Text &= txt_Drucktext2.Text ' Hier den Händlerbeleg hinzufügen Else - TextBox_Kassenbon.Text &= TextBox_Drucktext.Text + txt_Kassenbon.Text &= txt_Drucktext.Text End If If comboInstalledPrinters.SelectedIndex <> -1 Then @@ -570,4 +610,88 @@ Public Class frmPOSTerminal End Sub + Private Sub ComboBox_COM_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbx_COM.SelectedValueChanged + + If cbx_COM.SelectedItem Is Nothing Then + Exit Sub + End If + + 'If cbx_COM.SelectedItem.ToString = "LAN" Then + ' txt_IP.Enabled = True + ' txt_Port.Enabled = True + ' cbx_ComSpeed.Enabled = False + ' cbx_ComSpeed.SelectedIndex = -1 + ' cbx_ComStop.Enabled = False + ' cbx_ComStop.SelectedIndex = -1 + + 'Else + ' txt_IP.Enabled = False + ' 'txt_IP.Clear() + ' txt_Port.Enabled = False + ' 'txt_Port.Clear() + ' cbx_ComSpeed.Enabled = True + ' cbx_ComStop.Enabled = True + + 'End If + End Sub + + Private Function checkConstraints() + + Dim valuesOK As Boolean = False + + If CInt(txt_Wartezeit.Text) < 1 Then + lblWarning.Text = " Wartezeit muss größer als 0 sein! " + Return valuesOK + End If + + If cbx_COM.SelectedItem Is Nothing Then + lblWarning.Text = " Anschluss auswählen " + Return valuesOK + End If + + If cbx_Typ.SelectedItem Is Nothing Then + lblWarning.Text = " Typ auswählen " + Return valuesOK + End If + + + If cbx_COM.SelectedItem.ToString = "LAN" Then + If txt_IP.Text = "" Then + lblWarning.Text = " IP-Adresse hinterlegen! " + Return valuesOK + Else + + If CInt(SQL.getValueTxtBySql("SELECT count(*) FROM tblRKSV_POS WHERE pos_ip='" & txt_IP.Text & "' ", "FMZOLL")) > 0 Then + lblWarning.Text = " IP Adresse ist bereits vergeben! " + Return valuesOK + End If + + If txt_Port.Text = "" Then + lblWarning.Text = " Port hinterlegen! " + Return valuesOK + End If + + End If + End If + + + If cbx_ComSpeed.SelectedItem = "" Then + lblWarning.Text = " Baudrate hinterlegen! " + Return valuesOK + Else + If cbx_ComStop.SelectedItem = "" Then + lblWarning.Text = " Com Stop hinterlegen! " + Return valuesOK + End If + End If + + + + lblWarning.Text = "" + valuesOK = True + Return valuesOK + + End Function + + End Class \ No newline at end of file