FormularManager für SDL, etc.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -169,6 +169,7 @@ Public Class frmMDM_USTVAntrag
         If If(USTV_ANTRAG.UStVAn_AntragArt, "") = "" Then cboAntragArt.changeItem("MWST")
         cboAntragArt.changeItem(If(USTV_ANTRAG.UStVAn_AntragArt, ""))
         rtbStatusText.Text = If(USTV_ANTRAG.UStVAn_StatusText, "")
+        txt3470.Text = If(USTV_ANTRAG.UStVAn_3470, "")
 
     End Sub
 
@@ -185,6 +186,14 @@ Public Class frmMDM_USTVAntrag
             USTV_ANTRAG.UStVAn_Status = cboStatus._value
             USTV_ANTRAG.UStVAn_AntragArt = cboAntragArt._value
             USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text
+
+            If txt3470.Text <> "" AndAlso IsNumeric(txt3470.Text) Then
+                USTV_ANTRAG.UStVAn_3470 = CDbl(txt3470.Text)
+            Else
+                USTV_ANTRAG.UStVAn_3470 = Nothing
+            End If
+
+
         End If
     End Sub
     Function Me_Validate() As Boolean