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

MS_27042016

Browse Source
This commit is contained in:
SchreiberM 2016-04-28 11:43:09 +02:00
parent a573219f6f
commit c173fe57e8
5 changed files with 379 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
app/DD-Record-Organiser/ClassControlBuilder.vb
View File

@ -141,6 +141,12 @@ Public Class ClassControlBuilder
combo.BackColor = Color.White combo.BackColor = Color.White
End Sub End Sub
Dim CONTROL_ID Dim CONTROL_ID
Public Sub Enable_Controls()
End Sub
Public Sub Depending_Controls()
End Sub
Public Sub OnComboBoxValueChanged(sender As Object, ByVal e As EventArgs) Public Sub OnComboBoxValueChanged(sender As Object, ByVal e As EventArgs)
If CURRENT_RECORD_ENABLED = False Then Exit Sub If CURRENT_RECORD_ENABLED = False Then Exit Sub
@ -151,8 +157,11 @@ Public Class ClassControlBuilder
If CONTROL_ID = 29 Then If CONTROL_ID = 29 Then
Console.WriteLine("Obacht") Console.WriteLine("Obacht")
End If End If
'SQL für abhängige Auswahllisten
Dim SQL As String = String.Format("SELECT GUID, SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId) Dim SQL As String = String.Format("SELECT GUID, SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId)
Dim value Dim value
'SQL für enable control
Dim SQLenable As String = String.Format("SELECT GUID, SQL_COMMAND_2 FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId)
' Diese Befehle führen dazu, dass auch der ValueMember als Wert ausgelesen wird ' Diese Befehle führen dazu, dass auch der ValueMember als Wert ausgelesen wird
' Das kann zu unerwarteten Ergebnissen führen, da der Benutzer nur den DisplayMember sieht. ' Das kann zu unerwarteten Ergebnissen führen, da der Benutzer nur den DisplayMember sieht.
@ -174,7 +183,7 @@ Public Class ClassControlBuilder
End If End If
Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL) Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable)
If datatable.Rows.Count = 0 Then If datatable.Rows.Count = 0 Then
Exit Sub Exit Sub
End If End If
@ -273,8 +282,8 @@ Public Class ClassControlBuilder
Try Try
Dim value1 As String = dt.Rows(0).Item(0) Dim value1 As String = dt.Rows(0).Item(0)
ControlLoader.TextBox.LoadValue(DirectCast(dependingControl, TextBox), 9999, 9999, value1, 999, True) ControlLoader.TextBox.LoadValue(DirectCast(dependingControl, TextBox), 9999, 9999, value1, 999, True)
Dim sql1 = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", dependingControlId, CURRENT_RECORD_ID) Dim sqltextbox = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", dependingControlId, CURRENT_RECORD_ID)
Dim id = ClassDatabase.Execute_Scalar(sql1) Dim id = ClassDatabase.Execute_Scalar(sqltextbox)
If Not IsNothing(id) Then If Not IsNothing(id) Then
Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE GUID = {1}", value1, id) Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE GUID = {1}", value1, id)

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

