diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj
index 12f1da96..5fe0f7c0 100644
--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -587,18 +587,31 @@
     <Compile Include="Creditsafe\frmCreditSafeSearch.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Creditsafe\frmVAT_ATEZ.Designer.vb">
+      <DependentUpon>frmVAT_ATEZ.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Creditsafe\frmVAT_ATEZ.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Creditsafe\usrcntlCreditsafe.Designer.vb">
       <DependentUpon>usrcntlCreditsafe.vb</DependentUpon>
     </Compile>
     <Compile Include="Creditsafe\usrcntlCreditsafe.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="Creditsafe\usrcntlVAT_ATEZ.Designer.vb">
+      <DependentUpon>usrcntlVAT_ATEZ.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Creditsafe\usrcntlVAT_ATEZ.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="cServerClient.vb" />
     <Compile Include="cSourceListWrapper.vb" />
     <Compile Include="cSplitButton.vb">
       <SubType>Component</SubType>
     </Compile>
     <Compile Include="cSqlDb.vb" />
+    <Compile Include="Fakturierung\cAutomailversand.vb" />
     <Compile Include="Fakturierung\frmSendEmail.Designer.vb">
       <DependentUpon>frmSendEmail.vb</DependentUpon>
     </Compile>
@@ -779,6 +792,12 @@
     <Compile Include="kunden\frmGoMautBoxen_Bestellung.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="kunden\frmKundenLinkedGruppe.Designer.vb">
+      <DependentUpon>frmKundenLinkedGruppe.vb</DependentUpon>
+    </Compile>
+    <Compile Include="kunden\frmKundenLinkedGruppe.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="kunden\frmKundenTOBBKdNr.Designer.vb">
       <DependentUpon>frmKundenTOBBKdNr.vb</DependentUpon>
     </Compile>
@@ -875,10 +894,6 @@
     <Compile Include="mdm\Besuchsberichte\usrCntlBesuchsberichte.vb">
       <SubType>UserControl</SubType>
     </Compile>
-    <Compile Include="mdm\frmDatumsabfrage.Designer.vb">
-      <DependentUpon>frmDatumsabfrage.vb</DependentUpon>
-    </Compile>
-    <Compile Include="mdm\frmDatumsabfrage.vb" />
     <Compile Include="mdm\frmMDMLieferantenrechnungen.Designer.vb">
       <DependentUpon>frmMDMLieferantenrechnungen.vb</DependentUpon>
     </Compile>
@@ -3257,9 +3272,15 @@
     <EmbeddedResource Include="Creditsafe\frmCreditSafeSearch.resx">
       <DependentUpon>frmCreditSafeSearch.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Creditsafe\frmVAT_ATEZ.resx">
+      <DependentUpon>frmVAT_ATEZ.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Creditsafe\usrcntlCreditsafe.resx">
       <DependentUpon>usrcntlCreditsafe.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Creditsafe\usrcntlVAT_ATEZ.resx">
+      <DependentUpon>usrcntlVAT_ATEZ.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Fakturierung\frmSendEmail.resx">
       <DependentUpon>frmSendEmail.vb</DependentUpon>
     </EmbeddedResource>
@@ -3351,6 +3372,9 @@
     <EmbeddedResource Include="kunden\frmGoMautBoxen_Bestellung.resx">
       <DependentUpon>frmGoMautBoxen_Bestellung.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="kunden\frmKundenLinkedGruppe.resx">
+      <DependentUpon>frmKundenLinkedGruppe.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="kunden\frmKundenTOBBKdNr.resx">
       <DependentUpon>frmKundenTOBBKdNr.vb</DependentUpon>
     </EmbeddedResource>
@@ -3399,9 +3423,6 @@
     <EmbeddedResource Include="mdm\Besuchsberichte\usrCntlBesuchsberichte.resx">
       <DependentUpon>usrCntlBesuchsberichte.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="mdm\frmDatumsabfrage.resx">
-      <DependentUpon>frmDatumsabfrage.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="mdm\frmMDMLieferantenrechnungen.resx">
       <DependentUpon>frmMDMLieferantenrechnungen.vb</DependentUpon>
     </EmbeddedResource>
diff --git a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
index 59c2a822..97eab890 100644
--- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
@@ -28,7 +28,6 @@ Partial Class frmMDM_USTVAntrag
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag))
         Me.pnlBottom = New System.Windows.Forms.Panel()
         Me.Button5 = New System.Windows.Forms.Button()
-        Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label27 = New System.Windows.Forms.Label()
         Me.picExcel = New System.Windows.Forms.PictureBox()
         Me.Button4 = New System.Windows.Forms.Button()
@@ -42,39 +41,24 @@ Partial Class frmMDM_USTVAntrag
         Me.lblGesamtUSteuer = New System.Windows.Forms.Label()
         Me.lblDiffernezbetrag = New System.Windows.Forms.Label()
         Me.lblGesamtErstattung = New System.Windows.Forms.Label()
-        Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
-        Me.cboAntragArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.lblKdNr = New System.Windows.Forms.Label()
         Me.Panel9 = New System.Windows.Forms.Panel()
-        Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.lblLand = New System.Windows.Forms.Label()
         Me.Panel8 = New System.Windows.Forms.Panel()
         Me.Label15 = New System.Windows.Forms.Label()
-        Me.txtVZam = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.btnAbfertigungsNrVergeben = New System.Windows.Forms.Button()
         Me.Label14 = New System.Windows.Forms.Label()
-        Me.txtEingereichtAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.lblMWSTAntrag = New System.Windows.Forms.Label()
         Me.Label13 = New System.Windows.Forms.Label()
-        Me.txtGueltig = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label11 = New System.Windows.Forms.Label()
-        Me.txtStNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label9 = New System.Windows.Forms.Label()
-        Me.txtVZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAbfNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label8 = New System.Windows.Forms.Label()
-        Me.cbxFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
-        Me.txtBezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cbxWahrung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.lblWahrung = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
-        Me.txt3470 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.lblZeitraum = New System.Windows.Forms.Label()
-        Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Panel6 = New System.Windows.Forms.Panel()
         Me.lblGesamtUSteuerFW = New System.Windows.Forms.Label()
         Me.Label12 = New System.Windows.Forms.Label()
@@ -97,29 +81,45 @@ Partial Class frmMDM_USTVAntrag
         Me.btnStorno = New System.Windows.Forms.Button()
         Me.lblAntragAbgeschlossen = New System.Windows.Forms.Label()
         Me.Label5 = New System.Windows.Forms.Label()
-        Me.cboStatus = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.lblFirma = New System.Windows.Forms.Label()
         Me.lblWarnung = New System.Windows.Forms.Label()
         Me.pnlBody = New System.Windows.Forms.Panel()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
-        Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.pnlAntragsPosDetails = New System.Windows.Forms.Panel()
         Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.btnEintragloeschen = New System.Windows.Forms.Button()
         Me.btnNeuerEintrag = New System.Windows.Forms.Button()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
         Me.Panel3 = New System.Windows.Forms.Panel()
-        Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.pnlErstattungsdetails = New System.Windows.Forms.Panel()
-        Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+        Me.cboAntragArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtVZam = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtEingereichtAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtGueltig = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtStNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAbfNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtBezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxWahrung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txt3470 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboStatus = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
+        Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
+        Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.pnlBottom.SuspendLayout()
         CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -132,15 +132,15 @@ Partial Class frmMDM_USTVAntrag
         Me.pnlBody.SuspendLayout()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
