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

MS

Browse Source
This commit is contained in:
SchreiberM
2017-03-20 14:25:58 +01:00
parent e9bf1d36c7
commit 06afe3bd1f
8 changed files with 77 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
app/DD-Record-Organizer/ClassNodeNavigation.vb
View File

@@ -49,7 +49,7 @@
expression = "PARENT_GUID = 0" expression = "PARENT_GUID = 0"
Dim MAIN_NODES() As DataRow Dim MAIN_NODES() As DataRow
' Use the Select method to find all rows matching the filter. ' Use the Select method to find all rows matching the filter.
MAIN_NODES = DT_TREEVIEW_NODES.Select(expression, "NODE_CAPTION") MAIN_NODES = DT_TREEVIEW_NODES.Select(expression, "SEQUENCE, NODE_CAPTION")
' For each row create a Node ' For each row create a Node
For i = 0 To MAIN_NODES.GetUpperBound(0) For i = 0 To MAIN_NODES.GetUpperBound(0)
If ENTITY_ID <> MAIN_NODES(i)("ENTITY_ID") Then If ENTITY_ID <> MAIN_NODES(i)("ENTITY_ID") Then
@@ -57,7 +57,7 @@
ClassNodeNavigation.Check_NODE_CONFIG_ID(MAIN_NODES(i)("ENTITY_ID")) ClassNodeNavigation.Check_NODE_CONFIG_ID(MAIN_NODES(i)("ENTITY_ID"))
End If End If
Dim NODE_Tag = CreateNODE_TAG(MAIN_NODES(i)("ENTITY_ID"), MAIN_NODES(i)("GUID"), MAIN_NODES(i)("RECORD_ID"), MAIN_NODES(i)("NODE_CONFIG_ID")) Dim NODE_Tag = CreateNODE_TAG(MAIN_NODES(i)("ENTITY_ID"), MAIN_NODES(i)("GUID"), MAIN_NODES(i)("RECORD_ID"), MAIN_NODES(i)("NODE_CONFIG_ID"))
Dim MAIN_NODE = New TreeNode(MAIN_NODES(i)("NODE_CAPTION")) Dim MAIN_NODE = New TreeNode(MAIN_NODES(i)("NODE_CAPTION")) '"NODE_CAPTION"
MAIN_NODE.Tag = NODE_Tag MAIN_NODE.Tag = NODE_Tag
Dim index As Integer = 0 Dim index As Integer = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
@@ -87,7 +87,7 @@
expression = "PARENT_GUID = " & PARENT_GUID.ToString expression = "PARENT_GUID = " & PARENT_GUID.ToString
Dim SUB_NODE_ROW() As DataRow Dim SUB_NODE_ROW() As DataRow
' Use the Select method to find all rows matching the filter. ' Use the Select method to find all rows matching the filter.
SUB_NODE_ROW = DT_TREEVIEW_NODES.Select(expression, "NODE_CAPTION") SUB_NODE_ROW = DT_TREEVIEW_NODES.Select(expression, "SEQUENCE, NODE_CAPTION")
' For each row create a Node ' For each row create a Node
For i = 0 To SUB_NODE_ROW.GetUpperBound(0) For i = 0 To SUB_NODE_ROW.GetUpperBound(0)
If ENTITY_ID <> SUB_NODE_ROW(i)("ENTITY_ID") Then If ENTITY_ID <> SUB_NODE_ROW(i)("ENTITY_ID") Then
@@ -197,7 +197,7 @@
expression = "TYPE_NODE = 0" expression = "TYPE_NODE = 0"
Dim foundRowsLevel0() As DataRow Dim foundRowsLevel0() As DataRow
' Use the Select method to find all rows matching the filter. ' Use the Select method to find all rows matching the filter.
foundRowsLevel0 = DT_TREEVIEW_PER_CONTROLS.Select(expression, "NODE_CAPTION") foundRowsLevel0 = DT_TREEVIEW_PER_CONTROLS.Select(expression, "SEQUENCE,NODE_CAPTION")
Dim i As Integer Dim i As Integer
Dim NODE_CONFIG_ID Dim NODE_CONFIG_ID
Dim LEVEL0_NODE As TreeNode Dim LEVEL0_NODE As TreeNode
@@ -229,7 +229,7 @@
Dim expressionLevel1 As String Dim expressionLevel1 As String
expressionLevel1 = "PARENT_GUID = " & ID 'TYPE_NODE = 1 AND Einschränkung auf Type 2 und Parent_Guid expressionLevel1 = "PARENT_GUID = " & ID 'TYPE_NODE = 1 AND Einschränkung auf Type 2 und Parent_Guid
Dim foundRowsLevel1() As DataRow Dim foundRowsLevel1() As DataRow
foundRowsLevel1 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel1, "NODE_CAPTION") foundRowsLevel1 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel1, "SEQUENCE,NODE_CAPTION")
Dim j As Integer Dim j As Integer
For j = 0 To foundRowsLevel1.GetUpperBound(0) For j = 0 To foundRowsLevel1.GetUpperBound(0)
Dim ID1 = foundRowsLevel1(j)("GUID") Dim ID1 = foundRowsLevel1(j)("GUID")
@@ -261,7 +261,7 @@
Dim expressionLevel2 As String Dim expressionLevel2 As String
expressionLevel2 = "PARENT_GUID = " & ID1 'TYPE_NODE = 2 AND Einschränkung auf Type und Parent_Guid expressionLevel2 = "PARENT_GUID = " & ID1 'TYPE_NODE = 2 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel2() As DataRow Dim foundRowsLevel2() As DataRow
foundRowsLevel2 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel2, "NODE_CAPTION") foundRowsLevel2 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel2, "SEQUENCE,NODE_CAPTION")
Dim k As Integer Dim k As Integer
For k = 0 To foundRowsLevel2.GetUpperBound(0) For k = 0 To foundRowsLevel2.GetUpperBound(0)
Dim ID2 = foundRowsLevel2(k)("GUID") Dim ID2 = foundRowsLevel2(k)("GUID")
@@ -291,7 +291,7 @@
Dim expressionLevel3 As String Dim expressionLevel3 As String
expressionLevel3 = "PARENT_GUID = " & ID2 'TYPE_NODE = 3 AND Einschränkung auf Type und Parent_Guid expressionLevel3 = "PARENT_GUID = " & ID2 'TYPE_NODE = 3 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel3() As DataRow Dim foundRowsLevel3() As DataRow
foundRowsLevel3 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel3, "NODE_CAPTION") foundRowsLevel3 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel3, "SEQUENCE,NODE_CAPTION")
Dim l As Integer Dim l As Integer
For l = 0 To foundRowsLevel3.GetUpperBound(0) For l = 0 To foundRowsLevel3.GetUpperBound(0)
Dim ID3 = foundRowsLevel3(l)("GUID") Dim ID3 = foundRowsLevel3(l)("GUID")
@@ -321,7 +321,7 @@
Dim expressionLevel4 As String Dim expressionLevel4 As String
expressionLevel4 = "PARENT_GUID = " & ID3 'TYPE_NODE = 4 AND Einschränkung auf Type und Parent_Guid expressionLevel4 = "PARENT_GUID = " & ID3 'TYPE_NODE = 4 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel4() As DataRow Dim foundRowsLevel4() As DataRow
foundRowsLevel4 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel4, "NODE_CAPTION") foundRowsLevel4 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel4, "SEQUENCE,NODE_CAPTION")
Dim m As Integer Dim m As Integer
For m = 0 To foundRowsLevel4.GetUpperBound(0) For m = 0 To foundRowsLevel4.GetUpperBound(0)
Dim ID5 = foundRowsLevel4(m)("GUID") Dim ID5 = foundRowsLevel4(m)("GUID")
@@ -349,7 +349,7 @@
LEVEL3_NODE.Nodes.Add(LEVEL4_NODE) LEVEL3_NODE.Nodes.Add(LEVEL4_NODE)
'### LEVEL 5 laden ####### '### LEVEL 5 laden #######
Dim expressionLevel5 As String Dim expressionLevel5 As String
Dim sortExp As String = "NODE_CONFIG_ID, NODE_CAPTION" Dim sortExp As String = "NODE_CONFIG_ID, SEQUENCE"
expressionLevel5 = "PARENT_GUID = " & ID5 'TYPE_NODE = 5 AND Einschränkung auf Type und Parent_Guid expressionLevel5 = "PARENT_GUID = " & ID5 'TYPE_NODE = 5 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel5() As DataRow Dim foundRowsLevel5() As DataRow
foundRowsLevel5 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel5, sortExp) foundRowsLevel5 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel5, sortExp)

