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

MS1

Browse Source
This commit is contained in:
SchreiberM
2016-10-05 13:58:39 +02:00
parent c831a56a88
commit 4c42747a29
7 changed files with 172 additions and 642 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -568,10 +568,7 @@ Public Class ClassControlCommandsUI
Public Shared Sub UpdateMultipleValues(ControlId As Integer, RecordId As Integer, value As String) Public Shared Sub UpdateMultipleValues(ControlId As Integer, RecordId As Integer, value As String)
Try Try
If IsNothing(value) Then
Exit Sub
End If
Dim values As New List(Of String)(value.Split(";"))
Dim dt As DataTable = ClassDatabase.Return_Datatable(String.Format("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlId, RecordId)) Dim dt As DataTable = ClassDatabase.Return_Datatable(String.Format("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlId, RecordId))
If IsNothing(dt) Then If IsNothing(dt) Then
Exit Sub Exit Sub
@@ -580,24 +577,33 @@ Public Class ClassControlCommandsUI
Dim oldValues = dt.AsEnumerable().Select(Of String)(Function(r) Dim oldValues = dt.AsEnumerable().Select(Of String)(Function(r)
Return r.Item("VALUE") Return r.Item("VALUE")
End Function).ToList() End Function).ToList()
If IsNothing(value) And dt.Rows.Count = 0 Then
Exit Sub
End If
Dim values As New List(Of String)
If Not IsNothing(value) Then
values = New List(Of String)(value.Split(";"))
Else
values.Add("")
End If
'Dim values As New List(Of String)(value.Split(";"))
Dim AddValues = values.Except(oldValues) Dim AddValues = values.Except(oldValues)
Dim RemoveValues = oldValues.Except(values) Dim RemoveValues = oldValues.Except(values)
Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlId) Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlId)
For Each v As String In AddValues For Each _addValue As String In AddValues
If Not v = String.Empty Then If Not _addValue = "" Then
Select Case FORMAT_TYPE Select Case FORMAT_TYPE
Case "Currency" Case "Currency"
v = Decimal.Parse(v, Globalization.NumberStyles.Currency).ToString _addValue = Decimal.Parse(_addValue, Globalization.NumberStyles.Currency).ToString
Case "Decimal" Case "Decimal"
v = Decimal.Parse(v, Globalization.NumberStyles.Integer) _addValue = Decimal.Parse(_addValue, Globalization.NumberStyles.Integer)
End Select End Select
Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE,ADDED_WHO) VALUES({0}, {1}, '{2}','{3}')", ControlId, RecordId, _addValue, Environment.UserName)
ClassDatabase.Execute_non_Query(ins)
End If End If
Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE,ADDED_WHO) VALUES({0}, {1}, '{2}','{3}')", ControlId, RecordId, v, Environment.UserName)
ClassDatabase.Execute_non_Query(ins)
Next Next
For Each v As String In RemoveValues For Each v As String In RemoveValues
ClassDatabase.Execute_non_Query(String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1} AND VALUE = '{2}'", ControlId, RecordId, v)) ClassDatabase.Execute_non_Query(String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1} AND VALUE = '{2}'", ControlId, RecordId, v))
Next Next

4
app/DD-Record-Organiser/ClassWindreamDocGrid.vb
View File

@@ -70,7 +70,7 @@ Public Class ClassWindreamDocGrid
End Try End Try
Try Try
Dim dpn = gridView.GetRowCellValue(row, "Displayname") Dim dpn = gridView.GetRowCellValue(row, "Displayname")
If IsDBNull(dpn) Then If IsDBNull(dpn) Or IsNothing(dpn) Then
dpn = "" dpn = ""
End If End If
newRow("DISPLAYNAME") = dpn newRow("DISPLAYNAME") = dpn
@@ -108,7 +108,7 @@ Public Class ClassWindreamDocGrid
End Try End Try
Try Try
Dim dpn = gridView.GetFocusedRowCellValue(gridView.Columns("Displayname")) Dim dpn = gridView.GetFocusedRowCellValue(gridView.Columns("Displayname"))
If IsDBNull(dpn) Then If IsDBNull(dpn) Or IsNothing(dpn) Then
dpn = "" dpn = ""
End If End If
newRow("DISPLAYNAME") = dpn newRow("DISPLAYNAME") = dpn

