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