5
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@@ -56,6 +56,7 @@ Public Class frmConstructor_Main
Private CONSTRUCTORID As Integer Private CONSTRUCTORID As Integer
Private CONSTRUCTOR_DETAIL_ID As Integer Private CONSTRUCTOR_DETAIL_ID As Integer
Private CONSTRUCT_EXPAND As Boolean = True
Private DT_CONSTRUCT_VIEW As DataTable Private DT_CONSTRUCT_VIEW As DataTable
Private DT_VWPMO_CONSTRUCTOR_FORMS As DataTable Private DT_VWPMO_CONSTRUCTOR_FORMS As DataTable
Private DT_ENTITY_DATA As DataTable Private DT_ENTITY_DATA As DataTable
@@ -1167,6 +1168,9 @@ Public Class frmConstructor_Main
TreeViewMain.Nodes.Add(node.Clone) TreeViewMain.Nodes.Add(node.Clone)
Next Next
End If End If
If CONSTRUCT_EXPAND = True Then
TreeViewMain.ExpandAll()
End If
End Sub End Sub
Sub Load_Tree_View(ConstructorId As Integer) Sub Load_Tree_View(ConstructorId As Integer)
Try Try
@@ -1289,6 +1293,7 @@ Public Class frmConstructor_Main
Select form Select form
Where form.Item("FORM_ID") = ENTITY_ID).Single() Where form.Item("FORM_ID") = ENTITY_ID).Single()
CONSTRUCTOR_DETAIL_ID = result.Item("GUID") CONSTRUCTOR_DETAIL_ID = result.Item("GUID")
CONSTRUCT_EXPAND = result.Item("EXPAND")
Dim FORM_DATE_FORMAT = result.Item("DATE_FORMAT") Dim FORM_DATE_FORMAT = result.Item("DATE_FORMAT")
If FORM_DATE_FORMAT <> USER_DATE_FORMAT Then If FORM_DATE_FORMAT <> USER_DATE_FORMAT Then
CURRENT_DATE_FORMAT = FORM_DATE_FORMAT CURRENT_DATE_FORMAT = FORM_DATE_FORMAT

