Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

2026-01-14 08:45:52 +01:00
parent dbce3f0ba9 cd45295d63
commit df324faddf
10 changed files with 340 additions and 305 deletions
--- a/SDL/Classes/cRKSV.vb
+++ b/SDL/Classes/cRKSV.vb
@@ -1337,6 +1337,24 @@ Public Class cRKSV
        ' rpt.lblKdNr.Text = IIf(BELEG.KundenNr > 0, BELEG.KundenNr, "")
        rpt.Label24.Text = "Auszahlungsbetrag"

+
+        If PERSONAL.isLeihgeldkasse AndAlso BELEG.Niederlassung = "SUA" Then
+            Dim fontAtilla As New Font("Arial", 12, FontStyle.Bold)
+
+            rpt.lblFahrer.Font = fontAtilla
+            rpt.txtFrachtfuhrer.Font = fontAtilla
+            rpt.lblLKWKz.Font = fontAtilla
+            rpt.lblPassnummer.Font = fontAtilla
+            rpt.Label12.Font = fontAtilla
+            rpt.Label15.Font = fontAtilla
+            rpt.Label14.Font = fontAtilla
+            rpt.Label7.Font = fontAtilla
+
+
+        End If
+
+
+
        rpt.lblFahrer.Text = BELEG.Fahrer
        rpt.lblFahrer2.Text = BELEG.Fahrer
        rpt.lblLKWKz.Text = BELEG.LKW_Kennzeichen
@@ -2529,7 +2547,7 @@ Public Class cRKSV
        End If

        If DefaultMandant = 9 Then
-            MsgBox("ACHTUNG, Daten werden in Mandant " & DefaultMandant & " eingespielt -> " & IIf(DefaultMandant = 9, "TESTMANDANT!", "PRODUKTIVMANDANT!"))
+            MsgBox("ACHTUNG, Daten werden in Mandant " & DefaultMandant & " eingespielt -> " & IIf(DefaultMandant = 9, "TEST-MANDANT!", "PRODUKTIV-MANDANT!"))
        End If

        Dim sql As New VERAG_PROG_ALLGEMEIN.SQL()
@@ -2547,7 +2565,7 @@ Public Class cRKSV
        End If

        If rel_periode > periode Then
-            jahr -= 1
+            'jahr -= 1 warum nochmals???????
        End If

        Dim betrag As Decimal = SumBelegPositionen(beleg)
@@ -2608,143 +2626,6 @@ Public Class cRKSV
        Next


-        'Set @dec_aktuellersaldo = (Select [FIBU2].dbo.fibu_konto.dec_aktuellersaldo FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @Schleifenkonto) 
-        'If @dec_aktuellersaldo Is NULL SET @dec_aktuellersaldo = 0 
-
-        'INSERT INTO [FIBU2].dbo.fibu_periodensaldo ( 
-        '[FIBU2].dbo.fibu_periodensaldo.i_firm_refid, 
-        '[FIBU2].dbo.fibu_periodensaldo.si_jahr, 
-        '[FIBU2].dbo.fibu_periodensaldo.i_konto, 
-        '[FIBU2].dbo.fibu_periodensaldo.i_perioden, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_eroeff, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_abschluss, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_1, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_1, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_2, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_2, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_3, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_3, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_4, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_4, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_5, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_5, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_6, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_6, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_7, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_7, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_8, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_8, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_9, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_9, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_10, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_10, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_11, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_11, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_12, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_12, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_13, 
-        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_13, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_eroeff, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_abschluss, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_1, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_1, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_2, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_2, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_3, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_3, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_4, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_4, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_5, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_5, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_6, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_6, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_7, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_7, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_8, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_8, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_9, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_9, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_10, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_10, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_11, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_11, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_12, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_12, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_13, 
-        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_13, 
-        '[FIBU2].dbo.fibu_periodensaldo.i_buchungskreis) 
-
-        'VALUES ( 
-        '@MandantNr, 
-        '@Jahr, 
-        '@Schleifenkonto, 
-        '0, 
-        '@dec_aktuellersaldo, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '@dec_aktuellersaldo, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '0, 
-        '1) 
-
-
-
-
-
-
-
-
-

        InsertBelegskopf_new(sql, mandant, jahr, periode, SafeIntToSql(i_beleg_refid), beleg.BelegDat.ToShortDateString, SafeString(beleg.BelegNr), 1, buchungstext, CType(betrag, Double), "EUR", Now(), VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, protokollId, BelegNrUID)

@@ -2984,13 +2865,146 @@ Public Class cRKSV
        jahr & "," &
        konto & "," &
        "0," &
-        String.Join(",", Enumerable.Repeat("0", 32)) & "," &
        saldo & "," &
-        String.Join(",", Enumerable.Repeat("0", 26)) & "," &
+        String.Join(",", Enumerable.Repeat("0", 27)) & "," &
+        saldo & "," &
+        String.Join(",", Enumerable.Repeat("0", 27)) & "," &
        "1);"

        sql.doSQL(sqlStr, "FIBU")

+
+        '--------------------------- ZUM VERGLEICH - SQL aus UM ----------------------------------------
+        'Set @dec_aktuellersaldo = (Select [FIBU2].dbo.fibu_konto.dec_aktuellersaldo FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = @MandantNr And [FIBU2].dbo.fibu_konto.i_konto = @Schleifenkonto) 
+        'If @dec_aktuellersaldo Is NULL SET @dec_aktuellersaldo = 0 
+
+        'INSERT INTO [FIBU2].dbo.fibu_periodensaldo ( 
+        '[FIBU2].dbo.fibu_periodensaldo.i_firm_refid, 
+        '[FIBU2].dbo.fibu_periodensaldo.si_jahr, 
+        '[FIBU2].dbo.fibu_periodensaldo.i_konto, 
+        '[FIBU2].dbo.fibu_periodensaldo.i_perioden, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_eroeff, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_abschluss, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_1, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_1, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_2, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_2, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_3, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_3, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_4, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_4, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_5, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_5, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_6, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_6, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_7, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_7, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_8, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_8, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_9, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_9, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_10, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_10, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_11, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_11, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_12, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_12, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_soll_13, 
+        '[FIBU2].dbo.fibu_periodensaldo.dec_haben_13, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_eroeff, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_abschluss, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_1, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_1, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_2, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_2, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_3, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_3, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_4, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_4, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_5, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_5, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_6, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_6, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_7, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_7, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_8, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_8, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_9, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_9, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_10, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_10, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_11, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_11, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_12, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_12, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_soll_13, 
+        '[FIBU2].dbo.fibu_periodensaldo.eur_haben_13, 
+        '[FIBU2].dbo.fibu_periodensaldo.i_buchungskreis) 
+
+        'VALUES ( 
+        '@MandantNr, 
+        '@Jahr, 
+        '@Schleifenkonto, 
+        '0, 
+        '@dec_aktuellersaldo, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '@dec_aktuellersaldo, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '0, 
+        '1) 
+
+
    End Sub

    Private Shared Sub createOP_new(mandant As Integer, Betrag As Double, BelegNrText As String, datumKurz As String, BelegNr As String, Buchungstext As String, Buchungsbetrag As Double, Waehrung As String, Personenkonto As Integer, Forderungskonto As Integer, i_op_refid As String, c_op_Typ As Char, Sprache As String, Zahlungsziel As String, Skonto As String, Skontodatum As String, Nettodatum As String, c_ustidnr As String, c_urbelegid As String)
