RKSV, cFakt,

SDL/kassenbuch/frmBelegNeu.vb

@@ -1597,6 +1597,8 @@ Public Class frmBelegNeu
 
         Try
 
+            Dim BelegNrFIBU As String = ""
+
             If Not BELEG.gebucht And Not BELEG.gebuchtStorno Then
 
                 Me.Cursor = Cursors.WaitCursor
@@ -1638,7 +1640,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 AndAlso cboBuchungsoforterzeugen.Checked)) Then
+                If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma, POSFIBU, BelegNrFIBU, 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

SDL/kassenbuch/frmNacherfassungLeihgeld.vb

@@ -283,6 +283,8 @@ Public Class frmNacherfassungLeihgeld
 
         Try
 
+            Dim BelegNrFIBU As String = ""
+
             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")
@@ -348,7 +350,7 @@ Public Class frmNacherfassungLeihgeld
 
 
                 Dim JournalNr = 0
-                If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, (KASSE.rksv_aktiv Or KASSE.rksvDE_aktiv), JournalNr, KASSE.rksv_firma, -1,, cbxOP_sofort_buchen.Checked) Then
+                If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, (KASSE.rksv_aktiv Or KASSE.rksvDE_aktiv), JournalNr, KASSE.rksv_firma, -1, BelegNrFIBU,, cbxOP_sofort_buchen.Checked) Then
                     Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
                 End If
 
@@ -456,12 +458,13 @@ Public Class frmNacherfassungLeihgeld
                         If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" AndAlso spedBuchExisting Then
                             Dim verarbOK As Boolean = True
                             Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(BELEG.FilialenNr, BELEG.AbfertigungsNr)
+                            SPEDBUCH.BelegNr = BelegNrFIBU
                             Dim RK_ID As Integer = -1
 
                             If Not gen_RECHNUNG_BySPEDBUCH(BELEG.KundenNr, SPEDBUCH, RK_ID, cbxOP_sofort_buchen.Checked, summeBRUTTO, summeNETTO, BELEG) Then verarbOK = False
                             If RK_ID > 0 Then
                                 Dim RECHNUNG As New cRechnungsausgang(RK_ID)
-
+                                RECHNUNG.KdAuftragsNr = BelegNrFIBU
                                 If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 4) Then verarbOK = False
                                 If RECHNUNG.[DruckDatumZeit] IsNot Nothing Then
                                     RECHNUNG.[DruckDatumZeit] = Nothing