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

Merge branch 'master' of http://scmadmin@172.24.11.74:90/scm/git/record_organizer

Browse Source
This commit is contained in:
SchreiberM 2015-11-13 15:51:32 +01:00
commit f18cbfc630
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) If LogErrorsOnly = False Then ClassLogger.Add(">> ConnectRecord SQL: " & SQL, False)
Return ClassDatabase.Execute_non_Query(SQL, True) Return ClassDatabase.Execute_non_Query(SQL, True)
End Function 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 End Class

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

@ -74,7 +74,10 @@ Public Class ClassControlValues
radio.Checked = CBool(result) radio.Checked = CBool(result)
Case 3 ' ComboBox Case 3 ' ComboBox
Dim combobox As ComboBox = DirectCast(control, ComboBox) Dim combobox As ComboBox = DirectCast(control, ComboBox)
'combobox.DataSource = Nothing
'combobox.Text = result
If combobox.SelectedIndex = -1 Then If combobox.SelectedIndex = -1 Then
combobox.DataSource = Nothing
combobox.Text = result combobox.Text = result
Else Else
combobox.SelectedIndex = combobox.FindStringExact(result) combobox.SelectedIndex = combobox.FindStringExact(result)
@ -247,6 +250,59 @@ Public Class ClassControlValues
End Sub 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) Public Shared Sub LoadImage(RecordID As Integer, ControlID As Integer, control As Control)
Dim picbox As PictureBox = DirectCast(control, PictureBox) 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) 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()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode4 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)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmForm_Constructor_Main))
Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView() Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridControlMain = New DevExpress.XtraGrid.GridControl() Me.GridControlMain = New DevExpress.XtraGrid.GridControl()
@ -56,6 +56,11 @@ Partial Class frmForm_Constructor_Main
Me.TabDetails = New DevExpress.XtraTab.XtraTabPage() Me.TabDetails = New DevExpress.XtraTab.XtraTabPage()
Me.pnlDetails = New System.Windows.Forms.Panel() Me.pnlDetails = New System.Windows.Forms.Panel()
Me.TabWindream = New DevExpress.XtraTab.XtraTabPage() 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.TabFollowUp = New DevExpress.XtraTab.XtraTabPage()
Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.GroupBox4 = 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.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
Me.ttToolTip = New System.Windows.Forms.ToolTip(Me.components) Me.ttToolTip = New System.Windows.Forms.ToolTip(Me.components)
Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip(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.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuGrid.SuspendLayout() Me.ContextMenuGrid.SuspendLayout()
@ -112,6 +112,8 @@ Partial Class frmForm_Constructor_Main
Me.TCDetails.SuspendLayout() Me.TCDetails.SuspendLayout()
Me.TabDetails.SuspendLayout() Me.TabDetails.SuspendLayout()
Me.TabWindream.SuspendLayout() Me.TabWindream.SuspendLayout()
CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripDokumente.SuspendLayout()
Me.TabFollowUp.SuspendLayout() Me.TabFollowUp.SuspendLayout()
Me.GroupBox3.SuspendLayout() Me.GroupBox3.SuspendLayout()
Me.GroupBox4.SuspendLayout() Me.GroupBox4.SuspendLayout()
@ -119,8 +121,6 @@ Partial Class frmForm_Constructor_Main
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripDokumente.SuspendLayout()
CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'grvwGrid 'grvwGrid
@ -147,15 +147,15 @@ Partial Class frmForm_Constructor_Main
Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid
Me.GridControlMain.Dock = System.Windows.Forms.DockStyle.Fill 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)) 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 GridLevelNode1.LevelTemplate = Me.grvwGrid
GridLevelNode3.RelationName = "Level1" GridLevelNode1.RelationName = "Level1"
GridLevelNode4.LevelTemplate = Me.grvwCarousel GridLevelNode2.LevelTemplate = Me.grvwCarousel
GridLevelNode4.RelationName = "Level2" GridLevelNode2.RelationName = "Level2"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3, GridLevelNode4}) Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2})
Me.GridControlMain.Location = New System.Drawing.Point(0, 0) Me.GridControlMain.Location = New System.Drawing.Point(0, 0)
Me.GridControlMain.MainView = Me.grvwTiles Me.GridControlMain.MainView = Me.grvwTiles
Me.GridControlMain.Name = "GridControlMain" 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.TabIndex = 0
Me.GridControlMain.UseEmbeddedNavigator = True Me.GridControlMain.UseEmbeddedNavigator = True
Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwCarousel, Me.grvwTiles, Me.grvwGrid}) 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.Controls.Add(Me.ToolStripEdit)
Me.SplitContainerBottom.Panel1.Text = "Panel1" Me.SplitContainerBottom.Panel1.Text = "Panel1"
Me.SplitContainerBottom.Panel2.Text = "Panel2" 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.SplitterPosition = 448
Me.SplitContainerBottom.TabIndex = 0 Me.SplitContainerBottom.TabIndex = 0
Me.SplitContainerBottom.Text = "SplitContainerControl1" Me.SplitContainerBottom.Text = "SplitContainerControl1"
@ -384,7 +384,7 @@ Partial Class frmForm_Constructor_Main
Me.TCDetails.Location = New System.Drawing.Point(0, 25) Me.TCDetails.Location = New System.Drawing.Point(0, 25)
Me.TCDetails.Name = "TCDetails" Me.TCDetails.Name = "TCDetails"
Me.TCDetails.SelectedTabPage = Me.TabDetails 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.TabIndex = 1
Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp}) 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.Controls.Add(Me.pnlDetails)
Me.TabDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD Me.TabDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD
Me.TabDetails.Name = "TabDetails" 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" Me.TabDetails.Text = "Detailansicht"
' '
'pnlDetails 'pnlDetails
@ -401,7 +401,7 @@ Partial Class frmForm_Constructor_Main
Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlDetails.Location = New System.Drawing.Point(0, 0) Me.pnlDetails.Location = New System.Drawing.Point(0, 0)
Me.pnlDetails.Name = "pnlDetails" 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 Me.pnlDetails.TabIndex = 0
' '
'TabWindream 'TabWindream
@ -410,9 +410,53 @@ Partial Class frmForm_Constructor_Main
Me.TabWindream.Controls.Add(Me.ToolStripDokumente) Me.TabWindream.Controls.Add(Me.ToolStripDokumente)
Me.TabWindream.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954 Me.TabWindream.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954
Me.TabWindream.Name = "TabWindream" 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" 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 'TabFollowUp
' '
Me.TabFollowUp.Controls.Add(Me.GroupBox3) Me.TabFollowUp.Controls.Add(Me.GroupBox3)
@ -420,7 +464,7 @@ Partial Class frmForm_Constructor_Main
Me.TabFollowUp.Controls.Add(Me.ListViewFollowUp) Me.TabFollowUp.Controls.Add(Me.ListViewFollowUp)
Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
Me.TabFollowUp.Name = "TabFollowUp" 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" Me.TabFollowUp.Text = "Wiedervorlage"
' '
'GroupBox3 '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.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.Location = New System.Drawing.Point(0, 0)
Me.ToolStripEdit.Name = "ToolStripEdit" 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.TabIndex = 0
Me.ToolStripEdit.Text = "ToolStrip1" Me.ToolStripEdit.Text = "ToolStrip1"
' '
@ -703,50 +747,6 @@ Partial Class frmForm_Constructor_Main
Me.ContextMenuDetails.Name = "ContextMenuDetails" Me.ContextMenuDetails.Name = "ContextMenuDetails"
Me.ContextMenuDetails.Size = New System.Drawing.Size(61, 4) 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 'frmForm_Constructor_Main
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -775,6 +775,9 @@ Partial Class frmForm_Constructor_Main
Me.TabDetails.ResumeLayout(False) Me.TabDetails.ResumeLayout(False)
Me.TabWindream.ResumeLayout(False) Me.TabWindream.ResumeLayout(False)
Me.TabWindream.PerformLayout() Me.TabWindream.PerformLayout()
CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStripDokumente.ResumeLayout(False)
Me.ToolStripDokumente.PerformLayout()
Me.TabFollowUp.ResumeLayout(False) Me.TabFollowUp.ResumeLayout(False)
Me.TabFollowUp.PerformLayout() Me.TabFollowUp.PerformLayout()
Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.ResumeLayout(False)
@ -786,9 +789,6 @@ Partial Class frmForm_Constructor_Main
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ImageCollection1, 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.ResumeLayout(False)
Me.PerformLayout() 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"> <metadata name="StatusStrip_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </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"> <metadata name="ToolStripDokumente.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1157, 15</value> <value>1157, 15</value>
</metadata> </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"> <metadata name="ToolStripEdit.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>773, 15</value> <value>773, 15</value>
</metadata> </metadata>
@ -180,28 +201,4 @@
<metadata name="ContextMenuDetails.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuDetails.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>995, 15</value> <value>995, 15</value>
</metadata> </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> </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 PARENT_RECORDID As Integer
Public thisFORMVIEW_ID As Integer Public thisFORMVIEW_ID As Integer
Private VIEW_ID
Private VIEW_ID_RUNTIME As Integer = -1
Public RECORD_ENABLED As Boolean = False Public RECORD_ENABLED As Boolean = False
Public EBENE1_ENTITY Public EBENE1_ENTITY
@ -135,7 +138,12 @@ Public Class frmForm_Constructor_Main
If TypeOf element Is NavButton Then If TypeOf element Is NavButton Then
Dim btn As NavButton = TryCast(element, NavButton) 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 Else
Dim Entity As String = element.Tag Dim Entity As String = element.Tag
Dim Node = FindNode(TreeViewMain.Nodes, Entity) Dim Node = FindNode(TreeViewMain.Nodes, Entity)
@ -194,6 +202,9 @@ Public Class frmForm_Constructor_Main
' TreeView zurücksetzen ' TreeView zurücksetzen
'Load_Tree_View(CONSTRUCTORID) 'Load_Tree_View(CONSTRUCTORID)
TreeViewMain.SelectedNode = Nothing TreeViewMain.SelectedNode = Nothing
SetSelectedNodeStyle(TreeViewMain.Nodes)
Load_Tree_View(CURRENT_CONSTRUCTOR_ID)
End Sub End Sub
#End Region #End Region
@ -201,8 +212,9 @@ Public Class frmForm_Constructor_Main
Public Sub Init_Grid_Control() Public Sub Init_Grid_Control()
GRID_TYPE = GridType.Tiles
GRID_TYPE_ID = 1
GridControlMain.MainView = grvwTiles GridControlMain.MainView = grvwTiles
'GridControlMain.MainView = grvwTiles
End Sub End Sub
Public Sub Hide_Grid_Columns() Public Sub Hide_Grid_Columns()
@ -229,7 +241,7 @@ Public Class frmForm_Constructor_Main
CURRENT_ENTITYSQL = ClassDatabase.Execute_Scalar(CURRENT_ENTITYSQL, True) CURRENT_ENTITYSQL = ClassDatabase.Execute_Scalar(CURRENT_ENTITYSQL, True)
If CURRENT_ENTITYSQL = String.Empty Then If CURRENT_ENTITYSQL = String.Empty Then
CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T" CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
GRID_TYPE = GridType.Grid VIEW_ID = 3
GridControlMain.MainView = grvwGrid GridControlMain.MainView = grvwGrid
End If End If
End If End If
@ -669,16 +681,25 @@ Public Class frmForm_Constructor_Main
Private Sub tsButtonEditMode_Click(sender As Object, e As EventArgs) Handles tsButtonEditMode.Click Private Sub tsButtonEditMode_Click(sender As Object, e As EventArgs) Handles tsButtonEditMode.Click
If RECORD_ENABLED = False Then If RECORD_ENABLED = False Then
RECORD_ENABLED = True RECORD_ENABLED = True
Me.pnlDetails.Enabled = True
Me.tsButtonDelete.Enabled = True Me.tsButtonDelete.Enabled = True
Me.tsButtonAdd.Enabled = True Me.tsButtonAdd.Enabled = True
Me.tsButtonSave.Enabled = True Me.tsButtonSave.Enabled = True
Me.tsButtonEditMode.Text = "Bearbeiten beenden"
'Funktion zum Vollständigen load der Inhalte 'Funktion zum Vollständigen load der Inhalte
ClassControlValues.LoadControlValuesList(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
Else Else
RECORD_ENABLED = False RECORD_ENABLED = False
Me.pnlDetails.Enabled = False
Me.tsButtonDelete.Enabled = False Me.tsButtonDelete.Enabled = False
Me.tsButtonAdd.Enabled = False Me.tsButtonAdd.Enabled = False
Me.tsButtonSave.Enabled = False Me.tsButtonSave.Enabled = False
Me.tsButtonEditMode.Text = "Bearbeiten"
'Funktion nur zum load der Inhalte 'Funktion nur zum load der Inhalte
ClassControlValues.UnloadControlValuesList(SELECTED_RECORD_ID, CURRENT_RECORD_ID, CtrlBuilder.AllControls)
End If End If
End Sub End Sub
@ -718,7 +739,7 @@ Public Class frmForm_Constructor_Main
Sub Load_Entity_Data(CurrentLevel As Integer) Sub Load_Entity_Data(CurrentLevel As Integer)
Try Try
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
CURRENT_RECORD_ID = 0
Dim IS_SINGLE_RECORD As Boolean Dim IS_SINGLE_RECORD As Boolean
Dim LOAD_DIRECT As Boolean Dim LOAD_DIRECT As Boolean
'VerknüpfungenToolStripMenuItem.Enabled = False 'VerknüpfungenToolStripMenuItem.Enabled = False
@ -726,20 +747,30 @@ Public Class frmForm_Constructor_Main
IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID) 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) 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) 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) If VIEW_ID_RUNTIME <> -1 Then
VIEW_ID = 1 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 End If
GRID_TYPE_ID = VIEW_ID
' Den GridType setzen: 1=TileView,2=Carousel,3=GridView ' Den GridType setzen: 1=TileView,2=Carousel,3=GridView
Select Case VIEW_ID Select Case GRID_TYPE_ID
Case 1 Case 1
GRID_TYPE = GridType.Tiles GRID_TYPE = GridType.Tiles
GridControlMain.MainView = grvwTiles
Case 2 Case 2
GRID_TYPE = GridType.Carousel GRID_TYPE = GridType.Carousel
GridControlMain.MainView = grvwCarousel
Case 3 Case 3
GRID_TYPE = GridType.Grid GRID_TYPE = GridType.Grid
GridControlMain.MainView = grvwGrid
End Select End Select
SELECTED_RECORD_ID = 0 SELECTED_RECORD_ID = 0
Dim DT As DataTable Dim DT As DataTable
@ -800,7 +831,7 @@ Public Class frmForm_Constructor_Main
'tslblEntity3.Visible = False 'tslblEntity3.Visible = False
Select Case CURRENT_FORM_TYPE Select Case CURRENT_FORM_TYPE
Case 5 Case 5
If GET_GROUP_RECORD(CURRENT_FORM_ID) = True Then If GET_GROUP_RECORD() = True Then
EBENE2_RECID = CURRENT_RECORD_ID EBENE2_RECID = CURRENT_RECORD_ID
End If End If
End Select End Select
@ -813,7 +844,7 @@ Public Class frmForm_Constructor_Main
Case 3 Case 3
Select Case CURRENT_FORM_TYPE Select Case CURRENT_FORM_TYPE
Case 5 Case 5
If GET_GROUP_RECORD(CURRENT_FORM_ID) = True Then If GET_GROUP_RECORD() = True Then
EBENE3_RECID = CURRENT_RECORD_ID EBENE3_RECID = CURRENT_RECORD_ID
End If End If
End Select End Select
@ -879,7 +910,7 @@ Public Class frmForm_Constructor_Main
End If End If
End If End If
' Me.pnlDetails.Enabled = False Me.pnlDetails.Enabled = False
'Me.tsbtnshowWorkflowtasks.Enabled = False 'Me.tsbtnshowWorkflowtasks.Enabled = False
'tsbtnRecordAdd.Enabled = True 'tsbtnRecordAdd.Enabled = True
@ -912,7 +943,7 @@ Public Class frmForm_Constructor_Main
DT_SELECTION = DTEntity DT_SELECTION = DTEntity
LoadGrid_Selection() LoadGrid_Selection()
'If LOAD_DIRECT = True Then 'If LOAD_DIRECT = True Or IS_SINGLE_RECORD Then
' Dim sql1 = CURRENT_ENTITYSQL ' Dim sql1 = CURRENT_ENTITYSQL
' sql1.Replace("T.*", "TOP 1 [Record-ID]") ' sql1.Replace("T.*", "TOP 1 [Record-ID]")
' Dim id = ClassDatabase.Execute_Scalar(sql1, True) ' Dim id = ClassDatabase.Execute_Scalar(sql1, True)
@ -920,9 +951,6 @@ Public Class frmForm_Constructor_Main
' If LogErrorsOnly = False Then ClassLogger.Add(">> Load Record directly - RecordID: " & CURRENT_RECORD_ID, False) ' If LogErrorsOnly = False Then ClassLogger.Add(">> Load Record directly - RecordID: " & CURRENT_RECORD_ID, False)
' Load_Record_Data() ' Load_Record_Data()
' End If ' End If
'Else
'End If 'End If
'Überprüfen ob es für diese Entität Wiedervorlagen gibt? 'Überprüfen ob es für diese Entität Wiedervorlagen gibt?
'Check_FOLLOWUP_IsConfigured(CURRENT_FORM_ID) 'Check_FOLLOWUP_IsConfigured(CURRENT_FORM_ID)
@ -1043,20 +1071,21 @@ Public Class frmForm_Constructor_Main
End Sub End Sub
Private Function GET_GROUP_RECORD(FORM_ID As Integer) Private Function GET_GROUP_RECORD()
Dim sqlRecord As String = "select guid from TBPMO_RECORD where Form_ID = " & FORM_ID Dim sqlRecord As String = "SELECT RECORD2_ID FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_PARENTID
Dim recid = ClassDatabase.Execute_Scalar(sqlRecord, True) Dim recid = ClassDatabase.Execute_Scalar(sqlRecord, True)
If IsNothing(recid) Then If IsNothing(recid) Then
If ClassControlCommandsUI.CreateRecord(FORM_ID) = True Then If ClassControlCommandsUI.CreateRecord(CURRENT_FORM_ID) = True Then
recid = ClassControlCommandsUI.GetLastRecord recid = ClassControlCommandsUI.GetLastRecord
If IsNothing(recid) Then If Not IsNothing(recid) Then
'Die neue Record-ID setzen
CURRENT_RECORD_ID = recid CURRENT_RECORD_ID = recid
ClassControlCommandsUI.ConnectRecord(CURRENT_PARENTID, CURRENT_RECORD_ID, "Group-Entity Link") ClassControlCommandsUI.ConnectRecord(CURRENT_PARENTID, CURRENT_RECORD_ID, "Group-Entity Link")
Else Else
Return False Return False
End If End If
Else Else
Return False Return False
End If End If
Else Else
@ -1068,6 +1097,11 @@ Public Class frmForm_Constructor_Main
Return False Return False
End Try End Try
End If 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) Update_Record_Label(CURRENT_RECORD_ID)
Return True Return True
End Function End Function
@ -1097,14 +1131,6 @@ Public Class frmForm_Constructor_Main
GridControlMain.DataSource = BindingSource_Entity 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 ' Den Editor Initialisieren und Optionen setzen
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit() Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = 1 CheckBoxEditorForDisplay.ValueChecked = 1
@ -1137,28 +1163,31 @@ Public Class frmForm_Constructor_Main
Return True Return True
End Function End Function
Sub HideColumns() 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 Try
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL) 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
If GRID_TYPE = GridType.Grid Then Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGrid.Columns If GRID_TYPE = GridType.Grid Then
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGrid.Columns
If DT.Rows.Count <> 0 Then If DT.Rows.Count <> 0 Then
' Alle Spalten, die ausgeblendet werden sollten durchgehen und Visible = False ' Alle Spalten, die ausgeblendet werden sollten durchgehen und Visible = False
For Each row As DataRow In DT.Rows For Each row As DataRow In DT.Rows
Dim colname As String = row.Item("CONTROL_COL_NAME") Dim colname As String = row.Item("CONTROL_COL_NAME")
Dim col As DevExpress.XtraGrid.Columns.GridColumn = grvwGrid.Columns.Item(colname) Dim col As DevExpress.XtraGrid.Columns.GridColumn = grvwGrid.Columns.Item(colname)
If Not IsNothing(col) Then If Not IsNothing(col) Then
col.Visible = False col.Visible = False
End If End If
Next Next
End If End If
' FormID und RecordID immer ausblenden
grvwGrid.Columns.Item("Record-ID").Visible = False
grvwGrid.Columns.Item("Form-ID").Visible = False
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 End Sub
Sub Show_Selected_Record_Data(GridColumn_String As String, Optional DirectRecID As Integer = 0) Sub Show_Selected_Record_Data(GridColumn_String As String, Optional DirectRecID As Integer = 0)
Try Try
@ -1168,7 +1197,7 @@ Public Class frmForm_Constructor_Main
If LogErrorsOnly = False Then ClassLogger.Add(">> Record wird über Datagrid focusedRow geladen", False) If LogErrorsOnly = False Then ClassLogger.Add(">> Record wird über Datagrid focusedRow geladen", False)
'Überhaupt Columns in Grid? 'Überhaupt Columns in Grid?
If Get_Grid_Column_Count() = 0 Then If Get_Grid_Column_Count() = 0 Then
'Me.pnlDetails.Enabled = False Me.pnlDetails.Enabled = False
'Me.tsbtnshowWorkflowtasks.Enabled = False 'Me.tsbtnshowWorkflowtasks.Enabled = False
'tsstatus_Detail_show(True, "Keine Columns in Grid") 'tsstatus_Detail_show(True, "Keine Columns in Grid")
@ -1264,7 +1293,6 @@ Public Class frmForm_Constructor_Main
'Me.pnlDetails.Enabled = True
'Me.tsbtnshowWorkflowtasks.Enabled = True 'Me.tsbtnshowWorkflowtasks.Enabled = True
'Me.tsbtnshowTaskoverview.Enabled = True 'Me.tsbtnshowTaskoverview.Enabled = True
'tsstatus_Detail_show(False, "") 'tsstatus_Detail_show(False, "")
@ -1275,8 +1303,8 @@ Public Class frmForm_Constructor_Main
End Sub End Sub
Function Get_GridResult(Columnname As String) Function Get_GridResult(Columnname As String)
Dim result As String = Get_Focused_Row_Cell_Value(Columnname) Dim result = Get_Focused_Row_Cell_Value(Columnname)
If result = String.Empty Then If IsDBNull(result) OrElse result = "" Then
Return "No Column configured" Return "No Column configured"
Else Else
Return result Return result
@ -1286,7 +1314,7 @@ Public Class frmForm_Constructor_Main
Function GetSelected_RecordID() Function GetSelected_RecordID()
Try Try
If Get_Grid_Column_Count() = 0 Then If Get_Grid_Column_Count() = 0 Then
'Me.pnlDetails.Enabled = False Me.pnlDetails.Enabled = False
'Me.tsbtnshowWorkflowtasks.Enabled = False 'Me.tsbtnshowWorkflowtasks.Enabled = False
'tsstatus_Detail_show(True, "Keine Columns in Grid") 'tsstatus_Detail_show(True, "Keine Columns in Grid")
Return Nothing Return Nothing
@ -1378,13 +1406,6 @@ Public Class frmForm_Constructor_Main
End Try End Try
End Sub 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" #Region "WindreamSuche"
Private Function Check_windream_Show(FORM_VIEW_ID As Integer) Private Function Check_windream_Show(FORM_VIEW_ID As Integer)
Try Try
@ -1508,8 +1529,6 @@ Public Class frmForm_Constructor_Main
Dim _sp4 = SP4 Dim _sp4 = SP4
Dim _sp5 = SP5 Dim _sp5 = SP5
If _sp1.ToString <> String.Empty Then If _sp1.ToString <> String.Empty Then
_sp1 = Return_SearchPattern(_sp1.ToString) _sp1 = Return_SearchPattern(_sp1.ToString)
fileContents = fileContents.Replace("%pattern1%", _sp1) fileContents = fileContents.Replace("%pattern1%", _sp1)
@ -1517,21 +1536,33 @@ Public Class frmForm_Constructor_Main
End If End If
If _sp2.ToString <> String.Empty Then If _sp2.ToString <> String.Empty Then
_sp2 = Return_SearchPattern(_sp2.ToString) _sp2 = Return_SearchPattern(_sp2.ToString)
If _sp2 = 0 Then
_sp2 = ""
End If
fileContents = fileContents.Replace("%pattern2%", _sp2) fileContents = fileContents.Replace("%pattern2%", _sp2)
fileContents = fileContents.Replace("471102", _sp2) fileContents = fileContents.Replace("471102", _sp2)
End If End If
If _sp3.ToString <> String.Empty Then If _sp3.ToString <> String.Empty Then
_sp3 = Return_SearchPattern(_sp3.ToString) _sp3 = Return_SearchPattern(_sp3.ToString)
If _sp3 = 0 Then
_sp3 = ""
End If
fileContents = fileContents.Replace("%pattern3%", _sp3) fileContents = fileContents.Replace("%pattern3%", _sp3)
fileContents = fileContents.Replace("471103", _sp3) fileContents = fileContents.Replace("471103", _sp3)
End If End If
If _sp4.ToString <> String.Empty Then If _sp4.ToString <> String.Empty Then
_sp4 = Return_SearchPattern(_sp4.ToString) _sp4 = Return_SearchPattern(_sp4.ToString)
If _sp4 = 0 Then
_sp4 = ""
End If
fileContents = fileContents.Replace("%pattern4%", _sp4) fileContents = fileContents.Replace("%pattern4%", _sp4)
fileContents = fileContents.Replace("471104", _sp4) fileContents = fileContents.Replace("471104", _sp4)
End If End If
If _sp5.ToString <> String.Empty Then If _sp5.ToString <> String.Empty Then
_sp5 = Return_SearchPattern(_sp5.ToString) _sp5 = Return_SearchPattern(_sp5.ToString)
If _sp5 = 0 Then
_sp5 = ""
End If
fileContents = fileContents.Replace("%pattern5%", _sp5) fileContents = fileContents.Replace("%pattern5%", _sp5)
fileContents = fileContents.Replace("471105", _sp5) fileContents = fileContents.Replace("471105", _sp5)
End If End If
@ -1706,6 +1737,7 @@ Public Class frmForm_Constructor_Main
#Region "GridViews" #Region "GridViews"
Private Sub ButtonQuickViewCarousel_Click(sender As Object, e As EventArgs) Handles ButtonQuickViewCarousel.Click Private Sub ButtonQuickViewCarousel_Click(sender As Object, e As EventArgs) Handles ButtonQuickViewCarousel.Click
GRID_TYPE = GridType.Carousel GRID_TYPE = GridType.Carousel
VIEW_ID_RUNTIME = 2
GRID_TYPE_ID = 2 GRID_TYPE_ID = 2
grvwCarousel.OptionsView.ViewMode = DevExpress.XtraGrid.Views.Layout.LayoutViewMode.Carousel grvwCarousel.OptionsView.ViewMode = DevExpress.XtraGrid.Views.Layout.LayoutViewMode.Carousel
GridControlMain.MainView = grvwCarousel GridControlMain.MainView = grvwCarousel
@ -1715,6 +1747,7 @@ Public Class frmForm_Constructor_Main
Private Sub ButtonQuickViewTiles_Click(sender As Object, e As EventArgs) Handles ButtonQuickViewTiles.Click Private Sub ButtonQuickViewTiles_Click(sender As Object, e As EventArgs) Handles ButtonQuickViewTiles.Click
GRID_TYPE = GridType.Tiles GRID_TYPE = GridType.Tiles
VIEW_ID_RUNTIME = 1
GRID_TYPE_ID = 1 GRID_TYPE_ID = 1
GridControlMain.MainView = grvwTiles GridControlMain.MainView = grvwTiles
@ -1723,6 +1756,7 @@ Public Class frmForm_Constructor_Main
Private Sub ButtonDetailView_Click(sender As Object, e As EventArgs) Handles ButtonDetailView.Click Private Sub ButtonDetailView_Click(sender As Object, e As EventArgs) Handles ButtonDetailView.Click
GRID_TYPE = GridType.Grid GRID_TYPE = GridType.Grid
VIEW_ID_RUNTIME = 3
GRID_TYPE_ID = 3 GRID_TYPE_ID = 3
GridControlMain.MainView = grvwGrid GridControlMain.MainView = grvwGrid
@ -1744,6 +1778,8 @@ Public Class frmForm_Constructor_Main
End Select 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) 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 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) MsgBox("Stanard-View was saved successfully!", MsgBoxStyle.Information)
End If End If
@ -1766,7 +1802,12 @@ Public Class frmForm_Constructor_Main
'Refresh_CreatedChangedRecordByID(CURRENT_RECORD_ID) 'Refresh_CreatedChangedRecordByID(CURRENT_RECORD_ID)
' RECORD_CHANGED = False ' RECORD_CHANGED = False
Case 1 'windream-Dokumente 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 Case 2
' Refresh_FollowUps() ' Refresh_FollowUps()
End Select End Select