@ -22,7 +22,6 @@ Partial Class frmConstructor_Main
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main))
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
@ -30,12 +29,12 @@ Partial Class frmConstructor_Main
Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl()
Me.TreeViewMain = New System.Windows.Forms.TreeView() Me.TreeViewMain = New System.Windows.Forms.TreeView()
Me.CMSEntity = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.CMSEntity = New System.Windows.Forms.ContextMenuStrip()
Me.ResetEbenenAuswahlToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ResetEbenenAuswahlToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiimportEntitätToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiimportEntitätToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FormDesignerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FormDesignerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GridControlMain = New DevExpress.XtraGrid.GridControl() Me.GridControlMain = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip()
Me.FunktionenDataGridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FunktionenDataGridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@ -59,6 +58,14 @@ Partial Class frmConstructor_Main
Me.pnlDetails = New System.Windows.Forms.Panel() Me.pnlDetails = New System.Windows.Forms.Panel()
Me.TabWindream = New DevExpress.XtraTab.XtraTabPage() Me.TabWindream = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl() Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip()
Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GridViewDoc_Search = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridViewDoc_Search = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.AxObjectListControl = New AxOBJECTLISTCONTROLLib.AxObjectListControl() Me.AxObjectListControl = New AxOBJECTLISTCONTROLLib.AxObjectListControl()
Me.ToolStripDokumente = New System.Windows.Forms.ToolStrip() Me.ToolStripDokumente = New System.Windows.Forms.ToolStrip()
@ -86,7 +93,7 @@ Partial Class frmConstructor_Main
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.GridControlPos = New DevExpress.XtraGrid.GridControl() Me.GridControlPos = New DevExpress.XtraGrid.GridControl()
Me.grvwGridPos = New DevExpress.XtraGrid.Views.Grid.GridView() Me.grvwGridPos = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.BindingNavigatorPOS = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorPOS = New System.Windows.Forms.BindingNavigator()
Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
@ -128,20 +135,20 @@ Partial Class frmConstructor_Main
Me.tsslblStatus = New System.Windows.Forms.ToolStripStatusLabel() Me.tsslblStatus = New System.Windows.Forms.ToolStripStatusLabel()
Me.tsslblRecord = New System.Windows.Forms.ToolStripStatusLabel() Me.tsslblRecord = New System.Windows.Forms.ToolStripStatusLabel()
Me.tsslblWorkflowstate = New System.Windows.Forms.ToolStripStatusLabel() Me.tsslblWorkflowstate = New System.Windows.Forms.ToolStripStatusLabel()
Me.BindingSource_Entity = New System.Windows.Forms.BindingSource(Me.components) Me.BindingSource_Entity = New System.Windows.Forms.BindingSource()
Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components) Me.ImageCollection1 = New DevExpress.Utils.ImageCollection()
Me.ttToolTip = New System.Windows.Forms.ToolTip(Me.components) Me.ttToolTip = New System.Windows.Forms.ToolTip()
Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip()
Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet()
Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource()
Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
Me.TBPMO_FILES_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter() Me.TBPMO_FILES_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter()
Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource()
Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
Me.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource()
Me.ToolTipController = New DevExpress.Utils.ToolTipController(Me.components) Me.ToolTipController = New DevExpress.Utils.ToolTipController()
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerMain.SuspendLayout() Me.SplitContainerMain.SuspendLayout()
CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit()
@ -159,6 +166,7 @@ Partial Class frmConstructor_Main
Me.TabDetails.SuspendLayout() Me.TabDetails.SuspendLayout()
Me.TabWindream.SuspendLayout() Me.TabWindream.SuspendLayout()
CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStripResultFiles.SuspendLayout()
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripDokumente.SuspendLayout() Me.ToolStripDokumente.SuspendLayout()
@ -436,11 +444,56 @@ Partial Class frmConstructor_Main
' '
'GridControlDocSearch 'GridControlDocSearch
' '
Me.GridControlDocSearch.ContextMenuStrip = Me.ContextMenuStripResultFiles
resources.ApplyResources(Me.GridControlDocSearch, "GridControlDocSearch") resources.ApplyResources(Me.GridControlDocSearch, "GridControlDocSearch")
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
Me.GridControlDocSearch.Name = "GridControlDocSearch" Me.GridControlDocSearch.Name = "GridControlDocSearch"
Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search}) Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search})
' '
'ContextMenuStripResultFiles
'
Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator7, Me.KopierenToolStripMenuItem, Me.ToolStripSeparator8, Me.LöschenToolStripMenuItem, Me.ToolStripSeparator9, Me.EigenschaftenToolStripMenuItem})
Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles")
'
'DateiÖffnenToolStripMenuItem
'
Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem, "DateiÖffnenToolStripMenuItem")
'
'ToolStripSeparator7
'
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
resources.ApplyResources(Me.ToolStripSeparator7, "ToolStripSeparator7")
'
'KopierenToolStripMenuItem
'
Me.KopierenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.Copy_6524
Me.KopierenToolStripMenuItem.Name = "KopierenToolStripMenuItem"
resources.ApplyResources(Me.KopierenToolStripMenuItem, "KopierenToolStripMenuItem")
'
'ToolStripSeparator8
'
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
resources.ApplyResources(Me.ToolStripSeparator8, "ToolStripSeparator8")
'
'LöschenToolStripMenuItem
'
Me.LöschenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
resources.ApplyResources(Me.LöschenToolStripMenuItem, "LöschenToolStripMenuItem")
'
'ToolStripSeparator9
'
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
resources.ApplyResources(Me.ToolStripSeparator9, "ToolStripSeparator9")
'
'EigenschaftenToolStripMenuItem
'
Me.EigenschaftenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.PropertyGridEditorPart_6041
Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem")
'
'GridViewDoc_Search 'GridViewDoc_Search
' '
Me.GridViewDoc_Search.Appearance.HorzLine.BackColor = CType(resources.GetObject("GridViewDoc_Search.Appearance.HorzLine.BackColor"), System.Drawing.Color) Me.GridViewDoc_Search.Appearance.HorzLine.BackColor = CType(resources.GetObject("GridViewDoc_Search.Appearance.HorzLine.BackColor"), System.Drawing.Color)
@ -1019,6 +1072,7 @@ Partial Class frmConstructor_Main
Me.TabWindream.ResumeLayout(False) Me.TabWindream.ResumeLayout(False)
Me.TabWindream.PerformLayout() Me.TabWindream.PerformLayout()
CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStripResultFiles.ResumeLayout(False)
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStripDokumente.ResumeLayout(False) Me.ToolStripDokumente.ResumeLayout(False)
@ -1170,4 +1224,12 @@ Partial Class frmConstructor_Main
Friend WithEvents GridViewDoc_Search As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents GridViewDoc_Search As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents tsmi_RecordDelete As System.Windows.Forms.ToolStripMenuItem Friend WithEvents tsmi_RecordDelete As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ContextMenuStripResultFiles As System.Windows.Forms.ContextMenuStrip
Friend WithEvents DateiÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents KopierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents LöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents EigenschaftenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
End Class End Class

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