-        CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlAntragsPosDetails.SuspendLayout()
         Me.Panel2.SuspendLayout()
         Me.Panel4.SuspendLayout()
         Me.TabPage2.SuspendLayout()
         Me.Panel3.SuspendLayout()
-        CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlErstattungsdetails.SuspendLayout()
         Me.Panel1.SuspendLayout()
+        CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'pnlBottom
@@ -177,31 +177,6 @@ Partial Class frmMDM_USTVAntrag
         Me.Button5.UseVisualStyleBackColor = True
         Me.Button5.Visible = False
         '
-        'txtSumme
-        '
-        Me.txtSumme._DateTimeOnly = False
-        Me.txtSumme._numbersOnly = False
-        Me.txtSumme._numbersOnlyKommastellen = ""
-        Me.txtSumme._numbersOnlyTrennzeichen = False
-        Me.txtSumme._Prozent = False
-        Me.txtSumme._ShortDateNew = False
-        Me.txtSumme._ShortDateOnly = False
-        Me.txtSumme._TimeOnly = False
-        Me.txtSumme._TimeOnly_Seconds = False
-        Me.txtSumme._value = ""
-        Me.txtSumme._Waehrung = True
-        Me.txtSumme._WaehrungZeichen = True
-        Me.txtSumme.ForeColor = System.Drawing.Color.Black
-        Me.txtSumme.Location = New System.Drawing.Point(1158, 67)
-        Me.txtSumme.MaxLineLength = -1
-        Me.txtSumme.MaxLines_Warning = ""
-        Me.txtSumme.MaxLines_Warning_Label = Nothing
-        Me.txtSumme.Name = "txtSumme"
-        Me.txtSumme.ReadOnly = True
-        Me.txtSumme.Size = New System.Drawing.Size(88, 20)
-        Me.txtSumme.TabIndex = 49
-        Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
         'Label27
         '
         Me.Label27.AutoSize = True
@@ -375,48 +350,6 @@ Partial Class frmMDM_USTVAntrag
         Me.lblGesamtErstattung.Text = "000.000,00"
         Me.lblGesamtErstattung.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
-        'KdSearchBox1
-        '
-        Me.KdSearchBox1._AlleFirmenCLUSTER = False
-        Me.KdSearchBox1._AllowSetValue = False
-        Me.KdSearchBox1._autoSizeGross = False
-        Me.KdSearchBox1._display_Name1 = False
-        Me.KdSearchBox1._displayAVISO_Email = False
-        Me.KdSearchBox1._displayFullName = False
-        Me.KdSearchBox1._displayWoelflKd = False
-        Me.KdSearchBox1._hideIfListEmpty = True
-        Me.KdSearchBox1._loadKdData = False
-        Me.KdSearchBox1._searchName1 = True
-        Me.KdSearchBox1._UseFIRMA = ""
-        Me.KdSearchBox1._ValueKdAndName = True
-        Me.KdSearchBox1.dgvpos = "LEFT"
-        Me.KdSearchBox1.KdName = Nothing
-        Me.KdSearchBox1.KdNr = "-1"
-        Me.KdSearchBox1.kdNrField = Nothing
-        Me.KdSearchBox1.KdNrNullInt = Nothing
-        Me.KdSearchBox1.Location = New System.Drawing.Point(298, 10)
-        Me.KdSearchBox1.Name = "KdSearchBox1"
-        Me.KdSearchBox1.nurAktive = True
-        Me.KdSearchBox1.searchActive = True
-        Me.KdSearchBox1.Size = New System.Drawing.Size(171, 20)
-        Me.KdSearchBox1.TabIndex = 22
-        Me.KdSearchBox1.TIMER_SEARCH = True
-        Me.KdSearchBox1.usrcntl = Nothing
-        '
-        'cboAntragArt
-        '
-        Me.cboAntragArt._allowedValuesFreiText = Nothing
-        Me.cboAntragArt._allowFreiText = False
-        Me.cboAntragArt._value = ""
-        Me.cboAntragArt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.cboAntragArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
-        Me.cboAntragArt.FormattingEnabled = True
-        Me.cboAntragArt.Location = New System.Drawing.Point(83, 10)
-        Me.cboAntragArt.Name = "cboAntragArt"
-        Me.cboAntragArt.Size = New System.Drawing.Size(191, 28)
-        Me.cboAntragArt.TabIndex = 21
-        Me.cboAntragArt.Text = "USTV-Antrag"
-        '
         'lblKdNr
         '
         Me.lblKdNr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
@@ -441,21 +374,6 @@ Partial Class frmMDM_USTVAntrag
         Me.Panel9.Size = New System.Drawing.Size(65, 90)
         Me.Panel9.TabIndex = 20
         '
-        'cbxLand
-        '
-        Me.cbxLand._allowedValuesFreiText = Nothing
-        Me.cbxLand._allowFreiText = False
-        Me.cbxLand._value = ""
-        Me.cbxLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.cbxLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
-        Me.cbxLand.FormattingEnabled = True
-        Me.cbxLand.Location = New System.Drawing.Point(0, 0)
-        Me.cbxLand.Name = "cbxLand"
-        Me.cbxLand.Size = New System.Drawing.Size(65, 28)
-        Me.cbxLand.TabIndex = 23
-        Me.cbxLand.Text = "USTV-Antrag"
-        Me.cbxLand.Visible = False
-        '
         'lblLand
         '
         Me.lblLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
@@ -519,31 +437,6 @@ Partial Class frmMDM_USTVAntrag
         Me.Label15.TabIndex = 51
         Me.Label15.Text = "VZ am:"
         '
-        'txtVZam
-        '
-        Me.txtVZam._DateTimeOnly = False
-        Me.txtVZam._numbersOnly = False
-        Me.txtVZam._numbersOnlyKommastellen = ""
-        Me.txtVZam._numbersOnlyTrennzeichen = False
-        Me.txtVZam._Prozent = False
-        Me.txtVZam._ShortDateNew = False
-        Me.txtVZam._ShortDateOnly = True
-        Me.txtVZam._TimeOnly = False
-        Me.txtVZam._TimeOnly_Seconds = False
-        Me.txtVZam._value = ""
-        Me.txtVZam._Waehrung = False
-        Me.txtVZam._WaehrungZeichen = False
-        Me.txtVZam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txtVZam.ForeColor = System.Drawing.Color.Black
-        Me.txtVZam.Location = New System.Drawing.Point(865, 60)
-        Me.txtVZam.MaxLength = 10
-        Me.txtVZam.MaxLineLength = -1
-        Me.txtVZam.MaxLines_Warning = ""
-        Me.txtVZam.MaxLines_Warning_Label = Nothing
-        Me.txtVZam.Name = "txtVZam"
-        Me.txtVZam.Size = New System.Drawing.Size(100, 23)
-        Me.txtVZam.TabIndex = 52
-        '
         'btnAbfertigungsNrVergeben
         '
         Me.btnAbfertigungsNrVergeben.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -570,31 +463,6 @@ Partial Class frmMDM_USTVAntrag
         Me.Label14.TabIndex = 27
         Me.Label14.Text = "eingereicht am"
         '