--- a/SDL/Fakturierung/frmAbrechnungsMaske.vb
+++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb
@@ -8,6 +8,8 @@ Public Class frmAbrechnungsMaske

    Dim loaded = False

+    Dim FilialNrRestriction As Integer = -1
+
    Private Sub frmAbrechnungsMaske_Load(sender As Object, e As EventArgs) Handles Me.Load
        'Größe anpassen:

@@ -50,16 +52,6 @@ Public Class frmAbrechnungsMaske
            FirmaTmp = "VERAGIMEX"
        End If

-        'If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then
-        '    FirmaTmp = "VERAG360"
-        'End If
-
-
-
-        'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-        'FirmaTmp = "AMBAR"
-        'End If
-
        cboSachbearbeiter.Items.Clear()

        Select Case FirmaTmp
@@ -107,10 +99,11 @@ Public Class frmAbrechnungsMaske
                cboFirma.changeItem("24")
                cboSachbearbeiter.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where  mit_firma='AMBAR'  and mit_gekuendigt=0 AND  (mit_abteilung IN ('VRR','BH')	OR (SELECT COUNT(*)  FROM [tblBerechtigungsObjekteZuordnung]  where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)

-            'Case "VERAG360"
-            '    cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez]  FROM  [tblFirma] WHERE Firma_ID=19", False, "FMZOLL")
-            '    cboFirma.changeItem("19")
-            '    MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where  isnull(mit_firmaFMZoll,0)=19  and mit_gekuendigt=0 AND  (mit_abteilung IN ('VRR','BH')	OR (SELECT COUNT(*)  FROM [tblBerechtigungsObjekteZuordnung]  where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)
+            Case "ATILLA"
+                cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez]  FROM  [tblFirma] WHERE Firma_ID=7", False, "FMZOLL")
+                cboFirma.changeItem("7")
+                cboSachbearbeiter.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where  isnull(mit_firmaFMZoll,0)=7  and mit_gekuendigt=0 AND  (mit_abteilung IN ('VRR','BH')	OR (SELECT COUNT(*)  FROM [tblBerechtigungsObjekteZuordnung]  where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)
+                FilialNrRestriction = 4813

            Case "VERAGIMEX"
                Dim whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') "
@@ -197,7 +190,7 @@ Public Class frmAbrechnungsMaske
            If cbxGutschriftenAnVerag.Checked AndAlso cboFirma._value <> "" AndAlso cboFirma._value = "24" Then
                sqlstr &= "   SELECT R1.FilialenNr, R1.AbfertigungsNr, cast(R1.FilialenNr as varchar) + ' ' + cast(R1.AbfertigungsNr  as varchar) as PosNr, R1.UnterNr, Firma_ID,R1.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr FROM Rechnungsausgang as R1 INNER JOIN Adressen ON AdressenNr=R1.RechnungsKundenNr inner Join Speditionsbuch on Speditionsbuch.FilialenNr = R1.FilialenNr And Speditionsbuch.AbfertigungsNr = R1.AbfertigungsNr and  Speditionsbuch.UnterNr = R1.SpeditionsbuchUnterNr  "
                sqlstr &= "   WHERE 1=1 AND R1.Firma_ID=24 "
-                sqlstr &= getRGWhere(cboER_SR._value)
+                sqlstr &= getRGWhere(cboER_SR._value, FilialNrRestriction)
                sqlstr &= "   and (SELECT COUNT(*) FROM Rechnungsausgang as R2 where"
                sqlstr &= "   R1.FilialenNr=R2.FilialenNr and R1.AbfertigungsNr=R2.AbfertigungsNr and R1.SpeditionsbuchUnterNr=R2.SpeditionsbuchUnterNr AND (RechnungsKundenNr=3013401 OR RechnungsKundenNr = 3017683) and R2.[BelegartenNr]=71)=0"
                sqlstr &= "   and Speditionsbuch.Abfertigungsart IN (1)"
@@ -211,7 +204,7 @@ Public Class frmAbrechnungsMaske
                sqlstr &= " FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=Rechnungsausgang.RechnungsKundenNr"
                sqlstr &= " WHERE 1=1 "

-                sqlstr &= getRGWhere(cboER_SR._value)
+                sqlstr &= getRGWhere(cboER_SR._value, FilialNrRestriction)
                '  sqlstr &= " AND (SteuerpflichtigerGesamtbetrag<>0 OR SteuerfreierGesamtbetrag<>0)"
                sqlstr &= " ORDER BY FilialenNr, AbfertigungsNr, UnterNr "
            End If
@@ -273,7 +266,7 @@ Public Class frmAbrechnungsMaske
        End With
    End Sub

-    Function getRGWhere(filterSR)
+    Function getRGWhere(filterSR As String, Optional filialenNr As Integer = -1)
        Dim sqlstr = ""
        Dim srchSB = "" ' "NÖBAUER ANJA" 'VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
        srchSB = cboSachbearbeiter._value
@@ -288,6 +281,10 @@ Public Class frmAbrechnungsMaske
        End Select


+        If filialenNr > 0 Then
+            sqlstr &= " AND Rechnungsausgang.FilialenNr = " & filialenNr
+        End If
+

        If cbx.Checked Then
            'sqlstr &= " AND Status = 0 "
@@ -417,7 +414,7 @@ Public Class frmAbrechnungsMaske
            'Exit Sub

            Dim PARAM_printZollbeleg = VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg")
-            Dim dt = SQL.loadDgvBySql("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER") & orderBy, "FMZOLL")
+            Dim dt = SQL.loadDgvBySql("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER", FilialNrRestriction) & orderBy, "FMZOLL")

            If dt IsNot Nothing Then
                If vbYes = MsgBox("Es werden " & dt.Rows.Count & " Rechnungen gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then
@@ -441,7 +438,7 @@ Public Class frmAbrechnungsMaske

    Function print_Anlagen() As Boolean
        Dim erg = True
-        Dim dt = SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE Status=0 " & getRGWhere("SR") & " ORDER BY [BelegartenKz] DESC, FilialenNr, AbfertigungsNr, [RK_ID]", "FMZOLL")
+        Dim dt = SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE Status=0 " & getRGWhere("SR", FilialNrRestriction) & " ORDER BY [BelegartenKz] DESC, FilialenNr, AbfertigungsNr, [RK_ID]", "FMZOLL")
        If dt IsNot Nothing Then
            If vbYes = MsgBox("Es werden " & dt.Rows.Count & " Rechnungen gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then
                For Each r In dt.Rows
--- a/SDL/Fakturierung/frmRechnungenSuche.vb
+++ b/SDL/Fakturierung/frmRechnungenSuche.vb
@@ -254,6 +254,11 @@ Public Class frmRechnungenSuche
            Case "IMEX"
                cboFiliale.changeItem("5501")
                cboFiliale.Enabled = False
+            Case "ATILLA"
+                cboFiliale.changeItem("4813")
+                cboFiliale.Enabled = False
+                cboFirma.changeItem("7")
+                cboFirma.Enabled = False
            Case "VERAGIMEX"
                ' cboFiliale.changeItem("5501") 
        End Select
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -525,7 +525,7 @@ Public Class usrCntlFaktAbrechnung
        GutschriftAnVeragToolStripMenuItem.Visible = False

        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
-            cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN(4801,4802, 4806) ORDER BY FilialenNr ", True, "FMZOLL", True)
+            cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN(4801,4802, 4813) ORDER BY FilialenNr ", True, "FMZOLL", True)
        Else
            cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
        End If
--- a/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.Designer.vb
+++ b/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.Designer.vb
@@ -63,6 +63,7 @@ Partial Public Class rptLeihgeldBeleg
        Me.lblKbNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
        Me.txtFrachtfuhrer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
        Me.lblBetragSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
        Me.lblBetragSteuern = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -78,7 +79,6 @@ Partial Public Class rptLeihgeldBeleg
        Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
        Me.lblSachbearbeiter2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        Me.lblFahrer2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
-        Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
        CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -118,6 +118,7 @@ Partial Public Class rptLeihgeldBeleg
        CType(Me.lblKbNr, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtFrachtfuhrer, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblBetragSum, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblBetragSteuern, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblGesamtbetrag, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -129,7 +130,6 @@ Partial Public Class rptLeihgeldBeleg
        CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblSachbearbeiter2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.lblFahrer2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'PageHeader
@@ -265,7 +265,7 @@ Partial Public Class rptLeihgeldBeleg
        'ReportHeader1
        '
        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblFirma_Details, Me.Label2, Me.Label3, Me.lblRgDatum, Me.lblRgNr, Me.Label25, Me.lblFirma_Name, Me.lblTitel, Me.lblUhrzeit, Me.lblSachbearbeiter, Me.Label26, Me.lblPosNr, Me.Label28, Me.Label11, Me.Label12, Me.lblFahrer, Me.lblFrachtf, Me.Label15, Me.lblLKWKz, Me.Label14, Me.lblPassnummer, Me.Label20, Me.lblUID, Me.Label10, Me.lblKdNr, Me.lblFirma, Me.Line5, Me.QR, Me.lblKbNr, Me.txtFrachtfuhrer, Me.Label7, Me.Label13})
-        Me.ReportHeader1.Height = 4.490026!
+        Me.ReportHeader1.Height = 4.458776!
        Me.ReportHeader1.Name = "ReportHeader1"
        '
        'picVERAG
@@ -440,23 +440,24 @@ Partial Public Class rptLeihgeldBeleg
        '
        Me.Label12.Height = 0.1968501!
        Me.Label12.HyperLink = Nothing
-        Me.Label12.Left = 0.01732284!
+        Me.Label12.Left = 0.01023622!
        Me.Label12.Name = "Label12"
        Me.Label12.Style = "font-size: 10pt; font-weight: normal; text-align: left"
        Me.Label12.Text = "Fahrer:"
-        Me.Label12.Top = 3.414961!
-        Me.Label12.Width = 1.28937!
+        Me.Label12.Top = 3.572441!
+        Me.Label12.Width = 1.76811!
        '
        'lblFahrer
        '
+        Me.lblFahrer.DataField = ""
        Me.lblFahrer.Height = 0.1968501!
        Me.lblFahrer.HyperLink = Nothing
-        Me.lblFahrer.Left = 1.49252!
+        Me.lblFahrer.Left = 1.833465!
        Me.lblFahrer.Name = "lblFahrer"
-        Me.lblFahrer.Style = "font-size: 10pt; font-weight: normal; text-align: left"
+        Me.lblFahrer.Style = "color: Black; font-size: 12pt; font-weight: normal; text-align: left"
        Me.lblFahrer.Text = "-"
-        Me.lblFahrer.Top = 3.414961!
-        Me.lblFahrer.Width = 3.756299!
+        Me.lblFahrer.Top = 3.572441!
+        Me.lblFahrer.Width = 3.408268!
        '
        'lblFrachtf
        '
@@ -471,47 +472,50 @@ Partial Public Class rptLeihgeldBeleg
        '
        'Label15
        '
+        Me.Label15.DataField = ""
        Me.Label15.Height = 0.1968501!
        Me.Label15.HyperLink = Nothing
-        Me.Label15.Left = 0.01732286!
+        Me.Label15.Left = 0.01023625!
        Me.Label15.Name = "Label15"
-        Me.Label15.Style = "font-size: 10pt; font-weight: normal; text-align: left"
+        Me.Label15.Style = "color: Black; font-size: 10pt; font-weight: normal; text-align: left"
        Me.Label15.Text = "LKW-Kennzeichen:"
-        Me.Label15.Top = 3.21811!
-        Me.Label15.Width = 1.28937!
+        Me.Label15.Top = 3.323622!
+        Me.Label15.Width = 1.76811!
        '
        'lblLKWKz
        '
+        Me.lblLKWKz.DataField = ""
        Me.lblLKWKz.Height = 0.1968501!
        Me.lblLKWKz.HyperLink = Nothing
-        Me.lblLKWKz.Left = 1.49252!
+        Me.lblLKWKz.Left = 1.833465!
        Me.lblLKWKz.Name = "lblLKWKz"
-        Me.lblLKWKz.Style = "font-size: 10pt; font-weight: normal; text-align: left"
+        Me.lblLKWKz.Style = "color: Black; font-size: 12pt; font-weight: normal; text-align: left"
        Me.lblLKWKz.Text = "-"
-        Me.lblLKWKz.Top = 3.21811!
-        Me.lblLKWKz.Width = 3.756299!
+        Me.lblLKWKz.Top = 3.323622!
+        Me.lblLKWKz.Width = 3.408268!
        '
        'Label14
        '
        Me.Label14.Height = 0.1968501!
        Me.Label14.HyperLink = Nothing
-        Me.Label14.Left = 0.01732284!
+        Me.Label14.Left = 0!
        Me.Label14.Name = "Label14"
        Me.Label14.Style = "font-size: 10pt; font-weight: normal; text-align: left"
        Me.Label14.Text = "Passnummer:"
-        Me.Label14.Top = 3.611811!
-        Me.Label14.Width = 1.28937!
+        Me.Label14.Top = 3.852756!
+        Me.Label14.Width = 1.76811!
        '
        'lblPassnummer
        '
+        Me.lblPassnummer.DataField = ""
        Me.lblPassnummer.Height = 0.1968501!
        Me.lblPassnummer.HyperLink = Nothing
-        Me.lblPassnummer.Left = 1.49252!
+        Me.lblPassnummer.Left = 1.823228!
        Me.lblPassnummer.Name = "lblPassnummer"
-        Me.lblPassnummer.Style = "font-size: 10pt; font-weight: normal; text-align: left"
+        Me.lblPassnummer.Style = "color: Black; font-size: 12pt; font-weight: normal; text-align: left"
        Me.lblPassnummer.Text = "-"
-        Me.lblPassnummer.Top = 3.611811!
-        Me.lblPassnummer.Width = 3.756299!
+        Me.lblPassnummer.Top = 3.852756!
+        Me.lblPassnummer.Width = 3.408268!
        '
        'Label20
        '
@@ -522,13 +526,13 @@ Partial Public Class rptLeihgeldBeleg
        Me.Label20.Style = "font-size: 10pt; font-weight: normal; text-align: left"
        Me.Label20.Text = "UID-Nr.:"
        Me.Label20.Top = 2.726772!
-        Me.Label20.Width = 1.28937!
+        Me.Label20.Width = 1.609055!
        '
        'lblUID
        '
        Me.lblUID.Height = 0.1968501!
        Me.lblUID.HyperLink = Nothing
-        Me.lblUID.Left = 1.49252!
+        Me.lblUID.Left = 1.788583!
        Me.lblUID.Name = "lblUID"
        Me.lblUID.Style = "font-size: 10pt; font-weight: normal; text-align: left"
        Me.lblUID.Text = "-"
@@ -586,7 +590,7 @@ Partial Public Class rptLeihgeldBeleg
        '
        Me.QR.Height = 1.181102!
        Me.QR.HyperLink = Nothing
-        Me.QR.ImageData = Nothing
+        Me.QR.ImageBase64String = resources.GetString("QR.ImageBase64String")
        Me.QR.Left = 5.318898!
        Me.QR.Name = "QR"
        Me.QR.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
@@ -606,23 +610,35 @@ Partial Public Class rptLeihgeldBeleg
        '
        'txtFrachtfuhrer
        '
-        Me.txtFrachtfuhrer.Height = 0.148031!
-        Me.txtFrachtfuhrer.Left = 1.49252!
+        Me.txtFrachtfuhrer.Height = 0.2000005!
+        Me.txtFrachtfuhrer.Left = 1.788583!
        Me.txtFrachtfuhrer.Name = "txtFrachtfuhrer"
+        Me.txtFrachtfuhrer.Style = "font-size: 12pt"
        Me.txtFrachtfuhrer.Text = Nothing
-        Me.txtFrachtfuhrer.Top = 3.0063!
-        Me.txtFrachtfuhrer.Width = 3.756299!
+        Me.txtFrachtfuhrer.Top = 3.018111!
+        Me.txtFrachtfuhrer.Width = 3.991339!
        '
        'Label7
        '
-        Me.Label7.Height = 0.148031!
+        Me.Label7.Height = 0.2000005!
        Me.Label7.HyperLink = Nothing
        Me.Label7.Left = 0.02047244!
        Me.Label7.Name = "Label7"
        Me.Label7.Style = "font-size: 10pt; font-weight: bold; text-align: left"
        Me.Label7.Text = "Fr<EFBFBD>chter:"
-        Me.Label7.Top = 3.0063!
-        Me.Label7.Width = 1.28937!
+        Me.Label7.Top = 3.018111!
+        Me.Label7.Width = 1.76811!
+        '
+        'Label13
+        '
+        Me.Label13.Height = 0.2!
+        Me.Label13.HyperLink = Nothing
+        Me.Label13.Left = 0.02047244!
+        Me.Label13.Name = "Label13"
+        Me.Label13.Style = "font-size: 12pt; font-weight: bold; text-align: left"
+        Me.Label13.Text = "GILT AUCH ALS RECHNUNG"
+        Me.Label13.Top = 1.197244!
+        Me.Label13.Width = 3.190945!
        '
        'ReportFooter1
        '
@@ -720,7 +736,6 @@ Partial Public Class rptLeihgeldBeleg
        Me.Label1.HyperLink = Nothing
        Me.Label1.Left = 0!
        Me.Label1.Name = "Label1"
-        Me.Label1.ShrinkToFit = True
        Me.Label1.Style = "font-size: 10pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
    "-char-set: 1; ddo-shrink-to-fit: true"
        Me.Label1.Text = "Wir best<73>tigen, den o.g. Betrag von der Firma VERAG Spedition AG erhalten zu habe" &
@@ -734,7 +749,6 @@ Partial Public Class rptLeihgeldBeleg
        Me.Label8.HyperLink = Nothing
        Me.Label8.Left = 0!
        Me.Label8.Name = "Label8"
-        Me.Label8.ShrinkToFit = True
        Me.Label8.Style = "font-size: 10pt; font-weight: bold; text-align: center; vertical-align: middle; d" &
    "do-char-set: 1; ddo-shrink-to-fit: true"
        Me.Label8.Text = "ausbezahlt von:"
@@ -747,7 +761,6 @@ Partial Public Class rptLeihgeldBeleg
        Me.Label9.HyperLink = Nothing
        Me.Label9.Left = 3.518898!
        Me.Label9.Name = "Label9"
-        Me.Label9.ShrinkToFit = True
        Me.Label9.Style = "font-size: 10pt; font-weight: bold; text-align: center; vertical-align: middle; d" &
    "do-char-set: 1; ddo-shrink-to-fit: true"
        Me.Label9.Text = "Betrag erhalten:"
@@ -786,7 +799,6 @@ Partial Public Class rptLeihgeldBeleg
        Me.lblSachbearbeiter2.HyperLink = Nothing
        Me.lblSachbearbeiter2.Left = 0!
        Me.lblSachbearbeiter2.Name = "lblSachbearbeiter2"
-        Me.lblSachbearbeiter2.ShrinkToFit = True
        Me.lblSachbearbeiter2.Style = "font-size: 10pt; font-weight: normal; text-align: center; text-justify: auto; ver" &
    "tical-align: top; ddo-char-set: 1; ddo-shrink-to-fit: true"
        Me.lblSachbearbeiter2.Text = "Maximilian Mustermann  ( SUB ) ( 1234 )"
@@ -799,24 +811,12 @@ Partial Public Class rptLeihgeldBeleg
        Me.lblFahrer2.HyperLink = Nothing
        Me.lblFahrer2.Left = 3.522048!
        Me.lblFahrer2.Name = "lblFahrer2"
-        Me.lblFahrer2.ShrinkToFit = True
        Me.lblFahrer2.Style = "font-size: 10pt; font-weight: normal; text-align: center; text-justify: auto; ver" &
    "tical-align: top; ddo-char-set: 1; ddo-shrink-to-fit: true"
        Me.lblFahrer2.Text = "Maximilian Mustermann  ( SUB ) ( 1234 )"
        Me.lblFahrer2.Top = 3.062599!
        Me.lblFahrer2.Width = 2.635433!
        '
-        'Label13
-        '
-        Me.Label13.Height = 0.2!
-        Me.Label13.HyperLink = Nothing
-        Me.Label13.Left = 0.02047244!
-        Me.Label13.Name = "Label13"
-        Me.Label13.Style = "font-size: 12pt; font-weight: bold; text-align: left"
-        Me.Label13.Text = "GILT AUCH ALS RECHNUNG"
-        Me.Label13.Top = 1.197244!
-        Me.Label13.Width = 3.190945!
-        '
        'rptLeihgeldBeleg
        '
        Me.MasterReport = False
@@ -877,6 +877,7 @@ Partial Public Class rptLeihgeldBeleg
        CType(Me.lblKbNr, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtFrachtfuhrer, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblBetragSum, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblBetragSteuern, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblGesamtbetrag, System.ComponentModel.ISupportInitialize).EndInit()
@@ -888,7 +889,6 @@ Partial Public Class rptLeihgeldBeleg
        CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblSachbearbeiter2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.lblFahrer2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub
@@ -947,7 +947,7 @@ Partial Public Class rptLeihgeldBeleg
    Public WithEvents lblFahrer2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
    Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.TextBox
    Public WithEvents lblKbNr As GrapeCity.ActiveReports.SectionReportModel.Label
-    Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
    Public WithEvents txtFrachtfuhrer As GrapeCity.ActiveReports.SectionReportModel.TextBox
    Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
    Public WithEvents lblKdNr As GrapeCity.ActiveReports.SectionReportModel.Label
--- a/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.resx
+++ b/SDL/kassenbuch/BelegReports/rptLeihgeldBeleg.resx
--- a/SDL/kassenbuch/frmBelegNeu.vb
+++ b/SDL/kassenbuch/frmBelegNeu.vb
@@ -328,7 +328,13 @@ Public Class frmBelegNeu

        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
            '   btnNeueAbfNr.Visible = True
-            cboFiliale.changeItem(4801)
+
+            If PERSONAL.isLeihgeldkasse Then
+                cboFiliale.changeItem(4813)
+            Else
+                cboFiliale.changeItem(4801)
+            End If
+
        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
            '  btnNeueAbfNr.Visible = True
            cboFiliale.changeItem(5501)
--- a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb
+++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb
@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmNacherfassungLeihgeld
    Inherits System.Windows.Forms.Form

    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
@@ -20,11 +20,11 @@ Partial Class frmNacherfassungLeihgeld
    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNacherfassungLeihgeld))
        Me.pnl = New System.Windows.Forms.Panel()
