MS_18042016

app/DD-Record-Organiser/ClassControlValues.vb

@@ -183,7 +183,25 @@ Public Class ClassControlValues
         End Try
 
     End Sub
+    Public Shared Function GetControlValuesREC_CONTROL(RecordId As Integer, CONTROL_ID As Integer)
+        Try
+            'Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE VALUE <> '' AND RECORD_ID = {0}", RecordId)
+            Dim SQL As String = String.Format("SELECT VALUE FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordId, CONTROL_ID)
+            Dim RESULT = ClassDatabase.Execute_Scalar(SQL)
+            If IsNothing(RESULT) Then
+                Return Nothing
+            ElseIf RESULT = "" Then
+                Return Nothing
+            Else
+                Return RESULT
+            End If
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected Error in GetControlValuesREC_CONTROL: " & ex.Message, True)
+            MsgBox("Error in GetControlValuesREC_CONTROL:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return Nothing
+        End Try
 
+    End Function
     Private Shared Sub LoadControlHints(controls As Control.ControlCollection)
 
         For Each c As Control In controls