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

JJ_13_11_NEW CONSTRUCTOR

Browse Source
This commit is contained in:
JenneJ 2015-11-13 15:50:44 +01:00
parent 9f80eb5a3d
commit a212483e19
5 changed files with 251 additions and 334 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -649,181 +649,4 @@ Public Class ClassControlCommandsUI
If LogErrorsOnly = False Then ClassLogger.Add(">> ConnectRecord SQL: " & SQL, False)
Return ClassDatabase.Execute_non_Query(SQL)
End Function
'Function SaveRecord_OLD(RecordID As Integer, FormID As Integer, Optional foreignRecordID As Integer = 0) As String
' Try
' Dim SQL As String
' Dim RECORD_ID As Integer
' Dim ADDED_WHO As String = Environment.UserName
' Dim CHANGED_WHO As String = Environment.UserName
' If IsInsert = True Then
' If LogErrorsOnly = False Then ClassLogger.Add(">> (SaveRecord) Insert", False)
' ' Create the record first
' SQL = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID) VALUES ('" & ADDED_WHO & "', " & FormID & ")"
' If ClassDatabase.Execute_non_Query(SQL) = False Then
' IsInsert = False
' Return "ERROR - INSERT RECORD NOT SUCCESSFUL"
' End If
' ' Get last RecordID
' SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where ADDED_WHO = '" & ADDED_WHO & "'"
' RECORD_ID = ClassDatabase.Execute_Scalar(SQL)
' 'Den Record Connecten
' If foreignRecordID > 0 Then
' If LogErrorsOnly = False Then ClassLogger.Add(">> foreignRecordID: " & foreignRecordID & "; Record-ID: " & RECORD_ID, False)
' SQL = "INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,ADDED_WHO) VALUES (" & foreignRecordID & "," & RECORD_ID & ",'" & ADDED_WHO & "')"
' If LogErrorsOnly = False Then ClassLogger.Add(">> SQL: " & SQL, False)
' ClassDatabase.Execute_non_Query(SQL)
' End If
' 'ThisRecordID = RECORD_ID
' 'MsgBox(formid)
' 'Save Each Value from Controls into CONTROL_VALUE
' 'For Each ctrl As Control In pnl.Controls
' Dim VALUE
' For Each ctrl As Control In _CtrlBuilder.AllControls
' Dim CONTROL_ID As Integer = GetControlID_for_Name(ctrl.Name, FormID)
' If CONTROL_ID <> -1 And TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
' VALUE = ctrl.Text
' 'If TypeOf ctrl Is ComboBox Then
' ' Dim cmb = DirectCast(ctrl, ComboBox)
' ' If cmb.DataSource Is Nothing = False Then
' ' Dim bs As BindingSource = DirectCast(cmb.DataSource, BindingSource)
' ' Dim dt As DataTable = DirectCast(bs.DataSource, DataTable)
' ' BindingSource_Check_Content_Insert(bs, cmb.DisplayMember.ToString, cmb.Text)
' ' ' MsgBox(dt.TableName.ToString & vbNewLine & cmb.DisplayMember.ToString)
' ' End If
' 'End If
' ElseIf CONTROL_ID <> -1 And TypeOf ctrl Is CheckBox Then
' 'If CONTROL_ID = -1 Then
' Dim chk As CheckBox
' chk = DirectCast(ctrl, CheckBox)
' VALUE = chk.Checked
' CONTROL_ID = GetControlID_for_Name(ctrl.Name, FormID)
' 'End If
' ElseIf CONTROL_ID <> -1 And TypeOf ctrl Is RadioButton Then
' Dim radio As RadioButton
' radio = DirectCast(ctrl, RadioButton)
' VALUE = radio.Checked
' CONTROL_ID = GetControlID_for_Name(ctrl.Name, FormID)
' End If
' 'Jetzt der Insert
' SQL = "INSERT INTO TBPMO_CONTROL_VALUE(CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & RECORD_ID & ", '" & VALUE & "', '" & ADDED_WHO & "')"
' ClassDatabase.Execute_non_Query(SQL)
' Next
' ' Reset insert after INSERT
' IsInsert = False
' 'tsstatus_Detail_show(True, "Neuer Datensatz eingefügt - " & Now)
' NEW_RECORD_ID = RECORD_ID
' CURRENT_RECORD_ID = RECORD_ID
' Return "Neuer Datensatz eingefügt - " & Now
' Else
' If LogErrorsOnly = False Then ClassLogger.Add(">> (SaveRecord) Update RecordID: " & RECORD_ID, False)
' For Each ctrl As Control In _CtrlBuilder.AllControls
' Dim CONTROL_ID = GetControlID_for_RecordID(ctrl.Name, RecordID)
' Dim value_akt = ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & RecordID)
' Console.WriteLine(CONTROL_ID.ToString & " - " & ctrl.Name)
' If CONTROL_ID = -1 And (TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox) Then
' ' Trying to save a value for a new value
' Dim VALUE = ctrl.Text
' CONTROL_ID = GetControlID_for_Name(ctrl.Name, FormID)
' SQL = "INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & RecordID & ", '" & VALUE & "', '" & ADDED_WHO & "')"
' If ClassDatabase.Execute_non_Query(SQL) = False Then
' Throw New Exception("Error while inserting new value for Control " & ctrl.Name & "!")
' End If
' ElseIf TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
' Dim VALUE = ctrl.Text
' If value_akt <> VALUE Then
' 'If TypeOf ctrl Is ComboBox Then
' ' Dim cmb = DirectCast(ctrl, ComboBox)
' ' If cmb.DataSource Is Nothing = False Then
' ' Dim bs As BindingSource = DirectCast(cmb.DataSource, BindingSource)
' ' BindingSource_Check_Content_Insert(bs, cmb.DisplayMember.ToString, cmb.Text)
' ' End If
' 'End If
' SQL = "UPDATE TBPMO_CONTROL_VALUE SET VALUE = '" & VALUE & "', CHANGED_WHO = '" & CHANGED_WHO & "' WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & RecordID
' If ClassDatabase.Execute_non_Query(SQL) = False Then
' Throw New Exception("Error while updating the value for Control " & ctrl.Name & "!")
' End If
' End If
' ElseIf CONTROL_ID = -1 And (TypeOf ctrl Is DevExpress.XtraEditors.DateEdit) Then
' Dim date_ctrl As DevExpress.XtraEditors.DateEdit = DirectCast(ctrl, DevExpress.XtraEditors.DateEdit)
' Dim VALUE As String = date_ctrl.DateTime.ToString("yyyy-MM-dd")
' CONTROL_ID = GetControlID_for_Name(date_ctrl.Name, FormID)
' SQL = "INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & RecordID & ", '" & VALUE & "', '" & ADDED_WHO & "')"
' If ClassDatabase.Execute_non_Query(SQL) = False Then
' Throw New Exception("Error while inserting new value for Control " & ctrl.Name & "!")
' End If
' ElseIf TypeOf ctrl Is DevExpress.XtraEditors.DateEdit Then
' Dim date_ctrl As DevExpress.XtraEditors.DateEdit = DirectCast(ctrl, DevExpress.XtraEditors.DateEdit)
' Dim VALUE As String = date_ctrl.DateTime.ToString("yyyy-MM-dd")
' If value_akt <> VALUE Then
' SQL = "UPDATE TBPMO_CONTROL_VALUE SET VALUE = '" & VALUE & "', CHANGED_WHO = '" & CHANGED_WHO & "' WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & RecordID
' If ClassDatabase.Execute_non_Query(SQL) = False Then
' Throw New Exception("Error while updating the value for Control " & ctrl.Name & "!")
' End If
' End If
' ElseIf TypeOf ctrl Is CheckBox Then
' If CONTROL_ID = -1 Then
' Dim chk As CheckBox
' chk = DirectCast(ctrl, CheckBox)
' Dim VALUE = chk.Checked
' CONTROL_ID = GetControlID_for_Name(ctrl.Name, FormID)
' SQL = "INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & RecordID & ", '" & VALUE & "', '" & ADDED_WHO & "')"
' If ClassDatabase.Execute_non_Query(SQL) = False Then
' Throw New Exception("Error while inserting new value for Control " & ctrl.Name & "!")
' End If
' Else
' Dim chk As CheckBox
' chk = DirectCast(ctrl, CheckBox)
' Dim VALUE = chk.Checked
' SQL = "UPDATE TBPMO_CONTROL_VALUE SET VALUE = '" & VALUE & "', CHANGED_WHO = '" & CHANGED_WHO & "' WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & RecordID
' If ClassDatabase.Execute_non_Query(SQL) = False Then
' Throw New Exception("Error while update new value for Control " & ctrl.Name & "!")
' End If
' End If
' ElseIf TypeOf ctrl Is RadioButton Then
' If CONTROL_ID = -1 Then
' Dim radio As RadioButton = DirectCast(ctrl, RadioButton)
' Dim VALUE As String = radio.Checked
' CONTROL_ID = GetControlID_for_Name(ctrl.Name, FormID)
' SQL = "INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (" & CONTROL_ID & ", " & RecordID & ", " & VALUE & ", " & ADDED_WHO & ")"
' If ClassDatabase.Execute_non_Query(SQL) = False Then
' Throw New Exception("Error while inserting new value for Control " & ctrl.Name & "!")
' End If
' Else
' Dim radio As RadioButton = DirectCast(ctrl, RadioButton)
' Dim value As String = radio.Checked
' CONTROL_ID = GetControlID_for_Name(ctrl.Name, FormID)
' SQL = "UPDATE TBPMO_CONTROL_VALUE SET VALUE = '" & value & "', CHANGED_WHO = '" & CHANGED_WHO & "' WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & RecordID
' If ClassDatabase.Execute_non_Query(SQL) = False Then
' Throw New Exception("Error while update new value for Control " & ctrl.Name & "!")
' End If
' End If
' End If
' Next
' 'tsstatus_Detail_show(True, "Datensatz aktualisiert - " & Now)
' Return "Datensatz aktualisiert - " & Now
' End If
' Catch ex As Exception
' MsgBox("Error in SaveRecord:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
' IsInsert = False
' Return "Error in SaveRecord"
' End Try
'End Function
End Class

