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

POS Einbindung in Kassenbuch

Browse Source
This commit is contained in:
d.breimaier
2023-02-28 08:30:10 +01:00
parent 488b4221a8
commit 1a7834db94
10 changed files with 1095 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Classes/cRKSV.vb
View File

@@ -1061,7 +1061,7 @@ Public Class cRKSV
End Function
'cboPrinter.SelectedItem.ToString
Public Shared Function printKundenBeleg(BELEG As EABeleg, KASSE As cRKSV_Kasse, PERSONAL As cPersonal, printername As String, showDok As Boolean) As Boolean
Public Shared Function printKundenBeleg(BELEG As EABeleg, KASSE As cRKSV_Kasse, PERSONAL As cPersonal, printername As String, showDok As Boolean, Optional POSPayment As Boolean = False) As Boolean
'Dim print As New frmPrintLayout
@@ -1238,6 +1238,10 @@ Public Class cRKSV
rpt.lblGesamtbetrag.Text = CDbl(sum + (sum * s)).ToString("C")
If sum < 0 Then rpt.Label2.Text = "Rechnungskorrektur Nr."
End Sub
If POSPayment Then
Dim Pos = New POS(rpt, sum)
Pos.ShowDialog()
End If
'PaperKind = System.Drawing.Printing.PaperKind.Custom
' Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.Custom

4
SDL/My Project/AssemblyInfo.vb
View File

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

9
SDL/SDL.vbproj
View File

@@ -566,6 +566,12 @@
<Compile Include="frmEssensbestellungen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kassenbuch\POS.Designer.vb">
<DependentUpon>POS.vb</DependentUpon>
</Compile>
<Compile Include="kassenbuch\POS.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\frmKundenBesonderheiten_Add.Designer.vb">
<DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
</Compile>
@@ -2811,6 +2817,9 @@
<EmbeddedResource Include="frmEssensbestellungen.resx">
<DependentUpon>frmEssensbestellungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kassenbuch\POS.resx">
<DependentUpon>POS.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\frmKundenBesonderheiten_Add.resx">
<DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
</EmbeddedResource>

570
SDL/kassenbuch/POS.Designer.vb generated Normal file
View File

