Ü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)