diff --git a/SDL/Classes/cRKSV_POS.vb b/SDL/Classes/cRKSV_POS.vb index 247cfe57..f4991407 100644 --- a/SDL/Classes/cRKSV_POS.vb +++ b/SDL/Classes/cRKSV_POS.vb @@ -7,6 +7,7 @@ Public Class cRKSV_POS Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Property pos_Id As Integer + Property pos_bezeichnung As String Property pos_aktiv As Object = Nothing Property pos_kasse As Object = Nothing Property pos_kassennr As Object = Nothing @@ -29,13 +30,27 @@ Public Class cRKSV_POS Public hasEntry = False - Public Sub New(pos_Id) + Public Sub New(pos_Id, pos_kasse) Me.pos_Id = pos_Id + Me.pos_kasse = pos_kasse + LOAD() + End Sub + + Public Sub New(pos_bezeichnung As String, pos_kasse As Integer, pos_aktiv As Boolean) + Me.pos_bezeichnung = pos_bezeichnung + Me.pos_kasse = pos_kasse + Me.pos_aktiv = pos_aktiv + SAVE() + End Sub + + Public Sub New(pos_bezeichnung As String) + Me.pos_bezeichnung = pos_bezeichnung LOAD() End Sub Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_Id", pos_Id,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_bezeichnung", pos_bezeichnung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_aktiv", pos_aktiv)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kasse", pos_kasse)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kassennr", pos_kassennr)) @@ -50,7 +65,7 @@ Public Class cRKSV_POS list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kassendruck", pos_kassendruck)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_demoausdruck", pos_demoausdruck)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_demodummyausdruck", pos_demodummyausdruck)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_apos_pinktiv", pos_pin)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_pin", pos_pin)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_händerbeleg_drucken", pos_händerbeleg_drucken)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_storno", pos_storno)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_wartezeit", pos_wartezeit)) @@ -143,4 +158,8 @@ Public Class cRKSV_POS End Function + Public Sub delete() + SQL.doSQL("delete from [tblRKSV_POS] where pos_Id = '" & pos_Id & "' ", "FMZOLL") + End Sub + End Class diff --git a/SDL/kassenbuch/frmPOSTerminal.Designer.vb b/SDL/kassenbuch/frmPOSTerminal.Designer.vb index 8bf4efdb..ce38cf33 100644 --- a/SDL/kassenbuch/frmPOSTerminal.Designer.vb +++ b/SDL/kassenbuch/frmPOSTerminal.Designer.vb @@ -24,7 +24,6 @@ Partial Class frmPOSTerminal Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.dgvTerminals = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.Label1 = New System.Windows.Forms.Label() Me.CheckBoxDummy = New System.Windows.Forms.CheckBox() Me.CheckBoxAutodruck = New System.Windows.Forms.CheckBox() Me.Label15 = New System.Windows.Forms.Label() @@ -43,7 +42,6 @@ Partial Class frmPOSTerminal 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.Button_Exit = New System.Windows.Forms.Button() Me.CheckBox_Kassedruck = New System.Windows.Forms.CheckBox() Me.Label11 = New System.Windows.Forms.Label() Me.TextBox_Drucktext2 = New System.Windows.Forms.TextBox() @@ -70,6 +68,15 @@ Partial Class frmPOSTerminal Me.TextBox_KasseNr = New System.Windows.Forms.TextBox() Me.Label16 = New System.Windows.Forms.Label() Me.btnNew = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.btn = New System.Windows.Forms.Button() + Me.LinkLabel2 = New System.Windows.Forms.LinkLabel() + Me.txtKassenBez = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.cbxAktiv = New System.Windows.Forms.CheckBox() + Me.txtWartezeit = New System.Windows.Forms.TextBox() + Me.Label17 = New System.Windows.Forms.Label() + Me.Label18 = New System.Windows.Forms.Label() CType(Me.dgvTerminals, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -77,26 +84,22 @@ Partial Class frmPOSTerminal ' Me.dgvTerminals.AKTUALISIERUNGS_INTERVALL = -1 Me.dgvTerminals.AllowUserToAddRows = False + Me.dgvTerminals.AllowUserToDeleteRows = False Me.dgvTerminals.BackgroundColor = System.Drawing.Color.White Me.dgvTerminals.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvTerminals.Location = New System.Drawing.Point(25, 36) + Me.dgvTerminals.Location = New System.Drawing.Point(12, 12) + Me.dgvTerminals.MultiSelect = False 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 ' - '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 ' 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.Size = New System.Drawing.Size(128, 17) Me.CheckBoxDummy.TabIndex = 137 @@ -106,7 +109,7 @@ Partial Class frmPOSTerminal 'CheckBoxAutodruck ' 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.Size = New System.Drawing.Size(75, 17) Me.CheckBoxAutodruck.TabIndex = 136 @@ -116,7 +119,7 @@ Partial Class frmPOSTerminal 'Label15 ' 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.Size = New System.Drawing.Size(45, 13) Me.Label15.TabIndex = 135 @@ -125,15 +128,15 @@ Partial Class frmPOSTerminal 'comboInstalledPrinters ' 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.Size = New System.Drawing.Size(229, 21) + 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(33, 620) + 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 @@ -141,7 +144,7 @@ Partial Class frmPOSTerminal ' '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.ReadOnly = True Me.TextBox_BelegNr.Size = New System.Drawing.Size(44, 20) @@ -150,7 +153,7 @@ Partial Class frmPOSTerminal 'Label14 ' 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.Size = New System.Drawing.Size(76, 13) Me.Label14.TabIndex = 131 @@ -158,7 +161,7 @@ Partial Class frmPOSTerminal ' '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.Size = New System.Drawing.Size(78, 20) Me.StornoBelegNr.TabIndex = 130 @@ -166,7 +169,7 @@ Partial Class frmPOSTerminal 'TextBox_Aktiv ' 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.Size = New System.Drawing.Size(123, 20) Me.TextBox_Aktiv.TabIndex = 129 @@ -174,7 +177,7 @@ Partial Class frmPOSTerminal 'Label13 ' 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.Size = New System.Drawing.Size(25, 13) Me.Label13.TabIndex = 128 @@ -184,7 +187,7 @@ Partial Class frmPOSTerminal ' 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(408, 511) + 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) @@ -193,7 +196,7 @@ Partial Class frmPOSTerminal ' '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.Size = New System.Drawing.Size(122, 23) Me.Button_Haendlerbeleg_drucken.TabIndex = 126 @@ -203,17 +206,17 @@ Partial Class frmPOSTerminal 'TextBox_Kassenbon ' Me.TextBox_Kassenbon.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TextBox_Kassenbon.Location = New System.Drawing.Point(603, 451) + 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, 76) + Me.TextBox_Kassenbon.Size = New System.Drawing.Size(221, 151) Me.TextBox_Kassenbon.TabIndex = 125 Me.TextBox_Kassenbon.Text = "Kassenbon" ' 'Button_Kundenbeleg_drucken ' - Me.Button_Kundenbeleg_drucken.Location = New System.Drawing.Point(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.Size = New System.Drawing.Size(122, 23) Me.Button_Kundenbeleg_drucken.TabIndex = 124 @@ -222,54 +225,44 @@ Partial Class frmPOSTerminal ' '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.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.Text = "4 = Gutschrift" Me.Button_Gutschrift.UseVisualStyleBackColor = True ' '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.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.Text = "3 = Storno" Me.Button_Storno.UseVisualStyleBackColor = True ' '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.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.Text = "2 = Tagesabschluss" + Me.Button_Tagesabschluss.Text = "2 = Tagesabschl." Me.Button_Tagesabschluss.UseVisualStyleBackColor = True ' '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.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.Text = "1 = Diagnose" 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 ' 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.Size = New System.Drawing.Size(82, 17) Me.CheckBox_Kassedruck.TabIndex = 118 @@ -279,7 +272,7 @@ Partial Class frmPOSTerminal 'Label11 ' 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.Size = New System.Drawing.Size(131, 13) Me.Label11.TabIndex = 117 @@ -287,18 +280,18 @@ Partial Class frmPOSTerminal ' '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.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, 208) + Me.TextBox_Drucktext2.Size = New System.Drawing.Size(226, 96) Me.TextBox_Drucktext2.TabIndex = 116 ' 'Label10 ' Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(34, 642) + Me.Label10.Location = New System.Drawing.Point(210, 372) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(125, 13) Me.Label10.TabIndex = 115 @@ -306,17 +299,17 @@ Partial Class frmPOSTerminal ' '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.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, 209) + Me.TextBox_Drucktext.Size = New System.Drawing.Size(223, 96) Me.TextBox_Drucktext.TabIndex = 114 ' 'TextBox_ErgebnisText ' - Me.TextBox_ErgebnisText.Location = New System.Drawing.Point(188, 594) + 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 @@ -325,7 +318,7 @@ Partial Class frmPOSTerminal ' '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.ReadOnly = True Me.TextBox_Ergebnis.Size = New System.Drawing.Size(44, 20) @@ -334,7 +327,7 @@ Partial Class frmPOSTerminal 'Label9 ' 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.Size = New System.Drawing.Size(48, 13) Me.Label9.TabIndex = 111 @@ -342,7 +335,7 @@ Partial Class frmPOSTerminal ' '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.Size = New System.Drawing.Size(199, 24) Me.Button_Autorisierung.TabIndex = 96 @@ -351,7 +344,7 @@ Partial Class frmPOSTerminal ' '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.Name = "TextBox_Betrag" Me.TextBox_Betrag.Size = New System.Drawing.Size(46, 20) @@ -361,7 +354,7 @@ Partial Class frmPOSTerminal 'Label8 ' 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.Size = New System.Drawing.Size(38, 13) Me.Label8.TabIndex = 110 @@ -369,7 +362,7 @@ Partial Class frmPOSTerminal ' '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.Size = New System.Drawing.Size(190, 20) Me.TextBox_Lizenz.TabIndex = 109 @@ -377,7 +370,7 @@ Partial Class frmPOSTerminal 'Label7 ' 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.Size = New System.Drawing.Size(37, 13) Me.Label7.TabIndex = 108 @@ -387,7 +380,7 @@ Partial Class frmPOSTerminal ' Me.ComboBox_ComStop.FormattingEnabled = True 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.Size = New System.Drawing.Size(38, 21) Me.ComboBox_ComStop.TabIndex = 107 @@ -396,7 +389,7 @@ Partial Class frmPOSTerminal 'Label6 ' 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.Size = New System.Drawing.Size(50, 13) Me.Label6.TabIndex = 106 @@ -406,7 +399,7 @@ Partial Class frmPOSTerminal ' Me.ComboBox_ComSpeed.FormattingEnabled = True 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.Size = New System.Drawing.Size(121, 21) Me.ComboBox_ComSpeed.TabIndex = 105 @@ -415,7 +408,7 @@ Partial Class frmPOSTerminal 'Label5 ' 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.Size = New System.Drawing.Size(59, 13) Me.Label5.TabIndex = 104 @@ -423,7 +416,7 @@ Partial Class frmPOSTerminal ' '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.Name = "TextBox_Port" Me.TextBox_Port.Size = New System.Drawing.Size(58, 20) @@ -432,7 +425,7 @@ Partial Class frmPOSTerminal 'Label4 ' 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.Size = New System.Drawing.Size(26, 13) Me.Label4.TabIndex = 102 @@ -441,7 +434,7 @@ Partial Class frmPOSTerminal 'Label3 ' 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.Size = New System.Drawing.Size(17, 13) Me.Label3.TabIndex = 101 @@ -449,7 +442,7 @@ Partial Class frmPOSTerminal ' '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.Name = "TextBox_IP" Me.TextBox_IP.Size = New System.Drawing.Size(114, 20) @@ -458,17 +451,17 @@ Partial Class frmPOSTerminal 'Label2 ' 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.Size = New System.Drawing.Size(31, 13) + Me.Label2.Size = New System.Drawing.Size(55, 13) Me.Label2.TabIndex = 99 - Me.Label2.Text = "COM" + Me.Label2.Text = "Anschluss" ' 'ComboBox_COM ' Me.ComboBox_COM.FormattingEnabled = True Me.ComboBox_COM.Items.AddRange(New Object() {"LAN", "COM", "COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9"}) - Me.ComboBox_COM.Location = New System.Drawing.Point(128, 451) + 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 @@ -476,37 +469,132 @@ Partial Class frmPOSTerminal ' '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.Name = "TextBox_KasseNr" Me.TextBox_KasseNr.Size = New System.Drawing.Size(46, 20) Me.TextBox_KasseNr.TabIndex = 97 - Me.TextBox_KasseNr.Text = "1" ' 'Label16 ' 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.Size = New System.Drawing.Size(47, 13) + Me.Label16.Size = New System.Drawing.Size(50, 13) Me.Label16.TabIndex = 94 - Me.Label16.Text = "KasseNr" + Me.Label16.Text = "Kasse Nr" ' 'btnNew ' 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.Size = New System.Drawing.Size(78, 23) Me.btnNew.TabIndex = 138 Me.btnNew.Text = "Speichern" Me.btnNew.UseVisualStyleBackColor = True ' + 'Button1 + ' + Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.del + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(153, 521) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(24, 20) + Me.Button1.TabIndex = 140 + Me.Button1.UseVisualStyleBackColor = True + ' + 'btn + ' + Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus + Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Location = New System.Drawing.Point(176, 521) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(24, 20) + Me.btn.TabIndex = 139 + Me.btn.UseVisualStyleBackColor = True + ' + 'LinkLabel2 + ' + Me.LinkLabel2.AutoSize = True + Me.LinkLabel2.Location = New System.Drawing.Point(780, 106) + Me.LinkLabel2.Name = "LinkLabel2" + Me.LinkLabel2.Size = New System.Drawing.Size(144, 13) + Me.LinkLabel2.TabIndex = 142 + Me.LinkLabel2.TabStop = True + Me.LinkLabel2.Text = "Installation ZVT (hier klicken)" + ' + 'txtKassenBez + ' + Me.txtKassenBez.Location = New System.Drawing.Point(304, 45) + Me.txtKassenBez.MaxLength = 4 + Me.txtKassenBez.Name = "txtKassenBez" + Me.txtKassenBez.Size = New System.Drawing.Size(121, 20) + Me.txtKassenBez.TabIndex = 144 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(210, 48) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(57, 13) + Me.Label1.TabIndex = 143 + Me.Label1.Text = "Kasse Bez" + ' + 'cbxAktiv + ' + Me.cbxAktiv.AutoSize = True + Me.cbxAktiv.Location = New System.Drawing.Point(446, 23) + Me.cbxAktiv.Name = "cbxAktiv" + Me.cbxAktiv.Size = New System.Drawing.Size(172, 17) + Me.cbxAktiv.TabIndex = 145 + Me.cbxAktiv.Text = "aktiv (Terminal angeschlossen)" + Me.cbxAktiv.UseVisualStyleBackColor = True + ' + 'txtWartezeit + ' + Me.txtWartezeit.Location = New System.Drawing.Point(838, 20) + Me.txtWartezeit.MaxLength = 4 + Me.txtWartezeit.Name = "txtWartezeit" + Me.txtWartezeit.Size = New System.Drawing.Size(23, 20) + Me.txtWartezeit.TabIndex = 147 + Me.txtWartezeit.Text = "3" + Me.txtWartezeit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(744, 23) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(88, 13) + Me.Label17.TabIndex = 146 + Me.Label17.Text = "Wartezeit in Sec." + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(645, 21) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(74, 13) + Me.Label18.TabIndex = 148 + Me.Label18.Text = "Start von ZVT" + ' 'frmPOSTerminal ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(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.CheckBoxDummy) Me.Controls.Add(Me.CheckBoxAutodruck) @@ -526,7 +614,6 @@ Partial Class frmPOSTerminal Me.Controls.Add(Me.Button_Storno) Me.Controls.Add(Me.Button_Tagesabschluss) Me.Controls.Add(Me.Button_Diagnose) - Me.Controls.Add(Me.Button_Exit) Me.Controls.Add(Me.CheckBox_Kassedruck) Me.Controls.Add(Me.Label11) Me.Controls.Add(Me.TextBox_Drucktext2) @@ -552,7 +639,6 @@ Partial Class frmPOSTerminal Me.Controls.Add(Me.ComboBox_COM) Me.Controls.Add(Me.TextBox_KasseNr) Me.Controls.Add(Me.Label16) - Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.dgvTerminals) Me.Name = "frmPOSTerminal" Me.Text = "POS Terminal einstellen" @@ -562,7 +648,6 @@ Partial Class frmPOSTerminal End Sub Friend WithEvents dgvTerminals As VERAG_PROG_ALLGEMEIN.MyDatagridview - Friend WithEvents Label1 As Label Friend WithEvents CheckBoxDummy As CheckBox Friend WithEvents CheckBoxAutodruck As CheckBox Friend WithEvents Label15 As Label @@ -581,7 +666,6 @@ Partial Class frmPOSTerminal Friend WithEvents Button_Storno As Button Friend WithEvents Button_Tagesabschluss As Button Friend WithEvents Button_Diagnose As Button - Friend WithEvents Button_Exit As Button Friend WithEvents CheckBox_Kassedruck As CheckBox Friend WithEvents Label11 As Label Friend WithEvents TextBox_Drucktext2 As TextBox @@ -608,4 +692,13 @@ Partial Class frmPOSTerminal Friend WithEvents TextBox_KasseNr As TextBox Friend WithEvents Label16 As Label Friend WithEvents btnNew As Button + Friend WithEvents Button1 As Button + Friend WithEvents btn As Button + Friend WithEvents LinkLabel2 As LinkLabel + Friend WithEvents txtKassenBez As TextBox + Friend WithEvents Label1 As Label + Friend WithEvents cbxAktiv As CheckBox + Friend WithEvents txtWartezeit As TextBox + Friend WithEvents Label17 As Label + Friend WithEvents Label18 As Label End Class diff --git a/SDL/kassenbuch/frmPOSTerminal.vb b/SDL/kassenbuch/frmPOSTerminal.vb index 7096bb0c..4c1bbba1 100644 --- a/SDL/kassenbuch/frmPOSTerminal.vb +++ b/SDL/kassenbuch/frmPOSTerminal.vb @@ -1,8 +1,12 @@ Imports System.Drawing.Printing +Imports com.sun.tools.corba.se.idl.constExpr Imports Microsoft.Win32 +Imports TAlex.WPF.Helpers Public Class frmPOSTerminal + Dim currentPOS As cRKSV_POS + 'Public Sub New(ByVal _rptKundenBeleg, betrag) ' rptKundenBeleg = _rptKundenBeleg ' betrag = CInt(betrag) @@ -87,54 +91,51 @@ Public Class frmPOSTerminal 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 - - 'ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord) - 'TypSelected = Strings.Left(ComboBox_Typ.Text, 2).Replace(":", "") - 'Typ = TypSelected - 'ZVTKey.SetValue("Typ", Typ, RegistryValueKind.DWord) - 'ZVTKey.SetValue("KasseNr", TextBox_KasseNr.Text, RegistryValueKind.String) - 'ZVTKey.SetValue("COM", ComboBox_COM.Text, RegistryValueKind.String) - 'ZVTKey.SetValue("IP", TextBox_IP.Text, RegistryValueKind.String) - 'ZVTKey.SetValue("Port", CInt(TextBox_Port.Text), RegistryValueKind.DWord) - 'ZVTKey.SetValue("ComSpeed", CInt(ComboBox_ComSpeed.Text), RegistryValueKind.DWord) - 'ZVTKey.SetValue("ComStop", CInt(ComboBox_ComStop.Text), RegistryValueKind.DWord) - 'ZVTKey.SetValue("Lizenz", TextBox_Lizenz.Text, RegistryValueKind.String) - 'If Funktion = 0 Or Funktion = 4 Then - ' Betrag = CInt("0" & TextBox_Betrag.Text) - ' ZVTKey.SetValue("Betrag", Betrag, RegistryValueKind.DWord) - 'End If - 'If Funktion = 3 Then - ' ZVTKey.SetValue("StornoBetrag", CInt("0" & TextBox_Betrag.Text), RegistryValueKind.DWord) - ' ZVTKey.SetValue("StornoBelegNr", CInt("0" & StornoBelegNr.Text), RegistryValueKind.DWord) - 'End If - 'If CheckBox_Kassedruck.Checked Then - ' ZVTKey.SetValue("Kassedruck", 1, RegistryValueKind.DWord) - 'Else - ' ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord) - 'End If - 'ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Zur Sicherheit, falls EasyZVT gar nicht installiert ist oder nicht gestartet werden kann - 'ZVTKey.SetValue("ErgebnisText", "EasyZVT konnte nicht gestartet werden", RegistryValueKind.String) - 'ZVTKey.SetValue("DemoDruckername", comboInstalledPrinters.Text, RegistryValueKind.String) - 'If CheckBoxAutodruck.Checked Then - ' ZVTKey.SetValue("DemoAutodruck", 1, RegistryValueKind.DWord) - 'Else - ' ZVTKey.SetValue("DemoAutodruck", 0, RegistryValueKind.DWord) - 'End If - 'If CheckBoxDummy.Checked Then - ' ZVTKey.SetValue("DemoDummydruck", 1, RegistryValueKind.DWord) - 'Else - ' ZVTKey.SetValue("DemoDummydruck", 0, RegistryValueKind.DWord) - 'End If - 'Button_Autorisierung.Enabled = False - 'Button_Diagnose.Enabled = False - 'Button_Tagesabschluss.Enabled = False - 'Button_Storno.Enabled = False - 'Button_Gutschrift.Enabled = False - - 'TextBox_ErgebnisText.Text = "EasyZVT-Zahlung aktiv" - 'TextBox_Aktiv.Text = "warte auf Aktiv=0" - + TextBox_ErgebnisText.Text = "EasyZVT-Zahlung aktiv" + TextBox_Aktiv.Text = "warte auf Aktiv=0" Catch ex As Exception MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message) @@ -143,6 +144,7 @@ Public Class frmPOSTerminal ZVTKey.Close() End Sub + Private Sub Autorisierung() Funktion = 0 @@ -150,7 +152,7 @@ Public Class frmPOSTerminal EasyZVT_Worker.RunWorkerAsync() 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 Autorisierung() End Sub @@ -166,22 +168,22 @@ Public Class frmPOSTerminal Dim ZVTStart As String = ZVTKey.GetValue("Start") Dim Proc As System.Diagnostics.Process - ' If (Len(ZVTStart) > 1) Then - ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Wenn das Ergebnis 1000 bleibt konnte EasyZVT nicht gestartet werden + If (Len(ZVTStart) > 1) Then + ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Wenn das Ergebnis 1000 bleibt konnte EasyZVT nicht gestartet werden Proc = System.Diagnostics.Process.Start(ZVTStart) - System.Threading.Thread.Sleep(3000) ' Warte drei Sekunden bis Prozess ZVTStart geladen ist, dann erst anfangen Flag Aktiv abzufragen - ' While ZVTKey.GetValue("Aktiv") = 1 - ' System.Threading.Thread.Sleep(500) ' Warten... - ' ' If TextBox_Aktiv.BackColor = Color.Gray Then ' kleine Spielerei :-) - ' ' TextBox_Aktiv.BackColor = Color.Red - ' Else - ' ' TextBox_Aktiv.BackColor = Color.Gray - ' End If - ' End While - ' 'TextBox_Aktiv.BackColor = Color.Gray - 'Else - ' MsgBox("EasyZVT ist nicht installiert. Bitte im Internet Explorer über www.easyzvt.de/publish installieren") - 'End If + System.Threading.Thread.Sleep(currentPOS.pos_wartezeit) ' Warte xx Sekunden bis Prozess ZVTStart geladen ist, dann erst anfangen Flag Aktiv abzufragen + While ZVTKey.GetValue("Aktiv") = 1 + System.Threading.Thread.Sleep(500) ' Warten... + If TextBox_Aktiv.BackColor = Color.Gray Then ' kleine Spielerei :-) + TextBox_Aktiv.BackColor = Color.Red + Else + TextBox_Aktiv.BackColor = Color.Gray + End If + End While + TextBox_Aktiv.BackColor = Color.Gray + Else + MsgBox("EasyZVT ist nicht installiert. Bitte im Internet Explorer über www.easyzvt.de/publish installieren") + End If Catch ex As Exception MessageBox.Show("Der Programmstart ist fehlgeschlagen: " & ex.Message) Exit Sub @@ -193,58 +195,58 @@ Public Class frmPOSTerminal ' und EasyZVT seine Ausgabewerte in die Registry zurückgeschrieben hat - 'Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) - 'TextBox_Aktiv.Text = "" - 'TextBox_Ergebnis.Text = ZVTKey.GetValue("Ergebnis") - 'TextBox_ErgebnisText.Text = ZVTKey.GetValue("ErgebnisText") - 'TextBox_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf) - 'TextBox_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf) + Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + TextBox_Aktiv.Text = "" + TextBox_Ergebnis.Text = ZVTKey.GetValue("Ergebnis") + TextBox_ErgebnisText.Text = ZVTKey.GetValue("ErgebnisText") + TextBox_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf) + TextBox_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf) - 'TextBox_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString - 'TextBox_Betrag.Text = "" + TextBox_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString + TextBox_Betrag.Text = "" - 'If CheckBoxAutodruck.Checked Then - ' If Len(TextBox_Drucktext.Text) > 1 Then - ' Button_Kundenbeleg_drucken.PerformClick() - ' End If - ' If Len(TextBox_Drucktext2.Text) > 1 Then - ' Button_Haendlerbeleg_drucken.PerformClick() - ' End If + If CheckBoxAutodruck.Checked Then + If Len(TextBox_Drucktext.Text) > 1 Then + Button_Kundenbeleg_drucken.PerformClick() + End If + If Len(TextBox_Drucktext2.Text) > 1 Then + Button_Haendlerbeleg_drucken.PerformClick() + End If - 'End If + End If - 'TextBox_Betrag.Focus() - 'Button_Autorisierung.Enabled = True - 'Button_Diagnose.Enabled = True - 'Button_Tagesabschluss.Enabled = True - 'Button_Storno.Enabled = True - 'Button_Gutschrift.Enabled = True - 'ZVTKey.Close() + TextBox_Betrag.Focus() + Button_Autorisierung.Enabled = True + Button_Diagnose.Enabled = True + Button_Tagesabschluss.Enabled = True + Button_Storno.Enabled = True + Button_Gutschrift.Enabled = True + ZVTKey.Close() End Sub - Private Sub Button_Diagnose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Private Sub Button_Diagnose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Diagnose.Click Funktion = 1 SetRegistryParameter() EasyZVT_Worker.RunWorkerAsync() End Sub - Private Sub Button_Tagesabschluss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Private Sub Button_Tagesabschluss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Tagesabschluss.Click Funktion = 2 SetRegistryParameter() EasyZVT_Worker.RunWorkerAsync() End Sub - Private Sub Button_Storno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Private Sub Button_Storno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Storno.Click Funktion = 3 SetRegistryParameter() EasyZVT_Worker.RunWorkerAsync() End Sub - Private Sub Button_Gutschrift_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Private Sub Button_Gutschrift_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Gutschrift.Click Funktion = 4 SetRegistryParameter() EasyZVT_Worker.RunWorkerAsync() @@ -276,13 +278,6 @@ Public Class frmPOSTerminal 'e.Graphics.DrawString(TextBox_Kassenbon.Text, Textfont, Brushes.Black, Rahmen, StrFormat) 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 Private Sub PopulateInstalledPrintersCombo() ' 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 pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i) - 'comboInstalledPrinters.Items.Add(pkInstalledPrinters) + comboInstalledPrinters.Items.Add(pkInstalledPrinters) Next End Sub @@ -301,55 +296,55 @@ Public Class frmPOSTerminal End Sub Sub initDgv() + With dgvTerminals + .Columns.Clear() - '.Columns.Clear() - - dgvTerminals.SET_SQL("SELECT SELECT [pos_Id],[pos_aktiv] ,[pos_kasse] ,[pos_kassennr] ,[pos_com] + .SET_SQL("SELECT [pos_id],[pos_aktiv],[pos_bezeichnung] ,[pos_kasse] ,[pos_kassennr] ,[pos_com] ,[pos_baudrate] ,[pos_comspeed] ,[pos_comstop] ,[pos_ip] ,[pos_port] ,[pos_typ] ,[pos_lizenz] ,[pos_kassendruck] ,[pos_demoausdruck] ,[pos_demodummyausdruck] ,[pos_pin] ,[pos_händerbeleg_drucken] ,[pos_storno] ,[pos_wartezeit] FROM [VERAG].[dbo].[tblRKSV_POS] WHERE [pos_kasse] =" & kassenID, "FMZOLL") - dgvTerminals.LOAD() + .LOAD() - If dgvTerminals.Columns.Count < 1 Then Exit Sub + If .Columns.Count < 1 Then Exit Sub - With dgvTerminals - .Columns("pos_aktiv").DefaultCellStyle.Format = "C" - .Columns("pos_kasse").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - .Columns("pos_kassennr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - - .Columns("pos_com").HeaderText = "Beleg-Nr" - .Columns("pos_baudrate").Width = 55 - .Columns("pos_comspeed").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns("pos_comstop").HeaderText = "Datum" - .Columns("pos_ip").Width = 65 - .Columns("pos_port").HeaderText = "KB-Bel.Nr" - .Columns("pos_typ").Width = 55 - .Columns("pos_lizenz").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns("pos_kassendruck").HeaderText = "Art" - .Columns("pos_demoausdruck").Width = 30 - .Columns("pos_demodummyausdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns("pos_pin").Width = 160 - .Columns("pos_händerbeleg_drucken").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("pos_id").Visible = False + .Columns("pos_bezeichnung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft + .Columns("pos_bezeichnung").HeaderText = "Terminal" + .Columns("pos_kassennr").Width = 100 + .Columns("pos_kassennr").HeaderText = "Kassen-Nr" + .Columns("pos_aktiv").Width = 50 + .Columns("pos_aktiv").HeaderText = "Aktiv" + .Columns("pos_kassendruck").Visible = False + .Columns("pos_kasse").Visible = False + .Columns("pos_com").Visible = False + .Columns("pos_baudrate").Visible = False + .Columns("pos_comspeed").Visible = False + .Columns("pos_comstop").Visible = False + .Columns("pos_port").Visible = False + .Columns("pos_typ").Visible = False + .Columns("pos_lizenz").Visible = False + .Columns("pos_kassendruck").Visible = False + .Columns("pos_demoausdruck").Visible = False + .Columns("pos_demodummyausdruck").Visible = False + .Columns("pos_pin").Visible = False + .Columns("pos_händerbeleg_drucken").Visible = False .Columns("pos_storno").Visible = False - .Columns("pos_wartezeit").HeaderText = "Storn." - .Columns("storniert").Width = 45 .Columns("pos_wartezeit").Visible = False - - End With End Sub Private Sub frmPOSTerminal_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try - - Label1.Text = kasse + Text = kasse & " - POS Terminal einstellen " initDgv() + AddHandler EasyZVT_Worker.DoWork, New System.ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async) + AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted) If dgvTerminals.Columns.Count < 1 Then Exit Sub @@ -362,38 +357,88 @@ Public Class frmPOSTerminal 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) - AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted) + If dgvTerminals.SelectedRows.Count > 0 Then + + currentPOS = New cRKSV_POS(dgvTerminals.SelectedRows(0).Cells("pos_Id").Value, dgvTerminals.SelectedRows(0).Cells("pos_kasse").Value) + + + cbxAktiv.Checked = currentPOS.pos_aktiv + txtWartezeit.Text = currentPOS.pos_wartezeit / 1000 + TextBox_KasseNr.Text = currentPOS.pos_kassennr + ComboBox_COM.Text = currentPOS.pos_com + TextBox_IP.Text = currentPOS.pos_ip + TextBox_Port.Text = currentPOS.pos_port + ComboBox_ComSpeed.Text = currentPOS.pos_comspeed + ComboBox_ComStop.Text = currentPOS.pos_comstop + TextBox_Lizenz.Text = currentPOS.pos_lizenz + If currentPOS.pos_kassendruck Then + CheckBox_Kassedruck.Checked = True + Else + CheckBox_Kassedruck.Checked = False + End If + + ComboBox_Typ.SelectedIndex = ComboBox_Typ.FindString(currentPOS.pos_typ) + PopulateInstalledPrintersCombo() + 'comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", "")) + If Not currentPOS.pos_demoausdruck Then + CheckBoxAutodruck.Checked = False + Else + CheckBoxAutodruck.Checked = True + End If + + If Not currentPOS.pos_demodummyausdruck Then + CheckBoxDummy.Checked = False + Else + CheckBoxDummy.Checked = True + End If - 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 Sub + + + Private Sub savePOS() + + + If dgvTerminals.SelectedRows.Count > 0 Then + + currentPOS.pos_kassennr = TextBox_KasseNr.Text + currentPOS.pos_aktiv = cbxAktiv.Checked + currentPOS.pos_wartezeit = CInt(txtWartezeit.Text) * 1000 + currentPOS.pos_com = ComboBox_COM.Text + currentPOS.pos_ip = TextBox_IP.Text + currentPOS.pos_port = TextBox_Port.Text + currentPOS.pos_comspeed = ComboBox_ComSpeed.Text + currentPOS.pos_comstop = ComboBox_ComStop.Text + currentPOS.pos_lizenz = TextBox_Lizenz.Text + If CheckBox_Kassedruck.Checked Then + currentPOS.pos_kassendruck = True + Else + currentPOS.pos_kassendruck = False + End If + + currentPOS.pos_typ = ComboBox_Typ.FindString(ComboBox_Typ.SelectedIndex) + PopulateInstalledPrintersCombo() + 'comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", "")) + If Not CheckBoxAutodruck.Checked Then + currentPOS.pos_demoausdruck = False + Else + currentPOS.pos_demoausdruck = True + End If + + If Not CheckBoxDummy.Checked Then + currentPOS.pos_demodummyausdruck = False + Else + currentPOS.pos_demodummyausdruck = True + End If + + + currentPOS.SAVE() End If - If Not currentPOS.pos_demodummyausdruck Then - CheckBoxDummy.Checked = False - Else - CheckBoxDummy.Checked = True - End If + End Sub @@ -401,4 +446,128 @@ Public Class frmPOSTerminal Private Sub dgvTerminals_SelectionChanged(sender As Object, e As EventArgs) Handles dgvTerminals.SelectionChanged loadCurrentPOS() End Sub + + + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + + Dim input = InputBox("Bitte geben Sie die Bezeichnung des neuen Terminals ein ein:", "POS-Terminal anlegen") + If input <> "" Then + If checkNameIsValid(input) Then + currentPOS = New cRKSV_POS(input, kassenID, True) + initDgv() + Else + MsgBox("Für die Kassa" & kasse.ToString & " existiert bereits ein POS-Terminal " & input) + End If + + Else + MsgBox("Keine Bezeichnung angegeben!") + End If + End Sub + + + Private Function checkNameIsValid(name As String) As Boolean + + If dgvTerminals.Rows.Count = 0 Then Return True + + For Each row As DataGridViewRow In dgvTerminals.Rows + If Not IsDBNull(row.Cells("pos_bezeichnung").Value) Then + If row.Cells("pos_bezeichnung").Value.ToLower = name.ToLower Then + Return False + End If + End If + + Next + + Return True + + End Function + + Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click + savePOS() + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + If dgvTerminals.SelectedRows.Count > 0 Then + + If vbYes = MsgBox("Möchten Sie das Terminal " & dgvTerminals.SelectedRows(0).Cells("pos_bezeichnung").Value & " wirklich löschen?", vbYesNo) Then + currentPOS.delete() + initDgv() + End If + End If + End Sub + + Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked + Dim webAddress As String = "http://www.easyzvt.de/publish31/index.htm" + Process.Start(webAddress) + End Sub + + Private Sub Button_Kundenbeleg_drucken_Click(sender As System.Object, e As System.EventArgs) Handles Button_Kundenbeleg_drucken.Click + + Dim PDlg As PrintDialog = New PrintDialog() + PDlg.UseEXDialog = True ' Notwendig für x64 + PDoc = New Printing.PrintDocument() + AddHandler PDoc.PrintPage, AddressOf PDoc_SeiteDrucken + + If CheckBoxDummy.Checked Then + TextBox_Kassenbon.Text = "Kassenbon EasyZVT DemoApp" & vbCrLf + TextBox_Kassenbon.Text &= "KasseNr: " & TextBox_KasseNr.Text & vbCrLf & vbCrLf + If Betrag > 0 And Funktion = 0 Then + TextBox_Kassenbon.Text &= "Testartikel Menge 1 Betrag " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf + TextBox_Kassenbon.Text &= "Gesamtbetrag " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf + TextBox_Kassenbon.Text &= "Kartenzahlung " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf + End If + + TextBox_Kassenbon.Text &= TextBox_Drucktext.Text ' Hier den Kundenbeleg hinzufügen + Else + TextBox_Kassenbon.Text = TextBox_Drucktext.Text + End If + + If comboInstalledPrinters.SelectedIndex <> -1 Then + PDoc.PrinterSettings.PrinterName = comboInstalledPrinters.Text + PDoc.Print() + Else + PDlg.Document = PDoc + If PDlg.ShowDialog() = Windows.Forms.DialogResult.OK Then + PDoc.Print() + End If + + End If + + End Sub + + Private Sub Button_Haendlerbeleg_drucken_Click(sender As System.Object, e As System.EventArgs) Handles Button_Haendlerbeleg_drucken.Click + + Dim PDlg As PrintDialog = New PrintDialog() + PDlg.UseEXDialog = True ' Notwendig für x64 + PDoc = New Printing.PrintDocument() + AddHandler PDoc.PrintPage, AddressOf PDoc_SeiteDrucken + + If CheckBoxDummy.Checked Then + TextBox_Kassenbon.Text = "Kassenbon EasyZVT DemoApp" & vbCrLf + TextBox_Kassenbon.Text &= "KasseNr: " & TextBox_KasseNr.Text & vbCrLf & vbCrLf + If Betrag > 0 And Funktion = 0 Then + TextBox_Kassenbon.Text &= "Testartikel Menge 1 Betrag " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf + TextBox_Kassenbon.Text &= "Gesamtbetrag " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf + TextBox_Kassenbon.Text &= "Kartenzahlung " & (CDbl(Betrag) / 100.0).ToString("###,##0.00") & vbCrLf + End If + + TextBox_Kassenbon.Text &= TextBox_Drucktext2.Text ' Hier den Händlerbeleg hinzufügen + Else + TextBox_Kassenbon.Text &= TextBox_Drucktext.Text + End If + + If comboInstalledPrinters.SelectedIndex <> -1 Then + PDoc.PrinterSettings.PrinterName = comboInstalledPrinters.Text + PDoc.Print() + Else + PDlg.Document = PDoc + If PDlg.ShowDialog() = Windows.Forms.DialogResult.OK Then + PDoc.Print() + End If + + End If + + End Sub + End Class \ No newline at end of file