IDS, USTVA

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 = ""