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

Leihgeld - Optische Anpassungen

Browse Source
This commit is contained in:
d.breimaier
2026-01-12 16:17:34 +01:00
parent df97e245b8
commit 69fac47769
2 changed files with 55 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

106
SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmNacherfassungLeihgeld
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,11 +20,11 @@ Partial Class frmNacherfassungLeihgeld
'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()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNacherfassungLeihgeld))
Me.pnl = New System.Windows.Forms.Panel()
Me.btnWiki = New System.Windows.Forms.Button()
Me.btnWikiStatusmails = New System.Windows.Forms.Button()
Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnNeueAbfertigungNrVergeben = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
@@ -71,7 +71,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxOP_sofort_buchen = New System.Windows.Forms.CheckBox()
Me.lblGesperrt = New System.Windows.Forms.Label()
Me.cbxProvAnMA = New System.Windows.Forms.CheckBox()
Me.cbxProvinMAKassa = New System.Windows.Forms.CheckBox()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -81,7 +81,7 @@ Partial Class frmNacherfassungLeihgeld
'
Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.btnWiki)
Me.pnl.Controls.Add(Me.btnWikiStatusmails)
Me.pnl.Controls.Add(Me.txtDatum)
Me.pnl.Controls.Add(Me.btnNeueAbfertigungNrVergeben)
Me.pnl.Controls.Add(Me.Label2)
@@ -93,21 +93,21 @@ Partial Class frmNacherfassungLeihgeld
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(525, 94)
Me.pnl.Size = New System.Drawing.Size(441, 94)
Me.pnl.TabIndex = 0
'
'btnWiki
'btnWikiStatusmails
'
Me.btnWiki.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnWiki.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.btnWiki.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnWiki.FlatAppearance.BorderSize = 0
Me.btnWiki.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnWiki.Location = New System.Drawing.Point(494, 3)
Me.btnWiki.Name = "btnWiki"
Me.btnWiki.Size = New System.Drawing.Size(25, 20)
Me.btnWiki.TabIndex = 215
Me.btnWiki.UseVisualStyleBackColor = False
Me.btnWikiStatusmails.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0
Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnWikiStatusmails.Location = New System.Drawing.Point(410, 3)
Me.btnWikiStatusmails.Name = "btnWikiStatusmails"
Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20)
Me.btnWikiStatusmails.TabIndex = 215
Me.btnWikiStatusmails.UseVisualStyleBackColor = False
'
'txtDatum
'
@@ -139,7 +139,7 @@ Partial Class frmNacherfassungLeihgeld
'btnNeueAbfertigungNrVergeben
'
Me.btnNeueAbfertigungNrVergeben.BackColor = System.Drawing.Color.Gainsboro
Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(365, 57)
Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(281, 57)
Me.btnNeueAbfertigungNrVergeben.Name = "btnNeueAbfertigungNrVergeben"
Me.btnNeueAbfertigungNrVergeben.Size = New System.Drawing.Size(145, 24)
Me.btnNeueAbfertigungNrVergeben.TabIndex = 6
@@ -150,7 +150,7 @@ Partial Class frmNacherfassungLeihgeld
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(362, 41)
Me.Label2.Location = New System.Drawing.Point(278, 41)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(103, 13)
Me.Label2.TabIndex = 3
@@ -171,7 +171,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtAbfertigungsnummer._Waehrung = False
Me.txtAbfertigungsnummer._WaehrungZeichen = True
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(365, 57)
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(281, 57)
Me.txtAbfertigungsnummer.MaxLength = 8
Me.txtAbfertigungsnummer.MaxLineLength = -1
Me.txtAbfertigungsnummer.MaxLines_Warning = ""
@@ -189,7 +189,7 @@ Partial Class frmNacherfassungLeihgeld
Me.cboFiliale.Enabled = False
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(280, 56)
Me.cboFiliale.Location = New System.Drawing.Point(196, 56)
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
Me.cboFiliale.TabIndex = 5
@@ -198,7 +198,7 @@ Partial Class frmNacherfassungLeihgeld
'
Me.Label1.AutoSize = True
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(277, 41)
Me.Label1.Location = New System.Drawing.Point(193, 41)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(33, 13)
Me.Label1.TabIndex = 2
@@ -288,7 +288,7 @@ Partial Class frmNacherfassungLeihgeld
Me.btnPrint.ForeColor = System.Drawing.Color.Black
Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2
Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPrint.Location = New System.Drawing.Point(375, 331)
Me.btnPrint.Location = New System.Drawing.Point(291, 331)
Me.btnPrint.Name = "btnPrint"
Me.btnPrint.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
Me.btnPrint.Size = New System.Drawing.Size(136, 66)
@@ -323,7 +323,7 @@ Partial Class frmNacherfassungLeihgeld
Me.cboPrintAktendeckel.AutoSize = True
Me.cboPrintAktendeckel.Checked = True
Me.cboPrintAktendeckel.CheckState = System.Windows.Forms.CheckState.Checked
Me.cboPrintAktendeckel.Location = New System.Drawing.Point(375, 303)
Me.cboPrintAktendeckel.Location = New System.Drawing.Point(291, 313)
Me.cboPrintAktendeckel.Name = "cboPrintAktendeckel"
Me.cboPrintAktendeckel.Size = New System.Drawing.Size(128, 17)
Me.cboPrintAktendeckel.TabIndex = 17
@@ -333,7 +333,7 @@ Partial Class frmNacherfassungLeihgeld
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(80, 69)
Me.Label8.Location = New System.Drawing.Point(80, 83)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(87, 13)
Me.Label8.TabIndex = 6
@@ -363,7 +363,7 @@ Partial Class frmNacherfassungLeihgeld
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(17, 69)
Me.Label10.Location = New System.Drawing.Point(17, 83)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(45, 13)
Me.Label10.TabIndex = 5
@@ -382,7 +382,7 @@ Partial Class frmNacherfassungLeihgeld
'
Me.cbxProvisionAuftraggeber.AutoSize = True
Me.cbxProvisionAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(281, 13)
Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(186, 13)
Me.cbxProvisionAuftraggeber.Name = "cbxProvisionAuftraggeber"
Me.cbxProvisionAuftraggeber.Size = New System.Drawing.Size(173, 17)
Me.cbxProvisionAuftraggeber.TabIndex = 1
@@ -392,7 +392,7 @@ Partial Class frmNacherfassungLeihgeld
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel1.Controls.Add(Me.cbxProvAnMA)
Me.Panel1.Controls.Add(Me.cbxProvinMAKassa)
Me.Panel1.Controls.Add(Me.cbxProvision)
Me.Panel1.Controls.Add(Me.txtAuftrProvision)
Me.Panel1.Controls.Add(Me.cbxProvisionAuftraggeber)
@@ -404,9 +404,9 @@ Partial Class frmNacherfassungLeihgeld
Me.Panel1.Controls.Add(Me.txtProvisionProzent)
Me.Panel1.Controls.Add(Me.cboProvisionStaffelArt)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel1.Location = New System.Drawing.Point(0, 404)
Me.Panel1.Location = New System.Drawing.Point(0, 400)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(525, 122)
Me.Panel1.Size = New System.Drawing.Size(441, 147)
Me.Panel1.TabIndex = 20
'
'txtAuftrProvision
@@ -425,7 +425,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtAuftrProvision._WaehrungZeichen = True
Me.txtAuftrProvision.Enabled = False
Me.txtAuftrProvision.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.txtAuftrProvision.Location = New System.Drawing.Point(460, 13)
Me.txtAuftrProvision.Location = New System.Drawing.Point(365, 11)
Me.txtAuftrProvision.MaxLineLength = -1
Me.txtAuftrProvision.MaxLines_Warning = ""
Me.txtAuftrProvision.MaxLines_Warning_Label = Nothing
@@ -449,7 +449,7 @@ Partial Class frmNacherfassungLeihgeld
Me.cboProvisionBetrag._WaehrungZeichen = True
Me.cboProvisionBetrag.Enabled = False
Me.cboProvisionBetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.cboProvisionBetrag.Location = New System.Drawing.Point(83, 85)
Me.cboProvisionBetrag.Location = New System.Drawing.Point(83, 99)
Me.cboProvisionBetrag.MaxLineLength = -1
Me.cboProvisionBetrag.MaxLines_Warning = ""
Me.cboProvisionBetrag.MaxLines_Warning_Label = Nothing
@@ -464,7 +464,7 @@ Partial Class frmNacherfassungLeihgeld
Me.cboProvisionStaffel._value = ""
Me.cboProvisionStaffel.Enabled = False
Me.cboProvisionStaffel.FormattingEnabled = True
Me.cboProvisionStaffel.Location = New System.Drawing.Point(176, 36)
Me.cboProvisionStaffel.Location = New System.Drawing.Point(176, 50)
Me.cboProvisionStaffel.Name = "cboProvisionStaffel"
Me.cboProvisionStaffel.Size = New System.Drawing.Size(251, 21)
Me.cboProvisionStaffel.TabIndex = 4
@@ -485,7 +485,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtProvisionProzent._WaehrungZeichen = True
Me.txtProvisionProzent.Enabled = False
Me.txtProvisionProzent.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtProvisionProzent.Location = New System.Drawing.Point(21, 85)
Me.txtProvisionProzent.Location = New System.Drawing.Point(21, 99)
Me.txtProvisionProzent.MaxLineLength = -1
Me.txtProvisionProzent.MaxLines_Warning = ""
Me.txtProvisionProzent.MaxLines_Warning_Label = Nothing
@@ -500,7 +500,7 @@ Partial Class frmNacherfassungLeihgeld
Me.cboProvisionStaffelArt._value = ""
Me.cboProvisionStaffelArt.Enabled = False
Me.cboProvisionStaffelArt.FormattingEnabled = True
Me.cboProvisionStaffelArt.Location = New System.Drawing.Point(21, 36)
Me.cboProvisionStaffelArt.Location = New System.Drawing.Point(21, 50)
Me.cboProvisionStaffelArt.Name = "cboProvisionStaffelArt"
Me.cboProvisionStaffelArt.Size = New System.Drawing.Size(156, 21)
Me.cboProvisionStaffelArt.TabIndex = 3
@@ -511,7 +511,7 @@ Partial Class frmNacherfassungLeihgeld
Me.Panel2.Controls.Add(Me.Label7)
Me.Panel2.Controls.Add(Me.cboPrinter)
Me.Panel2.Controls.Add(Me.cboPrinterProvisionBeleg)
Me.Panel2.Location = New System.Drawing.Point(297, 60)
Me.Panel2.Location = New System.Drawing.Point(210, 83)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(228, 59)
Me.Panel2.TabIndex = 21
@@ -654,7 +654,7 @@ Partial Class frmNacherfassungLeihgeld
Me.ksFrachtführerKdNr.MaxLines_Warning_Label = Nothing
Me.ksFrachtführerKdNr.Name = "ksFrachtführerKdNr"
Me.ksFrachtführerKdNr.ReadOnly = True
Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(222, 23)
Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(138, 23)
Me.ksFrachtführerKdNr.TabIndex = 3
'
'txtPassnummer
@@ -678,7 +678,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtPassnummer.MaxLines_Warning = ""
Me.txtPassnummer.MaxLines_Warning_Label = Nothing
Me.txtPassnummer.Name = "txtPassnummer"
Me.txtPassnummer.Size = New System.Drawing.Size(222, 20)
Me.txtPassnummer.Size = New System.Drawing.Size(138, 20)
Me.txtPassnummer.TabIndex = 9
'
'txtAuftraggeber
@@ -756,7 +756,7 @@ Partial Class frmNacherfassungLeihgeld
Me.txtAuftraggeberKdNr.MaxLines_Warning_Label = Nothing
Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr"
Me.txtAuftraggeberKdNr.ReadOnly = True
Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(222, 23)
Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(138, 23)
Me.txtAuftraggeberKdNr.TabIndex = 13
'
'MyTextBoxLKWKz
@@ -810,7 +810,7 @@ Partial Class frmNacherfassungLeihgeld
'cbxOP_sofort_buchen
'
Me.cbxOP_sofort_buchen.AutoSize = True
Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(375, 280)
Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(291, 290)
Me.cbxOP_sofort_buchen.Name = "cbxOP_sofort_buchen"
Me.cbxOP_sofort_buchen.Size = New System.Drawing.Size(145, 17)
Me.cbxOP_sofort_buchen.TabIndex = 213
@@ -829,23 +829,23 @@ Partial Class frmNacherfassungLeihgeld
Me.lblGesperrt.Text = "gesperrt!"
Me.lblGesperrt.Visible = False
'
'cbxProvAnMA
'cbxProvinMAKassa
'
Me.cbxProvAnMA.AutoSize = True
Me.cbxProvAnMA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxProvAnMA.Location = New System.Drawing.Point(161, 13)
Me.cbxProvAnMA.Name = "cbxProvAnMA"
Me.cbxProvAnMA.Size = New System.Drawing.Size(119, 17)
Me.cbxProvAnMA.TabIndex = 22
Me.cbxProvAnMA.Text = "In Mitarbeiter-Kassa"
Me.cbxProvAnMA.UseVisualStyleBackColor = True
Me.cbxProvinMAKassa.AutoSize = True
Me.cbxProvinMAKassa.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxProvinMAKassa.Location = New System.Drawing.Point(21, 31)
Me.cbxProvinMAKassa.Name = "cbxProvinMAKassa"
Me.cbxProvinMAKassa.Size = New System.Drawing.Size(138, 17)
Me.cbxProvinMAKassa.TabIndex = 22
Me.cbxProvinMAKassa.Text = "in Mitarbeiter-Kassa"
Me.cbxProvinMAKassa.UseVisualStyleBackColor = True
'
'frmNacherfassungLeihgeld
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(525, 526)
Me.ClientSize = New System.Drawing.Size(441, 547)
Me.Controls.Add(Me.lblGesperrt)
Me.Controls.Add(Me.cbxOP_sofort_buchen)
Me.Controls.Add(Me.txtOpLeihgeld)
@@ -934,6 +934,6 @@ Partial Class frmNacherfassungLeihgeld
Friend WithEvents Label44 As Label
Public WithEvents cbxOP_sofort_buchen As CheckBox
Friend WithEvents lblGesperrt As Label
Friend WithEvents btnWiki As Button
Friend WithEvents cbxProvAnMA As CheckBox
Friend WithEvents btnWikiStatusmails As Button
Friend WithEvents cbxProvinMAKassa As CheckBox
End Class

4
SDL/kassenbuch/frmNacherfassungLeihgeld.vb
View File

@@ -406,7 +406,7 @@ Public Class frmNacherfassungLeihgeld
Dim barbetrag As Double = 0
Dim BelegNrProvision = 0
If cbxProvision.Checked Then
printProvision(barbetrag, BelegNrProvision, cbxProvAnMA.Checked)
printProvision(barbetrag, BelegNrProvision, cbxProvinMAKassa.Checked)
End If
@@ -1043,7 +1043,7 @@ Public Class frmNacherfassungLeihgeld
txtAuftrProvision.Enabled = sender.checked
End Sub
Private Sub btnWikis_Click(sender As Object, e As EventArgs) Handles btnWiki.Click
Private Sub btnWikis_Click(sender As Object, e As EventArgs) Handles btnWikiStatusmails.Click
Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Leihgeldkassa"
Process.Start(webAddress)