MS Bugfixing

This commit is contained in:
SchreiberM 2023-11-15 16:04:13 +01:00
parent 5e8bba8f13
commit 4c502369bd

View File

@ -936,11 +936,14 @@ LOGGER.Error(ex)
' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
Dim result1 = (From form In DT_CONTROLS_ENTITY.AsEnumerable()
Select form
Where form.Item("CONTROL_ID") = CONTROL_ID).Single()
Dim locked = result1.Item("CONTROL_READ_ONLY")
If state = False And locked = True Then
state = True
Where form.Item("CONTROL_ID") = CONTROL_ID).SingleOrDefault()
If Not IsNothing(result1) Then
Dim locked = result1.Item("CONTROL_READ_ONLY")
If state = False And locked = True Then
state = True
End If
End If
Return state
Catch ex As Exception
LOGGER.Error(ex)