This commit is contained in:
SchreiberM
2016-12-14 10:38:12 +01:00
15 changed files with 96 additions and 2359 deletions

View File

@@ -46,6 +46,9 @@ Public Class frmConstructor_Main
Public hProcess As IntPtr
End Structure
#Region "Laufzeitvariablen & Konstanten"
Public CtrlBuilder As ClassControlBuilder
Public CtrlCommandUI As ClassControlCommandsUI
Private CONSTRUCTORID As Integer
Private CONSTRUCTOR_DETAIL_ID As Integer
Private DT_CONSTRUCT_VIEW As DataTable
@@ -1675,14 +1678,12 @@ Public Class frmConstructor_Main
FORMVIEW_ID = frmview_id
ENTITY_ID = DT_TBPMO_FORM_VIEW.Rows(0).Item("FORM_ID") 'ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & frmview_id)
CtrlBuilder = New ClassControlBuilder(pnlDetails)
'LoadControls(thisFormId)
CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
ContextMenuDetails,
AddressOf NewEditAppointment) ',
'AddressOf OpenFormData)
AddressOf NewEditAppointment)
CtrlCommandUI.LoadControls(ENTITY_ID)
Lock_RecordControls(True)
' pnlDetails.Enabled = False
AddHandler CtrlBuilder.OnRecordChanged, AddressOf OnRecordChanged
AddHandler CtrlBuilder.OnMouseHover, AddressOf HandleToolTip