Leihgeldkassa

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