GG public

2022-11-23 19:25:14 +01:00
parent d9b13ba8fb
commit 14419be331
2 changed files with 35 additions and 6 deletions
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlGestellungsgarantie.Designer.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlGestellungsgarantie.Designer.vb
@@ -129,10 +129,12 @@ Partial Class usrcntlGestellungsgarantie
        Me.txtEmail._DateTimeOnly = False
        Me.txtEmail._numbersOnly = False
        Me.txtEmail._numbersOnlyKommastellen = ""
+        Me.txtEmail._numbersOnlyTrennzeichen = True
        Me.txtEmail._Prozent = False
        Me.txtEmail._ShortDateNew = False
        Me.txtEmail._ShortDateOnly = False
        Me.txtEmail._TimeOnly = False
+        Me.txtEmail._TimeOnly_Seconds = False
        Me.txtEmail._value = Nothing
        Me.txtEmail._Waehrung = False
        Me.txtEmail._WaehrungZeichen = True
@@ -150,10 +152,12 @@ Partial Class usrcntlGestellungsgarantie
        Me.txtFax._DateTimeOnly = False
        Me.txtFax._numbersOnly = False
        Me.txtFax._numbersOnlyKommastellen = ""
+        Me.txtFax._numbersOnlyTrennzeichen = True
        Me.txtFax._Prozent = False
        Me.txtFax._ShortDateNew = False
        Me.txtFax._ShortDateOnly = False
        Me.txtFax._TimeOnly = False
+        Me.txtFax._TimeOnly_Seconds = False
        Me.txtFax._value = Nothing
        Me.txtFax._Waehrung = False
        Me.txtFax._WaehrungZeichen = True
@@ -171,10 +175,12 @@ Partial Class usrcntlGestellungsgarantie
        Me.txtTel._DateTimeOnly = False
        Me.txtTel._numbersOnly = False
        Me.txtTel._numbersOnlyKommastellen = ""
+        Me.txtTel._numbersOnlyTrennzeichen = True
        Me.txtTel._Prozent = False
        Me.txtTel._ShortDateNew = False
        Me.txtTel._ShortDateOnly = False
        Me.txtTel._TimeOnly = False
+        Me.txtTel._TimeOnly_Seconds = False
        Me.txtTel._value = Nothing
        Me.txtTel._Waehrung = False
        Me.txtTel._WaehrungZeichen = True
@@ -192,10 +198,12 @@ Partial Class usrcntlGestellungsgarantie
        Me.txtAnsprechpartner._DateTimeOnly = False
        Me.txtAnsprechpartner._numbersOnly = False
        Me.txtAnsprechpartner._numbersOnlyKommastellen = ""
+        Me.txtAnsprechpartner._numbersOnlyTrennzeichen = True
        Me.txtAnsprechpartner._Prozent = False
        Me.txtAnsprechpartner._ShortDateNew = False
        Me.txtAnsprechpartner._ShortDateOnly = False
        Me.txtAnsprechpartner._TimeOnly = False
+        Me.txtAnsprechpartner._TimeOnly_Seconds = False
        Me.txtAnsprechpartner._value = Nothing
        Me.txtAnsprechpartner._Waehrung = False
        Me.txtAnsprechpartner._WaehrungZeichen = True
@@ -213,10 +221,12 @@ Partial Class usrcntlGestellungsgarantie
        Me.txtAdresse2._DateTimeOnly = False
        Me.txtAdresse2._numbersOnly = False
        Me.txtAdresse2._numbersOnlyKommastellen = ""
+        Me.txtAdresse2._numbersOnlyTrennzeichen = True
        Me.txtAdresse2._Prozent = False
        Me.txtAdresse2._ShortDateNew = False
        Me.txtAdresse2._ShortDateOnly = False
        Me.txtAdresse2._TimeOnly = False
+        Me.txtAdresse2._TimeOnly_Seconds = False
        Me.txtAdresse2._value = Nothing
        Me.txtAdresse2._Waehrung = False
        Me.txtAdresse2._WaehrungZeichen = True
@@ -234,10 +244,12 @@ Partial Class usrcntlGestellungsgarantie
        Me.txtAdresse1._DateTimeOnly = False
        Me.txtAdresse1._numbersOnly = False
        Me.txtAdresse1._numbersOnlyKommastellen = ""
