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 ' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
Dim result1 = (From form In DT_CONTROLS_ENTITY.AsEnumerable() Dim result1 = (From form In DT_CONTROLS_ENTITY.AsEnumerable()
Select form Select form
Where form.Item("CONTROL_ID") = CONTROL_ID).Single() Where form.Item("CONTROL_ID") = CONTROL_ID).SingleOrDefault()
Dim locked = result1.Item("CONTROL_READ_ONLY") If Not IsNothing(result1) Then
If state = False And locked = True Then Dim locked = result1.Item("CONTROL_READ_ONLY")
state = True If state = False And locked = True Then
state = True
End If
End If End If
Return state Return state
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)