From aba848dc3f436cadb81268696076ceb7253a7fb2 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 9 Apr 2026 13:01:46 +0200 Subject: [PATCH] gesamtsicherheiten, Ref, Mail, etc. --- .../frmNacherfassungLeihgeld.Designer.vb | 99 ++++++++++--------- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 18 +++- 2 files changed, 64 insertions(+), 53 deletions(-) diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb index a5093c67..99ef036b 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb @@ -50,14 +50,15 @@ Partial Class frmNacherfassungLeihgeld Me.Label11 = New System.Windows.Forms.Label() Me.cbxProvisionAuftraggeber = New System.Windows.Forms.CheckBox() Me.Panel1 = New System.Windows.Forms.Panel() + Me.cbxProvinMAKassa = New System.Windows.Forms.CheckBox() Me.txtAuftrProvision = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cboProvisionBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboProvisionStaffel = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtProvisionProzent = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboProvisionStaffelArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Panel2 = New System.Windows.Forms.Panel() Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboPrinterProvisionBeleg = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboProvisionStaffel = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtProvisionProzent = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboProvisionStaffelArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label44 = New System.Windows.Forms.Label() Me.txtOpLeihgeld = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtKdAuftragsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -71,7 +72,6 @@ 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.cbxProvinMAKassa = New System.Windows.Forms.CheckBox() Me.pnl.SuspendLayout() Me.Panel1.SuspendLayout() Me.Panel2.SuspendLayout() @@ -409,6 +409,17 @@ Partial Class frmNacherfassungLeihgeld Me.Panel1.Size = New System.Drawing.Size(441, 147) Me.Panel1.TabIndex = 20 ' + 'cbxProvinMAKassa + ' + 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 + ' 'txtAuftrProvision ' Me.txtAuftrProvision._DateTimeOnly = False @@ -457,6 +468,40 @@ Partial Class frmNacherfassungLeihgeld Me.cboProvisionBetrag.Size = New System.Drawing.Size(124, 26) Me.cboProvisionBetrag.TabIndex = 8 ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.Label6) + 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(210, 83) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(228, 59) + Me.Panel2.TabIndex = 21 + ' + 'cboPrinter + ' + Me.cboPrinter._allowedValuesFreiText = Nothing + Me.cboPrinter._allowFreiText = False + Me.cboPrinter._value = "" + Me.cboPrinter.FormattingEnabled = True + Me.cboPrinter.Location = New System.Drawing.Point(83, 6) + Me.cboPrinter.Name = "cboPrinter" + Me.cboPrinter.Size = New System.Drawing.Size(131, 21) + Me.cboPrinter.TabIndex = 1 + ' + 'cboPrinterProvisionBeleg + ' + Me.cboPrinterProvisionBeleg._allowedValuesFreiText = Nothing + Me.cboPrinterProvisionBeleg._allowFreiText = False + Me.cboPrinterProvisionBeleg._value = "" + Me.cboPrinterProvisionBeleg.Enabled = False + Me.cboPrinterProvisionBeleg.FormattingEnabled = True + Me.cboPrinterProvisionBeleg.Location = New System.Drawing.Point(83, 30) + Me.cboPrinterProvisionBeleg.Name = "cboPrinterProvisionBeleg" + Me.cboPrinterProvisionBeleg.Size = New System.Drawing.Size(131, 21) + Me.cboPrinterProvisionBeleg.TabIndex = 3 + ' 'cboProvisionStaffel ' Me.cboProvisionStaffel._allowedValuesFreiText = Nothing @@ -505,40 +550,6 @@ Partial Class frmNacherfassungLeihgeld Me.cboProvisionStaffelArt.Size = New System.Drawing.Size(156, 21) Me.cboProvisionStaffelArt.TabIndex = 3 ' - 'Panel2 - ' - Me.Panel2.Controls.Add(Me.Label6) - 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(210, 83) - Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(228, 59) - Me.Panel2.TabIndex = 21 - ' - 'cboPrinter - ' - Me.cboPrinter._allowedValuesFreiText = Nothing - Me.cboPrinter._allowFreiText = False - Me.cboPrinter._value = "" - Me.cboPrinter.FormattingEnabled = True - Me.cboPrinter.Location = New System.Drawing.Point(83, 6) - Me.cboPrinter.Name = "cboPrinter" - Me.cboPrinter.Size = New System.Drawing.Size(131, 21) - Me.cboPrinter.TabIndex = 1 - ' - 'cboPrinterProvisionBeleg - ' - Me.cboPrinterProvisionBeleg._allowedValuesFreiText = Nothing - Me.cboPrinterProvisionBeleg._allowFreiText = False - Me.cboPrinterProvisionBeleg._value = "" - Me.cboPrinterProvisionBeleg.Enabled = False - Me.cboPrinterProvisionBeleg.FormattingEnabled = True - Me.cboPrinterProvisionBeleg.Location = New System.Drawing.Point(83, 30) - Me.cboPrinterProvisionBeleg.Name = "cboPrinterProvisionBeleg" - Me.cboPrinterProvisionBeleg.Size = New System.Drawing.Size(131, 21) - Me.cboPrinterProvisionBeleg.TabIndex = 3 - ' 'Label44 ' Me.Label44.AutoSize = True @@ -810,6 +821,7 @@ Partial Class frmNacherfassungLeihgeld 'cbxOP_sofort_buchen ' Me.cbxOP_sofort_buchen.AutoSize = True + Me.cbxOP_sofort_buchen.Enabled = False 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) @@ -829,17 +841,6 @@ Partial Class frmNacherfassungLeihgeld Me.lblGesperrt.Text = "gesperrt!" Me.lblGesperrt.Visible = False ' - 'cbxProvinMAKassa - ' - 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!) diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index ef817be8..a164d2cf 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -523,10 +523,20 @@ Public Class frmNacherfassungLeihgeld RG.FilialenNr = SPEDBUCH.FilialenNr RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum RG.Sammelrechnung = 0 - RG.BelegartenKz = "AR" - RG.BelegartenNr = 70 - RG.BelegartenBez = "Rechnung" - RG.Vorzeichen = "+" + + If summeBRUTTO >= 0 Then + + RG.BelegartenNr = 70 + RG.BelegartenKz = "AR" + RG.BelegartenBez = "Rechnung" + RG.Vorzeichen = "+" + + Else + RG.BelegartenNr = 71 + RG.BelegartenKz = "AG" + RG.BelegartenBez = "Gutschrift" + RG.Vorzeichen = "-" + End If RG.VermittlerKundenNr = AD.AdressenNr RG.VermittlerLandKz = AD.LandKz