1
app/DD-Record-Organizer/frmDocLink_to_Record.vb
View File

@@ -93,6 +93,7 @@ Public Class frmDocLink_to_Record
trvwMain.Nodes.Add(node.Clone) trvwMain.Nodes.Add(node.Clone)
Next Next
End If End If
Else Else
Try Try
Dim sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _ Dim sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _

10
app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.Designer.vb generated
View File

@@ -188,6 +188,7 @@ Partial Class frmWD_Dokumentart_Konfig
Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter() Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter()
Me.TBWH_DOKART_MODULETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter() Me.TBWH_DOKART_MODULETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter()
Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components) Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components)
Me.colBESCHREIBUNG = New DevExpress.XtraGrid.Columns.GridColumn()
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
BEZEICHNUNGLabel = New System.Windows.Forms.Label() BEZEICHNUNGLabel = New System.Windows.Forms.Label()
KURZNAMELabel = New System.Windows.Forms.Label() KURZNAMELabel = New System.Windows.Forms.Label()
@@ -483,7 +484,7 @@ Partial Class frmWD_Dokumentart_Konfig
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color) Me.GridView1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colBEZEICHNUNG, Me.colOBJEKTTYP}) Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colBEZEICHNUNG, Me.colOBJEKTTYP, Me.colBESCHREIBUNG})
Me.GridView1.GridControl = Me.GridControl1 Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1" Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
@@ -1382,6 +1383,12 @@ Partial Class frmWD_Dokumentart_Konfig
' '
Me.TBWH_DOKART_MODULETableAdapter.ClearBeforeFill = True Me.TBWH_DOKART_MODULETableAdapter.ClearBeforeFill = True
' '
'colBESCHREIBUNG
'
resources.ApplyResources(Me.colBESCHREIBUNG, "colBESCHREIBUNG")
Me.colBESCHREIBUNG.FieldName = "BESCHREIBUNG"
Me.colBESCHREIBUNG.Name = "colBESCHREIBUNG"
'
'frmWD_Dokumentart_Konfig 'frmWD_Dokumentart_Konfig
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@@ -1579,4 +1586,5 @@ Partial Class frmWD_Dokumentart_Konfig
Friend WithEvents cmbIndex_Controls As System.Windows.Forms.ComboBox Friend WithEvents cmbIndex_Controls As System.Windows.Forms.ComboBox
Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents lblpathsaved As System.Windows.Forms.Label Friend WithEvents lblpathsaved As System.Windows.Forms.Label
Friend WithEvents colBESCHREIBUNG As DevExpress.XtraGrid.Columns.GridColumn
End Class End Class

