MS_02.06.2016

This commit is contained in:
SchreiberM
2016-06-02 12:18:52 +02:00
parent a3bbbfa570
commit 9371880314
11 changed files with 2247 additions and 413 deletions

View File

@@ -30,7 +30,7 @@ Public Class ClassControlCommandsUI
_CtrlBuilder.MasterPanel.SuspendLayout()
Dim sw As New SW("LoadControls")
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"
@@ -285,7 +285,7 @@ Public Class ClassControlCommandsUI
parent)
control = "DataGridViewCheckable - " & dr.Item("CONTROL_ID")
End Select
' ContextMenuStrip zuweisen
' MasterDataID im ContextMenuStrip Speichern
@@ -299,7 +299,7 @@ Public Class ClassControlCommandsUI
sw.Done()
_CtrlBuilder.MasterPanel.ResumeLayout()
End Sub
Function DeleteRecord(RecordID As Integer)