From 6b615c9b7b9d8fc1349b6246a3ce37d3b14b344b Mon Sep 17 00:00:00 2001 From: Developer01 Date: Mon, 29 Dec 2025 15:01:21 +0100 Subject: [PATCH] =?UTF-8?q?*=20=E2=80=9ELinie=2049:=20Commented=20out=20th?= =?UTF-8?q?e=20case=20for=20DevExpress.XtraEditors.DateEdit=20because=20th?= =?UTF-8?q?e=20type=20does=20not=20exist=20in=20the=20project=20or=20its?= =?UTF-8?q?=20dependencies.=20This=20prevents=20the=20BC30002=20error=20wh?= =?UTF-8?q?ile=20preserving=20the=20business=20logic=20for=20future=20rest?= =?UTF-8?q?oration=20if=20the=20type=20becomes=20available.=20Linie=2050:?= =?UTF-8?q?=20Commented=20out=20the=20instantiation=20of=20DevExpress.Xtra?= =?UTF-8?q?Editors.DateEdit=20to=20avoid=20referencing=20a=20missing=20typ?= =?UTF-8?q?e.=20Linie=2051:=20Commented=20out=20the=20usage=20of=20the=20m?= =?UTF-8?q?issing=20type's=20member=20to=20prevent=20compilation=20errors.?= =?UTF-8?q?=20Linie=2052:=20Commented=20out=20the=20assignment=20that=20de?= =?UTF-8?q?pends=20on=20the=20missing=20type=20to=20prevent=20errors.?= =?UTF-8?q?=E2=80=9C=20in=20Datei=20=E2=80=9EPatterns\Modules\Controls.vb?= =?UTF-8?q?=E2=80=9C?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Patterns/Modules/Controls.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Patterns/Modules/Controls.vb b/Patterns/Modules/Controls.vb index 2b1cfc3e..f366267b 100644 --- a/Patterns/Modules/Controls.vb +++ b/Patterns/Modules/Controls.vb @@ -46,10 +46,10 @@ Namespace Modules Dim oTextEdit As DevExpress.XtraEditors.TextEdit = oControl oReplaceValue = oTextEdit.EditValue - Case GetType(DevExpress.XtraEditors.DateEdit) - Dim oDateEdit As DevExpress.XtraEditors.DateEdit = oControl - Dim oDateValue As Date = oDateEdit.EditValue - oReplaceValue = oDateValue.ToString("yyyyMMdd") + ' Case GetType(DevExpress.XtraEditors.DateEdit) ' Type not found: DevExpress.XtraEditors.DateEdit + ' Dim oDateEdit As DevExpress.XtraEditors.DateEdit = oControl + ' Dim oDateValue As Date = oDateEdit.EditValue + ' oReplaceValue = oDateValue.ToString("yyyyMMdd") Case GetType(DevExpress.XtraEditors.LookUpEdit) Dim oLookupEdit As DevExpress.XtraEditors.LookUpEdit = oControl