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)
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))
If IsNothing(dt) Then
Exit Sub
@@ -580,24 +577,33 @@ Public Class ClassControlCommandsUI
Dim oldValues = dt.AsEnumerable().Select(Of String)(Function(r)
Return r.Item("VALUE")
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 RemoveValues = oldValues.Except(values)
Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlId)
For Each v As String In AddValues
If Not v = String.Empty Then
For Each _addValue As String In AddValues
If Not _addValue = "" Then
Select Case FORMAT_TYPE
Case "Currency"
v = Decimal.Parse(v, Globalization.NumberStyles.Currency).ToString
_addValue = Decimal.Parse(_addValue, Globalization.NumberStyles.Currency).ToString
Case "Decimal"
v = Decimal.Parse(v, Globalization.NumberStyles.Integer)
_addValue = Decimal.Parse(_addValue, Globalization.NumberStyles.Integer)
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
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
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))
Next

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

@@ -70,7 +70,7 @@ Public Class ClassWindreamDocGrid
End Try
Try
Dim dpn = gridView.GetRowCellValue(row, "Displayname")
If IsDBNull(dpn) Then
If IsDBNull(dpn) Or IsNothing(dpn) Then
dpn = ""
End If
newRow("DISPLAYNAME") = dpn
@@ -108,7 +108,7 @@ Public Class ClassWindreamDocGrid
End Try
Try
Dim dpn = gridView.GetFocusedRowCellValue(gridView.Columns("Displayname"))
If IsDBNull(dpn) Then
If IsDBNull(dpn) Or IsNothing(dpn) Then
dpn = ""
End If
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:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.7.6")>
<Assembly: AssemblyVersion("2.4.7.7")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

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

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

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