2
app/DD-Record-Organiser/My Project/AssemblyInfo.vb
View File

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.7.6")> <Assembly: AssemblyVersion("2.4.7.7")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

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

@@ -231,6 +231,7 @@ Partial Class frmConstructor_Main
' '
'TreeViewMain 'TreeViewMain
' '
Me.TreeViewMain.AllowDrop = True
Me.TreeViewMain.BackColor = System.Drawing.SystemColors.GradientInactiveCaption Me.TreeViewMain.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.TreeViewMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.TreeViewMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TreeViewMain.ContextMenuStrip = Me.CMSEntity Me.TreeViewMain.ContextMenuStrip = Me.CMSEntity

612
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>
@@ -149,34 +142,6 @@
<data name="CMSEntity.Size" type="System.Drawing.Size, System.Drawing"> <data name="CMSEntity.Size" type="System.Drawing.Size, System.Drawing">
<value>189, 92</value> <value>189, 92</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>226, 22</value> <value>226, 22</value>
</data> </data>
@@ -258,123 +223,9 @@
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>227, 270</value> <value>227, 270</value>
</data> </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 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>190, 22</value> <value>190, 22</value>
</data> </data>
@@ -426,12 +277,18 @@
<data name="ToolStripSeparator8.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator8.Size" type="System.Drawing.Size, System.Drawing">
<value>187, 6</value> <value>187, 6</value>
</data> </data>
<data name="DeleteToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripMI_DeleteFile.Size" type="System.Drawing.Size, System.Drawing">
<value>190, 22</value> <value>190, 22</value>
</data> </data>
<data name="DeleteToolStripMenuItem.Text" xml:space="preserve"> <data name="ToolStripMI_DeleteFile.Text" xml:space="preserve">
<value>Delete file</value> <value>Delete file</value>
</data> </data>
<data name="TsMI_DocRemoveLink.Size" type="System.Drawing.Size, System.Drawing">
<value>190, 22</value>
</data>
<data name="TsMI_DocRemoveLink.Text" xml:space="preserve">
<value>Remove file link</value>
</data>
<data name="ToolStripSeparator9.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator9.Size" type="System.Drawing.Size, System.Drawing">
<value>187, 6</value> <value>187, 6</value>
</data> </data>
@@ -448,73 +305,7 @@
<value>Set stored layout back</value> <value>Set stored layout back</value>
</data> </data>
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>191, 248</value> <value>191, 270</value>
</data>
<data name="ContextMenuStripResultFiles.Title" xml:space="preserve">
<value />
</data>
<data name="ContextMenuStripResultFiles.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ContextMenuStripResultFiles.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ContextMenuStripResultFiles.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.2">
<value>Center</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GridControlDocSearch.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="GridViewDoc_Search.Appearance.OddRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridViewDoc_Search.Appearance.OddRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="GridViewDoc_Search.Appearance.OddRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="GridViewDoc_Search.Appearance.OddRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlDocSearch.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ToolStripDokumente.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data> </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>
@@ -541,48 +332,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
@@ -603,288 +355,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
@@ -897,9 +394,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
@@ -952,18 +446,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
@@ -975,15 +457,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>
@@ -1100,24 +573,6 @@
<data name="ToolStripDropDownButton1.Text" xml:space="preserve"> <data name="ToolStripDropDownButton1.Text" xml:space="preserve">
<value>record functions</value> <value>record functions</value>
</data> </data>
<data name="ToolStripEdit.Title" xml:space="preserve">
<value />
</data>
<data name="ToolStripEdit.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ToolStripEdit.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ToolStripEdit.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="SplitContainerMain.ToolTip" xml:space="preserve">
<value />
</data>
<data name="SplitContainer1.ToolTip" xml:space="preserve">
<value />
</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>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@@ -1145,24 +600,7 @@
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/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
@@ -1170,24 +608,6 @@
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
@@ -1637,16 +1057,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>

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