-        Me.btnWiki = New System.Windows.Forms.Button()
+        Me.btnWikiStatusmails = New System.Windows.Forms.Button()
        Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.btnNeueAbfertigungNrVergeben = New System.Windows.Forms.Button()
        Me.Label2 = New System.Windows.Forms.Label()
@@ -71,7 +71,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cbxOP_sofort_buchen = New System.Windows.Forms.CheckBox()
        Me.lblGesperrt = New System.Windows.Forms.Label()
-        Me.cbxProvAnMA = New System.Windows.Forms.CheckBox()
+        Me.cbxProvinMAKassa = New System.Windows.Forms.CheckBox()
        Me.pnl.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.Panel2.SuspendLayout()
@@ -81,7 +81,7 @@ Partial Class frmNacherfassungLeihgeld
        '
        Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.pnl.Controls.Add(Me.btnWiki)
+        Me.pnl.Controls.Add(Me.btnWikiStatusmails)
        Me.pnl.Controls.Add(Me.txtDatum)
        Me.pnl.Controls.Add(Me.btnNeueAbfertigungNrVergeben)
        Me.pnl.Controls.Add(Me.Label2)
@@ -93,21 +93,21 @@ Partial Class frmNacherfassungLeihgeld
        Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnl.Location = New System.Drawing.Point(0, 0)
        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(525, 94)
