Forumlarmanager Vorauszahlung EUST default Wert leer

Fehlermeldung wenn EUST ist Leer

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb

@@ -210,22 +210,24 @@ Public Class usrcntlVorauskasse
 
         If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("31.12.2020") Then
 
-            txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0"))
+            txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "0,0"))
+            txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0,0"))
             'txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5%", "0,05"))
             'txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16%", "0,16"))
             txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7%", "0,07"))
             txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19%", "0,19"))
             txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20%", "0,20"))
-            txtEustProzent.changeItem("0,19")
+            ' txtEustProzent.changeItem("0,19")
             ' txtEustProzent.changeItem("0,16")
         Else
 
+            txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "0,0"))
             txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0"))
             txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7%", "0,07"))
             txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10%", "0,10"))
             txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19%", "0,19"))
             txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20%", "0,20"))
-            txtEustProzent.changeItem("0,19")
+            ' txtEustProzent.changeItem("0,19")
         End If
 
         cboFirma.Items.Clear()
@@ -425,22 +427,23 @@ Public Class usrcntlVorauskasse
             'Select Case FIRMA_TMP.Firma_LandKz
             lblWaehrung.Text = "EUR"
             Select Case cboFirma._value
-                Case "11",
+                Case "11"
-                    txtEustProzent.changeItem("0,20")
+                    'txtEustProzent.changeItem("0,20")
+                    txtEustProzent.changeItem("0,0")
                 Case "26"
-                    txtEustProzent.changeItem("0,20")
+                    txtEustProzent.changeItem("0,0")
                     lblWaehrung.Text = "GBP"
                 Case "24"
                     cboSprache.Visible = True
                     Label17.Visible = True
-                    txtEustProzent.changeItem("0,19")
+                    txtEustProzent.changeItem("0,0")
                 Case Else
                     'If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("20.12.2020") Then
                     '    txtEustProzent.changeItem("0,16")
                     'Else
                     '    txtEustProzent.changeItem("0,19")
                     'End If
-                    txtEustProzent.changeItem("0,19")
+                    txtEustProzent.changeItem("0,0")
             End Select
         End If
         initBerechnung()
@@ -451,27 +454,39 @@ Public Class usrcntlVorauskasse
     End Sub
 
     Private Sub btnSaveFD_Click(sender As Object, e As EventArgs) Handles btnSaveFD.Click
-        If txtVorlage.Text = "" Then MsgBox("Bitte ein Vorlagenbezeichnung eingeben!") : Exit Sub
+        If checkEustProzent() Then
-        Dim FV As cFormularVorlagen
+            If txtVorlage.Text = "" Then MsgBox("Bitte ein Vorlagenbezeichnung eingeben!") : Exit Sub
-        If FV_ID > -1 Then
+            Dim FV As cFormularVorlagen
-            If MsgBox("Möchten Sie die Vorlage überschreiben?", vbYesNoCancel) <> MsgBoxResult.Yes Then Exit Sub
+            If FV_ID > -1 Then
-            FV = New cFormularVorlagen(FV_ID)
+                If MsgBox("Möchten Sie die Vorlage überschreiben?", vbYesNoCancel) <> MsgBoxResult.Yes Then Exit Sub
-        Else
+                FV = New cFormularVorlagen(FV_ID)
-            FV = New cFormularVorlagen
+            Else
-            FV.tblform_art = Me.GetType.ToString
+                FV = New cFormularVorlagen
-            FV.tblform_begriff = txtVorlage.Text
+                FV.tblform_art = Me.GetType.ToString
-        End If
+                FV.tblform_begriff = txtVorlage.Text
-        FV.tblform_KundenNr = If(KdNR > 0, KdNR, Nothing)
+            End If
-        FV.tblform_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+            FV.tblform_KundenNr = If(KdNR > 0, KdNR, Nothing)
-        FV.tblform_letzeAenderung = Now
+            FV.tblform_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+            FV.tblform_letzeAenderung = Now
 
-        If FV.SAVE() Then
+            If FV.SAVE() Then
-            getValues(FV)
+                getValues(FV)
-            If FV.SAVE_VALUES() Then initControlsSave(FV)
+                If FV.SAVE_VALUES() Then initControlsSave(FV)
+            End If
         End If
-
     End Sub
 
+    Public Function checkEustProzent() As Boolean
+        If txtEustProzent.Text = "" Then
+            txtEustProzent.Focus()
+            txtEustProzent.BackColor = Color.LightCoral
+            MsgBox("EUST-Wert erforderlich. Erstellen ist nicht möglich.", vbCritical, "Fehler")
+            Return False
+        Else
+            txtEustProzent.BackColor = SystemColors.Window
+            Return True
+        End If
+    End Function
 
     Sub getValues(ByVal FV As cFormularVorlagen)
         FV.VALUES.Clear()
@@ -582,10 +597,13 @@ Public Class usrcntlVorauskasse
     End Sub
 
     Private Sub btnStandardPreiseLaden_Click(sender As Object, e As EventArgs) Handles btnStandardPreiseLaden.Click
-        If FormularManagerNEU.saveVorauskasse(Me) Then
+        If checkEustProzent() Then
-            lblCRsaved.Text = "(gespeichert)"
+            If FormularManagerNEU.saveVorauskasse(Me) Then
-            lblCRsaved.ForeColor = Color.Green
+                lblCRsaved.Text = "(gespeichert)"
+                lblCRsaved.ForeColor = Color.Green
+            End If
         End If
+
     End Sub
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -4331,17 +4331,21 @@ Public Class FormularManagerNEU
 
 
 
+        If usrCntl.checkEustProzent Then
+            saveVorauskasse(usrCntl)
+        Else
+            Exit Function
+        End If
+
         If usrCntl.cbxLKWWartet.Checked Then
             listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 12, 60, 15, "boldRed", 20, , itextsharp.text.Element.ALIGN_LEFT))
         End If
 
         If usrCntl.cbxBeimErstellenSpeichern.Checked Then
             '   If vbYes = MsgBox("Möchten Sie die Bonitätsauskunft in den Kundendaten speichern?", vbYesNoCancel) Then
-            saveVorauskasse(usrCntl)
-            'End If
         End If
 
-        Dim destPath = ""
+            Dim destPath = ""
         If usrCntl.cboFirma._value = "26" Then 'VERAG-UNISPED LTD
             destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG-UNISPED", "", "Importaviso_VK", listTowrite)
         Else