neu

VERAGMonitoring/frmEinzahlung.vb

@@ -17,13 +17,15 @@
         dgvEinzahlungen.Columns(0).Visible = False
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSave.Click
-        If isDouble(cbotxtBetrag.Text) Then
+        If isDouble(cbotxtBetrag.Text) And IsDate(txtFealligkeit._value) Then
             Dim oItem As MyListItem = CType(cboBrg.SelectedItem, MyListItem)
-            If BRG.insertBrgAufschubEinzahlung(Now.ToString("dd.MM.yyyy hh:mm:ss"), CDbl(cbotxtBetrag.Text) * -1, oItem.Value, "", "") Then
+            If BRG.insertBrgAufschubEinzahlung(Now.ToString("dd.MM.yyyy hh:mm:ss"), CDbl(cbotxtBetrag.Text) * -1, oItem.Value, "", "", CDate(txtFealligkeit._value)) Then
                 cbotxtBetrag.Text = ""
                 lblSaved.Visible = True
                 initDgv()
             End If
+        Else
+            MsgBox("Bitte alle Felder angeben!")
         End If
     End Sub