+        Me.txtAdresse1._numbersOnlyTrennzeichen = True
        Me.txtAdresse1._Prozent = False
        Me.txtAdresse1._ShortDateNew = False
        Me.txtAdresse1._ShortDateOnly = False
        Me.txtAdresse1._TimeOnly = False
+        Me.txtAdresse1._TimeOnly_Seconds = False
        Me.txtAdresse1._value = Nothing
        Me.txtAdresse1._Waehrung = False
        Me.txtAdresse1._WaehrungZeichen = True
@@ -255,10 +267,12 @@ Partial Class usrcntlGestellungsgarantie
        Me.txtFirma._DateTimeOnly = False
        Me.txtFirma._numbersOnly = False
        Me.txtFirma._numbersOnlyKommastellen = ""
+        Me.txtFirma._numbersOnlyTrennzeichen = True
        Me.txtFirma._Prozent = False
        Me.txtFirma._ShortDateNew = False
        Me.txtFirma._ShortDateOnly = False
        Me.txtFirma._TimeOnly = False
+        Me.txtFirma._TimeOnly_Seconds = False
        Me.txtFirma._value = Nothing
        Me.txtFirma._Waehrung = False
        Me.txtFirma._WaehrungZeichen = True
@@ -353,10 +367,12 @@ Partial Class usrcntlGestellungsgarantie
        Me.txtBestimmungszollamt._DateTimeOnly = False
        Me.txtBestimmungszollamt._numbersOnly = False
        Me.txtBestimmungszollamt._numbersOnlyKommastellen = ""
+        Me.txtBestimmungszollamt._numbersOnlyTrennzeichen = True
        Me.txtBestimmungszollamt._Prozent = False
        Me.txtBestimmungszollamt._ShortDateNew = False
        Me.txtBestimmungszollamt._ShortDateOnly = False
        Me.txtBestimmungszollamt._TimeOnly = False
+        Me.txtBestimmungszollamt._TimeOnly_Seconds = False
        Me.txtBestimmungszollamt._value = Nothing
        Me.txtBestimmungszollamt._Waehrung = False
        Me.txtBestimmungszollamt._WaehrungZeichen = True
@@ -384,10 +400,12 @@ Partial Class usrcntlGestellungsgarantie
        Me.txtEORI._DateTimeOnly = False
        Me.txtEORI._numbersOnly = False
        Me.txtEORI._numbersOnlyKommastellen = ""
+        Me.txtEORI._numbersOnlyTrennzeichen = True
        Me.txtEORI._Prozent = False
        Me.txtEORI._ShortDateNew = False
        Me.txtEORI._ShortDateOnly = False
        Me.txtEORI._TimeOnly = False
+        Me.txtEORI._TimeOnly_Seconds = False
        Me.txtEORI._value = Nothing
        Me.txtEORI._Waehrung = False
        Me.txtEORI._WaehrungZeichen = True
@@ -414,10 +432,12 @@ Partial Class usrcntlGestellungsgarantie
        Me.txtZulassungsnummer1._DateTimeOnly = False
        Me.txtZulassungsnummer1._numbersOnly = False
        Me.txtZulassungsnummer1._numbersOnlyKommastellen = ""
+        Me.txtZulassungsnummer1._numbersOnlyTrennzeichen = True
        Me.txtZulassungsnummer1._Prozent = False
        Me.txtZulassungsnummer1._ShortDateNew = False
        Me.txtZulassungsnummer1._ShortDateOnly = False
        Me.txtZulassungsnummer1._TimeOnly = False
+        Me.txtZulassungsnummer1._TimeOnly_Seconds = False
        Me.txtZulassungsnummer1._value = Nothing
        Me.txtZulassungsnummer1._Waehrung = False
        Me.txtZulassungsnummer1._WaehrungZeichen = True
@@ -465,10 +485,12 @@ Partial Class usrcntlGestellungsgarantie
        Me.txtZulassungsnummer2._DateTimeOnly = False
        Me.txtZulassungsnummer2._numbersOnly = False
        Me.txtZulassungsnummer2._numbersOnlyKommastellen = ""
+        Me.txtZulassungsnummer2._numbersOnlyTrennzeichen = True
        Me.txtZulassungsnummer2._Prozent = False
        Me.txtZulassungsnummer2._ShortDateNew = False
        Me.txtZulassungsnummer2._ShortDateOnly = False
        Me.txtZulassungsnummer2._TimeOnly = False
