ustva, etc.

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -1,5 +1,4 @@
-Imports GrapeCity.ActiveReports.ReportsCore.Tools
-Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class ustCntlUSTV_AntragPosition
     Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
@@ -32,6 +31,10 @@ Public Class ustCntlUSTV_AntragPosition
         txtUSTBetragEUR._value = 0
         cbxAPI.Checked = False
         cboSchnittstellennr.changeItem("")
+        lblAenderungsdatum.Text = "-"
+        lblSachbearbeiter.Text = "-"
+        sbLeistender._value = ""
+        sbLeistender.Text = ""
 
 
     End Sub
@@ -80,8 +83,8 @@ Public Class ustCntlUSTV_AntragPosition
 
     Sub getValues(ByRef UStV_POS, ByRef save)
 
-        If UStV_POS Is Nothing Then UStV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen()
-        'UStV_POS.
+        If UStV_POS Is Nothing OrElse UStV_POS.UStVAn_ID = 0 Then UStV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen()
+
         UStV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
         UStV_POS.UStVPo_Zeitstempel = Now
 
@@ -120,6 +123,13 @@ Public Class ustCntlUSTV_AntragPosition
             save = False
         End If
 
+        If sbLeistender._value IsNot Nothing AndAlso sbLeistender._value <> "" Then
+            UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender._value)
+            UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
+        Else
+            save = False
+        End If
+
         UStV_POS.UStVPo_Schnittstelle = cbxAPI.Checked
 
         UStV_POS.UStVPo_SchnittstellenNr = IIf(cboSchnittstellennr.SelectedItem IsNot Nothing, cboSchnittstellennr._value, -1)
@@ -394,10 +404,15 @@ Public Class ustCntlUSTV_AntragPosition
 
 
 
+                ElseIf sender Is txtRgDatum Then
 
-                End If
+                    If txtRgDatum.Text <> "" Then
+                        txtRgDatum.Text = txtRgDatum.Text.Replace("-", ".")
+                        'If IsDate(txtRgDatum.Text) Then txtChanged = True
+                    End If
 
 
+                    End If
 
 
             End If