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

MS

Browse Source
This commit is contained in:
SchreiberM
2021-08-27 14:23:01 +02:00
parent 54d57761ea
commit 9287630dfb
12 changed files with 105 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -190,6 +190,7 @@ Module ModuleMySettings
Case "LogErrorsOnly" Case "LogErrorsOnly"
DEBUG = CBool(Row.Item("Value")) DEBUG = CBool(Row.Item("Value"))
clsCURRENT.LOG_ERRORS_ONLY = DEBUG clsCURRENT.LOG_ERRORS_ONLY = DEBUG
LOGCONFIG.Debug = DEBUG
Case "Sett_TaskOverviewKeepInFront" Case "Sett_TaskOverviewKeepInFront"
Sett_TaskOverviewKeepInFront = CBool(Row.Item("Value")) Sett_TaskOverviewKeepInFront = CBool(Row.Item("Value"))
Case "WD_IndexDeleteDocs" Case "WD_IndexDeleteDocs"

2
app/DD-Record-Organizer/ModuleRuntimeVariables.vb
View File

@@ -28,6 +28,7 @@
Public RIGHT_DELETE_DOC As Boolean = False Public RIGHT_DELETE_DOC As Boolean = False
Public CURRENT_ENTITYSTRING As String = "" Public CURRENT_ENTITYSTRING As String = ""
Public CURRENT_ENTITYSQL As String Public CURRENT_ENTITYSQL As String
Public CURRENT_DT_ENTITY_RECORDS As DataTable Public CURRENT_DT_ENTITY_RECORDS As DataTable
@@ -185,4 +186,5 @@
Public CURRENT_DOCSEARCH_SQL As String Public CURRENT_DOCSEARCH_SQL As String
Public CURRENT_DOCSEARCH_CAPTION As String Public CURRENT_DOCSEARCH_CAPTION As String
Public CURRENT_FILE_RIGHT As String
End Module End Module

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

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

4
app/DD-Record-Organizer/My Project/licenses.licx
View File

@@ -1,4 +1,6 @@
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

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

@@ -5904,7 +5904,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
docCM_RenameMain.Enabled = False docCM_RenameMain.Enabled = False
docCM_InWork.Enabled = False docCM_InWork.Enabled = False
docCM_linkRecord.Enabled = False docCM_linkRecord.Enabled = False
docCM_Showlinks.Enabled = False docCM_Showlinks.Enabled = True
docCM_CheckRights.Enabled = False docCM_CheckRights.Enabled = False
docCM_DeleteFile.Enabled = False docCM_DeleteFile.Enabled = False
docCM_RemoveLink.Enabled = False docCM_RemoveLink.Enabled = False
@@ -5965,6 +5965,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If End If
ROW_READ_ONLY = True ROW_READ_ONLY = True
End Select End Select
CURRENT_FILE_RIGHT = Result.ToString
Else Else
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Getting rights - check the log") ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Getting rights - check the log")
e.Cancel = True e.Cancel = True

34
app/DD-Record-Organizer/frmDoc_Links.Designer.vb generated
View File

