From 14419be3314ebe54a54d9631ccedfa494bf985e8 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 23 Nov 2022 19:25:14 +0100 Subject: [PATCH] GG public --- .../usrcntlGestellungsgarantie.Designer.vb | 40 ++++++++++++++++--- .../usrcntlGestellungsgarantie.vb | 1 + 2 files changed, 35 insertions(+), 6 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlGestellungsgarantie.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlGestellungsgarantie.Designer.vb index 8d45e2a8..ae56a602 100644 --- 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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlGestellungsgarantie.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlGestellungsgarantie.vb index 5b9e4350..c32fcbfe 100644 --- 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