From a7fba174d395fe3fb2e2a3032205f84f151efce2 Mon Sep 17 00:00:00 2001 From: Developer01 Date: Mon, 29 Dec 2025 15:02:18 +0100 Subject: [PATCH] =?UTF-8?q?*=20=E2=80=9ELinie=2054:=20Commented=20out=20th?= =?UTF-8?q?e=20case=20for=20DevExpress.XtraEditors.LookUpEdit=20because=20?= =?UTF-8?q?the=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=2055:?= =?UTF-8?q?=20Commented=20out=20the=20usage=20of=20DevExpress.XtraEditors.?= =?UTF-8?q?LookUpEdit=20to=20avoid=20reference=20to=20a=20missing=20type,?= =?UTF-8?q?=20as=20required=20by=20the=20error=20fix=20instructions.=20Lin?= =?UTF-8?q?ie=2057:=20Commented=20out=20the=20usage=20of=20oLookupEdit.Edi?= =?UTF-8?q?tValue=20to=20avoid=20reference=20to=20a=20missing=20type,=20as?= =?UTF-8?q?=20required=20by=20the=20error=20fix=20instructions.=20Linie=20?= =?UTF-8?q?58:=20Commented=20out=20the=20usage=20of=20oReplaceValue=20assi?= =?UTF-8?q?gnment=20for=20missing=20type.=20Linie=2059:=20Commented=20out?= =?UTF-8?q?=20the=20Else=20for=20missing=20type=20block.=20Linie=2060:=20C?= =?UTF-8?q?ommented=20out=20the=20usage=20of=20oLookupEdit.EditValue=20for?= =?UTF-8?q?=20missing=20type.=20Linie=2061:=20Commented=20out=20the=20End?= =?UTF-8?q?=20If=20for=20missing=20type=20block.=E2=80=9C=20in=20Datei=20?= =?UTF-8?q?=E2=80=9EPatterns\Modules\Controls.vb=E2=80=9C?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Patterns/Modules/Controls.vb | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/Patterns/Modules/Controls.vb b/Patterns/Modules/Controls.vb index 85483913..63b90bff 100644 --- a/Patterns/Modules/Controls.vb +++ b/Patterns/Modules/Controls.vb @@ -51,14 +51,14 @@ Namespace Modules ' Dim oDateValue As Date = oDateEdit.EditValue ' oReplaceValue = oDateValue.ToString("yyyyMMdd") - Case GetType(DevExpress.XtraEditors.LookUpEdit) - Dim oLookupEdit As DevExpress.XtraEditors.LookUpEdit = oControl - - If IsNothing(oLookupEdit.EditValue) Then - oReplaceValue = String.Empty - Else - oReplaceValue = oLookupEdit.EditValue - End If + ' Case GetType(DevExpress.XtraEditors.LookUpEdit) ' Type not found: DevExpress.XtraEditors.LookUpEdit + ' Dim oLookupEdit As DevExpress.XtraEditors.LookUpEdit = oControl + + ' If IsNothing(oLookupEdit.EditValue) Then + ' oReplaceValue = String.Empty + ' Else + ' oReplaceValue = oLookupEdit.EditValue + ' End If Case GetType(LookupControl3) Dim oLookupControl3 As LookupControl3 = oControl