56
app/DD-Record-Organiser/ClassControlValues.vb
View File

@ -74,7 +74,10 @@ Public Class ClassControlValues
radio.Checked = CBool(result)
Case 3 ' ComboBox
Dim combobox As ComboBox = DirectCast(control, ComboBox)
'combobox.DataSource = Nothing
'combobox.Text = result
If combobox.SelectedIndex = -1 Then
combobox.DataSource = Nothing
combobox.Text = result
Else
combobox.SelectedIndex = combobox.FindStringExact(result)
@ -247,6 +250,59 @@ Public Class ClassControlValues
End Sub
Public Shared Sub LoadControlValuesList(RecordID As Integer, FormID As Integer, controls As Control.ControlCollection)
For Each C As Control In controls
If TypeOf C Is ComboBox Then
Dim Combobox = DirectCast(C, ComboBox)
Dim SQL As String = String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE FORM_ID = {0} AND NAME = '{1}'", CURRENT_FORM_ID, C.Name)
Dim SQL2 As String = ClassDatabase.Execute_Scalar(SQL)
Dim DT_Combobox As DataTable = ClassDatabase.Return_Datatable(SQL2)
If DT_Combobox Is Nothing = False Then
If DT_Combobox.Rows.Count > 0 Then
Combobox.DataSource = DT_Combobox
Combobox.DisplayMember = DT_Combobox.Columns(1).ColumnName
Combobox.ValueMember = DT_Combobox.Columns(0).ColumnName
Combobox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
Combobox.AutoCompleteSource = AutoCompleteSource.ListItems
End If
Dim iWidestWidth As Integer = 300
For Each row As DataRow In DT_Combobox.Rows
'Die BReite der DropDown-Lsit anpassen
Using g As Graphics = Combobox.CreateGraphics
If g.MeasureString(row.Item(1).ToString, Combobox.Font).Width + 30 > iWidestWidth Then
iWidestWidth = g.MeasureString(row.Item(1).ToString, Combobox.Font).Width + 30
End If
g.Dispose()
End Using
' control.Items.Add(row.Item(0).ToString)
Next
If iWidestWidth > 300 Then
Combobox.DropDownWidth = Math.Max(iWidestWidth, Combobox.Width)
End If
LoadControlValue(RecordID, GetControlID_for_Name(Combobox.Name, FormID), C)
End If
End If
Next
End Sub
Public Shared Sub UnloadControlValuesList(RecordID As Integer, FormID As Integer, controls As Control.ControlCollection)
For Each C As Control In controls
If TypeOf C Is ComboBox Then
Dim Combobox = DirectCast(C, ComboBox)
Dim currentValue As String = Combobox.Text
Combobox.DataSource = Nothing
Combobox.Text = currentValue
End If
Next
End Sub
Public Shared Sub LoadImage(RecordID As Integer, ControlID As Integer, control As Control)
Dim picbox As PictureBox = DirectCast(control, PictureBox)
Dim SQL As String = String.Format("SELECT IMG FROM TBPMO_CONTROL_IMAGE WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordID, ControlID)

138
app/DD-Record-Organiser/frmForm_Constructor_Main.Designer.vb generated
View File

@ -23,8 +23,8 @@ Partial Class frmForm_Constructor_Main
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmForm_Constructor_Main))
Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridControlMain = New DevExpress.XtraGrid.GridControl()
@ -56,6 +56,11 @@ Partial Class frmForm_Constructor_Main
Me.TabDetails = New DevExpress.XtraTab.XtraTabPage()
Me.pnlDetails = New System.Windows.Forms.Panel()
Me.TabWindream = New DevExpress.XtraTab.XtraTabPage()
Me.AxObjectListControl = New AxOBJECTLISTCONTROLLib.AxObjectListControl()
Me.ToolStripDokumente = New System.Windows.Forms.ToolStrip()
Me.tslblWindreamView = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripDropDownButton2 = New System.Windows.Forms.ToolStripDropDownButton()
Me.KonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TabFollowUp = New DevExpress.XtraTab.XtraTabPage()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
@ -91,11 +96,6 @@ Partial Class frmForm_Constructor_Main
Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
Me.ttToolTip = New System.Windows.Forms.ToolTip(Me.components)
Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripDokumente = New System.Windows.Forms.ToolStrip()
Me.tslblWindreamView = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripDropDownButton2 = New System.Windows.Forms.ToolStripDropDownButton()
Me.KonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AxObjectListControl = New AxOBJECTLISTCONTROLLib.AxObjectListControl()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuGrid.SuspendLayout()
@ -112,6 +112,8 @@ Partial Class frmForm_Constructor_Main
Me.TCDetails.SuspendLayout()
Me.TabDetails.SuspendLayout()
Me.TabWindream.SuspendLayout()
CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripDokumente.SuspendLayout()
Me.TabFollowUp.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
@ -119,8 +121,6 @@ Partial Class frmForm_Constructor_Main
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripDokumente.SuspendLayout()
CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'grvwGrid
@ -147,15 +147,15 @@ Partial Class frmForm_Constructor_Main
Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid
Me.GridControlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlMain.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
GridLevelNode3.LevelTemplate = Me.grvwGrid
GridLevelNode3.RelationName = "Level1"
GridLevelNode4.LevelTemplate = Me.grvwCarousel
GridLevelNode4.RelationName = "Level2"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3, GridLevelNode4})
GridLevelNode1.LevelTemplate = Me.grvwGrid
GridLevelNode1.RelationName = "Level1"
GridLevelNode2.LevelTemplate = Me.grvwCarousel
GridLevelNode2.RelationName = "Level2"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2})
Me.GridControlMain.Location = New System.Drawing.Point(0, 0)
Me.GridControlMain.MainView = Me.grvwTiles
Me.GridControlMain.Name = "GridControlMain"
Me.GridControlMain.Size = New System.Drawing.Size(779, 270)
Me.GridControlMain.Size = New System.Drawing.Size(786, 270)
Me.GridControlMain.TabIndex = 0
Me.GridControlMain.UseEmbeddedNavigator = True
Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwCarousel, Me.grvwTiles, Me.grvwGrid})
@ -373,7 +373,7 @@ Partial Class frmForm_Constructor_Main
Me.SplitContainerBottom.Panel1.Controls.Add(Me.ToolStripEdit)
Me.SplitContainerBottom.Panel1.Text = "Panel1"
Me.SplitContainerBottom.Panel2.Text = "Panel2"
Me.SplitContainerBottom.Size = New System.Drawing.Size(1074, 365)
Me.SplitContainerBottom.Size = New System.Drawing.Size(1074, 372)
Me.SplitContainerBottom.SplitterPosition = 448
Me.SplitContainerBottom.TabIndex = 0
Me.SplitContainerBottom.Text = "SplitContainerControl1"
@ -384,7 +384,7 @@ Partial Class frmForm_Constructor_Main
Me.TCDetails.Location = New System.Drawing.Point(0, 25)
Me.TCDetails.Name = "TCDetails"
Me.TCDetails.SelectedTabPage = Me.TabDetails
Me.TCDetails.Size = New System.Drawing.Size(1062, 340)
Me.TCDetails.Size = New System.Drawing.Size(1069, 347)
Me.TCDetails.TabIndex = 1
Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp})
'
@ -393,7 +393,7 @@ Partial Class frmForm_Constructor_Main
Me.TabDetails.Controls.Add(Me.pnlDetails)
Me.TabDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD
Me.TabDetails.Name = "TabDetails"
Me.TabDetails.Size = New System.Drawing.Size(1060, 312)
Me.TabDetails.Size = New System.Drawing.Size(1063, 316)
Me.TabDetails.Text = "Detailansicht"
'
'pnlDetails
@ -401,7 +401,7 @@ Partial Class frmForm_Constructor_Main
Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlDetails.Location = New System.Drawing.Point(0, 0)
Me.pnlDetails.Name = "pnlDetails"
Me.pnlDetails.Size = New System.Drawing.Size(1060, 312)
Me.pnlDetails.Size = New System.Drawing.Size(1063, 316)
Me.pnlDetails.TabIndex = 0
'
'TabWindream
@ -410,9 +410,53 @@ Partial Class frmForm_Constructor_Main
Me.TabWindream.Controls.Add(Me.ToolStripDokumente)
Me.TabWindream.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954
Me.TabWindream.Name = "TabWindream"
Me.TabWindream.Size = New System.Drawing.Size(1060, 312)
Me.TabWindream.Size = New System.Drawing.Size(1063, 316)
Me.TabWindream.Text = "windream-Dateien"
'
'AxObjectListControl
'
Me.AxObjectListControl.AllowDrop = True
Me.AxObjectListControl.Dock = System.Windows.Forms.DockStyle.Fill
Me.AxObjectListControl.Enabled = True
Me.AxObjectListControl.Location = New System.Drawing.Point(0, 25)
Me.AxObjectListControl.Name = "AxObjectListControl"
Me.AxObjectListControl.OcxState = CType(resources.GetObject("AxObjectListControl.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxObjectListControl.Size = New System.Drawing.Size(1063, 291)
Me.AxObjectListControl.TabIndex = 6
Me.AxObjectListControl.TabStop = False
'
'ToolStripDokumente
'
Me.ToolStripDokumente.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripDropDownButton2})
Me.ToolStripDokumente.Location = New System.Drawing.Point(0, 0)
Me.ToolStripDokumente.Name = "ToolStripDokumente"
Me.ToolStripDokumente.Size = New System.Drawing.Size(1063, 25)
Me.ToolStripDokumente.TabIndex = 2
Me.ToolStripDokumente.Text = "ToolStrip2"
'
'tslblWindreamView
'
Me.tslblWindreamView.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tslblWindreamView.Name = "tslblWindreamView"
Me.tslblWindreamView.Size = New System.Drawing.Size(126, 22)
Me.tslblWindreamView.Text = "Windream-Dokumente"
'
'ToolStripDropDownButton2
'
Me.ToolStripDropDownButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripDropDownButton2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KonfigurationToolStripMenuItem})
Me.ToolStripDropDownButton2.Image = CType(resources.GetObject("ToolStripDropDownButton2.Image"), System.Drawing.Image)
Me.ToolStripDropDownButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripDropDownButton2.Name = "ToolStripDropDownButton2"
Me.ToolStripDropDownButton2.Size = New System.Drawing.Size(210, 22)
Me.ToolStripDropDownButton2.Text = "Konfiguration windream-Ansicht"
'
'KonfigurationToolStripMenuItem
'
Me.KonfigurationToolStripMenuItem.Name = "KonfigurationToolStripMenuItem"
Me.KonfigurationToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
Me.KonfigurationToolStripMenuItem.Text = "Konfiguration User"
'
'TabFollowUp
'
Me.TabFollowUp.Controls.Add(Me.GroupBox3)
@ -420,7 +464,7 @@ Partial Class frmForm_Constructor_Main
Me.TabFollowUp.Controls.Add(Me.ListViewFollowUp)
Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
Me.TabFollowUp.Name = "TabFollowUp"
Me.TabFollowUp.Size = New System.Drawing.Size(1060, 312)
Me.TabFollowUp.Size = New System.Drawing.Size(1063, 316)
Me.TabFollowUp.Text = "Wiedervorlage"
'
'GroupBox3
@ -590,7 +634,7 @@ Partial Class frmForm_Constructor_Main
Me.ToolStripEdit.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsButtonAdd, Me.tsButtonSave, Me.tsButtonDelete, Me.tsButtonEditMode, Me.ToolStripDropDownButton1, Me.tsButtonShowTaskOverview, Me.tsButtonShowWorkflowTasks})
Me.ToolStripEdit.Location = New System.Drawing.Point(0, 0)
Me.ToolStripEdit.Name = "ToolStripEdit"
Me.ToolStripEdit.Size = New System.Drawing.Size(1062, 25)
Me.ToolStripEdit.Size = New System.Drawing.Size(1069, 25)
Me.ToolStripEdit.TabIndex = 0
Me.ToolStripEdit.Text = "ToolStrip1"
'
@ -703,50 +747,6 @@ Partial Class frmForm_Constructor_Main
Me.ContextMenuDetails.Name = "ContextMenuDetails"
Me.ContextMenuDetails.Size = New System.Drawing.Size(61, 4)
'
'ToolStripDokumente
'
Me.ToolStripDokumente.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripDropDownButton2})
Me.ToolStripDokumente.Location = New System.Drawing.Point(0, 0)
Me.ToolStripDokumente.Name = "ToolStripDokumente"
Me.ToolStripDokumente.Size = New System.Drawing.Size(1060, 25)
Me.ToolStripDokumente.TabIndex = 2
Me.ToolStripDokumente.Text = "ToolStrip2"
'
'tslblWindreamView
'
Me.tslblWindreamView.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tslblWindreamView.Name = "tslblWindreamView"
Me.tslblWindreamView.Size = New System.Drawing.Size(126, 22)
Me.tslblWindreamView.Text = "Windream-Dokumente"
'
'ToolStripDropDownButton2
'
Me.ToolStripDropDownButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripDropDownButton2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KonfigurationToolStripMenuItem})
Me.ToolStripDropDownButton2.Image = CType(resources.GetObject("ToolStripDropDownButton2.Image"), System.Drawing.Image)
Me.ToolStripDropDownButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripDropDownButton2.Name = "ToolStripDropDownButton2"
Me.ToolStripDropDownButton2.Size = New System.Drawing.Size(210, 22)
Me.ToolStripDropDownButton2.Text = "Konfiguration windream-Ansicht"
'
'KonfigurationToolStripMenuItem
'
Me.KonfigurationToolStripMenuItem.Name = "KonfigurationToolStripMenuItem"
Me.KonfigurationToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
Me.KonfigurationToolStripMenuItem.Text = "Konfiguration User"
'
'AxObjectListControl
'
Me.AxObjectListControl.AllowDrop = True
Me.AxObjectListControl.Dock = System.Windows.Forms.DockStyle.Fill
Me.AxObjectListControl.Enabled = True
Me.AxObjectListControl.Location = New System.Drawing.Point(0, 25)
Me.AxObjectListControl.Name = "AxObjectListControl"
Me.AxObjectListControl.OcxState = CType(resources.GetObject("AxObjectListControl.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxObjectListControl.Size = New System.Drawing.Size(1060, 287)
Me.AxObjectListControl.TabIndex = 6
Me.AxObjectListControl.TabStop = False
'
'frmForm_Constructor_Main
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -775,6 +775,9 @@ Partial Class frmForm_Constructor_Main
Me.TabDetails.ResumeLayout(False)
Me.TabWindream.ResumeLayout(False)
Me.TabWindream.PerformLayout()
CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStripDokumente.ResumeLayout(False)
Me.ToolStripDokumente.PerformLayout()
Me.TabFollowUp.ResumeLayout(False)
Me.TabFollowUp.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
@ -786,9 +789,6 @@ Partial Class frmForm_Constructor_Main
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStripDokumente.ResumeLayout(False)
Me.ToolStripDokumente.PerformLayout()
CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()

45
app/DD-Record-Organiser/frmForm_Constructor_Main.resx
View File

@ -151,9 +151,30 @@
<metadata name="StatusStrip_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="AxObjectListControl.OcxState" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB
AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEA3W0AABMeAAAAAAAACw==
</value>
</data>
<metadata name="ToolStripDokumente.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1157, 15</value>
</metadata>
<data name="ToolStripDropDownButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGcSURBVDhPrZI/SEJRFMZvFNTSIo2Bk0OtLdlYEeEgEQUR
BNHSEEmQS4iVIFgkDtWQIDTU0FJEkGDYHwr7M2SUQyDUFC0NFUEUpF/33PPe9QqSSx98vHvevd/vnXt4
4t+V6BewbdZRD9d/ig5io0Gb6lyohuutxuoQBdhtYRsg2wSYdrOtCMtuswxg2gK8r9Uj5atTaw1RodMh
4GRAB57jTg2kr5IzwSYNItPVFEQBLseBXAQ49ABJtwqmRwQewwJfUYGzMYbs+8shJUBMoLDdyp1IyKq3
9OVAp8DeqEC8S2BCBqjDz4QMtxlzIEh2Sm7ehhQkKmtrS4kgJoCcDdSWz0F18pQEbgLIRFzqsNq0RBAT
QNZXOJ+UG+leKBFEziSfaFcB0/llZ2XA64LAz5JA8cDLA5WDxP2K7CbINfm4TzvWIQc6bHRIkI8ZgQcf
D+56vpkB1A0978LsCwa9rbtK97dFEArTmp6FTReKO20oprrxPcdDpvpl0YG8v8LfaIoAkP8AXetq1oFY
DwcIdDRYJUwiAB0yTe/NNUuIXy/etxLLTTpKAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="ToolStripEdit.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>773, 15</value>
</metadata>
@ -180,28 +201,4 @@
<metadata name="ContextMenuDetails.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>995, 15</value>
</metadata>
<metadata name="ToolStripDokumente.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1157, 15</value>
</metadata>
<data name="ToolStripDropDownButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGcSURBVDhPrZI/SEJRFMZvFNTSIo2Bk0OtLdlYEeEgEQUR
BNHSEEmQS4iVIFgkDtWQIDTU0FJEkGDYHwr7M2SUQyDUFC0NFUEUpF/33PPe9QqSSx98vHvevd/vnXt4
4t+V6BewbdZRD9d/ig5io0Gb6lyohuutxuoQBdhtYRsg2wSYdrOtCMtuswxg2gK8r9Uj5atTaw1RodMh
4GRAB57jTg2kr5IzwSYNItPVFEQBLseBXAQ49ABJtwqmRwQewwJfUYGzMYbs+8shJUBMoLDdyp1IyKq3
9OVAp8DeqEC8S2BCBqjDz4QMtxlzIEh2Sm7ehhQkKmtrS4kgJoCcDdSWz0F18pQEbgLIRFzqsNq0RBAT
QNZXOJ+UG+leKBFEziSfaFcB0/llZ2XA64LAz5JA8cDLA5WDxP2K7CbINfm4TzvWIQc6bHRIkI8ZgQcf
D+56vpkB1A0978LsCwa9rbtK97dFEArTmp6FTReKO20oprrxPcdDpvpl0YG8v8LfaIoAkP8AXetq1oFY
DwcIdDRYJUwiAB0yTe/NNUuIXy/etxLLTTpKAAAAAElFTkSuQmCC
</value>
</data>
<data name="AxObjectListControl.OcxState" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB
AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAjm0AAKodAAAAAAAACw==
</value>
</data>
</root>

169
app/DD-Record-Organiser/frmForm_Constructor_Main.vb
View File

@ -22,6 +22,9 @@ Public Class frmForm_Constructor_Main
Public PARENT_RECORDID As Integer
Public thisFORMVIEW_ID As Integer
Private VIEW_ID
Private VIEW_ID_RUNTIME As Integer = -1
Public RECORD_ENABLED As Boolean = False
Public EBENE1_ENTITY
@ -135,7 +138,12 @@ Public Class frmForm_Constructor_Main
If TypeOf element Is NavButton Then
Dim btn As NavButton = TryCast(element, NavButton)
If btn.IsMain Then ResetNav()
If btn.IsMain Then
ResetNav()
ElseIf btn.Name = "NavButtonRefresh" Then
Load_Tree_View_Data()
End If
Else
Dim Entity As String = element.Tag
Dim Node = FindNode(TreeViewMain.Nodes, Entity)
@ -194,6 +202,9 @@ Public Class frmForm_Constructor_Main
' TreeView zurücksetzen
'Load_Tree_View(CONSTRUCTORID)
TreeViewMain.SelectedNode = Nothing
SetSelectedNodeStyle(TreeViewMain.Nodes)
Load_Tree_View(CURRENT_CONSTRUCTOR_ID)
End Sub
#End Region
@ -201,8 +212,9 @@ Public Class frmForm_Constructor_Main
Public Sub Init_Grid_Control()
GRID_TYPE = GridType.Tiles
GRID_TYPE_ID = 1
GridControlMain.MainView = grvwTiles
'GridControlMain.MainView = grvwTiles
End Sub
Public Sub Hide_Grid_Columns()
@ -229,7 +241,7 @@ Public Class frmForm_Constructor_Main
CURRENT_ENTITYSQL = ClassDatabase.Execute_Scalar(CURRENT_ENTITYSQL, True)
If CURRENT_ENTITYSQL = String.Empty Then
CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
GRID_TYPE = GridType.Grid
VIEW_ID = 3
GridControlMain.MainView = grvwGrid
End If
End If
@ -666,16 +678,25 @@ Public Class frmForm_Constructor_Main
Private Sub tsButtonEditMode_Click(sender As Object, e As EventArgs) Handles tsButtonEditMode.Click
If RECORD_ENABLED = False Then
RECORD_ENABLED = True
Me.pnlDetails.Enabled = True
Me.tsButtonDelete.Enabled = True
Me.tsButtonAdd.Enabled = True
Me.tsButtonSave.Enabled = True
Me.tsButtonEditMode.Text = "Bearbeiten beenden"
'Funktion zum Vollständigen load der Inhalte
ClassControlValues.LoadControlValuesList(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
Else
RECORD_ENABLED = False
Me.pnlDetails.Enabled = False
Me.tsButtonDelete.Enabled = False
Me.tsButtonAdd.Enabled = False
Me.tsButtonSave.Enabled = False
Me.tsButtonEditMode.Text = "Bearbeiten"
'Funktion nur zum load der Inhalte
ClassControlValues.UnloadControlValuesList(SELECTED_RECORD_ID, CURRENT_RECORD_ID, CtrlBuilder.AllControls)
End If
End Sub
@ -715,7 +736,7 @@ Public Class frmForm_Constructor_Main
Sub Load_Entity_Data(CurrentLevel As Integer)
Try
Me.Cursor = Cursors.WaitCursor
CURRENT_RECORD_ID = 0
Dim IS_SINGLE_RECORD As Boolean
Dim LOAD_DIRECT As Boolean
'VerknüpfungenToolStripMenuItem.Enabled = False
@ -723,20 +744,30 @@ Public Class frmForm_Constructor_Main
IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID)
LOAD_DIRECT = ClassDatabase.Execute_Scalar("SELECT LOAD_DIRECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
CURRENT_CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar("SELECT GUID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
Dim VIEW_ID = ClassDatabase.Execute_Scalar(String.Format("SELECT VIEW_ID FROM TBPMO_USER_CONSTR_VIEW_TYPE WHERE CONSTRUCTOR_DETAIL_ID = {0} AND [ENTITY_ID] = {1} AND USER_ID = {2}", CURRENT_CONSTRUCTOR_DETAIL_ID, CURRENT_FORM_ID, USER_GUID), True)
If IsNothing(VIEW_ID) Then
ClassDatabase.Execute_non_Query("INSERT INTO TBPMO_USER_CONSTR_VIEW_TYPE ([USER_ID],CONSTRUCTOR_DETAIL_ID,[ENTITY_ID]) VALUES (" & USER_GUID & "," & CURRENT_CONSTRUCTOR_DETAIL_ID & "," & CURRENT_FORM_ID & ")", True)
VIEW_ID = 1
If VIEW_ID_RUNTIME <> -1 Then
GRID_TYPE_ID = VIEW_ID_RUNTIME
Else
Dim VIEW_ID = ClassDatabase.Execute_Scalar(String.Format("SELECT VIEW_ID FROM TBPMO_USER_CONSTR_VIEW_TYPE WHERE CONSTRUCTOR_DETAIL_ID = {0} AND [ENTITY_ID] = {1} AND USER_ID = {2}", CURRENT_CONSTRUCTOR_DETAIL_ID, CURRENT_FORM_ID, USER_GUID), True)
If IsNothing(VIEW_ID) Then
ClassDatabase.Execute_non_Query("INSERT INTO TBPMO_USER_CONSTR_VIEW_TYPE ([USER_ID],CONSTRUCTOR_DETAIL_ID,[ENTITY_ID]) VALUES (" & USER_GUID & "," & CURRENT_CONSTRUCTOR_DETAIL_ID & "," & CURRENT_FORM_ID & ")", True)
VIEW_ID = 1
End If
GRID_TYPE_ID = VIEW_ID
End If
GRID_TYPE_ID = VIEW_ID
' Den GridType setzen: 1=TileView,2=Carousel,3=GridView
Select Case VIEW_ID
Select Case GRID_TYPE_ID
Case 1
GRID_TYPE = GridType.Tiles
GridControlMain.MainView = grvwTiles
Case 2
GRID_TYPE = GridType.Carousel
GridControlMain.MainView = grvwCarousel
Case 3
GRID_TYPE = GridType.Grid
GridControlMain.MainView = grvwGrid
End Select
SELECTED_RECORD_ID = 0
Dim DT As DataTable
@ -797,7 +828,7 @@ Public Class frmForm_Constructor_Main
'tslblEntity3.Visible = False
Select Case CURRENT_FORM_TYPE
Case 5
If GET_GROUP_RECORD(CURRENT_FORM_ID) = True Then
If GET_GROUP_RECORD() = True Then
EBENE2_RECID = CURRENT_RECORD_ID
End If
End Select
@ -810,7 +841,7 @@ Public Class frmForm_Constructor_Main
Case 3
Select Case CURRENT_FORM_TYPE
Case 5
If GET_GROUP_RECORD(CURRENT_FORM_ID) = True Then
If GET_GROUP_RECORD() = True Then
EBENE3_RECID = CURRENT_RECORD_ID
End If
End Select
@ -876,7 +907,7 @@ Public Class frmForm_Constructor_Main
End If
End If
' Me.pnlDetails.Enabled = False
Me.pnlDetails.Enabled = False
'Me.tsbtnshowWorkflowtasks.Enabled = False
'tsbtnRecordAdd.Enabled = True
@ -909,7 +940,7 @@ Public Class frmForm_Constructor_Main
DT_SELECTION = DTEntity
LoadGrid_Selection()
'If LOAD_DIRECT = True Then
'If LOAD_DIRECT = True Or IS_SINGLE_RECORD Then
' Dim sql1 = CURRENT_ENTITYSQL
' sql1.Replace("T.*", "TOP 1 [Record-ID]")
' Dim id = ClassDatabase.Execute_Scalar(sql1, True)
@ -917,9 +948,6 @@ Public Class frmForm_Constructor_Main
' If LogErrorsOnly = False Then ClassLogger.Add(">> Load Record directly - RecordID: " & CURRENT_RECORD_ID, False)
' Load_Record_Data()
' End If
'Else
'End If
'Überprüfen ob es für diese Entität Wiedervorlagen gibt?
'Check_FOLLOWUP_IsConfigured(CURRENT_FORM_ID)
@ -1040,20 +1068,21 @@ Public Class frmForm_Constructor_Main
End Sub
Private Function GET_GROUP_RECORD(FORM_ID As Integer)
Dim sqlRecord As String = "select guid from TBPMO_RECORD where Form_ID = " & FORM_ID
Private Function GET_GROUP_RECORD()
Dim sqlRecord As String = "SELECT RECORD2_ID FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_PARENTID
Dim recid = ClassDatabase.Execute_Scalar(sqlRecord, True)
If IsNothing(recid) Then
If ClassControlCommandsUI.CreateRecord(FORM_ID) = True Then
If ClassControlCommandsUI.CreateRecord(CURRENT_FORM_ID) = True Then
recid = ClassControlCommandsUI.GetLastRecord
If IsNothing(recid) Then
If Not IsNothing(recid) Then
'Die neue Record-ID setzen
CURRENT_RECORD_ID = recid
ClassControlCommandsUI.ConnectRecord(CURRENT_PARENTID, CURRENT_RECORD_ID, "Group-Entity Link")
Else
Return False
End If
Else
Return False
End If
Else
@ -1065,6 +1094,11 @@ Public Class frmForm_Constructor_Main
Return False
End Try
End If
Dim SQL1 As String = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_PARENTID & " AND RECORD2_ID = " & CURRENT_RECORD_ID
If ClassDatabase.Execute_Scalar(SQL1) = 0 Then
ClassControlCommandsUI.ConnectRecord(CURRENT_PARENTID, CURRENT_RECORD_ID)
End If
Update_Record_Label(CURRENT_RECORD_ID)
Return True
End Function
@ -1094,14 +1128,6 @@ Public Class frmForm_Constructor_Main
GridControlMain.DataSource = BindingSource_Entity
'grvwTiles.ColumnSet.BackgroundImageColumn = grvwTiles.Columns("Column2")
'Dim tileViewItemElement As New TileViewItemElement()
'tileViewItemElement.Column = grvwTiles.Columns("Column1")
'tileViewItemElement.ImageBorderColor = System.Drawing.Color.Empty
'tileViewItemElement.Text = "element1"
'grvwTiles.TileTemplate.Add(tileViewItemElement)
' Den Editor Initialisieren und Optionen setzen
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = 1
@ -1134,28 +1160,31 @@ Public Class frmForm_Constructor_Main
Return True
End Function
Sub HideColumns()
Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & CURRENT_FORM_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
If GRID_TYPE = GridType.Grid Then
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGrid.Columns
Try
Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & CURRENT_FORM_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
If GRID_TYPE = GridType.Grid Then
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGrid.Columns
If DT.Rows.Count <> 0 Then
' Alle Spalten, die ausgeblendet werden sollten durchgehen und Visible = False
For Each row As DataRow In DT.Rows
Dim colname As String = row.Item("CONTROL_COL_NAME")
Dim col As DevExpress.XtraGrid.Columns.GridColumn = grvwGrid.Columns.Item(colname)
If DT.Rows.Count <> 0 Then
' Alle Spalten, die ausgeblendet werden sollten durchgehen und Visible = False
For Each row As DataRow In DT.Rows
Dim colname As String = row.Item("CONTROL_COL_NAME")
Dim col As DevExpress.XtraGrid.Columns.GridColumn = grvwGrid.Columns.Item(colname)
If Not IsNothing(col) Then
col.Visible = False
End If
Next
End If
' FormID und RecordID immer ausblenden
grvwGrid.Columns.Item("Record-ID").Visible = False
grvwGrid.Columns.Item("Form-ID").Visible = False
End If
If Not IsNothing(col) Then
col.Visible = False
End If
Next
End If
' FormID und RecordID immer ausblenden
grvwGrid.Columns.Item("Record-ID").Visible = False
grvwGrid.Columns.Item("Form-ID").Visible = False
End If
Catch ex As Exception
MsgBox("Error in HideColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Show_Selected_Record_Data(GridColumn_String As String, Optional DirectRecID As Integer = 0)
Try
@ -1165,7 +1194,7 @@ Public Class frmForm_Constructor_Main
If LogErrorsOnly = False Then ClassLogger.Add(">> Record wird über Datagrid focusedRow geladen", False)
'Überhaupt Columns in Grid?
If Get_Grid_Column_Count() = 0 Then
'Me.pnlDetails.Enabled = False
Me.pnlDetails.Enabled = False
'Me.tsbtnshowWorkflowtasks.Enabled = False
'tsstatus_Detail_show(True, "Keine Columns in Grid")
@ -1261,7 +1290,6 @@ Public Class frmForm_Constructor_Main
'Me.pnlDetails.Enabled = True
'Me.tsbtnshowWorkflowtasks.Enabled = True
'Me.tsbtnshowTaskoverview.Enabled = True
'tsstatus_Detail_show(False, "")
@ -1272,8 +1300,8 @@ Public Class frmForm_Constructor_Main
End Sub
Function Get_GridResult(Columnname As String)
Dim result As String = Get_Focused_Row_Cell_Value(Columnname)
If result = String.Empty Then
Dim result = Get_Focused_Row_Cell_Value(Columnname)
If IsDBNull(result) OrElse result = "" Then
Return "No Column configured"
Else
Return result
@ -1283,7 +1311,7 @@ Public Class frmForm_Constructor_Main
Function GetSelected_RecordID()
Try
If Get_Grid_Column_Count() = 0 Then
'Me.pnlDetails.Enabled = False
Me.pnlDetails.Enabled = False
'Me.tsbtnshowWorkflowtasks.Enabled = False
'tsstatus_Detail_show(True, "Keine Columns in Grid")
Return Nothing
@ -1375,13 +1403,6 @@ Public Class frmForm_Constructor_Main
End Try
End Sub
Private Sub NavButtonRefresh_ElementClick(sender As Object, e As NavElementEventArgs) Handles NavButtonRefresh.ElementClick
Load_Tree_View_Data()
End Sub
Private Sub NavButtonHome_ElementClick(sender As Object, e As NavElementEventArgs) Handles NavButtonHome.ElementClick
Load_Tree_View(CURRENT_CONSTRUCTOR_ID)
End Sub
#Region "WindreamSuche"
Private Function Check_windream_Show(FORM_VIEW_ID As Integer)
Try
@ -1505,8 +1526,6 @@ Public Class frmForm_Constructor_Main
Dim _sp4 = SP4
Dim _sp5 = SP5
If _sp1.ToString <> String.Empty Then
_sp1 = Return_SearchPattern(_sp1.ToString)
fileContents = fileContents.Replace("%pattern1%", _sp1)
@ -1514,21 +1533,33 @@ Public Class frmForm_Constructor_Main
End If
If _sp2.ToString <> String.Empty Then
_sp2 = Return_SearchPattern(_sp2.ToString)
If _sp2 = 0 Then
_sp2 = ""
End If
fileContents = fileContents.Replace("%pattern2%", _sp2)
fileContents = fileContents.Replace("471102", _sp2)
End If
If _sp3.ToString <> String.Empty Then
_sp3 = Return_SearchPattern(_sp3.ToString)
If _sp3 = 0 Then
_sp3 = ""
End If
fileContents = fileContents.Replace("%pattern3%", _sp3)
fileContents = fileContents.Replace("471103", _sp3)
End If
If _sp4.ToString <> String.Empty Then
_sp4 = Return_SearchPattern(_sp4.ToString)
If _sp4 = 0 Then
_sp4 = ""
End If
fileContents = fileContents.Replace("%pattern4%", _sp4)
fileContents = fileContents.Replace("471104", _sp4)
End If
If _sp5.ToString <> String.Empty Then
_sp5 = Return_SearchPattern(_sp5.ToString)
If _sp5 = 0 Then
_sp5 = ""
End If
fileContents = fileContents.Replace("%pattern5%", _sp5)
fileContents = fileContents.Replace("471105", _sp5)
End If
@ -1703,6 +1734,7 @@ Public Class frmForm_Constructor_Main
#Region "GridViews"
Private Sub ButtonQuickViewCarousel_Click(sender As Object, e As EventArgs) Handles ButtonQuickViewCarousel.Click
GRID_TYPE = GridType.Carousel
VIEW_ID_RUNTIME = 2
GRID_TYPE_ID = 2
grvwCarousel.OptionsView.ViewMode = DevExpress.XtraGrid.Views.Layout.LayoutViewMode.Carousel
GridControlMain.MainView = grvwCarousel
@ -1712,6 +1744,7 @@ Public Class frmForm_Constructor_Main
Private Sub ButtonQuickViewTiles_Click(sender As Object, e As EventArgs) Handles ButtonQuickViewTiles.Click
GRID_TYPE = GridType.Tiles
VIEW_ID_RUNTIME = 1
GRID_TYPE_ID = 1
GridControlMain.MainView = grvwTiles
@ -1720,6 +1753,7 @@ Public Class frmForm_Constructor_Main
Private Sub ButtonDetailView_Click(sender As Object, e As EventArgs) Handles ButtonDetailView.Click
GRID_TYPE = GridType.Grid
VIEW_ID_RUNTIME = 3
GRID_TYPE_ID = 3
GridControlMain.MainView = grvwGrid
@ -1741,6 +1775,8 @@ Public Class frmForm_Constructor_Main
End Select
Dim upd = String.Format("UPDATE TBPMO_USER_CONSTR_VIEW_TYPE SET VIEW_ID = {0} WHERE CONSTRUCTOR_DETAIL_ID = {1} AND [ENTITY_ID] = {2} AND USER_ID = {3}", VIEWTYPE_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, CURRENT_FORM_ID, USER_GUID)
If ClassDatabase.Execute_non_Query(upd, True) = True Then
' VIEW_ID Override zurücksetzen!!
VIEW_ID_RUNTIME = -1
MsgBox("Stanard-View was saved successfully!", MsgBoxStyle.Information)
End If
@ -1763,7 +1799,12 @@ Public Class frmForm_Constructor_Main
'Refresh_CreatedChangedRecordByID(CURRENT_RECORD_ID)
' RECORD_CHANGED = False
Case 1 'windream-Dokumente
RUN_WD_SEARCH(WD_Suche, "RECORD")
If CURRENT_RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY")
Else
RUN_WD_SEARCH(WD_Suche, "RECORD")
End If
Case 2
' Refresh_FollowUps()
End Select