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

POS

Browse Source
This commit is contained in:
d.breimaier
2023-02-28 17:07:16 +01:00
parent 1a7834db94
commit a6ba393fe4
10 changed files with 731 additions and 410 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Classes/cRKSV.vb
View File

@@ -1238,9 +1238,9 @@ Public Class cRKSV
rpt.lblGesamtbetrag.Text = CDbl(sum + (sum * s)).ToString("C") rpt.lblGesamtbetrag.Text = CDbl(sum + (sum * s)).ToString("C")
If sum < 0 Then rpt.Label2.Text = "Rechnungskorrektur Nr." If sum < 0 Then rpt.Label2.Text = "Rechnungskorrektur Nr."
End Sub End Sub
If POSPayment Then If False Then 'POSPayment Then
Dim Pos = New POS(rpt, sum) 'Dim Pos = New frmPOSTerminal(rpt, sum)
Pos.ShowDialog() 'Pos.ShowDialog()
End If End If
'PaperKind = System.Drawing.Printing.PaperKind.Custom 'PaperKind = System.Drawing.Printing.PaperKind.Custom

146
SDL/Classes/cRKSV_POS.vb Normal file
View File

@@ -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

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.3.8")> <Assembly: AssemblyVersion("1.2.4.1")>
<Assembly: AssemblyFileVersion("1.2.3.8")> <Assembly: AssemblyFileVersion("1.2.4.1")>

11
SDL/SDL.vbproj
View File

@@ -512,6 +512,7 @@
<Compile Include="Classes\cGenWord.vb" /> <Compile Include="Classes\cGenWord.vb" />
<Compile Include="Classes\cRKSV.vb" /> <Compile Include="Classes\cRKSV.vb" />
<Compile Include="Classes\cRKSV_Kasse.vb" /> <Compile Include="Classes\cRKSV_Kasse.vb" />
<Compile Include="Classes\cRKSV_POS.vb" />
<Compile Include="Classes\cSDL.vb" /> <Compile Include="Classes\cSDL.vb" />
<Compile Include="Classes\cSDLAbholung.vb" /> <Compile Include="Classes\cSDLAbholung.vb" />
<Compile Include="Classes\cGeschaeftsjahr.vb" /> <Compile Include="Classes\cGeschaeftsjahr.vb" />
@@ -566,10 +567,10 @@
<Compile Include="frmEssensbestellungen.vb"> <Compile Include="frmEssensbestellungen.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="kassenbuch\POS.Designer.vb"> <Compile Include="kassenbuch\frmPOSTerminal.Designer.vb">
<DependentUpon>POS.vb</DependentUpon> <DependentUpon>frmPOSTerminal.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="kassenbuch\POS.vb"> <Compile Include="kassenbuch\frmPOSTerminal.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="kunden\frmKundenBesonderheiten_Add.Designer.vb"> <Compile Include="kunden\frmKundenBesonderheiten_Add.Designer.vb">
@@ -2817,8 +2818,8 @@
<EmbeddedResource Include="frmEssensbestellungen.resx"> <EmbeddedResource Include="frmEssensbestellungen.resx">
<DependentUpon>frmEssensbestellungen.vb</DependentUpon> <DependentUpon>frmEssensbestellungen.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="kassenbuch\POS.resx"> <EmbeddedResource Include="kassenbuch\frmPOSTerminal.resx">
<DependentUpon>POS.vb</DependentUpon> <DependentUpon>frmPOSTerminal.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="kunden\frmKundenBesonderheiten_Add.resx"> <EmbeddedResource Include="kunden\frmKundenBesonderheiten_Add.resx">
<DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon> <DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>

299
SDL/kassenbuch/POS.vb
View File

@@ -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

16
SDL/kassenbuch/frmKassenbuch.Designer.vb generated
View File