-        'txtEingereichtAm
-        '
-        Me.txtEingereichtAm._DateTimeOnly = False
-        Me.txtEingereichtAm._numbersOnly = False
-        Me.txtEingereichtAm._numbersOnlyKommastellen = ""
-        Me.txtEingereichtAm._numbersOnlyTrennzeichen = False
-        Me.txtEingereichtAm._Prozent = False
-        Me.txtEingereichtAm._ShortDateNew = False
-        Me.txtEingereichtAm._ShortDateOnly = True
-        Me.txtEingereichtAm._TimeOnly = False
-        Me.txtEingereichtAm._TimeOnly_Seconds = False
-        Me.txtEingereichtAm._value = ""
-        Me.txtEingereichtAm._Waehrung = False
-        Me.txtEingereichtAm._WaehrungZeichen = False
-        Me.txtEingereichtAm.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txtEingereichtAm.ForeColor = System.Drawing.Color.Black
-        Me.txtEingereichtAm.Location = New System.Drawing.Point(654, 60)
-        Me.txtEingereichtAm.MaxLength = 10
-        Me.txtEingereichtAm.MaxLineLength = -1
-        Me.txtEingereichtAm.MaxLines_Warning = ""
-        Me.txtEingereichtAm.MaxLines_Warning_Label = Nothing
-        Me.txtEingereichtAm.Name = "txtEingereichtAm"
-        Me.txtEingereichtAm.Size = New System.Drawing.Size(100, 23)
-        Me.txtEingereichtAm.TabIndex = 26
-        '
         'lblMWSTAntrag
         '
         Me.lblMWSTAntrag.AutoSize = True
@@ -620,31 +488,6 @@ Partial Class frmMDM_USTVAntrag
         Me.Label13.TabIndex = 24
         Me.Label13.Text = "gültig bis"
         '
-        'txtGueltig
-        '
-        Me.txtGueltig._DateTimeOnly = False
-        Me.txtGueltig._numbersOnly = False
-        Me.txtGueltig._numbersOnlyKommastellen = ""
-        Me.txtGueltig._numbersOnlyTrennzeichen = False
-        Me.txtGueltig._Prozent = False
-        Me.txtGueltig._ShortDateNew = False
-        Me.txtGueltig._ShortDateOnly = True
-        Me.txtGueltig._TimeOnly = False
-        Me.txtGueltig._TimeOnly_Seconds = False
-        Me.txtGueltig._value = ""
-        Me.txtGueltig._Waehrung = False
-        Me.txtGueltig._WaehrungZeichen = False
-        Me.txtGueltig.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txtGueltig.ForeColor = System.Drawing.Color.Black
-        Me.txtGueltig.Location = New System.Drawing.Point(101, 61)
-        Me.txtGueltig.MaxLength = 10
-        Me.txtGueltig.MaxLineLength = -1
-        Me.txtGueltig.MaxLines_Warning = ""
-        Me.txtGueltig.MaxLines_Warning_Label = Nothing
-        Me.txtGueltig.Name = "txtGueltig"
-        Me.txtGueltig.Size = New System.Drawing.Size(100, 23)
-        Me.txtGueltig.TabIndex = 23
-        '
         'Label11
         '
         Me.Label11.AutoSize = True
@@ -658,31 +501,6 @@ Partial Class frmMDM_USTVAntrag
         Me.Label11.TabIndex = 21
         Me.Label11.Text = "Steuer-Nr:"
         '
-        'txtStNr
-        '
-        Me.txtStNr._DateTimeOnly = False
-        Me.txtStNr._numbersOnly = False
-        Me.txtStNr._numbersOnlyKommastellen = ""
-        Me.txtStNr._numbersOnlyTrennzeichen = False
-        Me.txtStNr._Prozent = False
-        Me.txtStNr._ShortDateNew = False
-        Me.txtStNr._ShortDateOnly = False
-        Me.txtStNr._TimeOnly = False
-        Me.txtStNr._TimeOnly_Seconds = False
-        Me.txtStNr._value = ""
-        Me.txtStNr._Waehrung = False
-        Me.txtStNr._WaehrungZeichen = False
-        Me.txtStNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txtStNr.ForeColor = System.Drawing.Color.Black
-        Me.txtStNr.Location = New System.Drawing.Point(101, 36)
-        Me.txtStNr.MaxLength = 20
-        Me.txtStNr.MaxLineLength = -1
-        Me.txtStNr.MaxLines_Warning = ""
-        Me.txtStNr.MaxLines_Warning_Label = Nothing
-        Me.txtStNr.Name = "txtStNr"
-        Me.txtStNr.Size = New System.Drawing.Size(136, 23)
-        Me.txtStNr.TabIndex = 22
-        '
         'Label9
         '
         Me.Label9.AutoSize = True
@@ -696,56 +514,6 @@ Partial Class frmMDM_USTVAntrag
         Me.Label9.TabIndex = 19
         Me.Label9.Text = "VZ:"
         '
-        'txtVZ
-        '
-        Me.txtVZ._DateTimeOnly = False
-        Me.txtVZ._numbersOnly = True
-        Me.txtVZ._numbersOnlyKommastellen = ""
-        Me.txtVZ._numbersOnlyTrennzeichen = True
-        Me.txtVZ._Prozent = False
-        Me.txtVZ._ShortDateNew = False
-        Me.txtVZ._ShortDateOnly = False
-        Me.txtVZ._TimeOnly = False
-        Me.txtVZ._TimeOnly_Seconds = False
-        Me.txtVZ._value = ""
-        Me.txtVZ._Waehrung = True
-        Me.txtVZ._WaehrungZeichen = True
-        Me.txtVZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txtVZ.ForeColor = System.Drawing.Color.Black
-        Me.txtVZ.Location = New System.Drawing.Point(865, 31)
-        Me.txtVZ.MaxLength = 10
-        Me.txtVZ.MaxLineLength = -1
-        Me.txtVZ.MaxLines_Warning = ""
-        Me.txtVZ.MaxLines_Warning_Label = Nothing
-        Me.txtVZ.Name = "txtVZ"
-        Me.txtVZ.Size = New System.Drawing.Size(100, 23)
-        Me.txtVZ.TabIndex = 20
-        '
-        'txtAbfNr
-        '
-        Me.txtAbfNr._DateTimeOnly = False
-        Me.txtAbfNr._numbersOnly = True
-        Me.txtAbfNr._numbersOnlyKommastellen = ""
-        Me.txtAbfNr._numbersOnlyTrennzeichen = False
-        Me.txtAbfNr._Prozent = False
-        Me.txtAbfNr._ShortDateNew = False
-        Me.txtAbfNr._ShortDateOnly = False
-        Me.txtAbfNr._TimeOnly = False
-        Me.txtAbfNr._TimeOnly_Seconds = False
-        Me.txtAbfNr._value = ""
-        Me.txtAbfNr._Waehrung = False
-        Me.txtAbfNr._WaehrungZeichen = False
-        Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txtAbfNr.ForeColor = System.Drawing.Color.Red
-        Me.txtAbfNr.Location = New System.Drawing.Point(654, 33)
-        Me.txtAbfNr.MaxLength = 10
-        Me.txtAbfNr.MaxLineLength = -1
-        Me.txtAbfNr.MaxLines_Warning = ""
-        Me.txtAbfNr.MaxLines_Warning_Label = Nothing
-        Me.txtAbfNr.Name = "txtAbfNr"
-        Me.txtAbfNr.Size = New System.Drawing.Size(117, 23)
-        Me.txtAbfNr.TabIndex = 18
-        '
         'Label8
         '
         Me.Label8.AutoSize = True
@@ -759,19 +527,6 @@ Partial Class frmMDM_USTVAntrag
         Me.Label8.TabIndex = 17
         Me.Label8.Text = "Abfertigungs-Nr:"
         '
