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

MS_2

Browse Source
This commit is contained in:
SchreiberM
2016-06-01 13:09:57 +02:00
parent e74b44e1e9
commit 6caf74d671
12 changed files with 3341 additions and 3102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
app/DD-Record-Organiser/ClassImport_Windream.vb
View File

@@ -265,21 +265,30 @@ Public Class ClassImport_Windream
Dim type = element.Value '.ToUpper.Replace("[v%", "")
type = type.Replace("[%v", "")
type = type.Replace("]", "")
Select Case type
Case "YY_MM_DD"
datetemp = My.Computer.Clock.LocalTime.Year.ToString.Substring(2) & "_" & _Month & "_" & _day
Case "YYMMDD"
datetemp = My.Computer.Clock.LocalTime.Year.ToString.Substring(2) & _Month & _day
Case "YY_MM"
datetemp = My.Computer.Clock.LocalTime.Year.ToString.Substring(2) & "_" & _Month
Case "YYYY_MM_DD"
datetemp = My.Computer.Clock.LocalTime.Year & "_" & _Month & "_" & _day
Case "YYYYMM"
datetemp = My.Computer.Clock.LocalTime.Year & _Month
Case "YYYYMMDD"
datetemp = My.Computer.Clock.LocalTime.Year & _Month & _day
Case "DD_MM_YY"
datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year.ToString.Substring(2)
Case "DD_MM_YYYY"
datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year.ToString
Case "DD.MM.YY"
datetemp = _day & "." & _Month & "." & My.Computer.Clock.LocalTime.Year.ToString.Substring(2)
Case "DD_MM_YYYY"
datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year
Case "DDMMYY"
datetemp = _day & _Month & My.Computer.Clock.LocalTime.Year.ToString.Substring(2)
Case "DDMMYYYY"
datetemp = _day & _Month & My.Computer.Clock.LocalTime.Year
Case "DD.MM.YYYY"
datetemp = _day & "." & _Month & "." & My.Computer.Clock.LocalTime.Year
Case "YYYY_MM"

3
app/DD-Record-Organiser/DD-Record-Organiser.vbproj
View File

@@ -610,6 +610,9 @@
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmChooseParentRecord.en-US.resx">
<DependentUpon>frmChooseParentRecord.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmChooseParentRecord.resx">
<DependentUpon>frmChooseParentRecord.vb</DependentUpon>
</EmbeddedResource>

3
app/DD-Record-Organiser/ModuleRuntimeVariables.vb
View File

@@ -7,6 +7,7 @@
' Diese Werte müssen später zur Laufzeit geladen werden
Public CURRENT_FORM_ID As Integer
Public CURRENT_PARENT_ID As Integer
Public CURRENT_PARENT_RECORD_ID As Integer
Public CURRENT_ENTITYSTRING As String = ""
@@ -68,4 +69,6 @@
Public CURRENT_CONTROL_VALUES As DataTable
Public CURRENT_SQL_AUTO_VALUES_DT As DataTable
Public CURRENT_PARENT_DT As DataTable
End Module

64
app/DD-Record-Organiser/frmChooseParentRecord.Designer.vb generated
View File

@@ -27,6 +27,8 @@ Partial Class frmChooseParentRecord
Me.Label1 = New System.Windows.Forms.Label()
Me.GridControl = New DevExpress.XtraGrid.GridControl()
Me.GridView = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.btnAddLink = New System.Windows.Forms.Button()
Me.btncancel = New System.Windows.Forms.Button()
Me.Panel1.SuspendLayout()
CType(Me.GridControl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -34,39 +36,43 @@ Partial Class frmChooseParentRecord
'
'Panel1
'
resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(964, 34)
Me.Panel1.TabIndex = 0
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 9)
resources.ApplyResources(Me.Label1, "Label1")
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(557, 15)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Bitte wählen Sie einen gültigen Parentdatensatz für den neu zu erstellenden bzw. " & _
"den aktuellen Datensatz"
'
'GridControl
'
Me.GridControl.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GridControl.Location = New System.Drawing.Point(4, 37)
resources.ApplyResources(Me.GridControl, "GridControl")
Me.GridControl.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControl.EmbeddedNavigator.AccessibleDescription")
Me.GridControl.EmbeddedNavigator.AccessibleName = resources.GetString("GridControl.EmbeddedNavigator.AccessibleName")
Me.GridControl.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControl.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControl.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControl.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControl.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControl.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControl.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControl.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControl.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControl.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControl.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControl.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControl.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControl.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControl.EmbeddedNavigator.ToolTip = resources.GetString("GridControl.EmbeddedNavigator.ToolTip")
Me.GridControl.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControl.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControl.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControl.EmbeddedNavigator.ToolTipTitle")
Me.GridControl.MainView = Me.GridView
Me.GridControl.Name = "GridControl"
Me.GridControl.Size = New System.Drawing.Size(955, 393)
Me.GridControl.TabIndex = 1
Me.GridControl.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView})
'
'GridView
'
Me.GridView.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridView.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView.Appearance.EvenRow.FontSizeDelta = CType(resources.GetObject("GridView.Appearance.EvenRow.FontSizeDelta"), Integer)
Me.GridView.Appearance.EvenRow.FontStyleDelta = CType(resources.GetObject("GridView.Appearance.EvenRow.FontStyleDelta"), System.Drawing.FontStyle)
Me.GridView.Appearance.EvenRow.GradientMode = CType(resources.GetObject("GridView.Appearance.EvenRow.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.GridView.Appearance.EvenRow.Image = CType(resources.GetObject("GridView.Appearance.EvenRow.Image"), System.Drawing.Image)
Me.GridView.Appearance.EvenRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridView, "GridView")
Me.GridView.GridControl = Me.GridControl
Me.GridView.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
Me.GridView.Name = "GridView"
@@ -85,17 +91,29 @@ Partial Class frmChooseParentRecord
Me.GridView.OptionsView.ShowAutoFilterRow = True
Me.GridView.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
'
'btnAddLink
'
resources.ApplyResources(Me.btnAddLink, "btnAddLink")
Me.btnAddLink.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_link
Me.btnAddLink.Name = "btnAddLink"
Me.btnAddLink.UseVisualStyleBackColor = True
'
'btncancel
'
resources.ApplyResources(Me.btncancel, "btncancel")
Me.btncancel.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1
Me.btncancel.Name = "btncancel"
Me.btncancel.UseVisualStyleBackColor = True
'
'frmChooseParentRecord
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(964, 471)
Me.Controls.Add(Me.btncancel)
Me.Controls.Add(Me.btnAddLink)
Me.Controls.Add(Me.GridControl)
Me.Controls.Add(Me.Panel1)
Me.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmChooseParentRecord"
Me.Text = "Choose a parent record"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.GridControl, System.ComponentModel.ISupportInitialize).EndInit()
@@ -107,4 +125,6 @@ Partial Class frmChooseParentRecord
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GridControl As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents btnAddLink As System.Windows.Forms.Button
Friend WithEvents btncancel As System.Windows.Forms.Button
End Class

