Überstundenauszahlung, FaktAbrechnung, etc.

SDL/kassenbuch/frmBelegNeu.vb

@@ -1586,6 +1586,16 @@ Public Class frmBelegNeu
                     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
 
+                If isLeihgeldeinzahlung Then
+                    If BELEG.KundenNr > 0 Then
+                        Dim KundenKontoArchiv As String = SQL.getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid =  7", "FIBU") 'ATILLA MANDANT!'
+                        If KundenKontoArchiv <> "" Then
+                            MsgBox("ACHTUNG, die Kundennummer ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden!")
+                            Exit Sub
+                        End If
+                    End If
+                End If
+
                 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")
                 If IsNumeric(steuersatz) Then summeBRUTTO += (summeNETTO * steuersatz)

SDL/kassenbuch/frmNacherfassungLeihgeld.vb

@@ -277,7 +277,18 @@ Public Class frmNacherfassungLeihgeld
 
 
     Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
+
         Try
+            If BELEG.KundenNr > 0 AndAlso cbxOP_sofort_buchen.Checked Then
+                Dim KundenKontoArchiv As String = SQL.getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid =  7", "FIBU") 'ATILLA MANDANT!'
+                If KundenKontoArchiv <> "" Then
+                    MsgBox("ACHTUNG, die Kundennummer ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden!")
+                    Exit Sub
+                End If
+
+            End If
+
+
             If BELEG.gebucht Or BELEG.gebuchtStorno Then
                 If BELEG.rksv_id > 0 Then KASSE.LOAD(BELEG.rksv_id)
                 cRKSV.printKundenBelegLG(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, "LG")