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

jj für MS 25.01.17

Browse Source
This commit is contained in:
SchreiberM 2017-01-25 10:41:50 +01:00
parent 9d485d82f0
commit 64ef01a393
13 changed files with 1299 additions and 986 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
app/DD-Record-Organiser/ClassHelper.vb
View File

@ -1,6 +1,6 @@
Imports System.IO
Imports System.Globalization
Imports DD_LIB_Standards
Public Class ClassHelper
Public Shared Function Convert_Date(input As String, format As String)
Try
@ -137,8 +137,8 @@ Public Class ClassHelper
OPEN_DOCVIEW(RESULT_DOC_PATH, DocID)
End Select
End If
Else
MSGBOX_Handler("ERROR", "", "Sorry, but the docpath for doc-id: " & DocID & " is nothing!")
If LogErrorsOnly = False Then ClassLogger.Add(" >> RESULT_DOC_PATH IS NOTHING")
End If
Catch ex As Exception
@ -178,14 +178,15 @@ Public Class ClassHelper
Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String)
Try
If RESULT_DOC_PATH <> Nothing Then
If System.IO.File.Exists(RESULT_DOC_PATH) = True Then
Process.Start(RESULT_DOC_PATH)
Else
MsgBox("File '" & RESULT_DOC_PATH & "' not existing or accessible!", MsgBoxStyle.Exclamation)
If clsWD_GET.WDFile_exists(RESULT_DOC_PATH, True) = False Then
MSGBOX_Handler("ERROR", "", "File '" & RESULT_DOC_PATH & "' not existing!")
Else
MSGBOX_Handler("ERROR", "", "File '" & RESULT_DOC_PATH & "' is existing but You are not provided with reading rights! Please inform Your admin!")
End If
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)

20
app/DD-Record-Organiser/ClassInit.vb
View File

@ -193,10 +193,26 @@ Public Class ClassInit
If USER_USERNAME <> "" Then
InitUserLogin(USER_USERNAME)
End If
Else
If USER_USERNAME.ToUpper <> Environment.UserName.ToUpper Then
If clsWindream.PMO_CREATE_PERSONIFIED_LOGIN = False Then
ClassLogger.Add(" Could not create the personified login for windream!")
End If
Else
If clsWindream.Create_Session = False Then
ClassLogger.Add("Could not create the login for windream!")
ClassHelper.MSGBOX_Handler("ERROR", "windream-login Error:", "Could not create the login/session")
End If
End If
End If
Else
If clsWindream.Create_Session = False Then
ClassLogger.Add("Could not create the login for windream!")
ClassHelper.MSGBOX_Handler("ERROR", "windream-login Error:", "Could not create the login/session")
End If
' 'Admin
' pageAdmin.Visible = True
End If
sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('RECORD_ORGANIZER') AND CLIENT_ID = {0}", CLIENT_SELECTED)

48
app/DD-Record-Organiser/ClassWindream.vb
View File

@ -2168,59 +2168,11 @@ Public Class ClassWindream
ElseIf input.ToString.EndsWith("(" & i.ToString & ")") Then
input = input.ToString.Replace("(" & i.ToString & ")", "")
End If
Next
Return input
Catch ex As Exception
ClassLogger.Add("Error in CheckIndexValue: " & ex.Message)
Return Nothing
End Try
End Function
Public Shared Function Get_File_Rights(filepath As String)
Try
If IsNothing(oSession) Then
If Init() = False Then
MsgBox("Error in Init windream - check the log for further information!", MsgBoxStyle.Exclamation)
Return Nothing
End If
End If
Dim oWMObject As WINDREAMLib.WMObject
Dim file = filepath.Substring(2)
oWMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filepath.Substring(2))
If Not IsNothing(oWMObject) Then
Dim AccessRightsObject
AccessRightsObject = oWMObject.GetWMObjectRelationByName(REL_Document_AccessRight)
Dim _msg As String
For Each aRightRelation In AccessRightsObject
dwAccessRight = aRightRelation.GetVariableValue(COL_AccessRight_AccessRight) 'COL_AccessRight_AccessRight)
Dim UserGroupRelation = aRightRelation.GetWMObjectRelationByName(REL_AccessRight_UserOrGroup)
Dim UserOrGroup = UserGroupRelation.item(0).aName
If UserOrGroup.ToString.ToLower.Contains(USER_USERNAME.ToLower) Then
If dwAccessRight And WMAccessRightRead Then
_msg = "R"
End If
If dwAccessRight And WMAccessRightWrite Then
_msg = _msg & "W"
End If
If dwAccessRight And WMAccessRightAdmin Then
_msg = _msg & "A"
End If
End If
Next
Return _msg
Else
MsgBox("Could not create a windream-object!", MsgBoxStyle.Exclamation)
Return Nothing
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Get_File_Rights: " & ex.Message)
Return Nothing
End Try
End Function
End Class

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

@ -132,7 +132,7 @@ Public Class ClassWindreamDocGrid
Public Shared Sub FillColumns(gridView As GridView,
DT_RESULT As DataTable, DT_WINDREAM_RESULTLIST As DataTable, DT_DOCRESULT_DROPDOWN_ITEMS As DataTable,
DropdownValueChangedHandler As EventHandler, DatepickerValueChangedHandler As EventHandler, TextValueChangedHandler As EventHandler, CheckValueChangedHandler As EventHandler,
SearchType As String)
SearchType As String, RECORD_ID As Integer)
' Handler speichern
_dropdownValueChangedHandler = DropdownValueChangedHandler
_datepickerValueChangedHandler = DatepickerValueChangedHandler
@ -155,8 +155,10 @@ Public Class ClassWindreamDocGrid
' Neues Dataset für Master- und Detail-Tabelle erstellen
Dim ds As New DataSet()
'"FROM TBPMO_DOC_VALUES T INNER JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND T1.LANGUAGE = '{1}' AND T.RECORD_ID = {2} ORDER BY T.DocID, T1.SEQUENCE", CURRENT_ENTITY_ID, USER_LANGUAGE, RECORD_ID)
Dim DT_DETAILS_SQL = String.Format("SELECT T.[GUID],T.[DocID],T.[CONFIG_ID],T1.HEADER_CAPTION,T.[VALUE],T1.[LANGUAGE], T1.COLUMN_VIEW,T1.EDITABLE,T1.TYPE_ID,T1.VISIBLE,T.CHANGED_WHEN,T.CHANGED_WHO " &
"FROM TBPMO_DOC_VALUES T RIGHT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND LANGUAGE = '{1}' AND T1.CONFIG_COLUMNS = 1", CURRENT_ENTITY_ID, USER_LANGUAGE)
Dim DT_DETAILS As DataTable = ClassDatabase.Return_Datatable(DT_DETAILS_SQL, True)
' Tabellen zum DataSet hinzufügen
ds.Tables.Add(DT_RESULT)
@ -299,8 +301,9 @@ Public Class ClassWindreamDocGrid
End Sub
Public Shared Sub gridView_MasterRowExpanded(sender As GridView, e As DevExpress.XtraGrid.Views.Grid.CustomMasterRowEventArgs)
Dim detailView As GridView = sender.GetDetailView(e.RowHandle, e.RelationIndex)
Dim GW As GridView = sender
Dim detailView As GridView = sender.GetDetailView(e.RowHandle, e.RelationIndex)
With detailView.Columns
'Spalten ausblenden
.Item("GUID").Visible = False
@ -329,7 +332,13 @@ Public Class ClassWindreamDocGrid
.Item("CHANGED_WHO").Caption = "changed Who"
End If
End With
If Not IsNothing(GW.GridControl.ContextMenuStrip.Name) Then
If GW.GridControl.ContextMenuStrip.Name = "cmsResultFilesBasic" Then
detailView.OptionsBehavior.Editable = False
Else
detailView.OptionsBehavior.Editable = True
End If
End If
AddHandler detailView.CustomRowCellEdit, AddressOf detailView_CustomRowCellEdit
End Sub

