Kassenbuch, ustva, Erstattungsschreiben

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
+                                    'wird nicht mehr benötigt! TicketNr: 953
-                                        printRGAnhaenge(RECHNUNG)
+                                    'If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
-                                    End If
+                                    '    printRGAnhaenge(RECHNUNG)
+                                    'End If
                                 End If
                             End If
 

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

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

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