@@ -0,0 +1,570 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class POS
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.CheckBoxDummy = New System.Windows.Forms.CheckBox()
Me.CheckBoxAutodruck = New System.Windows.Forms.CheckBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.comboInstalledPrinters = New System.Windows.Forms.ComboBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.TextBox_BelegNr = New System.Windows.Forms.TextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.StornoBelegNr = New System.Windows.Forms.TextBox()
Me.TextBox_Aktiv = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.ComboBox_Typ = New System.Windows.Forms.ComboBox()
Me.Button_Haendlerbeleg_drucken = New System.Windows.Forms.Button()
Me.TextBox_Kassenbon = New System.Windows.Forms.TextBox()
Me.Button_Kundenbeleg_drucken = New System.Windows.Forms.Button()
Me.Button_Gutschrift = New System.Windows.Forms.Button()
Me.Button_Storno = New System.Windows.Forms.Button()
Me.Button_Tagesabschluss = New System.Windows.Forms.Button()
Me.Button_Diagnose = New System.Windows.Forms.Button()
Me.Button_Exit = New System.Windows.Forms.Button()
Me.CheckBox_Kassedruck = New System.Windows.Forms.CheckBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.TextBox_Drucktext2 = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.TextBox_Drucktext = New System.Windows.Forms.TextBox()
Me.TextBox_ErgebnisText = New System.Windows.Forms.TextBox()
Me.TextBox_Ergebnis = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.Button_Autorisierung = New System.Windows.Forms.Button()
Me.TextBox_Betrag = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.TextBox_Lizenz = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.ComboBox_ComStop = New System.Windows.Forms.ComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.ComboBox_ComSpeed = New System.Windows.Forms.ComboBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.TextBox_Port = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.TextBox_IP = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.ComboBox_COM = New System.Windows.Forms.ComboBox()
Me.TextBox_KasseNr = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'CheckBoxDummy
'
Me.CheckBoxDummy.AutoSize = True
Me.CheckBoxDummy.Location = New System.Drawing.Point(678, 15)
Me.CheckBoxDummy.Name = "CheckBoxDummy"
Me.CheckBoxDummy.Size = New System.Drawing.Size(128, 17)
Me.CheckBoxDummy.TabIndex = 90
Me.CheckBoxDummy.Text = "Dummy-Kopf drucken"
Me.CheckBoxDummy.UseVisualStyleBackColor = True
'
'CheckBoxAutodruck
'
Me.CheckBoxAutodruck.AutoSize = True
Me.CheckBoxAutodruck.Location = New System.Drawing.Point(591, 16)
Me.CheckBoxAutodruck.Name = "CheckBoxAutodruck"
Me.CheckBoxAutodruck.Size = New System.Drawing.Size(75, 17)
Me.CheckBoxAutodruck.TabIndex = 89
Me.CheckBoxAutodruck.Text = "Autodruck"
Me.CheckBoxAutodruck.UseVisualStyleBackColor = True
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(255, 16)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(45, 13)
Me.Label15.TabIndex = 88
Me.Label15.Text = "Drucker"
'
'comboInstalledPrinters
'
Me.comboInstalledPrinters.FormattingEnabled = True
Me.comboInstalledPrinters.Location = New System.Drawing.Point(321, 13)
Me.comboInstalledPrinters.Name = "comboInstalledPrinters"
Me.comboInstalledPrinters.Size = New System.Drawing.Size(229, 21)
Me.comboInstalledPrinters.TabIndex = 87
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(20, 215)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(45, 13)
Me.Label12.TabIndex = 86
Me.Label12.Text = "BelegNr"
'
'TextBox_BelegNr
'
Me.TextBox_BelegNr.Location = New System.Drawing.Point(117, 212)
Me.TextBox_BelegNr.Name = "TextBox_BelegNr"
Me.TextBox_BelegNr.ReadOnly = True
Me.TextBox_BelegNr.Size = New System.Drawing.Size(44, 20)
Me.TextBox_BelegNr.TabIndex = 85
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(596, 240)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(76, 13)
Me.Label14.TabIndex = 84
Me.Label14.Text = "StornoBelegNr"
'
'StornoBelegNr
'
Me.StornoBelegNr.Location = New System.Drawing.Point(678, 237)
Me.StornoBelegNr.Name = "StornoBelegNr"
Me.StornoBelegNr.Size = New System.Drawing.Size(78, 20)
Me.StornoBelegNr.TabIndex = 83
'
'TextBox_Aktiv
'
Me.TextBox_Aktiv.BackColor = System.Drawing.Color.Gray
Me.TextBox_Aktiv.Location = New System.Drawing.Point(23, 506)
Me.TextBox_Aktiv.Name = "TextBox_Aktiv"
Me.TextBox_Aktiv.Size = New System.Drawing.Size(123, 20)
Me.TextBox_Aktiv.TabIndex = 82
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(329, 110)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(25, 13)
Me.Label13.TabIndex = 81
Me.Label13.Text = "Typ"
'
'ComboBox_Typ
'
Me.ComboBox_Typ.FormattingEnabled = True
Me.ComboBox_Typ.Items.AddRange(New Object() {"0: ZVT Standard", "1: ICP mit Shutter", "2: ICT 220 alt", "3: ICP Zelos", "4: Clover", "5: CCV Base seriell", "10: SIX", "11: OPI", "12: myPOS", "13: TIM-Server"})
Me.ComboBox_Typ.Location = New System.Drawing.Point(395, 106)
Me.ComboBox_Typ.MaxDropDownItems = 12
Me.ComboBox_Typ.Name = "ComboBox_Typ"
Me.ComboBox_Typ.Size = New System.Drawing.Size(154, 21)
Me.ComboBox_Typ.TabIndex = 80
Me.ComboBox_Typ.Text = "0: ZVT Standard"
'
'Button_Haendlerbeleg_drucken
'
Me.Button_Haendlerbeleg_drucken.Location = New System.Drawing.Point(323, 477)
Me.Button_Haendlerbeleg_drucken.Name = "Button_Haendlerbeleg_drucken"
Me.Button_Haendlerbeleg_drucken.Size = New System.Drawing.Size(122, 23)
Me.Button_Haendlerbeleg_drucken.TabIndex = 79
Me.Button_Haendlerbeleg_drucken.Text = "Drucken"
Me.Button_Haendlerbeleg_drucken.UseVisualStyleBackColor = True
'
'TextBox_Kassenbon
'
Me.TextBox_Kassenbon.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox_Kassenbon.Location = New System.Drawing.Point(590, 46)
Me.TextBox_Kassenbon.Multiline = True
Me.TextBox_Kassenbon.Name = "TextBox_Kassenbon"
Me.TextBox_Kassenbon.ReadOnly = True
Me.TextBox_Kassenbon.Size = New System.Drawing.Size(221, 76)
Me.TextBox_Kassenbon.TabIndex = 78
Me.TextBox_Kassenbon.Text = "Kassenbon"
'
'Button_Kundenbeleg_drucken
'
Me.Button_Kundenbeleg_drucken.Location = New System.Drawing.Point(24, 477)
Me.Button_Kundenbeleg_drucken.Name = "Button_Kundenbeleg_drucken"
Me.Button_Kundenbeleg_drucken.Size = New System.Drawing.Size(122, 23)
Me.Button_Kundenbeleg_drucken.TabIndex = 77
Me.Button_Kundenbeleg_drucken.Text = "Drucken"
Me.Button_Kundenbeleg_drucken.UseVisualStyleBackColor = True
'
'Button_Gutschrift
'
Me.Button_Gutschrift.Location = New System.Drawing.Point(595, 316)
Me.Button_Gutschrift.Name = "Button_Gutschrift"
Me.Button_Gutschrift.Size = New System.Drawing.Size(163, 29)
Me.Button_Gutschrift.TabIndex = 76
Me.Button_Gutschrift.Text = "4 = Gutschrift"
Me.Button_Gutschrift.UseVisualStyleBackColor = True
'
'Button_Storno
'
Me.Button_Storno.Location = New System.Drawing.Point(595, 263)
Me.Button_Storno.Name = "Button_Storno"
Me.Button_Storno.Size = New System.Drawing.Size(163, 34)
Me.Button_Storno.TabIndex = 75
Me.Button_Storno.Text = "3 = Storno"
Me.Button_Storno.UseVisualStyleBackColor = True
'
'Button_Tagesabschluss
'
Me.Button_Tagesabschluss.Location = New System.Drawing.Point(594, 189)
Me.Button_Tagesabschluss.Name = "Button_Tagesabschluss"
Me.Button_Tagesabschluss.Size = New System.Drawing.Size(163, 34)
Me.Button_Tagesabschluss.TabIndex = 74
Me.Button_Tagesabschluss.Text = "2 = Tagesabschluss"
Me.Button_Tagesabschluss.UseVisualStyleBackColor = True
'
'Button_Diagnose
'
Me.Button_Diagnose.Location = New System.Drawing.Point(594, 139)
Me.Button_Diagnose.Name = "Button_Diagnose"
Me.Button_Diagnose.Size = New System.Drawing.Size(164, 33)
Me.Button_Diagnose.TabIndex = 73
Me.Button_Diagnose.Text = "1 = Diagnose"
Me.Button_Diagnose.UseVisualStyleBackColor = True
'
'Button_Exit
'
Me.Button_Exit.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button_Exit.Location = New System.Drawing.Point(594, 477)
Me.Button_Exit.Name = "Button_Exit"
Me.Button_Exit.Size = New System.Drawing.Size(162, 23)
Me.Button_Exit.TabIndex = 72
Me.Button_Exit.Text = "Programmende"
Me.Button_Exit.UseVisualStyleBackColor = True
'
'CheckBox_Kassedruck
'
Me.CheckBox_Kassedruck.AutoSize = True
Me.CheckBox_Kassedruck.Location = New System.Drawing.Point(395, 77)
Me.CheckBox_Kassedruck.Name = "CheckBox_Kassedruck"
Me.CheckBox_Kassedruck.Size = New System.Drawing.Size(82, 17)
Me.CheckBox_Kassedruck.TabIndex = 71
Me.CheckBox_Kassedruck.Text = "Kassedruck"
Me.CheckBox_Kassedruck.UseVisualStyleBackColor = True
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(320, 237)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(131, 13)
Me.Label11.TabIndex = 70
Me.Label11.Text = "Drucktext2 (Händlerbeleg)"
'
'TextBox_Drucktext2
'
Me.TextBox_Drucktext2.Location = New System.Drawing.Point(323, 263)
Me.TextBox_Drucktext2.Multiline = True
Me.TextBox_Drucktext2.Name = "TextBox_Drucktext2"
Me.TextBox_Drucktext2.ReadOnly = True
Me.TextBox_Drucktext2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.TextBox_Drucktext2.Size = New System.Drawing.Size(226, 208)
Me.TextBox_Drucktext2.TabIndex = 69
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(21, 237)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(125, 13)
Me.Label10.TabIndex = 68
Me.Label10.Text = "Drucktext (Kundenbeleg)"
'
'TextBox_Drucktext
'
Me.TextBox_Drucktext.Location = New System.Drawing.Point(23, 262)
Me.TextBox_Drucktext.Multiline = True
Me.TextBox_Drucktext.Name = "TextBox_Drucktext"
Me.TextBox_Drucktext.ReadOnly = True
Me.TextBox_Drucktext.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.TextBox_Drucktext.Size = New System.Drawing.Size(223, 209)
Me.TextBox_Drucktext.TabIndex = 67
'
'TextBox_ErgebnisText
'
Me.TextBox_ErgebnisText.Location = New System.Drawing.Point(175, 189)
Me.TextBox_ErgebnisText.Multiline = True
Me.TextBox_ErgebnisText.Name = "TextBox_ErgebnisText"
Me.TextBox_ErgebnisText.ReadOnly = True
Me.TextBox_ErgebnisText.Size = New System.Drawing.Size(375, 43)
Me.TextBox_ErgebnisText.TabIndex = 66
'
'TextBox_Ergebnis
'
Me.TextBox_Ergebnis.Location = New System.Drawing.Point(117, 189)
Me.TextBox_Ergebnis.Name = "TextBox_Ergebnis"
Me.TextBox_Ergebnis.ReadOnly = True
Me.TextBox_Ergebnis.Size = New System.Drawing.Size(44, 20)
Me.TextBox_Ergebnis.TabIndex = 65
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(21, 192)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(48, 13)
Me.Label9.TabIndex = 64
Me.Label9.Text = "Ergebnis"
'
'Button_Autorisierung
'
Me.Button_Autorisierung.Location = New System.Drawing.Point(175, 153)
Me.Button_Autorisierung.Name = "Button_Autorisierung"
Me.Button_Autorisierung.Size = New System.Drawing.Size(199, 24)
Me.Button_Autorisierung.TabIndex = 49
Me.Button_Autorisierung.Text = "Autorisierung starten"
Me.Button_Autorisierung.UseVisualStyleBackColor = True
'
'TextBox_Betrag
'
Me.TextBox_Betrag.Location = New System.Drawing.Point(115, 156)
Me.TextBox_Betrag.MaxLength = 8
Me.TextBox_Betrag.Name = "TextBox_Betrag"
Me.TextBox_Betrag.Size = New System.Drawing.Size(46, 20)
Me.TextBox_Betrag.TabIndex = 48
Me.TextBox_Betrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(21, 159)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(38, 13)
Me.Label8.TabIndex = 63
Me.Label8.Text = "Betrag"
'
'TextBox_Lizenz
'
Me.TextBox_Lizenz.Location = New System.Drawing.Point(115, 103)
Me.TextBox_Lizenz.Name = "TextBox_Lizenz"
Me.TextBox_Lizenz.Size = New System.Drawing.Size(190, 20)
Me.TextBox_Lizenz.TabIndex = 62
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(21, 106)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(37, 13)
Me.Label7.TabIndex = 61
Me.Label7.Text = "Lizenz"
'
'ComboBox_ComStop
'
Me.ComboBox_ComStop.FormattingEnabled = True
Me.ComboBox_ComStop.Items.AddRange(New Object() {"1", "2"})
Me.ComboBox_ComStop.Location = New System.Drawing.Point(323, 74)
Me.ComboBox_ComStop.Name = "ComboBox_ComStop"
Me.ComboBox_ComStop.Size = New System.Drawing.Size(38, 21)
Me.ComboBox_ComStop.TabIndex = 60
Me.ComboBox_ComStop.Text = "1"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(255, 77)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(50, 13)
Me.Label6.TabIndex = 59
Me.Label6.Text = "ComStop"
'
'ComboBox_ComSpeed
'
Me.ComboBox_ComSpeed.FormattingEnabled = True
Me.ComboBox_ComSpeed.Items.AddRange(New Object() {"9600", "115000"})
Me.ComboBox_ComSpeed.Location = New System.Drawing.Point(115, 73)
Me.ComboBox_ComSpeed.Name = "ComboBox_ComSpeed"
Me.ComboBox_ComSpeed.Size = New System.Drawing.Size(121, 21)
Me.ComboBox_ComSpeed.TabIndex = 58
Me.ComboBox_ComSpeed.Text = "9600"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(21, 77)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(59, 13)
Me.Label5.TabIndex = 57
Me.Label5.Text = "ComSpeed"
'
'TextBox_Port
'
Me.TextBox_Port.Location = New System.Drawing.Point(492, 47)
Me.TextBox_Port.MaxLength = 5
Me.TextBox_Port.Name = "TextBox_Port"
Me.TextBox_Port.Size = New System.Drawing.Size(58, 20)
Me.TextBox_Port.TabIndex = 56
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(460, 50)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(26, 13)
Me.Label4.TabIndex = 55
Me.Label4.Text = "Port"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(255, 50)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(17, 13)
Me.Label3.TabIndex = 54
Me.Label3.Text = "IP"
'
'TextBox_IP
'
Me.TextBox_IP.Location = New System.Drawing.Point(323, 47)
Me.TextBox_IP.MaxLength = 30
Me.TextBox_IP.Name = "TextBox_IP"
Me.TextBox_IP.Size = New System.Drawing.Size(114, 20)
Me.TextBox_IP.TabIndex = 53
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(21, 49)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(31, 13)
Me.Label2.TabIndex = 52
Me.Label2.Text = "COM"
'
'ComboBox_COM
'
Me.ComboBox_COM.FormattingEnabled = True
Me.ComboBox_COM.Items.AddRange(New Object() {"LAN", "COM", "COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9"})
Me.ComboBox_COM.Location = New System.Drawing.Point(115, 46)
Me.ComboBox_COM.Name = "ComboBox_COM"
Me.ComboBox_COM.Size = New System.Drawing.Size(121, 21)
Me.ComboBox_COM.TabIndex = 51
Me.ComboBox_COM.Text = "LAN"
'
'TextBox_KasseNr
'
Me.TextBox_KasseNr.Location = New System.Drawing.Point(115, 20)
Me.TextBox_KasseNr.MaxLength = 4
Me.TextBox_KasseNr.Name = "TextBox_KasseNr"
Me.TextBox_KasseNr.Size = New System.Drawing.Size(46, 20)
Me.TextBox_KasseNr.TabIndex = 50
Me.TextBox_KasseNr.Text = "1"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(21, 23)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(47, 13)
Me.Label1.TabIndex = 47
Me.Label1.Text = "KasseNr"
'
'POS
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(841, 543)
Me.Controls.Add(Me.CheckBoxDummy)
Me.Controls.Add(Me.CheckBoxAutodruck)
Me.Controls.Add(Me.Label15)
Me.Controls.Add(Me.comboInstalledPrinters)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.TextBox_BelegNr)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.StornoBelegNr)
Me.Controls.Add(Me.TextBox_Aktiv)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.ComboBox_Typ)
Me.Controls.Add(Me.Button_Haendlerbeleg_drucken)
Me.Controls.Add(Me.TextBox_Kassenbon)
Me.Controls.Add(Me.Button_Kundenbeleg_drucken)
Me.Controls.Add(Me.Button_Gutschrift)
Me.Controls.Add(Me.Button_Storno)
Me.Controls.Add(Me.Button_Tagesabschluss)
Me.Controls.Add(Me.Button_Diagnose)
Me.Controls.Add(Me.Button_Exit)
Me.Controls.Add(Me.CheckBox_Kassedruck)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.TextBox_Drucktext2)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.TextBox_Drucktext)
Me.Controls.Add(Me.TextBox_ErgebnisText)
Me.Controls.Add(Me.TextBox_Ergebnis)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Button_Autorisierung)
Me.Controls.Add(Me.TextBox_Betrag)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.TextBox_Lizenz)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.ComboBox_ComStop)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.ComboBox_ComSpeed)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.TextBox_Port)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.TextBox_IP)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.ComboBox_COM)
Me.Controls.Add(Me.TextBox_KasseNr)
Me.Controls.Add(Me.Label1)
Me.Name = "POS"
Me.Text = "POS"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents CheckBoxDummy As CheckBox
Friend WithEvents CheckBoxAutodruck As CheckBox
Friend WithEvents Label15 As Label
Friend WithEvents comboInstalledPrinters As ComboBox
Friend WithEvents Label12 As Label
Friend WithEvents TextBox_BelegNr As TextBox
Friend WithEvents Label14 As Label
Friend WithEvents StornoBelegNr As TextBox
Friend WithEvents TextBox_Aktiv As TextBox
Friend WithEvents Label13 As Label
Friend WithEvents ComboBox_Typ As ComboBox
Friend WithEvents Button_Haendlerbeleg_drucken As Button
Friend WithEvents TextBox_Kassenbon As TextBox
Friend WithEvents Button_Kundenbeleg_drucken As Button
Friend WithEvents Button_Gutschrift As Button
Friend WithEvents Button_Storno As Button
Friend WithEvents Button_Tagesabschluss As Button
Friend WithEvents Button_Diagnose As Button
Friend WithEvents Button_Exit As Button
Friend WithEvents CheckBox_Kassedruck As CheckBox
Friend WithEvents Label11 As Label
Friend WithEvents TextBox_Drucktext2 As TextBox
Friend WithEvents Label10 As Label
Friend WithEvents TextBox_Drucktext As TextBox
Friend WithEvents TextBox_ErgebnisText As TextBox
Friend WithEvents TextBox_Ergebnis As TextBox
Friend WithEvents Label9 As Label
Friend WithEvents Button_Autorisierung As Button
Friend WithEvents TextBox_Betrag As TextBox
Friend WithEvents Label8 As Label
Friend WithEvents TextBox_Lizenz As TextBox
Friend WithEvents Label7 As Label
Friend WithEvents ComboBox_ComStop As ComboBox
Friend WithEvents Label6 As Label
Friend WithEvents ComboBox_ComSpeed As ComboBox
Friend WithEvents Label5 As Label
Friend WithEvents TextBox_Port As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents Label3 As Label
Friend WithEvents TextBox_IP As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents ComboBox_COM As ComboBox
Friend WithEvents TextBox_KasseNr As TextBox
Friend WithEvents Label1 As Label
End Class

