From 69fac47769df8b15ac53b14548784ed65ba6e13c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 12 Jan 2026 16:17:34 +0100 Subject: [PATCH] Leihgeld - Optische Anpassungen --- .../frmNacherfassungLeihgeld.Designer.vb | 106 +++++++++--------- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 4 +- 2 files changed, 55 insertions(+), 55 deletions(-) diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb index 69d74d17..a5093c67 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmNacherfassungLeihgeld Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -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. - _ + 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 diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index 01602ade..1d171415 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -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)