@@ -78,6 +78,7 @@ Partial Class frmKassenbuch
Me.btnBelegLeihgeld = New System.Windows.Forms.Button() Me.btnBelegLeihgeld = New System.Windows.Forms.Button()
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.Button11 = New System.Windows.Forms.Button()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlTop.SuspendLayout() Me.pnlTop.SuspendLayout()
@@ -659,6 +660,7 @@ Partial Class frmKassenbuch
' '
'pnl 'pnl
' '
Me.pnl.Controls.Add(Me.Button11)
Me.pnl.Controls.Add(Me.Button7) Me.pnl.Controls.Add(Me.Button7)
Me.pnl.Controls.Add(Me.Label11) Me.pnl.Controls.Add(Me.Label11)
Me.pnl.Controls.Add(Me.Label12) Me.pnl.Controls.Add(Me.Label12)
@@ -792,6 +794,19 @@ Partial Class frmKassenbuch
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.UseVisualStyleBackColor = True 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 'frmKassenbuch
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 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 Button1 As System.Windows.Forms.Button
Friend WithEvents Button7 As System.Windows.Forms.Button Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Button10 As Button Friend WithEvents Button10 As Button
Friend WithEvents Button11 As Button
End Class End Class

12
SDL/kassenbuch/frmKassenbuch.vb
View File

@@ -1274,4 +1274,16 @@ Public Class frmKassenbuch
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
print.Show() print.Show()
End Sub 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 End Class

243
SDL/kassenbuch/POS.Designer.vb → SDL/kassenbuch/frmPOSTerminal.Designer.vb generated
View File

