gesamtsicherheiten, Ref, Mail, etc.

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!)

SDL/kassenbuch/frmNacherfassungLeihgeld.vb

@@ -523,11 +523,21 @@ Public Class frmNacherfassungLeihgeld
             RG.FilialenNr = SPEDBUCH.FilialenNr
             RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum
             RG.Sammelrechnung = 0
-            RG.BelegartenKz = "AR"
+
+            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
             RG.VermittlerName_1 = AD.Name_1