RKSV-Leihgeldkassa!

SDL/kassenbuch/frmBelegNeu.Designer.vb

@@ -71,13 +71,13 @@ Partial Class frmBelegNeu
         Me.btnAusgabebeleg = New System.Windows.Forms.Button()
         Me.lblErrPos = New System.Windows.Forms.Label()
         Me.pnlData = New System.Windows.Forms.Panel()
+        Me.lblErr_Fahrer = New System.Windows.Forms.Label()
+        Me.lblErr_Pass = New System.Windows.Forms.Label()
         Me.Label28 = New System.Windows.Forms.Label()
         Me.lblZahlungsmittel = New System.Windows.Forms.Label()
         Me.txtzuKassieren = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label22 = New System.Windows.Forms.Label()
         Me.cbxSplittung = New System.Windows.Forms.CheckBox()
-        Me.lblErr_Fahrer = New System.Windows.Forms.Label()
-        Me.lblErr_Pass = New System.Windows.Forms.Label()
         Me.lblErr_LKW = New System.Windows.Forms.Label()
         Me.btnOfferte = New System.Windows.Forms.Button()
         Me.Label19 = New System.Windows.Forms.Label()
@@ -144,6 +144,7 @@ Partial Class frmBelegNeu
         Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.cboLeihgeldEinzahlung = New System.Windows.Forms.CheckBox()
         CType(Me.dgvBelegPos, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnl.SuspendLayout()
         Me.pnlData.SuspendLayout()
@@ -645,6 +646,7 @@ Partial Class frmBelegNeu
         'pnlData
         '
         Me.pnlData.BackColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer))
+        Me.pnlData.Controls.Add(Me.cboLeihgeldEinzahlung)
         Me.pnlData.Controls.Add(Me.lblErr_Fahrer)
         Me.pnlData.Controls.Add(Me.lblErr_Pass)
         Me.pnlData.Controls.Add(Me.Label28)
@@ -690,6 +692,30 @@ Partial Class frmBelegNeu
         Me.pnlData.Size = New System.Drawing.Size(624, 208)
         Me.pnlData.TabIndex = 5
         '
+        'lblErr_Fahrer
+        '
+        Me.lblErr_Fahrer.AutoSize = True
+        Me.lblErr_Fahrer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblErr_Fahrer.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_Fahrer.Location = New System.Drawing.Point(351, 150)
+        Me.lblErr_Fahrer.Name = "lblErr_Fahrer"
+        Me.lblErr_Fahrer.Size = New System.Drawing.Size(90, 13)
+        Me.lblErr_Fahrer.TabIndex = 43
+        Me.lblErr_Fahrer.Text = "Bitte angeben!"
+        Me.lblErr_Fahrer.Visible = False
+        '
+        'lblErr_Pass
+        '
+        Me.lblErr_Pass.AutoSize = True
+        Me.lblErr_Pass.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblErr_Pass.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_Pass.Location = New System.Drawing.Point(351, 196)
+        Me.lblErr_Pass.Name = "lblErr_Pass"
+        Me.lblErr_Pass.Size = New System.Drawing.Size(90, 13)
+        Me.lblErr_Pass.TabIndex = 42
+        Me.lblErr_Pass.Text = "Bitte angeben!"
+        Me.lblErr_Pass.Visible = False
+        '
         'Label28
         '
         Me.Label28.AutoSize = True
@@ -758,30 +784,6 @@ Partial Class frmBelegNeu
         Me.cbxSplittung.Text = "Splittung nach Sendung"
         Me.cbxSplittung.UseVisualStyleBackColor = True
         '
