SDL Jetzt erst recht!

2019-08-08 12:34:08 +02:00
parent f336f214e9
commit 5cbb13561f
1496 changed files with 522451 additions and 0 deletions
--- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte
+++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte
@@ -0,0 +1,15 @@
+Public Class usrcntlUnterposEntry
+    ' Property AbfertigungsartNr = -1
+    Property UnterPosArt = -1
+
+    Property Anzahl = 0
+
+    Private Sub txtAnzahl_LostFocus(sender As Object, e As EventArgs) Handles txtAnzahl.LostFocus
+        If IsNumeric(sender.text) Then
+            Anzahl = CInt(sender.text)
+        Else
+            Anzahl = 0
+            sender.text = 0
+        End If
+    End Sub
+End Class