-        'cbxFiliale
-        '
-        Me.cbxFiliale._allowedValuesFreiText = Nothing
-        Me.cbxFiliale._allowFreiText = False
-        Me.cbxFiliale._value = ""
-        Me.cbxFiliale.DropDownWidth = 150
-        Me.cbxFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxFiliale.FormattingEnabled = True
-        Me.cbxFiliale.Location = New System.Drawing.Point(413, 32)
-        Me.cbxFiliale.Name = "cbxFiliale"
-        Me.cbxFiliale.Size = New System.Drawing.Size(105, 24)
-        Me.cbxFiliale.TabIndex = 16
-        '
         'Label4
         '
         Me.Label4.AutoSize = True
@@ -798,43 +553,6 @@ Partial Class frmMDM_USTVAntrag
         Me.Label2.TabIndex = 13
         Me.Label2.Text = "Bezugs/Pos-Nr.:"
         '
-        'txtBezugsNr
-        '
-        Me.txtBezugsNr._DateTimeOnly = False
-        Me.txtBezugsNr._numbersOnly = True
-        Me.txtBezugsNr._numbersOnlyKommastellen = ""
-        Me.txtBezugsNr._numbersOnlyTrennzeichen = False
-        Me.txtBezugsNr._Prozent = False
-        Me.txtBezugsNr._ShortDateNew = False
-        Me.txtBezugsNr._ShortDateOnly = False
-        Me.txtBezugsNr._TimeOnly = False
-        Me.txtBezugsNr._TimeOnly_Seconds = False
-        Me.txtBezugsNr._value = ""
-        Me.txtBezugsNr._Waehrung = False
-        Me.txtBezugsNr._WaehrungZeichen = False
-        Me.txtBezugsNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txtBezugsNr.ForeColor = System.Drawing.Color.Red
-        Me.txtBezugsNr.Location = New System.Drawing.Point(654, 4)
-        Me.txtBezugsNr.MaxLength = 10
-        Me.txtBezugsNr.MaxLineLength = -1
-        Me.txtBezugsNr.MaxLines_Warning = ""
-        Me.txtBezugsNr.MaxLines_Warning_Label = Nothing
-        Me.txtBezugsNr.Name = "txtBezugsNr"
-        Me.txtBezugsNr.Size = New System.Drawing.Size(146, 23)
-        Me.txtBezugsNr.TabIndex = 14
-        '
-        'cbxWahrung
-        '
-        Me.cbxWahrung._allowedValuesFreiText = Nothing
-        Me.cbxWahrung._allowFreiText = False
-        Me.cbxWahrung._value = ""
-        Me.cbxWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxWahrung.FormattingEnabled = True
-        Me.cbxWahrung.Location = New System.Drawing.Point(431, 4)
-        Me.cbxWahrung.Name = "cbxWahrung"
-        Me.cbxWahrung.Size = New System.Drawing.Size(87, 24)
-        Me.cbxWahrung.TabIndex = 12
-        '
         'lblWahrung
         '
         Me.lblWahrung.AutoSize = True
@@ -861,31 +579,6 @@ Partial Class frmMDM_USTVAntrag
         Me.Label1.TabIndex = 10
         Me.Label1.Text = "3470:"
         '
-        'txt3470
-        '
-        Me.txt3470._DateTimeOnly = False
-        Me.txt3470._numbersOnly = True
-        Me.txt3470._numbersOnlyKommastellen = ""
-        Me.txt3470._numbersOnlyTrennzeichen = True
-        Me.txt3470._Prozent = False
-        Me.txt3470._ShortDateNew = False
-        Me.txt3470._ShortDateOnly = False
-        Me.txt3470._TimeOnly = False
-        Me.txt3470._TimeOnly_Seconds = False
-        Me.txt3470._value = ""
-        Me.txt3470._Waehrung = True
-        Me.txt3470._WaehrungZeichen = True
-        Me.txt3470.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txt3470.ForeColor = System.Drawing.Color.Black
-        Me.txt3470.Location = New System.Drawing.Point(865, 2)
-        Me.txt3470.MaxLength = 10
-        Me.txt3470.MaxLineLength = -1
-        Me.txt3470.MaxLines_Warning = ""
-        Me.txt3470.MaxLines_Warning_Label = Nothing
-        Me.txt3470.Name = "txt3470"
-        Me.txt3470.Size = New System.Drawing.Size(100, 23)
-        Me.txt3470.TabIndex = 10
-        '
         'Label3
         '
         Me.Label3.AutoSize = True
@@ -912,56 +605,6 @@ Partial Class frmMDM_USTVAntrag
         Me.lblZeitraum.TabIndex = 7
         Me.lblZeitraum.Text = "-"
         '
-        'txtVon
-        '
-        Me.txtVon._DateTimeOnly = False
-        Me.txtVon._numbersOnly = False
-        Me.txtVon._numbersOnlyKommastellen = ""
-        Me.txtVon._numbersOnlyTrennzeichen = False
-        Me.txtVon._Prozent = False
-        Me.txtVon._ShortDateNew = True
-        Me.txtVon._ShortDateOnly = False
-        Me.txtVon._TimeOnly = False
-        Me.txtVon._TimeOnly_Seconds = False
-        Me.txtVon._value = ""
-        Me.txtVon._Waehrung = False
-        Me.txtVon._WaehrungZeichen = False
-        Me.txtVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txtVon.ForeColor = System.Drawing.Color.Black
-        Me.txtVon.Location = New System.Drawing.Point(101, 9)
-        Me.txtVon.MaxLength = 10
-        Me.txtVon.MaxLineLength = -1
-        Me.txtVon.MaxLines_Warning = ""
-        Me.txtVon.MaxLines_Warning_Label = Nothing
-        Me.txtVon.Name = "txtVon"
-        Me.txtVon.Size = New System.Drawing.Size(100, 23)
-        Me.txtVon.TabIndex = 6
-        '
-        'txtBis
-        '
-        Me.txtBis._DateTimeOnly = False
-        Me.txtBis._numbersOnly = False
-        Me.txtBis._numbersOnlyKommastellen = ""
-        Me.txtBis._numbersOnlyTrennzeichen = False
-        Me.txtBis._Prozent = False
-        Me.txtBis._ShortDateNew = True
-        Me.txtBis._ShortDateOnly = False
-        Me.txtBis._TimeOnly = False
-        Me.txtBis._TimeOnly_Seconds = False
-        Me.txtBis._value = ""
-        Me.txtBis._Waehrung = False
-        Me.txtBis._WaehrungZeichen = False
-        Me.txtBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txtBis.ForeColor = System.Drawing.Color.Black
-        Me.txtBis.Location = New System.Drawing.Point(227, 9)
-        Me.txtBis.MaxLength = 10
-        Me.txtBis.MaxLineLength = -1
-        Me.txtBis.MaxLines_Warning = ""
-        Me.txtBis.MaxLines_Warning_Label = Nothing
-        Me.txtBis.Name = "txtBis"
-        Me.txtBis.Size = New System.Drawing.Size(100, 23)
-        Me.txtBis.TabIndex = 8
-        '
         'Panel6
         '
         Me.Panel6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1257,19 +900,6 @@ Partial Class frmMDM_USTVAntrag
         Me.Label5.TabIndex = 0
         Me.Label5.Text = "Status:"
         '
-        'cboStatus
-        '
-        Me.cboStatus._allowedValuesFreiText = Nothing
-        Me.cboStatus._allowFreiText = False
-        Me.cboStatus._value = ""
-        Me.cboStatus.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.cboStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
-        Me.cboStatus.FormattingEnabled = True
-        Me.cboStatus.Location = New System.Drawing.Point(76, 16)
-        Me.cboStatus.Name = "cboStatus"
-        Me.cboStatus.Size = New System.Drawing.Size(394, 28)
-        Me.cboStatus.TabIndex = 1
-        '
         'lblFirma
         '
         Me.lblFirma.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
