Erstattunsgsvhreiben, Kundenblatt, Seriendruck, ustva, uta

SDL/seriendruck/usrCntlSeriendruck.vb

@@ -1,4 +1,5 @@
 Imports Microsoft.Office.Interop
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrCntlSeriendruck
 
@@ -32,7 +33,15 @@ Public Class usrCntlSeriendruck
 
             Dim berichteSQL As New BerichteSQL
             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 ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(bericht.)
+            If FIRMA IsNot Nothing Then
+                WordDoc.FormFields("txtAdresseZeileFirma").Range.Text = FIRMA.Firma_Bez + ", " + FIRMA.Firma_Ort
+            End If
+
+
             If bericht.KorrAdresse <> "" Then
                 bericht.KorrAdresse = bericht.KorrAdresse.Replace(Chr(13) & Chr(10), Chr(13))
                 If InStr(bericht.KorrAdresse, Chr(13)) > 0 Then
@@ -48,7 +57,8 @@ Public Class usrCntlSeriendruck
             Else
                 WordDoc.FormFields("txtAdresseZeile1").Range.Text = bericht.Name.Trim
                 WordDoc.FormFields("txtAdresseZeile2").Range.Text = bericht.Straße
-                WordDoc.FormFields("txtAdresseZeile3").Range.Text = bericht.LandKz & " " & bericht.Ort
+                WordDoc.FormFields("txtAdresseZeile3").Range.Text = bericht.Ort
+                WordDoc.FormFields("txtAdresseZeile4").Range.Text = cProgramFunctions.getLandBez_fromISO1Land(bericht.LandKz, "", cbxErstSprache.SelectedItem.value).ToString.ToUpper
             End If
 
             WordDoc.FormFields("Datum").Range.Text = bericht.MWST