@@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class POS Partial Class frmPOSTerminal
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. '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. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() 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.CheckBoxDummy = New System.Windows.Forms.CheckBox()
Me.CheckBoxAutodruck = New System.Windows.Forms.CheckBox() Me.CheckBoxAutodruck = New System.Windows.Forms.CheckBox()
Me.Label15 = New System.Windows.Forms.Label() Me.Label15 = New System.Windows.Forms.Label()
@@ -65,413 +68,446 @@ Partial Class POS
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.ComboBox_COM = New System.Windows.Forms.ComboBox() Me.ComboBox_COM = New System.Windows.Forms.ComboBox()
Me.TextBox_KasseNr = New System.Windows.Forms.TextBox() 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() 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 'CheckBoxDummy
' '
Me.CheckBoxDummy.AutoSize = True 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.Name = "CheckBoxDummy"
Me.CheckBoxDummy.Size = New System.Drawing.Size(128, 17) 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.Text = "Dummy-Kopf drucken"
Me.CheckBoxDummy.UseVisualStyleBackColor = True Me.CheckBoxDummy.UseVisualStyleBackColor = True
' '
'CheckBoxAutodruck 'CheckBoxAutodruck
' '
Me.CheckBoxAutodruck.AutoSize = True 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.Name = "CheckBoxAutodruck"
Me.CheckBoxAutodruck.Size = New System.Drawing.Size(75, 17) Me.CheckBoxAutodruck.Size = New System.Drawing.Size(75, 17)
Me.CheckBoxAutodruck.TabIndex = 89 Me.CheckBoxAutodruck.TabIndex = 136
Me.CheckBoxAutodruck.Text = "Autodruck" Me.CheckBoxAutodruck.Text = "Autodruck"
Me.CheckBoxAutodruck.UseVisualStyleBackColor = True Me.CheckBoxAutodruck.UseVisualStyleBackColor = True
' '
'Label15 'Label15
' '
Me.Label15.AutoSize = True 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.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(45, 13) Me.Label15.Size = New System.Drawing.Size(45, 13)
Me.Label15.TabIndex = 88 Me.Label15.TabIndex = 135
Me.Label15.Text = "Drucker" Me.Label15.Text = "Drucker"
' '
'comboInstalledPrinters 'comboInstalledPrinters
' '
Me.comboInstalledPrinters.FormattingEnabled = True 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.Name = "comboInstalledPrinters"
Me.comboInstalledPrinters.Size = New System.Drawing.Size(229, 21) Me.comboInstalledPrinters.Size = New System.Drawing.Size(229, 21)
Me.comboInstalledPrinters.TabIndex = 87 Me.comboInstalledPrinters.TabIndex = 134
' '
'Label12 'Label12
' '
Me.Label12.AutoSize = True 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.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(45, 13) Me.Label12.Size = New System.Drawing.Size(45, 13)
Me.Label12.TabIndex = 86 Me.Label12.TabIndex = 133
Me.Label12.Text = "BelegNr" Me.Label12.Text = "BelegNr"
' '
'TextBox_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.Name = "TextBox_BelegNr"
Me.TextBox_BelegNr.ReadOnly = True Me.TextBox_BelegNr.ReadOnly = True
Me.TextBox_BelegNr.Size = New System.Drawing.Size(44, 20) Me.TextBox_BelegNr.Size = New System.Drawing.Size(44, 20)
Me.TextBox_BelegNr.TabIndex = 85 Me.TextBox_BelegNr.TabIndex = 132
' '
'Label14 'Label14
' '
Me.Label14.AutoSize = True 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.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(76, 13) Me.Label14.Size = New System.Drawing.Size(76, 13)
Me.Label14.TabIndex = 84 Me.Label14.TabIndex = 131
Me.Label14.Text = "StornoBelegNr" Me.Label14.Text = "StornoBelegNr"
' '
'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.Name = "StornoBelegNr"
Me.StornoBelegNr.Size = New System.Drawing.Size(78, 20) Me.StornoBelegNr.Size = New System.Drawing.Size(78, 20)
Me.StornoBelegNr.TabIndex = 83 Me.StornoBelegNr.TabIndex = 130
' '
'TextBox_Aktiv 'TextBox_Aktiv
' '
Me.TextBox_Aktiv.BackColor = System.Drawing.Color.Gray Me.TextBox_Aktiv.BackColor = System.Drawing.Color.Gray
Me.TextBox_Aktiv.Location = New System.Drawing.Point(23, 506) Me.TextBox_Aktiv.Location = New System.Drawing.Point(36, 911)
Me.TextBox_Aktiv.Name = "TextBox_Aktiv" Me.TextBox_Aktiv.Name = "TextBox_Aktiv"
Me.TextBox_Aktiv.Size = New System.Drawing.Size(123, 20) Me.TextBox_Aktiv.Size = New System.Drawing.Size(123, 20)
Me.TextBox_Aktiv.TabIndex = 82 Me.TextBox_Aktiv.TabIndex = 129
' '
'Label13 'Label13
' '
Me.Label13.AutoSize = True 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.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(25, 13) Me.Label13.Size = New System.Drawing.Size(25, 13)
Me.Label13.TabIndex = 81 Me.Label13.TabIndex = 128
Me.Label13.Text = "Typ" Me.Label13.Text = "Typ"
' '
'ComboBox_Typ 'ComboBox_Typ
' '
Me.ComboBox_Typ.FormattingEnabled = True Me.ComboBox_Typ.FormattingEnabled = True
Me.ComboBox_Typ.Items.AddRange(New Object() {"0: ZVT Standard", "1: ICP mit Shutter", "2: ICT 220 alt", "3: ICP Zelos", "4: Clover", "5: CCV Base seriell", "10: SIX", "11: OPI", "12: myPOS", "13: TIM-Server"}) Me.ComboBox_Typ.Items.AddRange(New Object() {"0: ZVT Standard", "1: ICP mit Shutter", "2: ICT 220 alt", "3: ICP Zelos", "4: Clover", "5: CCV Base seriell", "10: SIX", "11: OPI", "12: myPOS", "13: TIM-Server"})
Me.ComboBox_Typ.Location = New System.Drawing.Point(395, 106) Me.ComboBox_Typ.Location = New System.Drawing.Point(408, 511)
Me.ComboBox_Typ.MaxDropDownItems = 12 Me.ComboBox_Typ.MaxDropDownItems = 12
Me.ComboBox_Typ.Name = "ComboBox_Typ" Me.ComboBox_Typ.Name = "ComboBox_Typ"
Me.ComboBox_Typ.Size = New System.Drawing.Size(154, 21) Me.ComboBox_Typ.Size = New System.Drawing.Size(154, 21)
Me.ComboBox_Typ.TabIndex = 80 Me.ComboBox_Typ.TabIndex = 127
Me.ComboBox_Typ.Text = "0: ZVT Standard" Me.ComboBox_Typ.Text = "0: ZVT Standard"
' '
'Button_Haendlerbeleg_drucken '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.Name = "Button_Haendlerbeleg_drucken"
Me.Button_Haendlerbeleg_drucken.Size = New System.Drawing.Size(122, 23) Me.Button_Haendlerbeleg_drucken.Size = New System.Drawing.Size(122, 23)
Me.Button_Haendlerbeleg_drucken.TabIndex = 79 Me.Button_Haendlerbeleg_drucken.TabIndex = 126
Me.Button_Haendlerbeleg_drucken.Text = "Drucken" Me.Button_Haendlerbeleg_drucken.Text = "Drucken"
Me.Button_Haendlerbeleg_drucken.UseVisualStyleBackColor = True Me.Button_Haendlerbeleg_drucken.UseVisualStyleBackColor = True
' '
'TextBox_Kassenbon 'TextBox_Kassenbon
' '
Me.TextBox_Kassenbon.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TextBox_Kassenbon.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox_Kassenbon.Location = New System.Drawing.Point(590, 46) Me.TextBox_Kassenbon.Location = New System.Drawing.Point(603, 451)
Me.TextBox_Kassenbon.Multiline = True Me.TextBox_Kassenbon.Multiline = True
Me.TextBox_Kassenbon.Name = "TextBox_Kassenbon" Me.TextBox_Kassenbon.Name = "TextBox_Kassenbon"
Me.TextBox_Kassenbon.ReadOnly = True Me.TextBox_Kassenbon.ReadOnly = True
Me.TextBox_Kassenbon.Size = New System.Drawing.Size(221, 76) Me.TextBox_Kassenbon.Size = New System.Drawing.Size(221, 76)
Me.TextBox_Kassenbon.TabIndex = 78 Me.TextBox_Kassenbon.TabIndex = 125
Me.TextBox_Kassenbon.Text = "Kassenbon" Me.TextBox_Kassenbon.Text = "Kassenbon"
' '
'Button_Kundenbeleg_drucken 'Button_Kundenbeleg_drucken
' '
Me.Button_Kundenbeleg_drucken.Location = New System.Drawing.Point(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.Name = "Button_Kundenbeleg_drucken"
Me.Button_Kundenbeleg_drucken.Size = New System.Drawing.Size(122, 23) Me.Button_Kundenbeleg_drucken.Size = New System.Drawing.Size(122, 23)
Me.Button_Kundenbeleg_drucken.TabIndex = 77 Me.Button_Kundenbeleg_drucken.TabIndex = 124
Me.Button_Kundenbeleg_drucken.Text = "Drucken" Me.Button_Kundenbeleg_drucken.Text = "Drucken"
Me.Button_Kundenbeleg_drucken.UseVisualStyleBackColor = True Me.Button_Kundenbeleg_drucken.UseVisualStyleBackColor = True
' '
'Button_Gutschrift '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.Name = "Button_Gutschrift"
Me.Button_Gutschrift.Size = New System.Drawing.Size(163, 29) 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.Text = "4 = Gutschrift"
Me.Button_Gutschrift.UseVisualStyleBackColor = True Me.Button_Gutschrift.UseVisualStyleBackColor = True
' '
'Button_Storno 'Button_Storno
' '
Me.Button_Storno.Location = New System.Drawing.Point(595, 263) Me.Button_Storno.Location = New System.Drawing.Point(608, 668)
Me.Button_Storno.Name = "Button_Storno" Me.Button_Storno.Name = "Button_Storno"
Me.Button_Storno.Size = New System.Drawing.Size(163, 34) Me.Button_Storno.Size = New System.Drawing.Size(163, 34)
Me.Button_Storno.TabIndex = 75 Me.Button_Storno.TabIndex = 122
Me.Button_Storno.Text = "3 = Storno" Me.Button_Storno.Text = "3 = Storno"
Me.Button_Storno.UseVisualStyleBackColor = True Me.Button_Storno.UseVisualStyleBackColor = True
' '
'Button_Tagesabschluss 'Button_Tagesabschluss
' '
Me.Button_Tagesabschluss.Location = New System.Drawing.Point(594, 189) Me.Button_Tagesabschluss.Location = New System.Drawing.Point(607, 594)
Me.Button_Tagesabschluss.Name = "Button_Tagesabschluss" Me.Button_Tagesabschluss.Name = "Button_Tagesabschluss"
Me.Button_Tagesabschluss.Size = New System.Drawing.Size(163, 34) Me.Button_Tagesabschluss.Size = New System.Drawing.Size(163, 34)
Me.Button_Tagesabschluss.TabIndex = 74 Me.Button_Tagesabschluss.TabIndex = 121
Me.Button_Tagesabschluss.Text = "2 = Tagesabschluss" Me.Button_Tagesabschluss.Text = "2 = Tagesabschluss"
Me.Button_Tagesabschluss.UseVisualStyleBackColor = True Me.Button_Tagesabschluss.UseVisualStyleBackColor = True
' '
'Button_Diagnose '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.Name = "Button_Diagnose"
Me.Button_Diagnose.Size = New System.Drawing.Size(164, 33) 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.Text = "1 = Diagnose"
Me.Button_Diagnose.UseVisualStyleBackColor = True Me.Button_Diagnose.UseVisualStyleBackColor = True
' '
'Button_Exit 'Button_Exit
' '
Me.Button_Exit.DialogResult = System.Windows.Forms.DialogResult.Cancel 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.Name = "Button_Exit"
Me.Button_Exit.Size = New System.Drawing.Size(162, 23) 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.Text = "Programmende"
Me.Button_Exit.UseVisualStyleBackColor = True Me.Button_Exit.UseVisualStyleBackColor = True
' '
'CheckBox_Kassedruck 'CheckBox_Kassedruck
' '
Me.CheckBox_Kassedruck.AutoSize = True Me.CheckBox_Kassedruck.AutoSize = True
Me.CheckBox_Kassedruck.Location = New System.Drawing.Point(395, 77) Me.CheckBox_Kassedruck.Location = New System.Drawing.Point(408, 482)
Me.CheckBox_Kassedruck.Name = "CheckBox_Kassedruck" Me.CheckBox_Kassedruck.Name = "CheckBox_Kassedruck"
Me.CheckBox_Kassedruck.Size = New System.Drawing.Size(82, 17) Me.CheckBox_Kassedruck.Size = New System.Drawing.Size(82, 17)
Me.CheckBox_Kassedruck.TabIndex = 71 Me.CheckBox_Kassedruck.TabIndex = 118
Me.CheckBox_Kassedruck.Text = "Kassedruck" Me.CheckBox_Kassedruck.Text = "Kassedruck"
Me.CheckBox_Kassedruck.UseVisualStyleBackColor = True Me.CheckBox_Kassedruck.UseVisualStyleBackColor = True
' '
'Label11 'Label11
' '
Me.Label11.AutoSize = True 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.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(131, 13) Me.Label11.Size = New System.Drawing.Size(131, 13)
Me.Label11.TabIndex = 70 Me.Label11.TabIndex = 117
Me.Label11.Text = "Drucktext2 (Händlerbeleg)" Me.Label11.Text = "Drucktext2 (Händlerbeleg)"
' '
'TextBox_Drucktext2 '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.Multiline = True
Me.TextBox_Drucktext2.Name = "TextBox_Drucktext2" Me.TextBox_Drucktext2.Name = "TextBox_Drucktext2"
Me.TextBox_Drucktext2.ReadOnly = True Me.TextBox_Drucktext2.ReadOnly = True
Me.TextBox_Drucktext2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.TextBox_Drucktext2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.TextBox_Drucktext2.Size = New System.Drawing.Size(226, 208) Me.TextBox_Drucktext2.Size = New System.Drawing.Size(226, 208)
Me.TextBox_Drucktext2.TabIndex = 69 Me.TextBox_Drucktext2.TabIndex = 116
' '
'Label10 'Label10
' '
Me.Label10.AutoSize = True 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.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(125, 13) Me.Label10.Size = New System.Drawing.Size(125, 13)
Me.Label10.TabIndex = 68 Me.Label10.TabIndex = 115
Me.Label10.Text = "Drucktext (Kundenbeleg)" Me.Label10.Text = "Drucktext (Kundenbeleg)"
' '
'TextBox_Drucktext '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.Multiline = True
Me.TextBox_Drucktext.Name = "TextBox_Drucktext" Me.TextBox_Drucktext.Name = "TextBox_Drucktext"
Me.TextBox_Drucktext.ReadOnly = True Me.TextBox_Drucktext.ReadOnly = True
Me.TextBox_Drucktext.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.TextBox_Drucktext.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.TextBox_Drucktext.Size = New System.Drawing.Size(223, 209) Me.TextBox_Drucktext.Size = New System.Drawing.Size(223, 209)
Me.TextBox_Drucktext.TabIndex = 67 Me.TextBox_Drucktext.TabIndex = 114
' '
'TextBox_ErgebnisText '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.Multiline = True
Me.TextBox_ErgebnisText.Name = "TextBox_ErgebnisText" Me.TextBox_ErgebnisText.Name = "TextBox_ErgebnisText"
Me.TextBox_ErgebnisText.ReadOnly = True Me.TextBox_ErgebnisText.ReadOnly = True
Me.TextBox_ErgebnisText.Size = New System.Drawing.Size(375, 43) Me.TextBox_ErgebnisText.Size = New System.Drawing.Size(375, 43)
Me.TextBox_ErgebnisText.TabIndex = 66 Me.TextBox_ErgebnisText.TabIndex = 113
' '
'TextBox_Ergebnis '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.Name = "TextBox_Ergebnis"
Me.TextBox_Ergebnis.ReadOnly = True Me.TextBox_Ergebnis.ReadOnly = True
Me.TextBox_Ergebnis.Size = New System.Drawing.Size(44, 20) Me.TextBox_Ergebnis.Size = New System.Drawing.Size(44, 20)
Me.TextBox_Ergebnis.TabIndex = 65 Me.TextBox_Ergebnis.TabIndex = 112
' '
'Label9 'Label9
' '
Me.Label9.AutoSize = True 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.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(48, 13) Me.Label9.Size = New System.Drawing.Size(48, 13)
Me.Label9.TabIndex = 64 Me.Label9.TabIndex = 111
Me.Label9.Text = "Ergebnis" Me.Label9.Text = "Ergebnis"
' '
'Button_Autorisierung '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.Name = "Button_Autorisierung"
Me.Button_Autorisierung.Size = New System.Drawing.Size(199, 24) Me.Button_Autorisierung.Size = New System.Drawing.Size(199, 24)
Me.Button_Autorisierung.TabIndex = 49 Me.Button_Autorisierung.TabIndex = 96
Me.Button_Autorisierung.Text = "Autorisierung starten" Me.Button_Autorisierung.Text = "Autorisierung starten"
Me.Button_Autorisierung.UseVisualStyleBackColor = True Me.Button_Autorisierung.UseVisualStyleBackColor = True
' '
'TextBox_Betrag '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.MaxLength = 8
Me.TextBox_Betrag.Name = "TextBox_Betrag" Me.TextBox_Betrag.Name = "TextBox_Betrag"
Me.TextBox_Betrag.Size = New System.Drawing.Size(46, 20) Me.TextBox_Betrag.Size = New System.Drawing.Size(46, 20)
Me.TextBox_Betrag.TabIndex = 48 Me.TextBox_Betrag.TabIndex = 95
Me.TextBox_Betrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.TextBox_Betrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
' '
'Label8 'Label8
' '
Me.Label8.AutoSize = True 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.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(38, 13) Me.Label8.Size = New System.Drawing.Size(38, 13)
Me.Label8.TabIndex = 63 Me.Label8.TabIndex = 110
Me.Label8.Text = "Betrag" Me.Label8.Text = "Betrag"
' '
'TextBox_Lizenz '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.Name = "TextBox_Lizenz"
Me.TextBox_Lizenz.Size = New System.Drawing.Size(190, 20) Me.TextBox_Lizenz.Size = New System.Drawing.Size(190, 20)
Me.TextBox_Lizenz.TabIndex = 62 Me.TextBox_Lizenz.TabIndex = 109
' '
'Label7 'Label7
' '
Me.Label7.AutoSize = True 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.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(37, 13) Me.Label7.Size = New System.Drawing.Size(37, 13)
Me.Label7.TabIndex = 61 Me.Label7.TabIndex = 108
Me.Label7.Text = "Lizenz" Me.Label7.Text = "Lizenz"
' '
'ComboBox_ComStop 'ComboBox_ComStop
' '
Me.ComboBox_ComStop.FormattingEnabled = True Me.ComboBox_ComStop.FormattingEnabled = True
Me.ComboBox_ComStop.Items.AddRange(New Object() {"1", "2"}) Me.ComboBox_ComStop.Items.AddRange(New Object() {"1", "2"})
Me.ComboBox_ComStop.Location = New System.Drawing.Point(323, 74) Me.ComboBox_ComStop.Location = New System.Drawing.Point(336, 479)
Me.ComboBox_ComStop.Name = "ComboBox_ComStop" Me.ComboBox_ComStop.Name = "ComboBox_ComStop"
Me.ComboBox_ComStop.Size = New System.Drawing.Size(38, 21) Me.ComboBox_ComStop.Size = New System.Drawing.Size(38, 21)
Me.ComboBox_ComStop.TabIndex = 60 Me.ComboBox_ComStop.TabIndex = 107
Me.ComboBox_ComStop.Text = "1" Me.ComboBox_ComStop.Text = "1"
' '
'Label6 'Label6
' '
Me.Label6.AutoSize = True 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.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(50, 13) Me.Label6.Size = New System.Drawing.Size(50, 13)
Me.Label6.TabIndex = 59 Me.Label6.TabIndex = 106
Me.Label6.Text = "ComStop" Me.Label6.Text = "ComStop"
' '
'ComboBox_ComSpeed 'ComboBox_ComSpeed
' '
Me.ComboBox_ComSpeed.FormattingEnabled = True Me.ComboBox_ComSpeed.FormattingEnabled = True
Me.ComboBox_ComSpeed.Items.AddRange(New Object() {"9600", "115000"}) Me.ComboBox_ComSpeed.Items.AddRange(New Object() {"9600", "115000"})
Me.ComboBox_ComSpeed.Location = New System.Drawing.Point(115, 73) Me.ComboBox_ComSpeed.Location = New System.Drawing.Point(128, 478)
Me.ComboBox_ComSpeed.Name = "ComboBox_ComSpeed" Me.ComboBox_ComSpeed.Name = "ComboBox_ComSpeed"
Me.ComboBox_ComSpeed.Size = New System.Drawing.Size(121, 21) Me.ComboBox_ComSpeed.Size = New System.Drawing.Size(121, 21)
Me.ComboBox_ComSpeed.TabIndex = 58 Me.ComboBox_ComSpeed.TabIndex = 105
Me.ComboBox_ComSpeed.Text = "9600" Me.ComboBox_ComSpeed.Text = "9600"
' '
'Label5 'Label5
' '
Me.Label5.AutoSize = True 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.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(59, 13) Me.Label5.Size = New System.Drawing.Size(59, 13)
Me.Label5.TabIndex = 57 Me.Label5.TabIndex = 104
Me.Label5.Text = "ComSpeed" Me.Label5.Text = "ComSpeed"
' '
'TextBox_Port '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.MaxLength = 5
Me.TextBox_Port.Name = "TextBox_Port" Me.TextBox_Port.Name = "TextBox_Port"
Me.TextBox_Port.Size = New System.Drawing.Size(58, 20) Me.TextBox_Port.Size = New System.Drawing.Size(58, 20)
Me.TextBox_Port.TabIndex = 56 Me.TextBox_Port.TabIndex = 103
' '
'Label4 'Label4
' '
Me.Label4.AutoSize = True 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.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(26, 13) Me.Label4.Size = New System.Drawing.Size(26, 13)
Me.Label4.TabIndex = 55 Me.Label4.TabIndex = 102
Me.Label4.Text = "Port" Me.Label4.Text = "Port"
' '
'Label3 'Label3
' '
Me.Label3.AutoSize = True 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.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(17, 13) Me.Label3.Size = New System.Drawing.Size(17, 13)
Me.Label3.TabIndex = 54 Me.Label3.TabIndex = 101
Me.Label3.Text = "IP" Me.Label3.Text = "IP"
' '
'TextBox_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.MaxLength = 30
Me.TextBox_IP.Name = "TextBox_IP" Me.TextBox_IP.Name = "TextBox_IP"
Me.TextBox_IP.Size = New System.Drawing.Size(114, 20) Me.TextBox_IP.Size = New System.Drawing.Size(114, 20)
Me.TextBox_IP.TabIndex = 53 Me.TextBox_IP.TabIndex = 100
' '
'Label2 'Label2
' '
Me.Label2.AutoSize = True 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.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(31, 13) Me.Label2.Size = New System.Drawing.Size(31, 13)
Me.Label2.TabIndex = 52 Me.Label2.TabIndex = 99
Me.Label2.Text = "COM" Me.Label2.Text = "COM"
' '
'ComboBox_COM 'ComboBox_COM
' '
Me.ComboBox_COM.FormattingEnabled = True Me.ComboBox_COM.FormattingEnabled = True
Me.ComboBox_COM.Items.AddRange(New Object() {"LAN", "COM", "COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9"}) Me.ComboBox_COM.Items.AddRange(New Object() {"LAN", "COM", "COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9"})
Me.ComboBox_COM.Location = New System.Drawing.Point(115, 46) Me.ComboBox_COM.Location = New System.Drawing.Point(128, 451)
Me.ComboBox_COM.Name = "ComboBox_COM" Me.ComboBox_COM.Name = "ComboBox_COM"
Me.ComboBox_COM.Size = New System.Drawing.Size(121, 21) Me.ComboBox_COM.Size = New System.Drawing.Size(121, 21)
Me.ComboBox_COM.TabIndex = 51 Me.ComboBox_COM.TabIndex = 98
Me.ComboBox_COM.Text = "LAN" Me.ComboBox_COM.Text = "LAN"
' '
'TextBox_KasseNr '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.MaxLength = 4
Me.TextBox_KasseNr.Name = "TextBox_KasseNr" Me.TextBox_KasseNr.Name = "TextBox_KasseNr"
Me.TextBox_KasseNr.Size = New System.Drawing.Size(46, 20) Me.TextBox_KasseNr.Size = New System.Drawing.Size(46, 20)
Me.TextBox_KasseNr.TabIndex = 50 Me.TextBox_KasseNr.TabIndex = 97
Me.TextBox_KasseNr.Text = "1" Me.TextBox_KasseNr.Text = "1"
' '
'Label1 'Label16
' '
Me.Label1.AutoSize = True Me.Label16.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(21, 23) Me.Label16.Location = New System.Drawing.Point(34, 428)
Me.Label1.Name = "Label1" Me.Label16.Name = "Label16"
Me.Label1.Size = New System.Drawing.Size(47, 13) Me.Label16.Size = New System.Drawing.Size(47, 13)
Me.Label1.TabIndex = 47 Me.Label16.TabIndex = 94
Me.Label1.Text = "KasseNr" 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.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(841, 543) Me.ClientSize = New System.Drawing.Size(841, 959)
Me.Controls.Add(Me.btnNew)
Me.Controls.Add(Me.CheckBoxDummy) Me.Controls.Add(Me.CheckBoxDummy)
Me.Controls.Add(Me.CheckBoxAutodruck) Me.Controls.Add(Me.CheckBoxAutodruck)
Me.Controls.Add(Me.Label15) Me.Controls.Add(Me.Label15)
@@ -515,14 +551,18 @@ Partial Class POS
Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.ComboBox_COM) Me.Controls.Add(Me.ComboBox_COM)
Me.Controls.Add(Me.TextBox_KasseNr) Me.Controls.Add(Me.TextBox_KasseNr)
Me.Controls.Add(Me.Label16)
Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label1)
Me.Name = "POS" Me.Controls.Add(Me.dgvTerminals)
Me.Text = "POS" Me.Name = "frmPOSTerminal"
Me.Text = "POS Terminal einstellen"
CType(Me.dgvTerminals, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
End Sub End Sub
Friend WithEvents dgvTerminals As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Label1 As Label
Friend WithEvents CheckBoxDummy As CheckBox Friend WithEvents CheckBoxDummy As CheckBox
Friend WithEvents CheckBoxAutodruck As CheckBox Friend WithEvents CheckBoxAutodruck As CheckBox
Friend WithEvents Label15 As Label Friend WithEvents Label15 As Label
@@ -566,5 +606,6 @@ Partial Class POS
Friend WithEvents Label2 As Label Friend WithEvents Label2 As Label
Friend WithEvents ComboBox_COM As ComboBox Friend WithEvents ComboBox_COM As ComboBox
Friend WithEvents TextBox_KasseNr As TextBox Friend WithEvents TextBox_KasseNr As TextBox
Friend WithEvents Label1 As Label Friend WithEvents Label16 As Label
Friend WithEvents btnNew As Button
End Class End Class

0
SDL/kassenbuch/POS.resx → SDL/kassenbuch/frmPOSTerminal.resx
View File

404
SDL/kassenbuch/frmPOSTerminal.vb Normal file
View File

@@ -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