227
app/DD-Record-Organiser/frmChooseParentRecord.resx
View File

@@ -117,7 +117,155 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="&gt;&gt;GridControl.Name" xml:space="preserve">
<value>GridControl</value>
</data>
<data name="GridControl.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="btncancel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Right</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GridControl.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="&gt;&gt;GridControl.Parent" xml:space="preserve">
<value>$this</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btncancel.Size" type="System.Drawing.Size, System.Drawing">
<value>87, 30</value>
</data>
<data name="btnAddLink.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="GridControl.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="btncancel.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="&gt;&gt;GridView.Name" xml:space="preserve">
<value>GridView</value>
</data>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>7, 15</value>
</data>
<data name="Label1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="GridControl.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value>
</data>
<data name="&gt;&gt;Label1.Name" xml:space="preserve">
<value>Label1</value>
</data>
<data name="btncancel.Location" type="System.Drawing.Point, System.Drawing">
<value>756, 453</value>
</data>
<data name="GridView.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="btncancel.Text" xml:space="preserve">
<value>Abbruch</value>
</data>
<data name="&gt;&gt;Label1.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="btnAddLink.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Right</value>
</data>
<assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControl.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GridView.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;GridControl.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="btnAddLink.Size" type="System.Drawing.Size, System.Drawing">
<value>125, 30</value>
</data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="&gt;&gt;btncancel.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>Bitte wählen Sie einen gültigen Parentdatensatz für den neu zu erstellenden bzw. den aktuellen Datensatz</value>
</data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="&gt;&gt;btnAddLink.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="GridControl.Size" type="System.Drawing.Size, System.Drawing">
<value>970, 410</value>
</data>
<data name="GridView.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="btnAddLink.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt</value>
</data>
<data name="GridControl.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 37</value>
</data>
<data name="GridControl.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="&gt;&gt;GridView.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;btncancel.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;btnAddLink.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<assembly alias="DevExpress.XtraEditors.v15.2" name="DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControl.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.2">
<value>Center</value>
</data>
<data name="btncancel.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="GridControl.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="btnAddLink.Text" xml:space="preserve">
<value>Setze Parent-Link</value>
</data>
<data name="btncancel.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="btnAddLink.Location" type="System.Drawing.Point, System.Drawing">
<value>849, 453</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA
@@ -567,4 +715,83 @@
AAAH/wAA//AAAA//AAD//AAAP/8AAP//AAD//wAA///gB///AAD///////8AAP///////wAA
</value>
</data>
<data name="GridControl.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnAddLink.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;GridControl.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Choose a parent record</value>
</data>
<data name="GridView.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Aqua</value>
</data>
<data name="GridControl.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<assembly alias="DevExpress.Data.v15.2" name="DevExpress.Data.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControl.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GridControl.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>557, 15</value>
</data>
<data name="&gt;&gt;btncancel.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>979, 34</value>
</data>
<data name="GridControl.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridView.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControl.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="&gt;&gt;btnAddLink.Name" xml:space="preserve">
<value>btnAddLink</value>
</data>
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 9</value>
</data>
<data name="btnAddLink.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>979, 488</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmChooseParentRecord</value>
</data>
<data name="&gt;&gt;Label1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;btncancel.Name" xml:space="preserve">
<value>btncancel</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>en-US</value>
</metadata>
</root>

119
app/DD-Record-Organiser/frmChooseParentRecord.vb
View File