15
app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.resx
View File

@@ -937,6 +937,15 @@
<data name="colOBJEKTTYP.Width" type="System.Int32, mscorlib"> <data name="colOBJEKTTYP.Width" type="System.Int32, mscorlib">
<value>105</value> <value>105</value>
</data> </data>
<data name="colBESCHREIBUNG.Caption" xml:space="preserve">
<value>Beschreibung</value>
</data>
<data name="colBESCHREIBUNG.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colBESCHREIBUNG.VisibleIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>306, 237</value> <value>306, 237</value>
</data> </data>
@@ -3762,6 +3771,12 @@
<data name="&gt;&gt;ToolTipController1.Type" xml:space="preserve"> <data name="&gt;&gt;ToolTipController1.Type" xml:space="preserve">
<value>DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;colBESCHREIBUNG.Name" xml:space="preserve">
<value>colBESCHREIBUNG</value>
</data>
<data name="&gt;&gt;colBESCHREIBUNG.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmWD_Dokumentart_Konfig</value> <value>frmWD_Dokumentart_Konfig</value>
</data> </data>

19
app/DD-Record-Organizer/frmWD_IndexFile.Designer.vb generated
View File

@@ -32,9 +32,7 @@ Partial Class frmWD_IndexFile
Me.txtFilepath = New System.Windows.Forms.TextBox() Me.txtFilepath = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.cmbDokumentart = New System.Windows.Forms.ComboBox() Me.cmbDokumentart = New System.Windows.Forms.ComboBox()
Me.VWPMO_DOKUMENTTYPESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet()
Me.VWPMO_DOKUMENTTYPESTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter()
Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager()
Me.btnindex = New System.Windows.Forms.Button() Me.btnindex = New System.Windows.Forms.Button()
Me.OBJECT_TYPETextBox = New System.Windows.Forms.TextBox() Me.OBJECT_TYPETextBox = New System.Windows.Forms.TextBox()
@@ -56,7 +54,6 @@ Partial Class frmWD_IndexFile
FW_DOCTYPE_IDLabel = New System.Windows.Forms.Label() FW_DOCTYPE_IDLabel = New System.Windows.Forms.Label()
PATHLabel = New System.Windows.Forms.Label() PATHLabel = New System.Windows.Forms.Label()
Label3 = New System.Windows.Forms.Label() Label3 = New System.Windows.Forms.Label()
CType(Me.VWPMO_DOKUMENTTYPESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
CType(Me.VWDDINDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWDDINDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -100,28 +97,17 @@ Partial Class frmWD_IndexFile
' '
'cmbDokumentart 'cmbDokumentart
' '
Me.cmbDokumentart.DataSource = Me.VWPMO_DOKUMENTTYPESBindingSource
Me.cmbDokumentart.DisplayMember = "DOKUMENTTYPE"
resources.ApplyResources(Me.cmbDokumentart, "cmbDokumentart") resources.ApplyResources(Me.cmbDokumentart, "cmbDokumentart")
Me.cmbDokumentart.FormattingEnabled = True Me.cmbDokumentart.FormattingEnabled = True
Me.cmbDokumentart.Name = "cmbDokumentart" Me.cmbDokumentart.Name = "cmbDokumentart"
Me.ToolTip1.SetToolTip(Me.cmbDokumentart, resources.GetString("cmbDokumentart.ToolTip")) Me.ToolTip1.SetToolTip(Me.cmbDokumentart, resources.GetString("cmbDokumentart.ToolTip"))
Me.cmbDokumentart.ValueMember = "DOKUMENTTYPE_ID" Me.cmbDokumentart.ValueMember = "DOKUMENTTYPE_ID"
' '
'VWPMO_DOKUMENTTYPESBindingSource
'
Me.VWPMO_DOKUMENTTYPESBindingSource.DataMember = "VWPMO_DOKUMENTTYPES"
Me.VWPMO_DOKUMENTTYPESBindingSource.DataSource = Me.DD_DMSDataSet
'
'DD_DMSDataSet 'DD_DMSDataSet
' '
Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet"
Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
' '
'VWPMO_DOKUMENTTYPESTableAdapter
'
Me.VWPMO_DOKUMENTTYPESTableAdapter.ClearBeforeFill = True
'
'TableAdapterManager 'TableAdapterManager
' '
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
@@ -135,6 +121,7 @@ Partial Class frmWD_IndexFile
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_APPOINTMENTSTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
@@ -194,7 +181,6 @@ Partial Class frmWD_IndexFile
'PATHTextBox 'PATHTextBox
' '
resources.ApplyResources(Me.PATHTextBox, "PATHTextBox") resources.ApplyResources(Me.PATHTextBox, "PATHTextBox")
Me.PATHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_DOKUMENTTYPESBindingSource, "PATH", True))
Me.PATHTextBox.Name = "PATHTextBox" Me.PATHTextBox.Name = "PATHTextBox"
' '
'lvwIndices 'lvwIndices
@@ -280,7 +266,6 @@ Partial Class frmWD_IndexFile
Me.MaximizeBox = False Me.MaximizeBox = False
Me.MinimizeBox = False Me.MinimizeBox = False
Me.Name = "frmWD_IndexFile" Me.Name = "frmWD_IndexFile"
CType(Me.VWPMO_DOKUMENTTYPESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout() Me.GroupBox1.PerformLayout()
@@ -294,8 +279,6 @@ Partial Class frmWD_IndexFile
Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents cmbDokumentart As System.Windows.Forms.ComboBox Friend WithEvents cmbDokumentart As System.Windows.Forms.ComboBox
Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet
Friend WithEvents VWPMO_DOKUMENTTYPESBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents VWPMO_DOKUMENTTYPESTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter
Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager
Friend WithEvents btnindex As System.Windows.Forms.Button Friend WithEvents btnindex As System.Windows.Forms.Button
Friend WithEvents OBJECT_TYPETextBox As System.Windows.Forms.TextBox Friend WithEvents OBJECT_TYPETextBox As System.Windows.Forms.TextBox

53
app/DD-Record-Organizer/frmWD_IndexFile.resx
View File

@@ -324,11 +324,8 @@
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>8</value> <value>8</value>
</data> </data>
<metadata name="VWPMO_DOKUMENTTYPESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>160, 17</value> <value>891, 17</value>
</metadata>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata> </metadata>
<data name="cmbDokumentart.Font" type="System.Drawing.Font, System.Drawing"> <data name="cmbDokumentart.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 9.75pt, style=Bold</value> <value>Segoe UI Semibold, 9.75pt, style=Bold</value>
@@ -342,9 +339,6 @@
<data name="cmbDokumentart.TabIndex" type="System.Int32, mscorlib"> <data name="cmbDokumentart.TabIndex" type="System.Int32, mscorlib">
<value>3</value> <value>3</value>
</data> </data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>891, 17</value>
</metadata>
<data name="cmbDokumentart.ToolTip" xml:space="preserve"> <data name="cmbDokumentart.ToolTip" xml:space="preserve">
<value>Auswahl der Dokumentart - Wird für nächste Eingabe gespeichert</value> <value>Auswahl der Dokumentart - Wird für nächste Eingabe gespeichert</value>
</data> </data>
@@ -360,8 +354,8 @@
<data name="&gt;&gt;cmbDokumentart.ZOrder" xml:space="preserve"> <data name="&gt;&gt;cmbDokumentart.ZOrder" xml:space="preserve">
<value>7</value> <value>7</value>
</data> </data>
<metadata name="VWPMO_DOKUMENTTYPESTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>442, 17</value> <value>17, 17</value>
</metadata> </metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>718, 17</value> <value>718, 17</value>
@@ -453,18 +447,6 @@
<data name="lvwIndices.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="lvwIndices.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value> <value>Top, Bottom, Left, Right</value>
</data> </data>
<data name="ColumnHeader1.Text" xml:space="preserve">
<value>Indexname</value>
</data>
<data name="ColumnHeader1.Width" type="System.Int32, mscorlib">
<value>100</value>
</data>
<data name="ColumnHeader2.Text" xml:space="preserve">
<value>Value</value>
</data>
<data name="ColumnHeader2.Width" type="System.Int32, mscorlib">
<value>120</value>
</data>
<data name="lvwIndices.Location" type="System.Drawing.Point, System.Drawing"> <data name="lvwIndices.Location" type="System.Drawing.Point, System.Drawing">
<value>85, 93</value> <value>85, 93</value>
</data> </data>
@@ -537,6 +519,18 @@
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>5</value> <value>5</value>
</data> </data>
<data name="ColumnHeader1.Text" xml:space="preserve">
<value>Indexname</value>
</data>
<data name="ColumnHeader1.Width" type="System.Int32, mscorlib">
<value>100</value>
</data>
<data name="ColumnHeader2.Text" xml:space="preserve">
<value>Value</value>
</data>
<data name="ColumnHeader2.Width" type="System.Int32, mscorlib">
<value>120</value>
</data>
<data name="chkdelete_origin.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="chkdelete_origin.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value> <value>Bottom, Left</value>
</data> </data>
@@ -573,6 +567,9 @@
<data name="&gt;&gt;chkdelete_origin.ZOrder" xml:space="preserve"> <data name="&gt;&gt;chkdelete_origin.ZOrder" xml:space="preserve">
<value>4</value> <value>4</value>
</data> </data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>891, 17</value>
</metadata>
<data name="chkMultiIndexer.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="chkMultiIndexer.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value> <value>Bottom, Left</value>
</data> </data>
@@ -1175,24 +1172,12 @@
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">
<value>Import nach windream:</value> <value>Import nach windream:</value>
</data> </data>
<data name="&gt;&gt;VWPMO_DOKUMENTTYPESBindingSource.Name" xml:space="preserve">
<value>VWPMO_DOKUMENTTYPESBindingSource</value>
</data>
<data name="&gt;&gt;VWPMO_DOKUMENTTYPESBindingSource.Type" xml:space="preserve">
<value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;DD_DMSDataSet.Name" xml:space="preserve"> <data name="&gt;&gt;DD_DMSDataSet.Name" xml:space="preserve">
<value>DD_DMSDataSet</value> <value>DD_DMSDataSet</value>
</data> </data>
<data name="&gt;&gt;DD_DMSDataSet.Type" xml:space="preserve"> <data name="&gt;&gt;DD_DMSDataSet.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;VWPMO_DOKUMENTTYPESTableAdapter.Name" xml:space="preserve">
<value>VWPMO_DOKUMENTTYPESTableAdapter</value>
</data>
<data name="&gt;&gt;VWPMO_DOKUMENTTYPESTableAdapter.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve"> <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
<value>TableAdapterManager</value> <value>TableAdapterManager</value>
</data> </data>

25
app/DD-Record-Organizer/frmWD_IndexFile.vb
View File

@@ -10,6 +10,7 @@ Public Class frmWD_IndexFile
Dim aktFiledropped As String Dim aktFiledropped As String
Dim MULTIFILES As Integer = 0 Dim MULTIFILES As Integer = 0
Dim formloaded As Boolean = False Dim formloaded As Boolean = False
Dim DTVWPMO_DOKUMENTTYPES As DataTable
Function WORK_FILE(ImportFilePath As String, VerzeichnisZiel As String, vDokart_ID As Integer, vDokart As String, multiindex As Boolean) Function WORK_FILE(ImportFilePath As String, VerzeichnisZiel As String, vDokart_ID As Integer, vDokart As String, multiindex As Boolean)
Try Try
@@ -1035,17 +1036,20 @@ Public Class frmWD_IndexFile
ElseIf HandleType = "SCAM" Then ElseIf HandleType = "SCAM" Then
droptype = "scan" droptype = "scan"
End If End If
VWPMO_DOKUMENTTYPESTableAdapter.Connection.ConnectionString = MyConnectionString Dim sql = String.Format("SELECT FORMVIEW_ID, FORM_ID, FORM_TITLE, DOKUMENTTYPE_ID, DOKUMENTTYPE, PATH, SHORTNAME, OBJECT_TYPE, FW_DOCTYPE_ID FROM VWPMO_DOKUMENTTYPES WHERE (FORMVIEW_ID = {0}) " & _
Me.VWPMO_DOKUMENTTYPESTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_DOKUMENTTYPES, CURRENT_FORMVIEW_ID) "ORDER BY SEQUENCE, DOKUMENTTYPE", CURRENT_FORMVIEW_ID)
DTVWPMO_DOKUMENTTYPES = ClassDatabase.Return_Datatable(sql, True)
'VWPMO_DOKUMENTTYPESTableAdapter.Connection.ConnectionString = MyConnectionString
'Me.VWPMO_DOKUMENTTYPESTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_DOKUMENTTYPES, CURRENT_FORMVIEW_ID)
CURRENT_REDUNDANT_FORM_ID = 0 CURRENT_REDUNDANT_FORM_ID = 0
CURRENT_REDUNDANT_FORMVIEW_ID = 0 CURRENT_REDUNDANT_FORMVIEW_ID = 0
If DD_DMSDataSet.VWPMO_DOKUMENTTYPES.Rows.Count = 0 Then If DTVWPMO_DOKUMENTTYPES.Rows.Count = 0 Then ' DD_DMSDataSet.VWPMO_DOKUMENTTYPES.Rows.Count = 0 Then
If CURRENT_ENTITY_REDUNDANT_ID <> 0 Then If CURRENT_ENTITY_REDUNDANT_ID <> 0 Then
Dim FVID = ClassDatabase.Execute_Scalar(String.Format("SELECT GUID FROM TBPMO_FORM_VIEW WHERE FORM_ID = {0} and SCREEN_ID = 1", CURRENT_ENTITY_REDUNDANT_ID), True) Dim FVID = ClassDatabase.Execute_Scalar(String.Format("SELECT GUID FROM TBPMO_FORM_VIEW WHERE FORM_ID = {0} and SCREEN_ID = 1", CURRENT_ENTITY_REDUNDANT_ID), True)
Me.VWPMO_DOKUMENTTYPESTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_DOKUMENTTYPES, FVID) 'Me.VWPMO_DOKUMENTTYPESTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_DOKUMENTTYPES, FVID)
If DD_DMSDataSet.VWPMO_DOKUMENTTYPES.Rows.Count = 0 Then If DTVWPMO_DOKUMENTTYPES.Rows.Count = 0 Then 'DD_DMSDataSet.VWPMO_DOKUMENTTYPES.Rows.Count = 0 Then
MsgBox("No documenttypes for the redundant entity configured either! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation) MsgBox("No documenttypes for the redundant entity configured either! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
Else Else
@@ -1076,14 +1080,19 @@ Public Class frmWD_IndexFile
If My.Settings.WD_INDEXDOKART_SAVE <> String.Empty Then If My.Settings.WD_INDEXDOKART_SAVE <> String.Empty Then
Me.cmbDokumentart.SelectedItem = Me.cmbDokumentart.Items.IndexOf(My.Settings.WD_INDEXDOKART_SAVE) Me.cmbDokumentart.SelectedItem = Me.cmbDokumentart.Items.IndexOf(My.Settings.WD_INDEXDOKART_SAVE)
' cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(My.Settings.WD_INDEXDOKART_SAVE) ' cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(My.Settings.WD_INDEXDOKART_SAVE)
Else End If
If DD_DMSDataSet.VWPMO_DOKUMENTTYPES.Rows.Count = 1 Then If DTVWPMO_DOKUMENTTYPES.Rows.Count >= 1 Then
cmbDokumentart.DataSource = DTVWPMO_DOKUMENTTYPES
cmbDokumentart.DisplayMember = DTVWPMO_DOKUMENTTYPES.Columns(4).ColumnName
cmbDokumentart.ValueMember = DTVWPMO_DOKUMENTTYPES.Columns(3).ColumnName
If DTVWPMO_DOKUMENTTYPES.Rows.Count = 1 Then
cmbDokumentart.SelectedIndex = 0 cmbDokumentart.SelectedIndex = 0
CURRENT_DOKARTID = cmbDokumentart.SelectedValue CURRENT_DOKARTID = cmbDokumentart.SelectedValue
CURRENT_DOKARTSTRING = cmbDokumentart.Text CURRENT_DOKARTSTRING = cmbDokumentart.Text
Refresh_indices() Refresh_indices()
End If End If
End If End If
Me.Hide() Me.Hide()
Me.Visible = True Me.Visible = True
Me.Activate() Me.Activate()