diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb
index 82ef5cbf..ce563e62 100644
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -1687,9 +1687,10 @@ Public Class cFakturierung
                                     End If
                                 End If
                                 If RECHNUNG.ANHAENGE.Count > 0 Then
-                                    If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
-                                        printRGAnhaenge(RECHNUNG)
-                                    End If
+                                    'wird nicht mehr benötigt! TicketNr: 953
+                                    'If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
+                                    '    printRGAnhaenge(RECHNUNG)
+                                    'End If
                                 End If
                             End If
 
diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.vb
index a44ce7fe..78d48e84 100644
--- a/SDL/USTV/ustCntlUSTV_AntragPosition.vb
+++ b/SDL/USTV/ustCntlUSTV_AntragPosition.vb
@@ -115,14 +115,14 @@ Public Class ustCntlUSTV_AntragPosition
             save = False
         End If
         If txtUmrechnungskurs._value <> "" Then
-            UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs._value
+            UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs._value.Replace(",", ".")
         Else
             save = False
         End If
 
         UStV_POS.UStVPo_Schnittstelle = cbxAPI.Checked
 
-        UStV_POS.UStVPo_SchnittstellenNr = IIf(cboSchnittstellennr.SelectedItem Is Nothing, cboSchnittstellennr.SelectedItem, -1)
+        UStV_POS.UStVPo_SchnittstellenNr = IIf(cboSchnittstellennr.SelectedItem IsNot Nothing, cboSchnittstellennr._value, -1)
 
 
     End Sub
@@ -141,7 +141,8 @@ Public Class ustCntlUSTV_AntragPosition
         gridAktiv = False
         txtUSTBetragEUR._value = ""
         If IsNumeric(txtUSTBetrag._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
-            txtUSTBetragEUR._value = txtUSTBetrag._value * txtUmrechnungskurs._value
+            txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag._value / txtUmrechnungskurs._value) * 100 + 0.5) / 100
+            'txtUSTBetragEUR._value = txtUSTBetrag._value * txtUmrechnungskurs._value
         End If
         gridAktiv = gridAktivTMP
     End Sub
diff --git a/SDL/kassenbuch/frmKassenbuch.vb b/SDL/kassenbuch/frmKassenbuch.vb
index f10d81ff..15f572d7 100644
--- a/SDL/kassenbuch/frmKassenbuch.vb
+++ b/SDL/kassenbuch/frmKassenbuch.vb
@@ -1,5 +1,4 @@
-Imports DocumentFormat.OpenXml.Drawing
-Imports SDL.RKSVServer
+Imports SDL.RKSVServer
 
 Public Class frmKassenbuch
     Dim SQL As New SQL
@@ -630,6 +629,8 @@ Public Class frmKassenbuch
         print.Text = "Kassenbuch"
         Dim rpt As New rptKassenbuchKontenBericht
 
+        rpt.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
+
         Dim frmVonBis As New frmKasseBerichtVonBis
         If frmVonBis.ShowDialog(Me) <> Windows.Forms.DialogResult.OK Then
             Exit Sub
diff --git a/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben DE.dotx b/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben DE.dotx
index 7dd7bfaf..f8eb5042 100644
Binary files a/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben DE.dotx and b/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben DE.dotx differ
diff --git a/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben RO.dotx b/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben RO.dotx
index 98fb2b90..ae0be813 100644
Binary files a/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben RO.dotx and b/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben RO.dotx differ
diff --git a/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben TR.dotx b/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben TR.dotx
index 1c7860d5..c1ce4168 100644
Binary files a/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben TR.dotx and b/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben TR.dotx differ
diff --git a/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben YU.dotx b/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben YU.dotx
index 9ef6d406..0651f0f5 100644
Binary files a/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben YU.dotx and b/SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben YU.dotx differ
diff --git a/SDL/seriendruck/usrCntlSeriendruck.vb b/SDL/seriendruck/usrCntlSeriendruck.vb
index 4d80fc6b..2cd2819f 100644
--- a/SDL/seriendruck/usrCntlSeriendruck.vb
+++ b/SDL/seriendruck/usrCntlSeriendruck.vb
@@ -35,10 +35,12 @@ Public Class usrCntlSeriendruck
             Dim bericht As cErstasttungsschreiben = berichteSQL.getErstatung(txtErstattungAbfNrFiliale_neu.Text, txtErstattungAbfNr_neu.Text, txtErstattungAbfUnterNr_neu.Text)
 
             Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(19)
+            Dim FIRMA_DE As New VERAG_PROG_ALLGEMEIN.cFirmen(2)
 
             'Dim ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(bericht.)
             If FIRMA IsNot Nothing Then
-                WordDoc.FormFields("txtAdresseZeileFirma").Range.Text = FIRMA.Firma_Bez + ", " + FIRMA.Firma_Ort
+                WordDoc.FormFields("txtAdresseZeileFirma").Range.Text = FIRMA.Firma_Bez + ", " + FIRMA.Firma_Ort + ", " + FIRMA.Firma_Straße
+                WordDoc.FormFields("txtAdresseZeileFirm1").Range.Text = FIRMA_DE.Firma_Bez + ", " + FIRMA_DE.Firma_Ort + ", " + FIRMA_DE.Firma_Straße
             End If