Timas, Fakt -> Leihgeldkasse, etc.

SDL/kassenbuch/frmBelegNeu.vb

@@ -1604,7 +1604,7 @@ Public Class frmBelegNeu
 
                 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!'
+                        Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySqlVarList("SELECT c_archiv 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!'
                         If KundenKontoArchiv <> "" Then
                             MsgBox("ACHTUNG, die Kundennummer ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden!")
                             Exit Sub

SDL/kassenbuch/frmNacherfassungLeihgeld.vb

@@ -454,11 +454,17 @@ Public Class frmNacherfassungLeihgeld
                             If Not gen_RECHNUNG_BySPEDBUCH(BELEG.KundenNr, SPEDBUCH, RK_ID, cbxOP_sofort_buchen.Checked, summeBRUTTO, summeNETTO) Then verarbOK = False
                             If RK_ID > 0 Then
                                 Dim RECHNUNG As New cRechnungsausgang(RK_ID)
-                                If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 7) Then verarbOK = False 'rechnungsNr vergeben, aber nicht gedruckt!
+
+                                'rechnungsNr vergeben, aber nicht gedruckt!
+                                If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 4) Then verarbOK = False
+                                If RECHNUNG.[DruckDatumZeit] IsNot Nothing Then
+                                    RECHNUNG.[DruckDatumZeit] = Nothing
+                                    RECHNUNG.SAVE_DruckDatumZeit()
+                                End If
                             End If
 
                             If verarbOK Then
-
+                                'MsgBox("Rechnung erstellt!")
                             Else
                                 MsgBox("Fehler bei Rechnungserstellung!")
 
@@ -487,8 +493,8 @@ Public Class frmNacherfassungLeihgeld
 
             If KdNr = "" Then Return False
 
-            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SPEDBUCH.VermittlerKundenNr)
-            Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SPEDBUCH.VermittlerKundenNr)
+            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
+            Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KdNr)
             Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang
 
             Dim OffertenNr As Integer
@@ -537,7 +543,7 @@ Public Class frmNacherfassungLeihgeld
 
             RG.Lastschrift = KD.Lastschrift
             RG.Kunden_SVS = KD.SVS
-            RG.Steuerschlüssel = KD.Steuerschlüssel
+            RG.Steuerschlüssel = 0 'Immer 0 % weil durchlaufposten!
             RG.Vorkasse = KD.Vorkasse
             RG.Vorlageprovision_Proz = KD.Vorlageprovision
             RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen