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

MS10082016

Browse Source
This commit is contained in:
SchreiberM
2016-08-10 13:59:12 +02:00
parent 4b8fcfe7f1
commit 3a8c24e2a3
6 changed files with 363 additions and 159 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
app/DD-Record-Organiser/ClassHelper.vb
View File

@@ -161,5 +161,77 @@ Public Class ClassHelper
Shared Function Convert_Date_2_Form_Format(p1 As Date) As Date Shared Function Convert_Date_2_Form_Format(p1 As Date) As Date
Throw New NotImplementedException Throw New NotImplementedException
End Function End Function
Public Shared Function Return_listcheck(ENTITY_ID As Integer)
Try
Dim listcheck As New List(Of String)
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & ENTITY_ID
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtcheck.Rows.Count > 0 Then
For Each row As DataRow In dtcheck.Rows
listcheck.Add(row.Item(0))
Next
End If
Return listcheck
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Return_listcheck: " & ex.Message, True)
Return Nothing
End Try
End Function
Public Shared Function Return_listdate(ENTITY_ID As Integer)
Try
Dim listdate As New List(Of String)
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 4 AND FORM_ID = " & ENTITY_ID
Dim dtdate As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtdate.Rows.Count > 0 Then
For Each row As DataRow In dtdate.Rows
listdate.Add(row.Item(0))
Next
End If
Return listdate
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Return_listdate: " & ex.Message, True)
Return Nothing
End Try
End Function
Public Shared Function Format_GridColumns(Primary_DT As DataTable, _ENTITYSQL As String, listcheck As List(Of String), listdate As List(Of String))
Try
Dim tbltemp As DataTable = Primary_DT.Clone()
For Each col As String In listdate
Dim colDate As DataColumn = tbltemp.Columns(col)
If Not IsNothing(colDate) Then
colDate.DataType = GetType(Date)
End If
Next
For Each col1 As String In listcheck
Dim collist As DataColumn = tbltemp.Columns(col1)
If Not IsNothing(collist) Then
collist.DataType = GetType(Boolean)
End If
Next
Try
tbltemp.Load(Primary_DT.CreateDataReader)
Return tbltemp
Catch ex As Exception
ClassLogger.Add(">> Attention: Could not load converted datatable: " & ex.Message, False)
'Tabelle wird ohne Datekonvertierung geladen
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "Load_Entity_Data_Only")
Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey
Return DTEntity
End Try
Catch ex As Exception
MsgBox("Unexpected Error in Format_GridColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Error in Format_GridColumns: " & ex.Message, True)
Return Nothing
End Try
End Function
End Class End Class

22
app/DD-Record-Organiser/Class_DOC_SEARCH.vb
View File

@@ -183,26 +183,26 @@ Public Class Class_DOC_SEARCH
NewRow = DTGrid.NewRow() NewRow = DTGrid.NewRow()
'Icon zuweisen 'Icon zuweisen
Select Case extension Select Case extension.ToUpper
Case ".csv" Case ".csv".ToUpper
NewRow.Item(0) = My.Resources.doc_excel_csv NewRow.Item(0) = My.Resources.doc_excel_csv
Case ".txt" Case ".txt".ToUpper
NewRow.Item(0) = My.Resources.text NewRow.Item(0) = My.Resources.text
Case ".pdf" Case ".pdf".ToUpper
NewRow.Item(0) = My.Resources.pdf NewRow.Item(0) = My.Resources.pdf
Case ".doc" Case ".doc".ToUpper
NewRow.Item(0) = My.Resources.doc NewRow.Item(0) = My.Resources.doc
Case ".docx" Case ".docx".ToUpper
NewRow.Item(0) = My.Resources.doc NewRow.Item(0) = My.Resources.doc
Case ".xls" Case ".xls".ToUpper
NewRow.Item(0) = My.Resources.xls NewRow.Item(0) = My.Resources.xls
Case ".xlsx" Case ".xlsx".ToUpper
NewRow.Item(0) = My.Resources.xls NewRow.Item(0) = My.Resources.xls
Case ".ppt" Case ".ppt".ToUpper
NewRow.Item(0) = My.Resources.ppt NewRow.Item(0) = My.Resources.ppt
Case ".pptx" Case ".pptx".ToUpper
NewRow.Item(0) = My.Resources.ppt NewRow.Item(0) = My.Resources.ppt
Case ".dwg" Case ".dwg".ToUpper
NewRow.Item(0) = My.Resources.dwg NewRow.Item(0) = My.Resources.dwg
Case Else Case Else
NewRow.Item(0) = My.Resources._blank NewRow.Item(0) = My.Resources._blank

8
app/DD-Record-Organiser/frmAbout.Designer.vb generated
View File

@@ -35,6 +35,7 @@ Partial Class frmAbout
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.lbldatabase = New System.Windows.Forms.Label()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
@@ -98,11 +99,17 @@ Partial Class frmAbout
Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.TabStop = False Me.PictureBox2.TabStop = False
' '
'lbldatabase
'
resources.ApplyResources(Me.lbldatabase, "lbldatabase")
Me.lbldatabase.Name = "lbldatabase"
'
'frmAbout 'frmAbout
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.OKButton Me.CancelButton = Me.OKButton
Me.Controls.Add(Me.lbldatabase)
Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.PictureBox2) Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.LinkLabel2) Me.Controls.Add(Me.LinkLabel2)
@@ -134,5 +141,6 @@ Partial Class frmAbout
Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel
Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents lbldatabase As System.Windows.Forms.Label
End Class End Class

56
app/DD-Record-Organiser/frmAbout.resx
View File

