MS_04.01

app/DD-Record-Organiser/ClassRecordView.vb

@@ -42,7 +42,7 @@ Public Class ClassRecordView
 
     Private Function GetEntityId() As Integer
         Dim SQL = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", RecordId)
-        Me.Entity_ID = ClassDatabase.Execute_Scalar(SQL)
+        Me.Entity_ID = ClassDatabase.Execute_Scalar(SQL, True)
         Return Me.Entity_ID
     End Function
 
@@ -151,7 +151,7 @@ Public Class ClassRecordView
             Dim match As String = ControlIdRegex.Match(sqlcommand).Value 'Get Full Match to replace later
             Dim controlId As Integer = Integer.Parse(match.Replace("@", "")) 'Get Value after removing @-chars
             Dim controlSQL = String.Format("SELECT VALUE FROM VWPMO_VALUES WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", controlId, Me.RecordId)
-            Dim controlValue = ClassDatabase.Execute_Scalar(controlSQL) 'Get the actual value
+            Dim controlValue = ClassDatabase.Execute_Scalar(controlSQL, True) 'Get the actual value
             sqlcommand = sqlcommand.Replace(match, controlValue.ToString()) 'Replace the actual value with the placeholder string/match
         End If
 
@@ -190,7 +190,7 @@ Public Class ClassRecordView
     Private Sub LoadControls()
         Try
             Dim controls As New List(Of Control)
-            DTControls = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0}", GetEntityId()))
+            DTControls = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0}", GetEntityId()), True)
 
             For Each row As DataRow In DTControls.Rows
                 Dim props As ControlProps = MapRowToProps(row)
@@ -255,7 +255,7 @@ Public Class ClassRecordView
     Private Sub LoadValues(controlCollection As Control.ControlCollection)
         Try
             Dim controls As New List(Of Control)
-            DTValues = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM  VWPMO_VALUES WHERE RECORD_ID = {0}", Me.RecordId))
+            DTValues = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM  VWPMO_VALUES WHERE RECORD_ID = {0}", Me.RecordId), True)
 
             ' ControlCollection in eine List<Of Control> konvertieren
             controls = controlCollection.Cast(Of Control)().ToList()