@@ -1333,27 +963,6 @@ Partial Class frmMDM_USTVAntrag
         Me.TabPage1.Text = "Antragspositionen"
         Me.TabPage1.UseVisualStyleBackColor = True
         '
-        'dgvUSTVPositionen
-        '
-        Me.dgvUSTVPositionen.AKTUALISIERUNGS_INTERVALL = 500
-        Me.dgvUSTVPositionen.AllowUserToAddRows = False
-        Me.dgvUSTVPositionen.AllowUserToDeleteRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.dgvUSTVPositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.dgvUSTVPositionen.BackgroundColor = System.Drawing.Color.White
-        Me.dgvUSTVPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvUSTVPositionen.Location = New System.Drawing.Point(3, 3)
-        Me.dgvUSTVPositionen.Name = "dgvUSTVPositionen"
-        Me.dgvUSTVPositionen.ReadOnly = True
-        Me.dgvUSTVPositionen.RowHeadersVisible = False
-        Me.dgvUSTVPositionen.RowHeadersWidth = 62
-        Me.dgvUSTVPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1438, 169)
-        Me.dgvUSTVPositionen.TabIndex = 0
-        '
         'pnlAntragsPosDetails
         '
         Me.pnlAntragsPosDetails.Controls.Add(Me.Panel2)
@@ -1375,14 +984,6 @@ Partial Class frmMDM_USTVAntrag
         Me.Panel2.Size = New System.Drawing.Size(1438, 263)
         Me.Panel2.TabIndex = 1
         '
-        'UstCntlUSTV_AntragPosition1
-        '
-        Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
-        Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
-        Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
-        Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
-        '
         'Panel4
         '
         Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1446,27 +1047,6 @@ Partial Class frmMDM_USTVAntrag
         Me.Panel3.Size = New System.Drawing.Size(1438, 438)
         Me.Panel3.TabIndex = 3
         '
-        'dgvErstattungspositionen
-        '
-        Me.dgvErstattungspositionen.AKTUALISIERUNGS_INTERVALL = 500
-        Me.dgvErstattungspositionen.AllowUserToAddRows = False
-        Me.dgvErstattungspositionen.AllowUserToDeleteRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.dgvErstattungspositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.dgvErstattungspositionen.BackgroundColor = System.Drawing.Color.White
-        Me.dgvErstattungspositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvErstattungspositionen.Location = New System.Drawing.Point(3, 3)
-        Me.dgvErstattungspositionen.Name = "dgvErstattungspositionen"
-        Me.dgvErstattungspositionen.ReadOnly = True
-        Me.dgvErstattungspositionen.RowHeadersVisible = False
-        Me.dgvErstattungspositionen.RowHeadersWidth = 62
-        Me.dgvErstattungspositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvErstattungspositionen.Size = New System.Drawing.Size(1438, 172)
-        Me.dgvErstattungspositionen.TabIndex = 1
-        '
         'pnlErstattungsdetails
         '
         Me.pnlErstattungsdetails.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1479,14 +1059,6 @@ Partial Class frmMDM_USTVAntrag
         Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1436, 261)
         Me.pnlErstattungsdetails.TabIndex = 0
         '
-        'UstCntlUSTV_AntragErstattungen1
-        '
-        Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
-        Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
-        Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
-        Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
-        '
         'Panel1
         '
         Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1537,6 +1109,434 @@ Partial Class frmMDM_USTVAntrag
         Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
         '
