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
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.IO
Imports System.Globalization Imports System.Globalization
Imports DD_LIB_Standards
Public Class ClassHelper Public Class ClassHelper
Public Shared Function Convert_Date(input As String, format As String) Public Shared Function Convert_Date(input As String, format As String)
Try Try
@@ -137,8 +137,8 @@ Public Class ClassHelper
OPEN_DOCVIEW(RESULT_DOC_PATH, DocID) OPEN_DOCVIEW(RESULT_DOC_PATH, DocID)
End Select End Select
End If End If
Else 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") If LogErrorsOnly = False Then ClassLogger.Add(" >> RESULT_DOC_PATH IS NOTHING")
End If End If
Catch ex As Exception Catch ex As Exception
@@ -178,14 +178,15 @@ Public Class ClassHelper
Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String) Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String)
Try Try
If RESULT_DOC_PATH <> Nothing Then If RESULT_DOC_PATH <> Nothing Then
If System.IO.File.Exists(RESULT_DOC_PATH) = True Then If System.IO.File.Exists(RESULT_DOC_PATH) = True Then
Process.Start(RESULT_DOC_PATH) Process.Start(RESULT_DOC_PATH)
Else 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
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical) 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 If USER_USERNAME <> "" Then
InitUserLogin(USER_USERNAME) InitUserLogin(USER_USERNAME)
End If 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 End If
' 'Admin
' pageAdmin.Visible = True
End If 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) 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 ElseIf input.ToString.EndsWith("(" & i.ToString & ")") Then
input = input.ToString.Replace("(" & i.ToString & ")", "") input = input.ToString.Replace("(" & i.ToString & ")", "")
End If End If
Next Next
Return input Return input
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Error in CheckIndexValue: " & ex.Message) ClassLogger.Add("Error in CheckIndexValue: " & ex.Message)
Return Nothing Return Nothing
End Try 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 Function
End Class 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, Public Shared Sub FillColumns(gridView As GridView,
DT_RESULT As DataTable, DT_WINDREAM_RESULTLIST As DataTable, DT_DOCRESULT_DROPDOWN_ITEMS As DataTable, 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, DropdownValueChangedHandler As EventHandler, DatepickerValueChangedHandler As EventHandler, TextValueChangedHandler As EventHandler, CheckValueChangedHandler As EventHandler,
SearchType As String) SearchType As String, RECORD_ID As Integer)
' Handler speichern ' Handler speichern
_dropdownValueChangedHandler = DropdownValueChangedHandler _dropdownValueChangedHandler = DropdownValueChangedHandler
_datepickerValueChangedHandler = DatepickerValueChangedHandler _datepickerValueChangedHandler = DatepickerValueChangedHandler
@@ -155,8 +155,10 @@ Public Class ClassWindreamDocGrid
' Neues Dataset für Master- und Detail-Tabelle erstellen ' Neues Dataset für Master- und Detail-Tabelle erstellen
Dim ds As New DataSet() 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 " & 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) "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) Dim DT_DETAILS As DataTable = ClassDatabase.Return_Datatable(DT_DETAILS_SQL, True)
' Tabellen zum DataSet hinzufügen ' Tabellen zum DataSet hinzufügen
ds.Tables.Add(DT_RESULT) ds.Tables.Add(DT_RESULT)
@@ -299,8 +301,9 @@ Public Class ClassWindreamDocGrid
End Sub End Sub
Public Shared Sub gridView_MasterRowExpanded(sender As GridView, e As DevExpress.XtraGrid.Views.Grid.CustomMasterRowEventArgs) 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 With detailView.Columns
'Spalten ausblenden 'Spalten ausblenden
.Item("GUID").Visible = False .Item("GUID").Visible = False
@@ -329,7 +332,13 @@ Public Class ClassWindreamDocGrid
.Item("CHANGED_WHO").Caption = "changed Who" .Item("CHANGED_WHO").Caption = "changed Who"
End If End If
End With 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 AddHandler detailView.CustomRowCellEdit, AddressOf detailView_CustomRowCellEdit
End Sub End Sub

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

