MS_27042016
This commit is contained in:
SchreiberM
parent
a573219f6f
commit
c173fe57e8
@ -141,6 +141,12 @@ Public Class ClassControlBuilder
|
||||
combo.BackColor = Color.White
|
||||
End Sub
|
||||
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)
|
||||
If CURRENT_RECORD_ENABLED = False Then Exit Sub
|
||||
|
||||
@ -151,8 +157,11 @@ Public Class ClassControlBuilder
|
||||
If CONTROL_ID = 29 Then
|
||||
Console.WriteLine("Obacht")
|
||||
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 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
|
||||
' Das kann zu unerwarteten Ergebnissen führen, da der Benutzer nur den DisplayMember sieht.
|
||||
@ -174,7 +183,7 @@ Public Class ClassControlBuilder
|
||||
End If
|
||||
|
||||
Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL)
|
||||
|
||||
Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable)
|
||||
If datatable.Rows.Count = 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
@ -273,8 +282,8 @@ Public Class ClassControlBuilder
|
||||
Try
|
||||
Dim value1 As String = dt.Rows(0).Item(0)
|
||||
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 id = ClassDatabase.Execute_Scalar(sql1)
|
||||
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(sqltextbox)
|
||||
|
||||
If Not IsNothing(id) Then
|
||||
Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE GUID = {1}", value1, id)
|
||||
|
||||
@ -22,7 +22,6 @@ Partial Class frmConstructor_Main
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main))
|
||||
Dim GridLevelNode1 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.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl()
|
||||
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.DateiimportEntitätToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.FormDesignerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
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.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
@ -59,6 +58,14 @@ Partial Class frmConstructor_Main
|
||||
Me.pnlDetails = New System.Windows.Forms.Panel()
|
||||
Me.TabWindream = New DevExpress.XtraTab.XtraTabPage()
|
||||
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.AxObjectListControl = New AxOBJECTLISTCONTROLLib.AxObjectListControl()
|
||||
Me.ToolStripDokumente = New System.Windows.Forms.ToolStrip()
|
||||
@ -86,7 +93,7 @@ Partial Class frmConstructor_Main
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.GridControlPos = New DevExpress.XtraGrid.GridControl()
|
||||
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.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
|
||||
@ -128,20 +135,20 @@ Partial Class frmConstructor_Main
|
||||
Me.tsslblStatus = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.tsslblRecord = 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.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
|
||||
Me.ttToolTip = New System.Windows.Forms.ToolTip(Me.components)
|
||||
Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ImageCollection1 = New DevExpress.Utils.ImageCollection()
|
||||
Me.ttToolTip = New System.Windows.Forms.ToolTip()
|
||||
Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip()
|
||||
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.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
|
||||
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.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.ToolTipController = New DevExpress.Utils.ToolTipController(Me.components)
|
||||
Me.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource()
|
||||
Me.ToolTipController = New DevExpress.Utils.ToolTipController()
|
||||
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainerMain.SuspendLayout()
|
||||
CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@ -159,6 +166,7 @@ Partial Class frmConstructor_Main
|
||||
Me.TabDetails.SuspendLayout()
|
||||
Me.TabWindream.SuspendLayout()
|
||||
CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ContextMenuStripResultFiles.SuspendLayout()
|
||||
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ToolStripDokumente.SuspendLayout()
|
||||
@ -436,11 +444,56 @@ Partial Class frmConstructor_Main
|
||||
'
|
||||
'GridControlDocSearch
|
||||
'
|
||||
Me.GridControlDocSearch.ContextMenuStrip = Me.ContextMenuStripResultFiles
|
||||
resources.ApplyResources(Me.GridControlDocSearch, "GridControlDocSearch")
|
||||
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
|
||||
Me.GridControlDocSearch.Name = "GridControlDocSearch"
|
||||
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
|
||||
'
|
||||
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.PerformLayout()
|
||||
CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenuStripResultFiles.ResumeLayout(False)
|
||||
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.AxObjectListControl, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ToolStripDokumente.ResumeLayout(False)
|
||||
@ -1170,4 +1224,12 @@ Partial Class frmConstructor_Main
|
||||
Friend WithEvents GridViewDoc_Search As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator
|
||||
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
|
||||
|
||||
@ -411,8 +411,56 @@
|
||||
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>1</value>
|
||||
</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=">>ContextMenuStripResultFiles.Name" xml:space="preserve">
|
||||
<value>ContextMenuStripResultFiles</value>
|
||||
</data>
|
||||
<data name=">>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">
|
||||
<value>3, 160</value>
|
||||
<value>0, 25</value>
|
||||
</data>
|
||||
<data name="GridViewDoc_Search.Appearance.HorzLine.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>White</value>
|
||||
@ -424,7 +472,7 @@
|
||||
<value>192, 255, 192</value>
|
||||
</data>
|
||||
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1066, 153</value>
|
||||
<value>1072, 291</value>
|
||||
</data>
|
||||
<data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>7</value>
|
||||
@ -448,18 +496,18 @@
|
||||
<value>True</value>
|
||||
</data>
|
||||
<data name="AxObjectListControl.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 25</value>
|
||||
<value>560, 50</value>
|
||||
</data>
|
||||
<data name="AxObjectListControl.OcxState" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB
|
||||
AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAy24AAFUNAAAAAAAACw==
|
||||
AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAcC8AAMAKAAAAAAAACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="AxObjectListControl.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1072, 129</value>
|
||||
<value>459, 104</value>
|
||||
</data>
|
||||
<data name="AxObjectListControl.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>6</value>
|
||||
@ -1565,7 +1613,7 @@
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>SplitContainerMain.ZOrder" xml:space="preserve">
|
||||
<value>3</value>
|
||||
<value>4</value>
|
||||
</data>
|
||||
<data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
@ -1619,7 +1667,7 @@
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>NavPane.ZOrder" xml:space="preserve">
|
||||
<value>5</value>
|
||||
<value>6</value>
|
||||
</data>
|
||||
<metadata name="StatusStrip_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
@ -1667,7 +1715,7 @@
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>StatusStrip_Main.ZOrder" xml:space="preserve">
|
||||
<value>4</value>
|
||||
<value>5</value>
|
||||
</data>
|
||||
<metadata name="BindingSource_Entity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>162, 11</value>
|
||||
@ -2315,6 +2363,48 @@
|
||||
<data name=">>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>
|
||||
</data>
|
||||
<data name=">>DateiÖffnenToolStripMenuItem.Name" xml:space="preserve">
|
||||
<value>DateiÖffnenToolStripMenuItem</value>
|
||||
</data>
|
||||
<data name=">>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=">>ToolStripSeparator7.Name" xml:space="preserve">
|
||||
<value>ToolStripSeparator7</value>
|
||||
</data>
|
||||
<data name=">>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=">>KopierenToolStripMenuItem.Name" xml:space="preserve">
|
||||
<value>KopierenToolStripMenuItem</value>
|
||||
</data>
|
||||
<data name=">>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=">>ToolStripSeparator8.Name" xml:space="preserve">
|
||||
<value>ToolStripSeparator8</value>
|
||||
</data>
|
||||
<data name=">>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=">>LöschenToolStripMenuItem.Name" xml:space="preserve">
|
||||
<value>LöschenToolStripMenuItem</value>
|
||||
</data>
|
||||
<data name=">>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=">>ToolStripSeparator9.Name" xml:space="preserve">
|
||||
<value>ToolStripSeparator9</value>
|
||||
</data>
|
||||
<data name=">>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=">>EigenschaftenToolStripMenuItem.Name" xml:space="preserve">
|
||||
<value>EigenschaftenToolStripMenuItem</value>
|
||||
</data>
|
||||
<data name=">>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=">>GridViewDoc_Search.Name" xml:space="preserve">
|
||||
<value>GridViewDoc_Search</value>
|
||||
</data>
|
||||
|
||||
@ -10,9 +10,33 @@ Imports System.Text
|
||||
Imports System.IO
|
||||
Imports DevExpress.XtraGrid
|
||||
Imports WINDREAMLib
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
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"
|
||||
Private CONSTRUCTORID As Integer
|
||||
Private CONSTRUCTOR_DETAIL_ID As Integer
|
||||
@ -107,6 +131,8 @@ Public Class frmConstructor_Main
|
||||
Private _ENTITYSQL As String
|
||||
Private _ENTITYSTRING As String
|
||||
|
||||
Private RESULT_DOC_PATH
|
||||
|
||||
Public Enum EditState
|
||||
None
|
||||
Insert
|
||||
@ -210,9 +236,11 @@ Public Class frmConstructor_Main
|
||||
Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
|
||||
If File.Exists(XMLPath) Then
|
||||
grvwGridPos.RestoreLayoutFromXml(XMLPath)
|
||||
grvwGridPos.GuessAutoFilterRowValuesFromFilter()
|
||||
'grvwGrid.ClearGrouping()
|
||||
' grvwGridPos.ClearSelection()
|
||||
grvwGridPos.OptionsView.ShowPreview = False
|
||||
' grvwGridPos.OptionsView.ShowPreview = False
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load_POSGrid_Layout:" & vbNewLine & ex.Message)
|
||||
@ -241,7 +269,7 @@ Public Class frmConstructor_Main
|
||||
'grvwGrid.ClearGrouping()
|
||||
' grvwGrid.ClearSelection()
|
||||
'grvwGrid.OptionsView.ShowPreview = False
|
||||
|
||||
grvwGridPos.GuessAutoFilterRowValuesFromFilter()
|
||||
'Update_Status_Label(True, "Grid Layout Loaded")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
@ -689,6 +717,7 @@ Public Class frmConstructor_Main
|
||||
Show_Selected_Record_Data(Grid_RecordID, False)
|
||||
|
||||
RIGHT_ONLY_READ = False
|
||||
tsmi_RecordDelete.Enabled = True
|
||||
RecordKopierenToolStripMenuItem.Enabled = True
|
||||
tslblLocked.Visible = False
|
||||
TabFollowUp.PageEnabled = True
|
||||
@ -1747,8 +1776,11 @@ Public Class frmConstructor_Main
|
||||
|
||||
If windream_Docshow = True Then
|
||||
If TCDetails.SelectedTabPageIndex = 1 Then
|
||||
Clear_Windream_ResultList()
|
||||
Me.GridControlDocSearch.DataSource = Nothing
|
||||
|
||||
If WD_ShowEnitityDocs = True Then
|
||||
Clear_Windream_ResultList()
|
||||
GridControlDocSearch.Visible = True
|
||||
RUN_WD_SEARCH("", "ENTITY")
|
||||
End If
|
||||
End If
|
||||
@ -2428,7 +2460,8 @@ Public Class frmConstructor_Main
|
||||
If RECORD_ID = 0 Then
|
||||
RUN_WD_SEARCH(WD_Suche, "ENTITY")
|
||||
Else
|
||||
RUN_WD_SEARCH(WD_Suche, "RECORD")
|
||||
RUN_WDSEARCH_GRID()
|
||||
' RUN_WD_SEARCH(WD_Suche, "RECORD")
|
||||
End If
|
||||
Case 2
|
||||
tsButtonEdit.Enabled = False
|
||||
@ -3160,7 +3193,7 @@ Public Class frmConstructor_Main
|
||||
End If
|
||||
Dim fileContents As String
|
||||
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)
|
||||
fileContents = fileContents.Replace("Í", "Ö")
|
||||
Dim _sp1 = SP1
|
||||
@ -3278,6 +3311,7 @@ Public Class frmConstructor_Main
|
||||
Exit Sub
|
||||
End If
|
||||
Cursor = Cursors.WaitCursor
|
||||
GridControlDocSearch.DataSource = Nothing
|
||||
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
|
||||
DTWD = ClassDatabase.Return_Datatable(sql)
|
||||
@ -3429,6 +3463,12 @@ Public Class frmConstructor_Main
|
||||
colIcon.ColumnName = "ICON"
|
||||
colIcon.Caption = ""
|
||||
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
|
||||
Dim ColCount As Integer = 1
|
||||
@ -3490,20 +3530,24 @@ Public Class frmConstructor_Main
|
||||
Case ".pdf"
|
||||
NewRow.Item(0) = My.Resources.pdf
|
||||
Case ".doc"
|
||||
NewRow.Item(0) = My.Resources.doc
|
||||
Case ".docx"
|
||||
NewRow.Item(0) = My.Resources.doc
|
||||
Case ".xls"
|
||||
NewRow.Item(0) = My.Resources.xls
|
||||
Case ".xlsx"
|
||||
NewRow.Item(0) = My.Resources.xls
|
||||
Case ".ppt"
|
||||
NewRow.Item(0) = My.Resources.ppt
|
||||
Case ".pptx"
|
||||
NewRow.Item(0) = My.Resources.ppt
|
||||
Case Else
|
||||
NewRow.Item(0) = My.Resources._blank
|
||||
End Select
|
||||
'Den Filepath mitgeben
|
||||
NewRow.Item(1) = fullpath
|
||||
|
||||
|
||||
Dim i = 1 'Fängt bei 1 an, um die ICON Column zu überspringen
|
||||
Dim i = 2 'Fängt bei 2 an, um die ICON Column zu überspringen
|
||||
For Each Column As String In ColArray
|
||||
Dim Indexname = DT.Rows(0).Item(Column)
|
||||
Dim idxvalue
|
||||
@ -3517,12 +3561,16 @@ Public Class frmConstructor_Main
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> idxvalue from windream: '" & idxvalue.ToString & "'", False)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in GetVariableValue for Index '" & Indexname & "- Error: " & ex.Message)
|
||||
idxvalue = "Error getting indexvalue"
|
||||
If Indexname.ToString.StartsWith("Doct") Or Indexname.ToString.StartsWith("Dokum") Then
|
||||
idxvalue = ""
|
||||
Else
|
||||
idxvalue = "Error getting indexvalue"
|
||||
End If
|
||||
End Try
|
||||
NewRow.Item(i) = idxvalue.ToString
|
||||
i += 1
|
||||
Next
|
||||
|
||||
|
||||
DTGrid.Rows.Add(NewRow)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in CreateRow for doc '" & filename & "- Error: " & ex.Message)
|
||||
@ -3534,7 +3582,7 @@ Public Class frmConstructor_Main
|
||||
GridControlDocSearch.DataSource = DTGrid
|
||||
GridViewDoc_Search.Columns.Item(0).MaxWidth = 24
|
||||
GridViewDoc_Search.Columns.Item(0).MinWidth = 24
|
||||
|
||||
grvwGrid.Columns.Item(1).Visible = False
|
||||
End If
|
||||
Else
|
||||
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"
|
||||
End If
|
||||
tslblWindreamView.Text = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
|
||||
Clear_Windream_ResultList()
|
||||
'Clear_Windream_ResultList()
|
||||
End If
|
||||
|
||||
Cursor = Cursors.Default
|
||||
@ -3713,7 +3761,7 @@ Public Class frmConstructor_Main
|
||||
If RECORD_ID = 0 Then
|
||||
RUN_WD_SEARCH(WD_Suche, "ENTITY")
|
||||
Else
|
||||
RUN_WD_SEARCH(WD_Suche, "RECORD")
|
||||
' RUN_WD_SEARCH(WD_Suche, "RECORD")
|
||||
RUN_WDSEARCH_GRID()
|
||||
End If
|
||||
End If
|
||||
@ -3793,8 +3841,8 @@ Public Class frmConstructor_Main
|
||||
CURRENT_RECORD_ID = RECORD_ID
|
||||
CURRENT_FORMVIEW_ID = FORMVIEW_ID
|
||||
frmWD_Index_Dokart.ShowDialog()
|
||||
|
||||
RUN_WD_SEARCH(WD_Suche, "RECORD")
|
||||
RUN_WDSEARCH_GRID()
|
||||
'RUN_WD_SEARCH(WD_Suche, "RECORD")
|
||||
End If
|
||||
ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
|
||||
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!")
|
||||
End If
|
||||
Next
|
||||
RUN_WD_SEARCH(WD_Suche, "RECORD")
|
||||
RUN_WDSEARCH_GRID()
|
||||
' RUN_WD_SEARCH(WD_Suche, "RECORD")
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
@ -4124,7 +4173,8 @@ Public Class frmConstructor_Main
|
||||
|
||||
|
||||
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
|
||||
|
||||
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
|
||||
Cursor = Cursors.WaitCursor
|
||||
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)
|
||||
End If
|
||||
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
|
||||
Delete_Record()
|
||||
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
|
||||
@ -184,7 +184,7 @@ Public Class frmWD_Import_Doc_Record
|
||||
ClassWindream._WDObjekttyp = PROFILE_NEW_OT
|
||||
_Filesimported = 0
|
||||
_RecordsAdded = 0
|
||||
Work_File()
|
||||
Work_Files()
|
||||
MsgBox(_Filesimported.ToString & " Files were imported to ADDI!" & vbNewLine & _
|
||||
_RecordsAdded.ToString & " Records were added!", MsgBoxStyle.Information)
|
||||
Else
|
||||
@ -229,7 +229,7 @@ Public Class frmWD_Import_Doc_Record
|
||||
'End If
|
||||
|
||||
End Sub
|
||||
Sub Work_File()
|
||||
Sub Work_Files()
|
||||
Try
|
||||
IMP_PARENT_REC_ID = Nothing
|
||||
IMPORT_REC_ID = Nothing
|
||||
@ -247,7 +247,7 @@ Public Class frmWD_Import_Doc_Record
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Folderpath '" & DOK_FOLDER & "'", False)
|
||||
Folder = DOK_FOLDER
|
||||
End If
|
||||
|
||||
|
||||
If Create_Record() = True Then
|
||||
If PROFILE_SQL_PARENT <> "" Then
|
||||
If Create_Parent_Record() = False Then
|
||||
@ -312,7 +312,7 @@ Public Class frmWD_Import_Doc_Record
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
Function Import_File()
|
||||
@ -371,14 +371,31 @@ Public Class frmWD_Import_Doc_Record
|
||||
If Not IsNothing(ENTITY_INDEX) Then
|
||||
ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, ENTITY_INDEX, PROFILE_ENTITY)
|
||||
End If
|
||||
If Not IsNothing(IMP_PARENT_REC_ID) Then
|
||||
'Die Parent-Entität indexieren
|
||||
Sql = "SELECT IDXNAME_ENTITYID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
|
||||
Dim PIDENT As String = ClassDatabase.Execute_Scalar(Sql)
|
||||
If Not IsNothing(PIDENT) Then
|
||||
ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, PIDENT, IMP_PARENT_REC_ID.ToString)
|
||||
Try
|
||||
If Not IsNothing(IMP_PARENT_REC_ID) Then
|
||||
'Die Parent-Entität indexieren
|
||||
Sql = "SELECT IDXNAME_PARENTID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
|
||||
Dim PIDENT As String = ClassDatabase.Execute_Scalar(Sql)
|
||||
If Not IsNothing(PIDENT) Then
|
||||
ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, PIDENT, IMP_PARENT_REC_ID.ToString)
|
||||
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
|
||||
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)
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user