+        'KdSearchBox1
+        '
+        Me.KdSearchBox1._AlleFirmenCLUSTER = False
+        Me.KdSearchBox1._AllowSetValue = False
+        Me.KdSearchBox1._autoSizeGross = False
+        Me.KdSearchBox1._display_Name1 = False
+        Me.KdSearchBox1._displayAVISO_Email = False
+        Me.KdSearchBox1._displayFullName = False
+        Me.KdSearchBox1._displayWoelflKd = False
+        Me.KdSearchBox1._hideIfListEmpty = True
+        Me.KdSearchBox1._loadKdData = False
+        Me.KdSearchBox1._searchName1 = True
+        Me.KdSearchBox1._UseFIRMA = ""
+        Me.KdSearchBox1._ValueKdAndName = True
+        Me.KdSearchBox1.dgvpos = "LEFT"
+        Me.KdSearchBox1.KdName = Nothing
+        Me.KdSearchBox1.KdNr = "-1"
+        Me.KdSearchBox1.kdNrField = Nothing
+        Me.KdSearchBox1.KdNrNullInt = Nothing
+        Me.KdSearchBox1.Location = New System.Drawing.Point(298, 10)
+        Me.KdSearchBox1.Name = "KdSearchBox1"
+        Me.KdSearchBox1.nurAktive = True
+        Me.KdSearchBox1.searchActive = True
+        Me.KdSearchBox1.Size = New System.Drawing.Size(171, 20)
+        Me.KdSearchBox1.TabIndex = 22
+        Me.KdSearchBox1.TIMER_SEARCH = True
+        Me.KdSearchBox1.usrcntl = Nothing
+        '
+        'cboAntragArt
+        '
+        Me.cboAntragArt._allowedValuesFreiText = Nothing
+        Me.cboAntragArt._allowFreiText = False
+        Me.cboAntragArt._value = ""
+        Me.cboAntragArt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.cboAntragArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.cboAntragArt.FormattingEnabled = True
+        Me.cboAntragArt.Location = New System.Drawing.Point(83, 10)
+        Me.cboAntragArt.Name = "cboAntragArt"
+        Me.cboAntragArt.Size = New System.Drawing.Size(191, 28)
+        Me.cboAntragArt.TabIndex = 21
+        Me.cboAntragArt.Text = "USTV-Antrag"
+        '
+        'cbxLand
+        '
+        Me.cbxLand._allowedValuesFreiText = Nothing
+        Me.cbxLand._allowFreiText = False
+        Me.cbxLand._value = ""
+        Me.cbxLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.cbxLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.cbxLand.FormattingEnabled = True
+        Me.cbxLand.Location = New System.Drawing.Point(0, 0)
+        Me.cbxLand.Name = "cbxLand"
+        Me.cbxLand.Size = New System.Drawing.Size(65, 28)
+        Me.cbxLand.TabIndex = 23
+        Me.cbxLand.Text = "USTV-Antrag"
+        Me.cbxLand.Visible = False
+        '
+        'txtVZam
+        '
+        Me.txtVZam._DateTimeOnly = False
+        Me.txtVZam._numbersOnly = False
+        Me.txtVZam._numbersOnlyKommastellen = ""
+        Me.txtVZam._numbersOnlyTrennzeichen = False
+        Me.txtVZam._Prozent = False
+        Me.txtVZam._ShortDateNew = False
+        Me.txtVZam._ShortDateOnly = True
+        Me.txtVZam._TimeOnly = False
+        Me.txtVZam._TimeOnly_Seconds = False
+        Me.txtVZam._value = ""
+        Me.txtVZam._Waehrung = False
+        Me.txtVZam._WaehrungZeichen = False
+        Me.txtVZam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtVZam.ForeColor = System.Drawing.Color.Black
+        Me.txtVZam.Location = New System.Drawing.Point(865, 60)
+        Me.txtVZam.MaxLength = 10
+        Me.txtVZam.MaxLineLength = -1
+        Me.txtVZam.MaxLines_Warning = ""
+        Me.txtVZam.MaxLines_Warning_Label = Nothing
+        Me.txtVZam.Name = "txtVZam"
+        Me.txtVZam.Size = New System.Drawing.Size(100, 23)
+        Me.txtVZam.TabIndex = 52
+        '
+        'txtEingereichtAm
+        '
+        Me.txtEingereichtAm._DateTimeOnly = False
+        Me.txtEingereichtAm._numbersOnly = False
+        Me.txtEingereichtAm._numbersOnlyKommastellen = ""
+        Me.txtEingereichtAm._numbersOnlyTrennzeichen = False
+        Me.txtEingereichtAm._Prozent = False
+        Me.txtEingereichtAm._ShortDateNew = False
+        Me.txtEingereichtAm._ShortDateOnly = True
+        Me.txtEingereichtAm._TimeOnly = False
+        Me.txtEingereichtAm._TimeOnly_Seconds = False
+        Me.txtEingereichtAm._value = ""
+        Me.txtEingereichtAm._Waehrung = False
+        Me.txtEingereichtAm._WaehrungZeichen = False
+        Me.txtEingereichtAm.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtEingereichtAm.ForeColor = System.Drawing.Color.Black
+        Me.txtEingereichtAm.Location = New System.Drawing.Point(654, 60)
+        Me.txtEingereichtAm.MaxLength = 10
+        Me.txtEingereichtAm.MaxLineLength = -1
+        Me.txtEingereichtAm.MaxLines_Warning = ""
+        Me.txtEingereichtAm.MaxLines_Warning_Label = Nothing
+        Me.txtEingereichtAm.Name = "txtEingereichtAm"
+        Me.txtEingereichtAm.Size = New System.Drawing.Size(100, 23)
+        Me.txtEingereichtAm.TabIndex = 26
+        '
+        'txtGueltig
+        '
+        Me.txtGueltig._DateTimeOnly = False
+        Me.txtGueltig._numbersOnly = False
+        Me.txtGueltig._numbersOnlyKommastellen = ""
+        Me.txtGueltig._numbersOnlyTrennzeichen = False
+        Me.txtGueltig._Prozent = False
+        Me.txtGueltig._ShortDateNew = False
+        Me.txtGueltig._ShortDateOnly = True
+        Me.txtGueltig._TimeOnly = False
+        Me.txtGueltig._TimeOnly_Seconds = False
+        Me.txtGueltig._value = ""
+        Me.txtGueltig._Waehrung = False
+        Me.txtGueltig._WaehrungZeichen = False
+        Me.txtGueltig.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGueltig.ForeColor = System.Drawing.Color.Black
+        Me.txtGueltig.Location = New System.Drawing.Point(101, 61)
+        Me.txtGueltig.MaxLength = 10
+        Me.txtGueltig.MaxLineLength = -1
+        Me.txtGueltig.MaxLines_Warning = ""
+        Me.txtGueltig.MaxLines_Warning_Label = Nothing
+        Me.txtGueltig.Name = "txtGueltig"
+        Me.txtGueltig.Size = New System.Drawing.Size(100, 23)
+        Me.txtGueltig.TabIndex = 23
+        '
+        'txtStNr
+        '
+        Me.txtStNr._DateTimeOnly = False
+        Me.txtStNr._numbersOnly = False
+        Me.txtStNr._numbersOnlyKommastellen = ""
+        Me.txtStNr._numbersOnlyTrennzeichen = False
+        Me.txtStNr._Prozent = False
+        Me.txtStNr._ShortDateNew = False
+        Me.txtStNr._ShortDateOnly = False
+        Me.txtStNr._TimeOnly = False
+        Me.txtStNr._TimeOnly_Seconds = False
+        Me.txtStNr._value = ""
+        Me.txtStNr._Waehrung = False
+        Me.txtStNr._WaehrungZeichen = False
+        Me.txtStNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtStNr.ForeColor = System.Drawing.Color.Black
+        Me.txtStNr.Location = New System.Drawing.Point(101, 36)
+        Me.txtStNr.MaxLength = 20
+        Me.txtStNr.MaxLineLength = -1
+        Me.txtStNr.MaxLines_Warning = ""
+        Me.txtStNr.MaxLines_Warning_Label = Nothing
+        Me.txtStNr.Name = "txtStNr"
+        Me.txtStNr.Size = New System.Drawing.Size(136, 23)
+        Me.txtStNr.TabIndex = 22
+        '
+        'txtVZ
+        '
+        Me.txtVZ._DateTimeOnly = False
+        Me.txtVZ._numbersOnly = True
+        Me.txtVZ._numbersOnlyKommastellen = ""
+        Me.txtVZ._numbersOnlyTrennzeichen = True
+        Me.txtVZ._Prozent = False
+        Me.txtVZ._ShortDateNew = False
+        Me.txtVZ._ShortDateOnly = False
+        Me.txtVZ._TimeOnly = False
+        Me.txtVZ._TimeOnly_Seconds = False
+        Me.txtVZ._value = ""
+        Me.txtVZ._Waehrung = True
+        Me.txtVZ._WaehrungZeichen = True
+        Me.txtVZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtVZ.ForeColor = System.Drawing.Color.Black
+        Me.txtVZ.Location = New System.Drawing.Point(865, 31)
+        Me.txtVZ.MaxLength = 10
+        Me.txtVZ.MaxLineLength = -1
+        Me.txtVZ.MaxLines_Warning = ""
+        Me.txtVZ.MaxLines_Warning_Label = Nothing
+        Me.txtVZ.Name = "txtVZ"
+        Me.txtVZ.Size = New System.Drawing.Size(100, 23)
+        Me.txtVZ.TabIndex = 20
+        '
+        'txtAbfNr
+        '
+        Me.txtAbfNr._DateTimeOnly = False
+        Me.txtAbfNr._numbersOnly = True
+        Me.txtAbfNr._numbersOnlyKommastellen = ""
+        Me.txtAbfNr._numbersOnlyTrennzeichen = False
+        Me.txtAbfNr._Prozent = False
+        Me.txtAbfNr._ShortDateNew = False
+        Me.txtAbfNr._ShortDateOnly = False
+        Me.txtAbfNr._TimeOnly = False
+        Me.txtAbfNr._TimeOnly_Seconds = False
+        Me.txtAbfNr._value = ""
+        Me.txtAbfNr._Waehrung = False
+        Me.txtAbfNr._WaehrungZeichen = False
+        Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtAbfNr.ForeColor = System.Drawing.Color.Red
+        Me.txtAbfNr.Location = New System.Drawing.Point(654, 33)
+        Me.txtAbfNr.MaxLength = 10
+        Me.txtAbfNr.MaxLineLength = -1
+        Me.txtAbfNr.MaxLines_Warning = ""
+        Me.txtAbfNr.MaxLines_Warning_Label = Nothing
+        Me.txtAbfNr.Name = "txtAbfNr"
+        Me.txtAbfNr.Size = New System.Drawing.Size(117, 23)
+        Me.txtAbfNr.TabIndex = 18
+        '
+        'cbxFiliale
+        '
+        Me.cbxFiliale._allowedValuesFreiText = Nothing
+        Me.cbxFiliale._allowFreiText = False
+        Me.cbxFiliale._value = ""
+        Me.cbxFiliale.DropDownWidth = 150
+        Me.cbxFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxFiliale.FormattingEnabled = True
+        Me.cbxFiliale.Location = New System.Drawing.Point(413, 32)
+        Me.cbxFiliale.Name = "cbxFiliale"
+        Me.cbxFiliale.Size = New System.Drawing.Size(105, 24)
+        Me.cbxFiliale.TabIndex = 16
+        '
+        'txtBezugsNr
+        '
+        Me.txtBezugsNr._DateTimeOnly = False
+        Me.txtBezugsNr._numbersOnly = True
+        Me.txtBezugsNr._numbersOnlyKommastellen = ""
+        Me.txtBezugsNr._numbersOnlyTrennzeichen = False
+        Me.txtBezugsNr._Prozent = False
+        Me.txtBezugsNr._ShortDateNew = False
+        Me.txtBezugsNr._ShortDateOnly = False
+        Me.txtBezugsNr._TimeOnly = False
+        Me.txtBezugsNr._TimeOnly_Seconds = False
+        Me.txtBezugsNr._value = ""
+        Me.txtBezugsNr._Waehrung = False
+        Me.txtBezugsNr._WaehrungZeichen = False
+        Me.txtBezugsNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtBezugsNr.ForeColor = System.Drawing.Color.Red
+        Me.txtBezugsNr.Location = New System.Drawing.Point(654, 4)
+        Me.txtBezugsNr.MaxLength = 10
+        Me.txtBezugsNr.MaxLineLength = -1
+        Me.txtBezugsNr.MaxLines_Warning = ""
+        Me.txtBezugsNr.MaxLines_Warning_Label = Nothing
+        Me.txtBezugsNr.Name = "txtBezugsNr"
+        Me.txtBezugsNr.Size = New System.Drawing.Size(146, 23)
+        Me.txtBezugsNr.TabIndex = 14
+        '
+        'cbxWahrung
+        '
+        Me.cbxWahrung._allowedValuesFreiText = Nothing
+        Me.cbxWahrung._allowFreiText = False
+        Me.cbxWahrung._value = ""
+        Me.cbxWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxWahrung.FormattingEnabled = True
+        Me.cbxWahrung.Location = New System.Drawing.Point(431, 4)
+        Me.cbxWahrung.Name = "cbxWahrung"
+        Me.cbxWahrung.Size = New System.Drawing.Size(87, 24)
+        Me.cbxWahrung.TabIndex = 12
+        '
+        'txt3470
+        '
+        Me.txt3470._DateTimeOnly = False
+        Me.txt3470._numbersOnly = True
+        Me.txt3470._numbersOnlyKommastellen = ""
+        Me.txt3470._numbersOnlyTrennzeichen = True
+        Me.txt3470._Prozent = False
+        Me.txt3470._ShortDateNew = False
+        Me.txt3470._ShortDateOnly = False
+        Me.txt3470._TimeOnly = False
+        Me.txt3470._TimeOnly_Seconds = False
+        Me.txt3470._value = ""
+        Me.txt3470._Waehrung = True
+        Me.txt3470._WaehrungZeichen = True
+        Me.txt3470.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txt3470.ForeColor = System.Drawing.Color.Black
+        Me.txt3470.Location = New System.Drawing.Point(865, 2)
+        Me.txt3470.MaxLength = 10
+        Me.txt3470.MaxLineLength = -1
+        Me.txt3470.MaxLines_Warning = ""
+        Me.txt3470.MaxLines_Warning_Label = Nothing
+        Me.txt3470.Name = "txt3470"
+        Me.txt3470.Size = New System.Drawing.Size(100, 23)
+        Me.txt3470.TabIndex = 10
+        '
+        'txtVon
+        '
+        Me.txtVon._DateTimeOnly = False
+        Me.txtVon._numbersOnly = False
+        Me.txtVon._numbersOnlyKommastellen = ""
+        Me.txtVon._numbersOnlyTrennzeichen = False
+        Me.txtVon._Prozent = False
+        Me.txtVon._ShortDateNew = True
+        Me.txtVon._ShortDateOnly = False
+        Me.txtVon._TimeOnly = False
+        Me.txtVon._TimeOnly_Seconds = False
+        Me.txtVon._value = ""
+        Me.txtVon._Waehrung = False
+        Me.txtVon._WaehrungZeichen = False
+        Me.txtVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtVon.ForeColor = System.Drawing.Color.Black
+        Me.txtVon.Location = New System.Drawing.Point(101, 9)
+        Me.txtVon.MaxLength = 10
+        Me.txtVon.MaxLineLength = -1
+        Me.txtVon.MaxLines_Warning = ""
+        Me.txtVon.MaxLines_Warning_Label = Nothing
+        Me.txtVon.Name = "txtVon"
+        Me.txtVon.Size = New System.Drawing.Size(100, 23)
+        Me.txtVon.TabIndex = 6
+        '
+        'txtBis
+        '
+        Me.txtBis._DateTimeOnly = False
+        Me.txtBis._numbersOnly = False
+        Me.txtBis._numbersOnlyKommastellen = ""
+        Me.txtBis._numbersOnlyTrennzeichen = False
+        Me.txtBis._Prozent = False
+        Me.txtBis._ShortDateNew = True
+        Me.txtBis._ShortDateOnly = False
+        Me.txtBis._TimeOnly = False
+        Me.txtBis._TimeOnly_Seconds = False
+        Me.txtBis._value = ""
+        Me.txtBis._Waehrung = False
+        Me.txtBis._WaehrungZeichen = False
+        Me.txtBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtBis.ForeColor = System.Drawing.Color.Black
+        Me.txtBis.Location = New System.Drawing.Point(227, 9)
+        Me.txtBis.MaxLength = 10
+        Me.txtBis.MaxLineLength = -1
+        Me.txtBis.MaxLines_Warning = ""
+        Me.txtBis.MaxLines_Warning_Label = Nothing
+        Me.txtBis.Name = "txtBis"
+        Me.txtBis.Size = New System.Drawing.Size(100, 23)
+        Me.txtBis.TabIndex = 8
+        '
+        'cboStatus
+        '
+        Me.cboStatus._allowedValuesFreiText = Nothing
+        Me.cboStatus._allowFreiText = False
+        Me.cboStatus._value = ""
+        Me.cboStatus.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.cboStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.cboStatus.FormattingEnabled = True
+        Me.cboStatus.Location = New System.Drawing.Point(76, 16)
+        Me.cboStatus.Name = "cboStatus"
+        Me.cboStatus.Size = New System.Drawing.Size(394, 28)
+        Me.cboStatus.TabIndex = 1
+        '
+        'dgvUSTVPositionen
+        '
+        Me.dgvUSTVPositionen.AKTUALISIERUNGS_INTERVALL = 500
+        Me.dgvUSTVPositionen.AllowUserToAddRows = False
+        Me.dgvUSTVPositionen.AllowUserToDeleteRows = False
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvUSTVPositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.dgvUSTVPositionen.BackgroundColor = System.Drawing.Color.White
+        Me.dgvUSTVPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvUSTVPositionen.Location = New System.Drawing.Point(3, 3)
+        Me.dgvUSTVPositionen.Name = "dgvUSTVPositionen"
+        Me.dgvUSTVPositionen.ReadOnly = True
+        Me.dgvUSTVPositionen.RowHeadersVisible = False
+        Me.dgvUSTVPositionen.RowHeadersWidth = 62
+        Me.dgvUSTVPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1438, 169)
+        Me.dgvUSTVPositionen.TabIndex = 0
+        '
+        'UstCntlUSTV_AntragPosition1
+        '
+        Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
+        Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
+        Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
+        Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
+        '
+        'dgvErstattungspositionen
+        '
+        Me.dgvErstattungspositionen.AKTUALISIERUNGS_INTERVALL = 500
+        Me.dgvErstattungspositionen.AllowUserToAddRows = False
+        Me.dgvErstattungspositionen.AllowUserToDeleteRows = False
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.dgvErstattungspositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.dgvErstattungspositionen.BackgroundColor = System.Drawing.Color.White
+        Me.dgvErstattungspositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvErstattungspositionen.Location = New System.Drawing.Point(3, 3)
+        Me.dgvErstattungspositionen.Name = "dgvErstattungspositionen"
+        Me.dgvErstattungspositionen.ReadOnly = True
+        Me.dgvErstattungspositionen.RowHeadersVisible = False
+        Me.dgvErstattungspositionen.RowHeadersWidth = 62
+        Me.dgvErstattungspositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvErstattungspositionen.Size = New System.Drawing.Size(1438, 172)
+        Me.dgvErstattungspositionen.TabIndex = 1
+        '
+        'UstCntlUSTV_AntragErstattungen1
+        '
+        Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
+        Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
+        Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
+        Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
+        '
+        'txtSumme
+        '
+        Me.txtSumme._DateTimeOnly = False
+        Me.txtSumme._numbersOnly = False
+        Me.txtSumme._numbersOnlyKommastellen = ""
+        Me.txtSumme._numbersOnlyTrennzeichen = False
+        Me.txtSumme._Prozent = False
+        Me.txtSumme._ShortDateNew = False
+        Me.txtSumme._ShortDateOnly = False
+        Me.txtSumme._TimeOnly = False
+        Me.txtSumme._TimeOnly_Seconds = False
+        Me.txtSumme._value = ""
+        Me.txtSumme._Waehrung = True
+        Me.txtSumme._WaehrungZeichen = True
+        Me.txtSumme.ForeColor = System.Drawing.Color.Black
+        Me.txtSumme.Location = New System.Drawing.Point(1158, 67)
+        Me.txtSumme.MaxLineLength = -1
+        Me.txtSumme.MaxLines_Warning = ""
+        Me.txtSumme.MaxLines_Warning_Label = Nothing
+        Me.txtSumme.Name = "txtSumme"
+        Me.txtSumme.ReadOnly = True
+        Me.txtSumme.Size = New System.Drawing.Size(88, 20)
+        Me.txtSumme.TabIndex = 49
+        Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
         'frmMDM_USTVAntrag
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1568,15 +1568,15 @@ Partial Class frmMDM_USTVAntrag
         Me.pnlBody.ResumeLayout(False)
         Me.TabControl1.ResumeLayout(False)
         Me.TabPage1.ResumeLayout(False)
