jj 16.03 hints

app/DD-Record-Organiser/ClassControlValues.vb

@@ -155,6 +155,9 @@ Public Class ClassControlValues
             ' Zuerst alle Controls leeren
             ClearControlValues(controls)
 
+            ' Load all Hints for controls
+            LoadControlHints(controls)
+
             For Each control As Control In controls
                 Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
 
@@ -178,6 +181,23 @@ Public Class ClassControlValues
 
     End Sub
 
+    Private Shared Sub LoadControlHints(controls As Control.ControlCollection)
+
+        For Each c As Control In controls
+            Dim id As Integer = DirectCast(c.Tag, ClassControlMetadata).Id
+
+            Dim sql As String = String.Format("SELECT HINT FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = (SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} AND SCREEN_ID = 1) AND LANGUAGE_TYPE = '{1}' AND HINT IS NOT NULL", id, USER_LANGUAGE)
+            Dim hint = ClassDatabase.Execute_Scalar(sql)
+
+            If IsNothing(hint) Then
+                Continue For
+            End If
+
+            ClassControlValueCache.SaveHint(id, hint.ToString)
+        Next
+
+    End Sub
+
     Private Shared Sub LoadControlValue(recordId As Integer, parentRecordId As Integer, controlId As Integer, control As Control, values As List(Of Object))
         Try
             ' Für die meisten Controls wird nur das erste Element der Liste benötigt
@@ -187,6 +207,8 @@ Public Class ClassControlValues
                 value = values.Item(0)
             End If
 
+
+
             Select Case control.GetType()
                 Case GetType(TextBox)
                     If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(TextBox) ", False)