Provisionsabrechnung

2025-10-02 09:10:07 +02:00
parent b1e1b3f26a
commit 827c68ad49
24 changed files with 2270 additions and 140 deletions
--- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte
+++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte
@@ -362,7 +362,12 @@ Public Class MyTextBox

            ' +2 = zwei Tage von heute weg 
            If Me.Text <> "" AndAlso Not IsDate(Me.Text) AndAlso IsNumeric(Me.Text) Then
-                Me.Text = Now.AddDays(Int(Me.Text)).ToShortDateString
+                Try
+                    Me.Text = Now.AddDays(Int(Me.Text)).ToShortDateString
+                Catch ex As Exception
+                    sender.ForeColor = System.Drawing.Color.Red
+                    Me._value = Propvalue
+                End Try
            End If
            If (Me.Text.Length >= 6 And Me.Text.Length <= 10) AndAlso IsDate(Me.Text.Replace(",", ".")) AndAlso CDate(Me.Text) > CDate("01.01.1900") Then
                'MsgBox(Me.Text)