@@ -117,13 +117,6 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="DevExpress.Data.v15.2" name="DevExpress.Data.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="TreeViewMain.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="CMSEntity.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ResetEbenenAuswahlToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value>
@@ -149,34 +142,6 @@
<data name="CMSEntity.Size" type="System.Drawing.Size, System.Drawing">
<value>189, 92</value>
</data>
<data name="CMSEntity.Title" xml:space="preserve">
<value />
</data>
<data name="CMSEntity.ToolTip" xml:space="preserve">
<value />
</data>
<data name="CMSEntity.ToolTip1" xml:space="preserve">
<value />
</data>
<assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="CMSEntity.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="TreeViewMain.Title" xml:space="preserve">
<value />
</data>
<data name="TreeViewMain.ToolTip" xml:space="preserve">
<value />
</data>
<data name="TreeViewMain.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="TreeViewMain.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="ContextMenuGrid.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="FunktionenDataGridToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
</data>
@@ -258,123 +223,9 @@
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>227, 270</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 name="TabDetails.Text" xml:space="preserve">
<value>Details</value>
</data>
<data name="TabDetails.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ContextMenuStripResultFiles.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="DateiÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>190, 22</value>
</data>
@@ -426,12 +277,18 @@
<data name="ToolStripSeparator8.Size" type="System.Drawing.Size, System.Drawing">
<value>187, 6</value>
</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>
</data>
<data name="DeleteToolStripMenuItem.Text" xml:space="preserve">
<data name="ToolStripMI_DeleteFile.Text" xml:space="preserve">
<value>Delete file</value>
</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">
<value>187, 6</value>
</data>
@@ -448,73 +305,7 @@
<value>Set stored layout back</value>
</data>
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>191, 248</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>
<value>191, 270</value>
</data>
<data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>174, 22</value>
@@ -541,48 +332,9 @@
<data name="ToolStripDropDownButton2.Text" xml:space="preserve">
<value>configuration windream-View</value>
</data>
<data name="ToolStripDokumente.Title" xml:space="preserve">
<value />
</data>
<data name="ToolStripDokumente.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ToolStripDokumente.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ToolStripDokumente.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="TabWindream.Text" xml:space="preserve">
<value>windream-files</value>
</data>
<data name="TabWindream.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ListViewFollowUps.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="ListViewFollowUps.Title" xml:space="preserve">
<value />
</data>
<data name="ListViewFollowUps.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ListViewFollowUps.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ListViewFollowUps.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="grpbxFU_Profile.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GroupBox4.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="btnRemoveUser_FollowUp.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="btnRemoveUser_FollowUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
@@ -603,288 +355,33 @@
<data name="btnRemoveUser_FollowUp.Text" xml:space="preserve">
<value>delete user</value>
</data>
<data name="btnRemoveUser_FollowUp.Title" xml:space="preserve">
<value />
</data>
<data name="btnRemoveUser_FollowUp.ToolTip" xml:space="preserve">
<value />
</data>
<data name="btnRemoveUser_FollowUp.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="btnRemoveUser_FollowUp.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="btnAddUser_FollowUp.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="btnAddUser_FollowUp.Text" xml:space="preserve">
<value>Add user tu follow up</value>
</data>
<data name="btnAddUser_FollowUp.Title" xml:space="preserve">
<value />
</data>
<data name="btnAddUser_FollowUp.ToolTip" xml:space="preserve">
<value />
</data>
<data name="btnAddUser_FollowUp.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="btnAddUser_FollowUp.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="cmbFollowUpUser.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="cmbFollowUpUser.Title" xml:space="preserve">
<value />
</data>
<data name="cmbFollowUpUser.ToolTip" xml:space="preserve">
<value />
</data>
<data name="cmbFollowUpUser.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="cmbFollowUpUser.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="Label6.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="Label6.Title" xml:space="preserve">
<value />
</data>
<data name="Label6.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Label6.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="Label6.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="ListBoxUser2Profile.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="ListBoxUser2Profile.Title" xml:space="preserve">
<value />
</data>
<data name="ListBoxUser2Profile.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ListBoxUser2Profile.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ListBoxUser2Profile.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="Label7.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="Label7.Size" type="System.Drawing.Size, System.Drawing">
<value>216, 13</value>
</data>
<data name="Label7.Text" xml:space="preserve">
<value>Attention: this list overdrives the general list.</value>
</data>
<data name="Label7.Title" xml:space="preserve">
<value />
</data>
<data name="Label7.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Label7.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="Label7.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GroupBox4.Text" xml:space="preserve">
<value>Special recipient for record:</value>
</data>
<data name="GroupBox4.Title" xml:space="preserve">
<value />
</data>
<data name="GroupBox4.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GroupBox4.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="GroupBox4.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="lblFollowUp_save.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="lblFollowUp_save.Size" type="System.Drawing.Size, System.Drawing">
<value>92, 15</value>
</data>
<data name="lblFollowUp_save.Text" xml:space="preserve">
<value>Follow Up saved</value>
</data>
<data name="lblFollowUp_save.Title" xml:space="preserve">
<value />
</data>
<data name="lblFollowUp_save.ToolTip" xml:space="preserve">
<value />
</data>
<data name="lblFollowUp_save.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="lblFollowUp_save.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="chkFollowUp.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="chkFollowUp.Title" xml:space="preserve">
<value />
</data>
<data name="chkFollowUp.ToolTip" xml:space="preserve">
<value />
</data>
<data name="chkFollowUp.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="chkFollowUp.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="dtpFollowUp.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="dtpFollowUp.Title" xml:space="preserve">
<value />
</data>
<data name="dtpFollowUp.ToolTip" xml:space="preserve">
<value />
</data>
<data name="dtpFollowUp.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="dtpFollowUp.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="lblWiedervorlage_Control.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="lblWiedervorlage_Control.Title" xml:space="preserve">
<value />
</data>
<data name="lblWiedervorlage_Control.ToolTip" xml:space="preserve">
<value />
</data>
<data name="lblWiedervorlage_Control.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="lblWiedervorlage_Control.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="grpbxFU_Profile.Title" xml:space="preserve">
<value />
</data>
<data name="grpbxFU_Profile.ToolTip" xml:space="preserve">
<value />
</data>
<data name="grpbxFU_Profile.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="grpbxFU_Profile.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="Label5.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>91, 13</value>
</data>
<data name="Label5.Text" xml:space="preserve">
<value>Saved Follow Ups</value>
</data>
<data name="Label5.Title" xml:space="preserve">
<value />
</data>
<data name="Label5.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Label5.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="Label5.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Follow Up</value>
</data>
<data name="TabFollowUp.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Panel1.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlPos.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlPos.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlPos.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v15.2">
<value>Center</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="GridControlPos.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="GridControlPos.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="grvwGridPos.Appearance.EvenRow.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="grvwGridPos.Appearance.EvenRow.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="grvwGridPos.Appearance.EvenRow.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="grvwGridPos.Appearance.EvenRow.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="GridControlPos.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Panel1.Title" xml:space="preserve">
<value />
</data>
<data name="Panel1.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Panel1.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="Panel1.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -897,9 +394,6 @@
rkJggg==
</value>
</data>
<data name="BindingNavigatorPOS.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -952,18 +446,6 @@
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value>
</data>
<data name="BindingNavigatorPOS.Title" xml:space="preserve">
<value />
</data>
<data name="BindingNavigatorPOS.ToolTip" xml:space="preserve">
<value />
</data>
<data name="BindingNavigatorPOS.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="BindingNavigatorPOS.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@@ -975,15 +457,6 @@
<data name="TabPos.Text" xml:space="preserve">
<value>positions</value>
</data>
<data name="TabPos.ToolTip" xml:space="preserve">
<value />
</data>
<data name="TCDetails.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ToolStripEdit.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="tsButtonAdd.Size" type="System.Drawing.Size, System.Drawing">
<value>49, 22</value>
</data>
@@ -1100,24 +573,6 @@
<data name="ToolStripDropDownButton1.Text" xml:space="preserve">
<value>record functions</value>
</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">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@@ -1145,24 +600,7 @@
uIEEMbxns0OpzYNRITMZmOv/PZbXJi3WJC3WJC3Wo939Ao+TPgKX3Mi+AAAAAElFTkSuQmCC
</value>
</data>
<data name="NavPane.ToolTip" xml:space="preserve">
<value />
</data>
<data name="StatusStrip_Main.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="StatusStrip_Main.Title" xml:space="preserve">
<value />
</data>
<data name="StatusStrip_Main.ToolTip" xml:space="preserve">
<value />
</data>
<data name="StatusStrip_Main.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="StatusStrip_Main.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
@@ -1170,24 +608,6 @@
ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
</value>
</data>
<data name="ContextMenuDetails.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="ContextMenuDetails.Title" xml:space="preserve">
<value />
</data>
<data name="ContextMenuDetails.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ContextMenuDetails.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="ContextMenuDetails.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
<data name="$this.AllowHtmlText" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v15.2">
<value>Default</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA
@@ -1637,16 +1057,4 @@
AAAADwAA/gAAAAAPAAD//4AAAB8AAP///8AP/wAA////////AAD///////8AAP///////wAA
</value>
</data>
<data name="$this.Title" xml:space="preserve">
<value />
</data>
<data name="$this.ToolTip" xml:space="preserve">
<value />
</data>
<data name="$this.ToolTip1" xml:space="preserve">
<value />
</data>
<data name="$this.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v15.2">
<value>None</value>
</data>
</root>

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

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

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

