AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_29012016

Browse Source
This commit is contained in:
SchreiberM
2016-01-29 14:46:32 +01:00
parent 3cc10569ad
commit 66b70f44b9
28 changed files with 3998 additions and 1981 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@@ -28,7 +28,9 @@ Public Class ClassControlCommandsUI
Sub LoadControls(FormId As Integer)
_CtrlBuilder.ClearControls()
Dim SQL As String = "SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = " & FormId & " and SCREEN_ID = 1"
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"
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
_CtrlBuilder.MasterPanel.SuspendLayout()
@@ -45,7 +47,7 @@ Public Class ClassControlCommandsUI
Case 1 ' Label
_CtrlBuilder.AddLabel(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_CAPTION"),
dr.Item("CAPTION"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
dr.Item("CTRLSCR_FONT_FAMILY"),