@@ -1,10 +1,127 @@
Public Class frmChooseParentRecord
Imports System.Text
Imports System.IO
Public Class frmChooseParentRecord
Private selected As Boolean = False
Private Sub frmChooseParentRecord_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Save_GridLayout()
If selected = False Then
CURRENT_PARENT_RECORD_ID = 0
End If
End Sub
Private Sub frmChooseParentRecord_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
If Not IsNothing(CURRENT_PARENT_DT) Then
GridControl.DataSource = CURRENT_PARENT_DT
HideColumns()
Load_GridLayout()
End If
Catch ex As Exception
MsgBox("Unexpected Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub HideColumns()
Try
Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & CURRENT_PARENT_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = GridView.Columns
If DT.Rows.Count <> 0 Then
' Alle Spalten, die ausgeblendet werden sollten durchgehen und Visible = False
For Each row As DataRow In DT.Rows
Dim colname As String = row.Item("CONTROL_COL_NAME")
Dim col As DevExpress.XtraGrid.Columns.GridColumn = GridView.Columns.Item(colname)
If Not IsNothing(col) Then
col.Visible = False
End If
Next
End If
' FormID und RecordID immer ausblenden
GridView.Columns.Item("Record-ID").Visible = False
GridView.Columns.Item("Form-ID").Visible = False
GridView.Columns.Item("ROW_COLOR").Visible = False
Catch ex As Exception
MsgBox("Error in HideColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub GridView_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles GridView.RowStyle
If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
e.Appearance.BackColor = Color.Orange
Else
If e.RowHandle = -1 Then
Exit Sub
End If
Try
Dim rowCellValue = GridView.GetRowCellValue(e.RowHandle, "ROW_COLOR")
If rowCellValue <> "" Then
Dim ColorRow As Color
Try
ColorRow = Color.FromName(rowCellValue)
Catch ex As Exception
ClassLogger.Add(">> RowBackColor '" & rowCellValue & "'could not be converted from name!", False)
Exit Sub
End Try
'Dim c As Color = DirectCast(rowCellValue, Color)
e.Appearance.BackColor = ColorRow
e.HighPriority = True
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in RowStyle: " & ex.Message, False)
End Try
End If
End Sub
Private Sub btnAddLink_Click(sender As Object, e As EventArgs) Handles btnAddLink.Click
Try
Dim RecID = GridView.GetFocusedRowCellValue(GridView.Columns("Record-ID"))
If IsNothing(RecID) Then
MsgBox("Could not get the Record-ID (Nothing)", MsgBoxStyle.Exclamation)
Else
If RecID = 0 Then
MsgBox("Could not get the Record-ID (0)", MsgBoxStyle.Exclamation)
Console.WriteLine("Grid_RecordID = 0")
Else
CURRENT_PARENT_RECORD_ID = RecID
selected = True
Me.Close()
End If
End If
Catch ex As Exception
MsgBox("Error in btnAddLink:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
selected = False
Me.Close()
End Sub
Sub Save_GridLayout()
Try
Dim Filename As String = String.Format("PARENT_GRID_{0}-UserLayout.xml", CURRENT_PARENT_ID.ToString)
Dim XMLPATH = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
GridView.SaveLayoutToXml(XMLPATH)
Catch ex As Exception
End Try
End Sub
Sub Load_GridLayout()
Try
Dim Filename As String = String.Format("PARENT_GRID_{0}-UserLayout.xml", CURRENT_PARENT_ID.ToString)
Dim XMLPATH = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
If File.Exists(XMLPATH) Then
GridView.RestoreLayoutFromXml(XMLPATH)
GridView.GuessAutoFilterRowValuesFromFilter()
End If
Catch ex As Exception
End Try
End Sub
End Class

431
app/DD-Record-Organiser/frmConstructor_Main.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

750
app/DD-Record-Organiser/frmConstructor_Main.en-US.resx
View File

@@ -117,13 +117,6 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="DevExpress.Data.v15.2" name="DevExpress.Data.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="TreeViewMain.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="CMSEntity.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ResetEbenenAuswahlToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value>
@@ -143,211 +136,72 @@
<data name="CMSEntity.Size" type="System.Drawing.Size, System.Drawing">
<value>189, 70</value>
</data>
<data name="CMSEntity.Title" xml:space="preserve">
<value />
</data>
<data name="CMSEntity.ToolTip" xml:space="preserve">
<value />
</data>
<data name="CMSEntity.ToolTip1" xml:space="preserve">
<value />
</data>
<assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="CMSEntity.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="TreeViewMain.Title" xml:space="preserve">
<value />
</data>
<data name="TreeViewMain.ToolTip" xml:space="preserve">
<value />
</data>
<data name="TreeViewMain.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="TreeViewMain.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="ContextMenuGrid.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="FunktionenDataGridToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value>
<value>209, 22</value>
</data>
<data name="FunktionenDataGridToolStripMenuItem.Text" xml:space="preserve">
<value>Datagrid Functions</value>
</data>
<data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
<value>179, 6</value>
<value>206, 6</value>
</data>
<data name="AnsichtUmschaltenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value>
<value>209, 22</value>
</data>
<data name="AnsichtUmschaltenToolStripMenuItem.Text" xml:space="preserve">
<value>Change View</value>
</data>
<data name="ButtonSetViewAsDefault.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value>
<value>209, 22</value>
</data>
<data name="ButtonSetViewAsDefault.Text" xml:space="preserve">
<value>Set View as Standard</value>
</data>
<data name="ButtonResetView.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value>
<value>209, 22</value>
</data>
<data name="ButtonResetView.Text" xml:space="preserve">
<value>Reset View</value>
</data>
<data name="ToolStripSeparator2.Size" type="System.Drawing.Size, System.Drawing">
<value>179, 6</value>
<value>206, 6</value>
</data>
<data name="SucheAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
</data>
<data name="ButtonResetFilter.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value>
<value>209, 22</value>
</data>
<data name="ButtonResetFilter.Text" xml:space="preserve">
<value>Remove all Filters</value>
</data>
<data name="ButtonExportToExcel.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value>
<value>209, 22</value>
</data>
<data name="ButtonExportToExcel.Text" xml:space="preserve">
<value>Export Excel</value>
</data>
<data name="DatenNeuLadenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value>
<value>209, 22</value>
</data>
<data name="DatenNeuLadenToolStripMenuItem.Text" xml:space="preserve">
<value>Refresh Data</value>
</data>
<data name="ToolStripSeparator6.Size" type="System.Drawing.Size, System.Drawing">
<value>179, 6</value>
<value>206, 6</value>
</data>
<data name="tsmi_RecordDelete.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value>
<value>209, 22</value>
</data>
<data name="tsmi_RecordDelete.Text" xml:space="preserve">
<value>Delete record</value>
</data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>183, 198</value>
</data>
<data name="ContextMenuGrid.Title" xml:space="preserve">
<value />
</data>
<data name="ContextMenuGrid.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ContextMenuGrid.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ContextMenuGrid.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GridControlMain.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlMain.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlMain.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GridControlMain.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlMain.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlMain.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlMain.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlMain.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<assembly alias="DevExpress.XtraEditors.v15.2" name="DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="GridControlMain.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.2">
<value>Center</value>
</data>
<data name="GridControlMain.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlMain.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GridControlMain.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="grvwGrid.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="grvwGrid.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="grvwGrid.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="grvwGrid.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="grvwTiles.AppearanceGroupText.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="grvwTiles.AppearanceGroupText.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="grvwTiles.AppearanceGroupText.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="grvwTiles.AppearanceGroupText.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlMain.ToolTip" xml:space="preserve">
<value />
</data>
<data name="SplitContainerTop.ToolTip" xml:space="preserve">
<value />
</data>
<data name="TCDetails.AppearancePage.HeaderHotTracked.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="TCDetails.AppearancePage.HeaderHotTracked.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="TCDetails.AppearancePage.HeaderHotTracked.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="TCDetails.AppearancePage.HeaderHotTracked.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="pnlDetails.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="pnlDetails.Title" xml:space="preserve">
<value />
</data>
<data name="pnlDetails.ToolTip" xml:space="preserve">
<value />
</data>
<data name="pnlDetails.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="pnlDetails.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
<value>210, 220</value>
</data>
<data name="TabDetails.Text" xml:space="preserve">
<value>Details</value>
</data>
<data name="TabDetails.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ContextMenuStripResultFiles.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="DateiÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>127, 22</value>
</data>
@@ -384,92 +238,6 @@
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>128, 110</value>
</data>
<data name="ContextMenuStripResultFiles.Title" xml:space="preserve">
<value />
</data>
<data name="ContextMenuStripResultFiles.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ContextMenuStripResultFiles.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ContextMenuStripResultFiles.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridViewDoc_Search.Appearance.OddRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridViewDoc_Search.Appearance.OddRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridViewDoc_Search.Appearance.OddRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridViewDoc_Search.Appearance.OddRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch.ToolTip" xml:space="preserve">
<value />
</data>
<data name="AxObjectListControl.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="AxObjectListControl.OcxState" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB
AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAfG4AAKodAAAAAAAACw==
</value>
</data>
<data name="AxObjectListControl.Title" xml:space="preserve">
<value />
</data>
<data name="AxObjectListControl.ToolTip" xml:space="preserve">
<value />
</data>
<data name="AxObjectListControl.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="ToolStripDokumente.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>174, 22</value>
</data>
@@ -495,48 +263,9 @@
<data name="ToolStripDropDownButton2.Text" xml:space="preserve">
<value>configuration windream-View</value>
</data>
<data name="ToolStripDokumente.Title" xml:space="preserve">
<value />
</data>
<data name="ToolStripDokumente.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ToolStripDokumente.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ToolStripDokumente.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="TabWindream.Text" xml:space="preserve">
<value>windream-files</value>
</data>
<data name="TabWindream.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ListViewFollowUps.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="ListViewFollowUps.Title" xml:space="preserve">
<value />
</data>
<data name="ListViewFollowUps.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ListViewFollowUps.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ListViewFollowUps.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="grpbxFU_Profile.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GroupBox4.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="btnRemoveUser_FollowUp.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="btnRemoveUser_FollowUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
@@ -557,288 +286,33 @@
<data name="btnRemoveUser_FollowUp.Text" xml:space="preserve">
<value>delete user</value>
</data>
<data name="btnRemoveUser_FollowUp.Title" xml:space="preserve">
<value />
</data>
<data name="btnRemoveUser_FollowUp.ToolTip" xml:space="preserve">
<value />
</data>
<data name="btnRemoveUser_FollowUp.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="btnRemoveUser_FollowUp.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="btnAddUser_FollowUp.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="btnAddUser_FollowUp.Text" xml:space="preserve">
<value>Add user tu follow up</value>
</data>
<data name="btnAddUser_FollowUp.Title" xml:space="preserve">
<value />
</data>
<data name="btnAddUser_FollowUp.ToolTip" xml:space="preserve">
<value />
</data>
<data name="btnAddUser_FollowUp.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="btnAddUser_FollowUp.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="cmbFollowUpUser.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="cmbFollowUpUser.Title" xml:space="preserve">
<value />
</data>
<data name="cmbFollowUpUser.ToolTip" xml:space="preserve">
<value />
</data>
<data name="cmbFollowUpUser.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="cmbFollowUpUser.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="Label6.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="Label6.Title" xml:space="preserve">
<value />
</data>
<data name="Label6.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Label6.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="Label6.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="ListBoxUser2Profile.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="ListBoxUser2Profile.Title" xml:space="preserve">
<value />
</data>
<data name="ListBoxUser2Profile.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ListBoxUser2Profile.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ListBoxUser2Profile.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="Label7.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="Label7.Size" type="System.Drawing.Size, System.Drawing">
<value>216, 13</value>
</data>
<data name="Label7.Text" xml:space="preserve">
<value>Attention: this list overdrives the general list.</value>
</data>
<data name="Label7.Title" xml:space="preserve">
<value />
</data>
<data name="Label7.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Label7.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="Label7.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GroupBox4.Text" xml:space="preserve">
<value>Special recipient for record:</value>
</data>
<data name="GroupBox4.Title" xml:space="preserve">
<value />
</data>
<data name="GroupBox4.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GroupBox4.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="GroupBox4.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="lblFollowUp_save.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="lblFollowUp_save.Size" type="System.Drawing.Size, System.Drawing">
<value>92, 15</value>
</data>
<data name="lblFollowUp_save.Text" xml:space="preserve">
<value>Follow Up saved</value>
</data>
<data name="lblFollowUp_save.Title" xml:space="preserve">
<value />
</data>
<data name="lblFollowUp_save.ToolTip" xml:space="preserve">
<value />
</data>
<data name="lblFollowUp_save.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="lblFollowUp_save.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="chkFollowUp.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="chkFollowUp.Title" xml:space="preserve">
<value />
</data>
<data name="chkFollowUp.ToolTip" xml:space="preserve">
<value />
</data>
<data name="chkFollowUp.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="chkFollowUp.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="dtpFollowUp.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="dtpFollowUp.Title" xml:space="preserve">
<value />
</data>
<data name="dtpFollowUp.ToolTip" xml:space="preserve">
<value />
</data>
<data name="dtpFollowUp.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="dtpFollowUp.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="lblWiedervorlage_Control.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="lblWiedervorlage_Control.Title" xml:space="preserve">
<value />
</data>
<data name="lblWiedervorlage_Control.ToolTip" xml:space="preserve">
<value />
</data>
<data name="lblWiedervorlage_Control.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="lblWiedervorlage_Control.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="grpbxFU_Profile.Title" xml:space="preserve">
<value />
</data>
<data name="grpbxFU_Profile.ToolTip" xml:space="preserve">
<value />
</data>
<data name="grpbxFU_Profile.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="grpbxFU_Profile.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="Label5.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>91, 13</value>
</data>
<data name="Label5.Text" xml:space="preserve">
<value>Saved Follow Ups</value>
</data>
<data name="Label5.Title" xml:space="preserve">
<value />
</data>
<data name="Label5.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Label5.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="Label5.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Follow Up</value>
</data>
<data name="TabFollowUp.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Panel1.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlPos.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlPos.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlPos.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.2">
<value>Center</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlPos.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="grvwGridPos.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="grvwGridPos.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="grvwGridPos.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="grvwGridPos.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlPos.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Panel1.Title" xml:space="preserve">
<value />
</data>
<data name="Panel1.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Panel1.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="Panel1.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -851,9 +325,6 @@
rkJggg==
</value>
</data>
<data name="BindingNavigatorPOS.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -906,18 +377,6 @@
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value>
</data>
<data name="BindingNavigatorPOS.Title" xml:space="preserve">
<value />
</data>
<data name="BindingNavigatorPOS.ToolTip" xml:space="preserve">
<value />
</data>
<data name="BindingNavigatorPOS.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="BindingNavigatorPOS.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@@ -929,15 +388,6 @@
<data name="TabPos.Text" xml:space="preserve">
<value>positions</value>
</data>
<data name="TabPos.ToolTip" xml:space="preserve">
<value />
</data>
<data name="TCDetails.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ToolStripEdit.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="tsButtonAdd.Size" type="System.Drawing.Size, System.Drawing">
<value>49, 22</value>
</data>
@@ -995,7 +445,7 @@
<value>213, 22</value>
</data>
<data name="VerknüpfungenAnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Show record-links</value>
<value>Change parent-record link</value>
</data>
<data name="ToolStripSeparator4.Size" type="System.Drawing.Size, System.Drawing">
<value>210, 6</value>
@@ -1030,110 +480,29 @@
<data name="tsButtonShowTaskOverview.Text" xml:space="preserve">
<value>TaskOverview</value>
</data>
<data name="tsbtnRedo.Size" type="System.Drawing.Size, System.Drawing">
<value>118, 22</value>
</data>
<data name="tsbtnRedo.Text" xml:space="preserve">
<value>Set changes back</value>
</data>
<data name="tsButtonCancel.Size" type="System.Drawing.Size, System.Drawing">
<value>63, 22</value>
</data>
<data name="tsButtonCancel.Text" xml:space="preserve">
<value>Cancel</value>
</data>
<data name="tslblLocked.Size" type="System.Drawing.Size, System.Drawing">
<value>131, 22</value>
<value>128, 22</value>
</data>
<data name="tslblLocked.Text" xml:space="preserve">
<value>Only reading access</value>
</data>
<data name="ToolStripEdit.Title" xml:space="preserve">
<value />
<data name="tslblFileslocked.Size" type="System.Drawing.Size, System.Drawing">
<value>97, 22</value>
</data>
<data name="ToolStripEdit.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ToolStripEdit.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ToolStripEdit.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="Panel2.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GridControlParent.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlParent.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlParent.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GridControlParent.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlParent.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlParent.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlParent.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlParent.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlParent.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.2">
<value>Center</value>
</data>
<data name="GridControlParent.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlParent.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GridControlParent.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridViewParent.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridViewParent.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridViewParent.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridViewParent.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlParent.ToolTip" xml:space="preserve">
<value />
</data>
<data name="btnRelinkParentID.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="btnRelinkParentID.Title" xml:space="preserve">
<value />
</data>
<data name="btnRelinkParentID.ToolTip" xml:space="preserve">
<value />
</data>
<data name="btnRelinkParentID.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="btnRelinkParentID.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="Panel2.Title" xml:space="preserve">
<value />
</data>
<data name="Panel2.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Panel2.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="Panel2.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="SplitContainerBottom.ToolTip" xml:space="preserve">
<value />
</data>
<data name="SplitContainerMain.ToolTip" xml:space="preserve">
<value />
<data name="tslblFileslocked.Text" xml:space="preserve">
<value>No file-access</value>
</data>
<data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -1162,49 +531,14 @@
uIEEMbxns0OpzYNRITMZmOv/PZbXJi3WJC3WJC3Wo939Ao+TPgKX3Mi+AAAAAElFTkSuQmCC
</value>
</data>
<data name="NavPane.ToolTip" xml:space="preserve">
<value />
</data>
<data name="StatusStrip_Main.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="StatusStrip_Main.Title" xml:space="preserve">
<value />
</data>
<data name="StatusStrip_Main.ToolTip" xml:space="preserve">
<value />
</data>
<data name="StatusStrip_Main.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="StatusStrip_Main.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4xLCBWZXJzaW9uPTE1LjEu
Ny4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
OS4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE
ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
</value>
</data>
<data name="ContextMenuDetails.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="ContextMenuDetails.Title" xml:space="preserve">
<value />
</data>
<data name="ContextMenuDetails.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ContextMenuDetails.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ContextMenuDetails.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="$this.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA
@@ -1654,16 +988,4 @@
AAAADwAA/gAAAAAPAAD//4AAAB8AAP///8AP/wAA////////AAD///////8AAP///////wAA
</value>
</data>
<data name="$this.Title" xml:space="preserve">
<value />
</data>
<data name="$this.ToolTip" xml:space="preserve">
<value />
</data>
<data name="$this.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="$this.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
</root>

4551
app/DD-Record-Organiser/frmConstructor_Main.resx
View File

File diff suppressed because it is too large Load Diff

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

@@ -548,26 +548,26 @@ Public Class frmConstructor_Main
GridControlMain.MainView = grvwTiles
End Sub
Public Sub Hide_Grid_Columns()
Try
Dim DefaultHiddenColumns As New List(Of String) From {"Record-ID", "Form-ID", "ROW_COLOR", "COLOR"}
Dim QuickHiddenColumns As New List(Of String) From {"AddedWho", "AddedWhen", "ChangedWho", "ChangedWhen"}
'Public Sub Hide_Grid_Columns()
' Try
' Dim DefaultHiddenColumns As New List(Of String) From {"Record-ID", "Form-ID", "ROW_COLOR", "COLOR"}
' Dim QuickHiddenColumns As New List(Of String) From {"AddedWho", "AddedWhen", "ChangedWho", "ChangedWhen"}
If GRID_TYPE = GridType.Carousel Or GRID_TYPE = GridType.Tiles Then
DefaultHiddenColumns.AddRange(QuickHiddenColumns)
End If
' If GRID_TYPE = GridType.Carousel Or GRID_TYPE = GridType.Tiles Then
' DefaultHiddenColumns.AddRange(QuickHiddenColumns)
' End If
For Each colname As String In DefaultHiddenColumns
Dim col = grvwTiles.Columns.Item(colname)
If col IsNot Nothing Then
col.Visible = False
End If
Next
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Hide_Grid_Columns: " & ex.Message, True)
End Try
' For Each colname As String In DefaultHiddenColumns
' Dim col = grvwTiles.Columns.Item(colname)
' If col IsNot Nothing Then
' col.Visible = False
' End If
' Next
' Catch ex As Exception
' ClassLogger.Add("Unexpected Error in Hide_Grid_Columns: " & ex.Message, True)
' End Try
End Sub
'End Sub
Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer, ConstructorDetailID As Integer)
Try
@@ -1121,21 +1121,15 @@ Public Class frmConstructor_Main
Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim a As Integer = 0
For Each childNodeLevel1 As TreeNode In selnode.Nodes
Dim PARENT_ID As Integer
Dim TYPE_ID As Integer
Dim PARENT_ID1 As Integer
Dim TYPE_ID1 As Integer
If a = 0 Then
'Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
' Select form
' Where form.Item("FORM_ID") = childNodeLevel1.Tag).Single()
'PARENT_ID = result.Item("PARENT_ID")
'TYPE_ID = result.Item("FORM_TYPE_ID")
Dim sql As String = "SELECT PARENT_ID, FORM_TYPE_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & childNodeLevel1.Tag & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "ShowNodeAmounts")
PARENT_ID = DT.Rows(0).Item(0)
TYPE_ID = DT.Rows(0).Item(1)
PARENT_ID1 = DT.Rows(0).Item(0)
TYPE_ID1 = DT.Rows(0).Item(1)
End If
If TYPE_ID <> 5 Then
If TYPE_ID1 <> 5 Then
If childNodeLevel1.Text = "Allgemein" Then
Console.WriteLine("Allgemein-Reiter")
End If
@@ -1336,17 +1330,37 @@ Public Class frmConstructor_Main
#Region "DetailView - Toolstrip"
Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click
'If CtrlCommandUI.IsInsert Then
' Exit Sub
'End If
'Wenn es eine Parent_ID gibt aber kein PArent_Datensatz ausgewählt wurde muss dies nachgeholt werden
If PARENT_ID > 0 Then
If PARENT_SKIPPED = True Then
If PARENT_SKIPPED = True And PARENT_RECORDID = 0 Then
Dim msg = "Achtung es wurde noch kein Parent-Datensatz ausgewählt! Bitte wählen Sie einen Datensatz aus!"
If USER_LANGUAGE <> "de-DE" Then
msg = "Attention: No parent-record was selected! Please choose a parent record!"
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
Exit Sub
Try
Dim sql
sql = "select * from VWTEMP_PMO_FORM" & PARENT_ID.ToString
CURRENT_PARENT_DT = ClassDatabase.Return_Datatable(sql, "VariableSelect ParentEntity")
frmChooseParentRecord.ShowDialog()
If CURRENT_PARENT_RECORD_ID = 0 Then
MsgBox("No Parent-Record selected. Adding will be terminated.", MsgBoxStyle.Exclamation)
Exit Sub
End If
PARENT_RECORDID = CURRENT_PARENT_RECORD_ID
Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gesetzt werden ####
Case 1
EBENE1_RECID = CURRENT_PARENT_RECORD_ID
Case 2
EBENE1_RECID = CURRENT_PARENT_RECORD_ID
Case 3
EBENE2_RECID = CURRENT_PARENT_RECORD_ID
End Select
Catch ex As Exception
MsgBox("Fehler bei Load_ParentConnections:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End If
Me.Cursor = Cursors.WaitCursor
@@ -1365,8 +1379,8 @@ Public Class frmConstructor_Main
CURRENT_RECORD_ID = NewRecordId
RECORD_ID = NewRecordId
SELECTED_RECORD_ID = NewRecordId
If PARENT_ID > 0 Then
If ClassControlCommandsUI.ConnectRecord(PARENT_ID, CURRENT_RECORD_ID, "INSERT RECORD") = False Then
If PARENT_ID > 0 And PARENT_RECORDID > 0 Then
If ClassControlCommandsUI.ConnectRecord(PARENT_RECORDID, CURRENT_RECORD_ID, "INSERT RECORD") = False Then
MsgBox("Unexpected Error in Connect Record - Please check the logfile and inform the admin!", MsgBoxStyle.Critical)
End If
End If
@@ -1872,14 +1886,8 @@ Public Class frmConstructor_Main
Dim result1 = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Where form.Item("FORM_ID") = ENTITY_ID).Single()
Dim PARENT_ID = result1.Item("PARENT_ID")
'Dim sql As String = "SELECT PARENT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
'Dim PARENT_ID = ClassDatabase.Execute_Scalar(sql)
If PARENT_ID Is Nothing Then
MsgBox("Error in GetParentID for selectedNode - Check Logfile", MsgBoxStyle.Exclamation)
Exit Sub
End If
PARENT_ID = result1.Item("PARENT_ID")
CURRENT_PARENT_ID = PARENT_ID
'Abhängig von der Entität die Selektierungs-Daten laden
Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID)
@@ -1896,7 +1904,6 @@ Public Class frmConstructor_Main
EBENE3_RECID = 0
PARENT_RECORDID = 0
PARENT_ID = 0
EBENE1_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE1_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 1 selected in TreeView", False)
@@ -1932,9 +1939,8 @@ Public Class frmConstructor_Main
'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken
If EBENE1_RECID > 0 Then
PARENT_RECORDID = EBENE1_RECID
PARENT_ID = EBENE1_RECID
If GRID_TYPE = GridType.Grid Then
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & ENTITY_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_ID
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & ENTITY_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_RECORDID
Else
_ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
_ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
@@ -1943,7 +1949,6 @@ Public Class frmConstructor_Main
End If
Else
SELECTED_RECORD_ID = 0
PARENT_ID = 0
PARENT_RECORDID = 0
NavPane.Categories.Clear()
tsslblRecord.Text = ""
@@ -1976,10 +1981,9 @@ Public Class frmConstructor_Main
If EBENE2_RECID > 0 Then
'Parent-ID setzen
PARENT_RECORDID = EBENE2_RECID
PARENT_ID = EBENE2_RECID
Try
If GRID_TYPE = GridType.Grid Then
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & ENTITY_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_ID
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & ENTITY_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_RECORDID
Else
_ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
_ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
@@ -1992,7 +1996,6 @@ Public Class frmConstructor_Main
Else
SELECTED_RECORD_ID = 0
PARENT_ID = 0
PARENT_RECORDID = 0
NavPane.Categories.Clear()
Update_Status_Label(True, "Entity 2 skipped - All Records loaded", EditState.Update)
@@ -2010,7 +2013,7 @@ Public Class frmConstructor_Main
_ENTITYSTRING = ACT_EBENE_STRING
PARENT_ID = PARENT_RECORDID
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
act_FormViewID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & ENTITY_ID)
If EDIT_STATE = EditState.None Then
@@ -2179,7 +2182,7 @@ Public Class frmConstructor_Main
Select Case ACT_EBENE
Case 1
PARENT_RECORDID = Grid_RecordID
PARENT_ID = PARENT_RECORDID
CURRENT_RECORD_ID = PARENT_RECORDID
SELECTED_RECORD_ID = Grid_RecordID
RECORD_ID = Grid_RecordID
ENTITY_RELOAD_AFT_CONTROL_LOAD = False
@@ -2667,19 +2670,20 @@ Public Class frmConstructor_Main
EBENE2_RECID = PARENT_RECORD1
PARENT_RECORDID = PARENT_RECORD1
PARENT_ID = PARENT_RECORD1
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
End If
Case 2
linkedRecord = GET_LINKED_RECORD(Rec_ID, ENTITY_ID)
If linkedRecord > 0 Then
EBENE1_RECID = Rec_ID
PARENT_RECORDID = EBENE1_RECID
PARENT_ID = PARENT_RECORDID
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
End If
Case 1
PARENT_RECORDID = Rec_ID
EBENE1_RECID = PARENT_RECORDID
PARENT_ID = PARENT_RECORDID
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
End Select
RECORD_ID = CInt(linkedRecord)
SELECTED_RECORD_ID = RECORD_ID
@@ -2693,7 +2697,7 @@ Public Class frmConstructor_Main
Case 1
PARENT_RECORDID = RECORD_ID
EBENE1_RECID = PARENT_RECORDID
PARENT_ID = EBENE1_RECID
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
If Not EBENE1_COLUMNNAME Is Nothing Then
EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
End If
@@ -2704,9 +2708,9 @@ Public Class frmConstructor_Main
End If
If EBENE1_RECID > 0 Then
PARENT_RECORDID = EBENE1_RECID
PARENT_ID = EBENE1_RECID
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
Else
PARENT_ID = EBENE2_RECID
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
End If
Case 3
EBENE3_RECID = SELECTED_RECORD_ID
@@ -2715,7 +2719,7 @@ Public Class frmConstructor_Main
End If
If EBENE2_RECID > 0 Then
PARENT_RECORDID = EBENE2_RECID
PARENT_ID = EBENE2_RECID
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
End If
End Select
End If
@@ -4689,15 +4693,6 @@ Public Class frmConstructor_Main
TreeViewMain.Select()
End If
'Dim sql As String = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = 0 AND CONSTRUCT_ID = " & CONSTRUCTORID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID & " ORDER BY SEQUENCE"
'Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
'If Not IsNothing(dt) Then
' If dt.Rows.Count >= 1 Then
' Dim tn As TreeNode = TreeViewMain.Nodes(0)
' TreeViewMain.SelectedNode = tn
' TreeViewMain.Select()
' End If
'End If
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Load_Level1 took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
@@ -4852,123 +4847,43 @@ Public Class frmConstructor_Main
Show_Verknuepfungen()
End Sub
Sub Show_Verknuepfungen()
If SplitContainerBottom.Collapsed = True Then
Dim msg = "Verknüpfungen ausblenden"
If USER_LANGUAGE <> "de-DE" Then
msg = "Hide record-links"
End If
VerknüpfungenAnzeigenToolStripMenuItem.Text = msg
Load_ParentConnections()
TCDetails.SelectedTabPageIndex = 0
SplitContainerBottom.Collapsed = False
Else
Dim msg = "Verknüpfungen einblenden"
If USER_LANGUAGE <> "de-DE" Then
msg = "Show record-links"
End If
VerknüpfungenAnzeigenToolStripMenuItem.Text = msg
SplitContainerBottom.Collapsed = True
'Save_GridViewParentEntityLayout()
Dim result As MsgBoxResult
Dim msg = "Möchten Sie den Parent-Datensatz für den aktuellen Datensatz wirklich aktualisieren?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to change the parent-record?"
End If
End Sub
Sub Load_ParentConnections()
Try
' TODO: LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Where form.Item("FORM_ID") = ENTITY_ID).Single()
Dim Parent_ID = result.Item("PARENT_ID")
Dim Title = result.Item("CAPTION")
Dim Colname = "[" & result.Item("COLUMN_NAME1") & "]"
'Dim Parent_ID = DT.Rows(0).Item(0)
'Dim Title = DT.Rows(0).Item(1)
'Dim Colname = "[" & ClassDatabase.Execute_Scalar("SELECT TOP 1 COLUMN_NAME1 from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & Parent_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID, True) & "]"
'Load_GridViewParentEntity_Layout()
If Not IsNothing(Parent_ID) And Not IsNothing(Colname) Then
Dim sql
If Colname = "[]" Then
Sql = "select * from VWTEMP_PMO_FORM" & Parent_ID.ToString
Else
Try
Sql = "select [Record-ID], " & Colname & " from VWTEMP_PMO_FORM" & Parent_ID.ToString
Catch ex As Exception
Sql = "select * from VWTEMP_PMO_FORM" & Parent_ID.ToString
End Try
End If
Dim DTGrid As DataTable = ClassDatabase.Return_Datatable(Sql, "VariableSelect ParentEntity")
GridControlParent.DataSource = Nothing
GridViewParent.Columns.Clear()
'Databinding Neu
GridControlParent.DataSource = DTGrid
'TabPageParentEntity.Text = "Aktuelle Parent-Entity: " & Title
GridViewParent.Columns.Item("Record-ID").Visible = False
End If
Catch ex As Exception
MsgBox("Fehler bei Load_ParentConnections:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub GridViewParent_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewParent.FocusedRowChanged
Try
If GridViewParent.RowCount > 0 Then
Dim Grid_RecordID = GridViewParent.GetFocusedRowCellValue(GridViewParent.Columns("Record-ID"))
If Grid_RecordID Is Nothing = False Then
LinkParentID = Grid_RecordID
'lblParentID.Text = Grid_RecordID.ToString & " - " & GridViewParentEntity.GetFocusedRowCellValue(GridViewParent.Columns(1))
btnRelinkParentID.BackColor = Color.DarkOrange
btnRelinkParentID.FlatAppearance.BorderColor = Color.DarkOrange
btnRelinkParentID.Enabled = True
Else
btnRelinkParentID.Enabled = False
btnRelinkParentID.BackColor = Color.WhiteSmoke
btnRelinkParentID.FlatAppearance.BorderColor = Color.WhiteSmoke
ClassLogger.Add(">> Grid_RecordID koncould not be chosen - GetFocusedParentID", True)
' lblParentID.Text = "keine Auswahl möglich"
End If
Else
btnRelinkParentID.Enabled = False
btnRelinkParentID.BackColor = Color.WhiteSmoke
btnRelinkParentID.FlatAppearance.BorderColor = Color.WhiteSmoke
'lblParentID.Text = "keine Rows gefunden"
End If
Catch ex As Exception
MsgBox("Fehler bei GetFocusedParentID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub btnRelinkParentID_Click(sender As Object, e As EventArgs) Handles btnRelinkParentID.Click
If PARENT_ID > 0 Then
Dim result As MsgBoxResult
Dim msg = "Möchten Sie den Parent-Datensatz für den aktuellen Datensatz wirklich aktualisieren?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to change the parent-record?"
End If
result = MessageBox.Show(msg, "Change parent-record:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result <> MsgBoxResult.Yes Then
Exit Sub
Else
If ClassDatabase.Execute_non_Query("DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RECORD_ID & " AND RECORD1_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID & ")", True) = False Then
Exit Sub
End If
End If
result = MessageBox.Show(msg, "Change parent-record:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result <> MsgBoxResult.Yes Then
Exit Sub
End If
If ClassControlCommandsUI.ConnectRecord(LinkParentID, RECORD_ID, "ReLInk ENTITY " & ENTITY_ID.ToString) = True Then
Dim sql
sql = "select * from VWTEMP_PMO_FORM" & PARENT_ID.ToString
CURRENT_PARENT_DT = ClassDatabase.Return_Datatable(sql, "VariableSelect ParentEntity")
frmChooseParentRecord.ShowDialog()
If CURRENT_PARENT_RECORD_ID = 0 Then
MsgBox("No Parent-Record selected. Changing Process will be terminated", MsgBoxStyle.Exclamation)
Exit Sub
End If
Dim del = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RECORD_ID
If ClassDatabase.Execute_non_Query(del, True) = False Then
MsgBox("Error in deleting old Record-Link. Check the logfile", MsgBoxStyle.Exclamation)
Exit Sub
End If
If ClassControlCommandsUI.ConnectRecord(CURRENT_PARENT_RECORD_ID, RECORD_ID, "ReLInk ENTITY " & ENTITY_ID.ToString) = True Then
'Save_GridViewParentEntityLayout()
Dim msg = "Die Parent-Entität wurde erfolgreich aktualisiert!"
msg = "Die Parent-Entität wurde erfolgreich aktualisiert!"
If USER_LANGUAGE <> "de-DE" Then
msg = "The Parent-Record was changed successful!"
End If
MsgBox(msg, MsgBoxStyle.Information)
'Load_Data_for_TreeView()
btnRelinkParentID.BackColor = Color.Lime
btnRelinkParentID.FlatAppearance.BorderColor = Color.Lime
Load_Entity_Data_Only()
'Show_Verknuepfungen()
End If
End Sub
Private Sub RecordKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RecordKopierenToolStripMenuItem.Click
Dim result As MsgBoxResult
Dim msg = "Möchten Sie den Datensatz wirklich kopieren?"

3
app/DD-Record-Organiser/frmDokumentart_NameConvention.designer.vb generated
View File

@@ -172,7 +172,7 @@ Partial Class frmDokumentart_NameConvention
'
resources.ApplyResources(Me.cmbDate, "cmbDate")
Me.cmbDate.FormattingEnabled = True
Me.cmbDate.Items.AddRange(New Object() {resources.GetString("cmbDate.Items"), resources.GetString("cmbDate.Items1"), resources.GetString("cmbDate.Items2"), resources.GetString("cmbDate.Items3"), resources.GetString("cmbDate.Items4"), resources.GetString("cmbDate.Items5")})
Me.cmbDate.Items.AddRange(New Object() {resources.GetString("cmbDate.Items"), resources.GetString("cmbDate.Items1"), resources.GetString("cmbDate.Items2"), resources.GetString("cmbDate.Items3"), resources.GetString("cmbDate.Items4"), resources.GetString("cmbDate.Items5"), resources.GetString("cmbDate.Items6"), resources.GetString("cmbDate.Items7"), resources.GetString("cmbDate.Items8"), resources.GetString("cmbDate.Items9")})
Me.cmbDate.Name = "cmbDate"
'
'Label20
@@ -235,6 +235,7 @@ Partial Class frmDokumentart_NameConvention
Me.TableAdapterManager.TBPMO_LANGUAGE_OBJECTTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RIGHT_GROUPTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing

14
app/DD-Record-Organiser/frmDokumentart_NameConvention.resx
View File

@@ -490,7 +490,19 @@ genutzt werden.</value>
<value>DD_MM_YYYY</value>
</data>
<data name="cmbDate.Items5" xml:space="preserve">
<value>MM_YYYY</value>
<value>YYMMDD</value>
</data>
<data name="cmbDate.Items6" xml:space="preserve">
<value>YYYYMM</value>
</data>
<data name="cmbDate.Items7" xml:space="preserve">
<value>YYYYMMDD</value>
</data>
<data name="cmbDate.Items8" xml:space="preserve">
<value>DDMMYY</value>
</data>
<data name="cmbDate.Items9" xml:space="preserve">
<value>DDMMYYYY</value>
</data>
<data name="cmbDate.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 72</value>