Leihgeldkassa

2025-12-22 11:43:02 +01:00
parent ca608ec141
commit 9a50902adf
6 changed files with 41 additions and 28 deletions
--- 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
--- 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
--- 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
--- 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)
--- 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)
--- 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