From 1a7834db9461729b912139f5bd419b720caccd4d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 28 Feb 2023 08:30:10 +0100 Subject: [PATCH 01/11] POS Einbindung in Kassenbuch --- SDL/Classes/cRKSV.vb | 6 +- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/SDL.vbproj | 9 + SDL/kassenbuch/POS.Designer.vb | 570 ++++++++++++++++++ SDL/kassenbuch/POS.resx | 120 ++++ SDL/kassenbuch/POS.vb | 299 +++++++++ SDL/kassenbuch/frmBelegNeu.Designer.vb | 81 ++- SDL/kassenbuch/frmBelegNeu.vb | 16 +- SDL/kassenbuch/frmKassenbuch.vb | 2 +- .../VERAG_PROG_ALLGEMEIN.vbproj | 2 +- 10 files changed, 1095 insertions(+), 14 deletions(-) create mode 100644 SDL/kassenbuch/POS.Designer.vb create mode 100644 SDL/kassenbuch/POS.resx create mode 100644 SDL/kassenbuch/POS.vb diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 6c5ad421..55c44623 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -1061,7 +1061,7 @@ Public Class cRKSV End Function 'cboPrinter.SelectedItem.ToString - Public Shared Function printKundenBeleg(BELEG As EABeleg, KASSE As cRKSV_Kasse, PERSONAL As cPersonal, printername As String, showDok As Boolean) As Boolean + Public Shared Function printKundenBeleg(BELEG As EABeleg, KASSE As cRKSV_Kasse, PERSONAL As cPersonal, printername As String, showDok As Boolean, Optional POSPayment As Boolean = False) As Boolean 'Dim print As New frmPrintLayout @@ -1238,6 +1238,10 @@ Public Class cRKSV rpt.lblGesamtbetrag.Text = CDbl(sum + (sum * s)).ToString("C") If sum < 0 Then rpt.Label2.Text = "Rechnungskorrektur Nr." End Sub + If POSPayment Then + Dim Pos = New POS(rpt, sum) + Pos.ShowDialog() + End If 'PaperKind = System.Drawing.Printing.PaperKind.Custom ' Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.Custom diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index c52b47ce..771d08f6 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/SDL.vbproj b/SDL/SDL.vbproj index 3fd8eee6..148e5a0f 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -566,6 +566,12 @@ Form + + POS.vb + + + Form + frmKundenBesonderheiten_Add.vb @@ -2811,6 +2817,9 @@ frmEssensbestellungen.vb + + POS.vb + frmKundenBesonderheiten_Add.vb diff --git a/SDL/kassenbuch/POS.Designer.vb b/SDL/kassenbuch/POS.Designer.vb new file mode 100644 index 00000000..61ba0b87 --- /dev/null +++ b/SDL/kassenbuch/POS.Designer.vb @@ -0,0 +1,570 @@ + _ +Partial Class POS + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.CheckBoxDummy = New System.Windows.Forms.CheckBox() + Me.CheckBoxAutodruck = New System.Windows.Forms.CheckBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.comboInstalledPrinters = New System.Windows.Forms.ComboBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.TextBox_BelegNr = New System.Windows.Forms.TextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.StornoBelegNr = New System.Windows.Forms.TextBox() + Me.TextBox_Aktiv = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.ComboBox_Typ = New System.Windows.Forms.ComboBox() + Me.Button_Haendlerbeleg_drucken = New System.Windows.Forms.Button() + Me.TextBox_Kassenbon = New System.Windows.Forms.TextBox() + Me.Button_Kundenbeleg_drucken = New System.Windows.Forms.Button() + Me.Button_Gutschrift = New System.Windows.Forms.Button() + Me.Button_Storno = New System.Windows.Forms.Button() + Me.Button_Tagesabschluss = New System.Windows.Forms.Button() + Me.Button_Diagnose = New System.Windows.Forms.Button() + Me.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() + Me.Label10 = New System.Windows.Forms.Label() + Me.TextBox_Drucktext = New System.Windows.Forms.TextBox() + Me.TextBox_ErgebnisText = New System.Windows.Forms.TextBox() + Me.TextBox_Ergebnis = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.Button_Autorisierung = New System.Windows.Forms.Button() + Me.TextBox_Betrag = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.TextBox_Lizenz = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.ComboBox_ComStop = New System.Windows.Forms.ComboBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.ComboBox_ComSpeed = New System.Windows.Forms.ComboBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.TextBox_Port = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.TextBox_IP = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.ComboBox_COM = New System.Windows.Forms.ComboBox() + Me.TextBox_KasseNr = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'CheckBoxDummy + ' + Me.CheckBoxDummy.AutoSize = True + Me.CheckBoxDummy.Location = New System.Drawing.Point(678, 15) + Me.CheckBoxDummy.Name = "CheckBoxDummy" + Me.CheckBoxDummy.Size = New System.Drawing.Size(128, 17) + Me.CheckBoxDummy.TabIndex = 90 + Me.CheckBoxDummy.Text = "Dummy-Kopf drucken" + Me.CheckBoxDummy.UseVisualStyleBackColor = True + ' + 'CheckBoxAutodruck + ' + Me.CheckBoxAutodruck.AutoSize = True + Me.CheckBoxAutodruck.Location = New System.Drawing.Point(591, 16) + Me.CheckBoxAutodruck.Name = "CheckBoxAutodruck" + Me.CheckBoxAutodruck.Size = New System.Drawing.Size(75, 17) + Me.CheckBoxAutodruck.TabIndex = 89 + Me.CheckBoxAutodruck.Text = "Autodruck" + Me.CheckBoxAutodruck.UseVisualStyleBackColor = True + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(255, 16) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(45, 13) + Me.Label15.TabIndex = 88 + Me.Label15.Text = "Drucker" + ' + 'comboInstalledPrinters + ' + Me.comboInstalledPrinters.FormattingEnabled = True + Me.comboInstalledPrinters.Location = New System.Drawing.Point(321, 13) + Me.comboInstalledPrinters.Name = "comboInstalledPrinters" + Me.comboInstalledPrinters.Size = New System.Drawing.Size(229, 21) + Me.comboInstalledPrinters.TabIndex = 87 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(20, 215) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(45, 13) + Me.Label12.TabIndex = 86 + Me.Label12.Text = "BelegNr" + ' + 'TextBox_BelegNr + ' + Me.TextBox_BelegNr.Location = New System.Drawing.Point(117, 212) + 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 = 85 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(596, 240) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(76, 13) + Me.Label14.TabIndex = 84 + Me.Label14.Text = "StornoBelegNr" + ' + 'StornoBelegNr + ' + Me.StornoBelegNr.Location = New System.Drawing.Point(678, 237) + Me.StornoBelegNr.Name = "StornoBelegNr" + Me.StornoBelegNr.Size = New System.Drawing.Size(78, 20) + Me.StornoBelegNr.TabIndex = 83 + ' + 'TextBox_Aktiv + ' + Me.TextBox_Aktiv.BackColor = System.Drawing.Color.Gray + Me.TextBox_Aktiv.Location = New System.Drawing.Point(23, 506) + Me.TextBox_Aktiv.Name = "TextBox_Aktiv" + Me.TextBox_Aktiv.Size = New System.Drawing.Size(123, 20) + Me.TextBox_Aktiv.TabIndex = 82 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(329, 110) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(25, 13) + Me.Label13.TabIndex = 81 + Me.Label13.Text = "Typ" + ' + 'ComboBox_Typ + ' + Me.ComboBox_Typ.FormattingEnabled = True + Me.ComboBox_Typ.Items.AddRange(New Object() {"0: ZVT Standard", "1: ICP mit Shutter", "2: ICT 220 alt", "3: ICP Zelos", "4: Clover", "5: CCV Base seriell", "10: SIX", "11: OPI", "12: myPOS", "13: TIM-Server"}) + Me.ComboBox_Typ.Location = New System.Drawing.Point(395, 106) + 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 = 80 + Me.ComboBox_Typ.Text = "0: ZVT Standard" + ' + 'Button_Haendlerbeleg_drucken + ' + Me.Button_Haendlerbeleg_drucken.Location = New System.Drawing.Point(323, 477) + Me.Button_Haendlerbeleg_drucken.Name = "Button_Haendlerbeleg_drucken" + Me.Button_Haendlerbeleg_drucken.Size = New System.Drawing.Size(122, 23) + Me.Button_Haendlerbeleg_drucken.TabIndex = 79 + Me.Button_Haendlerbeleg_drucken.Text = "Drucken" + Me.Button_Haendlerbeleg_drucken.UseVisualStyleBackColor = True + ' + 'TextBox_Kassenbon + ' + Me.TextBox_Kassenbon.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox_Kassenbon.Location = New System.Drawing.Point(590, 46) + 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.TabIndex = 78 + Me.TextBox_Kassenbon.Text = "Kassenbon" + ' + 'Button_Kundenbeleg_drucken + ' + Me.Button_Kundenbeleg_drucken.Location = New System.Drawing.Point(24, 477) + Me.Button_Kundenbeleg_drucken.Name = "Button_Kundenbeleg_drucken" + Me.Button_Kundenbeleg_drucken.Size = New System.Drawing.Size(122, 23) + Me.Button_Kundenbeleg_drucken.TabIndex = 77 + Me.Button_Kundenbeleg_drucken.Text = "Drucken" + Me.Button_Kundenbeleg_drucken.UseVisualStyleBackColor = True + ' + 'Button_Gutschrift + ' + Me.Button_Gutschrift.Location = New System.Drawing.Point(595, 316) + Me.Button_Gutschrift.Name = "Button_Gutschrift" + Me.Button_Gutschrift.Size = New System.Drawing.Size(163, 29) + Me.Button_Gutschrift.TabIndex = 76 + Me.Button_Gutschrift.Text = "4 = Gutschrift" + Me.Button_Gutschrift.UseVisualStyleBackColor = True + ' + 'Button_Storno + ' + Me.Button_Storno.Location = New System.Drawing.Point(595, 263) + Me.Button_Storno.Name = "Button_Storno" + Me.Button_Storno.Size = New System.Drawing.Size(163, 34) + Me.Button_Storno.TabIndex = 75 + Me.Button_Storno.Text = "3 = Storno" + Me.Button_Storno.UseVisualStyleBackColor = True + ' + 'Button_Tagesabschluss + ' + Me.Button_Tagesabschluss.Location = New System.Drawing.Point(594, 189) + Me.Button_Tagesabschluss.Name = "Button_Tagesabschluss" + Me.Button_Tagesabschluss.Size = New System.Drawing.Size(163, 34) + Me.Button_Tagesabschluss.TabIndex = 74 + Me.Button_Tagesabschluss.Text = "2 = Tagesabschluss" + Me.Button_Tagesabschluss.UseVisualStyleBackColor = True + ' + 'Button_Diagnose + ' + Me.Button_Diagnose.Location = New System.Drawing.Point(594, 139) + Me.Button_Diagnose.Name = "Button_Diagnose" + Me.Button_Diagnose.Size = New System.Drawing.Size(164, 33) + Me.Button_Diagnose.TabIndex = 73 + 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(594, 477) + Me.Button_Exit.Name = "Button_Exit" + Me.Button_Exit.Size = New System.Drawing.Size(162, 23) + Me.Button_Exit.TabIndex = 72 + 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(395, 77) + Me.CheckBox_Kassedruck.Name = "CheckBox_Kassedruck" + Me.CheckBox_Kassedruck.Size = New System.Drawing.Size(82, 17) + Me.CheckBox_Kassedruck.TabIndex = 71 + Me.CheckBox_Kassedruck.Text = "Kassedruck" + Me.CheckBox_Kassedruck.UseVisualStyleBackColor = True + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(320, 237) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(131, 13) + Me.Label11.TabIndex = 70 + Me.Label11.Text = "Drucktext2 (Händlerbeleg)" + ' + 'TextBox_Drucktext2 + ' + Me.TextBox_Drucktext2.Location = New System.Drawing.Point(323, 263) + 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.TabIndex = 69 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(21, 237) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(125, 13) + Me.Label10.TabIndex = 68 + Me.Label10.Text = "Drucktext (Kundenbeleg)" + ' + 'TextBox_Drucktext + ' + Me.TextBox_Drucktext.Location = New System.Drawing.Point(23, 262) + 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.TabIndex = 67 + ' + 'TextBox_ErgebnisText + ' + Me.TextBox_ErgebnisText.Location = New System.Drawing.Point(175, 189) + 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 = 66 + ' + 'TextBox_Ergebnis + ' + Me.TextBox_Ergebnis.Location = New System.Drawing.Point(117, 189) + 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 = 65 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(21, 192) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(48, 13) + Me.Label9.TabIndex = 64 + Me.Label9.Text = "Ergebnis" + ' + 'Button_Autorisierung + ' + Me.Button_Autorisierung.Location = New System.Drawing.Point(175, 153) + Me.Button_Autorisierung.Name = "Button_Autorisierung" + Me.Button_Autorisierung.Size = New System.Drawing.Size(199, 24) + Me.Button_Autorisierung.TabIndex = 49 + Me.Button_Autorisierung.Text = "Autorisierung starten" + Me.Button_Autorisierung.UseVisualStyleBackColor = True + ' + 'TextBox_Betrag + ' + Me.TextBox_Betrag.Location = New System.Drawing.Point(115, 156) + 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 = 48 + Me.TextBox_Betrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(21, 159) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(38, 13) + Me.Label8.TabIndex = 63 + Me.Label8.Text = "Betrag" + ' + 'TextBox_Lizenz + ' + Me.TextBox_Lizenz.Location = New System.Drawing.Point(115, 103) + Me.TextBox_Lizenz.Name = "TextBox_Lizenz" + Me.TextBox_Lizenz.Size = New System.Drawing.Size(190, 20) + Me.TextBox_Lizenz.TabIndex = 62 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(21, 106) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(37, 13) + Me.Label7.TabIndex = 61 + Me.Label7.Text = "Lizenz" + ' + 'ComboBox_ComStop + ' + Me.ComboBox_ComStop.FormattingEnabled = True + Me.ComboBox_ComStop.Items.AddRange(New Object() {"1", "2"}) + Me.ComboBox_ComStop.Location = New System.Drawing.Point(323, 74) + Me.ComboBox_ComStop.Name = "ComboBox_ComStop" + Me.ComboBox_ComStop.Size = New System.Drawing.Size(38, 21) + Me.ComboBox_ComStop.TabIndex = 60 + Me.ComboBox_ComStop.Text = "1" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(255, 77) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(50, 13) + Me.Label6.TabIndex = 59 + Me.Label6.Text = "ComStop" + ' + 'ComboBox_ComSpeed + ' + Me.ComboBox_ComSpeed.FormattingEnabled = True + Me.ComboBox_ComSpeed.Items.AddRange(New Object() {"9600", "115000"}) + Me.ComboBox_ComSpeed.Location = New System.Drawing.Point(115, 73) + Me.ComboBox_ComSpeed.Name = "ComboBox_ComSpeed" + Me.ComboBox_ComSpeed.Size = New System.Drawing.Size(121, 21) + Me.ComboBox_ComSpeed.TabIndex = 58 + Me.ComboBox_ComSpeed.Text = "9600" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(21, 77) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(59, 13) + Me.Label5.TabIndex = 57 + Me.Label5.Text = "ComSpeed" + ' + 'TextBox_Port + ' + Me.TextBox_Port.Location = New System.Drawing.Point(492, 47) + 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 = 56 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(460, 50) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(26, 13) + Me.Label4.TabIndex = 55 + Me.Label4.Text = "Port" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(255, 50) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(17, 13) + Me.Label3.TabIndex = 54 + Me.Label3.Text = "IP" + ' + 'TextBox_IP + ' + Me.TextBox_IP.Location = New System.Drawing.Point(323, 47) + 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 = 53 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(21, 49) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(31, 13) + Me.Label2.TabIndex = 52 + Me.Label2.Text = "COM" + ' + '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(115, 46) + Me.ComboBox_COM.Name = "ComboBox_COM" + Me.ComboBox_COM.Size = New System.Drawing.Size(121, 21) + Me.ComboBox_COM.TabIndex = 51 + Me.ComboBox_COM.Text = "LAN" + ' + 'TextBox_KasseNr + ' + Me.TextBox_KasseNr.Location = New System.Drawing.Point(115, 20) + 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 = 50 + Me.TextBox_KasseNr.Text = "1" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(21, 23) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(47, 13) + Me.Label1.TabIndex = 47 + Me.Label1.Text = "KasseNr" + ' + 'POS + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(841, 543) + 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.Button_Exit) + 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.Label1) + Me.Name = "POS" + Me.Text = "POS" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents CheckBoxDummy As CheckBox + Friend WithEvents CheckBoxAutodruck As CheckBox + Friend WithEvents Label15 As Label + Friend WithEvents comboInstalledPrinters As ComboBox + Friend WithEvents Label12 As Label + Friend WithEvents TextBox_BelegNr As TextBox + Friend WithEvents Label14 As Label + Friend WithEvents StornoBelegNr As TextBox + Friend WithEvents TextBox_Aktiv As TextBox + Friend WithEvents Label13 As Label + Friend WithEvents ComboBox_Typ As ComboBox + Friend WithEvents Button_Haendlerbeleg_drucken As Button + Friend WithEvents TextBox_Kassenbon As TextBox + Friend WithEvents Button_Kundenbeleg_drucken As Button + Friend WithEvents Button_Gutschrift As Button + Friend WithEvents Button_Storno As Button + Friend WithEvents Button_Tagesabschluss As Button + Friend WithEvents Button_Diagnose As Button + Friend WithEvents Button_Exit As Button + Friend WithEvents CheckBox_Kassedruck As CheckBox + Friend WithEvents Label11 As Label + Friend WithEvents TextBox_Drucktext2 As TextBox + Friend WithEvents Label10 As Label + Friend WithEvents TextBox_Drucktext As TextBox + Friend WithEvents TextBox_ErgebnisText As TextBox + Friend WithEvents TextBox_Ergebnis As TextBox + Friend WithEvents Label9 As Label + Friend WithEvents Button_Autorisierung As Button + Friend WithEvents TextBox_Betrag As TextBox + Friend WithEvents Label8 As Label + Friend WithEvents TextBox_Lizenz As TextBox + Friend WithEvents Label7 As Label + Friend WithEvents ComboBox_ComStop As ComboBox + Friend WithEvents Label6 As Label + Friend WithEvents ComboBox_ComSpeed As ComboBox + Friend WithEvents Label5 As Label + Friend WithEvents TextBox_Port As TextBox + Friend WithEvents Label4 As Label + Friend WithEvents Label3 As Label + Friend WithEvents TextBox_IP As TextBox + Friend WithEvents Label2 As Label + Friend WithEvents ComboBox_COM As ComboBox + Friend WithEvents TextBox_KasseNr As TextBox + Friend WithEvents Label1 As Label +End Class diff --git a/SDL/kassenbuch/POS.resx b/SDL/kassenbuch/POS.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/kassenbuch/POS.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/kassenbuch/POS.vb b/SDL/kassenbuch/POS.vb new file mode 100644 index 00000000..8bec755c --- /dev/null +++ b/SDL/kassenbuch/POS.vb @@ -0,0 +1,299 @@ +Imports System.Drawing.Printing +Imports Microsoft.Win32 + +Public Class POS + + Public Sub New(ByVal _rptKundenBeleg, betrag) + rptKundenBeleg = _rptKundenBeleg + betrag = CInt(betrag) + + End Sub + + + + ' Erstellt durch Jan Groetzner, Groetzner Unternehmensberatung, Seevetal + ' Version: 02.03.2020 + ' Kontakt: easyzvt@groetzner.de + + ' Dieser Quellcode dient als Beispielimplementierung zur Einbindung von EasyZVT in die eigene Kassenanwendung. + ' Der Code und auch Teile davon dürfen frei kopiert und in der Kassenanwendung verwendet werden + + Private EasyZVT_Worker As System.ComponentModel.BackgroundWorker = New System.ComponentModel.BackgroundWorker() + Private Funktion As Integer + Private rptKundenBeleg As rptKundenBeleg + Private Betrag As Integer + + Private WithEvents PDoc As Printing.PrintDocument + + Private Sub POS_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.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 + AddHandler EasyZVT_Worker.DoWork, New System.ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async) + AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted) + + Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + TextBox_KasseNr.Text = ZVTKey.GetValue("KasseNr", "1") + ComboBox_COM.Text = ZVTKey.GetValue("COM", "LAN") + TextBox_IP.Text = ZVTKey.GetValue("IP", "192.168.86.122") + TextBox_Port.Text = ZVTKey.GetValue("Port", "20007") + ComboBox_ComSpeed.Text = ZVTKey.GetValue("ComSpeed", "9600") + ComboBox_ComStop.Text = ZVTKey.GetValue("ComStop", "1") + TextBox_Lizenz.Text = ZVTKey.GetValue("Lizenz", "") + If ZVTKey.GetValue("Kassedruck", 0) = 1 Then + CheckBox_Kassedruck.Checked = True + Else + CheckBox_Kassedruck.Checked = False + End If + ComboBox_Typ.SelectedIndex = ComboBox_Typ.FindString(ZVTKey.GetValue("Typ", 0).ToString) + PopulateInstalledPrintersCombo() + comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", "")) + If ZVTKey.GetValue("DemoAutodruck", 0) = 0 Then + CheckBoxAutodruck.Checked = False + Else + CheckBoxAutodruck.Checked = True + End If + If ZVTKey.GetValue("DemoDummydruck", 1) = 0 Then + CheckBoxDummy.Checked = False + Else + CheckBoxDummy.Checked = True + End If + ZVTKey.Close() + + Catch ex As Exception + MessageBox.Show("Fehler beim Einlesen der Standardwerte: " & ex.Message) + End Try + End Sub + + + Private Sub SetRegistryParameter() + 'Funktion holt Werte direkt aus der Oberfläche (TextBox_...) und schreibt diese in die Registry als Eingabeparameter für EasyZVT. + 'Im wahren Leben stehen diese Werte in Datenbankeinträgen der Stammdatenverwaltung in der Hauptanwendung + + Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + Dim TypSelected As String + Dim Typ As Long + + Try + ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord) + TypSelected = Strings.Left(ComboBox_Typ.Text, 2).Replace(":", "") + Typ = TypSelected + ZVTKey.SetValue("Typ", Typ, RegistryValueKind.DWord) + ZVTKey.SetValue("KasseNr", TextBox_KasseNr.Text, RegistryValueKind.String) + ZVTKey.SetValue("COM", ComboBox_COM.Text, RegistryValueKind.String) + ZVTKey.SetValue("IP", TextBox_IP.Text, RegistryValueKind.String) + ZVTKey.SetValue("Port", CInt(TextBox_Port.Text), RegistryValueKind.DWord) + ZVTKey.SetValue("ComSpeed", CInt(ComboBox_ComSpeed.Text), RegistryValueKind.DWord) + ZVTKey.SetValue("ComStop", CInt(ComboBox_ComStop.Text), RegistryValueKind.DWord) + ZVTKey.SetValue("Lizenz", TextBox_Lizenz.Text, RegistryValueKind.String) + If Funktion = 0 Or Funktion = 4 Then + Betrag = CInt("0" & TextBox_Betrag.Text) + ZVTKey.SetValue("Betrag", Betrag, RegistryValueKind.DWord) + End If + If Funktion = 3 Then + ZVTKey.SetValue("StornoBetrag", CInt("0" & TextBox_Betrag.Text), RegistryValueKind.DWord) + ZVTKey.SetValue("StornoBelegNr", CInt("0" & StornoBelegNr.Text), RegistryValueKind.DWord) + End If + If CheckBox_Kassedruck.Checked Then + ZVTKey.SetValue("Kassedruck", 1, RegistryValueKind.DWord) + Else + ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord) + End If + ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Zur Sicherheit, falls EasyZVT gar nicht installiert ist oder nicht gestartet werden kann + ZVTKey.SetValue("ErgebnisText", "EasyZVT konnte nicht gestartet werden", RegistryValueKind.String) + ZVTKey.SetValue("DemoDruckername", comboInstalledPrinters.Text, RegistryValueKind.String) + If CheckBoxAutodruck.Checked Then + ZVTKey.SetValue("DemoAutodruck", 1, RegistryValueKind.DWord) + Else + ZVTKey.SetValue("DemoAutodruck", 0, RegistryValueKind.DWord) + End If + If CheckBoxDummy.Checked Then + ZVTKey.SetValue("DemoDummydruck", 1, RegistryValueKind.DWord) + Else + ZVTKey.SetValue("DemoDummydruck", 0, RegistryValueKind.DWord) + End If + Button_Autorisierung.Enabled = False + Button_Diagnose.Enabled = False + Button_Tagesabschluss.Enabled = False + Button_Storno.Enabled = False + Button_Gutschrift.Enabled = False + Button_Exit.Enabled = False + + TextBox_ErgebnisText.Text = "EasyZVT-Zahlung aktiv" + TextBox_Aktiv.Text = "warte auf Aktiv=0" + + + Catch ex As Exception + MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message) + Exit Sub + End Try + ZVTKey.Close() + + End Sub + Private Sub Autorisierung() + + Funktion = 0 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + + End Sub + Private Sub Button_Autorisierung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Autorisierung.Click + 'Zahlung per Klick auslösen + Autorisierung() + End Sub + Private Sub TextBox_Betrag_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox_Betrag.KeyPress + + End Sub + + Private Sub EasyZVT_Async(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) + ' Programmstart von ZVTStart.exe und warten auf Programmende + + Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + Try + Dim ZVTStart As String = ZVTKey.GetValue("Start") + Dim Proc As System.Diagnostics.Process + + If (Len(ZVTStart) > 1) Then + ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Wenn das Ergebnis 1000 bleibt konnte EasyZVT nicht gestartet werden + Proc = System.Diagnostics.Process.Start(ZVTStart) + System.Threading.Thread.Sleep(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 + Catch ex As Exception + MessageBox.Show("Der Programmstart ist fehlgeschlagen: " & ex.Message) + Exit Sub + End Try + ZVTKey.Close() + End Sub + Private Sub EasyZVT_OnCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) + ' Diese Funktion wird automatisch aufgerufen wenn der Worker-Thread seine Arbeit beendet + ' und EasyZVT seine Ausgabewerte in die Registry zurückgeschrieben hat + + + Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + TextBox_Aktiv.Text = "" + TextBox_Ergebnis.Text = ZVTKey.GetValue("Ergebnis") + TextBox_ErgebnisText.Text = ZVTKey.GetValue("ErgebnisText") + TextBox_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf) + TextBox_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf) + + TextBox_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString + TextBox_Betrag.Text = "" + + If CheckBoxAutodruck.Checked Then + If Len(TextBox_Drucktext.Text) > 1 Then + Button_Kundenbeleg_drucken.PerformClick() + End If + If Len(TextBox_Drucktext2.Text) > 1 Then + Button_Haendlerbeleg_drucken.PerformClick() + End If + + End If + + TextBox_Betrag.Focus() + Button_Autorisierung.Enabled = True + Button_Diagnose.Enabled = True + Button_Tagesabschluss.Enabled = True + Button_Storno.Enabled = True + Button_Gutschrift.Enabled = True + Button_Exit.Enabled = True + ZVTKey.Close() + End Sub + + + Private Sub Button_Diagnose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Diagnose.Click + Funktion = 1 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + + End Sub + + Private Sub Button_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Exit.Click + Application.Exit() + End Sub + + Private Sub Button_Tagesabschluss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Tagesabschluss.Click + Funktion = 2 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + + End Sub + + Private Sub Button_Storno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Storno.Click + Funktion = 3 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + + End Sub + + Private Sub Button_Gutschrift_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Gutschrift.Click + Funktion = 4 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + + End Sub + + + Private Sub PDoc_SeiteDrucken(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PDoc.PrintPage + + Dim Textfont As Font = TextBox_Kassenbon.Font + Dim Hoehe, Breite As Integer + Dim Links, Oben As Integer + With PDoc.DefaultPageSettings + 'Hoehe = .PaperSize.Height - .Margins.Top - .Margins.Bottom + 'Breite = .PaperSize.Width - .Margins.Left - .Margins.Right + Hoehe = 500 ' 5,00 Zoll + Breite = 270 ' = 2,70 zoll + 'Links = PDoc.DefaultPageSettings.Margins.Left + 'Oben = PDoc.DefaultPageSettings.Margins.Top + Links = 10 + Oben = 10 + End With + ' Einen Rahmen zeichnen + Dim Rahmen As New Rectangle(Links, Oben, Breite, Hoehe) + e.Graphics.DrawRectangle(Pens.Blue, Rahmen) + ' In den Rahmen den Kassenbontext zeichnen + Dim StrFormat As StringFormat + StrFormat = New StringFormat(StringFormatFlags.LineLimit) + e.Graphics.DrawString(TextBox_Kassenbon.Text, Textfont, Brushes.Black, Rahmen, StrFormat) + e.HasMorePages = False + + End Sub + Private Sub Button_Kundenbeleg_drucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Kundenbeleg_drucken.Click + + End Sub + + Private Sub Button_Haendlerbeleg_drucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Haendlerbeleg_drucken.Click + + End Sub + Private Sub PopulateInstalledPrintersCombo() + ' Add list of installed printers found to the combo box. + ' The pkInstalledPrinters string will be used to provide the display string. + Dim i As Integer + Dim pkInstalledPrinters As String + + For i = 0 To PrinterSettings.InstalledPrinters.Count - 1 + pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i) + comboInstalledPrinters.Items.Add(pkInstalledPrinters) + Next + End Sub + + Private Sub comboInstalledPrinters_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboInstalledPrinters.SelectedIndexChanged + + End Sub + + +End Class \ No newline at end of file diff --git a/SDL/kassenbuch/frmBelegNeu.Designer.vb b/SDL/kassenbuch/frmBelegNeu.Designer.vb index 22097e82..fcd17e15 100644 --- a/SDL/kassenbuch/frmBelegNeu.Designer.vb +++ b/SDL/kassenbuch/frmBelegNeu.Designer.vb @@ -135,6 +135,7 @@ Partial Class frmBelegNeu Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel() + Me.btnPOS = New System.Windows.Forms.Button() CType(Me.dgvBelegPos, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnl.SuspendLayout() Me.pnlData.SuspendLayout() @@ -423,12 +424,12 @@ Partial Class frmBelegNeu ' Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnPrint.ForeColor = System.Drawing.Color.Black - Me.btnPrint.Image = Global.SDL.My.Resources.printer2 + Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2 Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnPrint.Location = New System.Drawing.Point(475, 33) + Me.btnPrint.Location = New System.Drawing.Point(556, 33) Me.btnPrint.Name = "btnPrint" Me.btnPrint.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0) - Me.btnPrint.Size = New System.Drawing.Size(145, 59) + Me.btnPrint.Size = New System.Drawing.Size(64, 59) Me.btnPrint.TabIndex = 13 Me.btnPrint.Text = "Beleg drucken" & Global.Microsoft.VisualBasic.ChrW(10) & "und buchen" Me.btnPrint.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -501,12 +502,15 @@ Partial Class frmBelegNeu Me.txtAbfertigungsNr._DateTimeOnly = False Me.txtAbfertigungsNr._numbersOnly = False Me.txtAbfertigungsNr._numbersOnlyKommastellen = "" + Me.txtAbfertigungsNr._numbersOnlyTrennzeichen = True Me.txtAbfertigungsNr._Prozent = False Me.txtAbfertigungsNr._ShortDateNew = False Me.txtAbfertigungsNr._ShortDateOnly = False Me.txtAbfertigungsNr._TimeOnly = False + Me.txtAbfertigungsNr._TimeOnly_Seconds = False Me.txtAbfertigungsNr._value = Nothing Me.txtAbfertigungsNr._Waehrung = False + Me.txtAbfertigungsNr._WaehrungZeichen = True Me.txtAbfertigungsNr.ForeColor = System.Drawing.Color.Black Me.txtAbfertigungsNr.Location = New System.Drawing.Point(266, 259) Me.txtAbfertigungsNr.MaxLength = 8 @@ -679,12 +683,15 @@ Partial Class frmBelegNeu Me.txtzuKassieren._DateTimeOnly = False Me.txtzuKassieren._numbersOnly = False Me.txtzuKassieren._numbersOnlyKommastellen = "" + Me.txtzuKassieren._numbersOnlyTrennzeichen = True Me.txtzuKassieren._Prozent = False Me.txtzuKassieren._ShortDateNew = False Me.txtzuKassieren._ShortDateOnly = False Me.txtzuKassieren._TimeOnly = False + Me.txtzuKassieren._TimeOnly_Seconds = False Me.txtzuKassieren._value = Nothing Me.txtzuKassieren._Waehrung = True + Me.txtzuKassieren._WaehrungZeichen = True Me.txtzuKassieren.Enabled = False Me.txtzuKassieren.ForeColor = System.Drawing.Color.Black Me.txtzuKassieren.Location = New System.Drawing.Point(441, 133) @@ -757,7 +764,7 @@ Partial Class frmBelegNeu ' Me.btnOfferte.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnOfferte.ForeColor = System.Drawing.Color.Black - Me.btnOfferte.Image = Global.SDL.My.Resources.list + Me.btnOfferte.Image = Global.SDL.My.Resources.Resources.list Me.btnOfferte.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnOfferte.Location = New System.Drawing.Point(212, 6) Me.btnOfferte.Name = "btnOfferte" @@ -786,12 +793,15 @@ Partial Class frmBelegNeu Me.lblAtrKdNr._DateTimeOnly = False Me.lblAtrKdNr._numbersOnly = False Me.lblAtrKdNr._numbersOnlyKommastellen = "" + Me.lblAtrKdNr._numbersOnlyTrennzeichen = True Me.lblAtrKdNr._Prozent = False Me.lblAtrKdNr._ShortDateNew = False Me.lblAtrKdNr._ShortDateOnly = False Me.lblAtrKdNr._TimeOnly = False + Me.lblAtrKdNr._TimeOnly_Seconds = False Me.lblAtrKdNr._value = Nothing Me.lblAtrKdNr._Waehrung = False + Me.lblAtrKdNr._WaehrungZeichen = True Me.lblAtrKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer)) Me.lblAtrKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblAtrKdNr.ForeColor = System.Drawing.Color.Black @@ -810,12 +820,15 @@ Partial Class frmBelegNeu Me.lblkundeKdNr._DateTimeOnly = False Me.lblkundeKdNr._numbersOnly = False Me.lblkundeKdNr._numbersOnlyKommastellen = "" + Me.lblkundeKdNr._numbersOnlyTrennzeichen = True Me.lblkundeKdNr._Prozent = False Me.lblkundeKdNr._ShortDateNew = False Me.lblkundeKdNr._ShortDateOnly = False Me.lblkundeKdNr._TimeOnly = False + Me.lblkundeKdNr._TimeOnly_Seconds = False Me.lblkundeKdNr._value = Nothing Me.lblkundeKdNr._Waehrung = False + Me.lblkundeKdNr._WaehrungZeichen = True Me.lblkundeKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer)) Me.lblkundeKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblkundeKdNr.ForeColor = System.Drawing.Color.Black @@ -858,12 +871,15 @@ Partial Class frmBelegNeu Me.lblKunde_UstId_Land._DateTimeOnly = False Me.lblKunde_UstId_Land._numbersOnly = False Me.lblKunde_UstId_Land._numbersOnlyKommastellen = "" + Me.lblKunde_UstId_Land._numbersOnlyTrennzeichen = True Me.lblKunde_UstId_Land._Prozent = False Me.lblKunde_UstId_Land._ShortDateNew = False Me.lblKunde_UstId_Land._ShortDateOnly = False Me.lblKunde_UstId_Land._TimeOnly = False + Me.lblKunde_UstId_Land._TimeOnly_Seconds = False Me.lblKunde_UstId_Land._value = Nothing Me.lblKunde_UstId_Land._Waehrung = False + Me.lblKunde_UstId_Land._WaehrungZeichen = True Me.lblKunde_UstId_Land.ForeColor = System.Drawing.Color.Black Me.lblKunde_UstId_Land.Location = New System.Drawing.Point(62, 117) Me.lblKunde_UstId_Land.MaxLength = 2 @@ -879,12 +895,15 @@ Partial Class frmBelegNeu Me.lblKunde_UstId_Nr._DateTimeOnly = False Me.lblKunde_UstId_Nr._numbersOnly = False Me.lblKunde_UstId_Nr._numbersOnlyKommastellen = "" + Me.lblKunde_UstId_Nr._numbersOnlyTrennzeichen = True Me.lblKunde_UstId_Nr._Prozent = False Me.lblKunde_UstId_Nr._ShortDateNew = False Me.lblKunde_UstId_Nr._ShortDateOnly = False Me.lblKunde_UstId_Nr._TimeOnly = False + Me.lblKunde_UstId_Nr._TimeOnly_Seconds = False Me.lblKunde_UstId_Nr._value = Nothing Me.lblKunde_UstId_Nr._Waehrung = False + Me.lblKunde_UstId_Nr._WaehrungZeichen = True Me.lblKunde_UstId_Nr.ForeColor = System.Drawing.Color.Black Me.lblKunde_UstId_Nr.Location = New System.Drawing.Point(120, 117) Me.lblKunde_UstId_Nr.MaxLength = 12 @@ -900,12 +919,15 @@ Partial Class frmBelegNeu Me.txtSteuersatz._DateTimeOnly = False Me.txtSteuersatz._numbersOnly = False Me.txtSteuersatz._numbersOnlyKommastellen = "" + Me.txtSteuersatz._numbersOnlyTrennzeichen = True Me.txtSteuersatz._Prozent = True Me.txtSteuersatz._ShortDateNew = False Me.txtSteuersatz._ShortDateOnly = False Me.txtSteuersatz._TimeOnly = False + Me.txtSteuersatz._TimeOnly_Seconds = False Me.txtSteuersatz._value = Nothing Me.txtSteuersatz._Waehrung = False + Me.txtSteuersatz._WaehrungZeichen = True Me.txtSteuersatz.ForeColor = System.Drawing.Color.Black Me.txtSteuersatz.Location = New System.Drawing.Point(441, 77) Me.txtSteuersatz.MaxLineLength = -1 @@ -945,12 +967,15 @@ Partial Class frmBelegNeu Me.lblFrachtf_Pass._DateTimeOnly = False Me.lblFrachtf_Pass._numbersOnly = False Me.lblFrachtf_Pass._numbersOnlyKommastellen = "" + Me.lblFrachtf_Pass._numbersOnlyTrennzeichen = True Me.lblFrachtf_Pass._Prozent = False Me.lblFrachtf_Pass._ShortDateNew = False Me.lblFrachtf_Pass._ShortDateOnly = False Me.lblFrachtf_Pass._TimeOnly = False + Me.lblFrachtf_Pass._TimeOnly_Seconds = False Me.lblFrachtf_Pass._value = Nothing Me.lblFrachtf_Pass._Waehrung = False + Me.lblFrachtf_Pass._WaehrungZeichen = True Me.lblFrachtf_Pass.ForeColor = System.Drawing.Color.Black Me.lblFrachtf_Pass.Location = New System.Drawing.Point(441, 182) Me.lblFrachtf_Pass.MaxLength = 15 @@ -966,12 +991,15 @@ Partial Class frmBelegNeu Me.lblKunde_Land._DateTimeOnly = False Me.lblKunde_Land._numbersOnly = False Me.lblKunde_Land._numbersOnlyKommastellen = "" + Me.lblKunde_Land._numbersOnlyTrennzeichen = True Me.lblKunde_Land._Prozent = False Me.lblKunde_Land._ShortDateNew = False Me.lblKunde_Land._ShortDateOnly = False Me.lblKunde_Land._TimeOnly = False + Me.lblKunde_Land._TimeOnly_Seconds = False Me.lblKunde_Land._value = Nothing Me.lblKunde_Land._Waehrung = False + Me.lblKunde_Land._WaehrungZeichen = True Me.lblKunde_Land.ForeColor = System.Drawing.Color.Black Me.lblKunde_Land.Location = New System.Drawing.Point(8, 98) Me.lblKunde_Land.MaxLength = 3 @@ -987,12 +1015,15 @@ Partial Class frmBelegNeu Me.lblFrachtf_Fahrer._DateTimeOnly = False Me.lblFrachtf_Fahrer._numbersOnly = False Me.lblFrachtf_Fahrer._numbersOnlyKommastellen = "" + Me.lblFrachtf_Fahrer._numbersOnlyTrennzeichen = True Me.lblFrachtf_Fahrer._Prozent = False Me.lblFrachtf_Fahrer._ShortDateNew = False Me.lblFrachtf_Fahrer._ShortDateOnly = False Me.lblFrachtf_Fahrer._TimeOnly = False + Me.lblFrachtf_Fahrer._TimeOnly_Seconds = False Me.lblFrachtf_Fahrer._value = Nothing Me.lblFrachtf_Fahrer._Waehrung = False + Me.lblFrachtf_Fahrer._WaehrungZeichen = True Me.lblFrachtf_Fahrer.ForeColor = System.Drawing.Color.Black Me.lblFrachtf_Fahrer.Location = New System.Drawing.Point(441, 163) Me.lblFrachtf_Fahrer.MaxLength = 40 @@ -1008,12 +1039,15 @@ Partial Class frmBelegNeu Me.lblKunde_Plz._DateTimeOnly = False Me.lblKunde_Plz._numbersOnly = False Me.lblKunde_Plz._numbersOnlyKommastellen = "" + Me.lblKunde_Plz._numbersOnlyTrennzeichen = True Me.lblKunde_Plz._Prozent = False Me.lblKunde_Plz._ShortDateNew = False Me.lblKunde_Plz._ShortDateOnly = False Me.lblKunde_Plz._TimeOnly = False + Me.lblKunde_Plz._TimeOnly_Seconds = False Me.lblKunde_Plz._value = Nothing Me.lblKunde_Plz._Waehrung = False + Me.lblKunde_Plz._WaehrungZeichen = True Me.lblKunde_Plz.ForeColor = System.Drawing.Color.Black Me.lblKunde_Plz.Location = New System.Drawing.Point(34, 98) Me.lblKunde_Plz.MaxLength = 7 @@ -1029,12 +1063,15 @@ Partial Class frmBelegNeu Me.lblKunde_Strasse._DateTimeOnly = False Me.lblKunde_Strasse._numbersOnly = False Me.lblKunde_Strasse._numbersOnlyKommastellen = "" + Me.lblKunde_Strasse._numbersOnlyTrennzeichen = True Me.lblKunde_Strasse._Prozent = False Me.lblKunde_Strasse._ShortDateNew = False Me.lblKunde_Strasse._ShortDateOnly = False Me.lblKunde_Strasse._TimeOnly = False + Me.lblKunde_Strasse._TimeOnly_Seconds = False Me.lblKunde_Strasse._value = Nothing Me.lblKunde_Strasse._Waehrung = False + Me.lblKunde_Strasse._WaehrungZeichen = True Me.lblKunde_Strasse.ForeColor = System.Drawing.Color.Black Me.lblKunde_Strasse.Location = New System.Drawing.Point(8, 79) Me.lblKunde_Strasse.MaxLength = 40 @@ -1050,12 +1087,15 @@ Partial Class frmBelegNeu Me.lblFrachtf_LKWNr._DateTimeOnly = False Me.lblFrachtf_LKWNr._numbersOnly = False Me.lblFrachtf_LKWNr._numbersOnlyKommastellen = "" + Me.lblFrachtf_LKWNr._numbersOnlyTrennzeichen = True Me.lblFrachtf_LKWNr._Prozent = False Me.lblFrachtf_LKWNr._ShortDateNew = False Me.lblFrachtf_LKWNr._ShortDateOnly = False Me.lblFrachtf_LKWNr._TimeOnly = False + Me.lblFrachtf_LKWNr._TimeOnly_Seconds = False Me.lblFrachtf_LKWNr._value = Nothing Me.lblFrachtf_LKWNr._Waehrung = False + Me.lblFrachtf_LKWNr._WaehrungZeichen = True Me.lblFrachtf_LKWNr.ForeColor = System.Drawing.Color.Black Me.lblFrachtf_LKWNr.Location = New System.Drawing.Point(110, 164) Me.lblFrachtf_LKWNr.MaxLength = 25 @@ -1071,12 +1111,15 @@ Partial Class frmBelegNeu Me.lblKunde_Ort._DateTimeOnly = False Me.lblKunde_Ort._numbersOnly = False Me.lblKunde_Ort._numbersOnlyKommastellen = "" + Me.lblKunde_Ort._numbersOnlyTrennzeichen = True Me.lblKunde_Ort._Prozent = False Me.lblKunde_Ort._ShortDateNew = False Me.lblKunde_Ort._ShortDateOnly = False Me.lblKunde_Ort._TimeOnly = False + Me.lblKunde_Ort._TimeOnly_Seconds = False Me.lblKunde_Ort._value = Nothing Me.lblKunde_Ort._Waehrung = False + Me.lblKunde_Ort._WaehrungZeichen = True Me.lblKunde_Ort.ForeColor = System.Drawing.Color.Black Me.lblKunde_Ort.Location = New System.Drawing.Point(92, 98) Me.lblKunde_Ort.MaxLength = 40 @@ -1100,6 +1143,7 @@ Partial Class frmBelegNeu ' 'kdkunde ' + Me.kdkunde._AlleFirmenCLUSTER = False Me.kdkunde._AllowSetValue = True Me.kdkunde._autoSizeGross = False Me.kdkunde._display_Name1 = False @@ -1108,6 +1152,7 @@ Partial Class frmBelegNeu Me.kdkunde._displayWoelflKd = False Me.kdkunde._hideIfListEmpty = True Me.kdkunde._loadKdData = True + Me.kdkunde._UseFIRMA = "" Me.kdkunde._ValueKdAndName = False Me.kdkunde.dgvpos = "LEFT" Me.kdkunde.KdName = Nothing @@ -1121,10 +1166,12 @@ Partial Class frmBelegNeu Me.kdkunde.searchActive = True Me.kdkunde.Size = New System.Drawing.Size(331, 20) Me.kdkunde.TabIndex = 10 + Me.kdkunde.TIMER_SEARCH = True Me.kdkunde.usrcntl = Nothing ' 'pnlOPt ' + Me.pnlOPt.Controls.Add(Me.btnPOS) Me.pnlOPt.Controls.Add(Me.cbxBelegOffnen) Me.pnlOPt.Controls.Add(Me.lblStorno) Me.pnlOPt.Controls.Add(Me.Label17) @@ -1210,7 +1257,7 @@ Partial Class frmBelegNeu ' Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.ForeColor = System.Drawing.Color.Black - Me.Button3.Image = Global.SDL.My.Resources.save + Me.Button3.Image = Global.SDL.My.Resources.Resources.save Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button3.Location = New System.Drawing.Point(590, 67) Me.Button3.Name = "Button3" @@ -1347,12 +1394,15 @@ Partial Class frmBelegNeu Me.txtEinzelpreis._DateTimeOnly = False Me.txtEinzelpreis._numbersOnly = True Me.txtEinzelpreis._numbersOnlyKommastellen = "2" + Me.txtEinzelpreis._numbersOnlyTrennzeichen = True Me.txtEinzelpreis._Prozent = False Me.txtEinzelpreis._ShortDateNew = False Me.txtEinzelpreis._ShortDateOnly = False Me.txtEinzelpreis._TimeOnly = False + Me.txtEinzelpreis._TimeOnly_Seconds = False Me.txtEinzelpreis._value = "" Me.txtEinzelpreis._Waehrung = False + Me.txtEinzelpreis._WaehrungZeichen = True Me.txtEinzelpreis.Enabled = False Me.txtEinzelpreis.ForeColor = System.Drawing.Color.Red Me.txtEinzelpreis.Location = New System.Drawing.Point(-1, 179) @@ -1369,12 +1419,15 @@ Partial Class frmBelegNeu Me.MyTextBox1._DateTimeOnly = False Me.MyTextBox1._numbersOnly = False Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True Me.MyTextBox1._Prozent = False Me.MyTextBox1._ShortDateNew = False Me.MyTextBox1._ShortDateOnly = False Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False Me.MyTextBox1._value = "" Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True Me.MyTextBox1.ForeColor = System.Drawing.Color.Black Me.MyTextBox1.Location = New System.Drawing.Point(0, 0) Me.MyTextBox1.MaxLineLength = -1 @@ -1483,6 +1536,7 @@ Partial Class frmBelegNeu ' 'kdFrachtf ' + Me.kdFrachtf._AlleFirmenCLUSTER = False Me.kdFrachtf._AllowSetValue = True Me.kdFrachtf._autoSizeGross = False Me.kdFrachtf._display_Name1 = False @@ -1491,6 +1545,7 @@ Partial Class frmBelegNeu Me.kdFrachtf._displayWoelflKd = False Me.kdFrachtf._hideIfListEmpty = True Me.kdFrachtf._loadKdData = True + Me.kdFrachtf._UseFIRMA = "" Me.kdFrachtf._ValueKdAndName = False Me.kdFrachtf.dgvpos = "LEFT" Me.kdFrachtf.KdName = Nothing @@ -1504,6 +1559,7 @@ Partial Class frmBelegNeu Me.kdFrachtf.searchActive = True Me.kdFrachtf.Size = New System.Drawing.Size(331, 20) Me.kdFrachtf.TabIndex = 30 + Me.kdFrachtf.TIMER_SEARCH = True Me.kdFrachtf.usrcntl = Nothing Me.kdFrachtf.Visible = False ' @@ -1591,6 +1647,20 @@ Partial Class frmBelegNeu Me.FlowLayoutPanel2.TabIndex = 3 Me.FlowLayoutPanel2.Visible = False ' + 'btnPOS + ' + Me.btnPOS.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnPOS.ForeColor = System.Drawing.Color.Black + Me.btnPOS.Image = Global.SDL.My.Resources.Resources.verag_Card1 + Me.btnPOS.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnPOS.Location = New System.Drawing.Point(486, 33) + Me.btnPOS.Name = "btnPOS" + Me.btnPOS.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0) + Me.btnPOS.Size = New System.Drawing.Size(64, 59) + Me.btnPOS.TabIndex = 16 + Me.btnPOS.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnPOS.UseVisualStyleBackColor = True + ' 'frmBelegNeu ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) @@ -1730,4 +1800,5 @@ Partial Class frmBelegNeu Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents txtzuKassieren As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents btnPOS As Button End Class diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index ab3aafe3..5bf815b1 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -27,7 +27,9 @@ Public Class frmBelegNeu Public printErfolgreich = False Public defaultPrinter = "" - + Private EasyZVT_Worker As System.ComponentModel.BackgroundWorker = New System.ComponentModel.BackgroundWorker() + Private Funktion As Integer + Private Betrag As Integer = 0 Public aktFiliale As Integer = 0 Public aktAbfertigungsNr As Integer = 0 @@ -721,15 +723,20 @@ Public Class frmBelegNeu ' Dim RKSV_Service_Location = "\\192.168.0.106:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" - Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click, btnPOS.Click + Dim IsPosPayment As Boolean = False + + If sender.Name = "btnPOS" Then + IsPosPayment = True + End If Try printErfolgreich = False If BELEG.gebucht Or BELEG.gebuchtStorno Then ' KASSE.LOAD(cboKassen._value) If BELEG.rksv_id > 0 Then KASSE.LOAD(BELEG.rksv_id) Select Case BELEG.Belegart - Case "1" : If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then Me.Close() + Case "1" : If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked, IsPosPayment) Then Me.Close() Case "2" : If cRKSV.printKundenBelegLG(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, "LG") Then Me.Close() 'Beleg drucken End Select Else @@ -856,7 +863,7 @@ Public Class frmBelegNeu Select Case BELEG.Belegart Case "1" - If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then + If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked, IsPosPayment) Then 'WARTEN printErfolgreich = True End If @@ -1462,6 +1469,7 @@ Public Class frmBelegNeu End Sub + End Class Class TestRKSVW diff --git a/SDL/kassenbuch/frmKassenbuch.vb b/SDL/kassenbuch/frmKassenbuch.vb index 8a7dd8f4..c7098ff1 100644 --- a/SDL/kassenbuch/frmKassenbuch.vb +++ b/SDL/kassenbuch/frmKassenbuch.vb @@ -58,7 +58,7 @@ Public Class frmKassenbuch If PERSONAL.ID = 274 Then master_Kasse = True - If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "SIENER" Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "SIENER" Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "DANIEL" Then Button6.Visible = True End If KennwortTime = Now diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 951e2f78..8f46cccb 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -1192,7 +1192,7 @@ 3.8.0 - 10.0.3 + 13.0.2 From 70f4d7d2ea6aedc7109c88d86a2b48c0f97872ea Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 28 Feb 2023 10:46:03 +0100 Subject: [PATCH 02/11] GB-Vollmachten im Formulardesigner --- .../usrcntlVollmacht_GB_IE.Designer.vb | 549 ++++++++++++++++++ .../usrcntlVollmacht_GB_IE.resx | 120 ++++ .../usrcntlVollmacht_GB_IE.vb | 100 ++++ .../usrcntlVollmacht_GB_indirekt.Designer.vb | 549 ++++++++++++++++++ .../usrcntlVollmacht_GB_indirekt.resx | 120 ++++ .../usrcntlVollmacht_GB_indirekt.vb | 101 ++++ .../usrcntlVollmacht_VERAG_EXPORT.Designer.vb | 77 ++- .../KDFormulare/frmFormulare.Designer.vb | 2 + SDL/Formulare/KDFormulare/frmFormulare.vb | 148 +++++ SDL/SDL.vbproj | 18 + 10 files changed, 1778 insertions(+), 6 deletions(-) create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.Designer.vb create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.resx create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.vb create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.Designer.vb create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.resx create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.vb diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.Designer.vb new file mode 100644 index 00000000..cdcb89f0 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.Designer.vb @@ -0,0 +1,549 @@ + +Partial Class usrcntlVollmacht_GB_IE + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.lblVollmachtDE = New System.Windows.Forms.Label() + Me.lbl = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.cbxZahlungsaufschub = New System.Windows.Forms.CheckBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.btn = New System.Windows.Forms.Button() + Me.txtZahlungsaufschung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAEO = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.pic = New System.Windows.Forms.PictureBox() + Me.btnDown = New System.Windows.Forms.Button() + Me.btnUp = New System.Windows.Forms.Button() + Me.btnDel = New System.Windows.Forms.Button() + Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.cbxPostponed = New VERAG_PROG_ALLGEMEIN.MyComboBox() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lblVollmachtDE + ' + Me.lblVollmachtDE.AutoSize = True + Me.lblVollmachtDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVollmachtDE.Location = New System.Drawing.Point(43, 9) + Me.lblVollmachtDE.Name = "lblVollmachtDE" + Me.lblVollmachtDE.Size = New System.Drawing.Size(233, 20) + Me.lblVollmachtDE.TabIndex = 1 + Me.lblVollmachtDE.Text = "Vollmacht GB Import/Export" + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Location = New System.Drawing.Point(170, 37) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(78, 13) + Me.lbl.TabIndex = 4 + Me.lbl.Text = "Firmenwortlaut:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(170, 56) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(48, 13) + Me.Label1.TabIndex = 9 + Me.Label1.Text = "Adresse:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(170, 101) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(45, 13) + Me.Label2.TabIndex = 12 + Me.Label2.Text = "VAT-Nr:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(587, 101) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(50, 13) + Me.Label3.TabIndex = 14 + Me.Label3.Text = "EORI-Nr:" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(587, 120) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(27, 13) + Me.Label4.TabIndex = 18 + Me.Label4.Text = "Fax:" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(170, 120) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(28, 13) + Me.Label5.TabIndex = 16 + Me.Label5.Text = "Tel.:" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(170, 139) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(39, 13) + Me.Label6.TabIndex = 20 + Me.Label6.Text = "E-Mail:" + ' + 'cbxZahlungsaufschub + ' + Me.cbxZahlungsaufschub.AutoSize = True + Me.cbxZahlungsaufschub.Location = New System.Drawing.Point(173, 164) + Me.cbxZahlungsaufschub.Name = "cbxZahlungsaufschub" + Me.cbxZahlungsaufschub.Size = New System.Drawing.Size(148, 17) + Me.cbxZahlungsaufschub.TabIndex = 24 + Me.cbxZahlungsaufschub.Text = "Zahlungsaufschub / DDA" + Me.cbxZahlungsaufschub.UseVisualStyleBackColor = True + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(587, 165) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(239, 13) + Me.Label7.TabIndex = 26 + Me.Label7.Text = "aufgeschobene VAT Meldung und Zahlung (UK):" + ' + 'btn + ' + Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search + Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Location = New System.Drawing.Point(937, 34) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(26, 20) + Me.btn.TabIndex = 6 + Me.btn.UseVisualStyleBackColor = True + ' + 'txtZahlungsaufschung + ' + Me.txtZahlungsaufschung._DateTimeOnly = False + Me.txtZahlungsaufschung._numbersOnly = False + Me.txtZahlungsaufschung._numbersOnlyKommastellen = "" + Me.txtZahlungsaufschung._numbersOnlyTrennzeichen = True + Me.txtZahlungsaufschung._Prozent = False + Me.txtZahlungsaufschung._ShortDateNew = False + Me.txtZahlungsaufschung._ShortDateOnly = False + Me.txtZahlungsaufschung._TimeOnly = False + Me.txtZahlungsaufschung._TimeOnly_Seconds = False + Me.txtZahlungsaufschung._value = Nothing + Me.txtZahlungsaufschung._Waehrung = False + Me.txtZahlungsaufschung._WaehrungZeichen = True + Me.txtZahlungsaufschung.Enabled = False + Me.txtZahlungsaufschung.ForeColor = System.Drawing.Color.Black + Me.txtZahlungsaufschung.Location = New System.Drawing.Point(363, 162) + Me.txtZahlungsaufschung.MaxLineLength = -1 + Me.txtZahlungsaufschung.MaxLines_Warning = "" + Me.txtZahlungsaufschung.MaxLines_Warning_Label = Nothing + Me.txtZahlungsaufschung.Name = "txtZahlungsaufschung" + Me.txtZahlungsaufschung.Size = New System.Drawing.Size(201, 20) + Me.txtZahlungsaufschung.TabIndex = 25 + ' + 'txtEmail + ' + Me.txtEmail._DateTimeOnly = False + Me.txtEmail._numbersOnly = False + Me.txtEmail._numbersOnlyKommastellen = "" + Me.txtEmail._numbersOnlyTrennzeichen = True + Me.txtEmail._Prozent = False + Me.txtEmail._ShortDateNew = False + Me.txtEmail._ShortDateOnly = False + Me.txtEmail._TimeOnly = False + Me.txtEmail._TimeOnly_Seconds = False + Me.txtEmail._value = Nothing + Me.txtEmail._Waehrung = False + Me.txtEmail._WaehrungZeichen = True + Me.txtEmail.ForeColor = System.Drawing.Color.Black + Me.txtEmail.Location = New System.Drawing.Point(254, 136) + Me.txtEmail.MaxLineLength = -1 + Me.txtEmail.MaxLines_Warning = "" + Me.txtEmail.MaxLines_Warning_Label = Nothing + Me.txtEmail.Name = "txtEmail" + Me.txtEmail.Size = New System.Drawing.Size(310, 20) + Me.txtEmail.TabIndex = 21 + ' + 'txtFax + ' + Me.txtFax._DateTimeOnly = False + Me.txtFax._numbersOnly = False + Me.txtFax._numbersOnlyKommastellen = "" + Me.txtFax._numbersOnlyTrennzeichen = True + Me.txtFax._Prozent = False + Me.txtFax._ShortDateNew = False + Me.txtFax._ShortDateOnly = False + Me.txtFax._TimeOnly = False + Me.txtFax._TimeOnly_Seconds = False + Me.txtFax._value = Nothing + Me.txtFax._Waehrung = False + Me.txtFax._WaehrungZeichen = True + Me.txtFax.ForeColor = System.Drawing.Color.Black + Me.txtFax.Location = New System.Drawing.Point(653, 117) + Me.txtFax.MaxLineLength = -1 + Me.txtFax.MaxLines_Warning = "" + Me.txtFax.MaxLines_Warning_Label = Nothing + Me.txtFax.Name = "txtFax" + Me.txtFax.Size = New System.Drawing.Size(310, 20) + Me.txtFax.TabIndex = 19 + ' + 'txtTel + ' + Me.txtTel._DateTimeOnly = False + Me.txtTel._numbersOnly = False + Me.txtTel._numbersOnlyKommastellen = "" + Me.txtTel._numbersOnlyTrennzeichen = True + Me.txtTel._Prozent = False + Me.txtTel._ShortDateNew = False + Me.txtTel._ShortDateOnly = False + Me.txtTel._TimeOnly = False + Me.txtTel._TimeOnly_Seconds = False + Me.txtTel._value = Nothing + Me.txtTel._Waehrung = False + Me.txtTel._WaehrungZeichen = True + Me.txtTel.ForeColor = System.Drawing.Color.Black + Me.txtTel.Location = New System.Drawing.Point(254, 117) + Me.txtTel.MaxLineLength = -1 + Me.txtTel.MaxLines_Warning = "" + Me.txtTel.MaxLines_Warning_Label = Nothing + Me.txtTel.Name = "txtTel" + Me.txtTel.Size = New System.Drawing.Size(310, 20) + Me.txtTel.TabIndex = 17 + ' + 'txtEori + ' + Me.txtEori._DateTimeOnly = False + Me.txtEori._numbersOnly = False + Me.txtEori._numbersOnlyKommastellen = "" + Me.txtEori._numbersOnlyTrennzeichen = True + Me.txtEori._Prozent = False + Me.txtEori._ShortDateNew = False + Me.txtEori._ShortDateOnly = False + Me.txtEori._TimeOnly = False + Me.txtEori._TimeOnly_Seconds = False + Me.txtEori._value = Nothing + Me.txtEori._Waehrung = False + Me.txtEori._WaehrungZeichen = True + Me.txtEori.ForeColor = System.Drawing.Color.Black + Me.txtEori.Location = New System.Drawing.Point(653, 98) + Me.txtEori.MaxLineLength = -1 + Me.txtEori.MaxLines_Warning = "" + Me.txtEori.MaxLines_Warning_Label = Nothing + Me.txtEori.Name = "txtEori" + Me.txtEori.Size = New System.Drawing.Size(310, 20) + Me.txtEori.TabIndex = 15 + ' + 'txtUid + ' + Me.txtUid._DateTimeOnly = False + Me.txtUid._numbersOnly = False + Me.txtUid._numbersOnlyKommastellen = "" + Me.txtUid._numbersOnlyTrennzeichen = True + Me.txtUid._Prozent = False + Me.txtUid._ShortDateNew = False + Me.txtUid._ShortDateOnly = False + Me.txtUid._TimeOnly = False + Me.txtUid._TimeOnly_Seconds = False + Me.txtUid._value = Nothing + Me.txtUid._Waehrung = False + Me.txtUid._WaehrungZeichen = True + Me.txtUid.ForeColor = System.Drawing.Color.Black + Me.txtUid.Location = New System.Drawing.Point(254, 98) + Me.txtUid.MaxLineLength = -1 + Me.txtUid.MaxLines_Warning = "" + Me.txtUid.MaxLines_Warning_Label = Nothing + Me.txtUid.Name = "txtUid" + Me.txtUid.Size = New System.Drawing.Size(310, 20) + Me.txtUid.TabIndex = 13 + ' + 'txtAdresse2 + ' + Me.txtAdresse2._DateTimeOnly = False + Me.txtAdresse2._numbersOnly = False + Me.txtAdresse2._numbersOnlyKommastellen = "" + Me.txtAdresse2._numbersOnlyTrennzeichen = True + Me.txtAdresse2._Prozent = False + Me.txtAdresse2._ShortDateNew = False + Me.txtAdresse2._ShortDateOnly = False + Me.txtAdresse2._TimeOnly = False + Me.txtAdresse2._TimeOnly_Seconds = False + Me.txtAdresse2._value = Nothing + Me.txtAdresse2._Waehrung = False + Me.txtAdresse2._WaehrungZeichen = True + Me.txtAdresse2.ForeColor = System.Drawing.Color.Black + Me.txtAdresse2.Location = New System.Drawing.Point(254, 72) + Me.txtAdresse2.MaxLineLength = -1 + Me.txtAdresse2.MaxLines_Warning = "" + Me.txtAdresse2.MaxLines_Warning_Label = Nothing + Me.txtAdresse2.Name = "txtAdresse2" + Me.txtAdresse2.Size = New System.Drawing.Size(709, 20) + Me.txtAdresse2.TabIndex = 11 + ' + 'txtAdresse1 + ' + Me.txtAdresse1._DateTimeOnly = False + Me.txtAdresse1._numbersOnly = False + Me.txtAdresse1._numbersOnlyKommastellen = "" + Me.txtAdresse1._numbersOnlyTrennzeichen = True + Me.txtAdresse1._Prozent = False + Me.txtAdresse1._ShortDateNew = False + Me.txtAdresse1._ShortDateOnly = False + Me.txtAdresse1._TimeOnly = False + Me.txtAdresse1._TimeOnly_Seconds = False + Me.txtAdresse1._value = Nothing + Me.txtAdresse1._Waehrung = False + Me.txtAdresse1._WaehrungZeichen = True + Me.txtAdresse1.ForeColor = System.Drawing.Color.Black + Me.txtAdresse1.Location = New System.Drawing.Point(254, 53) + Me.txtAdresse1.MaxLineLength = -1 + Me.txtAdresse1.MaxLines_Warning = "" + Me.txtAdresse1.MaxLines_Warning_Label = Nothing + Me.txtAdresse1.Name = "txtAdresse1" + Me.txtAdresse1.Size = New System.Drawing.Size(709, 20) + Me.txtAdresse1.TabIndex = 10 + ' + 'txtFirma + ' + Me.txtFirma._DateTimeOnly = False + Me.txtFirma._numbersOnly = False + Me.txtFirma._numbersOnlyKommastellen = "" + Me.txtFirma._numbersOnlyTrennzeichen = True + Me.txtFirma._Prozent = False + Me.txtFirma._ShortDateNew = False + Me.txtFirma._ShortDateOnly = False + Me.txtFirma._TimeOnly = False + Me.txtFirma._TimeOnly_Seconds = False + Me.txtFirma._value = Nothing + Me.txtFirma._Waehrung = False + Me.txtFirma._WaehrungZeichen = True + Me.txtFirma.ForeColor = System.Drawing.Color.Black + Me.txtFirma.Location = New System.Drawing.Point(254, 34) + Me.txtFirma.MaxLineLength = -1 + Me.txtFirma.MaxLines_Warning = "" + Me.txtFirma.MaxLines_Warning_Label = Nothing + Me.txtFirma.Name = "txtFirma" + Me.txtFirma.Size = New System.Drawing.Size(684, 20) + Me.txtFirma.TabIndex = 5 + ' + 'txtAEO + ' + Me.txtAEO._DateTimeOnly = False + Me.txtAEO._numbersOnly = False + Me.txtAEO._numbersOnlyKommastellen = "" + Me.txtAEO._numbersOnlyTrennzeichen = True + Me.txtAEO._Prozent = False + Me.txtAEO._ShortDateNew = False + Me.txtAEO._ShortDateOnly = False + Me.txtAEO._TimeOnly = False + Me.txtAEO._TimeOnly_Seconds = False + Me.txtAEO._value = Nothing + Me.txtAEO._Waehrung = False + Me.txtAEO._WaehrungZeichen = True + Me.txtAEO.ForeColor = System.Drawing.Color.Black + Me.txtAEO.Location = New System.Drawing.Point(653, 136) + Me.txtAEO.MaxLineLength = -1 + Me.txtAEO.MaxLines_Warning = "" + Me.txtAEO.MaxLines_Warning_Label = Nothing + Me.txtAEO.Name = "txtAEO" + Me.txtAEO.Size = New System.Drawing.Size(310, 20) + Me.txtAEO.TabIndex = 23 + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(587, 139) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(57, 13) + Me.Label11.TabIndex = 22 + Me.Label11.Text = "AEO-Zert.:" + ' + 'pic + ' + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pic.Cursor = System.Windows.Forms.Cursors.Hand + Me.pic.Location = New System.Drawing.Point(5, 5) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(32, 32) + Me.pic.TabIndex = 30 + Me.pic.TabStop = False + ' + 'btnDown + ' + Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten + Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDown.Location = New System.Drawing.Point(976, 42) + Me.btnDown.Name = "btnDown" + Me.btnDown.Size = New System.Drawing.Size(25, 21) + Me.btnDown.TabIndex = 7 + Me.btnDown.UseVisualStyleBackColor = True + ' + 'btnUp + ' + Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben + Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUp.Location = New System.Drawing.Point(976, 22) + Me.btnUp.Name = "btnUp" + Me.btnUp.Size = New System.Drawing.Size(25, 21) + Me.btnUp.TabIndex = 2 + Me.btnUp.UseVisualStyleBackColor = True + ' + 'btnDel + ' + Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del + Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDel.Location = New System.Drawing.Point(976, -1) + Me.btnDel.Name = "btnDel" + Me.btnDel.Size = New System.Drawing.Size(25, 21) + Me.btnDel.TabIndex = 0 + Me.btnDel.UseVisualStyleBackColor = True + ' + 'cboSprache + ' + Me.cboSprache._allowedValuesFreiText = Nothing + Me.cboSprache._allowFreiText = False + Me.cboSprache._value = "" + Me.cboSprache.FormattingEnabled = True + Me.cboSprache.Location = New System.Drawing.Point(47, 53) + Me.cboSprache.Name = "cboSprache" + Me.cboSprache.Size = New System.Drawing.Size(89, 21) + Me.cboSprache.TabIndex = 8 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(44, 37) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(50, 13) + Me.Label12.TabIndex = 3 + Me.Label12.Text = "Sprache:" + ' + 'cbxPostponed + ' + Me.cbxPostponed._allowedValuesFreiText = Nothing + Me.cbxPostponed._allowFreiText = False + Me.cbxPostponed._value = "" + Me.cbxPostponed.FormattingEnabled = True + Me.cbxPostponed.Location = New System.Drawing.Point(915, 160) + Me.cbxPostponed.Name = "cbxPostponed" + Me.cbxPostponed.Size = New System.Drawing.Size(48, 21) + Me.cbxPostponed.TabIndex = 31 + ' + 'usrcntlVollmacht_GB_IE + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.WhiteSmoke + Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.cbxPostponed) + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.cboSprache) + Me.Controls.Add(Me.btnDown) + Me.Controls.Add(Me.btnUp) + Me.Controls.Add(Me.btnDel) + Me.Controls.Add(Me.pic) + Me.Controls.Add(Me.txtAEO) + Me.Controls.Add(Me.Label11) + Me.Controls.Add(Me.btn) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.txtZahlungsaufschung) + Me.Controls.Add(Me.cbxZahlungsaufschub) + Me.Controls.Add(Me.txtEmail) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.txtFax) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.txtTel) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.txtEori) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.txtUid) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.txtAdresse2) + Me.Controls.Add(Me.txtAdresse1) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtFirma) + Me.Controls.Add(Me.lbl) + Me.Controls.Add(Me.lblVollmachtDE) + Me.Name = "usrcntlVollmacht_GB_IE" + Me.Size = New System.Drawing.Size(1000, 193) + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents lblVollmachtDE As System.Windows.Forms.Label + Friend WithEvents lbl As System.Windows.Forms.Label + Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents txtEori As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents cbxZahlungsaufschub As System.Windows.Forms.CheckBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents txtZahlungsaufschung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btn As System.Windows.Forms.Button + Friend WithEvents txtAEO As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents pic As System.Windows.Forms.PictureBox + Friend WithEvents btnDown As System.Windows.Forms.Button + Friend WithEvents btnUp As System.Windows.Forms.Button + Friend WithEvents btnDel As System.Windows.Forms.Button + Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents cbxPostponed As VERAG_PROG_ALLGEMEIN.MyComboBox +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.vb new file mode 100644 index 00000000..cca82f74 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.vb @@ -0,0 +1,100 @@ +Public Class usrcntlVollmacht_GB_IE + Implements FormualrInterface + + Public Event CHANGED(name, value) + Public Event KDNR_CHANGED(kdnr) + Public Event DELETE(c As Control) + Public Event MOVE_UP(c As Control) + Public Event MOVE_DOWN(c As Control) + + Public KdNR As Integer = -1 + Public Sub ChangeKDNr(kdnr As Integer) _ + Implements FormualrInterface.ChangeKDNr + initKdNR(kdnr) + End Sub + + 'Dim KdNR As Integer = -1 + Sub initControlsHandler() + For Each c In Me.Controls + Select Case c.GetType.ToString + Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString + AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub() + RaiseEvent CHANGED(c.name, c.text) + End Sub + Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString + AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub() + RaiseEvent CHANGED(c.name, c._value) + End Sub + Case GetType(TextBox).ToString + AddHandler DirectCast(c, TextBox).Leave, Sub() + RaiseEvent CHANGED(c.name, c.text) + End Sub + End Select + Next + End Sub + + Private Sub cbxZahlungsaufschub_changed(sender As Object, e As EventArgs) Handles cbxZahlungsaufschub.CheckedChanged + txtZahlungsaufschung.Enabled = sender.checked + + End Sub + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + Dim kdsrch As New SDL.frmKundenSuche + 'Panel1.Enabled = False + If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then + If IsNumeric(kdsrch.kundenNrSearch.Text) Then + initKdNR(kdsrch.kundenNrSearch.Text) + RaiseEvent KDNR_CHANGED(KdNR) + End If + End If + ' Panel1.Enabled = True + End Sub + + Public Sub initKdNR(KdNR) + Me.KdNR = KdNR + Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR) + Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR) + + txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "") + txtAdresse1.Text = If(ADRESSE.Straße, "") + txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim + txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "") + txtEori.Text = If(KUNDE.EORITIN, "") + txtTel.Text = If(ADRESSE.Telefon, "") + txtFax.Text = If(ADRESSE.Telefax, "") + txtEmail.Text = If(ADRESSE.E_Mail, "") + ' txtAnsprechpartner.Text = If(ADRESSE.Ansprechpartner, "") + + End Sub + + + Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click + RaiseEvent DELETE(Me) + End Sub + + Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click + RaiseEvent MOVE_UP(Me) + End Sub + + Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click + RaiseEvent MOVE_DOWN(Me) + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) + + End Sub + + Private Sub usrcntlVollmacht_AT_Load(sender As Object, e As EventArgs) Handles Me.Load + initControlsHandler() + cboSprache.Items.Clear() + 'cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) + cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) + cbxPostponed.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "JA")) + cbxPostponed.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "NEIN")) + If KdNR > 0 Then initKdNR(KdNR) + End Sub + + Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click + FormularManagerNEU.genPDF(Me, True) + End Sub + +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.Designer.vb new file mode 100644 index 00000000..e3ec427c --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.Designer.vb @@ -0,0 +1,549 @@ + +Partial Class usrcntlVollmacht_GB_indirekt + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.lblVollmachtDE = New System.Windows.Forms.Label() + Me.lbl = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.btn = New System.Windows.Forms.Button() + Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAEO = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.pic = New System.Windows.Forms.PictureBox() + Me.btnDown = New System.Windows.Forms.Button() + Me.btnUp = New System.Windows.Forms.Button() + Me.btnDel = New System.Windows.Forms.Button() + Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.cbxPostponed = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.txtZahlungsaufschung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxZahlungsaufschub = New System.Windows.Forms.CheckBox() + Me.Label2 = New System.Windows.Forms.Label() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lblVollmachtDE + ' + Me.lblVollmachtDE.AutoSize = True + Me.lblVollmachtDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVollmachtDE.Location = New System.Drawing.Point(43, 9) + Me.lblVollmachtDE.Name = "lblVollmachtDE" + Me.lblVollmachtDE.Size = New System.Drawing.Size(183, 20) + Me.lblVollmachtDE.TabIndex = 1 + Me.lblVollmachtDE.Text = "Vollmacht GB indirekt" + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Location = New System.Drawing.Point(170, 37) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(78, 13) + Me.lbl.TabIndex = 4 + Me.lbl.Text = "Firmenwortlaut:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(170, 56) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(48, 13) + Me.Label1.TabIndex = 9 + Me.Label1.Text = "Adresse:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(587, 101) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(50, 13) + Me.Label3.TabIndex = 14 + Me.Label3.Text = "EORI-Nr:" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(587, 120) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(27, 13) + Me.Label4.TabIndex = 18 + Me.Label4.Text = "Fax:" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(170, 120) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(28, 13) + Me.Label5.TabIndex = 16 + Me.Label5.Text = "Tel.:" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(170, 139) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(39, 13) + Me.Label6.TabIndex = 20 + Me.Label6.Text = "E-Mail:" + ' + 'btn + ' + Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search + Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Location = New System.Drawing.Point(937, 34) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(26, 20) + Me.btn.TabIndex = 6 + Me.btn.UseVisualStyleBackColor = True + ' + 'txtEmail + ' + Me.txtEmail._DateTimeOnly = False + Me.txtEmail._numbersOnly = False + Me.txtEmail._numbersOnlyKommastellen = "" + Me.txtEmail._numbersOnlyTrennzeichen = True + Me.txtEmail._Prozent = False + Me.txtEmail._ShortDateNew = False + Me.txtEmail._ShortDateOnly = False + Me.txtEmail._TimeOnly = False + Me.txtEmail._TimeOnly_Seconds = False + Me.txtEmail._value = Nothing + Me.txtEmail._Waehrung = False + Me.txtEmail._WaehrungZeichen = True + Me.txtEmail.ForeColor = System.Drawing.Color.Black + Me.txtEmail.Location = New System.Drawing.Point(254, 136) + Me.txtEmail.MaxLineLength = -1 + Me.txtEmail.MaxLines_Warning = "" + Me.txtEmail.MaxLines_Warning_Label = Nothing + Me.txtEmail.Name = "txtEmail" + Me.txtEmail.Size = New System.Drawing.Size(310, 20) + Me.txtEmail.TabIndex = 21 + ' + 'txtFax + ' + Me.txtFax._DateTimeOnly = False + Me.txtFax._numbersOnly = False + Me.txtFax._numbersOnlyKommastellen = "" + Me.txtFax._numbersOnlyTrennzeichen = True + Me.txtFax._Prozent = False + Me.txtFax._ShortDateNew = False + Me.txtFax._ShortDateOnly = False + Me.txtFax._TimeOnly = False + Me.txtFax._TimeOnly_Seconds = False + Me.txtFax._value = Nothing + Me.txtFax._Waehrung = False + Me.txtFax._WaehrungZeichen = True + Me.txtFax.ForeColor = System.Drawing.Color.Black + Me.txtFax.Location = New System.Drawing.Point(653, 117) + Me.txtFax.MaxLineLength = -1 + Me.txtFax.MaxLines_Warning = "" + Me.txtFax.MaxLines_Warning_Label = Nothing + Me.txtFax.Name = "txtFax" + Me.txtFax.Size = New System.Drawing.Size(310, 20) + Me.txtFax.TabIndex = 19 + ' + 'txtTel + ' + Me.txtTel._DateTimeOnly = False + Me.txtTel._numbersOnly = False + Me.txtTel._numbersOnlyKommastellen = "" + Me.txtTel._numbersOnlyTrennzeichen = True + Me.txtTel._Prozent = False + Me.txtTel._ShortDateNew = False + Me.txtTel._ShortDateOnly = False + Me.txtTel._TimeOnly = False + Me.txtTel._TimeOnly_Seconds = False + Me.txtTel._value = Nothing + Me.txtTel._Waehrung = False + Me.txtTel._WaehrungZeichen = True + Me.txtTel.ForeColor = System.Drawing.Color.Black + Me.txtTel.Location = New System.Drawing.Point(254, 117) + Me.txtTel.MaxLineLength = -1 + Me.txtTel.MaxLines_Warning = "" + Me.txtTel.MaxLines_Warning_Label = Nothing + Me.txtTel.Name = "txtTel" + Me.txtTel.Size = New System.Drawing.Size(310, 20) + Me.txtTel.TabIndex = 17 + ' + 'txtEori + ' + Me.txtEori._DateTimeOnly = False + Me.txtEori._numbersOnly = False + Me.txtEori._numbersOnlyKommastellen = "" + Me.txtEori._numbersOnlyTrennzeichen = True + Me.txtEori._Prozent = False + Me.txtEori._ShortDateNew = False + Me.txtEori._ShortDateOnly = False + Me.txtEori._TimeOnly = False + Me.txtEori._TimeOnly_Seconds = False + Me.txtEori._value = Nothing + Me.txtEori._Waehrung = False + Me.txtEori._WaehrungZeichen = True + Me.txtEori.ForeColor = System.Drawing.Color.Black + Me.txtEori.Location = New System.Drawing.Point(653, 98) + Me.txtEori.MaxLineLength = -1 + Me.txtEori.MaxLines_Warning = "" + Me.txtEori.MaxLines_Warning_Label = Nothing + Me.txtEori.Name = "txtEori" + Me.txtEori.Size = New System.Drawing.Size(310, 20) + Me.txtEori.TabIndex = 15 + ' + 'txtUid + ' + Me.txtUid._DateTimeOnly = False + Me.txtUid._numbersOnly = False + Me.txtUid._numbersOnlyKommastellen = "" + Me.txtUid._numbersOnlyTrennzeichen = True + Me.txtUid._Prozent = False + Me.txtUid._ShortDateNew = False + Me.txtUid._ShortDateOnly = False + Me.txtUid._TimeOnly = False + Me.txtUid._TimeOnly_Seconds = False + Me.txtUid._value = Nothing + Me.txtUid._Waehrung = False + Me.txtUid._WaehrungZeichen = True + Me.txtUid.ForeColor = System.Drawing.Color.Black + Me.txtUid.Location = New System.Drawing.Point(254, 98) + Me.txtUid.MaxLineLength = -1 + Me.txtUid.MaxLines_Warning = "" + Me.txtUid.MaxLines_Warning_Label = Nothing + Me.txtUid.Name = "txtUid" + Me.txtUid.Size = New System.Drawing.Size(310, 20) + Me.txtUid.TabIndex = 13 + ' + 'txtAdresse2 + ' + Me.txtAdresse2._DateTimeOnly = False + Me.txtAdresse2._numbersOnly = False + Me.txtAdresse2._numbersOnlyKommastellen = "" + Me.txtAdresse2._numbersOnlyTrennzeichen = True + Me.txtAdresse2._Prozent = False + Me.txtAdresse2._ShortDateNew = False + Me.txtAdresse2._ShortDateOnly = False + Me.txtAdresse2._TimeOnly = False + Me.txtAdresse2._TimeOnly_Seconds = False + Me.txtAdresse2._value = Nothing + Me.txtAdresse2._Waehrung = False + Me.txtAdresse2._WaehrungZeichen = True + Me.txtAdresse2.ForeColor = System.Drawing.Color.Black + Me.txtAdresse2.Location = New System.Drawing.Point(254, 72) + Me.txtAdresse2.MaxLineLength = -1 + Me.txtAdresse2.MaxLines_Warning = "" + Me.txtAdresse2.MaxLines_Warning_Label = Nothing + Me.txtAdresse2.Name = "txtAdresse2" + Me.txtAdresse2.Size = New System.Drawing.Size(709, 20) + Me.txtAdresse2.TabIndex = 11 + ' + 'txtAdresse1 + ' + Me.txtAdresse1._DateTimeOnly = False + Me.txtAdresse1._numbersOnly = False + Me.txtAdresse1._numbersOnlyKommastellen = "" + Me.txtAdresse1._numbersOnlyTrennzeichen = True + Me.txtAdresse1._Prozent = False + Me.txtAdresse1._ShortDateNew = False + Me.txtAdresse1._ShortDateOnly = False + Me.txtAdresse1._TimeOnly = False + Me.txtAdresse1._TimeOnly_Seconds = False + Me.txtAdresse1._value = Nothing + Me.txtAdresse1._Waehrung = False + Me.txtAdresse1._WaehrungZeichen = True + Me.txtAdresse1.ForeColor = System.Drawing.Color.Black + Me.txtAdresse1.Location = New System.Drawing.Point(254, 53) + Me.txtAdresse1.MaxLineLength = -1 + Me.txtAdresse1.MaxLines_Warning = "" + Me.txtAdresse1.MaxLines_Warning_Label = Nothing + Me.txtAdresse1.Name = "txtAdresse1" + Me.txtAdresse1.Size = New System.Drawing.Size(709, 20) + Me.txtAdresse1.TabIndex = 10 + ' + 'txtFirma + ' + Me.txtFirma._DateTimeOnly = False + Me.txtFirma._numbersOnly = False + Me.txtFirma._numbersOnlyKommastellen = "" + Me.txtFirma._numbersOnlyTrennzeichen = True + Me.txtFirma._Prozent = False + Me.txtFirma._ShortDateNew = False + Me.txtFirma._ShortDateOnly = False + Me.txtFirma._TimeOnly = False + Me.txtFirma._TimeOnly_Seconds = False + Me.txtFirma._value = Nothing + Me.txtFirma._Waehrung = False + Me.txtFirma._WaehrungZeichen = True + Me.txtFirma.ForeColor = System.Drawing.Color.Black + Me.txtFirma.Location = New System.Drawing.Point(254, 34) + Me.txtFirma.MaxLineLength = -1 + Me.txtFirma.MaxLines_Warning = "" + Me.txtFirma.MaxLines_Warning_Label = Nothing + Me.txtFirma.Name = "txtFirma" + Me.txtFirma.Size = New System.Drawing.Size(684, 20) + Me.txtFirma.TabIndex = 5 + ' + 'txtAEO + ' + Me.txtAEO._DateTimeOnly = False + Me.txtAEO._numbersOnly = False + Me.txtAEO._numbersOnlyKommastellen = "" + Me.txtAEO._numbersOnlyTrennzeichen = True + Me.txtAEO._Prozent = False + Me.txtAEO._ShortDateNew = False + Me.txtAEO._ShortDateOnly = False + Me.txtAEO._TimeOnly = False + Me.txtAEO._TimeOnly_Seconds = False + Me.txtAEO._value = Nothing + Me.txtAEO._Waehrung = False + Me.txtAEO._WaehrungZeichen = True + Me.txtAEO.ForeColor = System.Drawing.Color.Black + Me.txtAEO.Location = New System.Drawing.Point(653, 136) + Me.txtAEO.MaxLineLength = -1 + Me.txtAEO.MaxLines_Warning = "" + Me.txtAEO.MaxLines_Warning_Label = Nothing + Me.txtAEO.Name = "txtAEO" + Me.txtAEO.Size = New System.Drawing.Size(310, 20) + Me.txtAEO.TabIndex = 23 + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(587, 139) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(57, 13) + Me.Label11.TabIndex = 22 + Me.Label11.Text = "AEO-Zert.:" + ' + 'pic + ' + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pic.Cursor = System.Windows.Forms.Cursors.Hand + Me.pic.Location = New System.Drawing.Point(5, 5) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(32, 32) + Me.pic.TabIndex = 30 + Me.pic.TabStop = False + ' + 'btnDown + ' + Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten + Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDown.Location = New System.Drawing.Point(976, 42) + Me.btnDown.Name = "btnDown" + Me.btnDown.Size = New System.Drawing.Size(25, 21) + Me.btnDown.TabIndex = 7 + Me.btnDown.UseVisualStyleBackColor = True + ' + 'btnUp + ' + Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben + Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUp.Location = New System.Drawing.Point(976, 22) + Me.btnUp.Name = "btnUp" + Me.btnUp.Size = New System.Drawing.Size(25, 21) + Me.btnUp.TabIndex = 2 + Me.btnUp.UseVisualStyleBackColor = True + ' + 'btnDel + ' + Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del + Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDel.Location = New System.Drawing.Point(976, -1) + Me.btnDel.Name = "btnDel" + Me.btnDel.Size = New System.Drawing.Size(25, 21) + Me.btnDel.TabIndex = 0 + Me.btnDel.UseVisualStyleBackColor = True + ' + 'cboSprache + ' + Me.cboSprache._allowedValuesFreiText = Nothing + Me.cboSprache._allowFreiText = False + Me.cboSprache._value = "" + Me.cboSprache.FormattingEnabled = True + Me.cboSprache.Location = New System.Drawing.Point(47, 53) + Me.cboSprache.Name = "cboSprache" + Me.cboSprache.Size = New System.Drawing.Size(89, 21) + Me.cboSprache.TabIndex = 8 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(44, 37) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(50, 13) + Me.Label12.TabIndex = 3 + Me.Label12.Text = "Sprache:" + ' + 'cbxPostponed + ' + Me.cbxPostponed._allowedValuesFreiText = Nothing + Me.cbxPostponed._allowFreiText = False + Me.cbxPostponed._value = "" + Me.cbxPostponed.FormattingEnabled = True + Me.cbxPostponed.Location = New System.Drawing.Point(915, 158) + Me.cbxPostponed.Name = "cbxPostponed" + Me.cbxPostponed.Size = New System.Drawing.Size(48, 21) + Me.cbxPostponed.TabIndex = 36 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(587, 163) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(239, 13) + Me.Label7.TabIndex = 35 + Me.Label7.Text = "aufgeschobene VAT Meldung und Zahlung (UK):" + ' + 'txtZahlungsaufschung + ' + Me.txtZahlungsaufschung._DateTimeOnly = False + Me.txtZahlungsaufschung._numbersOnly = False + Me.txtZahlungsaufschung._numbersOnlyKommastellen = "" + Me.txtZahlungsaufschung._numbersOnlyTrennzeichen = True + Me.txtZahlungsaufschung._Prozent = False + Me.txtZahlungsaufschung._ShortDateNew = False + Me.txtZahlungsaufschung._ShortDateOnly = False + Me.txtZahlungsaufschung._TimeOnly = False + Me.txtZahlungsaufschung._TimeOnly_Seconds = False + Me.txtZahlungsaufschung._value = Nothing + Me.txtZahlungsaufschung._Waehrung = False + Me.txtZahlungsaufschung._WaehrungZeichen = True + Me.txtZahlungsaufschung.Enabled = False + Me.txtZahlungsaufschung.ForeColor = System.Drawing.Color.Black + Me.txtZahlungsaufschung.Location = New System.Drawing.Point(363, 160) + Me.txtZahlungsaufschung.MaxLineLength = -1 + Me.txtZahlungsaufschung.MaxLines_Warning = "" + Me.txtZahlungsaufschung.MaxLines_Warning_Label = Nothing + Me.txtZahlungsaufschung.Name = "txtZahlungsaufschung" + Me.txtZahlungsaufschung.Size = New System.Drawing.Size(201, 20) + Me.txtZahlungsaufschung.TabIndex = 34 + ' + 'cbxZahlungsaufschub + ' + Me.cbxZahlungsaufschub.AutoSize = True + Me.cbxZahlungsaufschub.Location = New System.Drawing.Point(173, 162) + Me.cbxZahlungsaufschub.Name = "cbxZahlungsaufschub" + Me.cbxZahlungsaufschub.Size = New System.Drawing.Size(148, 17) + Me.cbxZahlungsaufschub.TabIndex = 33 + Me.cbxZahlungsaufschub.Text = "Zahlungsaufschub / DDA" + Me.cbxZahlungsaufschub.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(170, 99) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(45, 13) + Me.Label2.TabIndex = 32 + Me.Label2.Text = "VAT-Nr:" + ' + 'usrcntlVollmacht_GB_indirekt + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.WhiteSmoke + Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.cbxPostponed) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.txtZahlungsaufschung) + Me.Controls.Add(Me.cbxZahlungsaufschub) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.cboSprache) + Me.Controls.Add(Me.btnDown) + Me.Controls.Add(Me.btnUp) + Me.Controls.Add(Me.btnDel) + Me.Controls.Add(Me.pic) + Me.Controls.Add(Me.txtAEO) + Me.Controls.Add(Me.Label11) + Me.Controls.Add(Me.btn) + Me.Controls.Add(Me.txtEmail) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.txtFax) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.txtTel) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.txtEori) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.txtUid) + Me.Controls.Add(Me.txtAdresse2) + Me.Controls.Add(Me.txtAdresse1) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtFirma) + Me.Controls.Add(Me.lbl) + Me.Controls.Add(Me.lblVollmachtDE) + Me.Name = "usrcntlVollmacht_GB_indirekt" + Me.Size = New System.Drawing.Size(1000, 193) + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents lblVollmachtDE As System.Windows.Forms.Label + Friend WithEvents lbl As System.Windows.Forms.Label + Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtEori As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents btn As System.Windows.Forms.Button + Friend WithEvents txtAEO As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents pic As System.Windows.Forms.PictureBox + Friend WithEvents btnDown As System.Windows.Forms.Button + Friend WithEvents btnUp As System.Windows.Forms.Button + Friend WithEvents btnDel As System.Windows.Forms.Button + Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents cbxPostponed As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label7 As Label + Friend WithEvents txtZahlungsaufschung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cbxZahlungsaufschub As CheckBox + Friend WithEvents Label2 As Label +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.vb new file mode 100644 index 00000000..124aeede --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.vb @@ -0,0 +1,101 @@ +Public Class usrcntlVollmacht_GB_indirekt + Implements FormualrInterface + + Public Event CHANGED(name, value) + Public Event KDNR_CHANGED(kdnr) + Public Event DELETE(c As Control) + Public Event MOVE_UP(c As Control) + Public Event MOVE_DOWN(c As Control) + + Public KdNR As Integer = -1 + Public Sub ChangeKDNr(kdnr As Integer) _ + Implements FormualrInterface.ChangeKDNr + initKdNR(kdnr) + End Sub + + 'Dim KdNR As Integer = -1 + Sub initControlsHandler() + For Each c In Me.Controls + Select Case c.GetType.ToString + Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString + AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub() + RaiseEvent CHANGED(c.name, c.text) + End Sub + Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString + AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub() + RaiseEvent CHANGED(c.name, c._value) + End Sub + Case GetType(TextBox).ToString + AddHandler DirectCast(c, TextBox).Leave, Sub() + RaiseEvent CHANGED(c.name, c.text) + End Sub + End Select + Next + End Sub + + Private Sub cbxEinmaligeVollmacht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxZahlungsaufschub.CheckedChanged + txtZahlungsaufschung.Enabled = sender.checked + + End Sub + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + Dim kdsrch As New SDL.frmKundenSuche + 'Panel1.Enabled = False + If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then + If IsNumeric(kdsrch.kundenNrSearch.Text) Then + initKdNR(kdsrch.kundenNrSearch.Text) + RaiseEvent KDNR_CHANGED(KdNR) + End If + End If + ' Panel1.Enabled = True + End Sub + + Public Sub initKdNR(KdNR) + Me.KdNR = KdNR + Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR) + Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR) + + txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "") + txtAdresse1.Text = If(ADRESSE.Straße, "") + txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim + txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "") + txtEori.Text = If(KUNDE.EORITIN, "") + txtTel.Text = If(ADRESSE.Telefon, "") + txtFax.Text = If(ADRESSE.Telefax, "") + txtEmail.Text = If(ADRESSE.E_Mail, "") + ' txtAnsprechpartner.Text = If(ADRESSE.Ansprechpartner, "") + + End Sub + + + Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click + RaiseEvent DELETE(Me) + End Sub + + Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click + RaiseEvent MOVE_UP(Me) + End Sub + + Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click + RaiseEvent MOVE_DOWN(Me) + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) + + End Sub + + Private Sub usrcntlVollmacht_AT_Load(sender As Object, e As EventArgs) Handles Me.Load + initControlsHandler() + cboSprache.Items.Clear() + 'cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) + cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) + cbxPostponed.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "JA")) + cbxPostponed.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "NEIN")) + If KdNR > 0 Then initKdNR(KdNR) + End Sub + + Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click + FormularManagerNEU.genPDF(Me, True) + End Sub + + +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_VERAG_EXPORT.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_VERAG_EXPORT.Designer.vb index 3906c52e..00479d84 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_VERAG_EXPORT.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_VERAG_EXPORT.Designer.vb @@ -148,7 +148,7 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT ' 'btn ' - Me.btn.BackgroundImage = Global.SDL.My.Resources.search + Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.Location = New System.Drawing.Point(937, 34) @@ -159,12 +159,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT ' 'txtEinmalig_RgDat ' + Me.txtEinmalig_RgDat._DateTimeOnly = False Me.txtEinmalig_RgDat._numbersOnly = False + Me.txtEinmalig_RgDat._numbersOnlyKommastellen = "" + Me.txtEinmalig_RgDat._numbersOnlyTrennzeichen = True Me.txtEinmalig_RgDat._Prozent = False Me.txtEinmalig_RgDat._ShortDateNew = False + Me.txtEinmalig_RgDat._ShortDateOnly = False Me.txtEinmalig_RgDat._TimeOnly = False + Me.txtEinmalig_RgDat._TimeOnly_Seconds = False Me.txtEinmalig_RgDat._value = Nothing Me.txtEinmalig_RgDat._Waehrung = False + Me.txtEinmalig_RgDat._WaehrungZeichen = True Me.txtEinmalig_RgDat.Enabled = False Me.txtEinmalig_RgDat.ForeColor = System.Drawing.Color.Black Me.txtEinmalig_RgDat.Location = New System.Drawing.Point(653, 162) @@ -177,12 +183,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT ' 'txtEinmalig_RgNr ' + Me.txtEinmalig_RgNr._DateTimeOnly = False Me.txtEinmalig_RgNr._numbersOnly = False + Me.txtEinmalig_RgNr._numbersOnlyKommastellen = "" + Me.txtEinmalig_RgNr._numbersOnlyTrennzeichen = True Me.txtEinmalig_RgNr._Prozent = False Me.txtEinmalig_RgNr._ShortDateNew = False + Me.txtEinmalig_RgNr._ShortDateOnly = False Me.txtEinmalig_RgNr._TimeOnly = False + Me.txtEinmalig_RgNr._TimeOnly_Seconds = False Me.txtEinmalig_RgNr._value = Nothing Me.txtEinmalig_RgNr._Waehrung = False + Me.txtEinmalig_RgNr._WaehrungZeichen = True Me.txtEinmalig_RgNr.Enabled = False Me.txtEinmalig_RgNr.ForeColor = System.Drawing.Color.Black Me.txtEinmalig_RgNr.Location = New System.Drawing.Point(363, 162) @@ -195,12 +207,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT ' 'txtEmail ' + Me.txtEmail._DateTimeOnly = False Me.txtEmail._numbersOnly = False + Me.txtEmail._numbersOnlyKommastellen = "" + Me.txtEmail._numbersOnlyTrennzeichen = True Me.txtEmail._Prozent = False Me.txtEmail._ShortDateNew = False + Me.txtEmail._ShortDateOnly = False Me.txtEmail._TimeOnly = False + Me.txtEmail._TimeOnly_Seconds = False Me.txtEmail._value = Nothing Me.txtEmail._Waehrung = False + Me.txtEmail._WaehrungZeichen = True Me.txtEmail.ForeColor = System.Drawing.Color.Black Me.txtEmail.Location = New System.Drawing.Point(254, 136) Me.txtEmail.MaxLineLength = -1 @@ -212,12 +230,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT ' 'txtFax ' + Me.txtFax._DateTimeOnly = False Me.txtFax._numbersOnly = False + Me.txtFax._numbersOnlyKommastellen = "" + Me.txtFax._numbersOnlyTrennzeichen = True Me.txtFax._Prozent = False Me.txtFax._ShortDateNew = False + Me.txtFax._ShortDateOnly = False Me.txtFax._TimeOnly = False + Me.txtFax._TimeOnly_Seconds = False Me.txtFax._value = Nothing Me.txtFax._Waehrung = False + Me.txtFax._WaehrungZeichen = True Me.txtFax.ForeColor = System.Drawing.Color.Black Me.txtFax.Location = New System.Drawing.Point(653, 117) Me.txtFax.MaxLineLength = -1 @@ -229,12 +253,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT ' 'txtTel ' + Me.txtTel._DateTimeOnly = False Me.txtTel._numbersOnly = False + Me.txtTel._numbersOnlyKommastellen = "" + Me.txtTel._numbersOnlyTrennzeichen = True Me.txtTel._Prozent = False Me.txtTel._ShortDateNew = False + Me.txtTel._ShortDateOnly = False Me.txtTel._TimeOnly = False + Me.txtTel._TimeOnly_Seconds = False Me.txtTel._value = Nothing Me.txtTel._Waehrung = False + Me.txtTel._WaehrungZeichen = True Me.txtTel.ForeColor = System.Drawing.Color.Black Me.txtTel.Location = New System.Drawing.Point(254, 117) Me.txtTel.MaxLineLength = -1 @@ -246,12 +276,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT ' 'txtEori ' + Me.txtEori._DateTimeOnly = False Me.txtEori._numbersOnly = False + Me.txtEori._numbersOnlyKommastellen = "" + Me.txtEori._numbersOnlyTrennzeichen = True Me.txtEori._Prozent = False Me.txtEori._ShortDateNew = False + Me.txtEori._ShortDateOnly = False Me.txtEori._TimeOnly = False + Me.txtEori._TimeOnly_Seconds = False Me.txtEori._value = Nothing Me.txtEori._Waehrung = False + Me.txtEori._WaehrungZeichen = True Me.txtEori.ForeColor = System.Drawing.Color.Black Me.txtEori.Location = New System.Drawing.Point(653, 98) Me.txtEori.MaxLineLength = -1 @@ -263,13 +299,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT ' 'txtUid ' + Me.txtUid._DateTimeOnly = False Me.txtUid._numbersOnly = False + Me.txtUid._numbersOnlyKommastellen = "" + Me.txtUid._numbersOnlyTrennzeichen = True Me.txtUid._Prozent = False Me.txtUid._ShortDateNew = False - + Me.txtUid._ShortDateOnly = False Me.txtUid._TimeOnly = False + Me.txtUid._TimeOnly_Seconds = False Me.txtUid._value = Nothing Me.txtUid._Waehrung = False + Me.txtUid._WaehrungZeichen = True Me.txtUid.ForeColor = System.Drawing.Color.Black Me.txtUid.Location = New System.Drawing.Point(254, 98) Me.txtUid.MaxLineLength = -1 @@ -281,12 +322,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT ' 'txtAdresse2 ' + Me.txtAdresse2._DateTimeOnly = False Me.txtAdresse2._numbersOnly = False + Me.txtAdresse2._numbersOnlyKommastellen = "" + Me.txtAdresse2._numbersOnlyTrennzeichen = True Me.txtAdresse2._Prozent = False Me.txtAdresse2._ShortDateNew = False + Me.txtAdresse2._ShortDateOnly = False Me.txtAdresse2._TimeOnly = False + Me.txtAdresse2._TimeOnly_Seconds = False Me.txtAdresse2._value = Nothing Me.txtAdresse2._Waehrung = False + Me.txtAdresse2._WaehrungZeichen = True Me.txtAdresse2.ForeColor = System.Drawing.Color.Black Me.txtAdresse2.Location = New System.Drawing.Point(254, 72) Me.txtAdresse2.MaxLineLength = -1 @@ -298,12 +345,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT ' 'txtAdresse1 ' + Me.txtAdresse1._DateTimeOnly = False Me.txtAdresse1._numbersOnly = False + Me.txtAdresse1._numbersOnlyKommastellen = "" + Me.txtAdresse1._numbersOnlyTrennzeichen = True Me.txtAdresse1._Prozent = False Me.txtAdresse1._ShortDateNew = False + Me.txtAdresse1._ShortDateOnly = False Me.txtAdresse1._TimeOnly = False + Me.txtAdresse1._TimeOnly_Seconds = False Me.txtAdresse1._value = Nothing Me.txtAdresse1._Waehrung = False + Me.txtAdresse1._WaehrungZeichen = True Me.txtAdresse1.ForeColor = System.Drawing.Color.Black Me.txtAdresse1.Location = New System.Drawing.Point(254, 53) Me.txtAdresse1.MaxLineLength = -1 @@ -315,12 +368,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT ' 'txtFirma ' + Me.txtFirma._DateTimeOnly = False Me.txtFirma._numbersOnly = False + Me.txtFirma._numbersOnlyKommastellen = "" + Me.txtFirma._numbersOnlyTrennzeichen = True Me.txtFirma._Prozent = False Me.txtFirma._ShortDateNew = False + Me.txtFirma._ShortDateOnly = False Me.txtFirma._TimeOnly = False + Me.txtFirma._TimeOnly_Seconds = False Me.txtFirma._value = Nothing Me.txtFirma._Waehrung = False + Me.txtFirma._WaehrungZeichen = True Me.txtFirma.ForeColor = System.Drawing.Color.Black Me.txtFirma.Location = New System.Drawing.Point(254, 34) Me.txtFirma.MaxLineLength = -1 @@ -332,12 +391,18 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT ' 'txtAEO ' + Me.txtAEO._DateTimeOnly = False Me.txtAEO._numbersOnly = False + Me.txtAEO._numbersOnlyKommastellen = "" + Me.txtAEO._numbersOnlyTrennzeichen = True Me.txtAEO._Prozent = False Me.txtAEO._ShortDateNew = False + Me.txtAEO._ShortDateOnly = False Me.txtAEO._TimeOnly = False + Me.txtAEO._TimeOnly_Seconds = False Me.txtAEO._value = Nothing Me.txtAEO._Waehrung = False + Me.txtAEO._WaehrungZeichen = True Me.txtAEO.ForeColor = System.Drawing.Color.Black Me.txtAEO.Location = New System.Drawing.Point(653, 136) Me.txtAEO.MaxLineLength = -1 @@ -358,7 +423,7 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT ' 'pic ' - Me.pic.BackgroundImage = Global.SDL.My.Resources.pdf + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.pic.Cursor = System.Windows.Forms.Cursors.Hand Me.pic.Location = New System.Drawing.Point(5, 5) @@ -370,7 +435,7 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT 'btnDown ' Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnDown.BackgroundImage = Global.SDL.My.Resources.pfeil_unten + Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDown.Location = New System.Drawing.Point(976, 42) @@ -382,7 +447,7 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT 'btnUp ' Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnUp.BackgroundImage = Global.SDL.My.Resources.pfeil_oben + Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnUp.Location = New System.Drawing.Point(976, 22) @@ -394,7 +459,7 @@ Partial Class usrcntlVollmacht_VERAG_EXPORT 'btnDel ' Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnDel.BackgroundImage = Global.SDL.My.Resources.del + Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDel.Location = New System.Drawing.Point(976, -1) diff --git a/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb b/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb index e69ef844..c21fc7d9 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb @@ -245,10 +245,12 @@ Partial Class frmFormulare Me.txtEmail._DateTimeOnly = False Me.txtEmail._numbersOnly = False Me.txtEmail._numbersOnlyKommastellen = "" + Me.txtEmail._numbersOnlyTrennzeichen = True Me.txtEmail._Prozent = False Me.txtEmail._ShortDateNew = False Me.txtEmail._ShortDateOnly = False Me.txtEmail._TimeOnly = False + Me.txtEmail._TimeOnly_Seconds = False Me.txtEmail._value = Nothing Me.txtEmail._Waehrung = False Me.txtEmail._WaehrungZeichen = True diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 05ad2100..c1b813fd 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -261,6 +261,8 @@ Public Class frmFormulare MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht)) MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV)) MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht Import/Export", FormularManagerArten.GB_Vollmacht_IE)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht indirekt", FormularManagerArten.GB_Vollmacht_indirekt)) MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Export Vollmacht", FormularManagerArten.VERAG_EXPORT)) MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Export Vollmacht", FormularManagerArten.ATILLA_EXPORT)) @@ -428,6 +430,32 @@ Public Class frmFormulare If cboTextkonserve._value = "" Then cboTextkonserve._value = "Neukunde Fiskal AT" If cboTextKonserveSprache._value = "" Then cboTextKonserveSprache._value = "DE" + MyFlowLayoutPanel1.Controls.Add(c) + End If + Case FormularManagerArten.GB_Vollmacht_IE + Dim c As New usrcntlVollmacht_GB_IE + If ControlExists_addOK(c.GetType.ToString) Then + c.Width = MyFlowLayoutPanel1.Width - 6 + c.KdNR = KdNr + AddHandler c.CHANGED, AddressOf ValueChanged + AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED + AddHandler c.DELETE, AddressOf ControlDELETE + AddHandler c.MOVE_UP, AddressOf ControlMoveUp + AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown + + MyFlowLayoutPanel1.Controls.Add(c) + End If + Case FormularManagerArten.GB_Vollmacht_indirekt + Dim c As New usrcntlVollmacht_GB_indirekt + If ControlExists_addOK(c.GetType.ToString) Then + c.Width = MyFlowLayoutPanel1.Width - 6 + c.KdNR = KdNr + AddHandler c.CHANGED, AddressOf ValueChanged + AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED + AddHandler c.DELETE, AddressOf ControlDELETE + AddHandler c.MOVE_UP, AddressOf ControlMoveUp + AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown + MyFlowLayoutPanel1.Controls.Add(c) End If Case FormularManagerArten.ATILLA_EXPORT @@ -1279,6 +1307,10 @@ Public Class FormularManagerNEU retStr = FormularManagerNEU.VM_AT_EV(c) Case GetType(usrcntlVollmacht_AT_Fiskal).ToString retStr = FormularManagerNEU.VM_AT_Fiskal(c) + Case GetType(usrcntlVollmacht_GB_IE).ToString + retStr = FormularManagerNEU.VM_VERAG_GB_IE(c) + Case GetType(usrcntlVollmacht_GB_indirekt).ToString + retStr = FormularManagerNEU.VM_VERAG_GB_indirect(c) Case GetType(usrcntlVollmacht_ATILLA_EXPORT).ToString retStr = FormularManagerNEU.VM_ATILLA_EXPORT(c) Case GetType(usrcntlVollmacht_VERAG_EXPORT).ToString @@ -3338,6 +3370,119 @@ Public Class FormularManagerNEU Return "" End Function + + Shared Function VM_VERAG_GB_IE(usrCntl As usrcntlVollmacht_GB_IE) As String + 'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + + Dim add As Integer = -23 + + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87 + add, 71, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 133, 87 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99 + add, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 99 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + 'If usrCntl.cbxEinmaligeVollmacht.Checked Then + 'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text) + ' End If + If usrCntl.cbxZahlungsaufschub.Checked Then + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsaufschung.Text, 55, 109 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + End If + + If usrCntl.cbxPostponed._value = "JA" Then + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 70, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + Else + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 86, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + End If + + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "VERAG", "UNISPED" + Select Case usrCntl.cboSprache._value + Case "EN" + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_IE", listTowrite) + Case Else + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_IE", listTowrite) + End Select + 'Case Else + + 'Select Case usrCntl.cboSprache._value + ' Case "EN" + ' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_IE", listTowrite) + ' Case Else + ' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_IE", listTowrite) + 'End Select + End Select + + + + Return "" + End Function + + Shared Function VM_VERAG_GB_indirect(usrCntl As usrcntlVollmacht_GB_indirekt) As String + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + + Dim add As Integer = -23 + + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87 + add, 71, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 133, 87 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99 + add, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 99 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + 'If usrCntl.cbxEinmaligeVollmacht.Checked Then + 'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text) + ' End If + If usrCntl.cbxZahlungsaufschub.Checked Then + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsaufschung.Text, 55, 109 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + End If + + If usrCntl.cbxPostponed._value = "JA" Then + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 70, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + Else + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 86, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + End If + + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "VERAG", "UNISPED" + Select Case usrCntl.cboSprache._value + Case "EN" + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_indirekt", listTowrite) + Case Else + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_indirekt", listTowrite) + End Select + 'Case Else + + 'Select Case usrCntl.cboSprache._value + ' Case "EN" + ' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_IE", listTowrite) + ' Case Else + ' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "GB_VM_IE", listTowrite) + 'End Select + End Select + + + + Return "" + End Function + + Shared Function Importaviso_VK(usrCntl As usrcntlVorauskasse) As String Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager @@ -5351,6 +5496,9 @@ Public Class FormularManagerArten Shared Property AT_Vollmacht_EV = "AT_Vollmacht_EV" Shared Property AT_Fiskal = "AT_Fiskal" + Shared Property GB_Vollmacht_IE = "GB_Vollmacht_IE" + Shared Property GB_Vollmacht_indirekt = "GB_Vollmacht_indirekt" + Shared Property VERAG_EXPORT = "VERAG_EXPORT" Shared Property ATILLA_EXPORT = "ATILLA_EXPORT" diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 3fd8eee6..e720e858 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -554,6 +554,18 @@ UserControl + + usrcntlVollmacht_GB_indirekt.vb + + + UserControl + + + usrcntlVollmacht_GB_IE.vb + + + UserControl + usrCntlZollbeschau.vb @@ -2805,6 +2817,12 @@ usrcntlVollmacht_DE_indirekt.vb + + usrcntlVollmacht_GB_indirekt.vb + + + usrcntlVollmacht_GB_IE.vb + usrCntlZollbeschau.vb From 6cc214083d24bf04d83cb49582d7b0f8fc237a60 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 28 Feb 2023 15:00:45 +0100 Subject: [PATCH 03/11] POS --- SDL/Classes/cRKSV_POS.vb | 146 ++++++ SDL/SDL.vbproj | 10 + SDL/kassenbuch/POSTerminal.Designer.vb | 582 +++++++++++++++++++++++ SDL/kassenbuch/POSTerminal.resx | 120 +++++ SDL/kassenbuch/POSTerminal.vb | 359 ++++++++++++++ SDL/kassenbuch/frmKassenbuch.Designer.vb | 16 + SDL/kassenbuch/frmKassenbuch.vb | 11 + 7 files changed, 1244 insertions(+) create mode 100644 SDL/Classes/cRKSV_POS.vb create mode 100644 SDL/kassenbuch/POSTerminal.Designer.vb create mode 100644 SDL/kassenbuch/POSTerminal.resx create mode 100644 SDL/kassenbuch/POSTerminal.vb diff --git a/SDL/Classes/cRKSV_POS.vb b/SDL/Classes/cRKSV_POS.vb new file mode 100644 index 00000000..55ce391d --- /dev/null +++ b/SDL/Classes/cRKSV_POS.vb @@ -0,0 +1,146 @@ + +Imports System.Data.SqlClient +Imports System.Reflection + + +Public Class cRKSV_POS + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Property pos_Id As Integer + Property pos_aktiv As Object = Nothing + Property pos_kasse As Object = Nothing + Property pos_kassennr As Object = Nothing + Property pos_com As Object = Nothing + Property pos_baudrate As Object = Nothing + Property pos_comspeed As Object = Nothing + Property pos_comstop As Object = Nothing + Property pos_ip As Object = Nothing + Property pos_port As Object = Nothing + Property pos_typ As Object = Nothing + Property pos_lizenz As Object = Nothing + Property pos_kassendruck As Object = Nothing + Property pos_demoausdruck As Object = Nothing + Property pos_demodummyausdruck As Object = Nothing + Property pos_pin As Object = Nothing + Property pos_händerbeleg_drucken As Object = Nothing + Property pos_storno As Object = Nothing + Property pos_wartezeit As Object = Nothing + + Public hasEntry = False + + + Public Sub New(pos_Id) + Me.pos_Id = pos_Id + 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_aktiv", pos_aktiv)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kasse", pos_kasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kassennr", pos_kassennr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_com", pos_com)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_baudrate", pos_baudrate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_comspeed", pos_comspeed)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_comstop", pos_comstop)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_ip", pos_ip)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_port", pos_port)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_typ", pos_typ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_lizenz", pos_lizenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kassendruck", pos_kassendruck)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_demoausdruck", pos_demoausdruck)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_demodummyausdruck", pos_demodummyausdruck)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_apos_pinktiv", pos_pin)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_händerbeleg_drucken", pos_händerbeleg_drucken)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_storno", pos_storno)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_wartezeit", pos_wartezeit)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblRKSV_POS WHERE pos_Id=@pos_Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblRKSV_POS WHERE pos_Id=@pos_Id ", conn) + cmd.Parameters.AddWithValue("@pos_Id", pos_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblRKSV_POS] SET " & str & " WHERE pos_Id=@pos_Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblRKSV_POS (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + +End Class diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index e53ec12a..7c278d03 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -512,6 +512,7 @@ + @@ -578,6 +579,12 @@ Form + + POSTerminal.vb + + + Form + frmKundenBesonderheiten_Add.vb @@ -2835,6 +2842,9 @@ frmEssensbestellungen.vb + + POSTerminal.vb + frmKundenBesonderheiten_Add.vb diff --git a/SDL/kassenbuch/POSTerminal.Designer.vb b/SDL/kassenbuch/POSTerminal.Designer.vb new file mode 100644 index 00000000..8fe406f4 --- /dev/null +++ b/SDL/kassenbuch/POSTerminal.Designer.vb @@ -0,0 +1,582 @@ + _ +Partial Class POSTerminal + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.CheckBoxDummy = New System.Windows.Forms.CheckBox() + Me.CheckBoxAutodruck = New System.Windows.Forms.CheckBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.comboInstalledPrinters = New System.Windows.Forms.ComboBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.TextBox_BelegNr = New System.Windows.Forms.TextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.StornoBelegNr = New System.Windows.Forms.TextBox() + Me.TextBox_Aktiv = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.ComboBox_Typ = New System.Windows.Forms.ComboBox() + Me.Button_Haendlerbeleg_drucken = New System.Windows.Forms.Button() + Me.TextBox_Kassenbon = New System.Windows.Forms.TextBox() + Me.Button_Kundenbeleg_drucken = New System.Windows.Forms.Button() + Me.Button_Gutschrift = New System.Windows.Forms.Button() + Me.Button_Storno = New System.Windows.Forms.Button() + Me.Button_Tagesabschluss = New System.Windows.Forms.Button() + Me.Button_Diagnose = New System.Windows.Forms.Button() + Me.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() + Me.Label10 = New System.Windows.Forms.Label() + Me.TextBox_Drucktext = New System.Windows.Forms.TextBox() + Me.TextBox_ErgebnisText = New System.Windows.Forms.TextBox() + Me.TextBox_Ergebnis = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.Button_Autorisierung = New System.Windows.Forms.Button() + Me.TextBox_Betrag = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.TextBox_Lizenz = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.ComboBox_ComStop = New System.Windows.Forms.ComboBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.ComboBox_ComSpeed = New System.Windows.Forms.ComboBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.TextBox_Port = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.TextBox_IP = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.ComboBox_COM = New System.Windows.Forms.ComboBox() + Me.TextBox_KasseNr = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.lblKasse = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'CheckBoxDummy + ' + Me.CheckBoxDummy.AutoSize = True + Me.CheckBoxDummy.Location = New System.Drawing.Point(669, 26) + Me.CheckBoxDummy.Name = "CheckBoxDummy" + Me.CheckBoxDummy.Size = New System.Drawing.Size(128, 17) + Me.CheckBoxDummy.TabIndex = 90 + Me.CheckBoxDummy.Text = "Dummy-Kopf drucken" + Me.CheckBoxDummy.UseVisualStyleBackColor = True + ' + 'CheckBoxAutodruck + ' + Me.CheckBoxAutodruck.AutoSize = True + Me.CheckBoxAutodruck.Location = New System.Drawing.Point(582, 27) + Me.CheckBoxAutodruck.Name = "CheckBoxAutodruck" + Me.CheckBoxAutodruck.Size = New System.Drawing.Size(75, 17) + Me.CheckBoxAutodruck.TabIndex = 89 + Me.CheckBoxAutodruck.Text = "Autodruck" + Me.CheckBoxAutodruck.UseVisualStyleBackColor = True + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(246, 27) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(45, 13) + Me.Label15.TabIndex = 88 + Me.Label15.Text = "Drucker" + ' + 'comboInstalledPrinters + ' + Me.comboInstalledPrinters.FormattingEnabled = True + Me.comboInstalledPrinters.Location = New System.Drawing.Point(312, 24) + Me.comboInstalledPrinters.Name = "comboInstalledPrinters" + Me.comboInstalledPrinters.Size = New System.Drawing.Size(229, 21) + Me.comboInstalledPrinters.TabIndex = 87 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(11, 226) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(45, 13) + Me.Label12.TabIndex = 86 + Me.Label12.Text = "BelegNr" + ' + 'TextBox_BelegNr + ' + Me.TextBox_BelegNr.Location = New System.Drawing.Point(108, 223) + 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 = 85 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(587, 251) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(76, 13) + Me.Label14.TabIndex = 84 + Me.Label14.Text = "StornoBelegNr" + ' + 'StornoBelegNr + ' + Me.StornoBelegNr.Location = New System.Drawing.Point(669, 248) + Me.StornoBelegNr.Name = "StornoBelegNr" + Me.StornoBelegNr.Size = New System.Drawing.Size(78, 20) + Me.StornoBelegNr.TabIndex = 83 + ' + 'TextBox_Aktiv + ' + Me.TextBox_Aktiv.BackColor = System.Drawing.Color.Gray + Me.TextBox_Aktiv.Location = New System.Drawing.Point(14, 517) + Me.TextBox_Aktiv.Name = "TextBox_Aktiv" + Me.TextBox_Aktiv.Size = New System.Drawing.Size(123, 20) + Me.TextBox_Aktiv.TabIndex = 82 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(320, 121) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(25, 13) + Me.Label13.TabIndex = 81 + Me.Label13.Text = "Typ" + ' + 'ComboBox_Typ + ' + Me.ComboBox_Typ.FormattingEnabled = True + Me.ComboBox_Typ.Items.AddRange(New Object() {"0: ZVT Standard", "1: ICP mit Shutter", "2: ICT 220 alt", "3: ICP Zelos", "4: Clover", "5: CCV Base seriell", "10: SIX", "11: OPI", "12: myPOS", "13: TIM-Server"}) + Me.ComboBox_Typ.Location = New System.Drawing.Point(386, 117) + 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 = 80 + Me.ComboBox_Typ.Text = "0: ZVT Standard" + ' + 'Button_Haendlerbeleg_drucken + ' + Me.Button_Haendlerbeleg_drucken.Location = New System.Drawing.Point(314, 488) + Me.Button_Haendlerbeleg_drucken.Name = "Button_Haendlerbeleg_drucken" + Me.Button_Haendlerbeleg_drucken.Size = New System.Drawing.Size(122, 23) + Me.Button_Haendlerbeleg_drucken.TabIndex = 79 + Me.Button_Haendlerbeleg_drucken.Text = "Drucken" + Me.Button_Haendlerbeleg_drucken.UseVisualStyleBackColor = True + ' + 'TextBox_Kassenbon + ' + Me.TextBox_Kassenbon.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox_Kassenbon.Location = New System.Drawing.Point(581, 57) + 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.TabIndex = 78 + Me.TextBox_Kassenbon.Text = "Kassenbon" + ' + 'Button_Kundenbeleg_drucken + ' + Me.Button_Kundenbeleg_drucken.Location = New System.Drawing.Point(15, 488) + Me.Button_Kundenbeleg_drucken.Name = "Button_Kundenbeleg_drucken" + Me.Button_Kundenbeleg_drucken.Size = New System.Drawing.Size(122, 23) + Me.Button_Kundenbeleg_drucken.TabIndex = 77 + Me.Button_Kundenbeleg_drucken.Text = "Drucken" + Me.Button_Kundenbeleg_drucken.UseVisualStyleBackColor = True + ' + 'Button_Gutschrift + ' + Me.Button_Gutschrift.Location = New System.Drawing.Point(586, 327) + Me.Button_Gutschrift.Name = "Button_Gutschrift" + Me.Button_Gutschrift.Size = New System.Drawing.Size(163, 29) + Me.Button_Gutschrift.TabIndex = 76 + Me.Button_Gutschrift.Text = "4 = Gutschrift" + Me.Button_Gutschrift.UseVisualStyleBackColor = True + ' + 'Button_Storno + ' + Me.Button_Storno.Location = New System.Drawing.Point(586, 274) + Me.Button_Storno.Name = "Button_Storno" + Me.Button_Storno.Size = New System.Drawing.Size(163, 34) + Me.Button_Storno.TabIndex = 75 + Me.Button_Storno.Text = "3 = Storno" + Me.Button_Storno.UseVisualStyleBackColor = True + ' + 'Button_Tagesabschluss + ' + Me.Button_Tagesabschluss.Location = New System.Drawing.Point(585, 200) + Me.Button_Tagesabschluss.Name = "Button_Tagesabschluss" + Me.Button_Tagesabschluss.Size = New System.Drawing.Size(163, 34) + Me.Button_Tagesabschluss.TabIndex = 74 + Me.Button_Tagesabschluss.Text = "2 = Tagesabschluss" + Me.Button_Tagesabschluss.UseVisualStyleBackColor = True + ' + 'Button_Diagnose + ' + Me.Button_Diagnose.Location = New System.Drawing.Point(585, 150) + Me.Button_Diagnose.Name = "Button_Diagnose" + Me.Button_Diagnose.Size = New System.Drawing.Size(164, 33) + Me.Button_Diagnose.TabIndex = 73 + 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(585, 488) + Me.Button_Exit.Name = "Button_Exit" + Me.Button_Exit.Size = New System.Drawing.Size(162, 23) + Me.Button_Exit.TabIndex = 72 + 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(386, 88) + Me.CheckBox_Kassedruck.Name = "CheckBox_Kassedruck" + Me.CheckBox_Kassedruck.Size = New System.Drawing.Size(82, 17) + Me.CheckBox_Kassedruck.TabIndex = 71 + Me.CheckBox_Kassedruck.Text = "Kassedruck" + Me.CheckBox_Kassedruck.UseVisualStyleBackColor = True + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(311, 248) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(131, 13) + Me.Label11.TabIndex = 70 + Me.Label11.Text = "Drucktext2 (Händlerbeleg)" + ' + 'TextBox_Drucktext2 + ' + Me.TextBox_Drucktext2.Location = New System.Drawing.Point(314, 274) + 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.TabIndex = 69 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(12, 248) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(125, 13) + Me.Label10.TabIndex = 68 + Me.Label10.Text = "Drucktext (Kundenbeleg)" + ' + 'TextBox_Drucktext + ' + Me.TextBox_Drucktext.Location = New System.Drawing.Point(14, 273) + 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.TabIndex = 67 + ' + 'TextBox_ErgebnisText + ' + Me.TextBox_ErgebnisText.Location = New System.Drawing.Point(166, 200) + 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 = 66 + ' + 'TextBox_Ergebnis + ' + Me.TextBox_Ergebnis.Location = New System.Drawing.Point(108, 200) + 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 = 65 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(12, 203) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(48, 13) + Me.Label9.TabIndex = 64 + Me.Label9.Text = "Ergebnis" + ' + 'Button_Autorisierung + ' + Me.Button_Autorisierung.Location = New System.Drawing.Point(166, 164) + Me.Button_Autorisierung.Name = "Button_Autorisierung" + Me.Button_Autorisierung.Size = New System.Drawing.Size(199, 24) + Me.Button_Autorisierung.TabIndex = 49 + Me.Button_Autorisierung.Text = "Autorisierung starten" + Me.Button_Autorisierung.UseVisualStyleBackColor = True + ' + 'TextBox_Betrag + ' + Me.TextBox_Betrag.Location = New System.Drawing.Point(106, 167) + 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 = 48 + Me.TextBox_Betrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(12, 170) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(38, 13) + Me.Label8.TabIndex = 63 + Me.Label8.Text = "Betrag" + ' + 'TextBox_Lizenz + ' + Me.TextBox_Lizenz.Location = New System.Drawing.Point(106, 114) + Me.TextBox_Lizenz.Name = "TextBox_Lizenz" + Me.TextBox_Lizenz.Size = New System.Drawing.Size(190, 20) + Me.TextBox_Lizenz.TabIndex = 62 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(12, 117) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(37, 13) + Me.Label7.TabIndex = 61 + Me.Label7.Text = "Lizenz" + ' + 'ComboBox_ComStop + ' + Me.ComboBox_ComStop.FormattingEnabled = True + Me.ComboBox_ComStop.Items.AddRange(New Object() {"1", "2"}) + Me.ComboBox_ComStop.Location = New System.Drawing.Point(314, 85) + Me.ComboBox_ComStop.Name = "ComboBox_ComStop" + Me.ComboBox_ComStop.Size = New System.Drawing.Size(38, 21) + Me.ComboBox_ComStop.TabIndex = 60 + Me.ComboBox_ComStop.Text = "1" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(246, 88) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(50, 13) + Me.Label6.TabIndex = 59 + Me.Label6.Text = "ComStop" + ' + 'ComboBox_ComSpeed + ' + Me.ComboBox_ComSpeed.FormattingEnabled = True + Me.ComboBox_ComSpeed.Items.AddRange(New Object() {"9600", "115000"}) + Me.ComboBox_ComSpeed.Location = New System.Drawing.Point(106, 84) + Me.ComboBox_ComSpeed.Name = "ComboBox_ComSpeed" + Me.ComboBox_ComSpeed.Size = New System.Drawing.Size(121, 21) + Me.ComboBox_ComSpeed.TabIndex = 58 + Me.ComboBox_ComSpeed.Text = "9600" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(12, 88) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(59, 13) + Me.Label5.TabIndex = 57 + Me.Label5.Text = "ComSpeed" + ' + 'TextBox_Port + ' + Me.TextBox_Port.Location = New System.Drawing.Point(483, 58) + 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 = 56 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(451, 61) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(26, 13) + Me.Label4.TabIndex = 55 + Me.Label4.Text = "Port" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(246, 61) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(17, 13) + Me.Label3.TabIndex = 54 + Me.Label3.Text = "IP" + ' + 'TextBox_IP + ' + Me.TextBox_IP.Location = New System.Drawing.Point(314, 58) + 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 = 53 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(12, 60) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(31, 13) + Me.Label2.TabIndex = 52 + Me.Label2.Text = "COM" + ' + '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(106, 57) + Me.ComboBox_COM.Name = "ComboBox_COM" + Me.ComboBox_COM.Size = New System.Drawing.Size(121, 21) + Me.ComboBox_COM.TabIndex = 51 + Me.ComboBox_COM.Text = "LAN" + ' + 'TextBox_KasseNr + ' + Me.TextBox_KasseNr.Location = New System.Drawing.Point(106, 31) + 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 = 50 + Me.TextBox_KasseNr.Text = "1" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 34) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(47, 13) + Me.Label1.TabIndex = 47 + Me.Label1.Text = "KasseNr" + ' + 'lblKasse + ' + Me.lblKasse.AutoSize = True + Me.lblKasse.Location = New System.Drawing.Point(13, 9) + Me.lblKasse.Name = "lblKasse" + Me.lblKasse.Size = New System.Drawing.Size(51, 13) + Me.lblKasse.TabIndex = 91 + Me.lblKasse.Text = "Kasse 01" + ' + 'POSTerminal + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(962, 550) + Me.Controls.Add(Me.lblKasse) + 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.Button_Exit) + 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.Label1) + Me.Name = "POSTerminal" + Me.Text = "POSTerminal" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents CheckBoxDummy As CheckBox + Friend WithEvents CheckBoxAutodruck As CheckBox + Friend WithEvents Label15 As Label + Friend WithEvents comboInstalledPrinters As ComboBox + Friend WithEvents Label12 As Label + Friend WithEvents TextBox_BelegNr As TextBox + Friend WithEvents Label14 As Label + Friend WithEvents StornoBelegNr As TextBox + Friend WithEvents TextBox_Aktiv As TextBox + Friend WithEvents Label13 As Label + Friend WithEvents ComboBox_Typ As ComboBox + Friend WithEvents Button_Haendlerbeleg_drucken As Button + Friend WithEvents TextBox_Kassenbon As TextBox + Friend WithEvents Button_Kundenbeleg_drucken As Button + Friend WithEvents Button_Gutschrift As Button + Friend WithEvents Button_Storno As Button + Friend WithEvents Button_Tagesabschluss As Button + Friend WithEvents Button_Diagnose As Button + Friend WithEvents Button_Exit As Button + Friend WithEvents CheckBox_Kassedruck As CheckBox + Friend WithEvents Label11 As Label + Friend WithEvents TextBox_Drucktext2 As TextBox + Friend WithEvents Label10 As Label + Friend WithEvents TextBox_Drucktext As TextBox + Friend WithEvents TextBox_ErgebnisText As TextBox + Friend WithEvents TextBox_Ergebnis As TextBox + Friend WithEvents Label9 As Label + Friend WithEvents Button_Autorisierung As Button + Friend WithEvents TextBox_Betrag As TextBox + Friend WithEvents Label8 As Label + Friend WithEvents TextBox_Lizenz As TextBox + Friend WithEvents Label7 As Label + Friend WithEvents ComboBox_ComStop As ComboBox + Friend WithEvents Label6 As Label + Friend WithEvents ComboBox_ComSpeed As ComboBox + Friend WithEvents Label5 As Label + Friend WithEvents TextBox_Port As TextBox + Friend WithEvents Label4 As Label + Friend WithEvents Label3 As Label + Friend WithEvents TextBox_IP As TextBox + Friend WithEvents Label2 As Label + Friend WithEvents ComboBox_COM As ComboBox + Friend WithEvents TextBox_KasseNr As TextBox + Friend WithEvents Label1 As Label + Friend WithEvents lblKasse As Label +End Class diff --git a/SDL/kassenbuch/POSTerminal.resx b/SDL/kassenbuch/POSTerminal.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/kassenbuch/POSTerminal.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/kassenbuch/POSTerminal.vb b/SDL/kassenbuch/POSTerminal.vb new file mode 100644 index 00000000..a11c0ebe --- /dev/null +++ b/SDL/kassenbuch/POSTerminal.vb @@ -0,0 +1,359 @@ +Imports Microsoft.Win32 + +Public Class POSTerminal + + ' Erstellt durch Jan Groetzner, Groetzner Unternehmensberatung, Seevetal + ' Version: 02.03.2020 + ' Kontakt: easyzvt@groetzner.de + + ' Dieser Quellcode dient als Beispielimplementierung zur Einbindung von EasyZVT in die eigene Kassenanwendung. + ' Der Code und auch Teile davon dürfen frei kopiert und in der Kassenanwendung verwendet werden + + Private EasyZVT_Worker As System.ComponentModel.BackgroundWorker = New System.ComponentModel.BackgroundWorker() + Private Funktion As Integer + Private Betrag As Integer = 0 + + Private WithEvents PDoc As Printing.PrintDocument + + Private Sub EasyZVT_DemoApp_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.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 + AddHandler EasyZVT_Worker.DoWork, New System.ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async) + AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted) + + Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + TextBox_KasseNr.Text = ZVTKey.GetValue("KasseNr", "1") + ComboBox_COM.Text = ZVTKey.GetValue("COM", "LAN") + TextBox_IP.Text = ZVTKey.GetValue("IP", "192.168.86.122") + TextBox_Port.Text = ZVTKey.GetValue("Port", "20007") + ComboBox_ComSpeed.Text = ZVTKey.GetValue("ComSpeed", "9600") + ComboBox_ComStop.Text = ZVTKey.GetValue("ComStop", "1") + TextBox_Lizenz.Text = ZVTKey.GetValue("Lizenz", "") + If ZVTKey.GetValue("Kassedruck", 0) = 1 Then + CheckBox_Kassedruck.Checked = True + Else + CheckBox_Kassedruck.Checked = False + End If + ComboBox_Typ.SelectedIndex = ComboBox_Typ.FindString(ZVTKey.GetValue("Typ", 0).ToString) + PopulateInstalledPrintersCombo() + comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", "")) + If ZVTKey.GetValue("DemoAutodruck", 0) = 0 Then + CheckBoxAutodruck.Checked = False + Else + CheckBoxAutodruck.Checked = True + End If + If ZVTKey.GetValue("DemoDummydruck", 1) = 0 Then + CheckBoxDummy.Checked = False + Else + CheckBoxDummy.Checked = True + End If + ZVTKey.Close() + + Catch ex As Exception + MessageBox.Show("Fehler beim Einlesen der Standardwerte: " & ex.Message) + End Try + End Sub + + + Private Sub SetRegistryParameter() + 'Funktion holt Werte direkt aus der Oberfläche (TextBox_...) und schreibt diese in die Registry als Eingabeparameter für EasyZVT. + 'Im wahren Leben stehen diese Werte in Datenbankeinträgen der Stammdatenverwaltung in der Hauptanwendung + + Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + Dim TypSelected As String + Dim Typ As Long + + Try + ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord) + TypSelected = Strings.Left(ComboBox_Typ.Text, 2).Replace(":", "") + Typ = TypSelected + ZVTKey.SetValue("Typ", Typ, RegistryValueKind.DWord) + ZVTKey.SetValue("KasseNr", TextBox_KasseNr.Text, RegistryValueKind.String) + ZVTKey.SetValue("COM", ComboBox_COM.Text, RegistryValueKind.String) + ZVTKey.SetValue("IP", TextBox_IP.Text, RegistryValueKind.String) + ZVTKey.SetValue("Port", CInt(TextBox_Port.Text), RegistryValueKind.DWord) + ZVTKey.SetValue("ComSpeed", CInt(ComboBox_ComSpeed.Text), RegistryValueKind.DWord) + ZVTKey.SetValue("ComStop", CInt(ComboBox_ComStop.Text), RegistryValueKind.DWord) + ZVTKey.SetValue("Lizenz", TextBox_Lizenz.Text, RegistryValueKind.String) + If Funktion = 0 Or Funktion = 4 Then + Betrag = CInt("0" & TextBox_Betrag.Text) + ZVTKey.SetValue("Betrag", Betrag, RegistryValueKind.DWord) + End If + If Funktion = 3 Then + ZVTKey.SetValue("StornoBetrag", CInt("0" & TextBox_Betrag.Text), RegistryValueKind.DWord) + ZVTKey.SetValue("StornoBelegNr", CInt("0" & StornoBelegNr.Text), RegistryValueKind.DWord) + End If + If CheckBox_Kassedruck.Checked Then + ZVTKey.SetValue("Kassedruck", 1, RegistryValueKind.DWord) + Else + ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord) + End If + ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Zur Sicherheit, falls EasyZVT gar nicht installiert ist oder nicht gestartet werden kann + ZVTKey.SetValue("ErgebnisText", "EasyZVT konnte nicht gestartet werden", RegistryValueKind.String) + ZVTKey.SetValue("DemoDruckername", comboInstalledPrinters.Text, RegistryValueKind.String) + If CheckBoxAutodruck.Checked Then + ZVTKey.SetValue("DemoAutodruck", 1, RegistryValueKind.DWord) + Else + ZVTKey.SetValue("DemoAutodruck", 0, RegistryValueKind.DWord) + End If + If CheckBoxDummy.Checked Then + ZVTKey.SetValue("DemoDummydruck", 1, RegistryValueKind.DWord) + Else + ZVTKey.SetValue("DemoDummydruck", 0, RegistryValueKind.DWord) + End If + Button_Autorisierung.Enabled = False + Button_Diagnose.Enabled = False + Button_Tagesabschluss.Enabled = False + Button_Storno.Enabled = False + Button_Gutschrift.Enabled = False + Button_Exit.Enabled = False + + TextBox_ErgebnisText.Text = "EasyZVT-Zahlung aktiv" + TextBox_Aktiv.Text = "warte auf Aktiv=0" + + + Catch ex As Exception + MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message) + Exit Sub + End Try + ZVTKey.Close() + + End Sub + Private Sub Autorisierung() + + Funktion = 0 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + + End Sub + Private Sub Button_Autorisierung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Autorisierung.Click + 'Zahlung per Klick auslösen + Autorisierung() + End Sub + Private Sub TextBox_Betrag_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox_Betrag.KeyPress + ' Damit die Zahlung auch per Enter-Taste ausgelöst werden kann + If e.KeyChar = Chr(Keys.Enter) Then + e.Handled = True + Autorisierung() + End If + End Sub + + Private Sub EasyZVT_Async(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) + ' Programmstart von ZVTStart.exe und warten auf Programmende + + Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + Try + Dim ZVTStart As String = ZVTKey.GetValue("Start") + Dim Proc As System.Diagnostics.Process + + If (Len(ZVTStart) > 1) Then + ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Wenn das Ergebnis 1000 bleibt konnte EasyZVT nicht gestartet werden + Proc = System.Diagnostics.Process.Start(ZVTStart) + System.Threading.Thread.Sleep(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 + Catch ex As Exception + MessageBox.Show("Der Programmstart ist fehlgeschlagen: " & ex.Message) + Exit Sub + End Try + ZVTKey.Close() + End Sub + Private Sub EasyZVT_OnCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) + ' Diese Funktion wird automatisch aufgerufen wenn der Worker-Thread seine Arbeit beendet + ' und EasyZVT seine Ausgabewerte in die Registry zurückgeschrieben hat + + + Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + TextBox_Aktiv.Text = "" + TextBox_Ergebnis.Text = ZVTKey.GetValue("Ergebnis") + TextBox_ErgebnisText.Text = ZVTKey.GetValue("ErgebnisText") + TextBox_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf) + TextBox_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf) + + TextBox_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString + TextBox_Betrag.Text = "" + + If CheckBoxAutodruck.Checked Then + If Len(TextBox_Drucktext.Text) > 1 Then + Button_Kundenbeleg_drucken.PerformClick() + End If + If Len(TextBox_Drucktext2.Text) > 1 Then + Button_Haendlerbeleg_drucken.PerformClick() + End If + + End If + + TextBox_Betrag.Focus() + Button_Autorisierung.Enabled = True + Button_Diagnose.Enabled = True + Button_Tagesabschluss.Enabled = True + Button_Storno.Enabled = True + Button_Gutschrift.Enabled = True + Button_Exit.Enabled = True + ZVTKey.Close() + End Sub + + + Private Sub Button_Diagnose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Diagnose.Click + Funktion = 1 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + + End Sub + + Private Sub Button_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Exit.Click + Application.Exit() + End Sub + + Private Sub Button_Tagesabschluss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Tagesabschluss.Click + Funktion = 2 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + + End Sub + + Private Sub Button_Storno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Storno.Click + Funktion = 3 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + + End Sub + + Private Sub Button_Gutschrift_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Gutschrift.Click + Funktion = 4 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + + End Sub + + + Private Sub PDoc_SeiteDrucken(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PDoc.PrintPage + + Dim Textfont As Font = TextBox_Kassenbon.Font + Dim Hoehe, Breite As Integer + Dim Links, Oben As Integer + With PDoc.DefaultPageSettings + 'Hoehe = .PaperSize.Height - .Margins.Top - .Margins.Bottom + 'Breite = .PaperSize.Width - .Margins.Left - .Margins.Right + Hoehe = 500 ' 5,00 Zoll + Breite = 270 ' = 2,70 zoll + 'Links = PDoc.DefaultPageSettings.Margins.Left + 'Oben = PDoc.DefaultPageSettings.Margins.Top + Links = 10 + Oben = 10 + End With + ' Einen Rahmen zeichnen + Dim Rahmen As New Rectangle(Links, Oben, Breite, Hoehe) + e.Graphics.DrawRectangle(Pens.Blue, Rahmen) + ' In den Rahmen den Kassenbontext zeichnen + Dim StrFormat As StringFormat + StrFormat = New StringFormat(StringFormatFlags.LineLimit) + e.Graphics.DrawString(TextBox_Kassenbon.Text, Textfont, Brushes.Black, Rahmen, StrFormat) + e.HasMorePages = False + + End Sub + Private Sub Button_Kundenbeleg_drucken_Click(ByVal sender As System.Object, ByVal 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(ByVal sender As System.Object, ByVal 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 + Private Sub PopulateInstalledPrintersCombo() + ' Add list of installed printers found to the combo box. + ' The pkInstalledPrinters string will be used to provide the display string. + Dim i As Integer + Dim pkInstalledPrinters As String + + For i = 0 To PrinterSettings.InstalledPrinters.Count - 1 + pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i) + comboInstalledPrinters.Items.Add(pkInstalledPrinters) + Next + End Sub + + Private Sub comboInstalledPrinters_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboInstalledPrinters.SelectedIndexChanged + ' Set the printer to a printer in the combo box when the selection changes. + + If comboInstalledPrinters.SelectedIndex <> -1 Then + ' The combo box's Text property returns the selected item's text, which is the printer name. + ' printDoc.PrinterSettings.PrinterName = comboInstalledPrinters.Text + End If + + + End Sub + +End Class \ No newline at end of file diff --git a/SDL/kassenbuch/frmKassenbuch.Designer.vb b/SDL/kassenbuch/frmKassenbuch.Designer.vb index 9efe2d42..2f3b12b6 100644 --- a/SDL/kassenbuch/frmKassenbuch.Designer.vb +++ b/SDL/kassenbuch/frmKassenbuch.Designer.vb @@ -78,6 +78,7 @@ Partial Class frmKassenbuch Me.btnBelegLeihgeld = New System.Windows.Forms.Button() Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() Me.Button1 = New System.Windows.Forms.Button() + Me.Button11 = New System.Windows.Forms.Button() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlTop.SuspendLayout() @@ -659,6 +660,7 @@ Partial Class frmKassenbuch ' 'pnl ' + Me.pnl.Controls.Add(Me.Button11) Me.pnl.Controls.Add(Me.Button7) Me.pnl.Controls.Add(Me.Label11) Me.pnl.Controls.Add(Me.Label12) @@ -792,6 +794,19 @@ Partial Class frmKassenbuch Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button1.UseVisualStyleBackColor = True ' + 'Button11 + ' + Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Button11.ForeColor = System.Drawing.Color.Black + Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button11.Location = New System.Drawing.Point(147, 193) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(129, 30) + Me.Button11.TabIndex = 430 + Me.Button11.Text = "POS Terminal" + Me.Button11.UseVisualStyleBackColor = True + ' 'frmKassenbuch ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -875,4 +890,5 @@ Partial Class frmKassenbuch Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button7 As System.Windows.Forms.Button Friend WithEvents Button10 As Button + Friend WithEvents Button11 As Button End Class diff --git a/SDL/kassenbuch/frmKassenbuch.vb b/SDL/kassenbuch/frmKassenbuch.vb index 8a7dd8f4..af979634 100644 --- a/SDL/kassenbuch/frmKassenbuch.vb +++ b/SDL/kassenbuch/frmKassenbuch.vb @@ -1274,4 +1274,15 @@ Public Class frmKassenbuch print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous print.Show() End Sub + + Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click + + Label18.ForeColor = Color.Black + If Not IsNumeric(cboKassen._value) Then + Label18.ForeColor = Color.Red + Exit Sub + End If + + Dim posTerminal As New POSTerminal() + End Sub End Class \ No newline at end of file From 2f6595bba827e75cb34bb04de68b7bf5361da6e1 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 28 Feb 2023 15:02:30 +0100 Subject: [PATCH 04/11] Revert "POS" This reverts commit 6cc214083d24bf04d83cb49582d7b0f8fc237a60. --- SDL/Classes/cRKSV_POS.vb | 146 ------ SDL/SDL.vbproj | 10 - SDL/kassenbuch/POSTerminal.Designer.vb | 582 ----------------------- SDL/kassenbuch/POSTerminal.resx | 120 ----- SDL/kassenbuch/POSTerminal.vb | 359 -------------- SDL/kassenbuch/frmKassenbuch.Designer.vb | 16 - SDL/kassenbuch/frmKassenbuch.vb | 11 - 7 files changed, 1244 deletions(-) delete mode 100644 SDL/Classes/cRKSV_POS.vb delete mode 100644 SDL/kassenbuch/POSTerminal.Designer.vb delete mode 100644 SDL/kassenbuch/POSTerminal.resx delete mode 100644 SDL/kassenbuch/POSTerminal.vb diff --git a/SDL/Classes/cRKSV_POS.vb b/SDL/Classes/cRKSV_POS.vb deleted file mode 100644 index 55ce391d..00000000 --- a/SDL/Classes/cRKSV_POS.vb +++ /dev/null @@ -1,146 +0,0 @@ - -Imports System.Data.SqlClient -Imports System.Reflection - - -Public Class cRKSV_POS - - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Property pos_Id As Integer - Property pos_aktiv As Object = Nothing - Property pos_kasse As Object = Nothing - Property pos_kassennr As Object = Nothing - Property pos_com As Object = Nothing - Property pos_baudrate As Object = Nothing - Property pos_comspeed As Object = Nothing - Property pos_comstop As Object = Nothing - Property pos_ip As Object = Nothing - Property pos_port As Object = Nothing - Property pos_typ As Object = Nothing - Property pos_lizenz As Object = Nothing - Property pos_kassendruck As Object = Nothing - Property pos_demoausdruck As Object = Nothing - Property pos_demodummyausdruck As Object = Nothing - Property pos_pin As Object = Nothing - Property pos_händerbeleg_drucken As Object = Nothing - Property pos_storno As Object = Nothing - Property pos_wartezeit As Object = Nothing - - Public hasEntry = False - - - Public Sub New(pos_Id) - Me.pos_Id = pos_Id - 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_aktiv", pos_aktiv)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kasse", pos_kasse)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kassennr", pos_kassennr)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_com", pos_com)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_baudrate", pos_baudrate)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_comspeed", pos_comspeed)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_comstop", pos_comstop)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_ip", pos_ip)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_port", pos_port)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_typ", pos_typ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_lizenz", pos_lizenz)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kassendruck", pos_kassendruck)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_demoausdruck", pos_demoausdruck)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_demodummyausdruck", pos_demodummyausdruck)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_apos_pinktiv", pos_pin)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_händerbeleg_drucken", pos_händerbeleg_drucken)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_storno", pos_storno)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_wartezeit", pos_wartezeit)) - - Return list - End Function - - - - Public Function SAVE() As Boolean - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - - Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblRKSV_POS WHERE pos_Id=@pos_Id) " & - " BEGIN " & getUpdateCmd() & " END " & - " Else " & - " BEGIN " & getInsertCmd() & " END " & - " commit tran " - - Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) - End Function - - Public Sub LOAD() - Try - hasEntry = False - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM tblRKSV_POS WHERE pos_Id=@pos_Id ", conn) - cmd.Parameters.AddWithValue("@pos_Id", pos_Id) - Dim dr = cmd.ExecuteReader() - If dr.Read Then - For Each li In getParameterList() - Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) - - If dr.Item(li.Text) Is DBNull.Value Then - propInfo.SetValue(Me, Nothing) - Else - propInfo.SetValue(Me, dr.Item(li.Text)) - End If - - Next - hasEntry = True - End If - dr.Close() - End Using - End Using - Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) - End Try - End Sub - - - - Public Function getUpdateCmd() As String - Try - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - - Dim str As String = "" - For Each i In list - If Not i.isPrimaryParam Then - str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," - End If - Next - str = str.Substring(0, str.Length - 1) 'wg. ',' - Return (" UPDATE [tblRKSV_POS] SET " & str & " WHERE pos_Id=@pos_Id ") - - Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) - End Try - Return "" - End Function - - - Public Function getInsertCmd() As String - Try - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - Dim str As String = "" - Dim values As String = "" - For Each i In list - If Not i.isPrimaryParam Then - str &= "[" & i.Text & "]," - values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," - End If - Next - str = str.Substring(0, str.Length - 1) 'wg. ',' - values = values.Substring(0, values.Length - 1) 'wg. ',' - Return (" INSERT INTO tblRKSV_POS (" & str & ") VALUES(" & values & ") ") - Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) - End Try - Return "" - End Function - - -End Class diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 7c278d03..e53ec12a 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -512,7 +512,6 @@ - @@ -579,12 +578,6 @@ Form - - POSTerminal.vb - - - Form - frmKundenBesonderheiten_Add.vb @@ -2842,9 +2835,6 @@ frmEssensbestellungen.vb - - POSTerminal.vb - frmKundenBesonderheiten_Add.vb diff --git a/SDL/kassenbuch/POSTerminal.Designer.vb b/SDL/kassenbuch/POSTerminal.Designer.vb deleted file mode 100644 index 8fe406f4..00000000 --- a/SDL/kassenbuch/POSTerminal.Designer.vb +++ /dev/null @@ -1,582 +0,0 @@ - _ -Partial Class POSTerminal - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Me.CheckBoxDummy = New System.Windows.Forms.CheckBox() - Me.CheckBoxAutodruck = New System.Windows.Forms.CheckBox() - Me.Label15 = New System.Windows.Forms.Label() - Me.comboInstalledPrinters = New System.Windows.Forms.ComboBox() - Me.Label12 = New System.Windows.Forms.Label() - Me.TextBox_BelegNr = New System.Windows.Forms.TextBox() - Me.Label14 = New System.Windows.Forms.Label() - Me.StornoBelegNr = New System.Windows.Forms.TextBox() - Me.TextBox_Aktiv = New System.Windows.Forms.TextBox() - Me.Label13 = New System.Windows.Forms.Label() - Me.ComboBox_Typ = New System.Windows.Forms.ComboBox() - Me.Button_Haendlerbeleg_drucken = New System.Windows.Forms.Button() - Me.TextBox_Kassenbon = New System.Windows.Forms.TextBox() - Me.Button_Kundenbeleg_drucken = New System.Windows.Forms.Button() - Me.Button_Gutschrift = New System.Windows.Forms.Button() - Me.Button_Storno = New System.Windows.Forms.Button() - Me.Button_Tagesabschluss = New System.Windows.Forms.Button() - Me.Button_Diagnose = New System.Windows.Forms.Button() - Me.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() - Me.Label10 = New System.Windows.Forms.Label() - Me.TextBox_Drucktext = New System.Windows.Forms.TextBox() - Me.TextBox_ErgebnisText = New System.Windows.Forms.TextBox() - Me.TextBox_Ergebnis = New System.Windows.Forms.TextBox() - Me.Label9 = New System.Windows.Forms.Label() - Me.Button_Autorisierung = New System.Windows.Forms.Button() - Me.TextBox_Betrag = New System.Windows.Forms.TextBox() - Me.Label8 = New System.Windows.Forms.Label() - Me.TextBox_Lizenz = New System.Windows.Forms.TextBox() - Me.Label7 = New System.Windows.Forms.Label() - Me.ComboBox_ComStop = New System.Windows.Forms.ComboBox() - Me.Label6 = New System.Windows.Forms.Label() - Me.ComboBox_ComSpeed = New System.Windows.Forms.ComboBox() - Me.Label5 = New System.Windows.Forms.Label() - Me.TextBox_Port = New System.Windows.Forms.TextBox() - Me.Label4 = New System.Windows.Forms.Label() - Me.Label3 = New System.Windows.Forms.Label() - Me.TextBox_IP = New System.Windows.Forms.TextBox() - Me.Label2 = New System.Windows.Forms.Label() - Me.ComboBox_COM = New System.Windows.Forms.ComboBox() - Me.TextBox_KasseNr = New System.Windows.Forms.TextBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.lblKasse = New System.Windows.Forms.Label() - Me.SuspendLayout() - ' - 'CheckBoxDummy - ' - Me.CheckBoxDummy.AutoSize = True - Me.CheckBoxDummy.Location = New System.Drawing.Point(669, 26) - Me.CheckBoxDummy.Name = "CheckBoxDummy" - Me.CheckBoxDummy.Size = New System.Drawing.Size(128, 17) - Me.CheckBoxDummy.TabIndex = 90 - Me.CheckBoxDummy.Text = "Dummy-Kopf drucken" - Me.CheckBoxDummy.UseVisualStyleBackColor = True - ' - 'CheckBoxAutodruck - ' - Me.CheckBoxAutodruck.AutoSize = True - Me.CheckBoxAutodruck.Location = New System.Drawing.Point(582, 27) - Me.CheckBoxAutodruck.Name = "CheckBoxAutodruck" - Me.CheckBoxAutodruck.Size = New System.Drawing.Size(75, 17) - Me.CheckBoxAutodruck.TabIndex = 89 - Me.CheckBoxAutodruck.Text = "Autodruck" - Me.CheckBoxAutodruck.UseVisualStyleBackColor = True - ' - 'Label15 - ' - Me.Label15.AutoSize = True - Me.Label15.Location = New System.Drawing.Point(246, 27) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(45, 13) - Me.Label15.TabIndex = 88 - Me.Label15.Text = "Drucker" - ' - 'comboInstalledPrinters - ' - Me.comboInstalledPrinters.FormattingEnabled = True - Me.comboInstalledPrinters.Location = New System.Drawing.Point(312, 24) - Me.comboInstalledPrinters.Name = "comboInstalledPrinters" - Me.comboInstalledPrinters.Size = New System.Drawing.Size(229, 21) - Me.comboInstalledPrinters.TabIndex = 87 - ' - 'Label12 - ' - Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(11, 226) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(45, 13) - Me.Label12.TabIndex = 86 - Me.Label12.Text = "BelegNr" - ' - 'TextBox_BelegNr - ' - Me.TextBox_BelegNr.Location = New System.Drawing.Point(108, 223) - 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 = 85 - ' - 'Label14 - ' - Me.Label14.AutoSize = True - Me.Label14.Location = New System.Drawing.Point(587, 251) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(76, 13) - Me.Label14.TabIndex = 84 - Me.Label14.Text = "StornoBelegNr" - ' - 'StornoBelegNr - ' - Me.StornoBelegNr.Location = New System.Drawing.Point(669, 248) - Me.StornoBelegNr.Name = "StornoBelegNr" - Me.StornoBelegNr.Size = New System.Drawing.Size(78, 20) - Me.StornoBelegNr.TabIndex = 83 - ' - 'TextBox_Aktiv - ' - Me.TextBox_Aktiv.BackColor = System.Drawing.Color.Gray - Me.TextBox_Aktiv.Location = New System.Drawing.Point(14, 517) - Me.TextBox_Aktiv.Name = "TextBox_Aktiv" - Me.TextBox_Aktiv.Size = New System.Drawing.Size(123, 20) - Me.TextBox_Aktiv.TabIndex = 82 - ' - 'Label13 - ' - Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(320, 121) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(25, 13) - Me.Label13.TabIndex = 81 - Me.Label13.Text = "Typ" - ' - 'ComboBox_Typ - ' - Me.ComboBox_Typ.FormattingEnabled = True - Me.ComboBox_Typ.Items.AddRange(New Object() {"0: ZVT Standard", "1: ICP mit Shutter", "2: ICT 220 alt", "3: ICP Zelos", "4: Clover", "5: CCV Base seriell", "10: SIX", "11: OPI", "12: myPOS", "13: TIM-Server"}) - Me.ComboBox_Typ.Location = New System.Drawing.Point(386, 117) - 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 = 80 - Me.ComboBox_Typ.Text = "0: ZVT Standard" - ' - 'Button_Haendlerbeleg_drucken - ' - Me.Button_Haendlerbeleg_drucken.Location = New System.Drawing.Point(314, 488) - Me.Button_Haendlerbeleg_drucken.Name = "Button_Haendlerbeleg_drucken" - Me.Button_Haendlerbeleg_drucken.Size = New System.Drawing.Size(122, 23) - Me.Button_Haendlerbeleg_drucken.TabIndex = 79 - Me.Button_Haendlerbeleg_drucken.Text = "Drucken" - Me.Button_Haendlerbeleg_drucken.UseVisualStyleBackColor = True - ' - 'TextBox_Kassenbon - ' - Me.TextBox_Kassenbon.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TextBox_Kassenbon.Location = New System.Drawing.Point(581, 57) - 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.TabIndex = 78 - Me.TextBox_Kassenbon.Text = "Kassenbon" - ' - 'Button_Kundenbeleg_drucken - ' - Me.Button_Kundenbeleg_drucken.Location = New System.Drawing.Point(15, 488) - Me.Button_Kundenbeleg_drucken.Name = "Button_Kundenbeleg_drucken" - Me.Button_Kundenbeleg_drucken.Size = New System.Drawing.Size(122, 23) - Me.Button_Kundenbeleg_drucken.TabIndex = 77 - Me.Button_Kundenbeleg_drucken.Text = "Drucken" - Me.Button_Kundenbeleg_drucken.UseVisualStyleBackColor = True - ' - 'Button_Gutschrift - ' - Me.Button_Gutschrift.Location = New System.Drawing.Point(586, 327) - Me.Button_Gutschrift.Name = "Button_Gutschrift" - Me.Button_Gutschrift.Size = New System.Drawing.Size(163, 29) - Me.Button_Gutschrift.TabIndex = 76 - Me.Button_Gutschrift.Text = "4 = Gutschrift" - Me.Button_Gutschrift.UseVisualStyleBackColor = True - ' - 'Button_Storno - ' - Me.Button_Storno.Location = New System.Drawing.Point(586, 274) - Me.Button_Storno.Name = "Button_Storno" - Me.Button_Storno.Size = New System.Drawing.Size(163, 34) - Me.Button_Storno.TabIndex = 75 - Me.Button_Storno.Text = "3 = Storno" - Me.Button_Storno.UseVisualStyleBackColor = True - ' - 'Button_Tagesabschluss - ' - Me.Button_Tagesabschluss.Location = New System.Drawing.Point(585, 200) - Me.Button_Tagesabschluss.Name = "Button_Tagesabschluss" - Me.Button_Tagesabschluss.Size = New System.Drawing.Size(163, 34) - Me.Button_Tagesabschluss.TabIndex = 74 - Me.Button_Tagesabschluss.Text = "2 = Tagesabschluss" - Me.Button_Tagesabschluss.UseVisualStyleBackColor = True - ' - 'Button_Diagnose - ' - Me.Button_Diagnose.Location = New System.Drawing.Point(585, 150) - Me.Button_Diagnose.Name = "Button_Diagnose" - Me.Button_Diagnose.Size = New System.Drawing.Size(164, 33) - Me.Button_Diagnose.TabIndex = 73 - 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(585, 488) - Me.Button_Exit.Name = "Button_Exit" - Me.Button_Exit.Size = New System.Drawing.Size(162, 23) - Me.Button_Exit.TabIndex = 72 - 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(386, 88) - Me.CheckBox_Kassedruck.Name = "CheckBox_Kassedruck" - Me.CheckBox_Kassedruck.Size = New System.Drawing.Size(82, 17) - Me.CheckBox_Kassedruck.TabIndex = 71 - Me.CheckBox_Kassedruck.Text = "Kassedruck" - Me.CheckBox_Kassedruck.UseVisualStyleBackColor = True - ' - 'Label11 - ' - Me.Label11.AutoSize = True - Me.Label11.Location = New System.Drawing.Point(311, 248) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(131, 13) - Me.Label11.TabIndex = 70 - Me.Label11.Text = "Drucktext2 (Händlerbeleg)" - ' - 'TextBox_Drucktext2 - ' - Me.TextBox_Drucktext2.Location = New System.Drawing.Point(314, 274) - 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.TabIndex = 69 - ' - 'Label10 - ' - Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(12, 248) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(125, 13) - Me.Label10.TabIndex = 68 - Me.Label10.Text = "Drucktext (Kundenbeleg)" - ' - 'TextBox_Drucktext - ' - Me.TextBox_Drucktext.Location = New System.Drawing.Point(14, 273) - 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.TabIndex = 67 - ' - 'TextBox_ErgebnisText - ' - Me.TextBox_ErgebnisText.Location = New System.Drawing.Point(166, 200) - 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 = 66 - ' - 'TextBox_Ergebnis - ' - Me.TextBox_Ergebnis.Location = New System.Drawing.Point(108, 200) - 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 = 65 - ' - 'Label9 - ' - Me.Label9.AutoSize = True - Me.Label9.Location = New System.Drawing.Point(12, 203) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(48, 13) - Me.Label9.TabIndex = 64 - Me.Label9.Text = "Ergebnis" - ' - 'Button_Autorisierung - ' - Me.Button_Autorisierung.Location = New System.Drawing.Point(166, 164) - Me.Button_Autorisierung.Name = "Button_Autorisierung" - Me.Button_Autorisierung.Size = New System.Drawing.Size(199, 24) - Me.Button_Autorisierung.TabIndex = 49 - Me.Button_Autorisierung.Text = "Autorisierung starten" - Me.Button_Autorisierung.UseVisualStyleBackColor = True - ' - 'TextBox_Betrag - ' - Me.TextBox_Betrag.Location = New System.Drawing.Point(106, 167) - 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 = 48 - Me.TextBox_Betrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(12, 170) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(38, 13) - Me.Label8.TabIndex = 63 - Me.Label8.Text = "Betrag" - ' - 'TextBox_Lizenz - ' - Me.TextBox_Lizenz.Location = New System.Drawing.Point(106, 114) - Me.TextBox_Lizenz.Name = "TextBox_Lizenz" - Me.TextBox_Lizenz.Size = New System.Drawing.Size(190, 20) - Me.TextBox_Lizenz.TabIndex = 62 - ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.Location = New System.Drawing.Point(12, 117) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(37, 13) - Me.Label7.TabIndex = 61 - Me.Label7.Text = "Lizenz" - ' - 'ComboBox_ComStop - ' - Me.ComboBox_ComStop.FormattingEnabled = True - Me.ComboBox_ComStop.Items.AddRange(New Object() {"1", "2"}) - Me.ComboBox_ComStop.Location = New System.Drawing.Point(314, 85) - Me.ComboBox_ComStop.Name = "ComboBox_ComStop" - Me.ComboBox_ComStop.Size = New System.Drawing.Size(38, 21) - Me.ComboBox_ComStop.TabIndex = 60 - Me.ComboBox_ComStop.Text = "1" - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(246, 88) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(50, 13) - Me.Label6.TabIndex = 59 - Me.Label6.Text = "ComStop" - ' - 'ComboBox_ComSpeed - ' - Me.ComboBox_ComSpeed.FormattingEnabled = True - Me.ComboBox_ComSpeed.Items.AddRange(New Object() {"9600", "115000"}) - Me.ComboBox_ComSpeed.Location = New System.Drawing.Point(106, 84) - Me.ComboBox_ComSpeed.Name = "ComboBox_ComSpeed" - Me.ComboBox_ComSpeed.Size = New System.Drawing.Size(121, 21) - Me.ComboBox_ComSpeed.TabIndex = 58 - Me.ComboBox_ComSpeed.Text = "9600" - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(12, 88) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(59, 13) - Me.Label5.TabIndex = 57 - Me.Label5.Text = "ComSpeed" - ' - 'TextBox_Port - ' - Me.TextBox_Port.Location = New System.Drawing.Point(483, 58) - 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 = 56 - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(451, 61) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(26, 13) - Me.Label4.TabIndex = 55 - Me.Label4.Text = "Port" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(246, 61) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(17, 13) - Me.Label3.TabIndex = 54 - Me.Label3.Text = "IP" - ' - 'TextBox_IP - ' - Me.TextBox_IP.Location = New System.Drawing.Point(314, 58) - 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 = 53 - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(12, 60) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(31, 13) - Me.Label2.TabIndex = 52 - Me.Label2.Text = "COM" - ' - '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(106, 57) - Me.ComboBox_COM.Name = "ComboBox_COM" - Me.ComboBox_COM.Size = New System.Drawing.Size(121, 21) - Me.ComboBox_COM.TabIndex = 51 - Me.ComboBox_COM.Text = "LAN" - ' - 'TextBox_KasseNr - ' - Me.TextBox_KasseNr.Location = New System.Drawing.Point(106, 31) - 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 = 50 - Me.TextBox_KasseNr.Text = "1" - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(12, 34) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(47, 13) - Me.Label1.TabIndex = 47 - Me.Label1.Text = "KasseNr" - ' - 'lblKasse - ' - Me.lblKasse.AutoSize = True - Me.lblKasse.Location = New System.Drawing.Point(13, 9) - Me.lblKasse.Name = "lblKasse" - Me.lblKasse.Size = New System.Drawing.Size(51, 13) - Me.lblKasse.TabIndex = 91 - Me.lblKasse.Text = "Kasse 01" - ' - 'POSTerminal - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(962, 550) - Me.Controls.Add(Me.lblKasse) - 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.Button_Exit) - 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.Label1) - Me.Name = "POSTerminal" - Me.Text = "POSTerminal" - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - - Friend WithEvents CheckBoxDummy As CheckBox - Friend WithEvents CheckBoxAutodruck As CheckBox - Friend WithEvents Label15 As Label - Friend WithEvents comboInstalledPrinters As ComboBox - Friend WithEvents Label12 As Label - Friend WithEvents TextBox_BelegNr As TextBox - Friend WithEvents Label14 As Label - Friend WithEvents StornoBelegNr As TextBox - Friend WithEvents TextBox_Aktiv As TextBox - Friend WithEvents Label13 As Label - Friend WithEvents ComboBox_Typ As ComboBox - Friend WithEvents Button_Haendlerbeleg_drucken As Button - Friend WithEvents TextBox_Kassenbon As TextBox - Friend WithEvents Button_Kundenbeleg_drucken As Button - Friend WithEvents Button_Gutschrift As Button - Friend WithEvents Button_Storno As Button - Friend WithEvents Button_Tagesabschluss As Button - Friend WithEvents Button_Diagnose As Button - Friend WithEvents Button_Exit As Button - Friend WithEvents CheckBox_Kassedruck As CheckBox - Friend WithEvents Label11 As Label - Friend WithEvents TextBox_Drucktext2 As TextBox - Friend WithEvents Label10 As Label - Friend WithEvents TextBox_Drucktext As TextBox - Friend WithEvents TextBox_ErgebnisText As TextBox - Friend WithEvents TextBox_Ergebnis As TextBox - Friend WithEvents Label9 As Label - Friend WithEvents Button_Autorisierung As Button - Friend WithEvents TextBox_Betrag As TextBox - Friend WithEvents Label8 As Label - Friend WithEvents TextBox_Lizenz As TextBox - Friend WithEvents Label7 As Label - Friend WithEvents ComboBox_ComStop As ComboBox - Friend WithEvents Label6 As Label - Friend WithEvents ComboBox_ComSpeed As ComboBox - Friend WithEvents Label5 As Label - Friend WithEvents TextBox_Port As TextBox - Friend WithEvents Label4 As Label - Friend WithEvents Label3 As Label - Friend WithEvents TextBox_IP As TextBox - Friend WithEvents Label2 As Label - Friend WithEvents ComboBox_COM As ComboBox - Friend WithEvents TextBox_KasseNr As TextBox - Friend WithEvents Label1 As Label - Friend WithEvents lblKasse As Label -End Class diff --git a/SDL/kassenbuch/POSTerminal.resx b/SDL/kassenbuch/POSTerminal.resx deleted file mode 100644 index 1af7de15..00000000 --- a/SDL/kassenbuch/POSTerminal.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/SDL/kassenbuch/POSTerminal.vb b/SDL/kassenbuch/POSTerminal.vb deleted file mode 100644 index a11c0ebe..00000000 --- a/SDL/kassenbuch/POSTerminal.vb +++ /dev/null @@ -1,359 +0,0 @@ -Imports Microsoft.Win32 - -Public Class POSTerminal - - ' Erstellt durch Jan Groetzner, Groetzner Unternehmensberatung, Seevetal - ' Version: 02.03.2020 - ' Kontakt: easyzvt@groetzner.de - - ' Dieser Quellcode dient als Beispielimplementierung zur Einbindung von EasyZVT in die eigene Kassenanwendung. - ' Der Code und auch Teile davon dürfen frei kopiert und in der Kassenanwendung verwendet werden - - Private EasyZVT_Worker As System.ComponentModel.BackgroundWorker = New System.ComponentModel.BackgroundWorker() - Private Funktion As Integer - Private Betrag As Integer = 0 - - Private WithEvents PDoc As Printing.PrintDocument - - Private Sub EasyZVT_DemoApp_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.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 - AddHandler EasyZVT_Worker.DoWork, New System.ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async) - AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted) - - Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) - TextBox_KasseNr.Text = ZVTKey.GetValue("KasseNr", "1") - ComboBox_COM.Text = ZVTKey.GetValue("COM", "LAN") - TextBox_IP.Text = ZVTKey.GetValue("IP", "192.168.86.122") - TextBox_Port.Text = ZVTKey.GetValue("Port", "20007") - ComboBox_ComSpeed.Text = ZVTKey.GetValue("ComSpeed", "9600") - ComboBox_ComStop.Text = ZVTKey.GetValue("ComStop", "1") - TextBox_Lizenz.Text = ZVTKey.GetValue("Lizenz", "") - If ZVTKey.GetValue("Kassedruck", 0) = 1 Then - CheckBox_Kassedruck.Checked = True - Else - CheckBox_Kassedruck.Checked = False - End If - ComboBox_Typ.SelectedIndex = ComboBox_Typ.FindString(ZVTKey.GetValue("Typ", 0).ToString) - PopulateInstalledPrintersCombo() - comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", "")) - If ZVTKey.GetValue("DemoAutodruck", 0) = 0 Then - CheckBoxAutodruck.Checked = False - Else - CheckBoxAutodruck.Checked = True - End If - If ZVTKey.GetValue("DemoDummydruck", 1) = 0 Then - CheckBoxDummy.Checked = False - Else - CheckBoxDummy.Checked = True - End If - ZVTKey.Close() - - Catch ex As Exception - MessageBox.Show("Fehler beim Einlesen der Standardwerte: " & ex.Message) - End Try - End Sub - - - Private Sub SetRegistryParameter() - 'Funktion holt Werte direkt aus der Oberfläche (TextBox_...) und schreibt diese in die Registry als Eingabeparameter für EasyZVT. - 'Im wahren Leben stehen diese Werte in Datenbankeinträgen der Stammdatenverwaltung in der Hauptanwendung - - Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) - Dim TypSelected As String - Dim Typ As Long - - Try - ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord) - TypSelected = Strings.Left(ComboBox_Typ.Text, 2).Replace(":", "") - Typ = TypSelected - ZVTKey.SetValue("Typ", Typ, RegistryValueKind.DWord) - ZVTKey.SetValue("KasseNr", TextBox_KasseNr.Text, RegistryValueKind.String) - ZVTKey.SetValue("COM", ComboBox_COM.Text, RegistryValueKind.String) - ZVTKey.SetValue("IP", TextBox_IP.Text, RegistryValueKind.String) - ZVTKey.SetValue("Port", CInt(TextBox_Port.Text), RegistryValueKind.DWord) - ZVTKey.SetValue("ComSpeed", CInt(ComboBox_ComSpeed.Text), RegistryValueKind.DWord) - ZVTKey.SetValue("ComStop", CInt(ComboBox_ComStop.Text), RegistryValueKind.DWord) - ZVTKey.SetValue("Lizenz", TextBox_Lizenz.Text, RegistryValueKind.String) - If Funktion = 0 Or Funktion = 4 Then - Betrag = CInt("0" & TextBox_Betrag.Text) - ZVTKey.SetValue("Betrag", Betrag, RegistryValueKind.DWord) - End If - If Funktion = 3 Then - ZVTKey.SetValue("StornoBetrag", CInt("0" & TextBox_Betrag.Text), RegistryValueKind.DWord) - ZVTKey.SetValue("StornoBelegNr", CInt("0" & StornoBelegNr.Text), RegistryValueKind.DWord) - End If - If CheckBox_Kassedruck.Checked Then - ZVTKey.SetValue("Kassedruck", 1, RegistryValueKind.DWord) - Else - ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord) - End If - ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Zur Sicherheit, falls EasyZVT gar nicht installiert ist oder nicht gestartet werden kann - ZVTKey.SetValue("ErgebnisText", "EasyZVT konnte nicht gestartet werden", RegistryValueKind.String) - ZVTKey.SetValue("DemoDruckername", comboInstalledPrinters.Text, RegistryValueKind.String) - If CheckBoxAutodruck.Checked Then - ZVTKey.SetValue("DemoAutodruck", 1, RegistryValueKind.DWord) - Else - ZVTKey.SetValue("DemoAutodruck", 0, RegistryValueKind.DWord) - End If - If CheckBoxDummy.Checked Then - ZVTKey.SetValue("DemoDummydruck", 1, RegistryValueKind.DWord) - Else - ZVTKey.SetValue("DemoDummydruck", 0, RegistryValueKind.DWord) - End If - Button_Autorisierung.Enabled = False - Button_Diagnose.Enabled = False - Button_Tagesabschluss.Enabled = False - Button_Storno.Enabled = False - Button_Gutschrift.Enabled = False - Button_Exit.Enabled = False - - TextBox_ErgebnisText.Text = "EasyZVT-Zahlung aktiv" - TextBox_Aktiv.Text = "warte auf Aktiv=0" - - - Catch ex As Exception - MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message) - Exit Sub - End Try - ZVTKey.Close() - - End Sub - Private Sub Autorisierung() - - Funktion = 0 - SetRegistryParameter() - EasyZVT_Worker.RunWorkerAsync() - - End Sub - Private Sub Button_Autorisierung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Autorisierung.Click - 'Zahlung per Klick auslösen - Autorisierung() - End Sub - Private Sub TextBox_Betrag_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox_Betrag.KeyPress - ' Damit die Zahlung auch per Enter-Taste ausgelöst werden kann - If e.KeyChar = Chr(Keys.Enter) Then - e.Handled = True - Autorisierung() - End If - End Sub - - Private Sub EasyZVT_Async(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) - ' Programmstart von ZVTStart.exe und warten auf Programmende - - Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) - Try - Dim ZVTStart As String = ZVTKey.GetValue("Start") - Dim Proc As System.Diagnostics.Process - - If (Len(ZVTStart) > 1) Then - ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Wenn das Ergebnis 1000 bleibt konnte EasyZVT nicht gestartet werden - Proc = System.Diagnostics.Process.Start(ZVTStart) - System.Threading.Thread.Sleep(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 - Catch ex As Exception - MessageBox.Show("Der Programmstart ist fehlgeschlagen: " & ex.Message) - Exit Sub - End Try - ZVTKey.Close() - End Sub - Private Sub EasyZVT_OnCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) - ' Diese Funktion wird automatisch aufgerufen wenn der Worker-Thread seine Arbeit beendet - ' und EasyZVT seine Ausgabewerte in die Registry zurückgeschrieben hat - - - Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) - TextBox_Aktiv.Text = "" - TextBox_Ergebnis.Text = ZVTKey.GetValue("Ergebnis") - TextBox_ErgebnisText.Text = ZVTKey.GetValue("ErgebnisText") - TextBox_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf) - TextBox_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf) - - TextBox_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString - TextBox_Betrag.Text = "" - - If CheckBoxAutodruck.Checked Then - If Len(TextBox_Drucktext.Text) > 1 Then - Button_Kundenbeleg_drucken.PerformClick() - End If - If Len(TextBox_Drucktext2.Text) > 1 Then - Button_Haendlerbeleg_drucken.PerformClick() - End If - - End If - - TextBox_Betrag.Focus() - Button_Autorisierung.Enabled = True - Button_Diagnose.Enabled = True - Button_Tagesabschluss.Enabled = True - Button_Storno.Enabled = True - Button_Gutschrift.Enabled = True - Button_Exit.Enabled = True - ZVTKey.Close() - End Sub - - - Private Sub Button_Diagnose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Diagnose.Click - Funktion = 1 - SetRegistryParameter() - EasyZVT_Worker.RunWorkerAsync() - - End Sub - - Private Sub Button_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Exit.Click - Application.Exit() - End Sub - - Private Sub Button_Tagesabschluss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Tagesabschluss.Click - Funktion = 2 - SetRegistryParameter() - EasyZVT_Worker.RunWorkerAsync() - - End Sub - - Private Sub Button_Storno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Storno.Click - Funktion = 3 - SetRegistryParameter() - EasyZVT_Worker.RunWorkerAsync() - - End Sub - - Private Sub Button_Gutschrift_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Gutschrift.Click - Funktion = 4 - SetRegistryParameter() - EasyZVT_Worker.RunWorkerAsync() - - End Sub - - - Private Sub PDoc_SeiteDrucken(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PDoc.PrintPage - - Dim Textfont As Font = TextBox_Kassenbon.Font - Dim Hoehe, Breite As Integer - Dim Links, Oben As Integer - With PDoc.DefaultPageSettings - 'Hoehe = .PaperSize.Height - .Margins.Top - .Margins.Bottom - 'Breite = .PaperSize.Width - .Margins.Left - .Margins.Right - Hoehe = 500 ' 5,00 Zoll - Breite = 270 ' = 2,70 zoll - 'Links = PDoc.DefaultPageSettings.Margins.Left - 'Oben = PDoc.DefaultPageSettings.Margins.Top - Links = 10 - Oben = 10 - End With - ' Einen Rahmen zeichnen - Dim Rahmen As New Rectangle(Links, Oben, Breite, Hoehe) - e.Graphics.DrawRectangle(Pens.Blue, Rahmen) - ' In den Rahmen den Kassenbontext zeichnen - Dim StrFormat As StringFormat - StrFormat = New StringFormat(StringFormatFlags.LineLimit) - e.Graphics.DrawString(TextBox_Kassenbon.Text, Textfont, Brushes.Black, Rahmen, StrFormat) - e.HasMorePages = False - - End Sub - Private Sub Button_Kundenbeleg_drucken_Click(ByVal sender As System.Object, ByVal 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(ByVal sender As System.Object, ByVal 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 - Private Sub PopulateInstalledPrintersCombo() - ' Add list of installed printers found to the combo box. - ' The pkInstalledPrinters string will be used to provide the display string. - Dim i As Integer - Dim pkInstalledPrinters As String - - For i = 0 To PrinterSettings.InstalledPrinters.Count - 1 - pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i) - comboInstalledPrinters.Items.Add(pkInstalledPrinters) - Next - End Sub - - Private Sub comboInstalledPrinters_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboInstalledPrinters.SelectedIndexChanged - ' Set the printer to a printer in the combo box when the selection changes. - - If comboInstalledPrinters.SelectedIndex <> -1 Then - ' The combo box's Text property returns the selected item's text, which is the printer name. - ' printDoc.PrinterSettings.PrinterName = comboInstalledPrinters.Text - End If - - - End Sub - -End Class \ No newline at end of file diff --git a/SDL/kassenbuch/frmKassenbuch.Designer.vb b/SDL/kassenbuch/frmKassenbuch.Designer.vb index 2f3b12b6..9efe2d42 100644 --- a/SDL/kassenbuch/frmKassenbuch.Designer.vb +++ b/SDL/kassenbuch/frmKassenbuch.Designer.vb @@ -78,7 +78,6 @@ Partial Class frmKassenbuch Me.btnBelegLeihgeld = New System.Windows.Forms.Button() Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() Me.Button1 = New System.Windows.Forms.Button() - Me.Button11 = New System.Windows.Forms.Button() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlTop.SuspendLayout() @@ -660,7 +659,6 @@ Partial Class frmKassenbuch ' 'pnl ' - Me.pnl.Controls.Add(Me.Button11) Me.pnl.Controls.Add(Me.Button7) Me.pnl.Controls.Add(Me.Label11) Me.pnl.Controls.Add(Me.Label12) @@ -794,19 +792,6 @@ Partial Class frmKassenbuch Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button1.UseVisualStyleBackColor = True ' - 'Button11 - ' - Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.Button11.ForeColor = System.Drawing.Color.Black - Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button11.Location = New System.Drawing.Point(147, 193) - Me.Button11.Name = "Button11" - Me.Button11.Size = New System.Drawing.Size(129, 30) - Me.Button11.TabIndex = 430 - Me.Button11.Text = "POS Terminal" - Me.Button11.UseVisualStyleBackColor = True - ' 'frmKassenbuch ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -890,5 +875,4 @@ Partial Class frmKassenbuch Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button7 As System.Windows.Forms.Button Friend WithEvents Button10 As Button - Friend WithEvents Button11 As Button End Class diff --git a/SDL/kassenbuch/frmKassenbuch.vb b/SDL/kassenbuch/frmKassenbuch.vb index af979634..8a7dd8f4 100644 --- a/SDL/kassenbuch/frmKassenbuch.vb +++ b/SDL/kassenbuch/frmKassenbuch.vb @@ -1274,15 +1274,4 @@ Public Class frmKassenbuch print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous print.Show() End Sub - - Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click - - Label18.ForeColor = Color.Black - If Not IsNumeric(cboKassen._value) Then - Label18.ForeColor = Color.Red - Exit Sub - End If - - Dim posTerminal As New POSTerminal() - End Sub End Class \ No newline at end of file From a6ba393fe4fc3e1b64bf17ea54692c9a594c5572 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 28 Feb 2023 17:07:16 +0100 Subject: [PATCH 05/11] POS --- SDL/Classes/cRKSV.vb | 6 +- SDL/Classes/cRKSV_POS.vb | 146 +++++++ SDL/My Project/AssemblyInfo.vb | 4 +- SDL/SDL.vbproj | 11 +- SDL/kassenbuch/POS.vb | 299 ------------- SDL/kassenbuch/frmKassenbuch.Designer.vb | 16 + SDL/kassenbuch/frmKassenbuch.vb | 12 + ...Designer.vb => frmPOSTerminal.Designer.vb} | 243 ++++++----- .../{POS.resx => frmPOSTerminal.resx} | 0 SDL/kassenbuch/frmPOSTerminal.vb | 404 ++++++++++++++++++ 10 files changed, 731 insertions(+), 410 deletions(-) create mode 100644 SDL/Classes/cRKSV_POS.vb delete mode 100644 SDL/kassenbuch/POS.vb rename SDL/kassenbuch/{POS.Designer.vb => frmPOSTerminal.Designer.vb} (77%) rename SDL/kassenbuch/{POS.resx => frmPOSTerminal.resx} (100%) create mode 100644 SDL/kassenbuch/frmPOSTerminal.vb diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 55c44623..e32f2a97 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -1238,9 +1238,9 @@ Public Class cRKSV rpt.lblGesamtbetrag.Text = CDbl(sum + (sum * s)).ToString("C") If sum < 0 Then rpt.Label2.Text = "Rechnungskorrektur Nr." End Sub - If POSPayment Then - Dim Pos = New POS(rpt, sum) - Pos.ShowDialog() + If False Then 'POSPayment Then + 'Dim Pos = New frmPOSTerminal(rpt, sum) + 'Pos.ShowDialog() End If 'PaperKind = System.Drawing.Printing.PaperKind.Custom diff --git a/SDL/Classes/cRKSV_POS.vb b/SDL/Classes/cRKSV_POS.vb new file mode 100644 index 00000000..247cfe57 --- /dev/null +++ b/SDL/Classes/cRKSV_POS.vb @@ -0,0 +1,146 @@ + +Imports System.Data.SqlClient +Imports System.Reflection + + +Public Class cRKSV_POS + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Property pos_Id As Integer + Property pos_aktiv As Object = Nothing + Property pos_kasse As Object = Nothing + Property pos_kassennr As Object = Nothing + Property pos_com As Object = Nothing + Property pos_baudrate As Object = Nothing + Property pos_comspeed As Object = Nothing + Property pos_comstop As Object = Nothing + Property pos_ip As Object = Nothing + Property pos_port As Object = Nothing + Property pos_typ As Object = Nothing + Property pos_lizenz As Object = Nothing + Property pos_kassendruck As Object = Nothing + Property pos_demoausdruck As Object = Nothing + Property pos_demodummyausdruck As Object = Nothing + Property pos_pin As Object = Nothing + Property pos_händerbeleg_drucken As Object = Nothing + Property pos_storno As Object = Nothing + Property pos_wartezeit As Object = Nothing + + Public hasEntry = False + + + Public Sub New(pos_Id) + Me.pos_Id = pos_Id + 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_aktiv", pos_aktiv)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kasse", pos_kasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kassennr", pos_kassennr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_com", pos_com)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_baudrate", pos_baudrate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_comspeed", pos_comspeed)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_comstop", pos_comstop)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_ip", pos_ip)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_port", pos_port)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_typ", pos_typ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_lizenz", pos_lizenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_kassendruck", pos_kassendruck)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_demoausdruck", pos_demoausdruck)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_demodummyausdruck", pos_demodummyausdruck)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_apos_pinktiv", pos_pin)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_händerbeleg_drucken", pos_händerbeleg_drucken)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_storno", pos_storno)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_wartezeit", pos_wartezeit)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblRKSV_POS WHERE pos_Id=@pos_Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblRKSV_POS WHERE pos_Id=@pos_Id ", conn) + cmd.Parameters.AddWithValue("@pos_Id", pos_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblRKSV_POS] SET " & str & " WHERE pos_Id=@pos_Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblRKSV_POS (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + +End Class diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 771d08f6..03e701ba 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/SDL.vbproj b/SDL/SDL.vbproj index 148e5a0f..a8d9bada 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -512,6 +512,7 @@ + @@ -566,10 +567,10 @@ Form - - POS.vb + + frmPOSTerminal.vb - + Form @@ -2817,8 +2818,8 @@ frmEssensbestellungen.vb - - POS.vb + + frmPOSTerminal.vb frmKundenBesonderheiten_Add.vb diff --git a/SDL/kassenbuch/POS.vb b/SDL/kassenbuch/POS.vb deleted file mode 100644 index 8bec755c..00000000 --- a/SDL/kassenbuch/POS.vb +++ /dev/null @@ -1,299 +0,0 @@ -Imports System.Drawing.Printing -Imports Microsoft.Win32 - -Public Class POS - - Public Sub New(ByVal _rptKundenBeleg, betrag) - rptKundenBeleg = _rptKundenBeleg - betrag = CInt(betrag) - - End Sub - - - - ' Erstellt durch Jan Groetzner, Groetzner Unternehmensberatung, Seevetal - ' Version: 02.03.2020 - ' Kontakt: easyzvt@groetzner.de - - ' Dieser Quellcode dient als Beispielimplementierung zur Einbindung von EasyZVT in die eigene Kassenanwendung. - ' Der Code und auch Teile davon dürfen frei kopiert und in der Kassenanwendung verwendet werden - - Private EasyZVT_Worker As System.ComponentModel.BackgroundWorker = New System.ComponentModel.BackgroundWorker() - Private Funktion As Integer - Private rptKundenBeleg As rptKundenBeleg - Private Betrag As Integer - - Private WithEvents PDoc As Printing.PrintDocument - - Private Sub POS_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.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 - AddHandler EasyZVT_Worker.DoWork, New System.ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async) - AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted) - - Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) - TextBox_KasseNr.Text = ZVTKey.GetValue("KasseNr", "1") - ComboBox_COM.Text = ZVTKey.GetValue("COM", "LAN") - TextBox_IP.Text = ZVTKey.GetValue("IP", "192.168.86.122") - TextBox_Port.Text = ZVTKey.GetValue("Port", "20007") - ComboBox_ComSpeed.Text = ZVTKey.GetValue("ComSpeed", "9600") - ComboBox_ComStop.Text = ZVTKey.GetValue("ComStop", "1") - TextBox_Lizenz.Text = ZVTKey.GetValue("Lizenz", "") - If ZVTKey.GetValue("Kassedruck", 0) = 1 Then - CheckBox_Kassedruck.Checked = True - Else - CheckBox_Kassedruck.Checked = False - End If - ComboBox_Typ.SelectedIndex = ComboBox_Typ.FindString(ZVTKey.GetValue("Typ", 0).ToString) - PopulateInstalledPrintersCombo() - comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", "")) - If ZVTKey.GetValue("DemoAutodruck", 0) = 0 Then - CheckBoxAutodruck.Checked = False - Else - CheckBoxAutodruck.Checked = True - End If - If ZVTKey.GetValue("DemoDummydruck", 1) = 0 Then - CheckBoxDummy.Checked = False - Else - CheckBoxDummy.Checked = True - End If - ZVTKey.Close() - - Catch ex As Exception - MessageBox.Show("Fehler beim Einlesen der Standardwerte: " & ex.Message) - End Try - End Sub - - - Private Sub SetRegistryParameter() - 'Funktion holt Werte direkt aus der Oberfläche (TextBox_...) und schreibt diese in die Registry als Eingabeparameter für EasyZVT. - 'Im wahren Leben stehen diese Werte in Datenbankeinträgen der Stammdatenverwaltung in der Hauptanwendung - - Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) - Dim TypSelected As String - Dim Typ As Long - - Try - ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord) - TypSelected = Strings.Left(ComboBox_Typ.Text, 2).Replace(":", "") - Typ = TypSelected - ZVTKey.SetValue("Typ", Typ, RegistryValueKind.DWord) - ZVTKey.SetValue("KasseNr", TextBox_KasseNr.Text, RegistryValueKind.String) - ZVTKey.SetValue("COM", ComboBox_COM.Text, RegistryValueKind.String) - ZVTKey.SetValue("IP", TextBox_IP.Text, RegistryValueKind.String) - ZVTKey.SetValue("Port", CInt(TextBox_Port.Text), RegistryValueKind.DWord) - ZVTKey.SetValue("ComSpeed", CInt(ComboBox_ComSpeed.Text), RegistryValueKind.DWord) - ZVTKey.SetValue("ComStop", CInt(ComboBox_ComStop.Text), RegistryValueKind.DWord) - ZVTKey.SetValue("Lizenz", TextBox_Lizenz.Text, RegistryValueKind.String) - If Funktion = 0 Or Funktion = 4 Then - Betrag = CInt("0" & TextBox_Betrag.Text) - ZVTKey.SetValue("Betrag", Betrag, RegistryValueKind.DWord) - End If - If Funktion = 3 Then - ZVTKey.SetValue("StornoBetrag", CInt("0" & TextBox_Betrag.Text), RegistryValueKind.DWord) - ZVTKey.SetValue("StornoBelegNr", CInt("0" & StornoBelegNr.Text), RegistryValueKind.DWord) - End If - If CheckBox_Kassedruck.Checked Then - ZVTKey.SetValue("Kassedruck", 1, RegistryValueKind.DWord) - Else - ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord) - End If - ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Zur Sicherheit, falls EasyZVT gar nicht installiert ist oder nicht gestartet werden kann - ZVTKey.SetValue("ErgebnisText", "EasyZVT konnte nicht gestartet werden", RegistryValueKind.String) - ZVTKey.SetValue("DemoDruckername", comboInstalledPrinters.Text, RegistryValueKind.String) - If CheckBoxAutodruck.Checked Then - ZVTKey.SetValue("DemoAutodruck", 1, RegistryValueKind.DWord) - Else - ZVTKey.SetValue("DemoAutodruck", 0, RegistryValueKind.DWord) - End If - If CheckBoxDummy.Checked Then - ZVTKey.SetValue("DemoDummydruck", 1, RegistryValueKind.DWord) - Else - ZVTKey.SetValue("DemoDummydruck", 0, RegistryValueKind.DWord) - End If - Button_Autorisierung.Enabled = False - Button_Diagnose.Enabled = False - Button_Tagesabschluss.Enabled = False - Button_Storno.Enabled = False - Button_Gutschrift.Enabled = False - Button_Exit.Enabled = False - - TextBox_ErgebnisText.Text = "EasyZVT-Zahlung aktiv" - TextBox_Aktiv.Text = "warte auf Aktiv=0" - - - Catch ex As Exception - MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message) - Exit Sub - End Try - ZVTKey.Close() - - End Sub - Private Sub Autorisierung() - - Funktion = 0 - SetRegistryParameter() - EasyZVT_Worker.RunWorkerAsync() - - End Sub - Private Sub Button_Autorisierung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Autorisierung.Click - 'Zahlung per Klick auslösen - Autorisierung() - End Sub - Private Sub TextBox_Betrag_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox_Betrag.KeyPress - - End Sub - - Private Sub EasyZVT_Async(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) - ' Programmstart von ZVTStart.exe und warten auf Programmende - - Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) - Try - Dim ZVTStart As String = ZVTKey.GetValue("Start") - Dim Proc As System.Diagnostics.Process - - If (Len(ZVTStart) > 1) Then - ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Wenn das Ergebnis 1000 bleibt konnte EasyZVT nicht gestartet werden - Proc = System.Diagnostics.Process.Start(ZVTStart) - System.Threading.Thread.Sleep(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 - Catch ex As Exception - MessageBox.Show("Der Programmstart ist fehlgeschlagen: " & ex.Message) - Exit Sub - End Try - ZVTKey.Close() - End Sub - Private Sub EasyZVT_OnCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) - ' Diese Funktion wird automatisch aufgerufen wenn der Worker-Thread seine Arbeit beendet - ' und EasyZVT seine Ausgabewerte in die Registry zurückgeschrieben hat - - - Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) - TextBox_Aktiv.Text = "" - TextBox_Ergebnis.Text = ZVTKey.GetValue("Ergebnis") - TextBox_ErgebnisText.Text = ZVTKey.GetValue("ErgebnisText") - TextBox_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf) - TextBox_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf) - - TextBox_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString - TextBox_Betrag.Text = "" - - If CheckBoxAutodruck.Checked Then - If Len(TextBox_Drucktext.Text) > 1 Then - Button_Kundenbeleg_drucken.PerformClick() - End If - If Len(TextBox_Drucktext2.Text) > 1 Then - Button_Haendlerbeleg_drucken.PerformClick() - End If - - End If - - TextBox_Betrag.Focus() - Button_Autorisierung.Enabled = True - Button_Diagnose.Enabled = True - Button_Tagesabschluss.Enabled = True - Button_Storno.Enabled = True - Button_Gutschrift.Enabled = True - Button_Exit.Enabled = True - ZVTKey.Close() - End Sub - - - Private Sub Button_Diagnose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Diagnose.Click - Funktion = 1 - SetRegistryParameter() - EasyZVT_Worker.RunWorkerAsync() - - End Sub - - Private Sub Button_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Exit.Click - Application.Exit() - End Sub - - Private Sub Button_Tagesabschluss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Tagesabschluss.Click - Funktion = 2 - SetRegistryParameter() - EasyZVT_Worker.RunWorkerAsync() - - End Sub - - Private Sub Button_Storno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Storno.Click - Funktion = 3 - SetRegistryParameter() - EasyZVT_Worker.RunWorkerAsync() - - End Sub - - Private Sub Button_Gutschrift_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Gutschrift.Click - Funktion = 4 - SetRegistryParameter() - EasyZVT_Worker.RunWorkerAsync() - - End Sub - - - Private Sub PDoc_SeiteDrucken(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PDoc.PrintPage - - Dim Textfont As Font = TextBox_Kassenbon.Font - Dim Hoehe, Breite As Integer - Dim Links, Oben As Integer - With PDoc.DefaultPageSettings - 'Hoehe = .PaperSize.Height - .Margins.Top - .Margins.Bottom - 'Breite = .PaperSize.Width - .Margins.Left - .Margins.Right - Hoehe = 500 ' 5,00 Zoll - Breite = 270 ' = 2,70 zoll - 'Links = PDoc.DefaultPageSettings.Margins.Left - 'Oben = PDoc.DefaultPageSettings.Margins.Top - Links = 10 - Oben = 10 - End With - ' Einen Rahmen zeichnen - Dim Rahmen As New Rectangle(Links, Oben, Breite, Hoehe) - e.Graphics.DrawRectangle(Pens.Blue, Rahmen) - ' In den Rahmen den Kassenbontext zeichnen - Dim StrFormat As StringFormat - StrFormat = New StringFormat(StringFormatFlags.LineLimit) - e.Graphics.DrawString(TextBox_Kassenbon.Text, Textfont, Brushes.Black, Rahmen, StrFormat) - e.HasMorePages = False - - End Sub - Private Sub Button_Kundenbeleg_drucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Kundenbeleg_drucken.Click - - End Sub - - Private Sub Button_Haendlerbeleg_drucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Haendlerbeleg_drucken.Click - - End Sub - Private Sub PopulateInstalledPrintersCombo() - ' Add list of installed printers found to the combo box. - ' The pkInstalledPrinters string will be used to provide the display string. - Dim i As Integer - Dim pkInstalledPrinters As String - - For i = 0 To PrinterSettings.InstalledPrinters.Count - 1 - pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i) - comboInstalledPrinters.Items.Add(pkInstalledPrinters) - Next - End Sub - - Private Sub comboInstalledPrinters_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboInstalledPrinters.SelectedIndexChanged - - End Sub - - -End Class \ No newline at end of file diff --git a/SDL/kassenbuch/frmKassenbuch.Designer.vb b/SDL/kassenbuch/frmKassenbuch.Designer.vb index 9efe2d42..2f3b12b6 100644 --- a/SDL/kassenbuch/frmKassenbuch.Designer.vb +++ b/SDL/kassenbuch/frmKassenbuch.Designer.vb @@ -78,6 +78,7 @@ Partial Class frmKassenbuch Me.btnBelegLeihgeld = New System.Windows.Forms.Button() Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() Me.Button1 = New System.Windows.Forms.Button() + Me.Button11 = New System.Windows.Forms.Button() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlTop.SuspendLayout() @@ -659,6 +660,7 @@ Partial Class frmKassenbuch ' 'pnl ' + Me.pnl.Controls.Add(Me.Button11) Me.pnl.Controls.Add(Me.Button7) Me.pnl.Controls.Add(Me.Label11) Me.pnl.Controls.Add(Me.Label12) @@ -792,6 +794,19 @@ Partial Class frmKassenbuch Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button1.UseVisualStyleBackColor = True ' + 'Button11 + ' + Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Button11.ForeColor = System.Drawing.Color.Black + Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button11.Location = New System.Drawing.Point(147, 193) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(129, 30) + Me.Button11.TabIndex = 430 + Me.Button11.Text = "POS Terminal" + Me.Button11.UseVisualStyleBackColor = True + ' 'frmKassenbuch ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -875,4 +890,5 @@ Partial Class frmKassenbuch Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button7 As System.Windows.Forms.Button Friend WithEvents Button10 As Button + Friend WithEvents Button11 As Button End Class diff --git a/SDL/kassenbuch/frmKassenbuch.vb b/SDL/kassenbuch/frmKassenbuch.vb index c7098ff1..18bc0978 100644 --- a/SDL/kassenbuch/frmKassenbuch.vb +++ b/SDL/kassenbuch/frmKassenbuch.vb @@ -1274,4 +1274,16 @@ Public Class frmKassenbuch print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous print.Show() End Sub + + Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click + Label18.ForeColor = Color.Black + If Not IsNumeric(cboKassen._value) Then + Label18.ForeColor = Color.Red + Exit Sub + End If + + Dim f As New frmPOSTerminal(cboKassen.Text, cboKassen._value) + f.Show() + + End Sub End Class \ No newline at end of file diff --git a/SDL/kassenbuch/POS.Designer.vb b/SDL/kassenbuch/frmPOSTerminal.Designer.vb similarity index 77% rename from SDL/kassenbuch/POS.Designer.vb rename to SDL/kassenbuch/frmPOSTerminal.Designer.vb index 61ba0b87..8bf4efdb 100644 --- a/SDL/kassenbuch/POS.Designer.vb +++ b/SDL/kassenbuch/frmPOSTerminal.Designer.vb @@ -1,5 +1,5 @@  _ -Partial Class POS +Partial Class frmPOSTerminal Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -22,6 +22,9 @@ Partial Class POS 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ 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() @@ -65,413 +68,446 @@ Partial Class POS Me.Label2 = New System.Windows.Forms.Label() Me.ComboBox_COM = New System.Windows.Forms.ComboBox() Me.TextBox_KasseNr = New System.Windows.Forms.TextBox() - Me.Label1 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.btnNew = New System.Windows.Forms.Button() + CType(Me.dgvTerminals, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' + 'dgvTerminals + ' + Me.dgvTerminals.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvTerminals.AllowUserToAddRows = 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.Name = "dgvTerminals" + Me.dgvTerminals.Size = New System.Drawing.Size(804, 348) + 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(678, 15) + Me.CheckBoxDummy.Location = New System.Drawing.Point(691, 420) Me.CheckBoxDummy.Name = "CheckBoxDummy" Me.CheckBoxDummy.Size = New System.Drawing.Size(128, 17) - Me.CheckBoxDummy.TabIndex = 90 + Me.CheckBoxDummy.TabIndex = 137 Me.CheckBoxDummy.Text = "Dummy-Kopf drucken" Me.CheckBoxDummy.UseVisualStyleBackColor = True ' 'CheckBoxAutodruck ' Me.CheckBoxAutodruck.AutoSize = True - Me.CheckBoxAutodruck.Location = New System.Drawing.Point(591, 16) + Me.CheckBoxAutodruck.Location = New System.Drawing.Point(604, 421) Me.CheckBoxAutodruck.Name = "CheckBoxAutodruck" Me.CheckBoxAutodruck.Size = New System.Drawing.Size(75, 17) - Me.CheckBoxAutodruck.TabIndex = 89 + Me.CheckBoxAutodruck.TabIndex = 136 Me.CheckBoxAutodruck.Text = "Autodruck" Me.CheckBoxAutodruck.UseVisualStyleBackColor = True ' 'Label15 ' Me.Label15.AutoSize = True - Me.Label15.Location = New System.Drawing.Point(255, 16) + Me.Label15.Location = New System.Drawing.Point(268, 421) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(45, 13) - Me.Label15.TabIndex = 88 + Me.Label15.TabIndex = 135 Me.Label15.Text = "Drucker" ' 'comboInstalledPrinters ' Me.comboInstalledPrinters.FormattingEnabled = True - Me.comboInstalledPrinters.Location = New System.Drawing.Point(321, 13) + Me.comboInstalledPrinters.Location = New System.Drawing.Point(334, 418) Me.comboInstalledPrinters.Name = "comboInstalledPrinters" Me.comboInstalledPrinters.Size = New System.Drawing.Size(229, 21) - Me.comboInstalledPrinters.TabIndex = 87 + Me.comboInstalledPrinters.TabIndex = 134 ' 'Label12 ' Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(20, 215) + Me.Label12.Location = New System.Drawing.Point(33, 620) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(45, 13) - Me.Label12.TabIndex = 86 + Me.Label12.TabIndex = 133 Me.Label12.Text = "BelegNr" ' 'TextBox_BelegNr ' - Me.TextBox_BelegNr.Location = New System.Drawing.Point(117, 212) + Me.TextBox_BelegNr.Location = New System.Drawing.Point(130, 617) 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 = 85 + Me.TextBox_BelegNr.TabIndex = 132 ' 'Label14 ' Me.Label14.AutoSize = True - Me.Label14.Location = New System.Drawing.Point(596, 240) + Me.Label14.Location = New System.Drawing.Point(609, 645) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(76, 13) - Me.Label14.TabIndex = 84 + Me.Label14.TabIndex = 131 Me.Label14.Text = "StornoBelegNr" ' 'StornoBelegNr ' - Me.StornoBelegNr.Location = New System.Drawing.Point(678, 237) + Me.StornoBelegNr.Location = New System.Drawing.Point(691, 642) Me.StornoBelegNr.Name = "StornoBelegNr" Me.StornoBelegNr.Size = New System.Drawing.Size(78, 20) - Me.StornoBelegNr.TabIndex = 83 + Me.StornoBelegNr.TabIndex = 130 ' 'TextBox_Aktiv ' Me.TextBox_Aktiv.BackColor = System.Drawing.Color.Gray - Me.TextBox_Aktiv.Location = New System.Drawing.Point(23, 506) + Me.TextBox_Aktiv.Location = New System.Drawing.Point(36, 911) Me.TextBox_Aktiv.Name = "TextBox_Aktiv" Me.TextBox_Aktiv.Size = New System.Drawing.Size(123, 20) - Me.TextBox_Aktiv.TabIndex = 82 + Me.TextBox_Aktiv.TabIndex = 129 ' 'Label13 ' Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(329, 110) + Me.Label13.Location = New System.Drawing.Point(342, 515) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(25, 13) - Me.Label13.TabIndex = 81 + Me.Label13.TabIndex = 128 Me.Label13.Text = "Typ" ' 'ComboBox_Typ ' Me.ComboBox_Typ.FormattingEnabled = True Me.ComboBox_Typ.Items.AddRange(New Object() {"0: ZVT Standard", "1: ICP mit Shutter", "2: ICT 220 alt", "3: ICP Zelos", "4: Clover", "5: CCV Base seriell", "10: SIX", "11: OPI", "12: myPOS", "13: TIM-Server"}) - Me.ComboBox_Typ.Location = New System.Drawing.Point(395, 106) + Me.ComboBox_Typ.Location = New System.Drawing.Point(408, 511) 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 = 80 + Me.ComboBox_Typ.TabIndex = 127 Me.ComboBox_Typ.Text = "0: ZVT Standard" ' 'Button_Haendlerbeleg_drucken ' - Me.Button_Haendlerbeleg_drucken.Location = New System.Drawing.Point(323, 477) + Me.Button_Haendlerbeleg_drucken.Location = New System.Drawing.Point(336, 882) Me.Button_Haendlerbeleg_drucken.Name = "Button_Haendlerbeleg_drucken" Me.Button_Haendlerbeleg_drucken.Size = New System.Drawing.Size(122, 23) - Me.Button_Haendlerbeleg_drucken.TabIndex = 79 + Me.Button_Haendlerbeleg_drucken.TabIndex = 126 Me.Button_Haendlerbeleg_drucken.Text = "Drucken" Me.Button_Haendlerbeleg_drucken.UseVisualStyleBackColor = True ' 'TextBox_Kassenbon ' Me.TextBox_Kassenbon.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.TextBox_Kassenbon.Location = New System.Drawing.Point(590, 46) + Me.TextBox_Kassenbon.Location = New System.Drawing.Point(603, 451) 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.TabIndex = 78 + Me.TextBox_Kassenbon.TabIndex = 125 Me.TextBox_Kassenbon.Text = "Kassenbon" ' 'Button_Kundenbeleg_drucken ' - Me.Button_Kundenbeleg_drucken.Location = New System.Drawing.Point(24, 477) + Me.Button_Kundenbeleg_drucken.Location = New System.Drawing.Point(37, 882) Me.Button_Kundenbeleg_drucken.Name = "Button_Kundenbeleg_drucken" Me.Button_Kundenbeleg_drucken.Size = New System.Drawing.Size(122, 23) - Me.Button_Kundenbeleg_drucken.TabIndex = 77 + Me.Button_Kundenbeleg_drucken.TabIndex = 124 Me.Button_Kundenbeleg_drucken.Text = "Drucken" Me.Button_Kundenbeleg_drucken.UseVisualStyleBackColor = True ' 'Button_Gutschrift ' - Me.Button_Gutschrift.Location = New System.Drawing.Point(595, 316) + Me.Button_Gutschrift.Location = New System.Drawing.Point(608, 721) Me.Button_Gutschrift.Name = "Button_Gutschrift" Me.Button_Gutschrift.Size = New System.Drawing.Size(163, 29) - Me.Button_Gutschrift.TabIndex = 76 + 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(595, 263) + Me.Button_Storno.Location = New System.Drawing.Point(608, 668) Me.Button_Storno.Name = "Button_Storno" Me.Button_Storno.Size = New System.Drawing.Size(163, 34) - Me.Button_Storno.TabIndex = 75 + 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(594, 189) + Me.Button_Tagesabschluss.Location = New System.Drawing.Point(607, 594) Me.Button_Tagesabschluss.Name = "Button_Tagesabschluss" Me.Button_Tagesabschluss.Size = New System.Drawing.Size(163, 34) - Me.Button_Tagesabschluss.TabIndex = 74 + Me.Button_Tagesabschluss.TabIndex = 121 Me.Button_Tagesabschluss.Text = "2 = Tagesabschluss" Me.Button_Tagesabschluss.UseVisualStyleBackColor = True ' 'Button_Diagnose ' - Me.Button_Diagnose.Location = New System.Drawing.Point(594, 139) + Me.Button_Diagnose.Location = New System.Drawing.Point(607, 544) Me.Button_Diagnose.Name = "Button_Diagnose" Me.Button_Diagnose.Size = New System.Drawing.Size(164, 33) - Me.Button_Diagnose.TabIndex = 73 + 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(594, 477) + 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 = 72 + 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(395, 77) + Me.CheckBox_Kassedruck.Location = New System.Drawing.Point(408, 482) Me.CheckBox_Kassedruck.Name = "CheckBox_Kassedruck" Me.CheckBox_Kassedruck.Size = New System.Drawing.Size(82, 17) - Me.CheckBox_Kassedruck.TabIndex = 71 + Me.CheckBox_Kassedruck.TabIndex = 118 Me.CheckBox_Kassedruck.Text = "Kassedruck" Me.CheckBox_Kassedruck.UseVisualStyleBackColor = True ' 'Label11 ' Me.Label11.AutoSize = True - Me.Label11.Location = New System.Drawing.Point(320, 237) + Me.Label11.Location = New System.Drawing.Point(333, 642) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(131, 13) - Me.Label11.TabIndex = 70 + Me.Label11.TabIndex = 117 Me.Label11.Text = "Drucktext2 (Händlerbeleg)" ' 'TextBox_Drucktext2 ' - Me.TextBox_Drucktext2.Location = New System.Drawing.Point(323, 263) + Me.TextBox_Drucktext2.Location = New System.Drawing.Point(336, 668) 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.TabIndex = 69 + Me.TextBox_Drucktext2.TabIndex = 116 ' 'Label10 ' Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(21, 237) + Me.Label10.Location = New System.Drawing.Point(34, 642) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(125, 13) - Me.Label10.TabIndex = 68 + Me.Label10.TabIndex = 115 Me.Label10.Text = "Drucktext (Kundenbeleg)" ' 'TextBox_Drucktext ' - Me.TextBox_Drucktext.Location = New System.Drawing.Point(23, 262) + Me.TextBox_Drucktext.Location = New System.Drawing.Point(36, 667) 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.TabIndex = 67 + Me.TextBox_Drucktext.TabIndex = 114 ' 'TextBox_ErgebnisText ' - Me.TextBox_ErgebnisText.Location = New System.Drawing.Point(175, 189) + Me.TextBox_ErgebnisText.Location = New System.Drawing.Point(188, 594) 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 = 66 + Me.TextBox_ErgebnisText.TabIndex = 113 ' 'TextBox_Ergebnis ' - Me.TextBox_Ergebnis.Location = New System.Drawing.Point(117, 189) + Me.TextBox_Ergebnis.Location = New System.Drawing.Point(130, 594) 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 = 65 + Me.TextBox_Ergebnis.TabIndex = 112 ' 'Label9 ' Me.Label9.AutoSize = True - Me.Label9.Location = New System.Drawing.Point(21, 192) + Me.Label9.Location = New System.Drawing.Point(34, 597) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(48, 13) - Me.Label9.TabIndex = 64 + Me.Label9.TabIndex = 111 Me.Label9.Text = "Ergebnis" ' 'Button_Autorisierung ' - Me.Button_Autorisierung.Location = New System.Drawing.Point(175, 153) + Me.Button_Autorisierung.Location = New System.Drawing.Point(188, 558) Me.Button_Autorisierung.Name = "Button_Autorisierung" Me.Button_Autorisierung.Size = New System.Drawing.Size(199, 24) - Me.Button_Autorisierung.TabIndex = 49 + 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(115, 156) + Me.TextBox_Betrag.Location = New System.Drawing.Point(128, 561) 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 = 48 + 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(21, 159) + Me.Label8.Location = New System.Drawing.Point(34, 564) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(38, 13) - Me.Label8.TabIndex = 63 + Me.Label8.TabIndex = 110 Me.Label8.Text = "Betrag" ' 'TextBox_Lizenz ' - Me.TextBox_Lizenz.Location = New System.Drawing.Point(115, 103) + Me.TextBox_Lizenz.Location = New System.Drawing.Point(128, 508) Me.TextBox_Lizenz.Name = "TextBox_Lizenz" Me.TextBox_Lizenz.Size = New System.Drawing.Size(190, 20) - Me.TextBox_Lizenz.TabIndex = 62 + Me.TextBox_Lizenz.TabIndex = 109 ' 'Label7 ' Me.Label7.AutoSize = True - Me.Label7.Location = New System.Drawing.Point(21, 106) + Me.Label7.Location = New System.Drawing.Point(34, 511) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(37, 13) - Me.Label7.TabIndex = 61 + Me.Label7.TabIndex = 108 Me.Label7.Text = "Lizenz" ' 'ComboBox_ComStop ' Me.ComboBox_ComStop.FormattingEnabled = True Me.ComboBox_ComStop.Items.AddRange(New Object() {"1", "2"}) - Me.ComboBox_ComStop.Location = New System.Drawing.Point(323, 74) + Me.ComboBox_ComStop.Location = New System.Drawing.Point(336, 479) Me.ComboBox_ComStop.Name = "ComboBox_ComStop" Me.ComboBox_ComStop.Size = New System.Drawing.Size(38, 21) - Me.ComboBox_ComStop.TabIndex = 60 + Me.ComboBox_ComStop.TabIndex = 107 Me.ComboBox_ComStop.Text = "1" ' 'Label6 ' Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(255, 77) + Me.Label6.Location = New System.Drawing.Point(268, 482) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(50, 13) - Me.Label6.TabIndex = 59 + Me.Label6.TabIndex = 106 Me.Label6.Text = "ComStop" ' 'ComboBox_ComSpeed ' Me.ComboBox_ComSpeed.FormattingEnabled = True Me.ComboBox_ComSpeed.Items.AddRange(New Object() {"9600", "115000"}) - Me.ComboBox_ComSpeed.Location = New System.Drawing.Point(115, 73) + Me.ComboBox_ComSpeed.Location = New System.Drawing.Point(128, 478) Me.ComboBox_ComSpeed.Name = "ComboBox_ComSpeed" Me.ComboBox_ComSpeed.Size = New System.Drawing.Size(121, 21) - Me.ComboBox_ComSpeed.TabIndex = 58 + Me.ComboBox_ComSpeed.TabIndex = 105 Me.ComboBox_ComSpeed.Text = "9600" ' 'Label5 ' Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(21, 77) + Me.Label5.Location = New System.Drawing.Point(34, 482) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(59, 13) - Me.Label5.TabIndex = 57 + Me.Label5.TabIndex = 104 Me.Label5.Text = "ComSpeed" ' 'TextBox_Port ' - Me.TextBox_Port.Location = New System.Drawing.Point(492, 47) + Me.TextBox_Port.Location = New System.Drawing.Point(505, 452) 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 = 56 + Me.TextBox_Port.TabIndex = 103 ' 'Label4 ' Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(460, 50) + Me.Label4.Location = New System.Drawing.Point(473, 455) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(26, 13) - Me.Label4.TabIndex = 55 + Me.Label4.TabIndex = 102 Me.Label4.Text = "Port" ' 'Label3 ' Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(255, 50) + Me.Label3.Location = New System.Drawing.Point(268, 455) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(17, 13) - Me.Label3.TabIndex = 54 + Me.Label3.TabIndex = 101 Me.Label3.Text = "IP" ' 'TextBox_IP ' - Me.TextBox_IP.Location = New System.Drawing.Point(323, 47) + Me.TextBox_IP.Location = New System.Drawing.Point(336, 452) 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 = 53 + Me.TextBox_IP.TabIndex = 100 ' 'Label2 ' Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(21, 49) + Me.Label2.Location = New System.Drawing.Point(34, 454) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(31, 13) - Me.Label2.TabIndex = 52 + Me.Label2.TabIndex = 99 Me.Label2.Text = "COM" ' '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(115, 46) + Me.ComboBox_COM.Location = New System.Drawing.Point(128, 451) Me.ComboBox_COM.Name = "ComboBox_COM" Me.ComboBox_COM.Size = New System.Drawing.Size(121, 21) - Me.ComboBox_COM.TabIndex = 51 + Me.ComboBox_COM.TabIndex = 98 Me.ComboBox_COM.Text = "LAN" ' 'TextBox_KasseNr ' - Me.TextBox_KasseNr.Location = New System.Drawing.Point(115, 20) + Me.TextBox_KasseNr.Location = New System.Drawing.Point(128, 425) 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 = 50 + Me.TextBox_KasseNr.TabIndex = 97 Me.TextBox_KasseNr.Text = "1" ' - 'Label1 + 'Label16 ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(21, 23) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(47, 13) - Me.Label1.TabIndex = 47 - Me.Label1.Text = "KasseNr" + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(34, 428) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(47, 13) + Me.Label16.TabIndex = 94 + Me.Label16.Text = "KasseNr" ' - 'POS + 'btnNew + ' + Me.btnNew.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btnNew.Location = New System.Drawing.Point(741, 924) + 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 + ' + '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, 543) + Me.ClientSize = New System.Drawing.Size(841, 959) + Me.Controls.Add(Me.btnNew) Me.Controls.Add(Me.CheckBoxDummy) Me.Controls.Add(Me.CheckBoxAutodruck) Me.Controls.Add(Me.Label15) @@ -515,14 +551,18 @@ Partial Class POS 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.Label1) - Me.Name = "POS" - Me.Text = "POS" + Me.Controls.Add(Me.dgvTerminals) + Me.Name = "frmPOSTerminal" + Me.Text = "POS Terminal einstellen" + CType(Me.dgvTerminals, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub - + Friend WithEvents dgvTerminals As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents Label1 As Label Friend WithEvents CheckBoxDummy As CheckBox Friend WithEvents CheckBoxAutodruck As CheckBox Friend WithEvents Label15 As Label @@ -566,5 +606,6 @@ Partial Class POS Friend WithEvents Label2 As Label Friend WithEvents ComboBox_COM As ComboBox Friend WithEvents TextBox_KasseNr As TextBox - Friend WithEvents Label1 As Label + Friend WithEvents Label16 As Label + Friend WithEvents btnNew As Button End Class diff --git a/SDL/kassenbuch/POS.resx b/SDL/kassenbuch/frmPOSTerminal.resx similarity index 100% rename from SDL/kassenbuch/POS.resx rename to SDL/kassenbuch/frmPOSTerminal.resx diff --git a/SDL/kassenbuch/frmPOSTerminal.vb b/SDL/kassenbuch/frmPOSTerminal.vb new file mode 100644 index 00000000..7096bb0c --- /dev/null +++ b/SDL/kassenbuch/frmPOSTerminal.vb @@ -0,0 +1,404 @@ +Imports System.Drawing.Printing +Imports Microsoft.Win32 + +Public Class frmPOSTerminal + + 'Public Sub New(ByVal _rptKundenBeleg, betrag) + ' rptKundenBeleg = _rptKundenBeleg + ' betrag = CInt(betrag) + + 'End Sub + + Public Sub New(_kasse, _kassenId) + InitializeComponent() + kasse = _kasse + kassenID = _kassenId + End Sub + + + + + ' Erstellt durch Jan Groetzner, Groetzner Unternehmensberatung, Seevetal + ' Version: 02.03.2020 + ' Kontakt: easyzvt@groetzner.de + + ' Dieser Quellcode dient als Beispielimplementierung zur Einbindung von EasyZVT in die eigene Kassenanwendung. + ' Der Code und auch Teile davon dürfen frei kopiert und in der Kassenanwendung verwendet werden + + Private EasyZVT_Worker As System.ComponentModel.BackgroundWorker = New System.ComponentModel.BackgroundWorker() + Private Funktion As Integer + Private rptKundenBeleg As rptKundenBeleg + Private Betrag As Integer + Private kasse As String + Private kassenID As Integer + + Private WithEvents PDoc As Printing.PrintDocument + + Private Sub POS_Load(sender As Object, e As EventArgs) ' Handles MyBase.Load + ' Anwendungsstart + ' Worker-Thread wird initialisiert + ' Vorherige Werte werden aus der Registry gelesen und in die Oberfläche eingetragen + ' Die Werte in der Oberfläche sollten in der echten Anwendung in der Stammdatentabelle der Kasse gespeichert werden und nicht in der Registry. Geht aber natürlich auch hier. + + Try + + 'Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + 'TextBox_KasseNr.Text = ZVTKey.GetValue("KasseNr", "1") + 'ComboBox_COM.Text = ZVTKey.GetValue("COM", "LAN") + 'TextBox_IP.Text = ZVTKey.GetValue("IP", "192.168.86.122") + 'TextBox_Port.Text = ZVTKey.GetValue("Port", "20007") + 'ComboBox_ComSpeed.Text = ZVTKey.GetValue("ComSpeed", "9600") + 'ComboBox_ComStop.Text = ZVTKey.GetValue("ComStop", "1") + 'TextBox_Lizenz.Text = ZVTKey.GetValue("Lizenz", "") + 'If ZVTKey.GetValue("Kassedruck", 0) = 1 Then + ' CheckBox_Kassedruck.Checked = True + 'Else + ' CheckBox_Kassedruck.Checked = False + 'End If + 'ComboBox_Typ.SelectedIndex = ComboBox_Typ.FindString(ZVTKey.GetValue("Typ", 0).ToString) + 'PopulateInstalledPrintersCombo() + 'comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", "")) + 'If ZVTKey.GetValue("DemoAutodruck", 0) = 0 Then + ' CheckBoxAutodruck.Checked = False + 'Else + ' CheckBoxAutodruck.Checked = True + 'End If + 'If ZVTKey.GetValue("DemoDummydruck", 1) = 0 Then + ' CheckBoxDummy.Checked = False + 'Else + ' CheckBoxDummy.Checked = True + 'End If + 'ZVTKey.Close() + + + Catch ex As Exception + MessageBox.Show("Fehler beim Einlesen der Standardwerte: " & ex.Message) + End Try + End Sub + + + Private Sub SetRegistryParameter() + 'Funktion holt Werte direkt aus der Oberfläche (TextBox_...) und schreibt diese in die Registry als Eingabeparameter für EasyZVT. + 'Im wahren Leben stehen diese Werte in Datenbankeinträgen der Stammdatenverwaltung in der Hauptanwendung + + Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + Dim TypSelected As String + Dim Typ As Long + + Try + + + + 'ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord) + 'TypSelected = Strings.Left(ComboBox_Typ.Text, 2).Replace(":", "") + 'Typ = TypSelected + 'ZVTKey.SetValue("Typ", Typ, RegistryValueKind.DWord) + 'ZVTKey.SetValue("KasseNr", TextBox_KasseNr.Text, RegistryValueKind.String) + 'ZVTKey.SetValue("COM", ComboBox_COM.Text, RegistryValueKind.String) + 'ZVTKey.SetValue("IP", TextBox_IP.Text, RegistryValueKind.String) + 'ZVTKey.SetValue("Port", CInt(TextBox_Port.Text), RegistryValueKind.DWord) + 'ZVTKey.SetValue("ComSpeed", CInt(ComboBox_ComSpeed.Text), RegistryValueKind.DWord) + 'ZVTKey.SetValue("ComStop", CInt(ComboBox_ComStop.Text), RegistryValueKind.DWord) + 'ZVTKey.SetValue("Lizenz", TextBox_Lizenz.Text, RegistryValueKind.String) + 'If Funktion = 0 Or Funktion = 4 Then + ' Betrag = CInt("0" & TextBox_Betrag.Text) + ' ZVTKey.SetValue("Betrag", Betrag, RegistryValueKind.DWord) + 'End If + 'If Funktion = 3 Then + ' ZVTKey.SetValue("StornoBetrag", CInt("0" & TextBox_Betrag.Text), RegistryValueKind.DWord) + ' ZVTKey.SetValue("StornoBelegNr", CInt("0" & StornoBelegNr.Text), RegistryValueKind.DWord) + 'End If + 'If CheckBox_Kassedruck.Checked Then + ' ZVTKey.SetValue("Kassedruck", 1, RegistryValueKind.DWord) + 'Else + ' ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord) + 'End If + 'ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Zur Sicherheit, falls EasyZVT gar nicht installiert ist oder nicht gestartet werden kann + 'ZVTKey.SetValue("ErgebnisText", "EasyZVT konnte nicht gestartet werden", RegistryValueKind.String) + 'ZVTKey.SetValue("DemoDruckername", comboInstalledPrinters.Text, RegistryValueKind.String) + 'If CheckBoxAutodruck.Checked Then + ' ZVTKey.SetValue("DemoAutodruck", 1, RegistryValueKind.DWord) + 'Else + ' ZVTKey.SetValue("DemoAutodruck", 0, RegistryValueKind.DWord) + 'End If + 'If CheckBoxDummy.Checked Then + ' ZVTKey.SetValue("DemoDummydruck", 1, RegistryValueKind.DWord) + 'Else + ' ZVTKey.SetValue("DemoDummydruck", 0, RegistryValueKind.DWord) + 'End If + 'Button_Autorisierung.Enabled = False + 'Button_Diagnose.Enabled = False + 'Button_Tagesabschluss.Enabled = False + 'Button_Storno.Enabled = False + 'Button_Gutschrift.Enabled = False + + 'TextBox_ErgebnisText.Text = "EasyZVT-Zahlung aktiv" + 'TextBox_Aktiv.Text = "warte auf Aktiv=0" + + + Catch ex As Exception + MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message) + Exit Sub + End Try + ZVTKey.Close() + + End Sub + Private Sub Autorisierung() + + Funktion = 0 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + + End Sub + Private Sub Button_Autorisierung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + 'Zahlung per Klick auslösen + Autorisierung() + End Sub + Private Sub TextBox_Betrag_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) + + End Sub + + Private Sub EasyZVT_Async(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) + ' Programmstart von ZVTStart.exe und warten auf Programmende + + Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + Try + Dim ZVTStart As String = ZVTKey.GetValue("Start") + Dim Proc As System.Diagnostics.Process + + ' If (Len(ZVTStart) > 1) Then + ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Wenn das Ergebnis 1000 bleibt konnte EasyZVT nicht gestartet werden + Proc = System.Diagnostics.Process.Start(ZVTStart) + System.Threading.Thread.Sleep(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 + Catch ex As Exception + MessageBox.Show("Der Programmstart ist fehlgeschlagen: " & ex.Message) + Exit Sub + End Try + ZVTKey.Close() + End Sub + Private Sub EasyZVT_OnCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) + ' Diese Funktion wird automatisch aufgerufen wenn der Worker-Thread seine Arbeit beendet + ' und EasyZVT seine Ausgabewerte in die Registry zurückgeschrieben hat + + + 'Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + 'TextBox_Aktiv.Text = "" + 'TextBox_Ergebnis.Text = ZVTKey.GetValue("Ergebnis") + 'TextBox_ErgebnisText.Text = ZVTKey.GetValue("ErgebnisText") + 'TextBox_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf) + 'TextBox_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf) + + 'TextBox_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString + 'TextBox_Betrag.Text = "" + + 'If CheckBoxAutodruck.Checked Then + ' If Len(TextBox_Drucktext.Text) > 1 Then + ' Button_Kundenbeleg_drucken.PerformClick() + ' End If + ' If Len(TextBox_Drucktext2.Text) > 1 Then + ' Button_Haendlerbeleg_drucken.PerformClick() + ' End If + + 'End If + + 'TextBox_Betrag.Focus() + 'Button_Autorisierung.Enabled = True + 'Button_Diagnose.Enabled = True + 'Button_Tagesabschluss.Enabled = True + 'Button_Storno.Enabled = True + 'Button_Gutschrift.Enabled = True + 'ZVTKey.Close() + End Sub + + + Private Sub Button_Diagnose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Funktion = 1 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + + End Sub + + Private Sub Button_Tagesabschluss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Funktion = 2 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + + End Sub + + Private Sub Button_Storno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Funktion = 3 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + + End Sub + + Private Sub Button_Gutschrift_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Funktion = 4 + SetRegistryParameter() + EasyZVT_Worker.RunWorkerAsync() + + End Sub + + + Private Sub PDoc_SeiteDrucken(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PDoc.PrintPage + + 'Dim Textfont As Font = TextBox_Kassenbon.Font + Dim Hoehe, Breite As Integer + Dim Links, Oben As Integer + With PDoc.DefaultPageSettings + 'Hoehe = .PaperSize.Height - .Margins.Top - .Margins.Bottom + 'Breite = .PaperSize.Width - .Margins.Left - .Margins.Right + Hoehe = 500 ' 5,00 Zoll + Breite = 270 ' = 2,70 zoll + 'Links = PDoc.DefaultPageSettings.Margins.Left + 'Oben = PDoc.DefaultPageSettings.Margins.Top + Links = 10 + Oben = 10 + End With + ' Einen Rahmen zeichnen + Dim Rahmen As New Rectangle(Links, Oben, Breite, Hoehe) + e.Graphics.DrawRectangle(Pens.Blue, Rahmen) + ' In den Rahmen den Kassenbontext zeichnen + Dim StrFormat As StringFormat + StrFormat = New StringFormat(StringFormatFlags.LineLimit) + 'e.Graphics.DrawString(TextBox_Kassenbon.Text, Textfont, Brushes.Black, Rahmen, StrFormat) + e.HasMorePages = False + + End Sub + Private Sub 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. + ' The pkInstalledPrinters string will be used to provide the display string. + Dim i As Integer + Dim pkInstalledPrinters As String + + For i = 0 To PrinterSettings.InstalledPrinters.Count - 1 + pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i) + 'comboInstalledPrinters.Items.Add(pkInstalledPrinters) + Next + End Sub + + Private Sub comboInstalledPrinters_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + + Sub initDgv() + + + '.Columns.Clear() + + dgvTerminals.SET_SQL("SELECT SELECT [pos_Id],[pos_aktiv] ,[pos_kasse] ,[pos_kassennr] ,[pos_com] + ,[pos_baudrate] ,[pos_comspeed] ,[pos_comstop] ,[pos_ip] ,[pos_port] ,[pos_typ] + ,[pos_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() + + If dgvTerminals.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_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 + initDgv() + + + If dgvTerminals.Columns.Count < 1 Then Exit Sub + + loadCurrentPOS() + + Catch ex As Exception + MessageBox.Show("Fehler beim Einlesen der Standardwerte: " & ex.Message) + End Try + End Sub + + Private Sub loadCurrentPOS() + + 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) + + TextBox_KasseNr.Text = currentPOS.pos_kassennr + ComboBox_COM.Text = currentPOS.pos_com + TextBox_IP.Text = currentPOS.pos_ip + TextBox_Port.Text = currentPOS.pos_port + ComboBox_ComSpeed.Text = currentPOS.pos_comspeed + ComboBox_ComStop.Text = currentPOS.pos_comstop + TextBox_Lizenz.Text = currentPOS.pos_lizenz + If currentPOS.pos_kassendruck Then + CheckBox_Kassedruck.Checked = True + Else + CheckBox_Kassedruck.Checked = False + End If + + ComboBox_Typ.SelectedIndex = ComboBox_Typ.FindString(currentPOS.pos_typ) + PopulateInstalledPrintersCombo() + 'comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", "")) + If Not currentPOS.pos_demoausdruck Then + CheckBoxAutodruck.Checked = False + Else + CheckBoxAutodruck.Checked = True + End If + + If Not currentPOS.pos_demodummyausdruck Then + CheckBoxDummy.Checked = False + Else + CheckBoxDummy.Checked = True + End If + + + End Sub + + Private Sub dgvTerminals_SelectionChanged(sender As Object, e As EventArgs) Handles dgvTerminals.SelectionChanged + loadCurrentPOS() + End Sub +End Class \ No newline at end of file From 21cf23cab00379089692fca0a4ae2364f4a0df7b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 1 Mar 2023 12:04:49 +0100 Subject: [PATCH 06/11] POS Terminal --- SDL/Classes/cRKSV_POS.vb | 23 +- SDL/kassenbuch/frmPOSTerminal.Designer.vb | 265 ++++++++---- SDL/kassenbuch/frmPOSTerminal.vb | 475 +++++++++++++++------- 3 files changed, 522 insertions(+), 241 deletions(-) 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 From 57dd4748c529f2ba3264eb6c987d6ea7e429d989 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 1 Mar 2023 13:53:56 +0100 Subject: [PATCH 07/11] POS in Kassa eingebaut. --- SDL/kassenbuch/frmBelegNeu.Designer.vb | 30 ++--- SDL/kassenbuch/frmBelegNeu.vb | 162 +++++++++++++++++++++++-- 2 files changed, 170 insertions(+), 22 deletions(-) diff --git a/SDL/kassenbuch/frmBelegNeu.Designer.vb b/SDL/kassenbuch/frmBelegNeu.Designer.vb index fcd17e15..639b45ea 100644 --- a/SDL/kassenbuch/frmBelegNeu.Designer.vb +++ b/SDL/kassenbuch/frmBelegNeu.Designer.vb @@ -97,6 +97,7 @@ Partial Class frmBelegNeu Me.Label1 = New System.Windows.Forms.Label() Me.kdkunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.pnlOPt = New System.Windows.Forms.Panel() + Me.btnPOS = New System.Windows.Forms.Button() Me.cbxBelegOffnen = New System.Windows.Forms.CheckBox() Me.lblStorno = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() @@ -135,7 +136,6 @@ Partial Class frmBelegNeu Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel() - Me.btnPOS = New System.Windows.Forms.Button() CType(Me.dgvBelegPos, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnl.SuspendLayout() Me.pnlData.SuspendLayout() @@ -1194,6 +1194,20 @@ Partial Class frmBelegNeu Me.pnlOPt.Size = New System.Drawing.Size(624, 92) Me.pnlOPt.TabIndex = 6 ' + 'btnPOS + ' + Me.btnPOS.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnPOS.ForeColor = System.Drawing.Color.Black + Me.btnPOS.Image = Global.SDL.My.Resources.Resources.verag_Card1 + Me.btnPOS.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnPOS.Location = New System.Drawing.Point(486, 33) + Me.btnPOS.Name = "btnPOS" + Me.btnPOS.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0) + Me.btnPOS.Size = New System.Drawing.Size(64, 59) + Me.btnPOS.TabIndex = 16 + Me.btnPOS.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnPOS.UseVisualStyleBackColor = True + ' 'cbxBelegOffnen ' Me.cbxBelegOffnen.AutoSize = True @@ -1647,20 +1661,6 @@ Partial Class frmBelegNeu Me.FlowLayoutPanel2.TabIndex = 3 Me.FlowLayoutPanel2.Visible = False ' - 'btnPOS - ' - Me.btnPOS.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnPOS.ForeColor = System.Drawing.Color.Black - Me.btnPOS.Image = Global.SDL.My.Resources.Resources.verag_Card1 - Me.btnPOS.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnPOS.Location = New System.Drawing.Point(486, 33) - Me.btnPOS.Name = "btnPOS" - Me.btnPOS.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0) - Me.btnPOS.Size = New System.Drawing.Size(64, 59) - Me.btnPOS.TabIndex = 16 - Me.btnPOS.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnPOS.UseVisualStyleBackColor = True - ' 'frmBelegNeu ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index 5bf815b1..1f758a11 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -1,7 +1,11 @@ Imports System.Data.SqlClient Imports System.Drawing.Printing Imports System.Globalization +Imports com.sun.org.apache.xpath.internal.operations +Imports DAKOSY_Worker.DEXPRD +Imports Microsoft.Win32 Imports SDL.RKSVServer +Imports VERAG_PROG_ALLGEMEIN.TESTJSON Public Class frmBelegNeu Implements System.ComponentModel.INotifyPropertyChanged @@ -30,6 +34,7 @@ Public Class frmBelegNeu Private EasyZVT_Worker As System.ComponentModel.BackgroundWorker = New System.ComponentModel.BackgroundWorker() Private Funktion As Integer Private Betrag As Integer = 0 + Private posTerminal As cRKSV_POS Public aktFiliale As Integer = 0 Public aktAbfertigungsNr As Integer = 0 @@ -228,7 +233,7 @@ Public Class frmBelegNeu Label17.Visible = True btnPrint.Text = "Beleg Kopie" & vbNewLine & "drucken" End If - + If BELEG.Belegart = "1" Then EA = "E" Label19.Text = "Kunden-Beleg" @@ -247,7 +252,7 @@ Public Class frmBelegNeu init() End If - + initArt() 'Einnahme/AusgabeBeleg lblMandant_niederlassung.Text = PERSONAL.Niederlassung @@ -281,6 +286,9 @@ Public Class frmBelegNeu cboFiliale.Enabled = False End If + AddHandler EasyZVT_Worker.DoWork, New ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async) + AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted) + End Sub @@ -308,7 +316,7 @@ Public Class frmBelegNeu Case Else : cbxSplittung.Checked = Not If(BELEG.LKW_Beleg, False) End Select - + aktFiliale = BELEG.FilialenNr aktAbfertigungsNr = BELEG.AbfertigungsNr @@ -723,7 +731,7 @@ Public Class frmBelegNeu ' Dim RKSV_Service_Location = "\\192.168.0.106:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" - Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click, btnPOS.Click + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click ' ,btnPOS.Click Dim IsPosPayment As Boolean = False @@ -1106,7 +1114,8 @@ Public Class frmBelegNeu ' If EA = "E" Then lblBetrag_Netto.Text = sum.ToString("C") lblBetrag_Steuern.Text = (sum * txtSteuersatz._value).ToString("C") - lblBetrag_Brutto.Text = (sum + sum * txtSteuersatz._value).ToString("C") + Betrag = (sum + sum * txtSteuersatz._value) + lblBetrag_Brutto.Text = (Betrag).ToString("C") ' Else ' lblBetrag_Netto.Text = (-1 * sum).ToString("C") ' lblBetrag_Steuern.Text = (-1 * (sum * txtSteuersatz._value)).ToString("C") @@ -1423,7 +1432,8 @@ Public Class frmBelegNeu End If End Sub - + + Function cntPosFilAbf(FilialenNr, AbfertigungsNr) As Integer For Each b In BELEG.POS @@ -1462,13 +1472,151 @@ Public Class frmBelegNeu End If Next - + 'neu Laden FlowLayoutPanel.Controls.Clear() iniChangePNL() End Sub + Private Sub EasyZVT_Async(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) + ' Programmstart von ZVTStart.exe und warten auf Programmende + + Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + Try + Dim ZVTStart As String = ZVTKey.GetValue("Start") + Dim Proc As System.Diagnostics.Process + + If (Len(ZVTStart) > 1) Then + ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Wenn das Ergebnis 1000 bleibt konnte EasyZVT nicht gestartet werden + Proc = System.Diagnostics.Process.Start(ZVTStart) + System.Threading.Thread.Sleep(posTerminal.pos_wartezeit) ' Warte xx Sekunden bis Prozess ZVTStart geladen ist, dann erst anfangen Flag Aktiv abzufragen + While ZVTKey.GetValue("Aktiv") = 1 + System.Threading.Thread.Sleep(500) ' Warten... + + End While + + Else + MsgBox("EasyZVT ist nicht installiert. Bitte im Internet Explorer über www.easyzvt.de/publish installieren") + End If + Catch ex As Exception + MessageBox.Show("Der Programmstart ist fehlgeschlagen: " & ex.Message) + Exit Sub + End Try + ZVTKey.Close() + End Sub + Private Sub EasyZVT_OnCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) + ' Diese Funktion wird automatisch aufgerufen wenn der Worker-Thread seine Arbeit beendet + ' und EasyZVT seine Ausgabewerte in die Registry zurückgeschrieben hat + + + Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + Dim response As String = "" + response &= ZVTKey.GetValue("Ergebnis") & vbNewLine + response &= ZVTKey.GetValue("ErgebnisText") + + 'TextBox_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf) + 'TextBox_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf) + + 'TextBox_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString + 'TextBox_Betrag.Text = "" + + 'If CheckBoxAutodruck.Checked Then + ' If Len(TextBox_Drucktext.Text) > 1 Then + ' Button_Kundenbeleg_drucken.PerformClick() + ' End If + ' If Len(TextBox_Drucktext2.Text) > 1 Then + ' Button_Haendlerbeleg_drucken.PerformClick() + ' End If + + 'End If + + 'TextBox_Betrag.Focus() + 'Button_Autorisierung.Enabled = True + 'Button_Diagnose.Enabled = True + 'Button_Tagesabschluss.Enabled = True + 'Button_Storno.Enabled = True + 'Button_Gutschrift.Enabled = True + ZVTKey.Close() + MsgBox(response) + End Sub + + Private Sub btnPOS_Click(sender As Object, e As EventArgs) Handles btnPOS.Click + + If cboKassen.SelectedItem.Text = "" Then Exit Sub + + + Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblRKSV_POS WHERE [pos_aktiv] = 1 AND [pos_kasse]='" & cboKassen.SelectedItem.Value & "'", "FMZOLL") + + Select Case dt.Rows.Count + Case 0 + MsgBox("Für diese Kasse ist kein aktives POS-Terminal hinterlegt!") + Exit Sub + Case 1 + + + posTerminal = New cRKSV_POS(dt.Rows(0).Item("pos_id"), dt.Rows(0).Item("pos_kasse")) + + Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + Dim Typ As Long + + Try + + ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord) + Typ = posTerminal.pos_typ + ZVTKey.SetValue("Typ", Typ, RegistryValueKind.DWord) + ZVTKey.SetValue("KasseNr", posTerminal.pos_kassennr, RegistryValueKind.String) + ZVTKey.SetValue("COM", posTerminal.pos_com, RegistryValueKind.String) + ZVTKey.SetValue("IP", posTerminal.pos_ip, RegistryValueKind.String) + ZVTKey.SetValue("Port", CInt(posTerminal.pos_port), RegistryValueKind.DWord) + ZVTKey.SetValue("ComSpeed", CInt(posTerminal.pos_comspeed), RegistryValueKind.DWord) + ZVTKey.SetValue("ComStop", CInt(posTerminal.pos_comstop), RegistryValueKind.DWord) + ZVTKey.SetValue("Lizenz", posTerminal.pos_lizenz, RegistryValueKind.String) + If Funktion = 0 Or Funktion = 4 Then + ZVTKey.SetValue("Betrag", Betrag * 100, RegistryValueKind.DWord) 'CENTbeträge 1€ --> 100 CENT + End If + If Funktion = 3 Then + 'ZVTKey.SetValue("StornoBetrag", CInt("0" & TextBox_Betrag.Text), RegistryValueKind.DWord) + 'ZVTKey.SetValue("StornoBelegNr", CInt("0" & StornoBelegNr.Text), RegistryValueKind.DWord) + End If + If posTerminal.pos_kassendruck Then + ZVTKey.SetValue("Kassedruck", 1, RegistryValueKind.DWord) + Else + ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord) + End If + ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Zur Sicherheit, falls EasyZVT gar nicht installiert ist oder nicht gestartet werden kann + ZVTKey.SetValue("ErgebnisText", "EasyZVT konnte nicht gestartet werden", RegistryValueKind.String) + 'ZVTKey.SetValue("DemoDruckername", comboInstalledPrinters.Text, RegistryValueKind.String) + 'If CheckBoxAutodruck.Checked Then + ' ZVTKey.SetValue("DemoAutodruck", 1, RegistryValueKind.DWord) + 'Else + ' ZVTKey.SetValue("DemoAutodruck", 0, RegistryValueKind.DWord) + 'End If + 'If CheckBoxDummy.Checked Then + ' ZVTKey.SetValue("DemoDummydruck", 1, RegistryValueKind.DWord) + 'Else + ' ZVTKey.SetValue("DemoDummydruck", 0, RegistryValueKind.DWord) + 'End If + + EasyZVT_Worker.RunWorkerAsync() + + + Catch ex As Exception + MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message) + Exit Sub + End Try + ZVTKey.Close() + + Case Else + + End Select + + + + + End Sub + + End Class From a698f874049f8133b333d97f2211d8a01f7e3e85 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 1 Mar 2023 16:04:50 +0100 Subject: [PATCH 08/11] POS Terminal -> Funktion mei mehreren Kassenterminals pro Kassenplatz bzw Kasse. --- SDL/kassenbuch/frmBelegNeu.Designer.vb | 8 ++ SDL/kassenbuch/frmBelegNeu.resx | 3 + SDL/kassenbuch/frmBelegNeu.vb | 150 ++++++++++++++++--------- 3 files changed, 105 insertions(+), 56 deletions(-) diff --git a/SDL/kassenbuch/frmBelegNeu.Designer.vb b/SDL/kassenbuch/frmBelegNeu.Designer.vb index 639b45ea..531599b5 100644 --- a/SDL/kassenbuch/frmBelegNeu.Designer.vb +++ b/SDL/kassenbuch/frmBelegNeu.Designer.vb @@ -22,6 +22,7 @@ Partial Class frmBelegNeu 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBelegNeu)) Me.dgvBelegPos = New System.Windows.Forms.DataGridView() Me.clmnAnzahl = New System.Windows.Forms.DataGridViewTextBoxColumn() @@ -136,6 +137,7 @@ Partial Class frmBelegNeu Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) CType(Me.dgvBelegPos, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnl.SuspendLayout() Me.pnlData.SuspendLayout() @@ -1661,6 +1663,11 @@ Partial Class frmBelegNeu Me.FlowLayoutPanel2.TabIndex = 3 Me.FlowLayoutPanel2.Visible = False ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 26) + ' 'frmBelegNeu ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) @@ -1801,4 +1808,5 @@ Partial Class frmBelegNeu Friend WithEvents txtzuKassieren As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label22 As System.Windows.Forms.Label Friend WithEvents btnPOS As Button + Friend WithEvents ContextMenuStrip1 As ContextMenuStrip End Class diff --git a/SDL/kassenbuch/frmBelegNeu.resx b/SDL/kassenbuch/frmBelegNeu.resx index 33868bc3..5a022f1c 100644 --- a/SDL/kassenbuch/frmBelegNeu.resx +++ b/SDL/kassenbuch/frmBelegNeu.resx @@ -156,6 +156,9 @@ True + + 17, 17 + diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index 1f758a11..f6e8d818 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -2,6 +2,7 @@ Imports System.Drawing.Printing Imports System.Globalization Imports com.sun.org.apache.xpath.internal.operations +Imports com.sun.xml.internal.ws.api.model Imports DAKOSY_Worker.DEXPRD Imports Microsoft.Win32 Imports SDL.RKSVServer @@ -35,6 +36,10 @@ Public Class frmBelegNeu Private Funktion As Integer Private Betrag As Integer = 0 Private posTerminal As cRKSV_POS + Private dt As DataTable + Private setBreak As Boolean = True + Dim sourceCnTxt As Control = Nothing + Public aktFiliale As Integer = 0 Public aktAbfertigungsNr As Integer = 0 @@ -731,7 +736,7 @@ Public Class frmBelegNeu ' Dim RKSV_Service_Location = "\\192.168.0.106:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" - Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click ' ,btnPOS.Click + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click ', btnPOS.Click Dim IsPosPayment As Boolean = False @@ -868,6 +873,12 @@ Public Class frmBelegNeu Me.DialogResult = Windows.Forms.DialogResult.OK 'printBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString) 'Beleg drucken + If IsPosPayment And Betrag > 0 Then + POSpayment(sender, e) + While setBreak + System.Threading.Thread.Sleep(5000) + End While + End If Select Case BELEG.Belegart Case "1" @@ -913,6 +924,8 @@ Public Class frmBelegNeu Me.Cursor = Cursors.Default End If + + Catch ex As Exception Me.DialogResult = Windows.Forms.DialogResult.None Me.Cursor = Cursors.Default @@ -1541,74 +1554,30 @@ Public Class frmBelegNeu MsgBox(response) End Sub - Private Sub btnPOS_Click(sender As Object, e As EventArgs) Handles btnPOS.Click + Private Sub POSpayment(sender As Object, e As EventArgs) Handles btnPOS.Click If cboKassen.SelectedItem.Text = "" Then Exit Sub - Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblRKSV_POS WHERE [pos_aktiv] = 1 AND [pos_kasse]='" & cboKassen.SelectedItem.Value & "'", "FMZOLL") + dt = SQL.loadDgvBySql("SELECT * FROM tblRKSV_POS WHERE [pos_aktiv] = 1 AND [pos_kasse]='" & cboKassen.SelectedItem.Value & "'", "FMZOLL") Select Case dt.Rows.Count Case 0 MsgBox("Für diese Kasse ist kein aktives POS-Terminal hinterlegt!") Exit Sub Case 1 - - - posTerminal = New cRKSV_POS(dt.Rows(0).Item("pos_id"), dt.Rows(0).Item("pos_kasse")) - - Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) - Dim Typ As Long - - Try - - ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord) - Typ = posTerminal.pos_typ - ZVTKey.SetValue("Typ", Typ, RegistryValueKind.DWord) - ZVTKey.SetValue("KasseNr", posTerminal.pos_kassennr, RegistryValueKind.String) - ZVTKey.SetValue("COM", posTerminal.pos_com, RegistryValueKind.String) - ZVTKey.SetValue("IP", posTerminal.pos_ip, RegistryValueKind.String) - ZVTKey.SetValue("Port", CInt(posTerminal.pos_port), RegistryValueKind.DWord) - ZVTKey.SetValue("ComSpeed", CInt(posTerminal.pos_comspeed), RegistryValueKind.DWord) - ZVTKey.SetValue("ComStop", CInt(posTerminal.pos_comstop), RegistryValueKind.DWord) - ZVTKey.SetValue("Lizenz", posTerminal.pos_lizenz, RegistryValueKind.String) - If Funktion = 0 Or Funktion = 4 Then - ZVTKey.SetValue("Betrag", Betrag * 100, RegistryValueKind.DWord) 'CENTbeträge 1€ --> 100 CENT - End If - If Funktion = 3 Then - 'ZVTKey.SetValue("StornoBetrag", CInt("0" & TextBox_Betrag.Text), RegistryValueKind.DWord) - 'ZVTKey.SetValue("StornoBelegNr", CInt("0" & StornoBelegNr.Text), RegistryValueKind.DWord) - End If - If posTerminal.pos_kassendruck Then - ZVTKey.SetValue("Kassedruck", 1, RegistryValueKind.DWord) - Else - ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord) - End If - ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Zur Sicherheit, falls EasyZVT gar nicht installiert ist oder nicht gestartet werden kann - ZVTKey.SetValue("ErgebnisText", "EasyZVT konnte nicht gestartet werden", RegistryValueKind.String) - 'ZVTKey.SetValue("DemoDruckername", comboInstalledPrinters.Text, RegistryValueKind.String) - 'If CheckBoxAutodruck.Checked Then - ' ZVTKey.SetValue("DemoAutodruck", 1, RegistryValueKind.DWord) - 'Else - ' ZVTKey.SetValue("DemoAutodruck", 0, RegistryValueKind.DWord) - 'End If - 'If CheckBoxDummy.Checked Then - ' ZVTKey.SetValue("DemoDummydruck", 1, RegistryValueKind.DWord) - 'Else - ' ZVTKey.SetValue("DemoDummydruck", 0, RegistryValueKind.DWord) - 'End If - - EasyZVT_Worker.RunWorkerAsync() - - - Catch ex As Exception - MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message) - Exit Sub - End Try - ZVTKey.Close() + PosPAyment2() Case Else + ContextMenuStrip1.Items.Clear() + For i As Integer = 0 To dt.Rows.Count - 1 + Dim posMenu = New ToolStripMenuItem() With {.Text = dt.Rows(i).Item("pos_bezeichnung"), .Name = dt.Rows(i).Item("pos_id"), .Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)} + AddHandler posMenu.Click, AddressOf mnuItem_Clicked + ContextMenuStrip1.Items.Add(posMenu) + Next + + ContextMenuStrip1.Show(Cursor.Position) End Select @@ -1616,6 +1585,75 @@ Public Class frmBelegNeu End Sub + Private Sub PosPAyment2(Optional posid As Integer = -1) + + + If posid = -1 Then + posTerminal = New cRKSV_POS(dt.Rows(0).Item("pos_id"), dt.Rows(0).Item("pos_kasse")) + Else + posTerminal = New cRKSV_POS(posid, dt.Rows(0).Item("pos_kasse")) + End If + + Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True) + Dim Typ As Long + + Try + + ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord) + Typ = posTerminal.pos_typ + ZVTKey.SetValue("Typ", Typ, RegistryValueKind.DWord) + ZVTKey.SetValue("KasseNr", posTerminal.pos_kassennr, RegistryValueKind.String) + ZVTKey.SetValue("COM", posTerminal.pos_com, RegistryValueKind.String) + ZVTKey.SetValue("IP", posTerminal.pos_ip, RegistryValueKind.String) + ZVTKey.SetValue("Port", CInt(posTerminal.pos_port), RegistryValueKind.DWord) + ZVTKey.SetValue("ComSpeed", CInt(posTerminal.pos_comspeed), RegistryValueKind.DWord) + ZVTKey.SetValue("ComStop", CInt(posTerminal.pos_comstop), RegistryValueKind.DWord) + ZVTKey.SetValue("Lizenz", posTerminal.pos_lizenz, RegistryValueKind.String) + If Funktion = 0 Or Funktion = 4 Then + ZVTKey.SetValue("Betrag", Betrag * 100, RegistryValueKind.DWord) 'CENTbeträge 1€ --> 100 CENT + End If + If Funktion = 3 Then + 'ZVTKey.SetValue("StornoBetrag", CInt("0" & TextBox_Betrag.Text), RegistryValueKind.DWord) + 'ZVTKey.SetValue("StornoBelegNr", CInt("0" & StornoBelegNr.Text), RegistryValueKind.DWord) + End If + If posTerminal.pos_kassendruck Then + ZVTKey.SetValue("Kassedruck", 1, RegistryValueKind.DWord) + Else + ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord) + End If + ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Zur Sicherheit, falls EasyZVT gar nicht installiert ist oder nicht gestartet werden kann + ZVTKey.SetValue("ErgebnisText", "EasyZVT konnte nicht gestartet werden", RegistryValueKind.String) + 'ZVTKey.SetValue("DemoDruckername", comboInstalledPrinters.Text, RegistryValueKind.String) + 'If CheckBoxAutodruck.Checked Then + ' ZVTKey.SetValue("DemoAutodruck", 1, RegistryValueKind.DWord) + 'Else + ' ZVTKey.SetValue("DemoAutodruck", 0, RegistryValueKind.DWord) + 'End If + 'If CheckBoxDummy.Checked Then + ' ZVTKey.SetValue("DemoDummydruck", 1, RegistryValueKind.DWord) + 'Else + ' ZVTKey.SetValue("DemoDummydruck", 0, RegistryValueKind.DWord) + 'End If + + EasyZVT_Worker.RunWorkerAsync() + + + Catch ex As Exception + MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message) + Exit Sub + End Try + ZVTKey.Close() + + End Sub + + + Private Sub mnuItem_Clicked(sender As Object, e As EventArgs) + ContextMenuStrip1.Hide() 'Sometimes the menu items can remain open. May not be necessary for you. + Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) + If item IsNot Nothing Then + PosPAyment2(item.Name) + End If + End Sub End Class From 432355d051587f7b9a533dabd86f9aa4ae23548f Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 1 Mar 2023 16:40:42 +0100 Subject: [PATCH 09/11] POS-Berechtigungen --- SDL/kassenbuch/frmBelegNeu.Designer.vb | 2 +- SDL/kassenbuch/frmBelegNeu.vb | 8 ++++++ SDL/kassenbuch/frmKassenbuch.Designer.vb | 33 ++++++++++++------------ SDL/kassenbuch/frmKassenbuch.vb | 8 +++++- 4 files changed, 33 insertions(+), 18 deletions(-) diff --git a/SDL/kassenbuch/frmBelegNeu.Designer.vb b/SDL/kassenbuch/frmBelegNeu.Designer.vb index 531599b5..9d9ea07f 100644 --- a/SDL/kassenbuch/frmBelegNeu.Designer.vb +++ b/SDL/kassenbuch/frmBelegNeu.Designer.vb @@ -1666,7 +1666,7 @@ Partial Class frmBelegNeu 'ContextMenuStrip1 ' Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 26) + Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' 'frmBelegNeu ' diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index f6e8d818..3d36fa32 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -294,6 +294,14 @@ 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 + btnPOS.Enabled = False + Else + btnPOS.Enabled = True + End If + + + End Sub diff --git a/SDL/kassenbuch/frmKassenbuch.Designer.vb b/SDL/kassenbuch/frmKassenbuch.Designer.vb index 2f3b12b6..7ca319fa 100644 --- a/SDL/kassenbuch/frmKassenbuch.Designer.vb +++ b/SDL/kassenbuch/frmKassenbuch.Designer.vb @@ -69,6 +69,7 @@ Partial Class frmKassenbuch Me.Button10 = New System.Windows.Forms.Button() Me.btnBelegGSKunde = New System.Windows.Forms.Button() Me.pnl = New System.Windows.Forms.Panel() + Me.btnPosTerminal = New System.Windows.Forms.Button() Me.Button7 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button() Me.Button8 = New System.Windows.Forms.Button() @@ -78,7 +79,6 @@ Partial Class frmKassenbuch Me.btnBelegLeihgeld = New System.Windows.Forms.Button() Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() Me.Button1 = New System.Windows.Forms.Button() - Me.Button11 = New System.Windows.Forms.Button() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlTop.SuspendLayout() @@ -660,7 +660,7 @@ Partial Class frmKassenbuch ' 'pnl ' - Me.pnl.Controls.Add(Me.Button11) + Me.pnl.Controls.Add(Me.btnPosTerminal) Me.pnl.Controls.Add(Me.Button7) Me.pnl.Controls.Add(Me.Label11) Me.pnl.Controls.Add(Me.Label12) @@ -675,6 +675,20 @@ Partial Class frmKassenbuch Me.pnl.TabIndex = 430 Me.pnl.Visible = False ' + 'btnPosTerminal + ' + Me.btnPosTerminal.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnPosTerminal.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.btnPosTerminal.ForeColor = System.Drawing.Color.Black + Me.btnPosTerminal.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnPosTerminal.Location = New System.Drawing.Point(147, 193) + Me.btnPosTerminal.Name = "btnPosTerminal" + Me.btnPosTerminal.Size = New System.Drawing.Size(129, 30) + Me.btnPosTerminal.TabIndex = 430 + Me.btnPosTerminal.Text = "POS Terminal" + Me.btnPosTerminal.UseVisualStyleBackColor = True + Me.btnPosTerminal.Visible = False + ' 'Button7 ' Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -794,19 +808,6 @@ Partial Class frmKassenbuch Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button1.UseVisualStyleBackColor = True ' - 'Button11 - ' - Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.Button11.ForeColor = System.Drawing.Color.Black - Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button11.Location = New System.Drawing.Point(147, 193) - Me.Button11.Name = "Button11" - Me.Button11.Size = New System.Drawing.Size(129, 30) - Me.Button11.TabIndex = 430 - Me.Button11.Text = "POS Terminal" - Me.Button11.UseVisualStyleBackColor = True - ' 'frmKassenbuch ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -890,5 +891,5 @@ Partial Class frmKassenbuch Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button7 As System.Windows.Forms.Button Friend WithEvents Button10 As Button - Friend WithEvents Button11 As Button + Friend WithEvents btnPosTerminal As Button End Class diff --git a/SDL/kassenbuch/frmKassenbuch.vb b/SDL/kassenbuch/frmKassenbuch.vb index 18bc0978..8fde45c2 100644 --- a/SDL/kassenbuch/frmKassenbuch.vb +++ b/SDL/kassenbuch/frmKassenbuch.vb @@ -74,6 +74,12 @@ Public Class frmKassenbuch btnBelegLeihgeld.Enabled = False btnStorno.Enabled = False End If + + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kassenbuch POS-Terminal einrichten", Me) Then + btnPosTerminal.Enabled = False + End If + + End Sub Sub init() Dim sqlstr = "" @@ -1275,7 +1281,7 @@ Public Class frmKassenbuch print.Show() End Sub - Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click + Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnPosTerminal.Click Label18.ForeColor = Color.Black If Not IsNumeric(cboKassen._value) Then Label18.ForeColor = Color.Red From 30aa7d801d0c2c9f4b3e07c4f68f83ec1e5e21a6 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 1 Mar 2023 16:47:20 +0100 Subject: [PATCH 10/11] visible POS Terminal true --- SDL/kassenbuch/frmKassenbuch.Designer.vb | 1 - 1 file changed, 1 deletion(-) diff --git a/SDL/kassenbuch/frmKassenbuch.Designer.vb b/SDL/kassenbuch/frmKassenbuch.Designer.vb index 7ca319fa..4dbbf849 100644 --- a/SDL/kassenbuch/frmKassenbuch.Designer.vb +++ b/SDL/kassenbuch/frmKassenbuch.Designer.vb @@ -687,7 +687,6 @@ Partial Class frmKassenbuch Me.btnPosTerminal.TabIndex = 430 Me.btnPosTerminal.Text = "POS Terminal" Me.btnPosTerminal.UseVisualStyleBackColor = True - Me.btnPosTerminal.Visible = False ' 'Button7 ' From 7e850241aa031dc244243f39d45899013add961a Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 6 Mar 2023 14:25:28 +0100 Subject: [PATCH 11/11] 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