120
SDL/kassenbuch/POS.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

299
SDL/kassenbuch/POS.vb Normal file
View File

@@ -0,0 +1,299 @@
Imports System.Drawing.Printing
Imports Microsoft.Win32
Public Class POS
Public Sub New(ByVal _rptKundenBeleg, betrag)
rptKundenBeleg = _rptKundenBeleg
betrag = CInt(betrag)
End Sub
' Erstellt durch Jan Groetzner, Groetzner Unternehmensberatung, Seevetal
' Version: 02.03.2020
' Kontakt: easyzvt@groetzner.de
' Dieser Quellcode dient als Beispielimplementierung zur Einbindung von EasyZVT in die eigene Kassenanwendung.
' Der Code und auch Teile davon dürfen frei kopiert und in der Kassenanwendung verwendet werden
Private EasyZVT_Worker As System.ComponentModel.BackgroundWorker = New System.ComponentModel.BackgroundWorker()
Private Funktion As Integer
Private rptKundenBeleg As rptKundenBeleg
Private Betrag As Integer
Private WithEvents PDoc As Printing.PrintDocument
Private Sub POS_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' Anwendungsstart
' Worker-Thread wird initialisiert
' Vorherige Werte werden aus der Registry gelesen und in die Oberfläche eingetragen
' Die Werte in der Oberfläche sollten in der echten Anwendung in der Stammdatentabelle der Kasse gespeichert werden und nicht in der Registry. Geht aber natürlich auch hier.
Try
AddHandler EasyZVT_Worker.DoWork, New System.ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async)
AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted)
Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
TextBox_KasseNr.Text = ZVTKey.GetValue("KasseNr", "1")
ComboBox_COM.Text = ZVTKey.GetValue("COM", "LAN")
TextBox_IP.Text = ZVTKey.GetValue("IP", "192.168.86.122")
TextBox_Port.Text = ZVTKey.GetValue("Port", "20007")
ComboBox_ComSpeed.Text = ZVTKey.GetValue("ComSpeed", "9600")
ComboBox_ComStop.Text = ZVTKey.GetValue("ComStop", "1")
TextBox_Lizenz.Text = ZVTKey.GetValue("Lizenz", "")
If ZVTKey.GetValue("Kassedruck", 0) = 1 Then
CheckBox_Kassedruck.Checked = True
Else
CheckBox_Kassedruck.Checked = False
End If
ComboBox_Typ.SelectedIndex = ComboBox_Typ.FindString(ZVTKey.GetValue("Typ", 0).ToString)
PopulateInstalledPrintersCombo()
comboInstalledPrinters.SelectedIndex = comboInstalledPrinters.FindString(ZVTKey.GetValue("DemoDruckername", ""))
If ZVTKey.GetValue("DemoAutodruck", 0) = 0 Then
CheckBoxAutodruck.Checked = False
Else
CheckBoxAutodruck.Checked = True
End If
If ZVTKey.GetValue("DemoDummydruck", 1) = 0 Then
CheckBoxDummy.Checked = False
Else
CheckBoxDummy.Checked = True
End If
ZVTKey.Close()
Catch ex As Exception
MessageBox.Show("Fehler beim Einlesen der Standardwerte: " & ex.Message)
End Try
End Sub
Private Sub SetRegistryParameter()
'Funktion holt Werte direkt aus der Oberfläche (TextBox_...) und schreibt diese in die Registry als Eingabeparameter für EasyZVT.
'Im wahren Leben stehen diese Werte in Datenbankeinträgen der Stammdatenverwaltung in der Hauptanwendung
Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
Dim TypSelected As String
Dim Typ As Long
Try
ZVTKey.SetValue("Funktion", Funktion, RegistryValueKind.DWord)
TypSelected = Strings.Left(ComboBox_Typ.Text, 2).Replace(":", "")
Typ = TypSelected
ZVTKey.SetValue("Typ", Typ, RegistryValueKind.DWord)
ZVTKey.SetValue("KasseNr", TextBox_KasseNr.Text, RegistryValueKind.String)
ZVTKey.SetValue("COM", ComboBox_COM.Text, RegistryValueKind.String)
ZVTKey.SetValue("IP", TextBox_IP.Text, RegistryValueKind.String)
ZVTKey.SetValue("Port", CInt(TextBox_Port.Text), RegistryValueKind.DWord)
ZVTKey.SetValue("ComSpeed", CInt(ComboBox_ComSpeed.Text), RegistryValueKind.DWord)
ZVTKey.SetValue("ComStop", CInt(ComboBox_ComStop.Text), RegistryValueKind.DWord)
ZVTKey.SetValue("Lizenz", TextBox_Lizenz.Text, RegistryValueKind.String)
If Funktion = 0 Or Funktion = 4 Then
Betrag = CInt("0" & TextBox_Betrag.Text)
ZVTKey.SetValue("Betrag", Betrag, RegistryValueKind.DWord)
End If
If Funktion = 3 Then
ZVTKey.SetValue("StornoBetrag", CInt("0" & TextBox_Betrag.Text), RegistryValueKind.DWord)
ZVTKey.SetValue("StornoBelegNr", CInt("0" & StornoBelegNr.Text), RegistryValueKind.DWord)
End If
If CheckBox_Kassedruck.Checked Then
ZVTKey.SetValue("Kassedruck", 1, RegistryValueKind.DWord)
Else
ZVTKey.SetValue("Kassedruck", 0, RegistryValueKind.DWord)
End If
ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Zur Sicherheit, falls EasyZVT gar nicht installiert ist oder nicht gestartet werden kann
ZVTKey.SetValue("ErgebnisText", "EasyZVT konnte nicht gestartet werden", RegistryValueKind.String)
ZVTKey.SetValue("DemoDruckername", comboInstalledPrinters.Text, RegistryValueKind.String)
If CheckBoxAutodruck.Checked Then
ZVTKey.SetValue("DemoAutodruck", 1, RegistryValueKind.DWord)
Else
ZVTKey.SetValue("DemoAutodruck", 0, RegistryValueKind.DWord)
End If
If CheckBoxDummy.Checked Then
ZVTKey.SetValue("DemoDummydruck", 1, RegistryValueKind.DWord)
Else
ZVTKey.SetValue("DemoDummydruck", 0, RegistryValueKind.DWord)
End If
Button_Autorisierung.Enabled = False
Button_Diagnose.Enabled = False
Button_Tagesabschluss.Enabled = False
Button_Storno.Enabled = False
Button_Gutschrift.Enabled = False
Button_Exit.Enabled = False
TextBox_ErgebnisText.Text = "EasyZVT-Zahlung aktiv"
TextBox_Aktiv.Text = "warte auf Aktiv=0"
Catch ex As Exception
MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message)
Exit Sub
End Try
ZVTKey.Close()
End Sub
Private Sub Autorisierung()
Funktion = 0
SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync()
End Sub
Private Sub Button_Autorisierung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Autorisierung.Click
'Zahlung per Klick auslösen
Autorisierung()
End Sub
Private Sub TextBox_Betrag_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox_Betrag.KeyPress
End Sub
Private Sub EasyZVT_Async(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
' Programmstart von ZVTStart.exe und warten auf Programmende
Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
Try
Dim ZVTStart As String = ZVTKey.GetValue("Start")
Dim Proc As System.Diagnostics.Process
If (Len(ZVTStart) > 1) Then
ZVTKey.SetValue("Ergebnis", 1000, RegistryValueKind.DWord) ' Wenn das Ergebnis 1000 bleibt konnte EasyZVT nicht gestartet werden
Proc = System.Diagnostics.Process.Start(ZVTStart)
System.Threading.Thread.Sleep(3000) ' Warte drei Sekunden bis Prozess ZVTStart geladen ist, dann erst anfangen Flag Aktiv abzufragen
While ZVTKey.GetValue("Aktiv") = 1
System.Threading.Thread.Sleep(500) ' Warten...
If TextBox_Aktiv.BackColor = Color.Gray Then ' kleine Spielerei :-)
TextBox_Aktiv.BackColor = Color.Red
Else
TextBox_Aktiv.BackColor = Color.Gray
End If
End While
TextBox_Aktiv.BackColor = Color.Gray
Else
MsgBox("EasyZVT ist nicht installiert. Bitte im Internet Explorer über www.easyzvt.de/publish installieren")
End If
Catch ex As Exception
MessageBox.Show("Der Programmstart ist fehlgeschlagen: " & ex.Message)
Exit Sub
End Try
ZVTKey.Close()
End Sub
Private Sub EasyZVT_OnCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
' Diese Funktion wird automatisch aufgerufen wenn der Worker-Thread seine Arbeit beendet
' und EasyZVT seine Ausgabewerte in die Registry zurückgeschrieben hat
Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
TextBox_Aktiv.Text = ""
TextBox_Ergebnis.Text = ZVTKey.GetValue("Ergebnis")
TextBox_ErgebnisText.Text = ZVTKey.GetValue("ErgebnisText")
TextBox_Drucktext.Text = Replace(ZVTKey.GetValue("Drucktext"), vbLf, vbCrLf)
TextBox_Drucktext2.Text = Replace(ZVTKey.GetValue("Drucktext2"), vbLf, vbCrLf)
TextBox_BelegNr.Text = ZVTKey.GetValue("BelegNr").ToString
TextBox_Betrag.Text = ""
If CheckBoxAutodruck.Checked Then
If Len(TextBox_Drucktext.Text) > 1 Then
Button_Kundenbeleg_drucken.PerformClick()
End If
If Len(TextBox_Drucktext2.Text) > 1 Then
Button_Haendlerbeleg_drucken.PerformClick()
End If
End If
TextBox_Betrag.Focus()
Button_Autorisierung.Enabled = True
Button_Diagnose.Enabled = True
Button_Tagesabschluss.Enabled = True
Button_Storno.Enabled = True
Button_Gutschrift.Enabled = True
Button_Exit.Enabled = True
ZVTKey.Close()
End Sub
Private Sub Button_Diagnose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Diagnose.Click
Funktion = 1
SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync()
End Sub
Private Sub Button_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Exit.Click
Application.Exit()
End Sub
Private Sub Button_Tagesabschluss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Tagesabschluss.Click
Funktion = 2
SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync()
End Sub
Private Sub Button_Storno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Storno.Click
Funktion = 3
SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync()
End Sub
Private Sub Button_Gutschrift_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Gutschrift.Click
Funktion = 4
SetRegistryParameter()
EasyZVT_Worker.RunWorkerAsync()
End Sub
Private Sub PDoc_SeiteDrucken(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PDoc.PrintPage
Dim Textfont As Font = TextBox_Kassenbon.Font
Dim Hoehe, Breite As Integer
Dim Links, Oben As Integer
With PDoc.DefaultPageSettings
'Hoehe = .PaperSize.Height - .Margins.Top - .Margins.Bottom
'Breite = .PaperSize.Width - .Margins.Left - .Margins.Right
Hoehe = 500 ' 5,00 Zoll
Breite = 270 ' = 2,70 zoll
'Links = PDoc.DefaultPageSettings.Margins.Left
'Oben = PDoc.DefaultPageSettings.Margins.Top
Links = 10
Oben = 10
End With
' Einen Rahmen zeichnen
Dim Rahmen As New Rectangle(Links, Oben, Breite, Hoehe)
e.Graphics.DrawRectangle(Pens.Blue, Rahmen)
' In den Rahmen den Kassenbontext zeichnen
Dim StrFormat As StringFormat
StrFormat = New StringFormat(StringFormatFlags.LineLimit)
e.Graphics.DrawString(TextBox_Kassenbon.Text, Textfont, Brushes.Black, Rahmen, StrFormat)
e.HasMorePages = False
End Sub
Private Sub Button_Kundenbeleg_drucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Kundenbeleg_drucken.Click
End Sub
Private Sub Button_Haendlerbeleg_drucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Haendlerbeleg_drucken.Click
End Sub
Private Sub PopulateInstalledPrintersCombo()
' Add list of installed printers found to the combo box.
' The pkInstalledPrinters string will be used to provide the display string.
Dim i As Integer
Dim pkInstalledPrinters As String
For i = 0 To PrinterSettings.InstalledPrinters.Count - 1
pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i)
comboInstalledPrinters.Items.Add(pkInstalledPrinters)
Next
End Sub
Private Sub comboInstalledPrinters_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboInstalledPrinters.SelectedIndexChanged
End Sub
End Class

81
SDL/kassenbuch/frmBelegNeu.Designer.vb generated
View File

@@ -135,6 +135,7 @@ Partial Class frmBelegNeu
Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel()
Me.btnPOS = New System.Windows.Forms.Button()
CType(Me.dgvBelegPos, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnl.SuspendLayout()
Me.pnlData.SuspendLayout()
@@ -423,12 +424,12 @@ Partial Class frmBelegNeu
'
Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPrint.ForeColor = System.Drawing.Color.Black
Me.btnPrint.Image = Global.SDL.My.Resources.printer2
Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2
Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPrint.Location = New System.Drawing.Point(475, 33)
Me.btnPrint.Location = New System.Drawing.Point(556, 33)
Me.btnPrint.Name = "btnPrint"
Me.btnPrint.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
Me.btnPrint.Size = New System.Drawing.Size(145, 59)
Me.btnPrint.Size = New System.Drawing.Size(64, 59)
Me.btnPrint.TabIndex = 13
Me.btnPrint.Text = "Beleg drucken" & Global.Microsoft.VisualBasic.ChrW(10) & "und buchen"
Me.btnPrint.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -501,12 +502,15 @@ Partial Class frmBelegNeu
Me.txtAbfertigungsNr._DateTimeOnly = False
Me.txtAbfertigungsNr._numbersOnly = False
Me.txtAbfertigungsNr._numbersOnlyKommastellen = ""
Me.txtAbfertigungsNr._numbersOnlyTrennzeichen = True
Me.txtAbfertigungsNr._Prozent = False
Me.txtAbfertigungsNr._ShortDateNew = False
Me.txtAbfertigungsNr._ShortDateOnly = False
Me.txtAbfertigungsNr._TimeOnly = False
Me.txtAbfertigungsNr._TimeOnly_Seconds = False
Me.txtAbfertigungsNr._value = Nothing
Me.txtAbfertigungsNr._Waehrung = False
Me.txtAbfertigungsNr._WaehrungZeichen = True
Me.txtAbfertigungsNr.ForeColor = System.Drawing.Color.Black
Me.txtAbfertigungsNr.Location = New System.Drawing.Point(266, 259)
Me.txtAbfertigungsNr.MaxLength = 8
@@ -679,12 +683,15 @@ Partial Class frmBelegNeu
Me.txtzuKassieren._DateTimeOnly = False
Me.txtzuKassieren._numbersOnly = False
Me.txtzuKassieren._numbersOnlyKommastellen = ""
Me.txtzuKassieren._numbersOnlyTrennzeichen = True
Me.txtzuKassieren._Prozent = False
Me.txtzuKassieren._ShortDateNew = False
Me.txtzuKassieren._ShortDateOnly = False
Me.txtzuKassieren._TimeOnly = False
Me.txtzuKassieren._TimeOnly_Seconds = False
Me.txtzuKassieren._value = Nothing
Me.txtzuKassieren._Waehrung = True
Me.txtzuKassieren._WaehrungZeichen = True
Me.txtzuKassieren.Enabled = False
Me.txtzuKassieren.ForeColor = System.Drawing.Color.Black
Me.txtzuKassieren.Location = New System.Drawing.Point(441, 133)
@@ -757,7 +764,7 @@ Partial Class frmBelegNeu
'
Me.btnOfferte.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOfferte.ForeColor = System.Drawing.Color.Black
Me.btnOfferte.Image = Global.SDL.My.Resources.list
Me.btnOfferte.Image = Global.SDL.My.Resources.Resources.list
Me.btnOfferte.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnOfferte.Location = New System.Drawing.Point(212, 6)
Me.btnOfferte.Name = "btnOfferte"
@@ -786,12 +793,15 @@ Partial Class frmBelegNeu
Me.lblAtrKdNr._DateTimeOnly = False
Me.lblAtrKdNr._numbersOnly = False
Me.lblAtrKdNr._numbersOnlyKommastellen = ""
Me.lblAtrKdNr._numbersOnlyTrennzeichen = True
Me.lblAtrKdNr._Prozent = False
Me.lblAtrKdNr._ShortDateNew = False
Me.lblAtrKdNr._ShortDateOnly = False
Me.lblAtrKdNr._TimeOnly = False
Me.lblAtrKdNr._TimeOnly_Seconds = False
Me.lblAtrKdNr._value = Nothing
Me.lblAtrKdNr._Waehrung = False
Me.lblAtrKdNr._WaehrungZeichen = True
Me.lblAtrKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer))
Me.lblAtrKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lblAtrKdNr.ForeColor = System.Drawing.Color.Black
@@ -810,12 +820,15 @@ Partial Class frmBelegNeu
Me.lblkundeKdNr._DateTimeOnly = False
Me.lblkundeKdNr._numbersOnly = False
Me.lblkundeKdNr._numbersOnlyKommastellen = ""
Me.lblkundeKdNr._numbersOnlyTrennzeichen = True
Me.lblkundeKdNr._Prozent = False
Me.lblkundeKdNr._ShortDateNew = False
Me.lblkundeKdNr._ShortDateOnly = False
Me.lblkundeKdNr._TimeOnly = False
Me.lblkundeKdNr._TimeOnly_Seconds = False
Me.lblkundeKdNr._value = Nothing
Me.lblkundeKdNr._Waehrung = False
Me.lblkundeKdNr._WaehrungZeichen = True
Me.lblkundeKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer))
Me.lblkundeKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lblkundeKdNr.ForeColor = System.Drawing.Color.Black
@@ -858,12 +871,15 @@ Partial Class frmBelegNeu
Me.lblKunde_UstId_Land._DateTimeOnly = False
Me.lblKunde_UstId_Land._numbersOnly = False
Me.lblKunde_UstId_Land._numbersOnlyKommastellen = ""
Me.lblKunde_UstId_Land._numbersOnlyTrennzeichen = True
Me.lblKunde_UstId_Land._Prozent = False
Me.lblKunde_UstId_Land._ShortDateNew = False
Me.lblKunde_UstId_Land._ShortDateOnly = False
Me.lblKunde_UstId_Land._TimeOnly = False
Me.lblKunde_UstId_Land._TimeOnly_Seconds = False
Me.lblKunde_UstId_Land._value = Nothing
Me.lblKunde_UstId_Land._Waehrung = False
Me.lblKunde_UstId_Land._WaehrungZeichen = True
Me.lblKunde_UstId_Land.ForeColor = System.Drawing.Color.Black
Me.lblKunde_UstId_Land.Location = New System.Drawing.Point(62, 117)
Me.lblKunde_UstId_Land.MaxLength = 2
@@ -879,12 +895,15 @@ Partial Class frmBelegNeu
Me.lblKunde_UstId_Nr._DateTimeOnly = False
Me.lblKunde_UstId_Nr._numbersOnly = False
Me.lblKunde_UstId_Nr._numbersOnlyKommastellen = ""
Me.lblKunde_UstId_Nr._numbersOnlyTrennzeichen = True
Me.lblKunde_UstId_Nr._Prozent = False
Me.lblKunde_UstId_Nr._ShortDateNew = False
Me.lblKunde_UstId_Nr._ShortDateOnly = False
Me.lblKunde_UstId_Nr._TimeOnly = False
Me.lblKunde_UstId_Nr._TimeOnly_Seconds = False
Me.lblKunde_UstId_Nr._value = Nothing
Me.lblKunde_UstId_Nr._Waehrung = False
Me.lblKunde_UstId_Nr._WaehrungZeichen = True
Me.lblKunde_UstId_Nr.ForeColor = System.Drawing.Color.Black
Me.lblKunde_UstId_Nr.Location = New System.Drawing.Point(120, 117)
Me.lblKunde_UstId_Nr.MaxLength = 12
@@ -900,12 +919,15 @@ Partial Class frmBelegNeu
Me.txtSteuersatz._DateTimeOnly = False
Me.txtSteuersatz._numbersOnly = False
Me.txtSteuersatz._numbersOnlyKommastellen = ""
Me.txtSteuersatz._numbersOnlyTrennzeichen = True
Me.txtSteuersatz._Prozent = True
Me.txtSteuersatz._ShortDateNew = False
Me.txtSteuersatz._ShortDateOnly = False
Me.txtSteuersatz._TimeOnly = False
Me.txtSteuersatz._TimeOnly_Seconds = False
Me.txtSteuersatz._value = Nothing
Me.txtSteuersatz._Waehrung = False
Me.txtSteuersatz._WaehrungZeichen = True
Me.txtSteuersatz.ForeColor = System.Drawing.Color.Black
Me.txtSteuersatz.Location = New System.Drawing.Point(441, 77)
Me.txtSteuersatz.MaxLineLength = -1
@@ -945,12 +967,15 @@ Partial Class frmBelegNeu
Me.lblFrachtf_Pass._DateTimeOnly = False
Me.lblFrachtf_Pass._numbersOnly = False
Me.lblFrachtf_Pass._numbersOnlyKommastellen = ""
Me.lblFrachtf_Pass._numbersOnlyTrennzeichen = True
Me.lblFrachtf_Pass._Prozent = False
Me.lblFrachtf_Pass._ShortDateNew = False
Me.lblFrachtf_Pass._ShortDateOnly = False
Me.lblFrachtf_Pass._TimeOnly = False
Me.lblFrachtf_Pass._TimeOnly_Seconds = False
Me.lblFrachtf_Pass._value = Nothing
Me.lblFrachtf_Pass._Waehrung = False
Me.lblFrachtf_Pass._WaehrungZeichen = True
Me.lblFrachtf_Pass.ForeColor = System.Drawing.Color.Black
Me.lblFrachtf_Pass.Location = New System.Drawing.Point(441, 182)
Me.lblFrachtf_Pass.MaxLength = 15
@@ -966,12 +991,15 @@ Partial Class frmBelegNeu
Me.lblKunde_Land._DateTimeOnly = False
Me.lblKunde_Land._numbersOnly = False
Me.lblKunde_Land._numbersOnlyKommastellen = ""
Me.lblKunde_Land._numbersOnlyTrennzeichen = True
Me.lblKunde_Land._Prozent = False
Me.lblKunde_Land._ShortDateNew = False
Me.lblKunde_Land._ShortDateOnly = False
Me.lblKunde_Land._TimeOnly = False
Me.lblKunde_Land._TimeOnly_Seconds = False
Me.lblKunde_Land._value = Nothing
Me.lblKunde_Land._Waehrung = False
Me.lblKunde_Land._WaehrungZeichen = True
Me.lblKunde_Land.ForeColor = System.Drawing.Color.Black
Me.lblKunde_Land.Location = New System.Drawing.Point(8, 98)
Me.lblKunde_Land.MaxLength = 3
@@ -987,12 +1015,15 @@ Partial Class frmBelegNeu
Me.lblFrachtf_Fahrer._DateTimeOnly = False
Me.lblFrachtf_Fahrer._numbersOnly = False
Me.lblFrachtf_Fahrer._numbersOnlyKommastellen = ""
Me.lblFrachtf_Fahrer._numbersOnlyTrennzeichen = True
Me.lblFrachtf_Fahrer._Prozent = False
Me.lblFrachtf_Fahrer._ShortDateNew = False
Me.lblFrachtf_Fahrer._ShortDateOnly = False
Me.lblFrachtf_Fahrer._TimeOnly = False
Me.lblFrachtf_Fahrer._TimeOnly_Seconds = False
Me.lblFrachtf_Fahrer._value = Nothing
Me.lblFrachtf_Fahrer._Waehrung = False
Me.lblFrachtf_Fahrer._WaehrungZeichen = True
Me.lblFrachtf_Fahrer.ForeColor = System.Drawing.Color.Black
Me.lblFrachtf_Fahrer.Location = New System.Drawing.Point(441, 163)
Me.lblFrachtf_Fahrer.MaxLength = 40
@@ -1008,12 +1039,15 @@ Partial Class frmBelegNeu
Me.lblKunde_Plz._DateTimeOnly = False
Me.lblKunde_Plz._numbersOnly = False
Me.lblKunde_Plz._numbersOnlyKommastellen = ""
Me.lblKunde_Plz._numbersOnlyTrennzeichen = True
Me.lblKunde_Plz._Prozent = False
Me.lblKunde_Plz._ShortDateNew = False
Me.lblKunde_Plz._ShortDateOnly = False
Me.lblKunde_Plz._TimeOnly = False
Me.lblKunde_Plz._TimeOnly_Seconds = False
Me.lblKunde_Plz._value = Nothing
Me.lblKunde_Plz._Waehrung = False
Me.lblKunde_Plz._WaehrungZeichen = True
Me.lblKunde_Plz.ForeColor = System.Drawing.Color.Black
Me.lblKunde_Plz.Location = New System.Drawing.Point(34, 98)
Me.lblKunde_Plz.MaxLength = 7
@@ -1029,12 +1063,15 @@ Partial Class frmBelegNeu
Me.lblKunde_Strasse._DateTimeOnly = False
Me.lblKunde_Strasse._numbersOnly = False
Me.lblKunde_Strasse._numbersOnlyKommastellen = ""
Me.lblKunde_Strasse._numbersOnlyTrennzeichen = True
Me.lblKunde_Strasse._Prozent = False
Me.lblKunde_Strasse._ShortDateNew = False
Me.lblKunde_Strasse._ShortDateOnly = False
Me.lblKunde_Strasse._TimeOnly = False
Me.lblKunde_Strasse._TimeOnly_Seconds = False
Me.lblKunde_Strasse._value = Nothing
Me.lblKunde_Strasse._Waehrung = False
Me.lblKunde_Strasse._WaehrungZeichen = True
Me.lblKunde_Strasse.ForeColor = System.Drawing.Color.Black
Me.lblKunde_Strasse.Location = New System.Drawing.Point(8, 79)
Me.lblKunde_Strasse.MaxLength = 40
@@ -1050,12 +1087,15 @@ Partial Class frmBelegNeu
Me.lblFrachtf_LKWNr._DateTimeOnly = False
Me.lblFrachtf_LKWNr._numbersOnly = False
Me.lblFrachtf_LKWNr._numbersOnlyKommastellen = ""
Me.lblFrachtf_LKWNr._numbersOnlyTrennzeichen = True
Me.lblFrachtf_LKWNr._Prozent = False
Me.lblFrachtf_LKWNr._ShortDateNew = False
Me.lblFrachtf_LKWNr._ShortDateOnly = False
Me.lblFrachtf_LKWNr._TimeOnly = False
Me.lblFrachtf_LKWNr._TimeOnly_Seconds = False
Me.lblFrachtf_LKWNr._value = Nothing
Me.lblFrachtf_LKWNr._Waehrung = False
Me.lblFrachtf_LKWNr._WaehrungZeichen = True
Me.lblFrachtf_LKWNr.ForeColor = System.Drawing.Color.Black
Me.lblFrachtf_LKWNr.Location = New System.Drawing.Point(110, 164)
Me.lblFrachtf_LKWNr.MaxLength = 25
@@ -1071,12 +1111,15 @@ Partial Class frmBelegNeu
Me.lblKunde_Ort._DateTimeOnly = False
Me.lblKunde_Ort._numbersOnly = False
Me.lblKunde_Ort._numbersOnlyKommastellen = ""
Me.lblKunde_Ort._numbersOnlyTrennzeichen = True
Me.lblKunde_Ort._Prozent = False
Me.lblKunde_Ort._ShortDateNew = False
Me.lblKunde_Ort._ShortDateOnly = False
Me.lblKunde_Ort._TimeOnly = False
Me.lblKunde_Ort._TimeOnly_Seconds = False
Me.lblKunde_Ort._value = Nothing
Me.lblKunde_Ort._Waehrung = False
Me.lblKunde_Ort._WaehrungZeichen = True
Me.lblKunde_Ort.ForeColor = System.Drawing.Color.Black
Me.lblKunde_Ort.Location = New System.Drawing.Point(92, 98)
Me.lblKunde_Ort.MaxLength = 40
@@ -1100,6 +1143,7 @@ Partial Class frmBelegNeu
'
'kdkunde
'
Me.kdkunde._AlleFirmenCLUSTER = False
Me.kdkunde._AllowSetValue = True
Me.kdkunde._autoSizeGross = False
Me.kdkunde._display_Name1 = False
@@ -1108,6 +1152,7 @@ Partial Class frmBelegNeu
Me.kdkunde._displayWoelflKd = False
Me.kdkunde._hideIfListEmpty = True
Me.kdkunde._loadKdData = True
Me.kdkunde._UseFIRMA = ""
Me.kdkunde._ValueKdAndName = False
Me.kdkunde.dgvpos = "LEFT"
Me.kdkunde.KdName = Nothing
@@ -1121,10 +1166,12 @@ Partial Class frmBelegNeu
Me.kdkunde.searchActive = True
Me.kdkunde.Size = New System.Drawing.Size(331, 20)
Me.kdkunde.TabIndex = 10
Me.kdkunde.TIMER_SEARCH = True
Me.kdkunde.usrcntl = Nothing
'
'pnlOPt
'
Me.pnlOPt.Controls.Add(Me.btnPOS)
Me.pnlOPt.Controls.Add(Me.cbxBelegOffnen)
Me.pnlOPt.Controls.Add(Me.lblStorno)
Me.pnlOPt.Controls.Add(Me.Label17)
@@ -1210,7 +1257,7 @@ Partial Class frmBelegNeu
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.Black
Me.Button3.Image = Global.SDL.My.Resources.save
Me.Button3.Image = Global.SDL.My.Resources.Resources.save
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(590, 67)
Me.Button3.Name = "Button3"
@@ -1347,12 +1394,15 @@ Partial Class frmBelegNeu
Me.txtEinzelpreis._DateTimeOnly = False
Me.txtEinzelpreis._numbersOnly = True
Me.txtEinzelpreis._numbersOnlyKommastellen = "2"
Me.txtEinzelpreis._numbersOnlyTrennzeichen = True
Me.txtEinzelpreis._Prozent = False
Me.txtEinzelpreis._ShortDateNew = False
Me.txtEinzelpreis._ShortDateOnly = False
Me.txtEinzelpreis._TimeOnly = False
Me.txtEinzelpreis._TimeOnly_Seconds = False
Me.txtEinzelpreis._value = ""
Me.txtEinzelpreis._Waehrung = False
Me.txtEinzelpreis._WaehrungZeichen = True
Me.txtEinzelpreis.Enabled = False
Me.txtEinzelpreis.ForeColor = System.Drawing.Color.Red
Me.txtEinzelpreis.Location = New System.Drawing.Point(-1, 179)
@@ -1369,12 +1419,15 @@ Partial Class frmBelegNeu
Me.MyTextBox1._DateTimeOnly = False
Me.MyTextBox1._numbersOnly = False
Me.MyTextBox1._numbersOnlyKommastellen = ""
Me.MyTextBox1._numbersOnlyTrennzeichen = True
Me.MyTextBox1._Prozent = False
Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._TimeOnly_Seconds = False
Me.MyTextBox1._value = ""
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(0, 0)
Me.MyTextBox1.MaxLineLength = -1
@@ -1483,6 +1536,7 @@ Partial Class frmBelegNeu
'
'kdFrachtf
'
Me.kdFrachtf._AlleFirmenCLUSTER = False
Me.kdFrachtf._AllowSetValue = True
Me.kdFrachtf._autoSizeGross = False
Me.kdFrachtf._display_Name1 = False
@@ -1491,6 +1545,7 @@ Partial Class frmBelegNeu
Me.kdFrachtf._displayWoelflKd = False
Me.kdFrachtf._hideIfListEmpty = True
Me.kdFrachtf._loadKdData = True
Me.kdFrachtf._UseFIRMA = ""
Me.kdFrachtf._ValueKdAndName = False
Me.kdFrachtf.dgvpos = "LEFT"
Me.kdFrachtf.KdName = Nothing
@@ -1504,6 +1559,7 @@ Partial Class frmBelegNeu
Me.kdFrachtf.searchActive = True
Me.kdFrachtf.Size = New System.Drawing.Size(331, 20)
Me.kdFrachtf.TabIndex = 30
Me.kdFrachtf.TIMER_SEARCH = True
Me.kdFrachtf.usrcntl = Nothing
Me.kdFrachtf.Visible = False
'
@@ -1591,6 +1647,20 @@ Partial Class frmBelegNeu
Me.FlowLayoutPanel2.TabIndex = 3
Me.FlowLayoutPanel2.Visible = False
'
'btnPOS
'
Me.btnPOS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPOS.ForeColor = System.Drawing.Color.Black
Me.btnPOS.Image = Global.SDL.My.Resources.Resources.verag_Card1
Me.btnPOS.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPOS.Location = New System.Drawing.Point(486, 33)
Me.btnPOS.Name = "btnPOS"
Me.btnPOS.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
Me.btnPOS.Size = New System.Drawing.Size(64, 59)
Me.btnPOS.TabIndex = 16
Me.btnPOS.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnPOS.UseVisualStyleBackColor = True
'
'frmBelegNeu
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1730,4 +1800,5 @@ Partial Class frmBelegNeu
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtzuKassieren As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label22 As System.Windows.Forms.Label
Friend WithEvents btnPOS As Button
End Class

