MDM, IDS, USTVA

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -85,31 +85,44 @@ Public Class ustCntlUSTV_AntragPosition
         gridAktiv = True
     End Sub
 
-    Sub getValues(ByRef UStV_POS)
-        If UStV_POS Is Nothing Then UStV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen
+    Sub getValues(ByRef UStV_POS, ByRef save)
+
+        If UStV_POS Is Nothing Then UStV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen()
         'UStV_POS.
         UStV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
         UStV_POS.UStVPo_Zeitstempel = Now
 
         If txtRgNr._value <> "" Then
             UStV_POS.UStVPo_ReNr = txtRgNr._value
+        Else
+            save = False
         End If
 
         If txtRgDatum._value <> "" AndAlso IsDate(txtRgDatum._value) Then
             UStV_POS.UStVPo_ReDat = txtRgDatum._value
+        Else
+            save = False
         End If
         If txtUSTBetrag._value <> "" Then
             UStV_POS.UStVPo_USteuerbetrag = txtUSTBetrag._value
+        Else
+            save = False
         End If
 
         If txtUSTBetragEUR._value <> "" Then
             UStV_POS.UStVPo_USteuerbetragEUR = txtUSTBetragEUR._value
+        Else
+            save = False
         End If
         If txtLeistungsbezeichnung._value <> "" Then
             UStV_POS.UStVPo_Leistungsbezeichnung = txtLeistungsbezeichnung._value
+        Else
+            save = False
         End If
         If txtUmrechnungskurs._value <> "" Then
             UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs._value
+        Else
+            save = False
         End If
 
         UStV_POS.UStVPo_Schnittstelle = cbxAPI.Checked
@@ -139,9 +152,11 @@ Public Class ustCntlUSTV_AntragPosition
     End Sub
 
     Function save()
-        getValues(UStV_POS)
+        Dim setSave As Boolean = True
+        getValues(UStV_POS, setSave)
         'MsgBox("TEST")
-        Return UStV_POS.SAVE
+        If setSave Then Return UStV_POS.SAVE
+        Return False
     End Function
 
     Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtLeistungsbezeichnung.TextChanged, txtRgDatum.TextChanged, txtRgNr.TextChanged, txtUSTBetrag.TextChanged, txtUmrechnungskurs.TextChanged, txtUSTBetragEUR.TextChanged
@@ -166,8 +181,6 @@ Public Class ustCntlUSTV_AntragPosition
 
     Private Sub txtRgDatum_KeyUp(sender As Object, e As KeyEventArgs) Handles txtRgDatum.KeyUp, txtRgNr.KeyUp, txtUSTBetrag.KeyUp, txtUmrechnungskurs.KeyUp, txtUSTBetragEUR.KeyUp
 
-
-
         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
 
         If gridAktiv And Me.FindForm IsNot Nothing Then
@@ -231,7 +244,7 @@ Public Class ustCntlUSTV_AntragPosition
         End If
 
         If UStV_Leist.UstV_Leistender_Adresse Then
-            If Not vbYes = MsgBox("Bei diesem Leistendem ist bereits eine Adresse hinterlegt, soll diese Adresse wirklich geändert werden?", vbYesNo) Then
+            If Not vbYes = MsgBox("Bei diesem Leistenden ist bereits eine Adresse hinterlegt, soll diese Adresse wirklich geändert werden?", vbYesNo) Then
                 Exit Sub
             End If
         End If