7
app/DD-Record-Organiser/ModuleMySettings.vb
View File

@ -1,12 +1,12 @@
Imports System.IO
Imports System.Xml
Imports DD_LIB_Standards
Module ModuleMySettings
Public PATH_FileExclusions As String = Path.Combine(Application.UserAppDataPath(), "FileExclusions.xml")
Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
Public MyConnectionString As String = ""
Public LogErrorsOnly As Boolean = True
Public Sett_TaskOverviewKeepInFront As Boolean = True
Public Sett_LoadWD_Docs As Boolean = True
@ -182,6 +182,7 @@ Module ModuleMySettings
ClassProxy.MyLinkedServer = Row.Item("Value")
Case "LogErrorsOnly"
LogErrorsOnly = CBool(Row.Item("Value"))
clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
Case "Sett_TaskOverviewKeepInFront"
Sett_TaskOverviewKeepInFront = CBool(Row.Item("Value"))
Case "Sett_LoadWD_Docs"
@ -291,7 +292,7 @@ Module ModuleMySettings
End Try
End Function
Private Function CreateConfigTable() As DataTable
Try
' Create sample Customers table, in order

14
app/DD-Record-Organiser/frmConfig_Basic.vb
View File

@ -35,7 +35,7 @@ Public Class frmConfig_Basic
ClassDatabase.Init()
Else
ClassProxy.MyPROXYConnectionString = con
clsDatabase.Init(MyConnectionString, ClassProxy.MyPROXYConnectionString)
clsDatabase.Init(MyConnectionString, True)
End If
My.Settings.Save()
@ -194,6 +194,7 @@ Public Class frmConfig_Basic
Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
LogErrorsOnly = chkLogErrorsOnly.Checked
SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly, "ConfigMain")
clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
End Sub
Private Sub chkboxQuickMenue_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxQuickMenue.CheckedChanged
Sett_ShowQuickMenue = chkboxQuickMenue.Checked
@ -447,7 +448,7 @@ Public Class frmConfig_Basic
Private Sub rbConn_Proxy_CheckedChanged(sender As Object, e As EventArgs) Handles rbConn_Proxy.CheckedChanged
If rbConn_Proxy.Checked Then
Refresh_Proxy()
Display_Proxy_String()
Me.lblLinkedServer.Visible = True
Me.txtLinkedServer.Visible = True
Else
@ -455,8 +456,8 @@ Public Class frmConfig_Basic
Me.txtLinkedServer.Visible = False
End If
End Sub
Sub Refresh_Proxy()
If clsDatabase.DB_PROXY_INITIALIZED Then
Sub Display_Proxy_String()
If clsDatabase.DB_PROXY_INITIALIZED And ClassProxy.MyPROXYConnectionString <> String.Empty Then
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = ClassProxy.MyPROXYConnectionString
@ -513,14 +514,13 @@ Public Class frmConfig_Basic
Private Sub btndeleteProxy_Click(sender As Object, e As EventArgs) Handles btndeleteProxy.Click
SaveMySettingsValue("MyProxyConnectionString", "", "ConfigMain")
ClassProxy.MyPROXYConnectionString = ""
Refresh_Proxy()
clsDatabase.DB_PROXY_INITIALIZED = False
Me.txtActualConnection.Text = ""
CONNECTION_CHANGED = True
End Sub
Private Sub txtLinkedServer_Leave(sender As Object, e As EventArgs) Handles txtLinkedServer.Leave
SaveMySettingsValue("MyLinkedServer", txtLinkedServer.Text, "ConfigMain")
ClassProxy.MyLinkedServer = txtLinkedServer.Text
End Sub
End Class

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

