ustva

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