diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb
index 6432cdd8..c23ddf8f 100644
--- a/SDL/mdm/frmMDMDatenverarbetiung.vb
+++ b/SDL/mdm/frmMDMDatenverarbetiung.vb
@@ -3006,10 +3006,11 @@ Public Class frmMDMDatenverarbetiung
 
                         Dim NettoBetrag As Double = r("Netto")
                         Dim BruttoBetrag As Double = r("Brutto")
+                        Dim UstBetrag As Double = BruttoBetrag = NettoBetrag
                         Dim LeistungsNr As Integer = r("LeistungsNr")
                         Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
 
-                        allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag)
+                        allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag)
 
                     Next
 
@@ -3069,11 +3070,12 @@ Public Class frmMDMDatenverarbetiung
 
                     useNettogesamtbetrag = False
                     'alles steuerfrei also Brutto = Netto
-                    sqlstr = "select customer_id, LeistungsNr,  sum(Netto) as Netto, Sum (Brutto) as Brutto from (select cust.[customer_id], trans.device_product_type, Offertenpositionen.LeistungsNr , 
+                    sqlstr = "select customer_id, LeistungsNr,  sum(Netto) as Netto, Sum (Brutto) as Brutto, Sum (UST) as UST from (select cust.[customer_id], trans.device_product_type, Offertenpositionen.LeistungsNr , 
                                 case when trans.device_product_type like '%System Fee' then sum(msts_fee_amount) + sum(transaction_gross_amount) 
                                 else sum(transaction_gross_amount) End as Netto,
                                 case when trans.device_product_type like '%System Fee' then sum(msts_fee_amount) + sum(transaction_gross_amount) 
-                                else sum(transaction_gross_amount) End as Brutto
+                                else sum(transaction_gross_amount) End as Brutto,
+                                sum(USteuer_EUR) as UST
                                 FROM [VERAG].[dbo].[tblMSESettlements] as bills 
                                 left join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id] 
                                 left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id
@@ -3089,10 +3091,11 @@ Public Class frmMDMDatenverarbetiung
 
                         Dim NettoBetrag As Double = r("Netto")
                         Dim BruttoBetrag As Double = r("Brutto")
+                        Dim UstBetrag As Double = r("UST")
                         Dim LeistungsNr As Integer = r("LeistungsNr")
                         Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
 
-                        allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag)
+                        allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag)
 
                     Next
 
@@ -3123,7 +3126,7 @@ Public Class frmMDMDatenverarbetiung
     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)
+    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)
         Try
 
             For Each o In OFFERTE.POSITIONEN
@@ -3143,7 +3146,8 @@ Public Class frmMDMDatenverarbetiung
                     'POS.Preis = BruttoBetrag
                     POS.Anzahl = 1
                     POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
-                    POS.BGebBgl = IIf(LIEFERANT = "UTA", BruttoBetrag, NettoBetrag)
+                    'Berrechnunggebühr wird immer vom übergebenen Betrag abzüglich UST berechnet (Nettobetrag)!
+                    POS.BGebBgl = IIf(LIEFERANT = "UTA", BruttoBetrag - UstBetrag, NettoBetrag - UstBetrag)
 
 
                     If POS.Steuerpflichtig Then
@@ -3160,6 +3164,7 @@ Public Class frmMDMDatenverarbetiung
 
                     RG.POSITIONEN.Add(POS)
 
+
                     If (If(POS.BGebLeistungsNr, 0) > 0) AndAlso (If(POS.BGebProzent, 0) > 0) AndAlso (If(POS.BGebBgl, 0) > 0) Then
                         allPlosePosBGeb(RG, OFFERTE, POS.BGebLeistungsNr, POS.BGebBgl, POS.BGebProzent)
                     End If
@@ -3207,6 +3212,7 @@ Public Class frmMDMDatenverarbetiung
 
     Function allPlosePosBGeb(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, BGebLeistungsNr As Integer, BGebBgl As Double, BGebProzent As Double)
         Try
+
             Dim Betrag As Double = Math.Round(BGebBgl * BGebProzent, 1)
             For Each o In OFFERTE.POSITIONEN
                 If o.LeistungsNr = BGebLeistungsNr Then
diff --git a/SDLUPDATER/UPDATERfrm.vb b/SDLUPDATER/UPDATERfrm.vb
index a0cb408f..fd73b45e 100644
--- a/SDLUPDATER/UPDATERfrm.vb
+++ b/SDLUPDATER/UPDATERfrm.vb
@@ -29,6 +29,11 @@
             CopyIncremental = False
         End If
 
+        If System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\SDL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\SDL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\SDL\" Then
+            MsgBox("Programm kann nicht im Quellpfad " & System.AppDomain.CurrentDomain.BaseDirectory & " geupdated werden!" & vbNewLine & "Vorgang wird abgebrochen!", MsgBoxStyle.Critical)
+            Exit Sub
+        End If
+
         'Falls Settings existiert, wird der Pfad daraus verwendet.
         F = System.IO.File.ReadAllText(AppDomain.CurrentDomain.BaseDirectory & "SDLUPDATER_Settings.txt")
         If Not System.IO.Directory.Exists(F) Then
diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
index 400aca99..02821350 100644
--- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
+++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
@@ -392,7 +392,7 @@ Public Class cADMIN
             End Using
             dr.Close()
         Catch ex As Exception
-            MsgBox("Fehler mit der Datenbankverbindung.", "Datenbankfehler")
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler mit der Datenbankverbindung. " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             Return False
         End Try