@ -24,9 +24,9 @@ Partial Class frmConstructor_Main
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()
Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode5 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode6 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl()
Me.TreeViewMain = New System.Windows.Forms.TreeView()
@ -141,8 +141,8 @@ Partial Class frmConstructor_Main
Me.tsbtnStartFulltext = New System.Windows.Forms.ToolStripButton()
Me.TabFollowUp = New DevExpress.XtraTab.XtraTabPage()
Me.ListViewFollowUps = New System.Windows.Forms.ListView()
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader)
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader)
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.grpbxFU_Profile = New System.Windows.Forms.GroupBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.btnRemoveUser_FollowUp = New System.Windows.Forms.Button()
@ -224,60 +224,60 @@ Partial Class frmConstructor_Main
Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
Me.ToolTipController = New DevExpress.Utils.ToolTipController(Me.components)
Me.TBPMO_RECORD_VARIANTTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter()
CType(Me.SplitContainerMain,System.ComponentModel.ISupportInitialize).BeginInit
Me.SplitContainerMain.SuspendLayout
CType(Me.SplitContainerTop,System.ComponentModel.ISupportInitialize).BeginInit
Me.SplitContainerTop.SuspendLayout
Me.cmsTreeView.SuspendLayout
CType(Me.GridControlMain,System.ComponentModel.ISupportInitialize).BeginInit
Me.ContextMenuGrid.SuspendLayout
CType(Me.grvwGrid,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.grvwCarousel,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.grvwTiles,System.ComponentModel.ISupportInitialize).BeginInit
Me.ToolStripRecords.SuspendLayout
CType(Me.TCDetails,System.ComponentModel.ISupportInitialize).BeginInit
Me.TCDetails.SuspendLayout
Me.TabDetails.SuspendLayout
CType(Me.SplitContainerDetails,System.ComponentModel.ISupportInitialize).BeginInit
Me.SplitContainerDetails.SuspendLayout
Me.statStripDoc.SuspendLayout
Me.ToolStripEdit.SuspendLayout
Me.TabPos.SuspendLayout
Me.Panel1.SuspendLayout
CType(Me.GridControlPos,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.grvwGridPos,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.BindingNavigatorPOS,System.ComponentModel.ISupportInitialize).BeginInit
Me.BindingNavigatorPOS.SuspendLayout
Me.TabWindream.SuspendLayout
CType(Me.GridControlDocSearch,System.ComponentModel.ISupportInitialize).BeginInit
Me.cmsResultFilesBasic.SuspendLayout
CType(Me.GridViewDoc_Search,System.ComponentModel.ISupportInitialize).BeginInit
Me.ToolStripDokumente.SuspendLayout
Me.TabFollowUp.SuspendLayout
Me.grpbxFU_Profile.SuspendLayout
Me.GroupBox4.SuspendLayout
Me.TabPageVariant.SuspendLayout
CType(Me.GridControl1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.TBPMO_RECORD_VARIANTBindingSource,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.DD_DMSDataSet,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.GridViewVariants,System.ComponentModel.ISupportInitialize).BeginInit
Me.tsVariants.SuspendLayout
CType(Me.SplitContainerFORM,System.ComponentModel.ISupportInitialize).BeginInit
Me.SplitContainerFORM.SuspendLayout
Me.ContextMenuStripResultFiles.SuspendLayout
Me.StatusStrip_Main.SuspendLayout
CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.ImageCollection1,System.ComponentModel.ISupportInitialize).BeginInit
Me.cmsrpContainer.SuspendLayout
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerMain.SuspendLayout()
CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerTop.SuspendLayout()
Me.cmsTreeView.SuspendLayout()
CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuGrid.SuspendLayout()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripRecords.SuspendLayout()
CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TCDetails.SuspendLayout()
Me.TabDetails.SuspendLayout()
CType(Me.SplitContainerDetails, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerDetails.SuspendLayout()
Me.statStripDoc.SuspendLayout()
Me.ToolStripEdit.SuspendLayout()
Me.TabPos.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.GridControlPos, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGridPos, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BindingNavigatorPOS, System.ComponentModel.ISupportInitialize).BeginInit()
Me.BindingNavigatorPOS.SuspendLayout()
Me.TabWindream.SuspendLayout()
CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cmsResultFilesBasic.SuspendLayout()
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripDokumente.SuspendLayout()
Me.TabFollowUp.SuspendLayout()
Me.grpbxFU_Profile.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.TabPageVariant.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPMO_RECORD_VARIANTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewVariants, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tsVariants.SuspendLayout()
CType(Me.SplitContainerFORM, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerFORM.SuspendLayout()
Me.ContextMenuStripResultFiles.SuspendLayout()
Me.StatusStrip_Main.SuspendLayout()
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cmsrpContainer.SuspendLayout()
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SplitContainerMain
'
Me.SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1
resources.ApplyResources(Me.SplitContainerMain, "SplitContainerMain")
Me.SplitContainerMain.Horizontal = false
Me.SplitContainerMain.Horizontal = False
Me.SplitContainerMain.Name = "SplitContainerMain"
Me.SplitContainerMain.Panel1.Controls.Add(Me.SplitContainerTop)
resources.ApplyResources(Me.SplitContainerMain.Panel1, "SplitContainerMain.Panel1")
@ -299,14 +299,14 @@ Partial Class frmConstructor_Main
'
'TreeViewMain
'
Me.TreeViewMain.AllowDrop = true
Me.TreeViewMain.AllowDrop = True
Me.TreeViewMain.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.TreeViewMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TreeViewMain.ContextMenuStrip = Me.cmsTreeView
resources.ApplyResources(Me.TreeViewMain, "TreeViewMain")
Me.TreeViewMain.FullRowSelect = true
Me.TreeViewMain.FullRowSelect = True
Me.TreeViewMain.Name = "TreeViewMain"
Me.TreeViewMain.ShowLines = false
Me.TreeViewMain.ShowLines = False
'
'cmsTreeView
'
@ -412,15 +412,15 @@ Partial Class frmConstructor_Main
'
'GridControlMain
'
Me.GridControlMain.AllowDrop = true
Me.GridControlMain.AllowDrop = True
Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid
resources.ApplyResources(Me.GridControlMain, "GridControlMain")
GridLevelNode1.LevelTemplate = Me.grvwGrid
GridLevelNode1.RelationName = "Level1"
GridLevelNode2.LevelTemplate = Me.grvwCarousel
GridLevelNode2.RelationName = "Level2"
GridLevelNode3.RelationName = "Level3"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2, GridLevelNode3})
GridLevelNode4.LevelTemplate = Me.grvwGrid
GridLevelNode4.RelationName = "Level1"
GridLevelNode5.LevelTemplate = Me.grvwCarousel
GridLevelNode5.RelationName = "Level2"
GridLevelNode6.RelationName = "Level3"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4, GridLevelNode5, GridLevelNode6})
Me.GridControlMain.MainView = Me.grvwTiles
Me.GridControlMain.Name = "GridControlMain"
Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid, Me.grvwCarousel, Me.grvwTiles})
@ -531,25 +531,25 @@ Partial Class frmConstructor_Main
'
'grvwGrid
'
Me.grvwGrid.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.EvenRow.BackColor"),System.Drawing.Color)
Me.grvwGrid.Appearance.EvenRow.Options.UseBackColor = true
Me.grvwGrid.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.grvwGrid.Appearance.EvenRow.Options.UseBackColor = True
Me.grvwGrid.GridControl = Me.GridControlMain
resources.ApplyResources(Me.grvwGrid, "grvwGrid")
Me.grvwGrid.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
Me.grvwGrid.Name = "grvwGrid"
Me.grvwGrid.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsBehavior.Editable = false
Me.grvwGrid.OptionsBehavior.ReadOnly = true
Me.grvwGrid.OptionsBehavior.Editable = False
Me.grvwGrid.OptionsBehavior.ReadOnly = True
Me.grvwGrid.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = false
Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = false
Me.grvwGrid.OptionsSelection.EnableAppearanceHideSelection = false
Me.grvwGrid.OptionsSelection.MultiSelect = true
Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = False
Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = False
Me.grvwGrid.OptionsSelection.EnableAppearanceHideSelection = False
Me.grvwGrid.OptionsSelection.MultiSelect = True
Me.grvwGrid.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.grvwGrid.OptionsView.ColumnAutoWidth = false
Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = true
Me.grvwGrid.OptionsView.ShowAutoFilterRow = true
Me.grvwGrid.OptionsView.ColumnAutoWidth = False
Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = True
Me.grvwGrid.OptionsView.ShowAutoFilterRow = True
Me.grvwGrid.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True]
Me.grvwGrid.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
'
@ -562,11 +562,11 @@ Partial Class frmConstructor_Main
'grvwTiles
'
Me.grvwTiles.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.HotFlat
Me.grvwTiles.FocusBorderColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(128,Byte),Integer), CType(CType(255,Byte),Integer))
Me.grvwTiles.FocusBorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer))
Me.grvwTiles.GridControl = Me.GridControlMain
Me.grvwTiles.Name = "grvwTiles"
Me.grvwTiles.OptionsBehavior.ReadOnly = true
Me.grvwTiles.OptionsFind.AlwaysVisible = true
Me.grvwTiles.OptionsBehavior.ReadOnly = True
Me.grvwTiles.OptionsFind.AlwaysVisible = True
Me.grvwTiles.OptionsTiles.HorizontalContentAlignment = DevExpress.Utils.HorzAlignment.Near
Me.grvwTiles.OptionsTiles.ItemSize = New System.Drawing.Size(240, 116)
Me.grvwTiles.OptionsTiles.RowCount = 2
@ -657,13 +657,13 @@ Partial Class frmConstructor_Main
'
'TCDetails
'
Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.BackColor"),System.Drawing.Color)
Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor2 = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.BackColor2"),System.Drawing.Color)
Me.TCDetails.AppearancePage.HeaderHotTracked.Font = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.Font"),System.Drawing.Font)
Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseBackColor = true
Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseFont = true
Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.BackColor"), System.Drawing.Color)
Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor2 = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.BackColor2"), System.Drawing.Color)
Me.TCDetails.AppearancePage.HeaderHotTracked.Font = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.Font"), System.Drawing.Font)
Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseBackColor = True
Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseFont = True
resources.ApplyResources(Me.TCDetails, "TCDetails")
Me.TCDetails.LookAndFeel.UseDefaultLookAndFeel = false
Me.TCDetails.LookAndFeel.UseDefaultLookAndFeel = False
Me.TCDetails.Name = "TCDetails"
Me.TCDetails.SelectedTabPage = Me.TabDetails
Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabPos, Me.TabWindream, Me.TabFollowUp, Me.TabPageVariant})
@ -677,10 +677,10 @@ Partial Class frmConstructor_Main
'
'SplitContainerDetails
'
Me.SplitContainerDetails.Appearance.BackColor = CType(resources.GetObject("SplitContainerDetails.Appearance.BackColor"),System.Drawing.Color)
Me.SplitContainerDetails.Appearance.BorderColor = CType(resources.GetObject("SplitContainerDetails.Appearance.BorderColor"),System.Drawing.Color)
Me.SplitContainerDetails.Appearance.Options.UseBackColor = true
Me.SplitContainerDetails.Appearance.Options.UseBorderColor = true
Me.SplitContainerDetails.Appearance.BackColor = CType(resources.GetObject("SplitContainerDetails.Appearance.BackColor"), System.Drawing.Color)
Me.SplitContainerDetails.Appearance.BorderColor = CType(resources.GetObject("SplitContainerDetails.Appearance.BorderColor"), System.Drawing.Color)
Me.SplitContainerDetails.Appearance.Options.UseBackColor = True
Me.SplitContainerDetails.Appearance.Options.UseBorderColor = True
Me.SplitContainerDetails.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.HotFlat
Me.SplitContainerDetails.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainerDetails.ContextMenuStrip = Me.cmsTreeView
@ -696,7 +696,7 @@ Partial Class frmConstructor_Main
'
'pnlDetails
'
Me.pnlDetails.AllowDrop = true
Me.pnlDetails.AllowDrop = True
resources.ApplyResources(Me.pnlDetails, "pnlDetails")
Me.pnlDetails.Name = "pnlDetails"
'
@ -713,9 +713,9 @@ Partial Class frmConstructor_Main
'
'tslblDocIDTab1
'
Me.tslblDocIDTab1.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom),System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tslblDocIDTab1.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tslblDocIDTab1.Name = "tslblDocIDTab1"
resources.ApplyResources(Me.tslblDocIDTab1, "tslblDocIDTab1")
'
@ -805,9 +805,9 @@ Partial Class frmConstructor_Main
'
Me.TabPos.Controls.Add(Me.Panel1)
Me.TabPos.Controls.Add(Me.BindingNavigatorPOS)
Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"),System.Drawing.Image)
Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"), System.Drawing.Image)
Me.TabPos.Name = "TabPos"
Me.TabPos.PageVisible = false
Me.TabPos.PageVisible = False
resources.ApplyResources(Me.TabPos, "TabPos")
'
'Panel1
@ -825,12 +825,12 @@ Partial Class frmConstructor_Main
'
'grvwGridPos
'
Me.grvwGridPos.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGridPos.Appearance.EvenRow.BackColor"),System.Drawing.Color)
Me.grvwGridPos.Appearance.EvenRow.Options.UseBackColor = true
Me.grvwGridPos.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGridPos.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.grvwGridPos.Appearance.EvenRow.Options.UseBackColor = True
Me.grvwGridPos.GridControl = Me.GridControlPos
Me.grvwGridPos.Name = "grvwGridPos"
Me.grvwGridPos.OptionsView.EnableAppearanceEvenRow = true
Me.grvwGridPos.OptionsView.ShowAutoFilterRow = true
Me.grvwGridPos.OptionsView.EnableAppearanceEvenRow = True
Me.grvwGridPos.OptionsView.ShowAutoFilterRow = True
'
'BindingNavigatorPOS
'
@ -918,7 +918,7 @@ Partial Class frmConstructor_Main
'
'TabWindream
'
Me.TabWindream.AllowDrop = true
Me.TabWindream.AllowDrop = True
Me.TabWindream.Controls.Add(Me.GridControlDocSearch)
Me.TabWindream.Controls.Add(Me.ToolStripDokumente)
Me.TabWindream.Name = "TabWindream"
@ -926,7 +926,7 @@ Partial Class frmConstructor_Main
'
'GridControlDocSearch
'
Me.GridControlDocSearch.AllowDrop = true
Me.GridControlDocSearch.AllowDrop = True
Me.GridControlDocSearch.ContextMenuStrip = Me.cmsResultFilesBasic
resources.ApplyResources(Me.GridControlDocSearch, "GridControlDocSearch")
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
@ -951,29 +951,29 @@ Partial Class frmConstructor_Main
'
'GridViewDoc_Search
'
Me.GridViewDoc_Search.Appearance.OddRow.BackColor = CType(resources.GetObject("GridViewDoc_Search.Appearance.OddRow.BackColor"),System.Drawing.Color)
Me.GridViewDoc_Search.Appearance.OddRow.BackColor2 = CType(resources.GetObject("GridViewDoc_Search.Appearance.OddRow.BackColor2"),System.Drawing.Color)
Me.GridViewDoc_Search.Appearance.OddRow.Options.UseBackColor = true
Me.GridViewDoc_Search.Appearance.OddRow.BackColor = CType(resources.GetObject("GridViewDoc_Search.Appearance.OddRow.BackColor"), System.Drawing.Color)
Me.GridViewDoc_Search.Appearance.OddRow.BackColor2 = CType(resources.GetObject("GridViewDoc_Search.Appearance.OddRow.BackColor2"), System.Drawing.Color)
Me.GridViewDoc_Search.Appearance.OddRow.Options.UseBackColor = True
Me.GridViewDoc_Search.DetailVerticalIndent = 10
Me.GridViewDoc_Search.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFullFocus
Me.GridViewDoc_Search.GridControl = Me.GridControlDocSearch
Me.GridViewDoc_Search.LevelIndent = 10
Me.GridViewDoc_Search.Name = "GridViewDoc_Search"
Me.GridViewDoc_Search.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDoc_Search.OptionsDetail.ShowDetailTabs = false
Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceFocusedCell = false
Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceFocusedRow = false
Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceHideSelection = false
Me.GridViewDoc_Search.OptionsSelection.MultiSelect = true
Me.GridViewDoc_Search.OptionsDetail.ShowDetailTabs = False
Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceFocusedRow = False
Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDoc_Search.OptionsSelection.MultiSelect = True
Me.GridViewDoc_Search.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDoc_Search.OptionsView.ColumnAutoWidth = false
Me.GridViewDoc_Search.OptionsView.EnableAppearanceOddRow = true
Me.GridViewDoc_Search.OptionsView.ShowAutoFilterRow = true
Me.GridViewDoc_Search.OptionsView.ColumnAutoWidth = False
Me.GridViewDoc_Search.OptionsView.EnableAppearanceOddRow = True
Me.GridViewDoc_Search.OptionsView.ShowAutoFilterRow = True
Me.GridViewDoc_Search.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True]
'
'ToolStripDokumente
'
Me.ToolStripDokumente.AllowDrop = true
Me.ToolStripDokumente.AllowDrop = True
resources.ApplyResources(Me.ToolStripDokumente, "ToolStripDokumente")
Me.ToolStripDokumente.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripSeparator17, Me.ToolStripSeparator3, Me.tsbtnDoc_Refresh, Me.ToolStripSeparator18, Me.tsbtnStartFulltext})
Me.ToolStripDokumente.Name = "ToolStripDokumente"
@ -1022,10 +1022,10 @@ Partial Class frmConstructor_Main
'
resources.ApplyResources(Me.ListViewFollowUps, "ListViewFollowUps")
Me.ListViewFollowUps.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
Me.ListViewFollowUps.FullRowSelect = true
Me.ListViewFollowUps.HideSelection = false
Me.ListViewFollowUps.FullRowSelect = True
Me.ListViewFollowUps.HideSelection = False
Me.ListViewFollowUps.Name = "ListViewFollowUps"
Me.ListViewFollowUps.UseCompatibleStateImageBehavior = false
Me.ListViewFollowUps.UseCompatibleStateImageBehavior = False
Me.ListViewFollowUps.View = System.Windows.Forms.View.Details
'
'ColumnHeader1
@ -1045,7 +1045,7 @@ Partial Class frmConstructor_Main
Me.grpbxFU_Profile.Controls.Add(Me.dtpFollowUp)
Me.grpbxFU_Profile.Controls.Add(Me.lblWiedervorlage_Control)
Me.grpbxFU_Profile.Name = "grpbxFU_Profile"
Me.grpbxFU_Profile.TabStop = false
Me.grpbxFU_Profile.TabStop = False
'
'GroupBox4
'
@ -1057,24 +1057,24 @@ Partial Class frmConstructor_Main
Me.GroupBox4.Controls.Add(Me.ListBoxUser2Profile)
Me.GroupBox4.Controls.Add(Me.Label7)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.TabStop = false
Me.GroupBox4.TabStop = False
'
'btnRemoveUser_FollowUp
'
resources.ApplyResources(Me.btnRemoveUser_FollowUp, "btnRemoveUser_FollowUp")
Me.btnRemoveUser_FollowUp.Name = "btnRemoveUser_FollowUp"
Me.btnRemoveUser_FollowUp.UseVisualStyleBackColor = true
Me.btnRemoveUser_FollowUp.UseVisualStyleBackColor = True
'
'btnAddUser_FollowUp
'
resources.ApplyResources(Me.btnAddUser_FollowUp, "btnAddUser_FollowUp")
Me.btnAddUser_FollowUp.Name = "btnAddUser_FollowUp"
Me.btnAddUser_FollowUp.UseVisualStyleBackColor = true
Me.btnAddUser_FollowUp.UseVisualStyleBackColor = True
'
'cmbFollowUpUser
'
resources.ApplyResources(Me.cmbFollowUpUser, "cmbFollowUpUser")
Me.cmbFollowUpUser.FormattingEnabled = true
Me.cmbFollowUpUser.FormattingEnabled = True
Me.cmbFollowUpUser.Name = "cmbFollowUpUser"
'
'Label6
@ -1085,7 +1085,7 @@ Partial Class frmConstructor_Main
'ListBoxUser2Profile
'
resources.ApplyResources(Me.ListBoxUser2Profile, "ListBoxUser2Profile")
Me.ListBoxUser2Profile.FormattingEnabled = true
Me.ListBoxUser2Profile.FormattingEnabled = True
Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile"
'
'Label7
@ -1103,7 +1103,7 @@ Partial Class frmConstructor_Main
'
resources.ApplyResources(Me.chkFollowUp, "chkFollowUp")
Me.chkFollowUp.Name = "chkFollowUp"
Me.chkFollowUp.UseVisualStyleBackColor = true
Me.chkFollowUp.UseVisualStyleBackColor = True
'
'dtpFollowUp
'
@ -1123,16 +1123,16 @@ Partial Class frmConstructor_Main
'
'TabPageVariant
'
Me.TabPageVariant.Appearance.Header.BackColor = CType(resources.GetObject("TabPageVariant.Appearance.Header.BackColor"),System.Drawing.Color)
Me.TabPageVariant.Appearance.Header.Font = CType(resources.GetObject("TabPageVariant.Appearance.Header.Font"),System.Drawing.Font)
Me.TabPageVariant.Appearance.Header.ForeColor = CType(resources.GetObject("TabPageVariant.Appearance.Header.ForeColor"),System.Drawing.Color)
Me.TabPageVariant.Appearance.Header.Options.UseBackColor = true
Me.TabPageVariant.Appearance.Header.Options.UseFont = true
Me.TabPageVariant.Appearance.Header.Options.UseForeColor = true
Me.TabPageVariant.Appearance.Header.BackColor = CType(resources.GetObject("TabPageVariant.Appearance.Header.BackColor"), System.Drawing.Color)
Me.TabPageVariant.Appearance.Header.Font = CType(resources.GetObject("TabPageVariant.Appearance.Header.Font"), System.Drawing.Font)
Me.TabPageVariant.Appearance.Header.ForeColor = CType(resources.GetObject("TabPageVariant.Appearance.Header.ForeColor"), System.Drawing.Color)
Me.TabPageVariant.Appearance.Header.Options.UseBackColor = True
Me.TabPageVariant.Appearance.Header.Options.UseFont = True
Me.TabPageVariant.Appearance.Header.Options.UseForeColor = True
Me.TabPageVariant.Controls.Add(Me.GridControl1)
Me.TabPageVariant.Controls.Add(Me.tsVariants)
Me.TabPageVariant.Name = "TabPageVariant"
Me.TabPageVariant.PageVisible = false
Me.TabPageVariant.PageVisible = False
resources.ApplyResources(Me.TabPageVariant, "TabPageVariant")
'
'GridControl1
@ -1141,7 +1141,7 @@ Partial Class frmConstructor_Main
resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.MainView = Me.GridViewVariants
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.ShowOnlyPredefinedDetails = true
Me.GridControl1.ShowOnlyPredefinedDetails = True
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewVariants})
'
'TBPMO_RECORD_VARIANTBindingSource
@ -1156,20 +1156,20 @@ Partial Class frmConstructor_Main
'
'GridViewVariants
'
Me.GridViewVariants.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewVariants.Appearance.EvenRow.BackColor"),System.Drawing.Color)
Me.GridViewVariants.Appearance.EvenRow.Options.UseBackColor = true
Me.GridViewVariants.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewVariants.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewVariants.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewVariants.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.colREASON_CODE, Me.colCOMMENT, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colRECORD_ID})
Me.GridViewVariants.GridControl = Me.GridControl1
Me.GridViewVariants.Name = "GridViewVariants"
Me.GridViewVariants.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewVariants.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewVariants.OptionsBehavior.Editable = false
Me.GridViewVariants.OptionsBehavior.Editable = False
Me.GridViewVariants.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewVariants.OptionsSelection.EnableAppearanceFocusedCell = false
Me.GridViewVariants.OptionsView.ColumnAutoWidth = false
Me.GridViewVariants.OptionsView.EnableAppearanceEvenRow = true
Me.GridViewVariants.OptionsView.ShowAutoFilterRow = true
Me.GridViewVariants.OptionsView.ShowGroupPanel = false
Me.GridViewVariants.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewVariants.OptionsView.ColumnAutoWidth = False
Me.GridViewVariants.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewVariants.OptionsView.ShowAutoFilterRow = True
Me.GridViewVariants.OptionsView.ShowGroupPanel = False
'
'GridColumn1
'
@ -1237,7 +1237,7 @@ Partial Class frmConstructor_Main
'
'SplitContainerFORM
'
Me.SplitContainerFORM.Collapsed = true
Me.SplitContainerFORM.Collapsed = True
Me.SplitContainerFORM.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
resources.ApplyResources(Me.SplitContainerFORM, "SplitContainerFORM")
Me.SplitContainerFORM.Name = "SplitContainerFORM"
@ -1249,7 +1249,7 @@ Partial Class frmConstructor_Main
'
'ContextMenuStripResultFiles
'
Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.docCM_Open, Me.OrdnerÖffnenToolStripMenuItem, Me.docCM_Copy, Me.ToolStripSeparator10, Me.docCMEntityWideSearch, Me.ToolStripSeparator20, Me.docCM_RenameMain, Me.docCM_InWork, Me.docCM_linkRecord, Me.WindreamToolStripMenuItem, Me.ToolStripSeparator7, Me.docCM_CheckRights, Me.docCM_GetRights, Me.ToolStripSeparator8, Me.docCM_DeleteFile, Me.docCM_RemoveLink, Me.ToolStripSeparator9, Me.docCM_ResetView, Me.docCM_showGridSearch, Me.ToolStripSeparator16, Me.docCM_PropertiesFile})
Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.docCM_Open, Me.OrdnerÖffnenToolStripMenuItem, Me.docCM_Copy, Me.ToolStripSeparator10, Me.docCMEntityWideSearch, Me.ToolStripSeparator20, Me.docCM_RenameMain, Me.docCM_InWork, Me.docCM_linkRecord, Me.WindreamToolStripMenuItem, Me.ToolStripSeparator7, Me.docCM_CheckRights, Me.docCM_GetRights, Me.ToolStripSeparator8, Me.docCM_DeleteFile, Me.docCM_RemoveLink, Me.ToolStripSeparator9, Me.docCM_showGridSearch, Me.ToolStripSeparator16, Me.docCM_PropertiesFile, Me.docCM_ResetView})
Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles")
'
@ -1355,8 +1355,8 @@ Partial Class frmConstructor_Main
'
'docCM_GetRights
'
Me.docCM_GetRights.Name = "docCM_GetRights"
resources.ApplyResources(Me.docCM_GetRights, "docCM_GetRights")
Me.docCM_GetRights.Name = "docCM_GetRights"
'
'ToolStripSeparator8
'
@ -1387,8 +1387,8 @@ Partial Class frmConstructor_Main
'
'docCM_showGridSearch
'
Me.docCM_showGridSearch.Name = "docCM_showGridSearch"
resources.ApplyResources(Me.docCM_showGridSearch, "docCM_showGridSearch")
Me.docCM_showGridSearch.Name = "docCM_showGridSearch"
'
'ToolStripSeparator16
'
@ -1426,8 +1426,8 @@ Partial Class frmConstructor_Main
'
Me.NavButtonHome.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
Me.NavButtonHome.Caption = ""
Me.NavButtonHome.Glyph = CType(resources.GetObject("NavButtonHome.Glyph"),System.Drawing.Image)
Me.NavButtonHome.IsMain = true
Me.NavButtonHome.Glyph = CType(resources.GetObject("NavButtonHome.Glyph"), System.Drawing.Image)
Me.NavButtonHome.IsMain = True
Me.NavButtonHome.Name = "NavButtonHome"
'
'NavButtonRefresh
@ -1435,7 +1435,7 @@ Partial Class frmConstructor_Main
Me.NavButtonRefresh.Alignment = DevExpress.XtraBars.Navigation.NavButtonAlignment.Right
Me.NavButtonRefresh.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
Me.NavButtonRefresh.Caption = ""
Me.NavButtonRefresh.Glyph = CType(resources.GetObject("NavButtonRefresh.Glyph"),System.Drawing.Image)
Me.NavButtonRefresh.Glyph = CType(resources.GetObject("NavButtonRefresh.Glyph"), System.Drawing.Image)
Me.NavButtonRefresh.Name = "NavButtonRefresh"
'
'StatusStrip_Main
@ -1446,9 +1446,9 @@ Partial Class frmConstructor_Main
'
'tsslblStatus
'
Me.tsslblStatus.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom),System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tsslblStatus.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tsslblStatus.BorderStyle = System.Windows.Forms.Border3DStyle.Etched
Me.tsslblStatus.Name = "tsslblStatus"
resources.ApplyResources(Me.tsslblStatus, "tsslblStatus")
@ -1456,17 +1456,17 @@ Partial Class frmConstructor_Main
'tsslblRecord
'
Me.tsslblRecord.BackColor = System.Drawing.SystemColors.ControlLight
Me.tsslblRecord.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom),System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tsslblRecord.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tsslblRecord.Name = "tsslblRecord"
resources.ApplyResources(Me.tsslblRecord, "tsslblRecord")
'
'tslblDocIDMain
'
Me.tslblDocIDMain.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom),System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tslblDocIDMain.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tslblDocIDMain.Name = "tslblDocIDMain"
resources.ApplyResources(Me.tslblDocIDMain, "tslblDocIDMain")
'
@ -1493,7 +1493,7 @@ Partial Class frmConstructor_Main
'
'ImageCollection1
'
Me.ImageCollection1.ImageStream = CType(resources.GetObject("ImageCollection1.ImageStream"),DevExpress.Utils.ImageCollectionStreamer)
Me.ImageCollection1.ImageStream = CType(resources.GetObject("ImageCollection1.ImageStream"), DevExpress.Utils.ImageCollectionStreamer)
'
'ContextMenuDetails
'
@ -1513,11 +1513,11 @@ Partial Class frmConstructor_Main
'
'VWPMO_WF_USER_ACTIVETableAdapter
'
Me.VWPMO_WF_USER_ACTIVETableAdapter.ClearBeforeFill = true
Me.VWPMO_WF_USER_ACTIVETableAdapter.ClearBeforeFill = True
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = false
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.Connection = Nothing
Me.TableAdapterManager.TBDD_CLIENTTableAdapter = Nothing
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
@ -1564,11 +1564,11 @@ Partial Class frmConstructor_Main
'
'VWPMO_WF_ACTIVETableAdapter
'
Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = true
Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True
'
'TBPMO_RECORD_VARIANTTableAdapter
'
Me.TBPMO_RECORD_VARIANTTableAdapter.ClearBeforeFill = true
Me.TBPMO_RECORD_VARIANTTableAdapter.ClearBeforeFill = True
'
'frmConstructor_Main
'
@ -1578,7 +1578,7 @@ Partial Class frmConstructor_Main
Me.Controls.Add(Me.StatusStrip_Main)
Me.Controls.Add(Me.NavPane)
Me.Name = "frmConstructor_Main"
CType(Me.SplitContainerMain,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerMain.ResumeLayout(false)
CType(Me.SplitContainerTop,System.ComponentModel.ISupportInitialize).EndInit
Me.SplitContainerTop.ResumeLayout(false)

112
app/DD-Record-Organiser/frmConstructor_Main.en-US.resx
View File

@ -125,22 +125,22 @@
<value>227, 270</value>
</data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1084, 212</value>
<value>1091, 212</value>
</data>
<data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>1084, 25</value>
<value>1091, 25</value>
</data>
<data name="SplitContainerTop.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 237</value>
</data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 365</value>
<value>1373, 372</value>
</data>
<data name="TabDetails.Text" xml:space="preserve">
<value>Details</value>
</data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 396</value>
<value>1379, 403</value>
</data>
<data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -151,25 +151,25 @@
</value>
</data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 365</value>
<value>1373, 372</value>
</data>
<data name="TabPos.Text" xml:space="preserve">
<value>positions</value>
</data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 365</value>
<value>1373, 372</value>
</data>
<data name="TabWindream.Text" xml:space="preserve">
<value>windream-files</value>
</data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 365</value>
<value>1373, 372</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Follow Up</value>
</data>
<data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 365</value>
<value>1373, 372</value>
</data>
<data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 645</value>
@ -478,12 +478,6 @@
<data name="NewVarianttsmi.Text" xml:space="preserve">
<value>New variant</value>
</data>
<data name="RecordDeleteToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>226, 22</value>
</data>
<data name="RecordDeleteToolStripMenuItem.Text" xml:space="preserve">
<value>delete Record</value>
</data>
<data name="ToolStripSeparator5.Size" type="System.Drawing.Size, System.Drawing">
<value>223, 6</value>
</data>
@ -533,16 +527,16 @@
<value>geodata navigation</value>
</data>
<data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
<value>571, 286</value>
<value>578, 293</value>
</data>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>571, 24</value>
<value>578, 24</value>
</data>
<data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
<value>571, 26</value>
<value>578, 26</value>
</data>
<data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 340</value>
<value>1373, 347</value>
</data>
<data name="tslblDocViewLocked.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -636,10 +630,10 @@
<value>No file-access</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 340</value>
<value>1373, 347</value>
</data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 340</value>
<value>1373, 347</value>
</data>
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -751,7 +745,7 @@
<value>128, 48</value>
</data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 340</value>
<value>1373, 347</value>
</data>
<data name="cmDoc1FileOpen.Size" type="System.Drawing.Size, System.Drawing">
<value>127, 22</value>
@ -800,6 +794,12 @@
AABJRU5ErkJggg==
</value>
</data>
<data name="tsbtnStartFulltext.Size" type="System.Drawing.Size, System.Drawing">
<value>102, 22</value>
</data>
<data name="tsbtnStartFulltext.Text" xml:space="preserve">
<value>Fulltextsearch</value>
</data>
<data name="GroupBox4.Text" xml:space="preserve">
<value>Special recipient for record:</value>
</data>
@ -845,7 +845,7 @@
<value>Saved Follow Ups</value>
</data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 340</value>
<value>1373, 347</value>
</data>
<data name="tsVariants.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value>
@ -859,6 +859,9 @@
<data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 645</value>
</data>
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>210, 370</value>
</data>
<data name="docCM_Open.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
</data>
@ -910,6 +913,18 @@
<data name="docCM_RenameMain.Text" xml:space="preserve">
<value>Rename</value>
</data>
<data name="NeuToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>187, 22</value>
</data>
<data name="NeuToolStripMenuItem.Text" xml:space="preserve">
<value>Rename filepath</value>
</data>
<data name="DisplaynameUmbenennenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>187, 22</value>
</data>
<data name="DisplaynameUmbenennenToolStripMenuItem.Text" xml:space="preserve">
<value>Rename displayname</value>
</data>
<data name="docCM_InWork.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
</data>
@ -925,6 +940,25 @@
<data name="WindreamToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
</data>
<data name="DateiVersionierenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAwAAAAMCAYAAABWdVznAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAFFJREFUKFOdj0EKACAIBH2b/3+P16JwRTQzWphD0dhKIjI81GU9YuZNlE/YD17A
gEgp3EiCNq0DAeh1nS/BL9VxXBoDIibg8EKqpE3reLsXiCYgi0Ps3hQ2TwAAAABJRU5ErkJggg==
</value>
</data>
<data name="DateiVersionierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>175, 22</value>
</data>
<data name="DateiVersionierenToolStripMenuItem.Text" xml:space="preserve">
<value>Create new version</value>
</data>
<data name="DokumentartÄndernToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>175, 22</value>
</data>
<data name="DokumentartÄndernToolStripMenuItem.Text" xml:space="preserve">
<value>Change the doctpe</value>
</data>
<data name="ToolStripSeparator7.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value>
</data>
@ -979,40 +1013,6 @@
<data name="docCM_PropertiesFile.Text" xml:space="preserve">
<value>Properties</value>
</data>
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>210, 370</value>
</data>
<data name="NeuToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>187, 22</value>
</data>
<data name="NeuToolStripMenuItem.Text" xml:space="preserve">
<value>Rename filepath</value>
</data>
<data name="DisplaynameUmbenennenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>187, 22</value>
</data>
<data name="DisplaynameUmbenennenToolStripMenuItem.Text" xml:space="preserve">
<value>Rename displayname</value>
</data>
<data name="DateiVersionierenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAwAAAAMCAYAAABWdVznAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAFFJREFUKFOdj0EKACAIBH2b/3+P16JwRTQzWphD0dhKIjI81GU9YuZNlE/YD17A
gEgp3EiCNq0DAeh1nS/BL9VxXBoDIibg8EKqpE3reLsXiCYgi0Ps3hQ2TwAAAABJRU5ErkJggg==
</value>
</data>
<data name="DateiVersionierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>175, 22</value>
</data>
<data name="DateiVersionierenToolStripMenuItem.Text" xml:space="preserve">
<value>Create new version</value>
</data>
<data name="DokumentartÄndernToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>175, 22</value>
</data>
<data name="DokumentartÄndernToolStripMenuItem.Text" xml:space="preserve">
<value>Change the doctpe</value>
</data>
<data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m

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

File diff suppressed because it is too large Load Diff

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

@ -3548,7 +3548,7 @@ Public Class frmConstructor_Main
AddressOf OnDateSelectedValueChanged,
AddressOf OnTextSelectedValueChanged,
AddressOf OnCheckboxValueChanged,
CURRENT_SEARCH_TYPE)
CURRENT_SEARCH_TYPE, RECORD_ID)
End If
Else
Dim selnode As TreeNode = TreeViewMain.SelectedNode
@ -3641,23 +3641,26 @@ Public Class frmConstructor_Main
If oldValue = DatePicker.EditValue Then
Exit Sub
End If
End If
'Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName
'Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
' Config id über mainView -> detailView herausfinden
Dim mainView As GridView = GridControlDocSearch.MainView
Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails"))
Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
Dim configid = detailRow.Item("CONFIG_ID")
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim user As String = USER_USERNAME
'Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName
'Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
' Config id über mainView -> detailView herausfinden
Dim mainView As GridView = GridControlDocSearch.MainView
Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails"))
Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
Dim configid = detailRow.Item("CONFIG_ID")
Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configid, dateString, user)
ClassDatabase.Execute_non_Query(Sql)
Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configid, dateString, user)
If ClassDatabase.Execute_non_Query(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (date): " & vbNewLine & "Check the log for further information!")
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnDateSelectedValueChanged: ", ex.Message)
End Try
@ -3683,7 +3686,9 @@ Public Class frmConstructor_Main
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configid, value, user)
ClassDatabase.Execute_non_Query(Sql)
If ClassDatabase.Execute_non_Query(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!")
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnTextSelectedValueChanged: ", ex.Message)
End Try
@ -3705,7 +3710,9 @@ Public Class frmConstructor_Main
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configid, value, user)
ClassDatabase.Execute_non_Query(Sql)
If ClassDatabase.Execute_non_Query(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (checkbox): " & vbNewLine & "Check the log for further information!")
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnCheckboxValueChanged: ", ex.Message)
End Try
@ -5042,14 +5049,7 @@ Public Class frmConstructor_Main
Next
End Sub
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Open.Click
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(4)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
Next
Open_File()
End Sub
Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
Open_File()
@ -5431,6 +5431,9 @@ Public Class frmConstructor_Main
Me.Cursor = Cursors.WaitCursor
GridViewDoc_Search.EndSelection()
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
e.Cancel = True
End If
Refresh_DocID()
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_ID") = 0 Then
@ -5438,7 +5441,7 @@ Public Class frmConstructor_Main
End If
End If
File_in_Work()
Dim Result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
Dim Result = clsWD_GET.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH, USER_USERNAME)
If Not IsNothing(Result) Then
ROW_READ_ONLY = False
Select Case Result.ToString
@ -5449,34 +5452,36 @@ Public Class frmConstructor_Main
ContextMenu_Write()
Case "RWA"
ContextMenu_Write()
Case ""
ContextMenu_Read()
ROW_READ_ONLY = True
End Select
Else
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Getting rights - check the log")
e.Cancel = True
End If
If ROW_READ_ONLY = False Then
If RIGHT_READ_ONLY_DOC = True Then
ContextMenu_Read()
End If
End If
If Not IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
docCM_RenameMain.Visible = True
Set_Displayname()
Else
docCM_RenameMain.Visible = False
End If
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
docCM_RenameMain.Visible = True
Set_Displayname()
Else
docCM_RenameMain.Visible = False
End If
Else
e.Cancel = True
docCM_RenameMain.Visible = False
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Opening DocContextMenu: ", ex.Message)
Finally
Me.Cursor = Cursors.Default
End Try
End Sub
Sub File_in_Work()
@ -5820,14 +5825,13 @@ Public Class frmConstructor_Main
Catch ex As Exception
End Try
End Sub
Private Sub DateirechteFürUserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_GetRights.Click
Dim result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
Dim result = clsWD_GET.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH, USER_USERNAME)
If Not IsNothing(result) Then
Dim msg = "Das aktuelle Recht für Sie ist: "
Dim msg = "Das aktuelle Recht für Sie (" & USER_USERNAME & ") ist: "
If USER_LANGUAGE <> "de-DE" Then
msg = "Your current right is: "
msg = "Your (" & USER_USERNAME & ") current right is: "
End If
msg = msg & result.ToString
msg = msg & vbNewLine & vbNewLine & "R:" & vbTab & "Read" & vbNewLine & "W:" & vbTab & "Write" & vbNewLine & "A:" & vbTab & "Admin"
@ -5907,7 +5911,7 @@ Public Class frmConstructor_Main
End If
MessageBox.Show(msg, "Warning:", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Private Sub showRecordLogtsbtn_Click(sender As Object, e As EventArgs) Handles showRecordLogtsmi.Click
@ -5963,7 +5967,7 @@ Public Class frmConstructor_Main
End If
MessageBox.Show(msg, "Warning:", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Private Sub tsbtnRefresh_Entity_Click(sender As Object, e As EventArgs) Handles tsbtnRefresh_Entity.Click
@ -6329,9 +6333,8 @@ Public Class frmConstructor_Main
Me.Cursor = Cursors.WaitCursor
Dim allow_Open As Boolean = False
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
Dim Result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
Dim Result = clsWD_GET.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH, USER_USERNAME)
If Not IsNothing(Result) Then
Select Case Result.ToString
Case "R"
ContextMenu_Read()
@ -6350,6 +6353,12 @@ Public Class frmConstructor_Main
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
Next
Else
If clsWD_GET.WDFile_exists(ClassWindreamDocGrid.SELECTED_DOC_PATH, True) = True Then
ClassHelper.MSGBOX_Handler("ERROR", "Right-Management", "File is existing, but you do not have the rights to open this file! " & vbNewLine & "Please contact your admin!" & vbNewLine & "DOC-ID: " & ClassWindreamDocGrid.SELECTED_DOC_ID.ToString)
Else
ClassHelper.MSGBOX_Handler("ERROR", "", "File does not exist! Please contact your admin!")
End If
End If
Me.Cursor = Cursors.Default
End Sub
@ -6406,7 +6415,7 @@ Public Class frmConstructor_Main
Catch ex As Exception
End Try
End Sub
@ -6443,8 +6452,7 @@ Public Class frmConstructor_Main
Private Sub cmsResultFilesBasic_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cmsResultFilesBasic.Opening
Try
Me.Cursor = Cursors.WaitCursor
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
Dim Result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
Dim Result = clsWD_GET.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH, USER_USERNAME)
If Not IsNothing(Result) Then
Select Case Result.ToString
Case "R"
@ -6459,7 +6467,7 @@ Public Class frmConstructor_Main
Finally
Me.Cursor = Cursors.Default
End Try
End Sub
Private Sub OrdnerÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OrdnerÖffnenToolStripMenuItem.Click
@ -6497,7 +6505,7 @@ Public Class frmConstructor_Main
Finally
Me.Cursor = Cursors.Default
End Try
End Sub
'Private Sub GridViewDoc_Search_MasterRowExpanded(sender As Object, e As CustomMasterRowEventArgs) Handles GridViewDoc_Search.MasterRowExpanded