+        Me.pnl.Size = New System.Drawing.Size(441, 94)
        Me.pnl.TabIndex = 0
        '
-        'btnWiki
+        'btnWikiStatusmails
        '
-        Me.btnWiki.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
-        Me.btnWiki.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
-        Me.btnWiki.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.btnWiki.FlatAppearance.BorderSize = 0
-        Me.btnWiki.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnWiki.Location = New System.Drawing.Point(494, 3)
-        Me.btnWiki.Name = "btnWiki"
-        Me.btnWiki.Size = New System.Drawing.Size(25, 20)
-        Me.btnWiki.TabIndex = 215
-        Me.btnWiki.UseVisualStyleBackColor = False
+        Me.btnWikiStatusmails.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
+        Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0
+        Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnWikiStatusmails.Location = New System.Drawing.Point(410, 3)
+        Me.btnWikiStatusmails.Name = "btnWikiStatusmails"
+        Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20)
+        Me.btnWikiStatusmails.TabIndex = 215
+        Me.btnWikiStatusmails.UseVisualStyleBackColor = False
        '
        'txtDatum
        '
@@ -139,7 +139,7 @@ Partial Class frmNacherfassungLeihgeld
        'btnNeueAbfertigungNrVergeben
        '
        Me.btnNeueAbfertigungNrVergeben.BackColor = System.Drawing.Color.Gainsboro