-        'lblErr_Fahrer
-        '
-        Me.lblErr_Fahrer.AutoSize = True
-        Me.lblErr_Fahrer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblErr_Fahrer.ForeColor = System.Drawing.Color.Red
-        Me.lblErr_Fahrer.Location = New System.Drawing.Point(351, 150)
-        Me.lblErr_Fahrer.Name = "lblErr_Fahrer"
-        Me.lblErr_Fahrer.Size = New System.Drawing.Size(90, 13)
-        Me.lblErr_Fahrer.TabIndex = 43
-        Me.lblErr_Fahrer.Text = "Bitte angeben!"
-        Me.lblErr_Fahrer.Visible = False
-        '
-        'lblErr_Pass
-        '
-        Me.lblErr_Pass.AutoSize = True
-        Me.lblErr_Pass.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblErr_Pass.ForeColor = System.Drawing.Color.Red
-        Me.lblErr_Pass.Location = New System.Drawing.Point(351, 196)
-        Me.lblErr_Pass.Name = "lblErr_Pass"
-        Me.lblErr_Pass.Size = New System.Drawing.Size(90, 13)
-        Me.lblErr_Pass.TabIndex = 42
-        Me.lblErr_Pass.Text = "Bitte angeben!"
-        Me.lblErr_Pass.Visible = False
-        '
         'lblErr_LKW
         '
         Me.lblErr_LKW.AutoSize = True
@@ -989,6 +991,7 @@ Partial Class frmBelegNeu
         Me.cboFrachtf_Sgut._allowedValuesFreiText = Nothing
         Me.cboFrachtf_Sgut._allowFreiText = False
         Me.cboFrachtf_Sgut._value = ""
+        Me.cboFrachtf_Sgut.DropDownWidth = 100
         Me.cboFrachtf_Sgut.FormattingEnabled = True
         Me.cboFrachtf_Sgut.Location = New System.Drawing.Point(302, 163)
         Me.cboFrachtf_Sgut.MaxLength = 1
@@ -1747,6 +1750,16 @@ Partial Class frmBelegNeu
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
         '
+        'cboLeihgeldEinzahlung
+        '
+        Me.cboLeihgeldEinzahlung.AutoSize = True
+        Me.cboLeihgeldEinzahlung.Location = New System.Drawing.Point(9, 185)
+        Me.cboLeihgeldEinzahlung.Name = "cboLeihgeldEinzahlung"
+        Me.cboLeihgeldEinzahlung.Size = New System.Drawing.Size(121, 17)
+        Me.cboLeihgeldEinzahlung.TabIndex = 48
+        Me.cboLeihgeldEinzahlung.Text = "Leihgeld Einzahlung"
+        Me.cboLeihgeldEinzahlung.UseVisualStyleBackColor = True
+        '
         'frmBelegNeu
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1895,4 +1908,5 @@ Partial Class frmBelegNeu
     Friend WithEvents Label28 As Label
     Friend WithEvents lblZahlungsmittel As Label
     Friend WithEvents LinkLabel1 As LinkLabel
+    Friend WithEvents cboLeihgeldEinzahlung As CheckBox
 End Class

SDL/kassenbuch/frmBelegNeu.vb

@@ -1578,8 +1578,13 @@ Public Class frmBelegNeu
 
                 Me.Cursor = Cursors.WaitCursor
 
+                Dim isLeihgeldeinzahlung As Boolean = False
+
                 Dim summeNETTO As Double = 0
-                For Each p In BELEG.POS : summeNETTO += p.Betrag : Next
+                For Each p In BELEG.POS
+                    summeNETTO += p.Betrag
+                    If p.LeistungsNr = 111 AndAlso p.LeistungsBez = "Rückzahlung Leihgeld" AndAlso BELEG.POS.Count = 1 Then isLeihgeldeinzahlung = True 'nur bei 1 POS und Leihgeld-Einzahlung!
+                Next
 
                 Dim summeBRUTTO = summeNETTO
                 Dim steuersatz As Double = SQL.getValueTxtBySql("SELECT isnull(tblSteuersätze.Steuersatz,0) FROM tblSteuersätze WHERE tblSteuersätze.Nr='" & BELEG.Steuerschlüssel & "' ", "FMZOLL")
@@ -1600,7 +1605,7 @@ Public Class frmBelegNeu
                 Dim JournalNr = 0
 
 
-                If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma, POSFIBU, Zahlungsmittel) Then
+                If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma, POSFIBU, Zahlungsmittel, isLeihgeldeinzahlung) Then
                     KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summeBRUTTO * -1)
                     MsgBox("Programmfehler bei Eintrag ins Kassenbuch.")
                     Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub