diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb
index c54eae68..28a7bc4d 100644
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -529,7 +529,7 @@ Public Class cFakturierung
                     If PARK IsNot Nothing AndAlso PARK.Count > 0 Then
                         Select Case RECHNUNG.RechnungSprache
                             Case "EN" : strText = strText & "Place of fulfilment: DE-94152 Neuhaus am Inn " & vbCrLf & "The tax was paid at the tax office DE-94032 Passau under the tax number 153/105/80268 (UID:DE245897610)" & vbCrLf
-                            Case Else : strText = strText & "Leistungsort: DE-94152 Neuhaus am Inn " & vbCrLf & "Die Steuer wurde beim Finanzamt DE-94032 Passau unter angabe der Steuernummer 153/105/80268 abgeführt (UID:DE245897610)" & vbCrLf
+                            Case Else : strText = strText & "Leistungsort: DE-94152 Neuhaus am Inn " & vbCrLf & "Die Steuer wurde beim Finanzamt DE-94032 Passau unter Angabe der Steuernummer 153/105/80268 abgeführt (UID:DE245897610)" & vbCrLf
                         End Select
                     End If
                 Case 21, 22, 23
@@ -725,7 +725,7 @@ Public Class cFakturierung
         rpt.lblFirmaFax.Text = If(FIRMA.Firma_Telefax, "")
         rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "")
         rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "")
-        rpt.lblFirma.Text = If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")
+        rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "")
         rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim
         rpt.lblUID.Text = If(FIRMA.Firma_UID, "").ToString.Replace("UID:", "").Trim
         rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "").ToString.Replace("EORI:", "").Trim
@@ -816,7 +816,7 @@ Public Class cFakturierung
         rpt.lblFirmaFax.Text = If(FIRMA.Firma_Telefax, "")
         rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "")
         rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "")
-        rpt.lblFirma.Text = If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")
+        rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "")
         rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim
         rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
         rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
@@ -875,7 +875,7 @@ Public Class cFakturierung
         rpt.lblFirmaFax.Text = If(FIRMA.Firma_Telefax, "")
         rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "")
         rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "")
-        rpt.lblFirma.Text = If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")
+        rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "")
         rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim
         rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
         rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
@@ -1072,9 +1072,9 @@ Public Class cFakturierung
             rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim
             rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim
             rpt.txtAvisierer.Text = If(RECHNUNG.Avisierer, "")
-            If rpt.txtAbsender.Text = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False
-            If rpt.txtEmpfaenger.Text = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False
-            If rpt.txtAvisierer.Text = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False
+            If rpt.txtAbsender.Text.Trim = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False
+            If rpt.txtEmpfaenger.Text.Trim = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False
+            If rpt.txtAvisierer.Text.Trim = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False
 
             rpt.txtZollbelegNr.Text = If(RECHNUNG.BelegNr, "")
 
@@ -1092,8 +1092,8 @@ Public Class cFakturierung
             rpt.txtBeförderungsmittel.Text = If(RECHNUNG.LKW_Kennzeichen, "")
 
             rpt.txtGrenze.Text = If(RECHNUNG.Grenze, "")
-            If rpt.txtGrenze.Text = String.Empty Then rpt.txtGrenze.Text = SQL.getValueTxtBySql("SELECT TOP 1 isnull([Grenzstelle],'')   FROM [Filialen]  where FilialenNr='" & RECHNUNG.FilialenNr & "'", "FMZOLL")
-            If rpt.txtGrenze.Text = String.Empty Then rpt.txtGrenzeUeberschrift.Visible = False
+            If rpt.txtGrenze.Text.Trim = String.Empty Then rpt.txtGrenze.Text = SQL.getValueTxtBySql("SELECT TOP 1 isnull([Grenzstelle],'')   FROM [Filialen]  where FilialenNr='" & RECHNUNG.FilialenNr & "'", "FMZOLL")
+            If rpt.txtGrenze.Text.Trim = String.Empty Then rpt.txtGrenzeUeberschrift.Visible = False
 
             rpt.lblRechnungAn.Text = If(RECHNUNG.RechnungsName_1, "") & vbNewLine
             If If(RECHNUNG.RechnungsName_2, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsName_2 & vbNewLine
@@ -1644,7 +1644,7 @@ Public Class cFakturierung
                     Case 4 'VERAG AG  (DE)
                         getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-AG-Logo21.png""/>"
                         If displayFirmenmane Then getSignature &= "<br><b>VERAG Spedition AG</b><br>"
-                        getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b>  +43 7711 2777-0  |  <b>F</b>  +43 7711 31 073  |  <b>@</b>  " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & "  |  www.verag.ag  |  FN 216714y</div>"
+                        getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b>  +43 7711 2777-947  |  <b>F</b>  +43 7711 31 073  |  <b>@</b>  " & If(individuell, emailindividuell, "s.kriegner@verag.ag") & "  |  www.verag.ag  |  FN 216714y</div>"
                         If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
                     Case 7 'ATILLA
                         getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Atilla.jpg""/>"
diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
index 297d4ca5..dd1d45b8 100644
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -1605,7 +1605,7 @@ Public Class usrCntlFaktAbrechnung
             End If
         End If
 
-        initDGVAnhaenge
+        initDGVAnhaenge()
 
         cboRechnungAn.Focus()
         initRg_Anhaenhe_Default(RECHNUNG, SPEDBUCH)
@@ -1863,7 +1863,7 @@ Public Class usrCntlFaktAbrechnung
         Dim zahlbar = ""
 
         Select Case cboRgGS.SelectedIndex
-            Case 0 : RECHNUNG.[BelegartenKz] = "AR" : RECHNUNG.[BelegartenNr] = 70 : RECHNUNG.Vorzeichen = "+" : RECHNUNG.BelegartenBez = "Rechnung" : RECHNUNG.Text = cProgramFunctions.isLeerNothing(txtText.Text) : RECHNUNG.Textzz = cProgramFunctions.isLeerNothing(txtTextZZ.Text)
+            Case 0 : RECHNUNG.[BelegartenKz] = "AR" : RECHNUNG.[BelegartenNr] = 70 : RECHNUNG.Vorzeichen = "+" : RECHNUNG.BelegartenBez = "Rechnung" : RECHNUNG.Text = cProgramFunctions.isLeerNothing(txtText.Text) : RECHNUNG.TextZZ = cProgramFunctions.isLeerNothing(txtTextZZ.Text)
             Case 1 : RECHNUNG.[BelegartenKz] = "AG" : RECHNUNG.[BelegartenNr] = 71 : RECHNUNG.Vorzeichen = "-" : RECHNUNG.BelegartenBez = "Gutschrift" : RECHNUNG.Text = ""
         End Select