@@ -325,7 +325,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1067, 237</value> <value>1074, 237</value>
</data> </data>
<data name="GridControlMain.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@@ -394,7 +394,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1360, 343</value> <value>1356, 347</value>
</data> </data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib"> <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@@ -412,7 +412,7 @@
<value>0</value> <value>0</value>
</data> </data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1360, 343</value> <value>1356, 347</value>
</data> </data>
<data name="TabDetails.Text" xml:space="preserve"> <data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value> <value>Detailansicht</value>
@@ -430,7 +430,7 @@
<value>0</value> <value>0</value>
</data> </data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1362, 371</value> <value>1362, 378</value>
</data> </data>
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib"> <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@@ -547,7 +547,7 @@
<value>0, 25</value> <value>0, 25</value>
</data> </data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1360, 318</value> <value>1356, 322</value>
</data> </data>
<data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
<value>7</value> <value>7</value>
@@ -608,7 +608,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
<value>1360, 25</value> <value>1356, 25</value>
</data> </data>
<data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib"> <data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@@ -629,7 +629,7 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1360, 343</value> <value>1356, 347</value>
</data> </data>
<data name="TabWindream.Text" xml:space="preserve"> <data name="TabWindream.Text" xml:space="preserve">
<value>windream-Dateien</value> <value>windream-Dateien</value>
@@ -1060,7 +1060,7 @@
<value>2</value> <value>2</value>
</data> </data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1360, 343</value> <value>1356, 347</value>
</data> </data>
<data name="TabFollowUp.Text" xml:space="preserve"> <data name="TabFollowUp.Text" xml:space="preserve">
<value>Wiedervorlage</value> <value>Wiedervorlage</value>
@@ -1087,7 +1087,7 @@
<value>Cyan</value> <value>Cyan</value>
</data> </data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1360, 318</value> <value>1356, 322</value>
</data> </data>
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@@ -1111,7 +1111,7 @@
<value>0, 25</value> <value>0, 25</value>
</data> </data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1360, 318</value> <value>1356, 322</value>
</data> </data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib"> <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@@ -1286,7 +1286,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing"> <data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
<value>1360, 25</value> <value>1356, 25</value>
</data> </data>
<data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib"> <data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@@ -1315,7 +1315,7 @@
</value> </value>
</data> </data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1360, 343</value> <value>1356, 347</value>
</data> </data>
<data name="TabPos.Text" xml:space="preserve"> <data name="TabPos.Text" xml:space="preserve">
<value>Positionen</value> <value>Positionen</value>

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

