This commit is contained in:
SchreiberM
2016-04-08 14:55:25 +02:00
parent d1eb7ecb5b
commit ef2a87d849
47 changed files with 12718 additions and 9964 deletions

View File

@@ -27,9 +27,7 @@ Public Class ClassControlCommandsUI
Sub LoadControls(FormId As Integer)
_CtrlBuilder.ClearControls()
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
Dim SQL As String = String.Format("SELECT T.*, dbo.FNPMO_GET_CONTROL_CAPTION ('{2}', {3},T.CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN T WHERE SCREEN_ID = {0} AND FORM_ID = {1}", CURRENT_SCREEN_ID, FormId, USER_LANGUAGE, CURRENT_SCREEN_ID)
' "SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = " & FormId & " and SCREEN_ID = 1"
@@ -281,10 +279,8 @@ Public Class ClassControlCommandsUI
' Tag wird für ControlId verwendet, master data id bei rechtsklick herausfinden
'_CtrlBuilder.CurrentControl.Tag = dr.Item("CTRLSCR_MASTER_DATA_ID")
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Adding Control '" & control & "' took " & Format(elapsed, "0.000000000") & " seconds", False)
sw.Stop()
sw.Reset()
Next
End Sub
Function DeleteRecord(RecordID As Integer)