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
Show Stats 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"
DEBUG = CBool(Row.Item("Value"))
clsCURRENT.LOG_ERRORS_ONLY = DEBUG
LOGCONFIG.Debug = DEBUG
Case "Sett_TaskOverviewKeepInFront"
Sett_TaskOverviewKeepInFront = CBool(Row.Item("Value"))
Case "WD_IndexDeleteDocs"

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

@ -28,6 +28,7 @@
Public RIGHT_DELETE_DOC As Boolean = False
Public CURRENT_ENTITYSTRING As String = ""
Public CURRENT_ENTITYSQL As String
Public CURRENT_DT_ENTITY_RECORDS As DataTable
@ -185,4 +186,5 @@
Public CURRENT_DOCSEARCH_SQL As String
Public CURRENT_DOCSEARCH_CAPTION As String
Public CURRENT_FILE_RIGHT As String
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:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.7.0.0")>
<Assembly: AssemblyVersion("2.7.1.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<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.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.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_InWork.Enabled = False
docCM_linkRecord.Enabled = False
docCM_Showlinks.Enabled = False
docCM_Showlinks.Enabled = True
docCM_CheckRights.Enabled = False
docCM_DeleteFile.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
ROW_READ_ONLY = True
End Select
CURRENT_FILE_RIGHT = Result.ToString
Else
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Getting rights - check the log")
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.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
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.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
CType(Me.GridControlRecords, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -80,7 +80,7 @@ Partial Class frmDoc_Links
'RibbonControl1
'
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")
Me.RibbonControl1.MaxItemId = 4
Me.RibbonControl1.Name = "RibbonControl1"
@ -88,12 +88,12 @@ Partial Class frmDoc_Links
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'BarButtonItem1
'bbtnitmdeletelink
'
resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
resources.ApplyResources(Me.bbtnitmdeletelink, "bbtnitmdeletelink")
Me.bbtnitmdeletelink.Id = 1
Me.bbtnitmdeletelink.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnitmdeletelink.Name = "bbtnitmdeletelink"
'
'BarStaticItemStatus
'
@ -102,6 +102,13 @@ Partial Class frmDoc_Links
Me.BarStaticItemStatus.ItemAppearance.Normal.Options.UseFont = True
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
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
@ -110,7 +117,7 @@ Partial Class frmDoc_Links
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmdeletelink)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
@ -127,13 +134,6 @@ Partial Class frmDoc_Links
Me.RibbonPage2.Name = "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
'
resources.ApplyResources(Me, "$this")
@ -161,7 +161,7 @@ Partial Class frmDoc_Links
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
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 BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
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">
<value>0</value>
</data>
<data name="BarButtonItem1.Caption" xml:space="preserve">
<data name="bbtnitmdeletelink.Caption" xml:space="preserve">
<value>Ausgewählte Links löschen</value>
</data>
<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">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonItem1.Name" xml:space="preserve">
<value>BarButtonItem1</value>
<data name="&gt;&gt;bbtnitmdeletelink.Name" xml:space="preserve">
<value>bbtnitmdeletelink</value>
</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>
</data>
<data name="&gt;&gt;BarStaticItemStatus.Name" xml:space="preserve">
@ -470,6 +470,12 @@
<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>
</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">
<value>RibbonPage1</value>
</data>
@ -488,12 +494,6 @@
<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>
</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">
<value>frmDoc_Links</value>
</data>

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

@ -9,6 +9,13 @@ Public Class frmDoc_Links
Else
Me.Text = $"Document-Links for file: NODOC-ID"
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
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in frmDoc_DocLinks_Load", ex.Message, ex.StackTrace)
End Try
@ -52,7 +59,7 @@ Public Class frmDoc_Links
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")

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

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

@ -238,7 +238,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>10</value>
<value>11</value>
</data>
<data name="txtFilepath.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value>
@ -262,7 +262,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;txtFilepath.ZOrder" xml:space="preserve">
<value>9</value>
<value>10</value>
</data>
<data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@ -292,7 +292,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>8</value>
<value>9</value>
</data>
<data name="cmbDokumentart.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 9.75pt, style=Bold</value>
@ -301,7 +301,7 @@
<value>15, 78</value>
</data>
<data name="cmbDokumentart.Size" type="System.Drawing.Size, System.Drawing">
<value>391, 25</value>
<value>203, 25</value>
</data>
<data name="cmbDokumentart.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
@ -322,7 +322,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;cmbDokumentart.ZOrder" xml:space="preserve">
<value>7</value>
<value>8</value>
</data>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
@ -364,7 +364,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;btnindex.ZOrder" xml:space="preserve">
<value>6</value>
<value>7</value>
</data>
<data name="OBJECT_TYPETextBox.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value>
@ -463,7 +463,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>5</value>
<value>6</value>
</data>
<data name="chkdelete_origin.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value>
@ -499,7 +499,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;chkdelete_origin.ZOrder" xml:space="preserve">
<value>4</value>
<value>5</value>
</data>
<data name="chkMultiIndexer.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value>
@ -535,7 +535,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;chkMultiIndexer.ZOrder" xml:space="preserve">
<value>3</value>
<value>4</value>
</data>
<metadata name="VWDDINDEX_AUTOMBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>990, 17</value>
@ -571,7 +571,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;grbxControls.ZOrder" xml:space="preserve">
<value>2</value>
<value>3</value>
</data>
<data name="lblSubfolder.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value>
@ -607,7 +607,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;lblSubfolder.ZOrder" xml:space="preserve">
<value>1</value>
<value>2</value>
</data>
<data name="txtSubfolder.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value>
@ -637,6 +637,34 @@
<value>$this</value>
</data>
<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>
</data>
<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
Dim oeditvalue = LookUpEdit1.EditValue
Dim otext = LookUpEdit1.Text
If cmbDokumentart.SelectedIndex <> -1 Then
My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text
My.Settings.Save()
@ -478,6 +481,7 @@ Public Class frmWM_IndexFile
MsgBox("Could not create a windream-session! Please contact Your admin!", MsgBoxStyle.Critical)
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Prepare indexing: " & ex.Message, MsgBoxStyle.Critical)
End Try
@ -1227,6 +1231,9 @@ Public Class frmWM_IndexFile
cmbDokumentart.DataSource = DTVWPMO_DOKUMENTTYPES
cmbDokumentart.DisplayMember = DTVWPMO_DOKUMENTTYPES.Columns(4).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
cmbDokumentart.SelectedIndex = 0
CURRENT_DOKARTID = cmbDokumentart.SelectedValue

2
app/RecordOrganizer_RightManager/frmStart.vb
View File

@ -4,7 +4,7 @@ Public Class frmStart
Try
DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", Environment.UserName)
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()
End If
ClassDatabase.ConnectionStringRM = My.Settings.MyConnectionString