diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb
index 945995aa..dfbbb8d5 100644
--- a/SDL/My Project/AssemblyInfo.vb	
+++ b/SDL/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.3.4.1")>
-<Assembly: AssemblyFileVersion("1.3.4.1")>
+<Assembly: AssemblyVersion("1.3.4.2")>
+<Assembly: AssemblyFileVersion("1.3.4.2")>
diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb
index fdb5997e..96dc6f5b 100644
--- a/SDL/USTV/frmMDM_USTVAntrag.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.vb
@@ -39,6 +39,8 @@ Public Class frmMDM_USTVAntrag
         Me.von = von
         Me.bis = bis
 
+
+
     End Sub
 
     Sub init(Optional Lieferant As String = "")
@@ -252,6 +254,7 @@ Public Class frmMDM_USTVAntrag
             USTV_ANTRAG.UStVAn_Status = cboStatus._value
             USTV_ANTRAG.UStVAn_AntragArt = cboAntragArt._value
             USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text
+
             USTV_ANTRAG.FilialenNr = cbxFiliale._value
 
             If txt3470.Text <> "" AndAlso IsNumeric(txt3470.Text) Then
@@ -351,10 +354,13 @@ Public Class frmMDM_USTVAntrag
         cboAntragArt.changeItem(" ")
 
         cbxFiliale.fillWithSQL("SELECT Filialen.FilialenNr, Filialen.Grenzstelle FROM Filialen WHERE Filialen.FilialenNr>=4800 AND Filialen.Fil_Status='A' ORDER BY Filialen.FilialenNr",, "FMZOLL", True)
-        cboAntragArt.changeItem(" ")
-
-
 
+        For i As Integer = 0 To cbxFiliale.Items.Count - 1
+            If cbxFiliale.Items(i).ToString().Contains("MWST Rückerstattung") Then
+                cbxFiliale.SelectedIndex = i
+                Exit For
+            End If
+        Next
 
         lbl_EintrageVerarbetiet.Text = ""
 
diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb
index 10420324..5b26c10f 100644
--- a/SDL/USTV/usrCntlUSTV.vb
+++ b/SDL/USTV/usrCntlUSTV.vb
@@ -695,7 +695,7 @@ Public Class usrCntlUSTV
             Exit Sub
         End If
 
-        Dim frm = New frmMDM_USTVAntrag(-1, "AT", New Date(Now.Year(), 1, 1), New Date(Now.Year(), 12, 31))
+        Dim frm = New frmMDM_USTVAntrag(IIf(KdSearchBox1.KdNr_value > 0, KdSearchBox1.KdNr_value, -1), "AT", Nothing, Nothing)
         frm.ShowDialog()
 
     End Sub
diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.vb
index 2820f568..a44ce7fe 100644
--- a/SDL/USTV/ustCntlUSTV_AntragPosition.vb
+++ b/SDL/USTV/ustCntlUSTV_AntragPosition.vb
@@ -99,13 +99,13 @@ Public Class ustCntlUSTV_AntragPosition
             save = False
         End If
         If txtUSTBetrag._value <> "" Then
-            UStV_POS.UStVPo_USteuerbetrag = txtUSTBetrag._value
+            UStV_POS.UStVPo_USteuerbetrag = txtUSTBetrag._value.Replace(",", ".")
         Else
             save = False
         End If
 
         If txtUSTBetragEUR._value <> "" Then
-            UStV_POS.UStVPo_USteuerbetragEUR = txtUSTBetragEUR._value
+            UStV_POS.UStVPo_USteuerbetragEUR = txtUSTBetragEUR._value.Replace(",", ".")
         Else
             save = False
         End If
@@ -192,7 +192,7 @@ Public Class ustCntlUSTV_AntragPosition
 
             ElseIf sender Is txtUSTBetragEUR Then
 
-                If IsNumeric(txtUSTBetragEUR._value) AndAlso IsNumeric(txtUmrechnungskurs._value) AndAlso txtUmrechnungskurs._value <> 1 Then
+                If IsNumeric(txtUSTBetragEUR._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
                     txtUSTBetrag.Text = Math.Floor((txtUSTBetragEUR._value * txtUmrechnungskurs._value) * 100 + 0.5) / 100
                     'values_changed()
                 End If
diff --git a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb
index db598015..d9b3a84d 100644
--- a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb
+++ b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb
@@ -1213,7 +1213,7 @@ Partial Class usrCntlMDMAuswertungen
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
         Me.TabPage1.Size = New System.Drawing.Size(1049, 990)
         Me.TabPage1.TabIndex = 0
-        Me.TabPage1.Text = "VERAG Auswertugnen"
+        Me.TabPage1.Text = "VERAG Auswertungen"
         Me.TabPage1.UseVisualStyleBackColor = True
         '
         'Label33
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb b/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb
index f7960402..f7368c18 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb
@@ -349,7 +349,7 @@ Public Class cIDS
                                             AND tblIDSTransactionsNew.KdNrVERAG = @AdressenNr 
                                             AND tbl_IDS_Länder.[Lieferland_ISO2] = @LandKZ
                                             AND tblIDSTransactionsNew.[VATAmount] <> 0 
-                                            AND isnull(UStVAn_ID,0) = " & IIf(Archiv IsNot Nothing AndAlso Archiv, 1, 0) &
+                                            AND isnull(UStVAn_ID,0) " & IIf(Archiv IsNot Nothing AndAlso Archiv, " <> 0 ", " = 0 ") &
                                         "GROUP BY 
                                             tblIDSTransactionsNew.KdNrVERAG,
                                             tblIDSTransactionsNew.[YearMonthDay],