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%", "") Dim type = element.Value '.ToUpper.Replace("[v%", "")
type = type.Replace("[%v", "") type = type.Replace("[%v", "")
type = type.Replace("]", "") type = type.Replace("]", "")
Select Case type Select Case type
Case "YY_MM_DD" Case "YY_MM_DD"
datetemp = My.Computer.Clock.LocalTime.Year.ToString.Substring(2) & "_" & _Month & "_" & _day datetemp = My.Computer.Clock.LocalTime.Year.ToString.Substring(2) & "_" & _Month & "_" & _day
Case "YYMMDD" Case "YYMMDD"
datetemp = My.Computer.Clock.LocalTime.Year.ToString.Substring(2) & _Month & _day 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" Case "YYYY_MM_DD"
datetemp = My.Computer.Clock.LocalTime.Year & "_" & _Month & "_" & _day 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" Case "DD_MM_YY"
datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year.ToString.Substring(2) datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year.ToString.Substring(2)
Case "DD_MM_YYYY" Case "DD_MM_YYYY"
datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year.ToString datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year.ToString
Case "DD.MM.YY" Case "DD.MM.YY"
datetemp = _day & "." & _Month & "." & My.Computer.Clock.LocalTime.Year.ToString.Substring(2) datetemp = _day & "." & _Month & "." & My.Computer.Clock.LocalTime.Year.ToString.Substring(2)
Case "DD_MM_YYYY" Case "DDMMYY"
datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year 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" Case "DD.MM.YYYY"
datetemp = _day & "." & _Month & "." & My.Computer.Clock.LocalTime.Year datetemp = _day & "." & _Month & "." & My.Computer.Clock.LocalTime.Year
Case "YYYY_MM" Case "YYYY_MM"

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

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

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

@@ -7,6 +7,7 @@
' Diese Werte müssen später zur Laufzeit geladen werden ' Diese Werte müssen später zur Laufzeit geladen werden
Public CURRENT_FORM_ID As Integer Public CURRENT_FORM_ID As Integer
Public CURRENT_PARENT_ID As Integer Public CURRENT_PARENT_ID As Integer
Public CURRENT_PARENT_RECORD_ID As Integer
Public CURRENT_ENTITYSTRING As String = "" Public CURRENT_ENTITYSTRING As String = ""
@@ -68,4 +69,6 @@
Public CURRENT_CONTROL_VALUES As DataTable Public CURRENT_CONTROL_VALUES As DataTable
Public CURRENT_SQL_AUTO_VALUES_DT As DataTable Public CURRENT_SQL_AUTO_VALUES_DT As DataTable
Public CURRENT_PARENT_DT As DataTable
End Module 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.Label1 = New System.Windows.Forms.Label()
Me.GridControl = New DevExpress.XtraGrid.GridControl() Me.GridControl = New DevExpress.XtraGrid.GridControl()
Me.GridView = New DevExpress.XtraGrid.Views.Grid.GridView() 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() Me.Panel1.SuspendLayout()
CType(Me.GridControl, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -34,39 +36,43 @@ Partial Class frmChooseParentRecord
' '
'Panel1 'Panel1
' '
resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.Controls.Add(Me.Label1) 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.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(964, 34)
Me.Panel1.TabIndex = 0
' '
'Label1 'Label1
' '
Me.Label1.AutoSize = True resources.ApplyResources(Me.Label1, "Label1")
Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "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 'GridControl
' '
Me.GridControl.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ resources.ApplyResources(Me.GridControl, "GridControl")
Or System.Windows.Forms.AnchorStyles.Left) _ Me.GridControl.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControl.EmbeddedNavigator.AccessibleDescription")
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GridControl.EmbeddedNavigator.AccessibleName = resources.GetString("GridControl.EmbeddedNavigator.AccessibleName")
Me.GridControl.Location = New System.Drawing.Point(4, 37) 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.MainView = Me.GridView
Me.GridControl.Name = "GridControl" 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}) Me.GridControl.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView})
' '
'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 Me.GridView.Appearance.EvenRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridView, "GridView")
Me.GridView.GridControl = Me.GridControl Me.GridView.GridControl = Me.GridControl
Me.GridView.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always Me.GridView.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
Me.GridView.Name = "GridView" Me.GridView.Name = "GridView"
@@ -85,17 +91,29 @@ Partial Class frmChooseParentRecord
Me.GridView.OptionsView.ShowAutoFilterRow = True Me.GridView.OptionsView.ShowAutoFilterRow = True
Me.GridView.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always 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 'frmChooseParentRecord
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 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.GridControl)
Me.Controls.Add(Me.Panel1) 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.Name = "frmChooseParentRecord"
Me.Text = "Choose a parent record"
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout()
CType(Me.GridControl, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl, System.ComponentModel.ISupportInitialize).EndInit()
@@ -107,4 +125,6 @@ Partial Class frmChooseParentRecord
Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GridControl As DevExpress.XtraGrid.GridControl Friend WithEvents GridControl As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView As DevExpress.XtraGrid.Views.Grid.GridView 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 End Class

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