-        Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(365, 57)
+        Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(281, 57)
        Me.btnNeueAbfertigungNrVergeben.Name = "btnNeueAbfertigungNrVergeben"
        Me.btnNeueAbfertigungNrVergeben.Size = New System.Drawing.Size(145, 24)
        Me.btnNeueAbfertigungNrVergeben.TabIndex = 6
@@ -150,7 +150,7 @@ Partial Class frmNacherfassungLeihgeld
        '
        Me.Label2.AutoSize = True
        Me.Label2.ForeColor = System.Drawing.Color.White
-        Me.Label2.Location = New System.Drawing.Point(362, 41)
+        Me.Label2.Location = New System.Drawing.Point(278, 41)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(103, 13)
        Me.Label2.TabIndex = 3
@@ -171,7 +171,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtAbfertigungsnummer._Waehrung = False
        Me.txtAbfertigungsnummer._WaehrungZeichen = True
        Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(365, 57)
+        Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(281, 57)
        Me.txtAbfertigungsnummer.MaxLength = 8
        Me.txtAbfertigungsnummer.MaxLineLength = -1
        Me.txtAbfertigungsnummer.MaxLines_Warning = ""
@@ -189,7 +189,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.cboFiliale.Enabled = False
        Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cboFiliale.FormattingEnabled = True
-        Me.cboFiliale.Location = New System.Drawing.Point(280, 56)
+        Me.cboFiliale.Location = New System.Drawing.Point(196, 56)
        Me.cboFiliale.Name = "cboFiliale"
        Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
        Me.cboFiliale.TabIndex = 5
@@ -198,7 +198,7 @@ Partial Class frmNacherfassungLeihgeld
        '
        Me.Label1.AutoSize = True
        Me.Label1.ForeColor = System.Drawing.Color.White
