From 9a50902adfc41d0f0b12bc06812415034a07d4aa Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 22 Dec 2025 11:43:02 +0100 Subject: [PATCH] Leihgeldkassa --- SDL/cSqlDb.vb | 2 ++ SDL/kassenbuch/frmBelegNeu.Designer.vb | 27 ++++++++++--------- SDL/kassenbuch/frmBelegNeu.vb | 14 +++++++--- .../frmNacherfassungLeihgeld.Designer.vb | 2 -- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 23 +++++++++------- SDL/kassenbuch/frmSecureLoginKassenbuch.vb | 1 + 6 files changed, 41 insertions(+), 28 deletions(-) diff --git a/SDL/cSqlDb.vb b/SDL/cSqlDb.vb index 42aa6102..760c5f45 100644 --- a/SDL/cSqlDb.vb +++ b/SDL/cSqlDb.vb @@ -1104,6 +1104,7 @@ Public Class FMZOLL_SQL d.isLeihgeldkasse = dr.Item("isLeihgeldkasse") d.AllowLG = dr.Item("AllowLG") + d.automFIBUBuchung = dr.Item("automFIBUBuchung") If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then d.cRKSV_KasseID = 6 'TESTKASSE If d.cRKSV_KasseID > 0 Then @@ -1149,6 +1150,7 @@ Public Class FMZOLL_SQL d.isLeihgeldkasse = dr.Item("isLeihgeldkasse") d.AllowLG = dr.Item("AllowLG") + d.automFIBUBuchung = dr.Item("automFIBUBuchung") If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then d.cRKSV_KasseID = 6 'TESTKASSE If d.cRKSV_KasseID > 0 Then diff --git a/SDL/kassenbuch/frmBelegNeu.Designer.vb b/SDL/kassenbuch/frmBelegNeu.Designer.vb index 80c2ebcc..8c743850 100644 --- a/SDL/kassenbuch/frmBelegNeu.Designer.vb +++ b/SDL/kassenbuch/frmBelegNeu.Designer.vb @@ -71,6 +71,7 @@ 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.cboBuchungsoforterzeugen = New System.Windows.Forms.CheckBox() Me.lblErr_Fahrer = New System.Windows.Forms.Label() Me.lblErr_Pass = New System.Windows.Forms.Label() Me.Label28 = New System.Windows.Forms.Label() @@ -144,7 +145,6 @@ 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() @@ -646,7 +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.cboBuchungsoforterzeugen) Me.pnlData.Controls.Add(Me.lblErr_Fahrer) Me.pnlData.Controls.Add(Me.lblErr_Pass) Me.pnlData.Controls.Add(Me.Label28) @@ -692,6 +692,17 @@ Partial Class frmBelegNeu Me.pnlData.Size = New System.Drawing.Size(624, 208) Me.pnlData.TabIndex = 5 ' + 'cboBuchungsoforterzeugen + ' + Me.cboBuchungsoforterzeugen.AutoSize = True + Me.cboBuchungsoforterzeugen.Location = New System.Drawing.Point(9, 185) + Me.cboBuchungsoforterzeugen.Name = "cboBuchungsoforterzeugen" + Me.cboBuchungsoforterzeugen.Size = New System.Drawing.Size(145, 17) + Me.cboBuchungsoforterzeugen.TabIndex = 48 + Me.cboBuchungsoforterzeugen.Text = "Buchung sofort erzeugen" + Me.cboBuchungsoforterzeugen.UseVisualStyleBackColor = True + Me.cboBuchungsoforterzeugen.Visible = False + ' 'lblErr_Fahrer ' Me.lblErr_Fahrer.AutoSize = True @@ -1750,16 +1761,6 @@ 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!) @@ -1908,5 +1909,5 @@ Partial Class frmBelegNeu Friend WithEvents Label28 As Label Friend WithEvents lblZahlungsmittel As Label Friend WithEvents LinkLabel1 As LinkLabel - Friend WithEvents cboLeihgeldEinzahlung As CheckBox + Friend WithEvents cboBuchungsoforterzeugen As CheckBox End Class diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index 30de9657..a7a2efc8 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -1,5 +1,6 @@ Imports System.Drawing.Printing Imports System.Globalization +Imports System.Web.UI.WebControls.Expressions Imports com.sun.org.apache.xalan.internal.xsltc.compiler.util Imports Microsoft.Win32 Imports SDL.RKSVServer @@ -305,6 +306,7 @@ Public Class frmBelegNeu lblMandant.Text = PERSONAL.Mandant lblSachbearbeiter.Text = PERSONAL.Name lblKassenbuchNr.Text = PERSONAL.KassenbuchNr + cboBuchungsoforterzeugen.Checked = PERSONAL.automFIBUBuchung If defaultPrinter <> "" Then cProgramFunctions.initDrucker(cboPrinter, defaultPrinter) @@ -369,8 +371,6 @@ Public Class frmBelegNeu Case Else : cbxSplittung.Checked = Not If(BELEG.LKW_Beleg, True) End Select - - aktFiliale = BELEG.FilialenNr aktAbfertigungsNr = BELEG.AbfertigungsNr @@ -594,6 +594,12 @@ Public Class frmBelegNeu p.FilialenNr = aktFiliale p.AbfertigungsNr = aktAbfertigungsNr + + If p.LeistungsNr = 111 AndAlso p.LeistungsBez.Contains("Rückzahlung Leihgeld") Then + cboBuchungsoforterzeugen.Visible = True + End If + + BELEG.POS.Add(p) ' cntr.BackColor = Color.Yellow initDGVBelegPos() @@ -1593,7 +1599,7 @@ Public Class frmBelegNeu Dim summeNETTO As Double = 0 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! + If p.LeistungsNr = 111 AndAlso p.LeistungsBez.Contains("Rückzahlung Leihgeld") AndAlso BELEG.POS.Count = 1 Then isLeihgeldeinzahlung = True 'nur bei 1 POS und Leihgeld-Einzahlung! Next If isLeihgeldeinzahlung Then @@ -1625,7 +1631,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, isLeihgeldeinzahlung) Then + If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma, POSFIBU, Zahlungsmittel, (isLeihgeldeinzahlung AndAlso cboBuchungsoforterzeugen.Checked)) Then KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summeBRUTTO * -1) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Programmfehler bei Eintrag ins Kassenbuch.", "", System.Reflection.MethodInfo.GetCurrentMethod.Name) Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb index 54da3897..5e30fca9 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb @@ -792,8 +792,6 @@ Partial Class frmNacherfassungLeihgeld 'cbxOP_sofort_buchen ' Me.cbxOP_sofort_buchen.AutoSize = True - Me.cbxOP_sofort_buchen.Checked = True - Me.cbxOP_sofort_buchen.CheckState = System.Windows.Forms.CheckState.Checked 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) diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index cc7a124c..15b078d9 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -37,6 +37,8 @@ Public Class frmNacherfassungLeihgeld cProgramFunctions.initDrucker(cboPrinter) cProgramFunctions.initBONDrucker(cboPrinterProvisionBeleg, "EPSON") + lblGesperrt.Visible = False + cboProvisionStaffelArt.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez] FROM [VERAG].[dbo].[tblPreislisten] WHERE Art='E' ORDER BY Preislistenbez", False, "FMZOLL", False) 'cbxProvision.Checked = True If BELEG Is Nothing Then @@ -77,6 +79,8 @@ Public Class frmNacherfassungLeihgeld Case "ATILLA" stammfiliale = "4806" cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN (4806) ORDER BY FilialenNr ", False, "FMZOLL", True) + cbxOP_sofort_buchen.Checked = PERSONAL_LG.automFIBUBuchung + Case Else cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN (4803,5103,5003,5303) ORDER BY FilialenNr ", False, "FMZOLL", True) Select Case PERSONAL.Niederlassung @@ -448,14 +452,18 @@ Public Class frmNacherfassungLeihgeld Dim RK_ID As Integer = -1 If Not gen_RECHNUNG_BySPEDBUCH(BELEG.KundenNr, SPEDBUCH, RK_ID, cbxOP_sofort_buchen.Checked, summeBRUTTO, summeNETTO) Then verarbOK = False - - If verarbOK Then - - + If RK_ID > 0 Then + Dim RECHNUNG As New cRechnungsausgang(RK_ID) + If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 7) Then verarbOK = False 'rechnungsNr vergeben, aber nicht gedruckt! End If - End If - End If + If verarbOK Then + + + End If + End If + + End If End If @@ -892,9 +900,6 @@ Public Class frmNacherfassungLeihgeld End If End Sub - - - Private Sub cbxFrachter_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFrachter.CheckedChanged txtAuftraggeber.Enabled = Not sender.checked kdFrachtführer_TextChanged(kdFrachtführer, New EventArgs) diff --git a/SDL/kassenbuch/frmSecureLoginKassenbuch.vb b/SDL/kassenbuch/frmSecureLoginKassenbuch.vb index 5c915ffd..475b7b6b 100644 --- a/SDL/kassenbuch/frmSecureLoginKassenbuch.vb +++ b/SDL/kassenbuch/frmSecureLoginKassenbuch.vb @@ -226,4 +226,5 @@ Public Class cPersonal Property PasswortChanged As Object = Nothing Property isLeihgeldkasse As Boolean = False Property AllowLG As Boolean = False + Property automFIBUBuchung As Boolean = False End Class \ No newline at end of file