@@ -117,7 +117,155 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </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" /> <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"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA
@@ -567,4 +715,83 @@
AAAH/wAA//AAAA//AAD//AAAP/8AAP//AAD//wAA///gB///AAD///////8AAP///////wAA AAAH/wAA//AAAA//AAD//AAAP/8AAP//AAD//wAA///gB///AAD///////8AAP///////wAA
</value> </value>
</data> </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> </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 Private Sub frmChooseParentRecord_Load(sender As Object, e As EventArgs) Handles Me.Load
Try 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 Catch ex As Exception
End Try 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 Sub
End Class 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"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </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" /> <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"> <data name="ResetEbenenAuswahlToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value> <value>188, 22</value>
@@ -143,211 +136,72 @@
<data name="CMSEntity.Size" type="System.Drawing.Size, System.Drawing"> <data name="CMSEntity.Size" type="System.Drawing.Size, System.Drawing">
<value>189, 70</value> <value>189, 70</value>
</data> </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"> <data name="FunktionenDataGridToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value> <value>209, 22</value>
</data> </data>
<data name="FunktionenDataGridToolStripMenuItem.Text" xml:space="preserve"> <data name="FunktionenDataGridToolStripMenuItem.Text" xml:space="preserve">
<value>Datagrid Functions</value> <value>Datagrid Functions</value>
</data> </data>
<data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
<value>179, 6</value> <value>206, 6</value>
</data> </data>
<data name="AnsichtUmschaltenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="AnsichtUmschaltenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value> <value>209, 22</value>
</data> </data>
<data name="AnsichtUmschaltenToolStripMenuItem.Text" xml:space="preserve"> <data name="AnsichtUmschaltenToolStripMenuItem.Text" xml:space="preserve">
<value>Change View</value> <value>Change View</value>
</data> </data>
<data name="ButtonSetViewAsDefault.Size" type="System.Drawing.Size, System.Drawing"> <data name="ButtonSetViewAsDefault.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value> <value>209, 22</value>
</data> </data>
<data name="ButtonSetViewAsDefault.Text" xml:space="preserve"> <data name="ButtonSetViewAsDefault.Text" xml:space="preserve">
<value>Set View as Standard</value> <value>Set View as Standard</value>
</data> </data>
<data name="ButtonResetView.Size" type="System.Drawing.Size, System.Drawing"> <data name="ButtonResetView.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value> <value>209, 22</value>
</data> </data>
<data name="ButtonResetView.Text" xml:space="preserve"> <data name="ButtonResetView.Text" xml:space="preserve">
<value>Reset View</value> <value>Reset View</value>
</data> </data>
<data name="ToolStripSeparator2.Size" type="System.Drawing.Size, System.Drawing"> <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>
<data name="ButtonResetFilter.Size" type="System.Drawing.Size, System.Drawing"> <data name="ButtonResetFilter.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value> <value>209, 22</value>
</data> </data>
<data name="ButtonResetFilter.Text" xml:space="preserve"> <data name="ButtonResetFilter.Text" xml:space="preserve">
<value>Remove all Filters</value> <value>Remove all Filters</value>
</data> </data>
<data name="ButtonExportToExcel.Size" type="System.Drawing.Size, System.Drawing"> <data name="ButtonExportToExcel.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value> <value>209, 22</value>
</data> </data>
<data name="ButtonExportToExcel.Text" xml:space="preserve"> <data name="ButtonExportToExcel.Text" xml:space="preserve">
<value>Export Excel</value> <value>Export Excel</value>
</data> </data>
<data name="DatenNeuLadenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="DatenNeuLadenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value> <value>209, 22</value>
</data> </data>
<data name="DatenNeuLadenToolStripMenuItem.Text" xml:space="preserve"> <data name="DatenNeuLadenToolStripMenuItem.Text" xml:space="preserve">
<value>Refresh Data</value> <value>Refresh Data</value>
</data> </data>
<data name="ToolStripSeparator6.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator6.Size" type="System.Drawing.Size, System.Drawing">
<value>179, 6</value> <value>206, 6</value>
</data> </data>
<data name="tsmi_RecordDelete.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsmi_RecordDelete.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 22</value> <value>209, 22</value>
</data> </data>
<data name="tsmi_RecordDelete.Text" xml:space="preserve"> <data name="tsmi_RecordDelete.Text" xml:space="preserve">
<value>Delete record</value> <value>Delete record</value>
</data> </data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>183, 198</value> <value>210, 220</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>
</data> </data>
<data name="TabDetails.Text" xml:space="preserve"> <data name="TabDetails.Text" xml:space="preserve">
<value>Details</value> <value>Details</value>
</data> </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"> <data name="DateiÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>127, 22</value> <value>127, 22</value>
</data> </data>
@@ -384,92 +238,6 @@
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>128, 110</value> <value>128, 110</value>
</data> </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"> <data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>174, 22</value> <value>174, 22</value>
</data> </data>
@@ -495,48 +263,9 @@
<data name="ToolStripDropDownButton2.Text" xml:space="preserve"> <data name="ToolStripDropDownButton2.Text" xml:space="preserve">
<value>configuration windream-View</value> <value>configuration windream-View</value>
</data> </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"> <data name="TabWindream.Text" xml:space="preserve">
<value>windream-files</value> <value>windream-files</value>
</data> </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"> <data name="btnRemoveUser_FollowUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
@@ -557,288 +286,33 @@
<data name="btnRemoveUser_FollowUp.Text" xml:space="preserve"> <data name="btnRemoveUser_FollowUp.Text" xml:space="preserve">
<value>delete user</value> <value>delete user</value>
</data> </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"> <data name="btnAddUser_FollowUp.Text" xml:space="preserve">
<value>Add user tu follow up</value> <value>Add user tu follow up</value>
</data> </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"> <data name="Label7.Size" type="System.Drawing.Size, System.Drawing">
<value>216, 13</value> <value>216, 13</value>
</data> </data>
<data name="Label7.Text" xml:space="preserve"> <data name="Label7.Text" xml:space="preserve">
<value>Attention: this list overdrives the general list.</value> <value>Attention: this list overdrives the general list.</value>
</data> </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"> <data name="GroupBox4.Text" xml:space="preserve">
<value>Special recipient for record:</value> <value>Special recipient for record:</value>
</data> </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"> <data name="lblFollowUp_save.Size" type="System.Drawing.Size, System.Drawing">
<value>92, 15</value> <value>92, 15</value>
</data> </data>
<data name="lblFollowUp_save.Text" xml:space="preserve"> <data name="lblFollowUp_save.Text" xml:space="preserve">
<value>Follow Up saved</value> <value>Follow Up saved</value>
</data> </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"> <data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>91, 13</value> <value>91, 13</value>
</data> </data>
<data name="Label5.Text" xml:space="preserve"> <data name="Label5.Text" xml:space="preserve">
<value>Saved Follow Ups</value> <value>Saved Follow Ups</value>
</data> </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"> <data name="TabFollowUp.Text" xml:space="preserve">
<value>Follow Up</value> <value>Follow Up</value>
</data> </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"> <data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -851,9 +325,6 @@
rkJggg== rkJggg==
</value> </value>
</data> </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"> <data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -906,18 +377,6 @@
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value> </value>
</data> </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"> <data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@@ -929,15 +388,6 @@
<data name="TabPos.Text" xml:space="preserve"> <data name="TabPos.Text" xml:space="preserve">
<value>positions</value> <value>positions</value>
</data> </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"> <data name="tsButtonAdd.Size" type="System.Drawing.Size, System.Drawing">
<value>49, 22</value> <value>49, 22</value>
</data> </data>
@@ -995,7 +445,7 @@
<value>213, 22</value> <value>213, 22</value>
</data> </data>
<data name="VerknüpfungenAnzeigenToolStripMenuItem.Text" xml:space="preserve"> <data name="VerknüpfungenAnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Show record-links</value> <value>Change parent-record link</value>
</data> </data>
<data name="ToolStripSeparator4.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator4.Size" type="System.Drawing.Size, System.Drawing">
<value>210, 6</value> <value>210, 6</value>
@@ -1030,110 +480,29 @@
<data name="tsButtonShowTaskOverview.Text" xml:space="preserve"> <data name="tsButtonShowTaskOverview.Text" xml:space="preserve">
<value>TaskOverview</value> <value>TaskOverview</value>
</data> </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"> <data name="tslblLocked.Size" type="System.Drawing.Size, System.Drawing">
<value>131, 22</value> <value>128, 22</value>
</data> </data>
<data name="tslblLocked.Text" xml:space="preserve"> <data name="tslblLocked.Text" xml:space="preserve">
<value>Only reading access</value> <value>Only reading access</value>
</data> </data>
<data name="ToolStripEdit.Title" xml:space="preserve"> <data name="tslblFileslocked.Size" type="System.Drawing.Size, System.Drawing">
<value /> <value>97, 22</value>
</data> </data>
<data name="ToolStripEdit.ToolTip" xml:space="preserve"> <data name="tslblFileslocked.Text" xml:space="preserve">
<value /> <value>No file-access</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> </data>
<data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@@ -1162,49 +531,14 @@
uIEEMbxns0OpzYNRITMZmOv/PZbXJi3WJC3WJC3Wo939Ao+TPgKX3Mi+AAAAAElFTkSuQmCC uIEEMbxns0OpzYNRITMZmOv/PZbXJi3WJC3WJC3Wo939Ao+TPgKX3Mi+AAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="NavPane.ToolTip" xml:space="preserve"> <assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<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>
<data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4xLCBWZXJzaW9uPTE1LjEu AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
Ny4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE OS4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE
ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
</value> </value>
</data> </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"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA
@@ -1654,16 +988,4 @@
AAAADwAA/gAAAAAPAAD//4AAAB8AAP///8AP/wAA////////AAD///////8AAP///////wAA AAAADwAA/gAAAAAPAAD//4AAAB8AAP///8AP/wAA////////AAD///////8AAP///////wAA
</value> </value>
</data> </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> </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 GridControlMain.MainView = grvwTiles
End Sub End Sub
Public Sub Hide_Grid_Columns() 'Public Sub Hide_Grid_Columns()
Try ' Try
Dim DefaultHiddenColumns As New List(Of String) From {"Record-ID", "Form-ID", "ROW_COLOR", "COLOR"} ' 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"} ' Dim QuickHiddenColumns As New List(Of String) From {"AddedWho", "AddedWhen", "ChangedWho", "ChangedWhen"}
If GRID_TYPE = GridType.Carousel Or GRID_TYPE = GridType.Tiles Then ' If GRID_TYPE = GridType.Carousel Or GRID_TYPE = GridType.Tiles Then
DefaultHiddenColumns.AddRange(QuickHiddenColumns) ' DefaultHiddenColumns.AddRange(QuickHiddenColumns)
End If ' End If
For Each colname As String In DefaultHiddenColumns ' For Each colname As String In DefaultHiddenColumns
Dim col = grvwTiles.Columns.Item(colname) ' Dim col = grvwTiles.Columns.Item(colname)
If col IsNot Nothing Then ' If col IsNot Nothing Then
col.Visible = False ' col.Visible = False
End If ' End If
Next ' Next
Catch ex As Exception ' Catch ex As Exception
ClassLogger.Add("Unexpected Error in Hide_Grid_Columns: " & ex.Message, True) ' ClassLogger.Add("Unexpected Error in Hide_Grid_Columns: " & ex.Message, True)
End Try ' End Try
End Sub 'End Sub
Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer, ConstructorDetailID As Integer) Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer, ConstructorDetailID As Integer)
Try Try
@@ -1121,21 +1121,15 @@ Public Class frmConstructor_Main
Dim selnode As TreeNode = TreeViewMain.SelectedNode Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim a As Integer = 0 Dim a As Integer = 0
For Each childNodeLevel1 As TreeNode In selnode.Nodes For Each childNodeLevel1 As TreeNode In selnode.Nodes
Dim PARENT_ID As Integer Dim PARENT_ID1 As Integer
Dim TYPE_ID As Integer Dim TYPE_ID1 As Integer
If a = 0 Then 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 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") Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "ShowNodeAmounts")
PARENT_ID = DT.Rows(0).Item(0) PARENT_ID1 = DT.Rows(0).Item(0)
TYPE_ID = DT.Rows(0).Item(1) TYPE_ID1 = DT.Rows(0).Item(1)
End If End If
If TYPE_ID <> 5 Then If TYPE_ID1 <> 5 Then
If childNodeLevel1.Text = "Allgemein" Then If childNodeLevel1.Text = "Allgemein" Then
Console.WriteLine("Allgemein-Reiter") Console.WriteLine("Allgemein-Reiter")
End If End If
@@ -1336,17 +1330,37 @@ Public Class frmConstructor_Main
#Region "DetailView - Toolstrip" #Region "DetailView - Toolstrip"
Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click
'If CtrlCommandUI.IsInsert Then 'Wenn es eine Parent_ID gibt aber kein PArent_Datensatz ausgewählt wurde muss dies nachgeholt werden
' Exit Sub
'End If
If PARENT_ID > 0 Then 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!" Dim msg = "Achtung es wurde noch kein Parent-Datensatz ausgewählt! Bitte wählen Sie einen Datensatz aus!"
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "Attention: No parent-record was selected! Please choose a parent record!" msg = "Attention: No parent-record was selected! Please choose a parent record!"
End If End If
MsgBox(msg, MsgBoxStyle.Exclamation) 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
End If End If
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
@@ -1365,8 +1379,8 @@ Public Class frmConstructor_Main
CURRENT_RECORD_ID = NewRecordId CURRENT_RECORD_ID = NewRecordId
RECORD_ID = NewRecordId RECORD_ID = NewRecordId
SELECTED_RECORD_ID = NewRecordId SELECTED_RECORD_ID = NewRecordId
If PARENT_ID > 0 Then If PARENT_ID > 0 And PARENT_RECORDID > 0 Then
If ClassControlCommandsUI.ConnectRecord(PARENT_ID, CURRENT_RECORD_ID, "INSERT RECORD") = False 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) MsgBox("Unexpected Error in Connect Record - Please check the logfile and inform the admin!", MsgBoxStyle.Critical)
End If End If
End If End If
@@ -1872,14 +1886,8 @@ Public Class frmConstructor_Main
Dim result1 = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable() Dim result1 = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form Select form
Where form.Item("FORM_ID") = ENTITY_ID).Single() Where form.Item("FORM_ID") = ENTITY_ID).Single()
Dim PARENT_ID = result1.Item("PARENT_ID") 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 CURRENT_PARENT_ID = PARENT_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
'Abhängig von der Entität die Selektierungs-Daten laden 'Abhängig von der Entität die Selektierungs-Daten laden
Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID) Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID)
@@ -1896,7 +1904,6 @@ Public Class frmConstructor_Main
EBENE3_RECID = 0 EBENE3_RECID = 0
PARENT_RECORDID = 0 PARENT_RECORDID = 0
PARENT_ID = 0
EBENE1_ENTITY = TreeViewMain.SelectedNode.Text EBENE1_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE1_ENTITY ACT_EBENE_STRING = EBENE1_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 1 selected in TreeView", False) 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 'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken
If EBENE1_RECID > 0 Then If EBENE1_RECID > 0 Then
PARENT_RECORDID = EBENE1_RECID PARENT_RECORDID = EBENE1_RECID
PARENT_ID = EBENE1_RECID
If GRID_TYPE = GridType.Grid Then 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 Else
_ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID) _ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
_ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2") _ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
@@ -1943,7 +1949,6 @@ Public Class frmConstructor_Main
End If End If
Else Else
SELECTED_RECORD_ID = 0 SELECTED_RECORD_ID = 0
PARENT_ID = 0
PARENT_RECORDID = 0 PARENT_RECORDID = 0
NavPane.Categories.Clear() NavPane.Categories.Clear()
tsslblRecord.Text = "" tsslblRecord.Text = ""
@@ -1976,10 +1981,9 @@ Public Class frmConstructor_Main
If EBENE2_RECID > 0 Then If EBENE2_RECID > 0 Then
'Parent-ID setzen 'Parent-ID setzen
PARENT_RECORDID = EBENE2_RECID PARENT_RECORDID = EBENE2_RECID
PARENT_ID = EBENE2_RECID
Try Try
If GRID_TYPE = GridType.Grid Then 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 Else
_ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID) _ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
_ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2") _ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
@@ -1992,7 +1996,6 @@ Public Class frmConstructor_Main
Else Else
SELECTED_RECORD_ID = 0 SELECTED_RECORD_ID = 0
PARENT_ID = 0
PARENT_RECORDID = 0 PARENT_RECORDID = 0
NavPane.Categories.Clear() NavPane.Categories.Clear()
Update_Status_Label(True, "Entity 2 skipped - All Records loaded", EditState.Update) Update_Status_Label(True, "Entity 2 skipped - All Records loaded", EditState.Update)
@@ -2010,7 +2013,7 @@ Public Class frmConstructor_Main
_ENTITYSTRING = ACT_EBENE_STRING _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) act_FormViewID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & ENTITY_ID)
If EDIT_STATE = EditState.None Then If EDIT_STATE = EditState.None Then
@@ -2179,7 +2182,7 @@ Public Class frmConstructor_Main
Select Case ACT_EBENE Select Case ACT_EBENE
Case 1 Case 1
PARENT_RECORDID = Grid_RecordID PARENT_RECORDID = Grid_RecordID
PARENT_ID = PARENT_RECORDID CURRENT_RECORD_ID = PARENT_RECORDID
SELECTED_RECORD_ID = Grid_RecordID SELECTED_RECORD_ID = Grid_RecordID
RECORD_ID = Grid_RecordID RECORD_ID = Grid_RecordID
ENTITY_RELOAD_AFT_CONTROL_LOAD = False ENTITY_RELOAD_AFT_CONTROL_LOAD = False
@@ -2667,19 +2670,20 @@ Public Class frmConstructor_Main
EBENE2_RECID = PARENT_RECORD1 EBENE2_RECID = PARENT_RECORD1
PARENT_RECORDID = PARENT_RECORD1 PARENT_RECORDID = PARENT_RECORD1
PARENT_ID = PARENT_RECORD1 CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
End If End If
Case 2 Case 2
linkedRecord = GET_LINKED_RECORD(Rec_ID, ENTITY_ID) linkedRecord = GET_LINKED_RECORD(Rec_ID, ENTITY_ID)
If linkedRecord > 0 Then If linkedRecord > 0 Then
EBENE1_RECID = Rec_ID EBENE1_RECID = Rec_ID
PARENT_RECORDID = EBENE1_RECID PARENT_RECORDID = EBENE1_RECID
PARENT_ID = PARENT_RECORDID CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
End If End If
Case 1 Case 1
PARENT_RECORDID = Rec_ID PARENT_RECORDID = Rec_ID
EBENE1_RECID = PARENT_RECORDID EBENE1_RECID = PARENT_RECORDID
PARENT_ID = PARENT_RECORDID CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
End Select End Select
RECORD_ID = CInt(linkedRecord) RECORD_ID = CInt(linkedRecord)
SELECTED_RECORD_ID = RECORD_ID SELECTED_RECORD_ID = RECORD_ID
@@ -2693,7 +2697,7 @@ Public Class frmConstructor_Main
Case 1 Case 1
PARENT_RECORDID = RECORD_ID PARENT_RECORDID = RECORD_ID
EBENE1_RECID = PARENT_RECORDID EBENE1_RECID = PARENT_RECORDID
PARENT_ID = EBENE1_RECID CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
If Not EBENE1_COLUMNNAME Is Nothing Then If Not EBENE1_COLUMNNAME Is Nothing Then
EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME) EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
End If End If
@@ -2704,9 +2708,9 @@ Public Class frmConstructor_Main
End If End If
If EBENE1_RECID > 0 Then If EBENE1_RECID > 0 Then
PARENT_RECORDID = EBENE1_RECID PARENT_RECORDID = EBENE1_RECID
PARENT_ID = EBENE1_RECID CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
Else Else
PARENT_ID = EBENE2_RECID CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
End If End If
Case 3 Case 3
EBENE3_RECID = SELECTED_RECORD_ID EBENE3_RECID = SELECTED_RECORD_ID
@@ -2715,7 +2719,7 @@ Public Class frmConstructor_Main
End If End If
If EBENE2_RECID > 0 Then If EBENE2_RECID > 0 Then
PARENT_RECORDID = EBENE2_RECID PARENT_RECORDID = EBENE2_RECID
PARENT_ID = EBENE2_RECID CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
End If End If
End Select End Select
End If End If
@@ -4689,15 +4693,6 @@ Public Class frmConstructor_Main
TreeViewMain.Select() TreeViewMain.Select()
End If 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 elapsed = sw.Elapsed.TotalSeconds
sw.Stop() sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Load_Level1 took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False) 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() Show_Verknuepfungen()
End Sub End Sub
Sub Show_Verknuepfungen() Sub Show_Verknuepfungen()
If SplitContainerBottom.Collapsed = True Then Dim result As MsgBoxResult
Dim msg = "Verknüpfungen ausblenden" Dim msg = "Möchten Sie den Parent-Datensatz für den aktuellen Datensatz wirklich aktualisieren?"
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "Hide record-links" msg = "Would You like to change the parent-record?"
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()
End If End If
End Sub result = MessageBox.Show(msg, "Change parent-record:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Sub Load_ParentConnections() If result <> MsgBoxResult.Yes Then
Try Exit Sub
' 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
End If 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() '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 If USER_LANGUAGE <> "de-DE" Then
msg = "The Parent-Record was changed successful!" msg = "The Parent-Record was changed successful!"
End If End If
MsgBox(msg, MsgBoxStyle.Information) MsgBox(msg, MsgBoxStyle.Information)
'Load_Data_for_TreeView()
btnRelinkParentID.BackColor = Color.Lime
btnRelinkParentID.FlatAppearance.BorderColor = Color.Lime
Load_Entity_Data_Only() Load_Entity_Data_Only()
'Show_Verknuepfungen()
End If End If
End Sub End Sub
Private Sub RecordKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RecordKopierenToolStripMenuItem.Click Private Sub RecordKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RecordKopierenToolStripMenuItem.Click
Dim result As MsgBoxResult Dim result As MsgBoxResult
Dim msg = "Möchten Sie den Datensatz wirklich kopieren?" 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") resources.ApplyResources(Me.cmbDate, "cmbDate")
Me.cmbDate.FormattingEnabled = True 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" Me.cmbDate.Name = "cmbDate"
' '
'Label20 'Label20
@@ -235,6 +235,7 @@ Partial Class frmDokumentart_NameConvention
Me.TableAdapterManager.TBPMO_LANGUAGE_OBJECTTableAdapter = Nothing Me.TableAdapterManager.TBPMO_LANGUAGE_OBJECTTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RIGHT_GROUPTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = 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> <value>DD_MM_YYYY</value>
</data> </data>
<data name="cmbDate.Items5" xml:space="preserve"> <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>
<data name="cmbDate.Location" type="System.Drawing.Point, System.Drawing"> <data name="cmbDate.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 72</value> <value>6, 72</value>