From a6ba393fe4fc3e1b64bf17ea54692c9a594c5572 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 28 Feb 2023 17:07:16 +0100 Subject: [PATCH] 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