@ -411,8 +411,56 @@
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib"> <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
</data> </data>
<metadata name="ContextMenuStripResultFiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>187, 65</value>
</metadata>
<data name="DateiÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>148, 22</value>
</data>
<data name="DateiÖffnenToolStripMenuItem.Text" xml:space="preserve">
<value>Datei Öffnen</value>
</data>
<data name="ToolStripSeparator7.Size" type="System.Drawing.Size, System.Drawing">
<value>145, 6</value>
</data>
<data name="KopierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>148, 22</value>
</data>
<data name="KopierenToolStripMenuItem.Text" xml:space="preserve">
<value>Kopieren</value>
</data>
<data name="ToolStripSeparator8.Size" type="System.Drawing.Size, System.Drawing">
<value>145, 6</value>
</data>
<data name="LöschenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>148, 22</value>
</data>
<data name="LöschenToolStripMenuItem.Text" xml:space="preserve">
<value>Löschen</value>
</data>
<data name="ToolStripSeparator9.Size" type="System.Drawing.Size, System.Drawing">
<value>145, 6</value>
</data>
<data name="EigenschaftenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>148, 22</value>
</data>
<data name="EigenschaftenToolStripMenuItem.Text" xml:space="preserve">
<value>Eigenschaften</value>
</data>
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>149, 110</value>
</data>
<data name="&gt;&gt;ContextMenuStripResultFiles.Name" xml:space="preserve">
<value>ContextMenuStripResultFiles</value>
</data>
<data name="&gt;&gt;ContextMenuStripResultFiles.Type" xml:space="preserve">
<value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="GridControlDocSearch.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="GridControlDocSearch.Location" type="System.Drawing.Point, System.Drawing"> <data name="GridControlDocSearch.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 160</value> <value>0, 25</value>
</data> </data>
<data name="GridViewDoc_Search.Appearance.HorzLine.BackColor" type="System.Drawing.Color, System.Drawing"> <data name="GridViewDoc_Search.Appearance.HorzLine.BackColor" type="System.Drawing.Color, System.Drawing">
<value>White</value> <value>White</value>
@ -424,7 +472,7 @@
<value>192, 255, 192</value> <value>192, 255, 192</value>
</data> </data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1066, 153</value> <value>1072, 291</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>
@ -448,18 +496,18 @@
<value>True</value> <value>True</value>
</data> </data>
<data name="AxObjectListControl.Location" type="System.Drawing.Point, System.Drawing"> <data name="AxObjectListControl.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 25</value> <value>560, 50</value>
</data> </data>
<data name="AxObjectListControl.OcxState" mimetype="application/x-microsoft.net.object.binary.base64"> <data name="AxObjectListControl.OcxState" mimetype="application/x-microsoft.net.object.binary.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB
AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAy24AAFUNAAAAAAAACw== AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAcC8AAMAKAAAAAAAACw==
</value> </value>
</data> </data>
<data name="AxObjectListControl.Size" type="System.Drawing.Size, System.Drawing"> <data name="AxObjectListControl.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 129</value> <value>459, 104</value>
</data> </data>
<data name="AxObjectListControl.TabIndex" type="System.Int32, mscorlib"> <data name="AxObjectListControl.TabIndex" type="System.Int32, mscorlib">
<value>6</value> <value>6</value>
@ -1565,7 +1613,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;SplitContainerMain.ZOrder" xml:space="preserve"> <data name="&gt;&gt;SplitContainerMain.ZOrder" xml:space="preserve">
<value>3</value> <value>4</value>
</data> </data>
<data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -1619,7 +1667,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;NavPane.ZOrder" xml:space="preserve"> <data name="&gt;&gt;NavPane.ZOrder" xml:space="preserve">
<value>5</value> <value>6</value>
</data> </data>
<metadata name="StatusStrip_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="StatusStrip_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
@ -1667,7 +1715,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;StatusStrip_Main.ZOrder" xml:space="preserve"> <data name="&gt;&gt;StatusStrip_Main.ZOrder" xml:space="preserve">
<value>4</value> <value>5</value>
</data> </data>
<metadata name="BindingSource_Entity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BindingSource_Entity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>162, 11</value> <value>162, 11</value>
@ -2315,6 +2363,48 @@
<data name="&gt;&gt;grvwTiles.Type" xml:space="preserve"> <data name="&gt;&gt;grvwTiles.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Tile.TileView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Tile.TileView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;DateiÖffnenToolStripMenuItem.Name" xml:space="preserve">
<value>DateiÖffnenToolStripMenuItem</value>
</data>
<data name="&gt;&gt;DateiÖffnenToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolStripSeparator7.Name" xml:space="preserve">
<value>ToolStripSeparator7</value>
</data>
<data name="&gt;&gt;ToolStripSeparator7.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;KopierenToolStripMenuItem.Name" xml:space="preserve">
<value>KopierenToolStripMenuItem</value>
</data>
<data name="&gt;&gt;KopierenToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolStripSeparator8.Name" xml:space="preserve">
<value>ToolStripSeparator8</value>
</data>
<data name="&gt;&gt;ToolStripSeparator8.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;LöschenToolStripMenuItem.Name" xml:space="preserve">
<value>LöschenToolStripMenuItem</value>
</data>
<data name="&gt;&gt;LöschenToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolStripSeparator9.Name" xml:space="preserve">
<value>ToolStripSeparator9</value>
</data>
<data name="&gt;&gt;ToolStripSeparator9.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;EigenschaftenToolStripMenuItem.Name" xml:space="preserve">
<value>EigenschaftenToolStripMenuItem</value>
</data>
<data name="&gt;&gt;EigenschaftenToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GridViewDoc_Search.Name" xml:space="preserve"> <data name="&gt;&gt;GridViewDoc_Search.Name" xml:space="preserve">
<value>GridViewDoc_Search</value> <value>GridViewDoc_Search</value>
</data> </data>

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