@@ -27,13 +27,13 @@ Partial Class frmDoc_Links
Me.GridControlRecords = New DevExpress.XtraGrid.GridControl() Me.GridControlRecords = New DevExpress.XtraGrid.GridControl()
Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView() Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.bbtnitmdeletelink = New DevExpress.XtraBars.BarButtonItem()
Me.BarStaticItemStatus = New DevExpress.XtraBars.BarStaticItem() Me.BarStaticItemStatus = New DevExpress.XtraBars.BarStaticItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
CType(Me.GridControlRecords, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlRecords, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -80,7 +80,7 @@ Partial Class frmDoc_Links
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarStaticItemStatus, Me.BarButtonItem2}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnitmdeletelink, Me.BarStaticItemStatus, Me.BarButtonItem2})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 4 Me.RibbonControl1.MaxItemId = 4
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
@@ -88,12 +88,12 @@ Partial Class frmDoc_Links
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
' '
'BarButtonItem1 'bbtnitmdeletelink
' '
resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1") resources.ApplyResources(Me.bbtnitmdeletelink, "bbtnitmdeletelink")
Me.BarButtonItem1.Id = 1 Me.bbtnitmdeletelink.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.bbtnitmdeletelink.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1" Me.bbtnitmdeletelink.Name = "bbtnitmdeletelink"
' '
'BarStaticItemStatus 'BarStaticItemStatus
' '
@@ -102,6 +102,13 @@ Partial Class frmDoc_Links
Me.BarStaticItemStatus.ItemAppearance.Normal.Options.UseFont = True Me.BarStaticItemStatus.ItemAppearance.Normal.Options.UseFont = True
Me.BarStaticItemStatus.Name = "BarStaticItemStatus" Me.BarStaticItemStatus.Name = "BarStaticItemStatus"
' '
'BarButtonItem2
'
resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
Me.BarButtonItem2.Id = 3
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
@@ -110,7 +117,7 @@ Partial Class frmDoc_Links
' '
'RibbonPageGroup1 'RibbonPageGroup1
' '
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmdeletelink)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1") resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
@@ -127,13 +134,6 @@ Partial Class frmDoc_Links
Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Name = "RibbonPage2"
resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
' '
'BarButtonItem2
'
resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
Me.BarButtonItem2.Id = 3
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'frmDoc_Links 'frmDoc_Links
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@@ -161,7 +161,7 @@ Partial Class frmDoc_Links
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents bbtnitmdeletelink As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarStaticItemStatus As DevExpress.XtraBars.BarStaticItem Friend WithEvents BarStaticItemStatus As DevExpress.XtraBars.BarStaticItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
End Class End Class

20
app/DD-Record-Organizer/frmDoc_Links.resx
View File

@@ -171,7 +171,7 @@
<data name="&gt;&gt;GridControlRecords.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GridControlRecords.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="BarButtonItem1.Caption" xml:space="preserve"> <data name="bbtnitmdeletelink.Caption" xml:space="preserve">
<value>Ausgewählte Links löschen</value> <value>Ausgewählte Links löschen</value>
</data> </data>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
@@ -458,10 +458,10 @@
<data name="&gt;&gt;grvwGrid.Type" xml:space="preserve"> <data name="&gt;&gt;grvwGrid.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BarButtonItem1.Name" xml:space="preserve"> <data name="&gt;&gt;bbtnitmdeletelink.Name" xml:space="preserve">
<value>BarButtonItem1</value> <value>bbtnitmdeletelink</value>
</data> </data>
<data name="&gt;&gt;BarButtonItem1.Type" xml:space="preserve"> <data name="&gt;&gt;bbtnitmdeletelink.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BarStaticItemStatus.Name" xml:space="preserve"> <data name="&gt;&gt;BarStaticItemStatus.Name" xml:space="preserve">
@@ -470,6 +470,12 @@
<data name="&gt;&gt;BarStaticItemStatus.Type" xml:space="preserve"> <data name="&gt;&gt;BarStaticItemStatus.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BarButtonItem2.Name" xml:space="preserve">
<value>BarButtonItem2</value>
</data>
<data name="&gt;&gt;BarButtonItem2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
<value>RibbonPage1</value> <value>RibbonPage1</value>
</data> </data>
@@ -488,12 +494,6 @@
<data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BarButtonItem2.Name" xml:space="preserve">
<value>BarButtonItem2</value>
</data>
<data name="&gt;&gt;BarButtonItem2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.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>frmDoc_Links</value> <value>frmDoc_Links</value>
</data> </data>

9
app/DD-Record-Organizer/frmDoc_Links.vb
View File