-        Me.Label1.Location = New System.Drawing.Point(277, 41)
+        Me.Label1.Location = New System.Drawing.Point(193, 41)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(33, 13)
        Me.Label1.TabIndex = 2
@@ -288,7 +288,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.btnPrint.ForeColor = System.Drawing.Color.Black
        Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2
        Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnPrint.Location = New System.Drawing.Point(375, 331)
+        Me.btnPrint.Location = New System.Drawing.Point(291, 331)
        Me.btnPrint.Name = "btnPrint"
        Me.btnPrint.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
        Me.btnPrint.Size = New System.Drawing.Size(136, 66)
@@ -323,7 +323,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.cboPrintAktendeckel.AutoSize = True
        Me.cboPrintAktendeckel.Checked = True
        Me.cboPrintAktendeckel.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cboPrintAktendeckel.Location = New System.Drawing.Point(375, 303)
+        Me.cboPrintAktendeckel.Location = New System.Drawing.Point(291, 313)
        Me.cboPrintAktendeckel.Name = "cboPrintAktendeckel"
        Me.cboPrintAktendeckel.Size = New System.Drawing.Size(128, 17)
        Me.cboPrintAktendeckel.TabIndex = 17
@@ -333,7 +333,7 @@ Partial Class frmNacherfassungLeihgeld
        'Label8
        '
        Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(80, 69)
+        Me.Label8.Location = New System.Drawing.Point(80, 83)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(87, 13)
        Me.Label8.TabIndex = 6
@@ -363,7 +363,7 @@ Partial Class frmNacherfassungLeihgeld
        'Label10
        '
        Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(17, 69)
+        Me.Label10.Location = New System.Drawing.Point(17, 83)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(45, 13)
        Me.Label10.TabIndex = 5
@@ -382,7 +382,7 @@ Partial Class frmNacherfassungLeihgeld
        '
        Me.cbxProvisionAuftraggeber.AutoSize = True
        Me.cbxProvisionAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(281, 13)
+        Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(186, 13)
        Me.cbxProvisionAuftraggeber.Name = "cbxProvisionAuftraggeber"
        Me.cbxProvisionAuftraggeber.Size = New System.Drawing.Size(173, 17)
        Me.cbxProvisionAuftraggeber.TabIndex = 1
@@ -392,7 +392,7 @@ Partial Class frmNacherfassungLeihgeld
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.Panel1.Controls.Add(Me.cbxProvAnMA)
+        Me.Panel1.Controls.Add(Me.cbxProvinMAKassa)
        Me.Panel1.Controls.Add(Me.cbxProvision)
        Me.Panel1.Controls.Add(Me.txtAuftrProvision)
        Me.Panel1.Controls.Add(Me.cbxProvisionAuftraggeber)
@@ -404,9 +404,9 @@ Partial Class frmNacherfassungLeihgeld
        Me.Panel1.Controls.Add(Me.txtProvisionProzent)
        Me.Panel1.Controls.Add(Me.cboProvisionStaffelArt)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel1.Location = New System.Drawing.Point(0, 404)
+        Me.Panel1.Location = New System.Drawing.Point(0, 400)
        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(525, 122)
+        Me.Panel1.Size = New System.Drawing.Size(441, 147)
        Me.Panel1.TabIndex = 20
        '
        'txtAuftrProvision
@@ -425,7 +425,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtAuftrProvision._WaehrungZeichen = True
        Me.txtAuftrProvision.Enabled = False
        Me.txtAuftrProvision.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
-        Me.txtAuftrProvision.Location = New System.Drawing.Point(460, 13)
+        Me.txtAuftrProvision.Location = New System.Drawing.Point(365, 11)
        Me.txtAuftrProvision.MaxLineLength = -1
        Me.txtAuftrProvision.MaxLines_Warning = ""
        Me.txtAuftrProvision.MaxLines_Warning_Label = Nothing
@@ -449,7 +449,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.cboProvisionBetrag._WaehrungZeichen = True
        Me.cboProvisionBetrag.Enabled = False
        Me.cboProvisionBetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
-        Me.cboProvisionBetrag.Location = New System.Drawing.Point(83, 85)
+        Me.cboProvisionBetrag.Location = New System.Drawing.Point(83, 99)
        Me.cboProvisionBetrag.MaxLineLength = -1
        Me.cboProvisionBetrag.MaxLines_Warning = ""
        Me.cboProvisionBetrag.MaxLines_Warning_Label = Nothing
@@ -464,7 +464,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.cboProvisionStaffel._value = ""
        Me.cboProvisionStaffel.Enabled = False
        Me.cboProvisionStaffel.FormattingEnabled = True
-        Me.cboProvisionStaffel.Location = New System.Drawing.Point(176, 36)
+        Me.cboProvisionStaffel.Location = New System.Drawing.Point(176, 50)
        Me.cboProvisionStaffel.Name = "cboProvisionStaffel"
        Me.cboProvisionStaffel.Size = New System.Drawing.Size(251, 21)
        Me.cboProvisionStaffel.TabIndex = 4
@@ -485,7 +485,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtProvisionProzent._WaehrungZeichen = True
        Me.txtProvisionProzent.Enabled = False
        Me.txtProvisionProzent.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
-        Me.txtProvisionProzent.Location = New System.Drawing.Point(21, 85)
+        Me.txtProvisionProzent.Location = New System.Drawing.Point(21, 99)
        Me.txtProvisionProzent.MaxLineLength = -1
        Me.txtProvisionProzent.MaxLines_Warning = ""
        Me.txtProvisionProzent.MaxLines_Warning_Label = Nothing
@@ -500,7 +500,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.cboProvisionStaffelArt._value = ""
        Me.cboProvisionStaffelArt.Enabled = False
        Me.cboProvisionStaffelArt.FormattingEnabled = True
-        Me.cboProvisionStaffelArt.Location = New System.Drawing.Point(21, 36)
+        Me.cboProvisionStaffelArt.Location = New System.Drawing.Point(21, 50)
        Me.cboProvisionStaffelArt.Name = "cboProvisionStaffelArt"
        Me.cboProvisionStaffelArt.Size = New System.Drawing.Size(156, 21)
        Me.cboProvisionStaffelArt.TabIndex = 3
@@ -511,7 +511,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.Panel2.Controls.Add(Me.Label7)
        Me.Panel2.Controls.Add(Me.cboPrinter)
        Me.Panel2.Controls.Add(Me.cboPrinterProvisionBeleg)
-        Me.Panel2.Location = New System.Drawing.Point(297, 60)
+        Me.Panel2.Location = New System.Drawing.Point(210, 83)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(228, 59)
        Me.Panel2.TabIndex = 21
@@ -654,7 +654,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.ksFrachtführerKdNr.MaxLines_Warning_Label = Nothing
        Me.ksFrachtführerKdNr.Name = "ksFrachtführerKdNr"
        Me.ksFrachtführerKdNr.ReadOnly = True
