ustva

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
@@ -2402,7 +2403,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 +2744,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
 

SDL/USTV/usrCntlUSTV.vb

@@ -307,8 +307,13 @@ Public Class usrCntlUSTV
 
             Dim f As New frmMDM_USTVAntrag(dgvUSTV.SelectedRows(0).Cells("UStVAn_ID").Value)
             f.Show(Me)
+
+            If Not f.IsHandleCreated Then
                 dgvUSTV.RELOAD()
             End If
+
+            'dgvUSTV.RELOAD()
+        End If
     End Sub
 
     Private Sub cboJahr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboJahr.SelectedIndexChanged, cboJahrBis.SelectedIndexChanged
@@ -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