5
app/DD-Record-Organiser/frmRecordView.vb
View File

@ -1,6 +1,7 @@
Imports System.IO
Imports System.Runtime.InteropServices
Imports DevExpress.XtraEditors
Imports DD_LIB_Standards
Public Class frmRecordView
Private recordView As ClassRecordView
@ -163,7 +164,7 @@ Public Class frmRecordView
AddressOf OnDateSelectedValueChanged,
AddressOf OnTextSelectedValueChanged,
AddressOf OnCheckboxValueChanged,
"RECORD")
"RECORD", JUMP_RECORD_ID)
End If
Else
Dim msg = "Keine Windream-Dokumente für Record: " & JUMP_RECORD_ID & " gefunden"
@ -699,7 +700,7 @@ Public Class frmRecordView
Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
Dim Result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
Dim Result = clsWD_GET.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH, USER_USERNAME)
If Not IsNothing(Result) Then
Select Case Result.ToString

4
app/DD-Record-Organiser/frmWD_ChangeDoctype.vb
View File

@ -5,10 +5,6 @@ Imports System.Data.SqlClient
Public Class frmWD_ChangeDoctype
Private formloaded As Boolean = False
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
If clsWindream.Create_Session = False Then
MsgBox("Could not create a windream-session. Please check the log!", MsgBoxStyle.Critical)
Exit Sub
End If
Dim NewDoctype As String
Dim DOCTYPE_ID
Dim OBJECTTYPE As String