-        CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit()
         Me.pnlAntragsPosDetails.ResumeLayout(False)
         Me.Panel2.ResumeLayout(False)
         Me.Panel4.ResumeLayout(False)
         Me.TabPage2.ResumeLayout(False)
         Me.Panel3.ResumeLayout(False)
-        CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).EndInit()
         Me.pnlErstattungsdetails.ResumeLayout(False)
         Me.Panel1.ResumeLayout(False)
+        CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb
index 55573829..9858e89f 100644
--- a/SDL/USTV/frmMDM_USTVAntrag.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.vb
@@ -334,6 +334,7 @@ Public Class frmMDM_USTVAntrag
             USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text
 
             USTV_ANTRAG.FilialenNr = cbxFiliale._value
+
             USTV_ANTRAG.FilialenNr = cbxFiliale._value
 
             If txt3470.Text <> "" AndAlso IsNumeric(txt3470.Text) Then
@@ -728,14 +729,28 @@ Public Class frmMDM_USTVAntrag
 
                         Select Case Antrag_LandKz
                             Case "DK"
-                                leistenderName = "A/S Storebealt"
-                            Case Else
-                                If ANTRAG.plose_Lieferant = "SOFICO BELGIO" Then
-                                    leistenderName = "Sofico"
+                                If IsDBNull(ANTRAG.plose_Lieferant) Then
+                                    leistenderName = "A/S Storebealt"
                                 Else
                                     leistenderName = ANTRAG.plose_Lieferant
                                 End If
 