@@ -1,12 +1,12 @@
Imports System.IO Imports System.IO
Imports System.Xml Imports System.Xml
Imports DD_LIB_Standards
Module ModuleMySettings Module ModuleMySettings
Public PATH_FileExclusions As String = Path.Combine(Application.UserAppDataPath(), "FileExclusions.xml") Public PATH_FileExclusions As String = Path.Combine(Application.UserAppDataPath(), "FileExclusions.xml")
Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml") Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
Public MyConnectionString As String = "" Public MyConnectionString As String = ""
Public LogErrorsOnly As Boolean = True Public LogErrorsOnly As Boolean = True
Public Sett_TaskOverviewKeepInFront As Boolean = True Public Sett_TaskOverviewKeepInFront As Boolean = True
Public Sett_LoadWD_Docs As Boolean = True Public Sett_LoadWD_Docs As Boolean = True
@@ -182,6 +182,7 @@ Module ModuleMySettings
ClassProxy.MyLinkedServer = Row.Item("Value") ClassProxy.MyLinkedServer = Row.Item("Value")
Case "LogErrorsOnly" Case "LogErrorsOnly"
LogErrorsOnly = CBool(Row.Item("Value")) LogErrorsOnly = CBool(Row.Item("Value"))
clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
Case "Sett_TaskOverviewKeepInFront" Case "Sett_TaskOverviewKeepInFront"
Sett_TaskOverviewKeepInFront = CBool(Row.Item("Value")) Sett_TaskOverviewKeepInFront = CBool(Row.Item("Value"))
Case "Sett_LoadWD_Docs" Case "Sett_LoadWD_Docs"
@@ -291,7 +292,7 @@ Module ModuleMySettings
End Try End Try
End Function End Function
Private Function CreateConfigTable() As DataTable Private Function CreateConfigTable() As DataTable
Try Try
' Create sample Customers table, in order ' 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() ClassDatabase.Init()
Else Else
ClassProxy.MyPROXYConnectionString = con ClassProxy.MyPROXYConnectionString = con
clsDatabase.Init(MyConnectionString, ClassProxy.MyPROXYConnectionString) clsDatabase.Init(MyConnectionString, True)
End If End If
My.Settings.Save() My.Settings.Save()
@@ -194,6 +194,7 @@ Public Class frmConfig_Basic
Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
LogErrorsOnly = chkLogErrorsOnly.Checked LogErrorsOnly = chkLogErrorsOnly.Checked
SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly, "ConfigMain") SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly, "ConfigMain")
clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
End Sub End Sub
Private Sub chkboxQuickMenue_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxQuickMenue.CheckedChanged Private Sub chkboxQuickMenue_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxQuickMenue.CheckedChanged
Sett_ShowQuickMenue = chkboxQuickMenue.Checked 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 Private Sub rbConn_Proxy_CheckedChanged(sender As Object, e As EventArgs) Handles rbConn_Proxy.CheckedChanged
If rbConn_Proxy.Checked Then If rbConn_Proxy.Checked Then
Refresh_Proxy() Display_Proxy_String()
Me.lblLinkedServer.Visible = True Me.lblLinkedServer.Visible = True
Me.txtLinkedServer.Visible = True Me.txtLinkedServer.Visible = True
Else Else
@@ -455,8 +456,8 @@ Public Class frmConfig_Basic
Me.txtLinkedServer.Visible = False Me.txtLinkedServer.Visible = False
End If End If
End Sub End Sub
Sub Refresh_Proxy() Sub Display_Proxy_String()
If clsDatabase.DB_PROXY_INITIALIZED Then If clsDatabase.DB_PROXY_INITIALIZED And ClassProxy.MyPROXYConnectionString <> String.Empty Then
Dim csb As New SqlClient.SqlConnectionStringBuilder Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = ClassProxy.MyPROXYConnectionString 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 Private Sub btndeleteProxy_Click(sender As Object, e As EventArgs) Handles btndeleteProxy.Click
SaveMySettingsValue("MyProxyConnectionString", "", "ConfigMain") SaveMySettingsValue("MyProxyConnectionString", "", "ConfigMain")
ClassProxy.MyPROXYConnectionString = "" ClassProxy.MyPROXYConnectionString = ""
Refresh_Proxy() clsDatabase.DB_PROXY_INITIALIZED = False
Me.txtActualConnection.Text = ""
CONNECTION_CHANGED = True CONNECTION_CHANGED = True
End Sub End Sub
Private Sub txtLinkedServer_Leave(sender As Object, e As EventArgs) Handles txtLinkedServer.Leave Private Sub txtLinkedServer_Leave(sender As Object, e As EventArgs) Handles txtLinkedServer.Leave
SaveMySettingsValue("MyLinkedServer", txtLinkedServer.Text, "ConfigMain") SaveMySettingsValue("MyLinkedServer", txtLinkedServer.Text, "ConfigMain")
ClassProxy.MyLinkedServer = txtLinkedServer.Text ClassProxy.MyLinkedServer = txtLinkedServer.Text
End Sub End Sub
End Class 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() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main))
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode5 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode3 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.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl()
Me.TreeViewMain = New System.Windows.Forms.TreeView() Me.TreeViewMain = New System.Windows.Forms.TreeView()
@@ -141,8 +141,8 @@ Partial Class frmConstructor_Main
Me.tsbtnStartFulltext = New System.Windows.Forms.ToolStripButton() Me.tsbtnStartFulltext = New System.Windows.Forms.ToolStripButton()
Me.TabFollowUp = New DevExpress.XtraTab.XtraTabPage() Me.TabFollowUp = New DevExpress.XtraTab.XtraTabPage()
Me.ListViewFollowUps = New System.Windows.Forms.ListView() Me.ListViewFollowUps = New System.Windows.Forms.ListView()
Me.ColumnHeader1 = 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.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.grpbxFU_Profile = New System.Windows.Forms.GroupBox() Me.grpbxFU_Profile = New System.Windows.Forms.GroupBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.btnRemoveUser_FollowUp = New System.Windows.Forms.Button() 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.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
Me.ToolTipController = New DevExpress.Utils.ToolTipController(Me.components) Me.ToolTipController = New DevExpress.Utils.ToolTipController(Me.components)
Me.TBPMO_RECORD_VARIANTTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter() Me.TBPMO_RECORD_VARIANTTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter()
CType(Me.SplitContainerMain,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerMain.SuspendLayout Me.SplitContainerMain.SuspendLayout()
CType(Me.SplitContainerTop,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerTop.SuspendLayout Me.SplitContainerTop.SuspendLayout()
Me.cmsTreeView.SuspendLayout Me.cmsTreeView.SuspendLayout()
CType(Me.GridControlMain,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuGrid.SuspendLayout Me.ContextMenuGrid.SuspendLayout()
CType(Me.grvwGrid,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwCarousel,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwTiles,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripRecords.SuspendLayout Me.ToolStripRecords.SuspendLayout()
CType(Me.TCDetails,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TCDetails.SuspendLayout Me.TCDetails.SuspendLayout()
Me.TabDetails.SuspendLayout Me.TabDetails.SuspendLayout()
CType(Me.SplitContainerDetails,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.SplitContainerDetails, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerDetails.SuspendLayout Me.SplitContainerDetails.SuspendLayout()
Me.statStripDoc.SuspendLayout Me.statStripDoc.SuspendLayout()
Me.ToolStripEdit.SuspendLayout Me.ToolStripEdit.SuspendLayout()
Me.TabPos.SuspendLayout Me.TabPos.SuspendLayout()
Me.Panel1.SuspendLayout Me.Panel1.SuspendLayout()
CType(Me.GridControlPos,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GridControlPos, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGridPos,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.grvwGridPos, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BindingNavigatorPOS,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.BindingNavigatorPOS, System.ComponentModel.ISupportInitialize).BeginInit()
Me.BindingNavigatorPOS.SuspendLayout Me.BindingNavigatorPOS.SuspendLayout()
Me.TabWindream.SuspendLayout Me.TabWindream.SuspendLayout()
CType(Me.GridControlDocSearch,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cmsResultFilesBasic.SuspendLayout Me.cmsResultFilesBasic.SuspendLayout()
CType(Me.GridViewDoc_Search,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripDokumente.SuspendLayout Me.ToolStripDokumente.SuspendLayout()
Me.TabFollowUp.SuspendLayout Me.TabFollowUp.SuspendLayout()
Me.grpbxFU_Profile.SuspendLayout Me.grpbxFU_Profile.SuspendLayout()
Me.GroupBox4.SuspendLayout Me.GroupBox4.SuspendLayout()
Me.TabPageVariant.SuspendLayout Me.TabPageVariant.SuspendLayout()
CType(Me.GridControl1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPMO_RECORD_VARIANTBindingSource,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.TBPMO_RECORD_VARIANTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSDataSet,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewVariants,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.GridViewVariants, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tsVariants.SuspendLayout Me.tsVariants.SuspendLayout()
CType(Me.SplitContainerFORM,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.SplitContainerFORM, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerFORM.SuspendLayout Me.SplitContainerFORM.SuspendLayout()
Me.ContextMenuStripResultFiles.SuspendLayout Me.ContextMenuStripResultFiles.SuspendLayout()
Me.StatusStrip_Main.SuspendLayout Me.StatusStrip_Main.SuspendLayout()
CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ImageCollection1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cmsrpContainer.SuspendLayout Me.cmsrpContainer.SuspendLayout()
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout Me.SuspendLayout()
' '
'SplitContainerMain 'SplitContainerMain
' '
Me.SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1 Me.SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1
resources.ApplyResources(Me.SplitContainerMain, "SplitContainerMain") resources.ApplyResources(Me.SplitContainerMain, "SplitContainerMain")
Me.SplitContainerMain.Horizontal = false Me.SplitContainerMain.Horizontal = False
Me.SplitContainerMain.Name = "SplitContainerMain" Me.SplitContainerMain.Name = "SplitContainerMain"
Me.SplitContainerMain.Panel1.Controls.Add(Me.SplitContainerTop) Me.SplitContainerMain.Panel1.Controls.Add(Me.SplitContainerTop)
resources.ApplyResources(Me.SplitContainerMain.Panel1, "SplitContainerMain.Panel1") resources.ApplyResources(Me.SplitContainerMain.Panel1, "SplitContainerMain.Panel1")
@@ -299,14 +299,14 @@ Partial Class frmConstructor_Main
' '
'TreeViewMain 'TreeViewMain
' '
Me.TreeViewMain.AllowDrop = true Me.TreeViewMain.AllowDrop = True
Me.TreeViewMain.BackColor = System.Drawing.SystemColors.GradientInactiveCaption Me.TreeViewMain.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.TreeViewMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.TreeViewMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TreeViewMain.ContextMenuStrip = Me.cmsTreeView Me.TreeViewMain.ContextMenuStrip = Me.cmsTreeView
resources.ApplyResources(Me.TreeViewMain, "TreeViewMain") resources.ApplyResources(Me.TreeViewMain, "TreeViewMain")
Me.TreeViewMain.FullRowSelect = true Me.TreeViewMain.FullRowSelect = True
Me.TreeViewMain.Name = "TreeViewMain" Me.TreeViewMain.Name = "TreeViewMain"
Me.TreeViewMain.ShowLines = false Me.TreeViewMain.ShowLines = False
' '
'cmsTreeView 'cmsTreeView
' '
@@ -412,15 +412,15 @@ Partial Class frmConstructor_Main
' '
'GridControlMain 'GridControlMain
' '
Me.GridControlMain.AllowDrop = true Me.GridControlMain.AllowDrop = True
Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid
resources.ApplyResources(Me.GridControlMain, "GridControlMain") resources.ApplyResources(Me.GridControlMain, "GridControlMain")
GridLevelNode1.LevelTemplate = Me.grvwGrid GridLevelNode4.LevelTemplate = Me.grvwGrid
GridLevelNode1.RelationName = "Level1" GridLevelNode4.RelationName = "Level1"
GridLevelNode2.LevelTemplate = Me.grvwCarousel GridLevelNode5.LevelTemplate = Me.grvwCarousel
GridLevelNode2.RelationName = "Level2" GridLevelNode5.RelationName = "Level2"
GridLevelNode3.RelationName = "Level3" GridLevelNode6.RelationName = "Level3"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2, GridLevelNode3}) Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4, GridLevelNode5, GridLevelNode6})
Me.GridControlMain.MainView = Me.grvwTiles Me.GridControlMain.MainView = Me.grvwTiles
Me.GridControlMain.Name = "GridControlMain" Me.GridControlMain.Name = "GridControlMain"
Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid, Me.grvwCarousel, Me.grvwTiles}) 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 'grvwGrid
' '
Me.grvwGrid.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.EvenRow.BackColor"),System.Drawing.Color) 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.Options.UseBackColor = True
Me.grvwGrid.GridControl = Me.GridControlMain Me.grvwGrid.GridControl = Me.GridControlMain
resources.ApplyResources(Me.grvwGrid, "grvwGrid") resources.ApplyResources(Me.grvwGrid, "grvwGrid")
Me.grvwGrid.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always Me.grvwGrid.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
Me.grvwGrid.Name = "grvwGrid" Me.grvwGrid.Name = "grvwGrid"
Me.grvwGrid.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.grvwGrid.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] Me.grvwGrid.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsBehavior.Editable = false Me.grvwGrid.OptionsBehavior.Editable = False
Me.grvwGrid.OptionsBehavior.ReadOnly = true Me.grvwGrid.OptionsBehavior.ReadOnly = True
Me.grvwGrid.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.grvwGrid.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = false Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = False
Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = false Me.grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = False
Me.grvwGrid.OptionsSelection.EnableAppearanceHideSelection = false Me.grvwGrid.OptionsSelection.EnableAppearanceHideSelection = False
Me.grvwGrid.OptionsSelection.MultiSelect = true Me.grvwGrid.OptionsSelection.MultiSelect = True
Me.grvwGrid.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect Me.grvwGrid.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.grvwGrid.OptionsView.ColumnAutoWidth = false Me.grvwGrid.OptionsView.ColumnAutoWidth = False
Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = true Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = True
Me.grvwGrid.OptionsView.ShowAutoFilterRow = true Me.grvwGrid.OptionsView.ShowAutoFilterRow = True
Me.grvwGrid.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True] Me.grvwGrid.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True]
Me.grvwGrid.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always Me.grvwGrid.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
' '
@@ -562,11 +562,11 @@ Partial Class frmConstructor_Main
'grvwTiles 'grvwTiles
' '
Me.grvwTiles.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.HotFlat 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.GridControl = Me.GridControlMain
Me.grvwTiles.Name = "grvwTiles" Me.grvwTiles.Name = "grvwTiles"
Me.grvwTiles.OptionsBehavior.ReadOnly = true Me.grvwTiles.OptionsBehavior.ReadOnly = True
Me.grvwTiles.OptionsFind.AlwaysVisible = true Me.grvwTiles.OptionsFind.AlwaysVisible = True
Me.grvwTiles.OptionsTiles.HorizontalContentAlignment = DevExpress.Utils.HorzAlignment.Near Me.grvwTiles.OptionsTiles.HorizontalContentAlignment = DevExpress.Utils.HorzAlignment.Near
Me.grvwTiles.OptionsTiles.ItemSize = New System.Drawing.Size(240, 116) Me.grvwTiles.OptionsTiles.ItemSize = New System.Drawing.Size(240, 116)
Me.grvwTiles.OptionsTiles.RowCount = 2 Me.grvwTiles.OptionsTiles.RowCount = 2
@@ -657,13 +657,13 @@ Partial Class frmConstructor_Main
' '
'TCDetails 'TCDetails
' '
Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.BackColor"),System.Drawing.Color) 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.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.Font = CType(resources.GetObject("TCDetails.AppearancePage.HeaderHotTracked.Font"), System.Drawing.Font)
Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseBackColor = true Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseBackColor = True
Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseFont = true Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseFont = True
resources.ApplyResources(Me.TCDetails, "TCDetails") resources.ApplyResources(Me.TCDetails, "TCDetails")
Me.TCDetails.LookAndFeel.UseDefaultLookAndFeel = false Me.TCDetails.LookAndFeel.UseDefaultLookAndFeel = False
Me.TCDetails.Name = "TCDetails" Me.TCDetails.Name = "TCDetails"
Me.TCDetails.SelectedTabPage = Me.TabDetails Me.TCDetails.SelectedTabPage = Me.TabDetails
Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabPos, Me.TabWindream, Me.TabFollowUp, Me.TabPageVariant}) 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 'SplitContainerDetails
' '
Me.SplitContainerDetails.Appearance.BackColor = CType(resources.GetObject("SplitContainerDetails.Appearance.BackColor"),System.Drawing.Color) 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.BorderColor = CType(resources.GetObject("SplitContainerDetails.Appearance.BorderColor"), System.Drawing.Color)
Me.SplitContainerDetails.Appearance.Options.UseBackColor = true Me.SplitContainerDetails.Appearance.Options.UseBackColor = True
Me.SplitContainerDetails.Appearance.Options.UseBorderColor = true Me.SplitContainerDetails.Appearance.Options.UseBorderColor = True
Me.SplitContainerDetails.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.HotFlat Me.SplitContainerDetails.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.HotFlat
Me.SplitContainerDetails.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 Me.SplitContainerDetails.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainerDetails.ContextMenuStrip = Me.cmsTreeView Me.SplitContainerDetails.ContextMenuStrip = Me.cmsTreeView
@@ -696,7 +696,7 @@ Partial Class frmConstructor_Main
' '
'pnlDetails 'pnlDetails
' '
Me.pnlDetails.AllowDrop = true Me.pnlDetails.AllowDrop = True
resources.ApplyResources(Me.pnlDetails, "pnlDetails") resources.ApplyResources(Me.pnlDetails, "pnlDetails")
Me.pnlDetails.Name = "pnlDetails" Me.pnlDetails.Name = "pnlDetails"
' '
@@ -713,9 +713,9 @@ Partial Class frmConstructor_Main
' '
'tslblDocIDTab1 'tslblDocIDTab1
' '
Me.tslblDocIDTab1.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ 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.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom),System.Windows.Forms.ToolStripStatusLabelBorderSides) Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tslblDocIDTab1.Name = "tslblDocIDTab1" Me.tslblDocIDTab1.Name = "tslblDocIDTab1"
resources.ApplyResources(Me.tslblDocIDTab1, "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.Panel1)
Me.TabPos.Controls.Add(Me.BindingNavigatorPOS) 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.Name = "TabPos"
Me.TabPos.PageVisible = false Me.TabPos.PageVisible = False
resources.ApplyResources(Me.TabPos, "TabPos") resources.ApplyResources(Me.TabPos, "TabPos")
' '
'Panel1 'Panel1
@@ -825,12 +825,12 @@ Partial Class frmConstructor_Main
' '
'grvwGridPos 'grvwGridPos
' '
Me.grvwGridPos.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGridPos.Appearance.EvenRow.BackColor"),System.Drawing.Color) 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.Options.UseBackColor = True
Me.grvwGridPos.GridControl = Me.GridControlPos Me.grvwGridPos.GridControl = Me.GridControlPos
Me.grvwGridPos.Name = "grvwGridPos" Me.grvwGridPos.Name = "grvwGridPos"
Me.grvwGridPos.OptionsView.EnableAppearanceEvenRow = true Me.grvwGridPos.OptionsView.EnableAppearanceEvenRow = True
Me.grvwGridPos.OptionsView.ShowAutoFilterRow = true Me.grvwGridPos.OptionsView.ShowAutoFilterRow = True
' '
'BindingNavigatorPOS 'BindingNavigatorPOS
' '
@@ -918,7 +918,7 @@ Partial Class frmConstructor_Main
' '
'TabWindream 'TabWindream
' '
Me.TabWindream.AllowDrop = true Me.TabWindream.AllowDrop = True
Me.TabWindream.Controls.Add(Me.GridControlDocSearch) Me.TabWindream.Controls.Add(Me.GridControlDocSearch)
Me.TabWindream.Controls.Add(Me.ToolStripDokumente) Me.TabWindream.Controls.Add(Me.ToolStripDokumente)
Me.TabWindream.Name = "TabWindream" Me.TabWindream.Name = "TabWindream"
@@ -926,7 +926,7 @@ Partial Class frmConstructor_Main
' '
'GridControlDocSearch 'GridControlDocSearch
' '
Me.GridControlDocSearch.AllowDrop = true Me.GridControlDocSearch.AllowDrop = True
Me.GridControlDocSearch.ContextMenuStrip = Me.cmsResultFilesBasic Me.GridControlDocSearch.ContextMenuStrip = Me.cmsResultFilesBasic
resources.ApplyResources(Me.GridControlDocSearch, "GridControlDocSearch") resources.ApplyResources(Me.GridControlDocSearch, "GridControlDocSearch")
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
@@ -951,29 +951,29 @@ Partial Class frmConstructor_Main
' '
'GridViewDoc_Search 'GridViewDoc_Search
' '
Me.GridViewDoc_Search.Appearance.OddRow.BackColor = CType(resources.GetObject("GridViewDoc_Search.Appearance.OddRow.BackColor"),System.Drawing.Color) 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.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.Options.UseBackColor = True
Me.GridViewDoc_Search.DetailVerticalIndent = 10 Me.GridViewDoc_Search.DetailVerticalIndent = 10
Me.GridViewDoc_Search.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFullFocus Me.GridViewDoc_Search.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFullFocus
Me.GridViewDoc_Search.GridControl = Me.GridControlDocSearch Me.GridViewDoc_Search.GridControl = Me.GridControlDocSearch
Me.GridViewDoc_Search.LevelIndent = 10 Me.GridViewDoc_Search.LevelIndent = 10
Me.GridViewDoc_Search.Name = "GridViewDoc_Search" Me.GridViewDoc_Search.Name = "GridViewDoc_Search"
Me.GridViewDoc_Search.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewDoc_Search.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDoc_Search.OptionsDetail.ShowDetailTabs = false Me.GridViewDoc_Search.OptionsDetail.ShowDetailTabs = False
Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceFocusedCell = false Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceFocusedRow = false Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceFocusedRow = False
Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceHideSelection = false Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDoc_Search.OptionsSelection.MultiSelect = true Me.GridViewDoc_Search.OptionsSelection.MultiSelect = True
Me.GridViewDoc_Search.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect Me.GridViewDoc_Search.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewDoc_Search.OptionsView.ColumnAutoWidth = false Me.GridViewDoc_Search.OptionsView.ColumnAutoWidth = False
Me.GridViewDoc_Search.OptionsView.EnableAppearanceOddRow = true Me.GridViewDoc_Search.OptionsView.EnableAppearanceOddRow = True
Me.GridViewDoc_Search.OptionsView.ShowAutoFilterRow = true Me.GridViewDoc_Search.OptionsView.ShowAutoFilterRow = True
Me.GridViewDoc_Search.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True] Me.GridViewDoc_Search.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True]
' '
'ToolStripDokumente 'ToolStripDokumente
' '
Me.ToolStripDokumente.AllowDrop = true Me.ToolStripDokumente.AllowDrop = True
resources.ApplyResources(Me.ToolStripDokumente, "ToolStripDokumente") 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.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripSeparator17, Me.ToolStripSeparator3, Me.tsbtnDoc_Refresh, Me.ToolStripSeparator18, Me.tsbtnStartFulltext})
Me.ToolStripDokumente.Name = "ToolStripDokumente" Me.ToolStripDokumente.Name = "ToolStripDokumente"
@@ -1022,10 +1022,10 @@ Partial Class frmConstructor_Main
' '
resources.ApplyResources(Me.ListViewFollowUps, "ListViewFollowUps") resources.ApplyResources(Me.ListViewFollowUps, "ListViewFollowUps")
Me.ListViewFollowUps.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2}) Me.ListViewFollowUps.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
Me.ListViewFollowUps.FullRowSelect = true Me.ListViewFollowUps.FullRowSelect = True
Me.ListViewFollowUps.HideSelection = false Me.ListViewFollowUps.HideSelection = False
Me.ListViewFollowUps.Name = "ListViewFollowUps" Me.ListViewFollowUps.Name = "ListViewFollowUps"
Me.ListViewFollowUps.UseCompatibleStateImageBehavior = false Me.ListViewFollowUps.UseCompatibleStateImageBehavior = False
Me.ListViewFollowUps.View = System.Windows.Forms.View.Details Me.ListViewFollowUps.View = System.Windows.Forms.View.Details
' '
'ColumnHeader1 'ColumnHeader1
@@ -1045,7 +1045,7 @@ Partial Class frmConstructor_Main
Me.grpbxFU_Profile.Controls.Add(Me.dtpFollowUp) Me.grpbxFU_Profile.Controls.Add(Me.dtpFollowUp)
Me.grpbxFU_Profile.Controls.Add(Me.lblWiedervorlage_Control) Me.grpbxFU_Profile.Controls.Add(Me.lblWiedervorlage_Control)
Me.grpbxFU_Profile.Name = "grpbxFU_Profile" Me.grpbxFU_Profile.Name = "grpbxFU_Profile"
Me.grpbxFU_Profile.TabStop = false Me.grpbxFU_Profile.TabStop = False
' '
'GroupBox4 'GroupBox4
' '
@@ -1057,24 +1057,24 @@ Partial Class frmConstructor_Main
Me.GroupBox4.Controls.Add(Me.ListBoxUser2Profile) Me.GroupBox4.Controls.Add(Me.ListBoxUser2Profile)
Me.GroupBox4.Controls.Add(Me.Label7) Me.GroupBox4.Controls.Add(Me.Label7)
Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.TabStop = false Me.GroupBox4.TabStop = False
' '
'btnRemoveUser_FollowUp 'btnRemoveUser_FollowUp
' '
resources.ApplyResources(Me.btnRemoveUser_FollowUp, "btnRemoveUser_FollowUp") resources.ApplyResources(Me.btnRemoveUser_FollowUp, "btnRemoveUser_FollowUp")
Me.btnRemoveUser_FollowUp.Name = "btnRemoveUser_FollowUp" Me.btnRemoveUser_FollowUp.Name = "btnRemoveUser_FollowUp"
Me.btnRemoveUser_FollowUp.UseVisualStyleBackColor = true Me.btnRemoveUser_FollowUp.UseVisualStyleBackColor = True
' '
'btnAddUser_FollowUp 'btnAddUser_FollowUp
' '
resources.ApplyResources(Me.btnAddUser_FollowUp, "btnAddUser_FollowUp") resources.ApplyResources(Me.btnAddUser_FollowUp, "btnAddUser_FollowUp")
Me.btnAddUser_FollowUp.Name = "btnAddUser_FollowUp" Me.btnAddUser_FollowUp.Name = "btnAddUser_FollowUp"
Me.btnAddUser_FollowUp.UseVisualStyleBackColor = true Me.btnAddUser_FollowUp.UseVisualStyleBackColor = True
' '
'cmbFollowUpUser 'cmbFollowUpUser
' '
resources.ApplyResources(Me.cmbFollowUpUser, "cmbFollowUpUser") resources.ApplyResources(Me.cmbFollowUpUser, "cmbFollowUpUser")
Me.cmbFollowUpUser.FormattingEnabled = true Me.cmbFollowUpUser.FormattingEnabled = True
Me.cmbFollowUpUser.Name = "cmbFollowUpUser" Me.cmbFollowUpUser.Name = "cmbFollowUpUser"
' '
'Label6 'Label6
@@ -1085,7 +1085,7 @@ Partial Class frmConstructor_Main
'ListBoxUser2Profile 'ListBoxUser2Profile
' '
resources.ApplyResources(Me.ListBoxUser2Profile, "ListBoxUser2Profile") resources.ApplyResources(Me.ListBoxUser2Profile, "ListBoxUser2Profile")
Me.ListBoxUser2Profile.FormattingEnabled = true Me.ListBoxUser2Profile.FormattingEnabled = True
Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile" Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile"
' '
'Label7 'Label7
@@ -1103,7 +1103,7 @@ Partial Class frmConstructor_Main
' '
resources.ApplyResources(Me.chkFollowUp, "chkFollowUp") resources.ApplyResources(Me.chkFollowUp, "chkFollowUp")
Me.chkFollowUp.Name = "chkFollowUp" Me.chkFollowUp.Name = "chkFollowUp"
Me.chkFollowUp.UseVisualStyleBackColor = true Me.chkFollowUp.UseVisualStyleBackColor = True
' '
'dtpFollowUp 'dtpFollowUp
' '
@@ -1123,16 +1123,16 @@ Partial Class frmConstructor_Main
' '
'TabPageVariant 'TabPageVariant
' '
Me.TabPageVariant.Appearance.Header.BackColor = CType(resources.GetObject("TabPageVariant.Appearance.Header.BackColor"),System.Drawing.Color) 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.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.ForeColor = CType(resources.GetObject("TabPageVariant.Appearance.Header.ForeColor"), System.Drawing.Color)
Me.TabPageVariant.Appearance.Header.Options.UseBackColor = true Me.TabPageVariant.Appearance.Header.Options.UseBackColor = True
Me.TabPageVariant.Appearance.Header.Options.UseFont = true Me.TabPageVariant.Appearance.Header.Options.UseFont = True
Me.TabPageVariant.Appearance.Header.Options.UseForeColor = true Me.TabPageVariant.Appearance.Header.Options.UseForeColor = True
Me.TabPageVariant.Controls.Add(Me.GridControl1) Me.TabPageVariant.Controls.Add(Me.GridControl1)
Me.TabPageVariant.Controls.Add(Me.tsVariants) Me.TabPageVariant.Controls.Add(Me.tsVariants)
Me.TabPageVariant.Name = "TabPageVariant" Me.TabPageVariant.Name = "TabPageVariant"
Me.TabPageVariant.PageVisible = false Me.TabPageVariant.PageVisible = False
resources.ApplyResources(Me.TabPageVariant, "TabPageVariant") resources.ApplyResources(Me.TabPageVariant, "TabPageVariant")
' '
'GridControl1 'GridControl1
@@ -1141,7 +1141,7 @@ Partial Class frmConstructor_Main
resources.ApplyResources(Me.GridControl1, "GridControl1") resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.MainView = Me.GridViewVariants Me.GridControl1.MainView = Me.GridViewVariants
Me.GridControl1.Name = "GridControl1" Me.GridControl1.Name = "GridControl1"
Me.GridControl1.ShowOnlyPredefinedDetails = true Me.GridControl1.ShowOnlyPredefinedDetails = True
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewVariants}) Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewVariants})
' '
'TBPMO_RECORD_VARIANTBindingSource 'TBPMO_RECORD_VARIANTBindingSource
@@ -1156,20 +1156,20 @@ Partial Class frmConstructor_Main
' '
'GridViewVariants 'GridViewVariants
' '
Me.GridViewVariants.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewVariants.Appearance.EvenRow.BackColor"),System.Drawing.Color) 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.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.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.GridControl = Me.GridControl1
Me.GridViewVariants.Name = "GridViewVariants" Me.GridViewVariants.Name = "GridViewVariants"
Me.GridViewVariants.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewVariants.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewVariants.OptionsBehavior.AllowDeleteRows = 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.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewVariants.OptionsSelection.EnableAppearanceFocusedCell = false Me.GridViewVariants.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewVariants.OptionsView.ColumnAutoWidth = false Me.GridViewVariants.OptionsView.ColumnAutoWidth = False
Me.GridViewVariants.OptionsView.EnableAppearanceEvenRow = true Me.GridViewVariants.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewVariants.OptionsView.ShowAutoFilterRow = true Me.GridViewVariants.OptionsView.ShowAutoFilterRow = True
Me.GridViewVariants.OptionsView.ShowGroupPanel = false Me.GridViewVariants.OptionsView.ShowGroupPanel = False
' '
'GridColumn1 'GridColumn1
' '
@@ -1237,7 +1237,7 @@ Partial Class frmConstructor_Main
' '
'SplitContainerFORM 'SplitContainerFORM
' '
Me.SplitContainerFORM.Collapsed = true Me.SplitContainerFORM.Collapsed = True
Me.SplitContainerFORM.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 Me.SplitContainerFORM.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
resources.ApplyResources(Me.SplitContainerFORM, "SplitContainerFORM") resources.ApplyResources(Me.SplitContainerFORM, "SplitContainerFORM")
Me.SplitContainerFORM.Name = "SplitContainerFORM" Me.SplitContainerFORM.Name = "SplitContainerFORM"
@@ -1249,7 +1249,7 @@ Partial Class frmConstructor_Main
' '
'ContextMenuStripResultFiles '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" Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles") resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles")
' '
@@ -1355,8 +1355,8 @@ Partial Class frmConstructor_Main
' '
'docCM_GetRights 'docCM_GetRights
' '
Me.docCM_GetRights.Name = "docCM_GetRights"
resources.ApplyResources(Me.docCM_GetRights, "docCM_GetRights") resources.ApplyResources(Me.docCM_GetRights, "docCM_GetRights")
Me.docCM_GetRights.Name = "docCM_GetRights"
' '
'ToolStripSeparator8 'ToolStripSeparator8
' '
@@ -1387,8 +1387,8 @@ Partial Class frmConstructor_Main
' '
'docCM_showGridSearch 'docCM_showGridSearch
' '
Me.docCM_showGridSearch.Name = "docCM_showGridSearch"
resources.ApplyResources(Me.docCM_showGridSearch, "docCM_showGridSearch") resources.ApplyResources(Me.docCM_showGridSearch, "docCM_showGridSearch")
Me.docCM_showGridSearch.Name = "docCM_showGridSearch"
' '
'ToolStripSeparator16 'ToolStripSeparator16
' '
@@ -1426,8 +1426,8 @@ Partial Class frmConstructor_Main
' '
Me.NavButtonHome.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True] Me.NavButtonHome.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
Me.NavButtonHome.Caption = "" Me.NavButtonHome.Caption = ""
Me.NavButtonHome.Glyph = CType(resources.GetObject("NavButtonHome.Glyph"),System.Drawing.Image) Me.NavButtonHome.Glyph = CType(resources.GetObject("NavButtonHome.Glyph"), System.Drawing.Image)
Me.NavButtonHome.IsMain = true Me.NavButtonHome.IsMain = True
Me.NavButtonHome.Name = "NavButtonHome" Me.NavButtonHome.Name = "NavButtonHome"
' '
'NavButtonRefresh 'NavButtonRefresh
@@ -1435,7 +1435,7 @@ Partial Class frmConstructor_Main
Me.NavButtonRefresh.Alignment = DevExpress.XtraBars.Navigation.NavButtonAlignment.Right Me.NavButtonRefresh.Alignment = DevExpress.XtraBars.Navigation.NavButtonAlignment.Right
Me.NavButtonRefresh.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True] Me.NavButtonRefresh.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
Me.NavButtonRefresh.Caption = "" 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" Me.NavButtonRefresh.Name = "NavButtonRefresh"
' '
'StatusStrip_Main 'StatusStrip_Main
@@ -1446,9 +1446,9 @@ Partial Class frmConstructor_Main
' '
'tsslblStatus 'tsslblStatus
' '
Me.tsslblStatus.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ 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.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom),System.Windows.Forms.ToolStripStatusLabelBorderSides) Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tsslblStatus.BorderStyle = System.Windows.Forms.Border3DStyle.Etched Me.tsslblStatus.BorderStyle = System.Windows.Forms.Border3DStyle.Etched
Me.tsslblStatus.Name = "tsslblStatus" Me.tsslblStatus.Name = "tsslblStatus"
resources.ApplyResources(Me.tsslblStatus, "tsslblStatus") resources.ApplyResources(Me.tsslblStatus, "tsslblStatus")
@@ -1456,17 +1456,17 @@ Partial Class frmConstructor_Main
'tsslblRecord 'tsslblRecord
' '
Me.tsslblRecord.BackColor = System.Drawing.SystemColors.ControlLight Me.tsslblRecord.BackColor = System.Drawing.SystemColors.ControlLight
Me.tsslblRecord.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ 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.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom),System.Windows.Forms.ToolStripStatusLabelBorderSides) Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tsslblRecord.Name = "tsslblRecord" Me.tsslblRecord.Name = "tsslblRecord"
resources.ApplyResources(Me.tsslblRecord, "tsslblRecord") resources.ApplyResources(Me.tsslblRecord, "tsslblRecord")
' '
'tslblDocIDMain 'tslblDocIDMain
' '
Me.tslblDocIDMain.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ 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.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom),System.Windows.Forms.ToolStripStatusLabelBorderSides) Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tslblDocIDMain.Name = "tslblDocIDMain" Me.tslblDocIDMain.Name = "tslblDocIDMain"
resources.ApplyResources(Me.tslblDocIDMain, "tslblDocIDMain") resources.ApplyResources(Me.tslblDocIDMain, "tslblDocIDMain")
' '
@@ -1493,7 +1493,7 @@ Partial Class frmConstructor_Main
' '
'ImageCollection1 'ImageCollection1
' '
Me.ImageCollection1.ImageStream = CType(resources.GetObject("ImageCollection1.ImageStream"),DevExpress.Utils.ImageCollectionStreamer) Me.ImageCollection1.ImageStream = CType(resources.GetObject("ImageCollection1.ImageStream"), DevExpress.Utils.ImageCollectionStreamer)
' '
'ContextMenuDetails 'ContextMenuDetails
' '
@@ -1513,11 +1513,11 @@ Partial Class frmConstructor_Main
' '
'VWPMO_WF_USER_ACTIVETableAdapter 'VWPMO_WF_USER_ACTIVETableAdapter
' '
Me.VWPMO_WF_USER_ACTIVETableAdapter.ClearBeforeFill = true Me.VWPMO_WF_USER_ACTIVETableAdapter.ClearBeforeFill = True
' '
'TableAdapterManager 'TableAdapterManager
' '
Me.TableAdapterManager.BackupDataSetBeforeUpdate = false Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.Connection = Nothing Me.TableAdapterManager.Connection = Nothing
Me.TableAdapterManager.TBDD_CLIENTTableAdapter = Nothing Me.TableAdapterManager.TBDD_CLIENTTableAdapter = Nothing
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
@@ -1564,11 +1564,11 @@ Partial Class frmConstructor_Main
' '
'VWPMO_WF_ACTIVETableAdapter 'VWPMO_WF_ACTIVETableAdapter
' '
Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = true Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True
' '
'TBPMO_RECORD_VARIANTTableAdapter 'TBPMO_RECORD_VARIANTTableAdapter
' '
Me.TBPMO_RECORD_VARIANTTableAdapter.ClearBeforeFill = true Me.TBPMO_RECORD_VARIANTTableAdapter.ClearBeforeFill = True
' '
'frmConstructor_Main 'frmConstructor_Main
' '
@@ -1578,7 +1578,7 @@ Partial Class frmConstructor_Main
Me.Controls.Add(Me.StatusStrip_Main) Me.Controls.Add(Me.StatusStrip_Main)
Me.Controls.Add(Me.NavPane) Me.Controls.Add(Me.NavPane)
Me.Name = "frmConstructor_Main" Me.Name = "frmConstructor_Main"
CType(Me.SplitContainerMain,System.ComponentModel.ISupportInitialize).EndInit CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerMain.ResumeLayout(false) Me.SplitContainerMain.ResumeLayout(false)
CType(Me.SplitContainerTop,System.ComponentModel.ISupportInitialize).EndInit CType(Me.SplitContainerTop,System.ComponentModel.ISupportInitialize).EndInit
Me.SplitContainerTop.ResumeLayout(false) Me.SplitContainerTop.ResumeLayout(false)

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