37
app/DD-Record-Organiser/frmWD_CreateVersion.vb
View File

@ -7,29 +7,26 @@ Public Class frmWD_CreateVersion
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
clsDatabase.GUI = True
If clsWindream.Create_Session = True Then
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
If clsWD_SET.Create_Version(row.Item("FILEPATH"), txtComment.Text) Then
MsgBox("Version was created successfully!", MsgBoxStyle.Information)
Dim sql = "SELECT Version from TBPMO_DOCRESULT_LIST Where DocID = " & row.Item("DOC_ID")
Dim VERSION = clsDatabase.Execute_Scalar(sql, True)
If Not IsNothing(VERSION) Then
VERSION = VERSION + 1
Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Version = {0} WHERE DocID = {1}", VERSION, row.Item("DOC_ID"))
clsDatabase.Execute_non_Query(upd)
If LICENSE_SITE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
clsDatabase.Execute_non_Query(upd, True)
End If
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
If clsWD_SET.Create_Version(row.Item("FILEPATH"), txtComment.Text) Then
MsgBox("Version was created successfully!", MsgBoxStyle.Information)
Dim sql = "SELECT Version from TBPMO_DOCRESULT_LIST Where DocID = " & row.Item("DOC_ID")
Dim VERSION = clsDatabase.Execute_Scalar(sql, True)
If Not IsNothing(VERSION) Then
VERSION = VERSION + 1
Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Version = {0} WHERE DocID = {1}", VERSION, row.Item("DOC_ID"))
clsDatabase.Execute_non_Query(upd)
If LICENSE_SITE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
clsDatabase.Execute_non_Query(upd, True)
End If
Else
MsgBox("Could not create a version for file '" & row.Item("FILEPATH") & "'! Check log", MsgBoxStyle.Exclamation)
End If
Me.Close()
Next
Else
MsgBox("Could not create a version for file '" & row.Item("FILEPATH") & "'! Check log", MsgBoxStyle.Exclamation)
End If
Me.Close()
Next
Else
MsgBox("Could not create a windream session! Check log", MsgBoxStyle.Exclamation)
End If
Me.Close()
End Sub
End Class