RKSV-Leihgeldkassa!
This commit is contained in:
1128
SDL/Classes/cRKSV.vb
1128
SDL/Classes/cRKSV.vb
File diff suppressed because it is too large
Load Diff
66
SDL/kassenbuch/frmBelegNeu.Designer.vb
generated
66
SDL/kassenbuch/frmBelegNeu.Designer.vb
generated
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user