@@ -5,6 +5,7 @@ Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraEditors.Repository Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraGrid.Views.Base Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Tile Imports DevExpress.XtraGrid.Views.Tile
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraScheduler Imports DevExpress.XtraScheduler
Imports System.Text Imports System.Text
Imports System.IO Imports System.IO
@@ -12,6 +13,7 @@ Imports DevExpress.XtraGrid
Imports WINDREAMLib Imports WINDREAMLib
Imports System.Runtime.InteropServices Imports System.Runtime.InteropServices
Imports DD_Rights Imports DD_Rights
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Public Class frmConstructor_Main Public Class frmConstructor_Main
@@ -72,7 +74,8 @@ Public Class frmConstructor_Main
Private TreeView_perControl As Boolean = False Private TreeView_perControl As Boolean = False
Dim IsTopFirstRow As Boolean = True Dim IsTopFirstRow As Boolean = True
Private RightMouse_Clicked = False Private GRIDRightMouse_Clicked = False
Private GRIDdownHitInfo As GridHitInfo
Private VIEW_ID Private VIEW_ID
Private VIEW_ID_RUNTIME As Integer = -1 Private VIEW_ID_RUNTIME As Integer = -1
@@ -396,7 +399,7 @@ Public Class frmConstructor_Main
Exit Sub Exit Sub
End If End If
Dim XMLPath = Get_DocGRid_Layout_Filename() Dim XMLPath = Get_DocGrid_Layout_Filename()
GridViewDoc_Search.SaveLayoutToXml(XMLPath) GridViewDoc_Search.SaveLayoutToXml(XMLPath)
' Update_Status_Label(True, "Grid Layout Loaded") ' Update_Status_Label(True, "Grid Layout Loaded")
Catch ex As Exception Catch ex As Exception
@@ -408,7 +411,7 @@ Public Class frmConstructor_Main
If ACT_EBENE_STRING Is Nothing Then If ACT_EBENE_STRING Is Nothing Then
Exit Sub Exit Sub
End If End If
Dim XMLPath = Get_DocGRid_Layout_Filename() Dim XMLPath = Get_DocGrid_Layout_Filename()
If File.Exists(XMLPath) Then If File.Exists(XMLPath) Then
GridViewDoc_Search.RestoreLayoutFromXml(XMLPath) GridViewDoc_Search.RestoreLayoutFromXml(XMLPath)
GridViewDoc_Search.GuessAutoFilterRowValuesFromFilter() GridViewDoc_Search.GuessAutoFilterRowValuesFromFilter()
@@ -886,7 +889,7 @@ Public Class frmConstructor_Main
If ENTITY_LOADED = False Then If ENTITY_LOADED = False Then
Exit Sub Exit Sub
End If End If
If RightMouse_Clicked Then If GRIDRightMouse_Clicked Then
Exit Sub Exit Sub
End If End If
' If NODE_NAVIGATION = False Then ' If NODE_NAVIGATION = False Then
@@ -5171,13 +5174,47 @@ Public Class frmConstructor_Main
End If End If
End Sub End Sub
Private Sub grvwGrid_MouseDown(sender As Object, e As MouseEventArgs) Handles grvwGrid.MouseDown, grvwTiles.MouseDown, grvwCarousel.MouseDown Private Sub grvwGrid_MouseDown(sender As Object, e As MouseEventArgs) Handles grvwGrid.MouseDown, grvwTiles.MouseDown, grvwCarousel.MouseDown
Dim view As GridView = CType(sender, GridView)
If e.Button = Windows.Forms.MouseButtons.Right Then If e.Button = Windows.Forms.MouseButtons.Right Then
RightMouse_Clicked = True GRIDRightMouse_Clicked = True
Else Else
RightMouse_Clicked = False GRIDRightMouse_Clicked = False
End If
Dim hitInfo As GridHitInfo = View.CalcHitInfo(New Point(e.X, e.Y))
If e.Button = Windows.Forms.MouseButtons.Left AndAlso hitInfo.InRow AndAlso hitInfo.HitTest <> GridHitTest.RowIndicator Then
GRIDdownHitInfo = hitInfo
End If End If
End Sub End Sub
Private Sub grvwGrid_MouseMove(sender As Object, e As MouseEventArgs) Handles grvwGrid.MouseMove, grvwTiles.MouseMove, grvwCarousel.MouseMove
Dim view As GridView = CType(sender, GridView)
If e.Button = MouseButtons.Left And Not GRIDdownHitInfo Is Nothing Then
Dim dragSize As Size = SystemInformation.DragSize
Dim dragRect As Rectangle = New Rectangle(New Point(GRIDdownHitInfo.HitPoint.X - dragSize.Width / 2, GRIDdownHitInfo.HitPoint.Y - dragSize.Height / 2), dragSize)
If Not dragRect.Contains(New Point(e.X, e.Y)) Then
view.GridControl.DoDragDrop(GetDragData(view), DragDropEffects.All)
GRIDdownHitInfo = Nothing
End If
End If
End Sub
Private Function GetDragData(ByVal view As GridView) As String()
Dim selection() As Integer = view.GetSelectedRows()
If selection Is Nothing Then
Return Nothing
End If
Dim count As Integer = selection.Length
Dim result(count - 1) As String
For i As Integer = 0 To count - 1
result(i) = view.GetRowCellDisplayText(selection(i), view.Columns("Record-ID"))
Next i
Return result
End Function
Private Sub btnAddUser_FollowUp_Click(sender As Object, e As EventArgs) Handles btnAddUser_FollowUp.Click Private Sub btnAddUser_FollowUp_Click(sender As Object, e As EventArgs) Handles btnAddUser_FollowUp.Click
If cmbFollowUpUser.SelectedIndex <> -1 And FOLL_UP_ID > 0 Then If cmbFollowUpUser.SelectedIndex <> -1 And FOLL_UP_ID > 0 Then
Try Try
@@ -5357,7 +5394,7 @@ Public Class frmConstructor_Main
Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search) ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
Refresh_DocID Refresh_DocID()
End Sub End Sub
@@ -6129,4 +6166,82 @@ Public Class frmConstructor_Main
End Sub End Sub
Private Sub TreeViewMain_DragDrop(sender As Object, e As DragEventArgs) Handles TreeViewMain.DragDrop
Try
If Not IsNothing(e.Data) Then
Me.Cursor = Cursors.WaitCursor
Dim pt As Point
Dim DestinationNode As TreeNode
pt = CType(sender, TreeView).PointToClient(New Point(e.X, e.Y))
DestinationNode = CType(sender, TreeView).GetNodeAt(pt)
Dim node_tag
Dim ENTITY_STRING
Dim sql
If Not IsNothing(DestinationNode) Then
node_tag = DestinationNode.Tag
If Not IsNumeric(node_tag) Then
MsgBox("Could not get a valid Entity!", MsgBoxStyle.Exclamation)
Me.Cursor = Cursors.Default
Exit Sub
End If
sql = String.Format("SELECT [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
"FROM VWPMO_CONSTRUCTOR_FORMS WHERE FORM_ID = {2}", USER_LANGUAGE, CURRENT_SCREEN_ID, node_tag.ToString)
ENTITY_STRING = ClassDatabase.Execute_Scalar(sql)
sql = String.Format("select count(guid) from TBPMO_CONTROL_ENTITY_LINK where ORIGIN_CTRL_ID in (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {0}) " & _
"AND LINKED_CTRL_ID IN (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {1})", ENTITY_ID, node_tag)
Dim count = ClassDatabase.Execute_Scalar(sql)
If Not IsNothing(count) Then
If count = 0 Then
MsgBox("No configuration for changing entity-link!" & vbNewLine & "Please inform Your ADDi-Admin", MsgBoxStyle.Exclamation)
Me.Cursor = Cursors.Default
Exit Sub
End If
End If
Dim msg As String = String.Format("Wollen Sie die ausgewählten Zeilen wirklich der Entität '{0}'zuordnen?", ENTITY_STRING.ToString)
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("Do You really want to change the entity-link of the selected record to '{0}'?", ENTITY_STRING.ToString)
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
For Each _RECORD As String In e.Data.GetData(GetType(String()))
Dim upd = String.Format("UPDATE TBPMO_RECORD SET FORM_ID = {0} where GUID = {1}", node_tag, _RECORD)
If ClassDatabase.Execute_non_Query(upd) = True Then
msg = String.Format("ENTITY WAS CHANGED TO {0}-{1} by User: {2}", ENTITY_STRING, node_tag, Environment.UserName)
ClassHelper.InsertEssential_Log(_RECORD, "RECORD-ID", msg)
sql = "SELECT * FROM VWPMO_WD_DOC_SEARCH WHERE RECORD_ID = " & _RECORD
Dim DT_DOCS As DataTable = ClassDatabase.Return_Datatable(sql)
For Each doc As DataRow In DT_DOCS.Rows
Dim DT_INDICES As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & doc.Item("OBJECTTYPE") & "'")
ClassWindream.REMOVE_VEKTOR_LINK(doc.Item("DOC_PATH"), DT_INDICES.Rows(0).Item("IDXNAME_ENTITYID"), ENTITY_ID)
Next
sql = String.Format("select ORIGIN_CTRL_ID,LINKED_CTRL_ID from TBPMO_CONTROL_ENTITY_LINK where ORIGIN_CTRL_ID in (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {0}) " & _
"AND LINKED_CTRL_ID IN (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {1})", ENTITY_ID, node_tag)
Dim DT_CHANGE_CTR As DataTable = ClassDatabase.Return_Datatable(sql)
For Each row As DataRow In DT_CHANGE_CTR.Rows
upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET CONTROL_ID = {0}, CHANGED_WHO = '{3}' WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", row.Item("LINKED_CTRL_ID"), row.Item("ORIGIN_CTRL_ID"), _RECORD, Environment.UserName)
ClassDatabase.Execute_non_Query(upd)
Next
End If
Next
msg = String.Format("Der Datensatz wurde erfolgreich auf die Entität {0} verlinked!", ENTITY_STRING.ToString)
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("The record was successfully relinked with entity {0}", ENTITY_STRING.ToString)
End If
MsgBox(msg, MsgBoxStyle.Information)
Load_Datafor_Entity()
End If
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in DragDrop TreeView: " & ex.Message, MsgBoxStyle.Critical)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub TreeViewMain_DragOver(sender As Object, e As DragEventArgs) Handles TreeViewMain.DragOver
e.Effect = DragDropEffects.Copy
End Sub
End Class End Class