div. Änderungen, etc.

SDL/kassenbuch/frmNacherfassungLeihgeld.vb

@@ -309,7 +309,7 @@ Public Class frmNacherfassungLeihgeld
                 datatoBeleg() 'Daten werden in "BELEG" geldaen
 
                 If BELEG.KundenNr > 0 AndAlso cbxOP_sofort_buchen.Checked Then
-                    Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT isnull(c_archiv,'A') FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid =  7", "FIBU") 'ATILLA MANDANT!'
+                    Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT isnull(c_archiv,'A') FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "9", "7"), "FIBU") 'ATILLA MANDANT!'
 
                     Select Case KundenKontoArchiv
                         Case "I" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden (799999)!") : Exit Sub 'inaktiv
@@ -457,10 +457,12 @@ Public Class frmNacherfassungLeihgeld
                                 If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 7) Then verarbOK = False 'rechnungsNr vergeben, aber nicht gedruckt!
                             End If
 
-                                If verarbOK Then
+                            If verarbOK Then
 
+                            Else
+                                MsgBox("Fehler bei Rechnungserstellung!")
 
-                                End If
+                            End If
                             End If
 
                         End If