-        Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(222, 23)
+        Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(138, 23)
        Me.ksFrachtführerKdNr.TabIndex = 3
        '
        'txtPassnummer
@@ -678,7 +678,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtPassnummer.MaxLines_Warning = ""
        Me.txtPassnummer.MaxLines_Warning_Label = Nothing
        Me.txtPassnummer.Name = "txtPassnummer"
-        Me.txtPassnummer.Size = New System.Drawing.Size(222, 20)
+        Me.txtPassnummer.Size = New System.Drawing.Size(138, 20)
        Me.txtPassnummer.TabIndex = 9
        '
        'txtAuftraggeber
@@ -756,7 +756,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtAuftraggeberKdNr.MaxLines_Warning_Label = Nothing
        Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr"
        Me.txtAuftraggeberKdNr.ReadOnly = True
-        Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(222, 23)
+        Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(138, 23)
        Me.txtAuftraggeberKdNr.TabIndex = 13
        '
        'MyTextBoxLKWKz
@@ -810,7 +810,7 @@ Partial Class frmNacherfassungLeihgeld
        'cbxOP_sofort_buchen
        '
        Me.cbxOP_sofort_buchen.AutoSize = True
-        Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(375, 280)
+        Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(291, 290)
        Me.cbxOP_sofort_buchen.Name = "cbxOP_sofort_buchen"
        Me.cbxOP_sofort_buchen.Size = New System.Drawing.Size(145, 17)
        Me.cbxOP_sofort_buchen.TabIndex = 213
@@ -829,23 +829,23 @@ Partial Class frmNacherfassungLeihgeld
        Me.lblGesperrt.Text = "gesperrt!"
        Me.lblGesperrt.Visible = False
        '
-        'cbxProvAnMA
+        'cbxProvinMAKassa
        '
-        Me.cbxProvAnMA.AutoSize = True
-        Me.cbxProvAnMA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxProvAnMA.Location = New System.Drawing.Point(161, 13)
-        Me.cbxProvAnMA.Name = "cbxProvAnMA"
-        Me.cbxProvAnMA.Size = New System.Drawing.Size(119, 17)
-        Me.cbxProvAnMA.TabIndex = 22
-        Me.cbxProvAnMA.Text = "In Mitarbeiter-Kassa"
-        Me.cbxProvAnMA.UseVisualStyleBackColor = True
+        Me.cbxProvinMAKassa.AutoSize = True
+        Me.cbxProvinMAKassa.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxProvinMAKassa.Location = New System.Drawing.Point(21, 31)
+        Me.cbxProvinMAKassa.Name = "cbxProvinMAKassa"
+        Me.cbxProvinMAKassa.Size = New System.Drawing.Size(138, 17)
+        Me.cbxProvinMAKassa.TabIndex = 22
+        Me.cbxProvinMAKassa.Text = "in Mitarbeiter-Kassa"
+        Me.cbxProvinMAKassa.UseVisualStyleBackColor = True
        '
        'frmNacherfassungLeihgeld
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(525, 526)
+        Me.ClientSize = New System.Drawing.Size(441, 547)
        Me.Controls.Add(Me.lblGesperrt)
        Me.Controls.Add(Me.cbxOP_sofort_buchen)
        Me.Controls.Add(Me.txtOpLeihgeld)
@@ -934,6 +934,6 @@ Partial Class frmNacherfassungLeihgeld
    Friend WithEvents Label44 As Label
    Public WithEvents cbxOP_sofort_buchen As CheckBox
    Friend WithEvents lblGesperrt As Label
-    Friend WithEvents btnWiki As Button
-    Friend WithEvents cbxProvAnMA As CheckBox
+    Friend WithEvents btnWikiStatusmails As Button
+    Friend WithEvents cbxProvinMAKassa As CheckBox
 End Class
--- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
+++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
@@ -77,8 +77,8 @@ Public Class frmNacherfassungLeihgeld
                stammfiliale = "5501"
                cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN (5501) ORDER BY FilialenNr ", False, "FMZOLL", True)
            Case "ATILLA"
-                stammfiliale = "4806"
-                cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN (4806) ORDER BY FilialenNr ", False, "FMZOLL", True)
+                stammfiliale = "4813"
+                cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN (4813) ORDER BY FilialenNr ", False, "FMZOLL", True)
                cbxOP_sofort_buchen.Checked = PERSONAL_LG.automFIBUBuchung

            Case Else
@@ -313,11 +313,18 @@ Public Class frmNacherfassungLeihgeld
                    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
-                        Case "" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU nicht vorhanden, bitte andere KundenNr verwenden (799999)!") : Exit Sub 'nicht vorhanden
+                        Case "I" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU INAKTIV, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'inaktiv
+                        Case "" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU NICHT vorhanden, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'nicht vorhanden
                        Case Else 'aktiv -> OK
                    End Select

+                    If BELEG.KundenNr > 0 Then
+                        Dim kunden As New cKunde(BELEG.KundenNr)
+                        If Not kunden.hasEntry Then
+                            MsgBox("ACHTUNG, KundenNr existiert nicht!" & vbNewLine & "Der Kunde muss angelegt werden!") : Me.Cursor = Cursors.Default : Exit Sub
+                        End If
+                    End If
+
                End If

                BELEG.POS.Clear()
@@ -406,7 +413,7 @@ Public Class frmNacherfassungLeihgeld
                Dim barbetrag As Double = 0
                Dim BelegNrProvision = 0
                If cbxProvision.Checked Then
-                    printProvision(barbetrag, BelegNrProvision, cbxProvAnMA.Checked)
+                    printProvision(barbetrag, BelegNrProvision, cbxProvinMAKassa.Checked)
                End If


@@ -447,16 +454,14 @@ Public Class frmNacherfassungLeihgeld


                        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" AndAlso spedBuchExisting Then
-                            'create Rechnung für ATILLA
                            Dim verarbOK As Boolean = True
                            Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(BELEG.FilialenNr, BELEG.AbfertigungsNr)
                            Dim RK_ID As Integer = -1

-                            If Not gen_RECHNUNG_BySPEDBUCH(BELEG.KundenNr, SPEDBUCH, RK_ID, cbxOP_sofort_buchen.Checked, summeBRUTTO, summeNETTO) Then verarbOK = False
+                            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)

-                                'rechnungsNr vergeben, aber nicht gedruckt!
                                If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 4) Then verarbOK = False
                                If RECHNUNG.[DruckDatumZeit] IsNot Nothing Then
                                    RECHNUNG.[DruckDatumZeit] = Nothing
@@ -470,9 +475,9 @@ Public Class frmNacherfassungLeihgeld
                                MsgBox("Fehler bei Rechnungserstellung!")

                            End If
-                            End If
-
                        End If
+
+                    End If
                End If


@@ -489,7 +494,7 @@ Public Class frmNacherfassungLeihgeld
        End Try
    End Sub

