gesamtsicherheiten, Ref, Mail, etc.

2026-04-09 13:01:46 +02:00
parent c0c4c7eb41
commit aba848dc3f
2 changed files with 64 additions and 53 deletions
--- 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!)
--- 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