@ -10,9 +10,33 @@ Imports System.Text
Imports System.IO Imports System.IO
Imports DevExpress.XtraGrid Imports DevExpress.XtraGrid
Imports WINDREAMLib Imports WINDREAMLib
Imports System.Runtime.InteropServices
Public Class frmConstructor_Main Public Class frmConstructor_Main
Private Const SEE_MASK_INVOKEIDLIST = &HC
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Const SEE_MASK_FLAG_NO_UI = &H400
Public Const SW_SHOW As Short = 5
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)> _
Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
End Function
Public Structure SHELLEXECUTEINFO
Public cbSize As Integer
Public fMask As Integer
Public hwnd As IntPtr
<MarshalAs(UnmanagedType.LPTStr)> Public lpVerb As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpFile As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpParameters As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpDirectory As String
Dim nShow As Integer
Dim hInstApp As IntPtr
Dim lpIDList As IntPtr
<MarshalAs(UnmanagedType.LPTStr)> Public lpClass As String
Public hkeyClass As IntPtr
Public dwHotKey As Integer
Public hIcon As IntPtr
Public hProcess As IntPtr
End Structure
#Region "Laufzeitvariablen & Konstanten" #Region "Laufzeitvariablen & Konstanten"
Private CONSTRUCTORID As Integer Private CONSTRUCTORID As Integer
Private CONSTRUCTOR_DETAIL_ID As Integer Private CONSTRUCTOR_DETAIL_ID As Integer
@ -107,6 +131,8 @@ Public Class frmConstructor_Main
Private _ENTITYSQL As String Private _ENTITYSQL As String
Private _ENTITYSTRING As String Private _ENTITYSTRING As String
Private RESULT_DOC_PATH
Public Enum EditState Public Enum EditState
None None
Insert Insert
@ -210,9 +236,11 @@ Public Class frmConstructor_Main
Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename) Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
If File.Exists(XMLPath) Then If File.Exists(XMLPath) Then
grvwGridPos.RestoreLayoutFromXml(XMLPath) grvwGridPos.RestoreLayoutFromXml(XMLPath)
grvwGridPos.GuessAutoFilterRowValuesFromFilter()
'grvwGrid.ClearGrouping() 'grvwGrid.ClearGrouping()
' grvwGridPos.ClearSelection() ' grvwGridPos.ClearSelection()
grvwGridPos.OptionsView.ShowPreview = False ' grvwGridPos.OptionsView.ShowPreview = False
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Load_POSGrid_Layout:" & vbNewLine & ex.Message) MsgBox("Error in Load_POSGrid_Layout:" & vbNewLine & ex.Message)
@ -241,7 +269,7 @@ Public Class frmConstructor_Main
'grvwGrid.ClearGrouping() 'grvwGrid.ClearGrouping()
' grvwGrid.ClearSelection() ' grvwGrid.ClearSelection()
'grvwGrid.OptionsView.ShowPreview = False 'grvwGrid.OptionsView.ShowPreview = False
grvwGridPos.GuessAutoFilterRowValuesFromFilter()
'Update_Status_Label(True, "Grid Layout Loaded") 'Update_Status_Label(True, "Grid Layout Loaded")
End If End If
Catch ex As Exception Catch ex As Exception
@ -689,6 +717,7 @@ Public Class frmConstructor_Main
Show_Selected_Record_Data(Grid_RecordID, False) Show_Selected_Record_Data(Grid_RecordID, False)
RIGHT_ONLY_READ = False RIGHT_ONLY_READ = False
tsmi_RecordDelete.Enabled = True
RecordKopierenToolStripMenuItem.Enabled = True RecordKopierenToolStripMenuItem.Enabled = True
tslblLocked.Visible = False tslblLocked.Visible = False
TabFollowUp.PageEnabled = True TabFollowUp.PageEnabled = True
@ -1747,8 +1776,11 @@ Public Class frmConstructor_Main
If windream_Docshow = True Then If windream_Docshow = True Then
If TCDetails.SelectedTabPageIndex = 1 Then If TCDetails.SelectedTabPageIndex = 1 Then
Clear_Windream_ResultList() Me.GridControlDocSearch.DataSource = Nothing
If WD_ShowEnitityDocs = True Then If WD_ShowEnitityDocs = True Then
Clear_Windream_ResultList()
GridControlDocSearch.Visible = True
RUN_WD_SEARCH("", "ENTITY") RUN_WD_SEARCH("", "ENTITY")
End If End If
End If End If
@ -2428,7 +2460,8 @@ Public Class frmConstructor_Main
If RECORD_ID = 0 Then If RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY") RUN_WD_SEARCH(WD_Suche, "ENTITY")
Else Else
RUN_WD_SEARCH(WD_Suche, "RECORD") RUN_WDSEARCH_GRID()
' RUN_WD_SEARCH(WD_Suche, "RECORD")
End If End If
Case 2 Case 2
tsButtonEdit.Enabled = False tsButtonEdit.Enabled = False
@ -3160,7 +3193,7 @@ Public Class frmConstructor_Main
End If End If
Dim fileContents As String Dim fileContents As String
If LogErrorsOnly = False Then ClassLogger.Add(" >> ReadAlltext: " & windream_temp_search, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> ReadAlltext: " & windream_temp_search, False)
fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode fileContents = My.Computer.FileSystem.ReadAllText(Basesearch, EncodingFormat) ', System.Text.Encoding.Unicode
If LogErrorsOnly = False Then ClassLogger.Add(" >> fileContents geladen", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> fileContents geladen", False)
fileContents = fileContents.Replace("Í", "Ö") fileContents = fileContents.Replace("Í", "Ö")
Dim _sp1 = SP1 Dim _sp1 = SP1
@ -3278,6 +3311,7 @@ Public Class frmConstructor_Main
Exit Sub Exit Sub
End If End If
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
GridControlDocSearch.DataSource = Nothing
Dim DTWD As DataTable Dim DTWD As DataTable
Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & ENTITY_ID Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & ENTITY_ID
DTWD = ClassDatabase.Return_Datatable(sql) DTWD = ClassDatabase.Return_Datatable(sql)
@ -3429,6 +3463,12 @@ Public Class frmConstructor_Main
colIcon.ColumnName = "ICON" colIcon.ColumnName = "ICON"
colIcon.Caption = "" colIcon.Caption = ""
DTGrid.Columns.Add(colIcon) DTGrid.Columns.Add(colIcon)
'
Dim colPath As New System.Data.DataColumn()
colPath.DataType = GetType(String)
colPath.ColumnName = "FULLPATH"
colPath.Caption = "Fullpath"
DTGrid.Columns.Add(colPath)
If Not DT Is Nothing And DT.Rows.Count = 1 Then If Not DT Is Nothing And DT.Rows.Count = 1 Then
Dim ColCount As Integer = 1 Dim ColCount As Integer = 1
@ -3490,20 +3530,24 @@ Public Class frmConstructor_Main
Case ".pdf" Case ".pdf"
NewRow.Item(0) = My.Resources.pdf NewRow.Item(0) = My.Resources.pdf
Case ".doc" Case ".doc"
NewRow.Item(0) = My.Resources.doc
Case ".docx" Case ".docx"
NewRow.Item(0) = My.Resources.doc NewRow.Item(0) = My.Resources.doc
Case ".xls" Case ".xls"
NewRow.Item(0) = My.Resources.xls
Case ".xlsx" Case ".xlsx"
NewRow.Item(0) = My.Resources.xls NewRow.Item(0) = My.Resources.xls
Case ".ppt" Case ".ppt"
NewRow.Item(0) = My.Resources.ppt
Case ".pptx" Case ".pptx"
NewRow.Item(0) = My.Resources.ppt NewRow.Item(0) = My.Resources.ppt
Case Else Case Else
NewRow.Item(0) = My.Resources._blank NewRow.Item(0) = My.Resources._blank
End Select End Select
'Den Filepath mitgeben
NewRow.Item(1) = fullpath
Dim i = 2 'Fängt bei 2 an, um die ICON Column zu überspringen
Dim i = 1 'Fängt bei 1 an, um die ICON Column zu überspringen
For Each Column As String In ColArray For Each Column As String In ColArray
Dim Indexname = DT.Rows(0).Item(Column) Dim Indexname = DT.Rows(0).Item(Column)
Dim idxvalue Dim idxvalue
@ -3517,7 +3561,11 @@ Public Class frmConstructor_Main
If LogErrorsOnly = False Then ClassLogger.Add(" >> idxvalue from windream: '" & idxvalue.ToString & "'", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> idxvalue from windream: '" & idxvalue.ToString & "'", False)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in GetVariableValue for Index '" & Indexname & "- Error: " & ex.Message) ClassLogger.Add("Unexpected Error in GetVariableValue for Index '" & Indexname & "- Error: " & ex.Message)
If Indexname.ToString.StartsWith("Doct") Or Indexname.ToString.StartsWith("Dokum") Then
idxvalue = ""
Else
idxvalue = "Error getting indexvalue" idxvalue = "Error getting indexvalue"
End If
End Try End Try
NewRow.Item(i) = idxvalue.ToString NewRow.Item(i) = idxvalue.ToString
i += 1 i += 1
@ -3534,7 +3582,7 @@ Public Class frmConstructor_Main
GridControlDocSearch.DataSource = DTGrid GridControlDocSearch.DataSource = DTGrid
GridViewDoc_Search.Columns.Item(0).MaxWidth = 24 GridViewDoc_Search.Columns.Item(0).MaxWidth = 24
GridViewDoc_Search.Columns.Item(0).MinWidth = 24 GridViewDoc_Search.Columns.Item(0).MinWidth = 24
grvwGrid.Columns.Item(1).Visible = False
End If End If
Else Else
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden" Dim msg = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
@ -3542,7 +3590,7 @@ Public Class frmConstructor_Main
msg = "windream-files for record: " & RECORD_ID & " - no files found" msg = "windream-files for record: " & RECORD_ID & " - no files found"
End If End If
tslblWindreamView.Text = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden" tslblWindreamView.Text = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
Clear_Windream_ResultList() 'Clear_Windream_ResultList()
End If End If
Cursor = Cursors.Default Cursor = Cursors.Default
@ -3713,7 +3761,7 @@ Public Class frmConstructor_Main
If RECORD_ID = 0 Then If RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY") RUN_WD_SEARCH(WD_Suche, "ENTITY")
Else Else
RUN_WD_SEARCH(WD_Suche, "RECORD") ' RUN_WD_SEARCH(WD_Suche, "RECORD")
RUN_WDSEARCH_GRID() RUN_WDSEARCH_GRID()
End If End If
End If End If
@ -3793,8 +3841,8 @@ Public Class frmConstructor_Main
CURRENT_RECORD_ID = RECORD_ID CURRENT_RECORD_ID = RECORD_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID CURRENT_FORMVIEW_ID = FORMVIEW_ID
frmWD_Index_Dokart.ShowDialog() frmWD_Index_Dokart.ShowDialog()
RUN_WDSEARCH_GRID()
RUN_WD_SEARCH(WD_Suche, "RECORD") 'RUN_WD_SEARCH(WD_Suche, "RECORD")
End If End If
ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
CURRENT_RECORD_ID = RECORD_ID CURRENT_RECORD_ID = RECORD_ID
@ -3862,7 +3910,8 @@ Public Class frmConstructor_Main
If LogErrorsOnly = False Then ClassLogger.Add(" >> File was deleted or worked meanwhile!") If LogErrorsOnly = False Then ClassLogger.Add(" >> File was deleted or worked meanwhile!")
End If End If
Next Next
RUN_WD_SEARCH(WD_Suche, "RECORD") RUN_WDSEARCH_GRID()
' RUN_WD_SEARCH(WD_Suche, "RECORD")
End If End If
End If End If
Else Else
@ -4124,7 +4173,8 @@ Public Class frmConstructor_Main
Private Sub WindreamsucheNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WindreamsucheNeuLadenToolStripMenuItem.Click Private Sub WindreamsucheNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WindreamsucheNeuLadenToolStripMenuItem.Click
RUN_WD_SEARCH(WD_Suche, "RECORD") RUN_WDSEARCH_GRID()
' RUN_WD_SEARCH(WD_Suche, "RECORD")
End Sub End Sub
Private Sub WorkflowTasksNeuErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WorkflowTasksNeuErstellenToolStripMenuItem.Click Private Sub WorkflowTasksNeuErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WorkflowTasksNeuErstellenToolStripMenuItem.Click
@ -4296,7 +4346,8 @@ Public Class frmConstructor_Main
If CInt(SOLLENTITY_ID) = REC_ENTITY_ID Then If CInt(SOLLENTITY_ID) = REC_ENTITY_ID Then
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
If ClassOfficeTemplate.Open_Word_Template(TemplateID, RECORD_ID) = True Then If ClassOfficeTemplate.Open_Word_Template(TemplateID, RECORD_ID) = True Then
RUN_WD_SEARCH(WD_Suche, "RECORD") RUN_WDSEARCH_GRID()
' RUN_WD_SEARCH(WD_Suche, "RECORD")
Update_Status_Label(True, "Template file imported to windream", EditState.Insert) Update_Status_Label(True, "Template file imported to windream", EditState.Insert)
End If End If
Cursor = Cursors.Default Cursor = Cursors.Default
@ -4663,4 +4714,102 @@ Public Class frmConstructor_Main
Private Sub tsmi_RecordDelete_Click(sender As Object, e As EventArgs) Handles tsmi_RecordDelete.Click Private Sub tsmi_RecordDelete_Click(sender As Object, e As EventArgs) Handles tsmi_RecordDelete.Click
Delete_Record() Delete_Record()
End Sub End Sub
Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenToolStripMenuItem.Click
If RESULT_DOC_PATH <> Nothing Then
Try
Dim selectedfile(0) As String
selectedfile(0) = RESULT_DOC_PATH
Dim dataobj As New DataObject
dataobj.SetData(DataFormats.FileDrop, True, selectedfile)
Clipboard.Clear()
Clipboard.SetDataObject(dataobj, True)
Catch ex As Exception
MsgBox("Unexpected Error in Copy file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Cursor = Cursors.Default
End If
End Sub
Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
Try
RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
Catch ex As Exception
RESULT_DOC_PATH = Nothing
End Try
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
If RESULT_DOC_PATH <> Nothing Then
Dim msg = "Sind Sie sicher, dass Sie diese Dateien löschen wollen?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Are You sure You want to delete this file?"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
Dim FileToDelete As String
FileToDelete = RESULT_DOC_PATH
If System.IO.File.Exists(FileToDelete) = True Then
System.IO.File.Delete(FileToDelete)
RUN_WDSEARCH_GRID()
End If
Catch ex As Exception
MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End If
End Sub
Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenToolStripMenuItem.Click
If RESULT_DOC_PATH <> Nothing Then
Cursor = Cursors.WaitCursor
Dim sei As New SHELLEXECUTEINFO
sei.cbSize = Marshal.SizeOf(sei)
sei.lpVerb = "properties"
sei.lpFile = RESULT_DOC_PATH
sei.nShow = SW_SHOW
sei.fMask = SEE_MASK_INVOKEIDLIST
If Not ShellExecuteEx(sei) Then
Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
MsgBox("Unexpected Error in Open file propertys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End If
End If
Cursor = Cursors.Default
End Sub
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
File_open()
End Sub
Sub File_open()
If RESULT_DOC_PATH <> Nothing Then
Try
Dim Proc As New System.Diagnostics.Process
Dim psi As New ProcessStartInfo(RESULT_DOC_PATH)
Proc.EnableRaisingEvents = True
Proc.StartInfo = psi
Proc.Start()
Catch ex As Exception
MsgBox("Unexpected Error in Open file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Fehler bei Datei öffnen: " & ex.Message, True)
End Try
End If
End Sub
Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
Try
RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
Catch ex As Exception
RESULT_DOC_PATH = Nothing
End Try
File_open()
End Sub
End Class End Class

23
app/DD-Record-Organiser/frmWD_Import_Doc_Record.vb
View File

@ -184,7 +184,7 @@ Public Class frmWD_Import_Doc_Record
ClassWindream._WDObjekttyp = PROFILE_NEW_OT ClassWindream._WDObjekttyp = PROFILE_NEW_OT
_Filesimported = 0 _Filesimported = 0
_RecordsAdded = 0 _RecordsAdded = 0
Work_File() Work_Files()
MsgBox(_Filesimported.ToString & " Files were imported to ADDI!" & vbNewLine & _ MsgBox(_Filesimported.ToString & " Files were imported to ADDI!" & vbNewLine & _
_RecordsAdded.ToString & " Records were added!", MsgBoxStyle.Information) _RecordsAdded.ToString & " Records were added!", MsgBoxStyle.Information)
Else Else
@ -229,7 +229,7 @@ Public Class frmWD_Import_Doc_Record
'End If 'End If
End Sub End Sub
Sub Work_File() Sub Work_Files()
Try Try
IMP_PARENT_REC_ID = Nothing IMP_PARENT_REC_ID = Nothing
IMPORT_REC_ID = Nothing IMPORT_REC_ID = Nothing
@ -371,14 +371,31 @@ Public Class frmWD_Import_Doc_Record
If Not IsNothing(ENTITY_INDEX) Then If Not IsNothing(ENTITY_INDEX) Then
ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, ENTITY_INDEX, PROFILE_ENTITY) ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, ENTITY_INDEX, PROFILE_ENTITY)
End If End If
Try
If Not IsNothing(IMP_PARENT_REC_ID) Then If Not IsNothing(IMP_PARENT_REC_ID) Then
'Die Parent-Entität indexieren 'Die Parent-Entität indexieren
Sql = "SELECT IDXNAME_ENTITYID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'" Sql = "SELECT IDXNAME_PARENTID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim PIDENT As String = ClassDatabase.Execute_Scalar(Sql) Dim PIDENT As String = ClassDatabase.Execute_Scalar(Sql)
If Not IsNothing(PIDENT) Then If Not IsNothing(PIDENT) Then
ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, PIDENT, IMP_PARENT_REC_ID.ToString) ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, PIDENT, IMP_PARENT_REC_ID.ToString)
End If End If
End If End If
Catch ex As Exception
End Try
Try
If Not IsNothing(PROFILE_ENTITY) Then
'Die Parent-Entität indexieren
Sql = "SELECT IDXNAME_ENTITYID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim IDXENTITY As String = ClassDatabase.Execute_Scalar(Sql)
If Not IsNothing(IDXENTITY) Then
ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, IDXENTITY, PROFILE_ENTITY.ToString)
End If
End If
Catch ex As Exception
End Try
'Die Dokumentart indexieren 'Die Dokumentart indexieren
Sql = String.Format("SELECT dbo.FNPMO_GETOBJECTCAPTION('{0}', 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5), GUID), 1) FROM TBDD_DOKUMENTART WHERE GUID = {1}", USER_LANGUAGE, DokTYPE_ID) Sql = String.Format("SELECT dbo.FNPMO_GETOBJECTCAPTION('{0}', 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5), GUID), 1) FROM TBDD_DOKUMENTART WHERE GUID = {1}", USER_LANGUAGE, DokTYPE_ID)