+        Me.txtZulassungsnummer2._TimeOnly_Seconds = False
        Me.txtZulassungsnummer2._value = Nothing
        Me.txtZulassungsnummer2._Waehrung = False
        Me.txtZulassungsnummer2._WaehrungZeichen = True
@@ -496,10 +518,12 @@ Partial Class usrcntlGestellungsgarantie
        Me.txtAnmerkung1._DateTimeOnly = False
        Me.txtAnmerkung1._numbersOnly = False
        Me.txtAnmerkung1._numbersOnlyKommastellen = ""
+        Me.txtAnmerkung1._numbersOnlyTrennzeichen = True
        Me.txtAnmerkung1._Prozent = False
        Me.txtAnmerkung1._ShortDateNew = False
        Me.txtAnmerkung1._ShortDateOnly = False
        Me.txtAnmerkung1._TimeOnly = False
+        Me.txtAnmerkung1._TimeOnly_Seconds = False
        Me.txtAnmerkung1._value = Nothing
        Me.txtAnmerkung1._Waehrung = False
        Me.txtAnmerkung1._WaehrungZeichen = True
@@ -517,10 +541,12 @@ Partial Class usrcntlGestellungsgarantie
        Me.txtAnmerkung2._DateTimeOnly = False
        Me.txtAnmerkung2._numbersOnly = False
        Me.txtAnmerkung2._numbersOnlyKommastellen = ""
+        Me.txtAnmerkung2._numbersOnlyTrennzeichen = True
        Me.txtAnmerkung2._Prozent = False
        Me.txtAnmerkung2._ShortDateNew = False
        Me.txtAnmerkung2._ShortDateOnly = False
        Me.txtAnmerkung2._TimeOnly = False
+        Me.txtAnmerkung2._TimeOnly_Seconds = False
        Me.txtAnmerkung2._value = Nothing
        Me.txtAnmerkung2._Waehrung = False
        Me.txtAnmerkung2._WaehrungZeichen = True
@@ -538,10 +564,12 @@ Partial Class usrcntlGestellungsgarantie
        Me.txtAnmerkung3._DateTimeOnly = False
        Me.txtAnmerkung3._numbersOnly = False
        Me.txtAnmerkung3._numbersOnlyKommastellen = ""
+        Me.txtAnmerkung3._numbersOnlyTrennzeichen = True
        Me.txtAnmerkung3._Prozent = False
        Me.txtAnmerkung3._ShortDateNew = False
        Me.txtAnmerkung3._ShortDateOnly = False
        Me.txtAnmerkung3._TimeOnly = False
+        Me.txtAnmerkung3._TimeOnly_Seconds = False
        Me.txtAnmerkung3._value = Nothing
        Me.txtAnmerkung3._Waehrung = False
        Me.txtAnmerkung3._WaehrungZeichen = True
@@ -602,10 +630,7 @@ Partial Class usrcntlGestellungsgarantie

    End Sub
    Friend WithEvents lbl As System.Windows.Forms.Label
-    Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
-    Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents txtAnsprechpartner As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox
@@ -621,10 +646,7 @@ Partial Class usrcntlGestellungsgarantie
    Friend WithEvents btnUp As System.Windows.Forms.Button
    Friend WithEvents btnDel As System.Windows.Forms.Button
    Friend WithEvents Label12 As System.Windows.Forms.Label
-    Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
-    Friend WithEvents txtBestimmungszollamt As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
-    Friend WithEvents txtEORI As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents txtZulassungsnummer1 As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label8 As System.Windows.Forms.Label
@@ -635,4 +657,10 @@ Partial Class usrcntlGestellungsgarantie
    Friend WithEvents txtAnmerkung1 As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents txtAnmerkung2 As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents txtAnmerkung3 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Public WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Public WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Public WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Public WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Public WithEvents txtBestimmungszollamt As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Public WithEvents txtEORI As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlGestellungsgarantie.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlGestellungsgarantie.vb
@@ -12,6 +12,7 @@
        initKdNR(kdnr)
    End Sub

+
    Sub initControlsHandler()
        For Each c In Me.Controls
            Select Case c.GetType.ToString