@@ -9,6 +9,13 @@ Public Class frmDoc_Links
Else Else
Me.Text = $"Document-Links for file: NODOC-ID" Me.Text = $"Document-Links for file: NODOC-ID"
End If End If
bbtnitmdeletelink.Enabled = False
Select Case CURRENT_FILE_RIGHT
Case "RW"
bbtnitmdeletelink.Enabled = True
Case "RWA"
bbtnitmdeletelink.Enabled = True
End Select
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in frmDoc_DocLinks_Load", ex.Message, ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in frmDoc_DocLinks_Load", ex.Message, ex.StackTrace)
End Try End Try
@@ -52,7 +59,7 @@ Public Class frmDoc_Links
End Sub End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmdeletelink.ItemClick
Dim oDocID = grvwGrid.GetRowCellValue(grvwGrid.FocusedRowHandle, "DocID") Dim oDocID = grvwGrid.GetRowCellValue(grvwGrid.FocusedRowHandle, "DocID")

14
app/DD-Record-Organizer/frmWM_IndexFile.Designer.vb generated
View File

@@ -46,12 +46,14 @@ Partial Class frmWM_IndexFile
Me.grbxControls = New System.Windows.Forms.GroupBox() Me.grbxControls = New System.Windows.Forms.GroupBox()
Me.lblSubfolder = New System.Windows.Forms.Label() Me.lblSubfolder = New System.Windows.Forms.Label()
Me.txtSubfolder = New System.Windows.Forms.TextBox() Me.txtSubfolder = New System.Windows.Forms.TextBox()
Me.LookUpEdit1 = New DevExpress.XtraEditors.LookUpEdit()
OBJECT_TYPELabel = New System.Windows.Forms.Label() OBJECT_TYPELabel = New System.Windows.Forms.Label()
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()
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()
CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'OBJECT_TYPELabel 'OBJECT_TYPELabel
@@ -171,6 +173,7 @@ Partial Class frmWM_IndexFile
' '
resources.ApplyResources(Me.PATHTextBox, "PATHTextBox") resources.ApplyResources(Me.PATHTextBox, "PATHTextBox")
Me.PATHTextBox.Name = "PATHTextBox" Me.PATHTextBox.Name = "PATHTextBox"
Me.PATHTextBox.ReadOnly = True
' '
'DOCTYPE_IDTextBox 'DOCTYPE_IDTextBox
' '
@@ -220,11 +223,20 @@ Partial Class frmWM_IndexFile
resources.ApplyResources(Me.txtSubfolder, "txtSubfolder") resources.ApplyResources(Me.txtSubfolder, "txtSubfolder")
Me.txtSubfolder.Name = "txtSubfolder" Me.txtSubfolder.Name = "txtSubfolder"
' '
'LookUpEdit1
'
resources.ApplyResources(Me.LookUpEdit1, "LookUpEdit1")
Me.LookUpEdit1.Name = "LookUpEdit1"
Me.LookUpEdit1.Properties.Appearance.Font = CType(resources.GetObject("LookUpEdit1.Properties.Appearance.Font"), System.Drawing.Font)
Me.LookUpEdit1.Properties.Appearance.Options.UseFont = True
Me.LookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("LookUpEdit1.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))})
'
'frmWM_IndexFile 'frmWM_IndexFile
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.ControlLight Me.BackColor = System.Drawing.SystemColors.ControlLight
Me.Controls.Add(Me.LookUpEdit1)
Me.Controls.Add(Me.txtSubfolder) Me.Controls.Add(Me.txtSubfolder)
Me.Controls.Add(Me.lblSubfolder) Me.Controls.Add(Me.lblSubfolder)
Me.Controls.Add(Me.grbxControls) Me.Controls.Add(Me.grbxControls)
@@ -243,6 +255,7 @@ Partial Class frmWM_IndexFile
Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout() Me.GroupBox1.PerformLayout()
CType(Me.VWDDINDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWDDINDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -266,4 +279,5 @@ Partial Class frmWM_IndexFile
Friend WithEvents grbxControls As System.Windows.Forms.GroupBox Friend WithEvents grbxControls As System.Windows.Forms.GroupBox
Friend WithEvents lblSubfolder As System.Windows.Forms.Label Friend WithEvents lblSubfolder As System.Windows.Forms.Label
Friend WithEvents txtSubfolder As System.Windows.Forms.TextBox Friend WithEvents txtSubfolder As System.Windows.Forms.TextBox
Friend WithEvents LookUpEdit1 As DevExpress.XtraEditors.LookUpEdit
End Class End Class

50
app/DD-Record-Organizer/frmWM_IndexFile.resx
View File

@@ -238,7 +238,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>10</value> <value>11</value>
</data> </data>
<data name="txtFilepath.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="txtFilepath.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value> <value>Top, Left, Right</value>
@@ -262,7 +262,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;txtFilepath.ZOrder" xml:space="preserve"> <data name="&gt;&gt;txtFilepath.ZOrder" xml:space="preserve">
<value>9</value> <value>10</value>
</data> </data>
<data name="Label2.AutoSize" type="System.Boolean, mscorlib"> <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@@ -292,7 +292,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>8</value> <value>9</value>
</data> </data>
<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>
@@ -301,7 +301,7 @@
<value>15, 78</value> <value>15, 78</value>
</data> </data>
<data name="cmbDokumentart.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmbDokumentart.Size" type="System.Drawing.Size, System.Drawing">
<value>391, 25</value> <value>203, 25</value>
</data> </data>
<data name="cmbDokumentart.TabIndex" type="System.Int32, mscorlib"> <data name="cmbDokumentart.TabIndex" type="System.Int32, mscorlib">
<value>3</value> <value>3</value>
@@ -322,7 +322,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;cmbDokumentart.ZOrder" xml:space="preserve"> <data name="&gt;&gt;cmbDokumentart.ZOrder" xml:space="preserve">
<value>7</value> <value>8</value>
</data> </data>
<metadata name="DD_DMSDataSet.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>17, 17</value> <value>17, 17</value>
@@ -364,7 +364,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;btnindex.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnindex.ZOrder" xml:space="preserve">
<value>6</value> <value>7</value>
</data> </data>
<data name="OBJECT_TYPETextBox.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="OBJECT_TYPETextBox.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value> <value>Top, Left, Right</value>
@@ -463,7 +463,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>5</value> <value>6</value>
</data> </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>
@@ -499,7 +499,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;chkdelete_origin.ZOrder" xml:space="preserve"> <data name="&gt;&gt;chkdelete_origin.ZOrder" xml:space="preserve">
<value>4</value> <value>5</value>
</data> </data>
<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>
@@ -535,7 +535,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;chkMultiIndexer.ZOrder" xml:space="preserve"> <data name="&gt;&gt;chkMultiIndexer.ZOrder" xml:space="preserve">
<value>3</value> <value>4</value>
</data> </data>
<metadata name="VWDDINDEX_AUTOMBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="VWDDINDEX_AUTOMBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>990, 17</value> <value>990, 17</value>
@@ -571,7 +571,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;grbxControls.ZOrder" xml:space="preserve"> <data name="&gt;&gt;grbxControls.ZOrder" xml:space="preserve">
<value>2</value> <value>3</value>
</data> </data>
<data name="lblSubfolder.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="lblSubfolder.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value> <value>Bottom, Left</value>
@@ -607,7 +607,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;lblSubfolder.ZOrder" xml:space="preserve"> <data name="&gt;&gt;lblSubfolder.ZOrder" xml:space="preserve">
<value>1</value> <value>2</value>
</data> </data>
<data name="txtSubfolder.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="txtSubfolder.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value> <value>Bottom, Left</value>
@@ -637,6 +637,34 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;txtSubfolder.ZOrder" xml:space="preserve"> <data name="&gt;&gt;txtSubfolder.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="LookUpEdit1.Location" type="System.Drawing.Point, System.Drawing">
<value>224, 79</value>
</data>
<data name="LookUpEdit1.Properties.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<assembly alias="DevExpress.Utils.v19.2" name="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="LookUpEdit1.Properties.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v19.2">
<value>Combo</value>
</data>
<data name="LookUpEdit1.Size" type="System.Drawing.Size, System.Drawing">
<value>350, 22</value>
</data>
<data name="LookUpEdit1.TabIndex" type="System.Int32, mscorlib">
<value>14</value>
</data>
<data name="&gt;&gt;LookUpEdit1.Name" xml:space="preserve">
<value>LookUpEdit1</value>
</data>
<data name="&gt;&gt;LookUpEdit1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;LookUpEdit1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;LookUpEdit1.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

7
app/DD-Record-Organizer/frmWM_IndexFile.vb
View File

@@ -469,6 +469,9 @@ Public Class frmWM_IndexFile
End If End If
End If End If
End If End If
Dim oeditvalue = LookUpEdit1.EditValue
Dim otext = LookUpEdit1.Text
If cmbDokumentart.SelectedIndex <> -1 Then If cmbDokumentart.SelectedIndex <> -1 Then
My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text
My.Settings.Save() My.Settings.Save()
@@ -478,6 +481,7 @@ Public Class frmWM_IndexFile
MsgBox("Could not create a windream-session! Please contact Your admin!", MsgBoxStyle.Critical) MsgBox("Could not create a windream-session! Please contact Your admin!", MsgBoxStyle.Critical)
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Prepare indexing: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Prepare indexing: " & ex.Message, MsgBoxStyle.Critical)
End Try End Try
@@ -1227,6 +1231,9 @@ Public Class frmWM_IndexFile
cmbDokumentart.DataSource = DTVWPMO_DOKUMENTTYPES cmbDokumentart.DataSource = DTVWPMO_DOKUMENTTYPES
cmbDokumentart.DisplayMember = DTVWPMO_DOKUMENTTYPES.Columns(4).ColumnName cmbDokumentart.DisplayMember = DTVWPMO_DOKUMENTTYPES.Columns(4).ColumnName
cmbDokumentart.ValueMember = DTVWPMO_DOKUMENTTYPES.Columns(3).ColumnName cmbDokumentart.ValueMember = DTVWPMO_DOKUMENTTYPES.Columns(3).ColumnName
LookUpEdit1.Properties.DataSource = DTVWPMO_DOKUMENTTYPES
LookUpEdit1.Properties.DisplayMember = DTVWPMO_DOKUMENTTYPES.Columns(4).ColumnName
LookUpEdit1.Properties.ValueMember = DTVWPMO_DOKUMENTTYPES.Columns(3).ColumnName
If DTVWPMO_DOKUMENTTYPES.Rows.Count = 1 Then If DTVWPMO_DOKUMENTTYPES.Rows.Count = 1 Then
cmbDokumentart.SelectedIndex = 0 cmbDokumentart.SelectedIndex = 0
CURRENT_DOKARTID = cmbDokumentart.SelectedValue CURRENT_DOKARTID = cmbDokumentart.SelectedValue

2
app/RecordOrganizer_RightManager/frmStart.vb
View File

@@ -4,7 +4,7 @@ Public Class frmStart
Try Try
DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", Environment.UserName) DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", Environment.UserName)
If DD_Rights.clsDatabase.Init(My.Settings.MyConnectionString) = False Then If DD_Rights.clsDatabase.Init(My.Settings.MyConnectionString) = False Then
MsgBox("Error in Initializing Database. Please check log.", MsgBoxStyle.Critical) MsgBox("Error in Initializing Database DDRights. Please check log.", MsgBoxStyle.Critical)
Me.Close() Me.Close()
End If End If
ClassDatabase.ConnectionStringRM = My.Settings.MyConnectionString ClassDatabase.ConnectionStringRM = My.Settings.MyConnectionString