@@ -5,6 +5,7 @@ Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Tile
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraScheduler
Imports System.Text
Imports System.IO
@@ -12,9 +13,10 @@ Imports DevExpress.XtraGrid
Imports WINDREAMLib
Imports System.Runtime.InteropServices
Imports DD_Rights
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Public Class frmConstructor_Main
Private Const SEE_MASK_INVOKEIDLIST = &HC
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
@@ -72,7 +74,8 @@ Public Class frmConstructor_Main
Private TreeView_perControl As Boolean = False
Dim IsTopFirstRow As Boolean = True
Private RightMouse_Clicked = False
Private GRIDRightMouse_Clicked = False
Private GRIDdownHitInfo As GridHitInfo
Private VIEW_ID
Private VIEW_ID_RUNTIME As Integer = -1
@@ -396,7 +399,7 @@ Public Class frmConstructor_Main
Exit Sub
End If
Dim XMLPath = Get_DocGRid_Layout_Filename()
Dim XMLPath = Get_DocGrid_Layout_Filename()
GridViewDoc_Search.SaveLayoutToXml(XMLPath)
' Update_Status_Label(True, "Grid Layout Loaded")
Catch ex As Exception
@@ -408,7 +411,7 @@ Public Class frmConstructor_Main
If ACT_EBENE_STRING Is Nothing Then
Exit Sub
End If
Dim XMLPath = Get_DocGRid_Layout_Filename()
Dim XMLPath = Get_DocGrid_Layout_Filename()
If File.Exists(XMLPath) Then
GridViewDoc_Search.RestoreLayoutFromXml(XMLPath)
GridViewDoc_Search.GuessAutoFilterRowValuesFromFilter()
@@ -886,7 +889,7 @@ Public Class frmConstructor_Main
If ENTITY_LOADED = False Then
Exit Sub
End If
If RightMouse_Clicked Then
If GRIDRightMouse_Clicked Then
Exit Sub
End If
' If NODE_NAVIGATION = False Then
@@ -5171,13 +5174,47 @@ Public Class frmConstructor_Main
End If
End Sub
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
RightMouse_Clicked = True
GRIDRightMouse_Clicked = True
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 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
If cmbFollowUpUser.SelectedIndex <> -1 And FOLL_UP_ID > 0 Then
Try
@@ -5357,7 +5394,7 @@ Public Class frmConstructor_Main
Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
Refresh_DocID
Refresh_DocID()
End Sub
@@ -5441,7 +5478,7 @@ Public Class frmConstructor_Main
End If
Cursor = Cursors.Default
Next
End Sub
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
@@ -5824,7 +5861,7 @@ Public Class frmConstructor_Main
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Checking Value In Work: " & ex.Message, False)
End Try
@@ -5872,7 +5909,7 @@ Public Class frmConstructor_Main
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in RowStyle-Color Dropdown: " & ex.Message, False)
End Try
End If
End Sub
@@ -5889,7 +5926,7 @@ Public Class frmConstructor_Main
TSMIDisplayname.Visible = False
End If
End Sub
Sub File_in_Work()
TSMI_inWork.Enabled = True
@@ -6040,7 +6077,7 @@ Public Class frmConstructor_Main
MsgBox(msg, MsgBoxStyle.Exclamation)
End If
Next
End Sub
Public Sub ActivateAllTabs()
@@ -6118,7 +6155,7 @@ Public Class frmConstructor_Main
MsgBox(msg, MsgBoxStyle.Critical, "Attention:")
End If
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -6129,4 +6166,82 @@ Public Class frmConstructor_Main
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