Leihgeldkassa

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

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

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

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)

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 RK_ID > 0 Then
-                            If verarbOK 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)

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