@@ -141,7 +141,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;OKButton.ZOrder" xml:space="preserve"> <data name="&gt;&gt;OKButton.ZOrder" xml:space="preserve">
<value>8</value> <value>9</value>
</data> </data>
<data name="lblProduktname.AutoSize" type="System.Boolean, mscorlib"> <data name="lblProduktname.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@@ -171,7 +171,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;lblProduktname.ZOrder" xml:space="preserve"> <data name="&gt;&gt;lblProduktname.ZOrder" xml:space="preserve">
<value>7</value> <value>8</value>
</data> </data>
<data name="lblVersion.AutoSize" type="System.Boolean, mscorlib"> <data name="lblVersion.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@@ -198,13 +198,13 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;lblVersion.ZOrder" xml:space="preserve"> <data name="&gt;&gt;lblVersion.ZOrder" xml:space="preserve">
<value>6</value> <value>7</value>
</data> </data>
<data name="lblCompanyName.AutoSize" type="System.Boolean, mscorlib"> <data name="lblCompanyName.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<data name="lblCompanyName.Location" type="System.Drawing.Point, System.Drawing"> <data name="lblCompanyName.Location" type="System.Drawing.Point, System.Drawing">
<value>278, 58</value> <value>278, 53</value>
</data> </data>
<data name="lblCompanyName.Size" type="System.Drawing.Size, System.Drawing"> <data name="lblCompanyName.Size" type="System.Drawing.Size, System.Drawing">
<value>40, 13</value> <value>40, 13</value>
@@ -225,10 +225,10 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;lblCompanyName.ZOrder" xml:space="preserve"> <data name="&gt;&gt;lblCompanyName.ZOrder" xml:space="preserve">
<value>5</value> <value>6</value>
</data> </data>
<data name="txtDescription.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtDescription.Location" type="System.Drawing.Point, System.Drawing">
<value>281, 85</value> <value>281, 104</value>
</data> </data>
<data name="txtDescription.Multiline" type="System.Boolean, mscorlib"> <data name="txtDescription.Multiline" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@@ -238,7 +238,7 @@
<value>Vertical</value> <value>Vertical</value>
</data> </data>
<data name="txtDescription.Size" type="System.Drawing.Size, System.Drawing"> <data name="txtDescription.Size" type="System.Drawing.Size, System.Drawing">
<value>260, 103</value> <value>260, 84</value>
</data> </data>
<data name="txtDescription.TabIndex" type="System.Int32, mscorlib"> <data name="txtDescription.TabIndex" type="System.Int32, mscorlib">
<value>5</value> <value>5</value>
@@ -253,7 +253,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;txtDescription.ZOrder" xml:space="preserve"> <data name="&gt;&gt;txtDescription.ZOrder" xml:space="preserve">
<value>4</value> <value>5</value>
</data> </data>
<data name="LinkLabel1.AutoSize" type="System.Boolean, mscorlib"> <data name="LinkLabel1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@@ -280,7 +280,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;LinkLabel1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;LinkLabel1.ZOrder" xml:space="preserve">
<value>3</value> <value>4</value>
</data> </data>
<data name="LinkLabel2.AutoSize" type="System.Boolean, mscorlib"> <data name="LinkLabel2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@@ -307,7 +307,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;LinkLabel2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;LinkLabel2.ZOrder" xml:space="preserve">
<value>2</value> <value>3</value>
</data> </data>
<data name="PictureBox1.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms"> <data name="PictureBox1.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Zoom</value> <value>Zoom</value>
@@ -331,7 +331,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;PictureBox1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;PictureBox1.ZOrder" xml:space="preserve">
<value>9</value> <value>10</value>
</data> </data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib"> <data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@@ -364,7 +364,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>0</value> <value>1</value>
</data> </data>
<data name="PictureBox2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms"> <data name="PictureBox2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value> <value>NoControl</value>
@@ -391,7 +391,37 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;PictureBox2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;PictureBox2.ZOrder" xml:space="preserve">
<value>1</value> <value>2</value>
</data>
<data name="lbldatabase.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="lbldatabase.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="lbldatabase.Location" type="System.Drawing.Point, System.Drawing">
<value>278, 73</value>
</data>
<data name="lbldatabase.Size" type="System.Drawing.Size, System.Drawing">
<value>40, 13</value>
</data>
<data name="lbldatabase.TabIndex" type="System.Int32, mscorlib">
<value>10</value>
</data>
<data name="lbldatabase.Text" xml:space="preserve">
<value>Label1</value>
</data>
<data name="&gt;&gt;lbldatabase.Name" xml:space="preserve">
<value>lbldatabase</value>
</data>
<data name="&gt;&gt;lbldatabase.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;lbldatabase.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;lbldatabase.ZOrder" xml:space="preserve">
<value>0</value>
</data> </data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>

11
app/DD-Record-Organiser/frmAbout.vb
View File

@@ -16,6 +16,13 @@
Me.lblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString) Me.lblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
Me.lblCompanyName.Text = My.Application.Info.CompanyName Me.lblCompanyName.Text = My.Application.Info.CompanyName
Me.txtDescription.Text = My.Application.Info.Description Me.txtDescription.Text = My.Application.Info.Description
Dim version = ClassDatabase.Execute_Scalar("SELECT PRODUCT_VERSION FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')")
If Not IsNothing(version) Then
Me.lbldatabase.Text = String.Format("Database-Version: {0}", version.ToString)
Else
Me.lbldatabase.Text = "Could not read database-version"
End If
End Sub End Sub
Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
Me.Close() Me.Close()
@@ -28,4 +35,8 @@
System.Diagnostics.Process.Start("http://www.didalog.de/support") System.Diagnostics.Process.Start("http://www.didalog.de/support")
LinkLabel2.LinkVisited = True LinkLabel2.LinkVisited = True
End Sub End Sub
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles lbldatabase.Click
End Sub
End Class End Class