16
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -27,7 +27,9 @@ Public Class frmBelegNeu
Public printErfolgreich = False
Public defaultPrinter = ""
Private EasyZVT_Worker As System.ComponentModel.BackgroundWorker = New System.ComponentModel.BackgroundWorker()
Private Funktion As Integer
Private Betrag As Integer = 0
Public aktFiliale As Integer = 0
Public aktAbfertigungsNr As Integer = 0
@@ -721,15 +723,20 @@ Public Class frmBelegNeu
' Dim RKSV_Service_Location = "\\192.168.0.106:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click, btnPOS.Click
Dim IsPosPayment As Boolean = False
If sender.Name = "btnPOS" Then
IsPosPayment = True
End If
Try
printErfolgreich = False
If BELEG.gebucht Or BELEG.gebuchtStorno Then
' KASSE.LOAD(cboKassen._value)
If BELEG.rksv_id > 0 Then KASSE.LOAD(BELEG.rksv_id)
Select Case BELEG.Belegart
Case "1" : If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then Me.Close()
Case "1" : If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked, IsPosPayment) Then Me.Close()
Case "2" : If cRKSV.printKundenBelegLG(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, "LG") Then Me.Close() 'Beleg drucken
End Select
Else
@@ -856,7 +863,7 @@ Public Class frmBelegNeu
Select Case BELEG.Belegart
Case "1"
If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked, IsPosPayment) Then
'WARTEN
printErfolgreich = True
End If
@@ -1462,6 +1469,7 @@ Public Class frmBelegNeu
End Sub
End Class
Class TestRKSVW

2
SDL/kassenbuch/frmKassenbuch.vb
View File

@@ -58,7 +58,7 @@ Public Class frmKassenbuch
If PERSONAL.ID = 274 Then master_Kasse = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "SIENER" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "SIENER" Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "DANIEL" Then
Button6.Visible = True
End If
KennwortTime = Now

2
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -1192,7 +1192,7 @@
<Version>3.8.0</Version>
</PackageReference>
<PackageReference Include="Newtonsoft.Json">
<Version>10.0.3</Version>
<Version>13.0.2</Version>
</PackageReference>
</ItemGroup>
<ItemGroup>