-    Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer, ByRef trdin As Boolean, ByRef summeBRUTTO As Double, ByRef summeNETTO As Double)
+    Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer, ByRef trdin As Boolean, ByRef summeBRUTTO As Double, ByRef summeNETTO As Double, ByRef BARBELEG As EABeleg)
        Try

            If KdNr = "" Then Return False
@@ -586,8 +591,7 @@ Public Class frmNacherfassungLeihgeld
            Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
            RG.LOAD_OFFERT_POSITIONEN() ' --> OFFERTE MIT ANZAHL >0 und Preis >0

-
-            allPos(RG, OFFERTE, 110, summeBRUTTO, summeNETTO, (summeBRUTTO - summeNETTO))
+            allPos(RG, OFFERTE, 110, summeBRUTTO, summeNETTO, (summeBRUTTO - summeNETTO), "Leihgeldauszahlung (" & BARBELEG.LKW_Kennzeichen & " " & BARBELEG.Fahrer & ")")

            Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'')  FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL")
            If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then
@@ -612,7 +616,7 @@ Public Class frmNacherfassungLeihgeld

    End Function

-    Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0)
+    Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0, Optional leistungsBez As String = "")
        Try

            For Each o In OFFERTE.POSITIONEN
@@ -621,13 +625,11 @@ Public Class frmNacherfassungLeihgeld
                    Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
                    Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
                    POS.LeistungsNr = o.LeistungsNr
-                    POS.LeistungsBez = o.LeistungsBez
+                    POS.LeistungsBez = IIf(leistungsBez <> "", leistungsBez, o.LeistungsBez)

                    POS.BerechnungsartNr = o.BerechnungsartNr
-                    'POS.Preis = BruttoBetrag
                    POS.Anzahl = 1
                    POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
-                    'Berrechnunggebühr wird immer vom übergebenen Betrag abzüglich UST berechnet (Nettobetrag), außer bei UTA!
                    POS.BGebBgl = NettoBetrag - UstBetrag


@@ -638,7 +640,6 @@ Public Class frmNacherfassungLeihgeld
                        POS.SteuerfreierBetrag = BruttoBetrag
                        POS.Preis = BruttoBetrag
                    End If
-                    'POS.NachzahlungsID = nachzahlungsID 'nix gut
                    POS.BGebLeistungsNr = o.BGebLeistungsNr
                    POS.BGebProzent = o.BGebProzent
                    POS.BGebMinBetrag = o.BGebMinBetrag
@@ -1043,7 +1044,7 @@ Public Class frmNacherfassungLeihgeld
        txtAuftrProvision.Enabled = sender.checked
    End Sub

-    Private Sub btnWikis_Click(sender As Object, e As EventArgs) Handles btnWiki.Click
+    Private Sub btnWikis_Click(sender As Object, e As EventArgs) Handles btnWikiStatusmails.Click

        Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Leihgeldkassa"
        Process.Start(webAddress)
--- a/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb
@@ -2,6 +2,7 @@

 Imports System.Data.SqlClient
 Imports System.Reflection
+Imports jdk.nashorn.internal.objects.annotations

 Public Class cAufschubKonten
    Property brgakto_id As Integer
@@ -173,7 +174,7 @@ Public Class cAufschubKonten
        Return SQL.doSQL("Update [tblBrgAufschubKonten] Set brgakto_gs_aktSaldo = CAST(REPLACE('" & brgakto_gs_aktSaldo & "' ,',','.')AS decimal(18,2)) WHERE brgakto_gs_standort = '" & brgakto_gs_standort & "'", "ADMIN")
    End Function

-    Public Function CalcSaldo(Optional dtDate As DataTable = Nothing, Optional Stichtag As Date? = Nothing) As String
+    Public Function CalcSaldo(Optional dtDate As DataTable = Nothing, Optional Stichtag As Date? = Nothing, Optional showMessage As Boolean = False) As String


        Dim StichtagSQLGesamtsicherheit = ""
@@ -186,23 +187,31 @@ Public Class cAufschubKonten



+
        Dim SaldoString As String =
-            "select
+            "	SELECT
+    SUM(Betrag) AS GesamtSicherheitsSaldo
+    FROM (
+    SELECT
+        CASE 
+            WHEN gs_art = 'OPEN'  THEN gs_sicherheitsbetrag * -1
+            WHEN gs_art = 'CLOSE' THEN gs_sicherheitsbetrag
+        END AS Betrag
+    FROM tblGesamtsicherheit
+    WHERE gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & " AND ISNULL(gs_ReferenzAenderung,0) = 0

-                (select SUM( 
-                    case 
-    	                when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
-    	                when gs_art = 'Close' then gs_sicherheitsbetrag
-                    end) 
-					
-					as SicherheitsSaldoGS from [tblGesamtsicherheit] Where gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & ")+
+        UNION ALL

-                    (select SUM( 
-                    case  
-    	                when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1)
-    	                when gsp_art = 'Close' then gsp_sicherheitsbetrag
-                    end) 
-					as SicherheitsSaldoPositionen from [tblGesamtsicherheitsPositionen] Where gsp_gsid IN (select gs_gsId from [tblGesamtsicherheit] where gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & " And ISNULL(gs_ReferenzAenderung,0) = 0 )" & StichtagSQLGesamtsicherheitsPositionen & ")"
+    SELECT
+        CASE 
+            WHEN gsp_art = 'OPEN'  THEN gsp_sicherheitsbetrag * -1
+            WHEN gsp_art = 'CLOSE' THEN gsp_sicherheitsbetrag
+        END
+    FROM tblGesamtsicherheitsPositionen
+    WHERE gsp_gsnr IN (
+        SELECT gs_gsnr
+        FROM tblGesamtsicherheit
+        WHERE gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & " AND ISNULL(gs_ReferenzAenderung,0) = 0 )) x;"

        Dim dt As New DataTable
        Dim mrn As Double = 0
@@ -214,7 +223,7 @@ Public Class cAufschubKonten
        If Stichtag.HasValue Then
            brgakto_gs_aktSaldo = getReferenzbetrag(Stichtag.Value) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge zum Stichtag!!! -> nicht updaten, nur INFO!!!!
            brgakto_gs_aktSaldo += mrn
-            MsgBox("Saldo zum Stichtag " & Stichtag.Value & ":" & vbNewLine & brgakto_gs_aktSaldo.ToString("N2"))
+            If showMessage Then MsgBox("Saldo zum Stichtag " & Stichtag.Value & ":" & vbNewLine & brgakto_gs_aktSaldo.ToString("N2"))
        Else
            brgakto_gs_aktSaldo = getReferenzbetrag(Today) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge....
            brgakto_gs_aktSaldo += mrn
@@ -233,7 +242,7 @@ Public Class cAufschubKonten

        Try

-            Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]='" & brgakto_id & "' and brgarefb_gs_aktiv = 1 And cast([brgarefb_gueltig_ab] as Date) <= '" & nowDate & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,)
+            Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]=" & brgakto_id & " and brgarefb_gs_aktiv = 1 And cast([brgarefb_gueltig_ab] as Date) <= '" & nowDate & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,)

        Catch ex As Exception
            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)