+                            Case "SE"
+                                If IsDBNull(ANTRAG.plose_Lieferant) Then
+                                    leistenderName = "Oresundsbro konsortiet I/S"
+                                Else
+                                    leistenderName = ANTRAG.plose_Lieferant
+                                End If
+
+                            Case Else
+                                If Not IsDBNull(ANTRAG.plose_Lieferant) Then
+                                    If ANTRAG.plose_Lieferant IsNot Nothing AndAlso ANTRAG.plose_Lieferant = "SOFICO BELGIO" Then
+                                        leistenderName = "Sofico"
+                                    Else
+                                        leistenderName = ANTRAG.plose_Lieferant
+                                    End If
+                                End If
+
                         End Select
 
 
@@ -2402,7 +2417,7 @@ Public Class frmMDM_USTVAntrag
         If dgvErstattungspositionen.Rows.Count = 0 Then Exit Sub
         If vbYes = MsgBox("Möchten Sie den Erstattungseintrag wirklich löschen?", vbYesNoCancel) Then
 
-            If UstCntlUSTV_AntragErstattungen1.UStV_ERS.DELETE(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID, UstCntlUSTV_AntragErstattungen1.UStV_ERS) Then
+            If UstCntlUSTV_AntragErstattungen1.UStV_ERS.DELETE(UstCntlUSTV_AntragErstattungen1.UstV_AN.UStVAn_ID, UstCntlUSTV_AntragErstattungen1.UStV_ERS) Then
                 initdgvErstattungen()
             End If
         End If
@@ -2743,6 +2758,14 @@ Public Class frmMDM_USTVAntrag
     End Sub
 
     Private Sub cbxWahrung_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxWahrung.SelectedValueChanged
+        If USTV_ANTRAG IsNot Nothing Then
+            If cbxWahrung.SelectedItem IsNot Nothing Then
+                USTV_ANTRAG.UStVAn_Währungscode = cbxWahrung.SelectedItem.Text
+            Else
+                USTV_ANTRAG.UStVAn_Währungscode = ""
+            End If
+        End If
+
 
     End Sub
 
diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb
index 94d827a7..41057d83 100644
--- a/SDL/USTV/usrCntlUSTV.vb
+++ b/SDL/USTV/usrCntlUSTV.vb
@@ -307,7 +307,12 @@ Public Class usrCntlUSTV
 
             Dim f As New frmMDM_USTVAntrag(dgvUSTV.SelectedRows(0).Cells("UStVAn_ID").Value)
             f.Show(Me)
-            dgvUSTV.RELOAD()
+
+            If Not f.IsHandleCreated Then
+                dgvUSTV.RELOAD()
+            End If
+
+            'dgvUSTV.RELOAD()
         End If
     End Sub
 
@@ -777,7 +782,18 @@ Public Class usrCntlUSTV
         End If
 
         Dim frm = New frmMDM_USTVAntrag(IIf(KdSearchBox1.KdNr_value > 0, KdSearchBox1.KdNr_value, -1), "AT", Nothing, Nothing)
-        frm.ShowDialog()
+        If frm.ShowDialog() = DialogResult.Cancel Then
+
+            dgvUSTV.RELOAD()
+
+            'Dim enabl = KdSearchBox1.Enabled
+            'Me.init(IIf(KdSearchBox1.KdNr_value > 0, KdSearchBox1.KdNr_value, -1))
+            'Me.KdSearchBox1.Enabled = enabl
+
+        End If
+
+
+
 
     End Sub