353
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -266,22 +266,27 @@ Public Class frmConstructor_Main
"FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {2} AND CONSTRUCT_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CURRENT_SCREEN_ID, CONSTRUCTORID) "FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {2} AND CONSTRUCT_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CURRENT_SCREEN_ID, CONSTRUCTORID)
DT_VWPMO_CONSTRUCTOR_FORMS = ClassDatabase.Return_Datatable(SQL) DT_VWPMO_CONSTRUCTOR_FORMS = ClassDatabase.Return_Datatable(SQL)
SQL = String.Format("select * from TBPMO_STRUCTURE_NODES where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID) SQL = String.Format("select * from VWPMO_STRUCTURE_NODES where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL) Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
If DT.Rows.Count > 1 Then If DT.Rows.Count > 1 Then
TreeView_perControl = True TreeView_perControl = True
DT_TREEVIEW_PER_CONTROLS = DT DT_TREEVIEW_PER_CONTROLS = DT
SQL = String.Format("select * from TBPMO_STRUCTURE_NODES_CONFIGURATION where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID) SQL = String.Format("select * from TBPMO_STRUCTURE_NODES_CONFIGURATION where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(SQL) DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(SQL)
Try Try
TREEVIEW_IMAGELIST = New ImageList TREEVIEW_IMAGELIST = New ImageList
For Each row As DataRow In DT_TREEVIEW_CONFIGURATION.Rows For Each row As DataRow In DT_TREEVIEW_CONFIGURATION.Rows
Dim bimage() As Byte = row.Item("NODE_IMAGE") Try
If Not IsDBNull(bimage) Then Dim bimage = row.Item("NODE_IMAGE")
Dim Node_image = ByteArrayToBitmap(bimage) If Not IsDBNull(bimage) Then
TREEVIEW_IMAGELIST.Images.Add("LEVEL#ENTITY" & row.Item("TYPE_NODE").ToString & row.Item("ENTITY_ID"), Node_image) Dim Node_image = ByteArrayToBitmap(bimage)
End If TREEVIEW_IMAGELIST.Images.Add("LEVEL#ENTITY" & row.Item("TYPE_NODE").ToString & row.Item("ENTITY_ID"), Node_image)
End If
Catch ex As Exception
End Try
Next Next
TreeViewMain.ImageList = TREEVIEW_IMAGELIST TreeViewMain.ImageList = TREEVIEW_IMAGELIST
Catch ex As Exception Catch ex As Exception
@@ -289,11 +294,11 @@ Public Class frmConstructor_Main
End Try End Try
Me.SplitContainerTop.Panel1.Controls.Remove(Me.TreeViewMain) Me.SplitContainerTop.Panel1.Controls.Remove(Me.TreeViewMain)
Me.SplitContainer1.Panel1.Controls.Add(Me.TreeViewMain) Me.SplitContainer1.Panel1.Controls.Add(Me.TreeViewMain)
SplitContainer1.Collapsed = False SplitContainer1.Collapsed = False
SplitContainer1.PanelVisibility = SplitPanelVisibility.Both SplitContainer1.PanelVisibility = SplitPanelVisibility.Both
SplitContainerTop.Collapsed = True SplitContainerTop.Collapsed = True
SplitContainerTop.PanelVisibility = SplitPanelVisibility.Panel2 SplitContainerTop.PanelVisibility = SplitPanelVisibility.Panel2
SplitContainerMain.Collapsed = True SplitContainerMain.Collapsed = True
NODE_NAVIGATION = True NODE_NAVIGATION = True
@@ -314,7 +319,7 @@ Public Class frmConstructor_Main
"GROUP BY T1.ENTITY_ID,T.GUID,T.TITLE,T.MANUALLY,T.CREATE_ON_REC_CREATE,T.CREATE_ON_FOLL_UP" "GROUP BY T1.ENTITY_ID,T.GUID,T.TITLE,T.MANUALLY,T.CREATE_ON_REC_CREATE,T.CREATE_ON_FOLL_UP"
DT_WORKFLOWS_MANUAL = ClassDatabase.Return_Datatable(sql_ResultList) DT_WORKFLOWS_MANUAL = ClassDatabase.Return_Datatable(sql_ResultList)
Load_Tree_View(CONSTRUCTORID) Load_Tree_View(CONSTRUCTORID)
FORM_LOADED = True FORM_LOADED = True
Dim elapsed As Double Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds elapsed = sw.Elapsed.TotalSeconds
@@ -322,8 +327,8 @@ Public Class frmConstructor_Main
sw.Reset() sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Form Load took " & Format(elapsed, "0.000000000") & " seconds", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Form Load took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As System.Exception Catch ex As System.Exception
MsgBox("Error while Loading Form part 2" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Loading Form part 2" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
'System.Windows.Forms.MessageBox.Show(ex.Message) System.Windows.Forms.MessageBox.Show(ex.Message)
End Try End Try
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub End Sub
@@ -1139,7 +1144,7 @@ Public Class frmConstructor_Main
If NODE_NAVIGATION = True Then If NODE_NAVIGATION = True Then
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode) Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then If SelectedNode IsNot Nothing Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> NodeTag: " & SelectedNode.Tag.ToString, False) Update_Status_Label(True, SelectedNode.Tag)
If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then
Dim Record = Return_RECORD_forTag(SelectedNode.Tag) Dim Record = Return_RECORD_forTag(SelectedNode.Tag)
If Record <> 0 Then If Record <> 0 Then
@@ -1192,15 +1197,15 @@ Public Class frmConstructor_Main
Dim ID = foundRowsLevel0(i)("GUID") Dim ID = foundRowsLevel0(i)("GUID")
Dim LevelEntity = foundRowsLevel0(i)("ENTITY_ID") Dim LevelEntity = foundRowsLevel0(i)("ENTITY_ID")
Dim controlID = foundRowsLevel0(i)("CONTROL_ID") Dim controlID = foundRowsLevel0(i)("CONTROL_ID")
Dim nodetext = foundRowsLevel0(i)("ID2") Dim nodetext = foundRowsLevel0(i)("NODE_CAPTION")
Dim Type_node = foundRowsLevel0(i)("TYPE_NODE") Dim Type_node = foundRowsLevel0(i)("TYPE_NODE")
Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID") Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID")
Dim LEVEL0_NODE As TreeNode Dim LEVEL0_NODE As TreeNode
LEVEL0_NODE = New TreeNode(nodetext) LEVEL0_NODE = New TreeNode(nodetext)
If Not IsDBNull(RECORD_ID) Then If Not IsDBNull(RECORD_ID) Then
LEVEL0_NODE.Tag = LevelEntity & "CONTROL-ID" & controlID.ToString & "#" & ID & "#RECORD-ID" & RECORD_ID.ToString LEVEL0_NODE.Tag = LevelEntity & " - CONTROL-ID" & controlID.ToString & "#" & ID & "#RECORD-ID" & RECORD_ID.ToString
Else Else
LEVEL0_NODE.Tag = LevelEntity & "CONTROL-ID" & controlID.ToString & "#" & ID LEVEL0_NODE.Tag = LevelEntity & " - CONTROL-ID" & controlID.ToString & "#" & ID
End If End If
Dim index As Integer = 0 Dim index As Integer = 0
@@ -1223,16 +1228,16 @@ Public Class frmConstructor_Main
Dim ID1 = foundRowsLevel1(j)("GUID") Dim ID1 = foundRowsLevel1(j)("GUID")
Dim LevelEntity1 = foundRowsLevel1(j)("ENTITY_ID") Dim LevelEntity1 = foundRowsLevel1(j)("ENTITY_ID")
Dim controlID1 = foundRowsLevel1(j)("CONTROL_ID") Dim controlID1 = foundRowsLevel1(j)("CONTROL_ID")
Dim nodetext1 = foundRowsLevel1(j)("ID2") Dim nodetext1 = foundRowsLevel1(j)("NODE_CAPTION")
Dim Type_node1 = foundRowsLevel1(i)("TYPE_NODE") Dim Type_node1 = foundRowsLevel1(j)("TYPE_NODE")
RECORD_ID = foundRowsLevel1(i)("RECORD_ID") RECORD_ID = foundRowsLevel1(j)("RECORD_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL1_NODE As TreeNode Dim LEVEL1_NODE As TreeNode
LEVEL1_NODE = New TreeNode(nodetext1) LEVEL1_NODE = New TreeNode(nodetext1)
If Not IsDBNull(RECORD_ID) Then If Not IsDBNull(RECORD_ID) Then
LEVEL1_NODE.Tag = LevelEntity1 & "CONTROL-ID" & controlID1.ToString & "#" & ID1 & "#RECORD-ID" & RECORD_ID.ToString LEVEL1_NODE.Tag = LevelEntity1 & "-CONTROL-ID" & controlID1.ToString & "#" & ID1 & "#RECORD-ID" & RECORD_ID.ToString
Else Else
LEVEL1_NODE.Tag = LevelEntity1 & "CONTROL-ID" & controlID1.ToString & "#" & ID1 LEVEL1_NODE.Tag = LevelEntity1 & "-CONTROL-ID" & controlID1.ToString & "#" & ID1
End If End If
index = 0 index = 0
@@ -1256,15 +1261,15 @@ Public Class frmConstructor_Main
Dim ID2 = foundRowsLevel2(k)("GUID") Dim ID2 = foundRowsLevel2(k)("GUID")
Dim LevelEntity2 = foundRowsLevel2(k)("ENTITY_ID") Dim LevelEntity2 = foundRowsLevel2(k)("ENTITY_ID")
Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID") Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID")
Dim nodetext2 = foundRowsLevel2(k)("ID2") Dim nodetext2 = foundRowsLevel2(k)("NODE_CAPTION")
RECORD_ID = foundRowsLevel2(k)("RECORD_ID") RECORD_ID = foundRowsLevel2(k)("RECORD_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL2_NODE As TreeNode Dim LEVEL2_NODE As TreeNode
LEVEL2_NODE = New TreeNode(nodetext2) LEVEL2_NODE = New TreeNode(nodetext2)
If Not IsDBNull(RECORD_ID) Then If Not IsDBNull(RECORD_ID) Then
LEVEL2_NODE.Tag = LevelEntity2 & "CONTROL-ID" & controlID2.ToString & "#" & ID2 & "#RECORD-ID" & RECORD_ID.ToString LEVEL2_NODE.Tag = LevelEntity2 & "-CONTROL-ID" & controlID2.ToString & "#" & ID2 & "#RECORD-ID" & RECORD_ID.ToString
Else Else
LEVEL2_NODE.Tag = LevelEntity2 & "CONTROL-ID" & controlID2.ToString & "#" & ID2 LEVEL2_NODE.Tag = LevelEntity2 & "-CONTROL-ID" & controlID2.ToString & "#" & ID2
End If End If
index = 0 index = 0
@@ -1288,15 +1293,15 @@ Public Class frmConstructor_Main
Dim ID3 = foundRowsLevel3(l)("GUID") Dim ID3 = foundRowsLevel3(l)("GUID")
Dim LevelEntity3 = foundRowsLevel3(l)("ENTITY_ID") Dim LevelEntity3 = foundRowsLevel3(l)("ENTITY_ID")
Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID") Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID")
Dim nodetext3 = foundRowsLevel3(l)("ID2") Dim nodetext3 = foundRowsLevel3(l)("NODE_CAPTION")
RECORD_ID = foundRowsLevel3(l)("RECORD_ID") RECORD_ID = foundRowsLevel3(l)("RECORD_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL3_NODE As TreeNode Dim LEVEL3_NODE As TreeNode
LEVEL3_NODE = New TreeNode(nodetext3) LEVEL3_NODE = New TreeNode(nodetext3)
If Not IsDBNull(RECORD_ID) Then If Not IsDBNull(RECORD_ID) Then
LEVEL3_NODE.Tag = LevelEntity3 & "CONTROL-ID" & controlID3.ToString & "#" & ID3 & "#RECORD-ID" & RECORD_ID.ToString LEVEL3_NODE.Tag = LevelEntity3 & "-CONTROL-ID" & controlID3.ToString & "#" & ID3 & "#RECORD-ID" & RECORD_ID.ToString
Else Else
LEVEL3_NODE.Tag = LevelEntity3 & "CONTROL-ID" & controlID3.ToString & "#" & ID3 LEVEL3_NODE.Tag = LevelEntity3 & "-CONTROL-ID" & controlID3.ToString & "#" & ID3
End If End If
index = 0 index = 0
@@ -1320,15 +1325,15 @@ Public Class frmConstructor_Main
Dim ID5 = foundRowsLevel4(m)("GUID") Dim ID5 = foundRowsLevel4(m)("GUID")
Dim LevelEntity5 = foundRowsLevel4(m)("ENTITY_ID") Dim LevelEntity5 = foundRowsLevel4(m)("ENTITY_ID")
Dim controlID5 = foundRowsLevel4(m)("CONTROL_ID") Dim controlID5 = foundRowsLevel4(m)("CONTROL_ID")
Dim nodetext5 = foundRowsLevel4(m)("ID2") Dim nodetext5 = foundRowsLevel4(m)("NODE_CAPTION")
RECORD_ID = foundRowsLevel4(m)("RECORD_ID") RECORD_ID = foundRowsLevel4(m)("RECORD_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL4_NODE As TreeNode Dim LEVEL4_NODE As TreeNode
LEVEL4_NODE = New TreeNode(nodetext5) LEVEL4_NODE = New TreeNode(nodetext5)
If Not IsDBNull(RECORD_ID) Then If Not IsDBNull(RECORD_ID) Then
LEVEL4_NODE.Tag = LevelEntity5 & "CONTROL-ID" & controlID5.ToString & "#" & ID5 & "#RECORD-ID" & RECORD_ID.ToString LEVEL4_NODE.Tag = LevelEntity5 & "-CONTROL-ID" & controlID5.ToString & "#" & ID5 & "#RECORD-ID" & RECORD_ID.ToString
Else Else
LEVEL4_NODE.Tag = LevelEntity5 & "CONTROL-ID" & controlID5.ToString & "#" & ID5 LEVEL4_NODE.Tag = LevelEntity5 & "-CONTROL-ID" & controlID5.ToString & "#" & ID5
End If End If
index = 0 index = 0
@@ -1352,15 +1357,15 @@ Public Class frmConstructor_Main
Dim ID6 = foundRowsLevel5(n)("GUID") Dim ID6 = foundRowsLevel5(n)("GUID")
Dim LevelEntity6 = foundRowsLevel5(n)("ENTITY_ID") Dim LevelEntity6 = foundRowsLevel5(n)("ENTITY_ID")
Dim controlID6 = foundRowsLevel5(n)("CONTROL_ID") Dim controlID6 = foundRowsLevel5(n)("CONTROL_ID")
Dim nodetext6 = foundRowsLevel5(n)("ID2") Dim nodetext6 = foundRowsLevel5(n)("NODE_CAPTION")
RECORD_ID = foundRowsLevel5(n)("RECORD_ID") RECORD_ID = foundRowsLevel5(n)("RECORD_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL5_NODE As TreeNode Dim LEVEL5_NODE As TreeNode
LEVEL5_NODE = New TreeNode(nodetext6) LEVEL5_NODE = New TreeNode(nodetext6)
If Not IsDBNull(RECORD_ID) Then If Not IsDBNull(RECORD_ID) Then
LEVEL5_NODE.Tag = LevelEntity6 & "CONTROL-ID" & controlID6.ToString & "#" & ID6 & "#RECORD-ID" & RECORD_ID.ToString LEVEL5_NODE.Tag = LevelEntity6 & "-CONTROL-ID" & controlID6.ToString & "#" & ID6 & "#RECORD-ID" & RECORD_ID.ToString
Else Else
LEVEL5_NODE.Tag = LevelEntity6 & "CONTROL-ID" & controlID6.ToString & "#" & ID6 LEVEL5_NODE.Tag = LevelEntity6 & "-CONTROL-ID" & controlID6.ToString & "#" & ID6
End If End If
index = 0 index = 0
@@ -1374,7 +1379,6 @@ Public Class frmConstructor_Main
LEVEL5_NODE.SelectedImageIndex = index LEVEL5_NODE.SelectedImageIndex = index
' ..und einfügen ' ..und einfügen
LEVEL4_NODE.Nodes.Add(LEVEL5_NODE) LEVEL4_NODE.Nodes.Add(LEVEL5_NODE)
'#####
'### LEVEL 5 laden ####### '### LEVEL 5 laden #######
Dim expressionLevel6 As String Dim expressionLevel6 As String
expressionLevel6 = "TYPE_NODE = 6 AND PARENT_GUID = " & ID6 'Einschränkung auf Type und Parent_Guid expressionLevel6 = "TYPE_NODE = 6 AND PARENT_GUID = " & ID6 'Einschränkung auf Type und Parent_Guid
@@ -1385,15 +1389,15 @@ Public Class frmConstructor_Main
Dim ID7 = foundRowsLevel6(o)("GUID") Dim ID7 = foundRowsLevel6(o)("GUID")
Dim LevelEntity7 = foundRowsLevel6(o)("ENTITY_ID") Dim LevelEntity7 = foundRowsLevel6(o)("ENTITY_ID")
Dim controlID7 = foundRowsLevel6(o)("CONTROL_ID") Dim controlID7 = foundRowsLevel6(o)("CONTROL_ID")
Dim nodetext7 = foundRowsLevel6(o)("ID2") Dim nodetext7 = foundRowsLevel6(o)("NODE_CAPTION")
RECORD_ID = foundRowsLevel6(o)("RECORD_ID") RECORD_ID = foundRowsLevel6(o)("RECORD_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL6_NODE As TreeNode Dim LEVEL6_NODE As TreeNode
LEVEL6_NODE = New TreeNode(nodetext7) LEVEL6_NODE = New TreeNode(nodetext7)
If Not IsDBNull(RECORD_ID) Then If Not IsDBNull(RECORD_ID) Then
LEVEL6_NODE.Tag = LevelEntity7 & "CONTROL-ID" & controlID7.ToString & "#" & ID7 & "#RECORD-ID" & RECORD_ID.ToString LEVEL6_NODE.Tag = LevelEntity7 & "-CONTROL-ID" & controlID7.ToString & "#" & ID7 & "#RECORD-ID" & RECORD_ID.ToString
Else Else
LEVEL6_NODE.Tag = LevelEntity7 & "CONTROL-ID" & controlID7.ToString & "#" & ID7 LEVEL6_NODE.Tag = LevelEntity7 & "-CONTROL-ID" & controlID7.ToString & "#" & ID7
End If End If
index = 0 index = 0
@@ -1407,8 +1411,74 @@ Public Class frmConstructor_Main
LEVEL6_NODE.SelectedImageIndex = index LEVEL6_NODE.SelectedImageIndex = index
' ..und einfügen ' ..und einfügen
LEVEL5_NODE.Nodes.Add(LEVEL6_NODE) LEVEL5_NODE.Nodes.Add(LEVEL6_NODE)
'##### '### LEVEL 7 laden #######
Next Dim expressionLevel7 As String
expressionLevel7 = "TYPE_NODE = 7 AND PARENT_GUID = " & ID7 'Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel7() As DataRow
foundRowsLevel7 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel7)
Dim p As Integer
For p = 0 To foundRowsLevel7.GetUpperBound(0)
Dim ID8 = foundRowsLevel7(p)("GUID")
Dim LevelEntity8 = foundRowsLevel7(p)("ENTITY_ID")
Dim controlID8 = foundRowsLevel7(p)("CONTROL_ID")
Dim nodetext8 = foundRowsLevel7(p)("NODE_CAPTION")
RECORD_ID = foundRowsLevel7(p)("RECORD_ID")
' Node erstellen..
Dim LEVEL7_NODE As TreeNode
LEVEL7_NODE = New TreeNode(nodetext8)
If Not IsDBNull(RECORD_ID) Then
LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8
End If
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img.Replace("LEVEL#ENTITY", "") = "6" & LevelEntity8.ToString Then
Exit For
End If
index += 1
Next
LEVEL7_NODE.ImageIndex = index
LEVEL7_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL6_NODE.Nodes.Add(LEVEL7_NODE)
'### LEVEL 7 laden #######
Dim expressionLevel8 As String
expressionLevel8 = "TYPE_NODE = 7 AND PARENT_GUID = " & ID7 'Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel8() As DataRow
foundRowsLevel8 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel8)
Dim q As Integer
For q = 0 To foundRowsLevel8.GetUpperBound(0)
Dim ID9 = foundRowsLevel8(q)("GUID")
Dim LevelEntity9 = foundRowsLevel8(q)("ENTITY_ID")
Dim controlID9 = foundRowsLevel8(q)("CONTROL_ID")
Dim nodetext9 = foundRowsLevel8(q)("NODE_CAPTION")
RECORD_ID = foundRowsLevel8(q)("RECORD_ID")
' Node erstellen..
Dim LEVEL8_NODE As TreeNode
LEVEL8_NODE = New TreeNode(nodetext9)
If Not IsDBNull(RECORD_ID) Then
LEVEL8_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL8_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9
End If
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img.Replace("LEVEL#ENTITY", "") = "6" & LevelEntity9.ToString Then
Exit For
End If
index += 1
Next
LEVEL8_NODE.ImageIndex = index
LEVEL8_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL7_NODE.Nodes.Add(LEVEL8_NODE)
'### LEVEL 8 laden #######
Next ' Level 7 Ende
Next ' Level 7 Ende
Next ' Level 6 Ende
Next ' Level 5 Ende Next ' Level 5 Ende
Next 'Level 4 Ende Next 'Level 4 Ende
Next 'Level 3 Ende Next 'Level 3 Ende
@@ -1508,6 +1578,8 @@ Public Class frmConstructor_Main
Try Try
Dim _index = NodeString.IndexOf("C") Dim _index = NodeString.IndexOf("C")
Dim Entity = NodeString.Substring(0, _index) Dim Entity = NodeString.Substring(0, _index)
Entity = Entity.Replace("-", "")
Entity = Entity.Replace("#", "")
Return Entity Return Entity
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in Return_ENTITY_FOR_TAG ('" & NodeString & "'): " & ex.Message, True) ClassLogger.Add("Unexpected Error in Return_ENTITY_FOR_TAG ('" & NodeString & "'): " & ex.Message, True)
@@ -3066,75 +3138,15 @@ Public Class frmConstructor_Main
If GRID_TYPE = GridType.Tiles Then If GRID_TYPE = GridType.Tiles Then
CreateTile() CreateTile()
Else Else
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & ENTITY_ID
Dim sqldate As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 4 AND FORM_ID = " & ENTITY_ID
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
Dim dtdate As DataTable = ClassDatabase.Return_Datatable(sqldate)
Dim listcheck As New List(Of String)
Dim listdate As New List(Of String)
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtcheck.Rows.Count > 0 Then
For Each row As DataRow In dtcheck.Rows
listcheck.Add(row.Item(0))
Next
End If
'Liste von allen Spaltentiteln mit Date erstellen
If dtdate.Rows.Count > 0 Then
For Each row As DataRow In dtdate.Rows
listdate.Add(row.Item(0))
Next
End If
'Duplikate entfernen
' listcheck = listcheck.Distinct().ToList()
'Grid leeren 'Grid leeren
Clear_Grid_View() Clear_Grid_View()
'Databinding Neu 'Databinding Neu
Dim listcheck As List(Of String) = ClassHelper.Return_listcheck(ENTITY_ID)
Dim listdate As List(Of String) = ClassHelper.Return_listdate(ENTITY_ID)
Dim tbltemp As DataTable = DT_SELECTION.Clone() BindingSource_Entity.DataSource = ClassHelper.Format_GridColumns(DT_SELECTION, _ENTITYSQL, listcheck, listdate)
For Each col As String In listdate
Dim colDate As DataColumn = tbltemp.Columns(col)
If Not IsNothing(colDate) Then
colDate.DataType = GetType(Date)
End If
Next
For Each col1 As String In listcheck
Dim collist As DataColumn = tbltemp.Columns(col1)
If Not IsNothing(collist) Then
collist.DataType = GetType(Boolean)
End If
Next
Try
tbltemp.Load(DT_SELECTION.CreateDataReader)
DT_SELECTION = tbltemp
Catch ex As Exception
ClassLogger.Add(">> Attention: Could not load converted datatable: " & ex.Message, False)
'Tabelle wird ohne Datekonvertierung geladen
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "Load_Entity_Data_Only")
Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey
DT_SELECTION = DTEntity
End Try
BindingSource_Entity.DataSource = DT_SELECTION
GridControlMain.DataSource = BindingSource_Entity GridControlMain.DataSource = BindingSource_Entity
' Den Editor Initialisieren und Optionen setzen
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = 1
CheckBoxEditorForDisplay.ValueUnchecked = 0
' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
'For Each col As String In listcheck
' grvwGrid.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
' If Not IsNothing(grvwGrid.Columns(col)) Then
' grvwGrid.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
' End If
'Next
' Alle Date Spalten durchgehen ' Alle Date Spalten durchgehen
For Each col As String In listdate For Each col As String In listdate
Dim colDate = grvwGrid.Columns(col) Dim colDate = grvwGrid.Columns(col)
@@ -3142,11 +3154,19 @@ Public Class frmConstructor_Main
colDate.DisplayFormat.FormatString = USER_DATE_FORMAT colDate.DisplayFormat.FormatString = USER_DATE_FORMAT
Next Next
Try Try
grvwGrid.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay) grvwGrid.Columns("AddedWhen").DisplayFormat.FormatType = FormatType.DateTime
grvwGrid.Columns("files?").ColumnEdit = CheckBoxEditorForDisplay grvwGrid.Columns("AddedWhen").DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
grvwGrid.Columns("ChangedWhen").DisplayFormat.FormatType = FormatType.DateTime
grvwGrid.Columns("ChangedWhen").DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(">> Attention: Column files? not existing in GridView?", False)
End Try End Try
'Try
' grvwGrid.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
' grvwGrid.Columns("files?").ColumnEdit = CheckBoxEditorForDisplay
'Catch ex As Exception
' ClassLogger.Add(">> Attention: Column files? not existing in GridView?", False)
'End Try
'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False 'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
End If End If
@@ -3403,7 +3423,7 @@ Public Class frmConstructor_Main
Dim ComboColumns As DataTable = ClassDatabase.Return_Datatable(SQL) Dim ComboColumns As DataTable = ClassDatabase.Return_Datatable(SQL)
' Alle Checkboxen für aktuelle Ansicht heraussuchen ' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT CONTROL_COLUMN FROM VWPMO_VALUES WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & formId Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & formId
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck) Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
Dim listcheck As New List(Of String) Dim listcheck As New List(Of String)
@@ -4265,39 +4285,102 @@ Public Class frmConstructor_Main
tslblWindreamView.Text = msg tslblWindreamView.Text = msg
If DT_RESULT.Rows.Count > 0 Then If DT_RESULT.Rows.Count > 0 Then
Dim listcheck As New List(Of String)
Dim listdate As New List(Of String)
For Each rw As DataRow In DT_WINDREAM_RESULTLIST.Rows
' Dim Width = rw.Item("WIDTH") 'DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("{0}_WIDTH", col.ColumnName))
' If Not IsNothing(Width) And Not IsDBNull(Width) Then
'Dim column = DirectCast(GridViewDoc_Search.Columns.Item(rw.Item("HEADER_CAPTION")), DevExpress.XtraGrid.Columns.GridColumn)
'column.Width = Width
'Console.WriteLine("ColumnWidth {0} set to {1}", column.FieldName, Width)
'Console.WriteLine("ColumnWidth {0} really set to {1}", column.FieldName, column.VisibleWidth)
'End If
'Liste von allen Spaltentiteln mit Checkbox erstellen
If rw.Item("TYPE_ID") = 2 And CBool(rw.Item("VISIBLE")) = True Then
listcheck.Add(rw.Item("HEADER_CAPTION"))
End If
'Liste von allen Spaltentiteln mit Checkbox erstellen
If rw.Item("TYPE_ID") = 3 And CBool(rw.Item("VISIBLE")) = True Then
listdate.Add(rw.Item("HEADER_CAPTION"))
End If
Next
Dim tbltemp As DataTable = DT_RESULT.Clone()
For Each col1 As String In listcheck
Dim collist As DataColumn = tbltemp.Columns(col1)
If Not IsNothing(collist) Then
collist.DataType = GetType(Boolean)
End If
Next
For Each col1 As String In listdate
Dim coldate As DataColumn = tbltemp.Columns(col1)
If Not IsNothing(coldate) Then
coldate.DataType = GetType(Date)
End If
Next
Try
tbltemp.Load(DT_RESULT.CreateDataReader)
DT_RESULT = tbltemp
Catch ex As Exception
ClassLogger.Add(">> Attention: Could not load converted datatable DocSearch: " & ex.Message, False)
End Try
GridControlDocSearch.DataSource = DT_RESULT GridControlDocSearch.DataSource = DT_RESULT
' Alle Date Spalten durchgehen
For Each col As String In listdate
Dim colDate = GridViewDoc_Search.Columns(col)
colDate.DisplayFormat.FormatType = FormatType.DateTime
colDate.DisplayFormat.FormatString = USER_DATE_FORMAT
Next
'Jetzt die Spaltenbreiten anpassen
For Each rw As DataRow In DT_WINDREAM_RESULTLIST.Rows
Dim Width = rw.Item("WIDTH") 'DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("{0}_WIDTH", col.ColumnName))
If Not IsNothing(Width) And Not IsDBNull(Width) Then
Dim column = DirectCast(GridViewDoc_Search.Columns.Item(rw.Item("HEADER_CAPTION")), DevExpress.XtraGrid.Columns.GridColumn)
column.Width = Width
'Console.WriteLine("ColumnWidth {0} set to {1}", column.FieldName, Width)
'Console.WriteLine("ColumnWidth {0} really set to {1}", column.FieldName, column.VisibleWidth)
End If
Next
' Größe der Icon Column anpassen ' Größe der Icon Column anpassen
GridViewDoc_Search.Columns.Item("ICON").MaxWidth = 24 GridViewDoc_Search.Columns.Item("ICON").MaxWidth = 24
GridViewDoc_Search.Columns.Item("ICON").MinWidth = 24 GridViewDoc_Search.Columns.Item("ICON").MinWidth = 24
GridViewDoc_Search.Columns.Item("FULLPATH").Visible = False GridViewDoc_Search.Columns.Item("FULLPATH").Visible = False
GridViewDoc_Search.Columns.Item("OBJECTTYPE").Visible = False GridViewDoc_Search.Columns.Item("OBJECTTYPE").Visible = False
GridViewDoc_Search.Columns.Item("DocID").Visible = False GridViewDoc_Search.Columns.Item("DocID").Visible = False
Dim changed = "Geändert"
Dim created = "Erstellt"
Dim listcheck As New List(Of String) If USER_LANGUAGE <> "de-DE" Then
For Each rw As DataRow In DT_WINDREAM_RESULTLIST.Rows changed = "Changed"
Dim Width = rw.Item("WIDTH") 'DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("{0}_WIDTH", col.ColumnName)) created = "Created"
If Not IsNothing(Width) And Not IsDBNull(Width) Then End If
Dim column = DirectCast(GridViewDoc_Search.Columns.Item(rw.Item("HEADER_CAPTION")), DevExpress.XtraGrid.Columns.GridColumn) Try
column.Width = Width GridViewDoc_Search.Columns(created).DisplayFormat.FormatType = FormatType.DateTime
Console.WriteLine("ColumnWidth {0} set to {1}", column.FieldName, Width) GridViewDoc_Search.Columns(created).DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
Console.WriteLine("ColumnWidth {0} really set to {1}", column.FieldName, column.VisibleWidth) GridViewDoc_Search.Columns(changed).DisplayFormat.FormatType = FormatType.DateTime
End If GridViewDoc_Search.Columns(changed).DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
'Liste von allen Spaltentiteln mit Checkbox erstellen Catch ex As Exception
If rw.Item("TYPE_ID") = 2 And CBool(rw.Item("VISIBLE")) = True Then ClassLogger.Add(">> Attention: Could not change datetime formats Change/Create: " & ex.Message, False)
listcheck.Add(rw.Item("HEADER_CAPTION")) End Try
End If
Next
' Den Editor Initialisieren und Optionen setzen
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = "True" '' Den Editor Initialisieren und Optionen setzen
CheckBoxEditorForDisplay.ValueUnchecked = "False" 'Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
'Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen 'CheckBoxEditorForDisplay.ValueChecked = "True"
For Each col As String In listcheck 'CheckBoxEditorForDisplay.ValueUnchecked = "False"
GridViewDoc_Search.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay) ''Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
If Not IsNothing(GridViewDoc_Search.Columns(col)) Then 'For Each col As String In listcheck
GridViewDoc_Search.Columns(col).ColumnEdit = CheckBoxEditorForDisplay ' GridViewDoc_Search.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
End If ' If Not IsNothing(GridViewDoc_Search.Columns(col)) Then
Next ' GridViewDoc_Search.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
' End If
'Next
'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False 'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
If TCDetails.SelectedTabPageIndex <> 1 Then If TCDetails.SelectedTabPageIndex <> 1 Then
@@ -4494,7 +4577,6 @@ Public Class frmConstructor_Main
End If End If
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("windr") Then If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("windr") Then
If RIGHT_WINDREAM_FORBIDDEN = False Then If RIGHT_WINDREAM_FORBIDDEN = False Then
Load_DocGrid_Layout()
tsButtonEdit.Enabled = False tsButtonEdit.Enabled = False
If RECORD_ID = 0 Then If RECORD_ID = 0 Then
Dim result As MsgBoxResult Dim result As MsgBoxResult
@@ -4512,6 +4594,7 @@ Public Class frmConstructor_Main
' RUN_WD_SEARCH(WD_Suche, "RECORD") ' RUN_WD_SEARCH(WD_Suche, "RECORD")
RUN_WDSEARCH_GRID("RECORD") RUN_WDSEARCH_GRID("RECORD")
End If End If
Load_DocGrid_Layout()
End If End If
End If End If
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Or TCDetails.SelectedTabPage.Text.ToLower.StartsWith("follo") Then If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Or TCDetails.SelectedTabPage.Text.ToLower.StartsWith("follo") Then