fix

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -22,7 +22,7 @@ Public Class ustCntlUSTV_AntragPosition
         RaiseEvent EV_NEXT()
     End Sub
 
-    Sub reset()
+    Sub reset(Antrag_LandKz As String)
         txtRgDatum._value = ""
         txtRgNr._value = ""
         btnLeistenderSave.Visible = False
@@ -46,6 +46,7 @@ Public Class ustCntlUSTV_AntragPosition
         txtOrt.Text = ""
         txtLand.Text = ""
         txtUIDNr.Text = ""
+        Me.Antrag_LandKz = Antrag_LandKz
 
         _gridAktiv = True
 
@@ -60,6 +61,7 @@ Public Class ustCntlUSTV_AntragPosition
         _gridAktiv = False
         btnLeistenderSave.Visible = False
         Me.Antrag_LandKz = Antrag_LandKz
+
         Me.UStV_POS = UStV_POS
         Me._kundenNr = kdnr
         cbxAPI.Checked = If(UStV_POS.UStVPo_Schnittstelle, False)
@@ -254,8 +256,7 @@ Public Class ustCntlUSTV_AntragPosition
         Dim filter As String = "UstV_aktiv = 1"
 
         If cbxAntragsfilter.Checked AndAlso Not String.IsNullOrWhiteSpace(Antrag_LandKz) Then
-            filter &= " AND LEFT(UstV_Leistender_UstNr, 2) = '" &
-                  Antrag_LandKz.Replace("'", "''") & "'"
+            filter &= " AND LEFT(UstV_Leistender_UstNr, 2) = '" & Antrag_LandKz.Replace("'", "''") & "'"
         End If
 
         sbLeistender.initSearchBox(Me.FindForm, "[UStV_LeistenderId],[UStV_Leistender],[UStV_Leistender] AS Leistender,[UstV_Leistender_PLZ] AS PLZ,([UstV_Leistender_Strasse] + ' ' + [UstV_Leistender_StrasseNr]) AS Strasse,[UstV_Leistender_Stadt] AS Stadt FROM [tblUStVLeistender]", {"UStV_Leistender", "UstV_Leistender_UstNr"}, filter, "UStV_Leistender", "UStV_LeistenderId", "Leistender", "FMZOLL",, 400, 200, {"UStV_Leistender", "UStV_LeistenderId"})