neu

2021-10-27 11:19:22 +02:00
parent 13f28aa1d8
commit f4813a04a9
76 changed files with 9922 additions and 2253 deletions
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb
@@ -347,12 +347,12 @@
    End Sub

    Function Vl(s As VERAG_PROG_ALLGEMEIN.MyTextBox) As Double
-        If IsNumeric(s._value) Then : Return CDbl(s._value)
+        If IsNumeric(s._value) Then : Return Math.Round(CDbl(s._value), 2)
        Else : s._value = 0 : End If
        Return 0
    End Function
    Function Vl(s As VERAG_PROG_ALLGEMEIN.MyComboBox) As Double
-        If IsNumeric(s._value) Then : Return CDbl(s._value)
+        If IsNumeric(s._value) Then : Return Math.Round(CDbl(s._value), 2)
        Else : s._value = 0 : End If
        Return 0
    End Function