@@ -125,22 +125,22 @@
<value>227, 270</value> <value>227, 270</value>
</data> </data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1084, 212</value> <value>1091, 212</value>
</data> </data>
<data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>1084, 25</value> <value>1091, 25</value>
</data> </data>
<data name="SplitContainerTop.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainerTop.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 237</value> <value>1379, 237</value>
</data> </data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 365</value> <value>1373, 372</value>
</data> </data>
<data name="TabDetails.Text" xml:space="preserve"> <data name="TabDetails.Text" xml:space="preserve">
<value>Details</value> <value>Details</value>
</data> </data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 396</value> <value>1379, 403</value>
</data> </data>
<data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@@ -151,25 +151,25 @@
</value> </value>
</data> </data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 365</value> <value>1373, 372</value>
</data> </data>
<data name="TabPos.Text" xml:space="preserve"> <data name="TabPos.Text" xml:space="preserve">
<value>positions</value> <value>positions</value>
</data> </data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 365</value> <value>1373, 372</value>
</data> </data>
<data name="TabWindream.Text" xml:space="preserve"> <data name="TabWindream.Text" xml:space="preserve">
<value>windream-files</value> <value>windream-files</value>
</data> </data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 365</value> <value>1373, 372</value>
</data> </data>
<data name="TabFollowUp.Text" xml:space="preserve"> <data name="TabFollowUp.Text" xml:space="preserve">
<value>Follow Up</value> <value>Follow Up</value>
</data> </data>
<data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 365</value> <value>1373, 372</value>
</data> </data>
<data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 645</value> <value>1379, 645</value>
@@ -478,12 +478,6 @@
<data name="NewVarianttsmi.Text" xml:space="preserve"> <data name="NewVarianttsmi.Text" xml:space="preserve">
<value>New variant</value> <value>New variant</value>
</data> </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"> <data name="ToolStripSeparator5.Size" type="System.Drawing.Size, System.Drawing">
<value>223, 6</value> <value>223, 6</value>
</data> </data>
@@ -533,16 +527,16 @@
<value>geodata navigation</value> <value>geodata navigation</value>
</data> </data>
<data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
<value>571, 286</value> <value>578, 293</value>
</data> </data>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing"> <data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>571, 24</value> <value>578, 24</value>
</data> </data>
<data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
<value>571, 26</value> <value>578, 26</value>
</data> </data>
<data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 340</value> <value>1373, 347</value>
</data> </data>
<data name="tslblDocViewLocked.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tslblDocViewLocked.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@@ -636,10 +630,10 @@
<value>No file-access</value> <value>No file-access</value>
</data> </data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 340</value> <value>1373, 347</value>
</data> </data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 340</value> <value>1373, 347</value>
</data> </data>
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@@ -751,7 +745,7 @@
<value>128, 48</value> <value>128, 48</value>
</data> </data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 340</value> <value>1373, 347</value>
</data> </data>
<data name="cmDoc1FileOpen.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmDoc1FileOpen.Size" type="System.Drawing.Size, System.Drawing">
<value>127, 22</value> <value>127, 22</value>
@@ -800,6 +794,12 @@
AABJRU5ErkJggg== AABJRU5ErkJggg==
</value> </value>
</data> </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"> <data name="GroupBox4.Text" xml:space="preserve">
<value>Special recipient for record:</value> <value>Special recipient for record:</value>
</data> </data>
@@ -845,7 +845,7 @@
<value>Saved Follow Ups</value> <value>Saved Follow Ups</value>
</data> </data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 340</value> <value>1373, 347</value>
</data> </data>
<data name="tsVariants.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsVariants.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value> <value>1373, 25</value>
@@ -859,6 +859,9 @@
<data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 645</value> <value>1379, 645</value>
</data> </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"> <data name="docCM_Open.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>209, 22</value>
</data> </data>
@@ -910,6 +913,18 @@
<data name="docCM_RenameMain.Text" xml:space="preserve"> <data name="docCM_RenameMain.Text" xml:space="preserve">
<value>Rename</value> <value>Rename</value>
</data> </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"> <data name="docCM_InWork.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>209, 22</value>
</data> </data>
@@ -925,6 +940,25 @@
<data name="WindreamToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="WindreamToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>209, 22</value>
</data> </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"> <data name="ToolStripSeparator7.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value> <value>206, 6</value>
</data> </data>
@@ -979,40 +1013,6 @@
<data name="docCM_PropertiesFile.Text" xml:space="preserve"> <data name="docCM_PropertiesFile.Text" xml:space="preserve">
<value>Properties</value> <value>Properties</value>
</data> </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"> <data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m 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 OnDateSelectedValueChanged,
AddressOf OnTextSelectedValueChanged, AddressOf OnTextSelectedValueChanged,
AddressOf OnCheckboxValueChanged, AddressOf OnCheckboxValueChanged,
CURRENT_SEARCH_TYPE) CURRENT_SEARCH_TYPE, RECORD_ID)
End If End If
Else Else
Dim selnode As TreeNode = TreeViewMain.SelectedNode Dim selnode As TreeNode = TreeViewMain.SelectedNode
@@ -3641,23 +3641,26 @@ Public Class frmConstructor_Main
If oldValue = DatePicker.EditValue Then If oldValue = DatePicker.EditValue Then
Exit Sub 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 colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName
Dim user As String = USER_USERNAME '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) Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
ClassDatabase.Execute_non_Query(Sql)
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 Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnDateSelectedValueChanged: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnDateSelectedValueChanged: ", ex.Message)
End Try End Try
@@ -3683,7 +3686,9 @@ Public Class frmConstructor_Main
Dim user As String = USER_USERNAME Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configid, value, user) 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 Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnTextSelectedValueChanged: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnTextSelectedValueChanged: ", ex.Message)
End Try End Try
@@ -3705,7 +3710,9 @@ Public Class frmConstructor_Main
Dim user As String = USER_USERNAME Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configid, value, user) 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 Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnCheckboxValueChanged: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnCheckboxValueChanged: ", ex.Message)
End Try End Try
@@ -5042,14 +5049,7 @@ Public Class frmConstructor_Main
Next Next
End Sub End Sub
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Open.Click Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Open.Click
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then Open_File()
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
End Sub End Sub
Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
Open_File() Open_File()
@@ -5431,6 +5431,9 @@ Public Class frmConstructor_Main
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
GridViewDoc_Search.EndSelection() GridViewDoc_Search.EndSelection()
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search) ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
e.Cancel = True
End If
Refresh_DocID() Refresh_DocID()
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_ID") = 0 Then If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_ID") = 0 Then
@@ -5438,7 +5441,7 @@ Public Class frmConstructor_Main
End If End If
End If End If
File_in_Work() 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 If Not IsNothing(Result) Then
ROW_READ_ONLY = False ROW_READ_ONLY = False
Select Case Result.ToString Select Case Result.ToString
@@ -5449,34 +5452,36 @@ Public Class frmConstructor_Main
ContextMenu_Write() ContextMenu_Write()
Case "RWA" Case "RWA"
ContextMenu_Write() ContextMenu_Write()
Case ""
ContextMenu_Read()
ROW_READ_ONLY = True
End Select End Select
Else
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Getting rights - check the log")
e.Cancel = True
End If End If
If ROW_READ_ONLY = False Then If ROW_READ_ONLY = False Then
If RIGHT_READ_ONLY_DOC = True Then If RIGHT_READ_ONLY_DOC = True Then
ContextMenu_Read() ContextMenu_Read()
End If End If
End If End If
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If Not IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then docCM_RenameMain.Visible = True
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then Set_Displayname()
docCM_RenameMain.Visible = True
Set_Displayname()
Else
docCM_RenameMain.Visible = False
End If
Else Else
docCM_RenameMain.Visible = False docCM_RenameMain.Visible = False
End If End If
Else Else
e.Cancel = True docCM_RenameMain.Visible = False
End If End If
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Opening DocContextMenu: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Opening DocContextMenu: ", ex.Message)
Finally Finally
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Try End Try
End Sub End Sub
Sub File_in_Work() Sub File_in_Work()
@@ -5820,14 +5825,13 @@ Public Class frmConstructor_Main
Catch ex As Exception Catch ex As Exception
End Try End Try
End Sub End Sub
Private Sub DateirechteFürUserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_GetRights.Click 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 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 If USER_LANGUAGE <> "de-DE" Then
msg = "Your current right is: " msg = "Your (" & USER_USERNAME & ") current right is: "
End If End If
msg = msg & result.ToString msg = msg & result.ToString
msg = msg & vbNewLine & vbNewLine & "R:" & vbTab & "Read" & vbNewLine & "W:" & vbTab & "Write" & vbNewLine & "A:" & vbTab & "Admin" 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 End If
MessageBox.Show(msg, "Warning:", MessageBoxButtons.OK, MessageBoxIcon.Information) MessageBox.Show(msg, "Warning:", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If End If
End Sub End Sub
Private Sub showRecordLogtsbtn_Click(sender As Object, e As EventArgs) Handles showRecordLogtsmi.Click Private Sub showRecordLogtsbtn_Click(sender As Object, e As EventArgs) Handles showRecordLogtsmi.Click
@@ -5963,7 +5967,7 @@ Public Class frmConstructor_Main
End If End If
MessageBox.Show(msg, "Warning:", MessageBoxButtons.OK, MessageBoxIcon.Information) MessageBox.Show(msg, "Warning:", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If End If
End Sub End Sub
Private Sub tsbtnRefresh_Entity_Click(sender As Object, e As EventArgs) Handles tsbtnRefresh_Entity.Click 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 Me.Cursor = Cursors.WaitCursor
Dim allow_Open As Boolean = False Dim allow_Open As Boolean = False
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search) 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 If Not IsNothing(Result) Then
Select Case Result.ToString Select Case Result.ToString
Case "R" Case "R"
ContextMenu_Read() ContextMenu_Read()
@@ -6350,6 +6353,12 @@ Public Class frmConstructor_Main
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID")) ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
Next 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 End If
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub End Sub
@@ -6406,7 +6415,7 @@ Public Class frmConstructor_Main
Catch ex As Exception Catch ex As Exception
End Try End Try
End Sub 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 Private Sub cmsResultFilesBasic_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cmsResultFilesBasic.Opening
Try Try
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search) Dim Result = clsWD_GET.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH, USER_USERNAME)
Dim Result = ClassWindream.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH)
If Not IsNothing(Result) Then If Not IsNothing(Result) Then
Select Case Result.ToString Select Case Result.ToString
Case "R" Case "R"
@@ -6459,7 +6467,7 @@ Public Class frmConstructor_Main
Finally Finally
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Try End Try
End Sub End Sub
Private Sub OrdnerÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OrdnerÖffnenToolStripMenuItem.Click Private Sub OrdnerÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OrdnerÖffnenToolStripMenuItem.Click
@@ -6497,7 +6505,7 @@ Public Class frmConstructor_Main
Finally Finally
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Try End Try
End Sub End Sub
'Private Sub GridViewDoc_Search_MasterRowExpanded(sender As Object, e As CustomMasterRowEventArgs) Handles GridViewDoc_Search.MasterRowExpanded '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.IO
Imports System.Runtime.InteropServices Imports System.Runtime.InteropServices
Imports DevExpress.XtraEditors Imports DevExpress.XtraEditors
Imports DD_LIB_Standards
Public Class frmRecordView Public Class frmRecordView
Private recordView As ClassRecordView Private recordView As ClassRecordView
@@ -163,7 +164,7 @@ Public Class frmRecordView
AddressOf OnDateSelectedValueChanged, AddressOf OnDateSelectedValueChanged,
AddressOf OnTextSelectedValueChanged, AddressOf OnTextSelectedValueChanged,
AddressOf OnCheckboxValueChanged, AddressOf OnCheckboxValueChanged,
"RECORD") "RECORD", JUMP_RECORD_ID)
End If End If
Else Else
Dim msg = "Keine Windream-Dokumente für Record: " & JUMP_RECORD_ID & " gefunden" 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 Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search) 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 If Not IsNothing(Result) Then
Select Case Result.ToString 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 Public Class frmWD_ChangeDoctype
Private formloaded As Boolean = False Private formloaded As Boolean = False
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click 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 NewDoctype As String
Dim DOCTYPE_ID Dim DOCTYPE_ID
Dim OBJECTTYPE As String 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 Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
clsDatabase.GUI = True clsDatabase.GUI = True
If clsWindream.Create_Session = True Then For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows If clsWD_SET.Create_Version(row.Item("FILEPATH"), txtComment.Text) Then
If clsWD_SET.Create_Version(row.Item("FILEPATH"), txtComment.Text) Then MsgBox("Version was created successfully!", MsgBoxStyle.Information)
MsgBox("Version was created successfully!", MsgBoxStyle.Information) Dim sql = "SELECT Version from TBPMO_DOCRESULT_LIST Where DocID = " & row.Item("DOC_ID")
Dim sql = "SELECT Version from TBPMO_DOCRESULT_LIST Where DocID = " & row.Item("DOC_ID") Dim VERSION = clsDatabase.Execute_Scalar(sql, True)
Dim VERSION = clsDatabase.Execute_Scalar(sql, True) If Not IsNothing(VERSION) Then
If Not IsNothing(VERSION) Then VERSION = VERSION + 1
VERSION = VERSION + 1 Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Version = {0} WHERE DocID = {1}", VERSION, row.Item("DOC_ID"))
Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Version = {0} WHERE DocID = {1}", VERSION, row.Item("DOC_ID")) clsDatabase.Execute_non_Query(upd)
clsDatabase.Execute_non_Query(upd) If LICENSE_SITE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
If LICENSE_SITE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then clsDatabase.Execute_non_Query(upd, True)
clsDatabase.Execute_non_Query(upd, True)
End If
End If End If
Else
MsgBox("Could not create a version for file '" & row.Item("FILEPATH") & "'! Check log", MsgBoxStyle.Exclamation)
End If End If
Me.Close() Else
Next 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() Me.Close()
End Sub End Sub
End Class End Class