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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-05-11 10:37:00 +02:00
parent 17946f1a19
commit f4d1a8c8b1
13 changed files with 273 additions and 187 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
app/DD-Record-Organizer/App.config
View File

@ -9,7 +9,9 @@
</sectionGroup> </sectionGroup>
</configSections> </configSections>
<connectionStrings> <connectionStrings>
<add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=ddd" providerName="System.Data.SqlClient"/> <add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString"
connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=ddd"
providerName="System.Data.SqlClient" />
</connectionStrings> </connectionStrings>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/>
@ -23,19 +25,19 @@
<value>*.*</value> <value>*.*</value>
</setting> </setting>
<setting name="WD_ENTITYIMP_IMPPATH" serializeAs="String"> <setting name="WD_ENTITYIMP_IMPPATH" serializeAs="String">
<value/> <value />
</setting> </setting>
<setting name="WD_ENTITYIMP_TARGETPATH" serializeAs="String"> <setting name="WD_ENTITYIMP_TARGETPATH" serializeAs="String">
<value/> <value />
</setting> </setting>
<setting name="WD_ENTITYIMP_SAFETYPATH" serializeAs="String"> <setting name="WD_ENTITYIMP_SAFETYPATH" serializeAs="String">
<value/> <value />
</setting> </setting>
<setting name="WD_ENTITYIMP_OBJECTTYPE" serializeAs="String"> <setting name="WD_ENTITYIMP_OBJECTTYPE" serializeAs="String">
<value/> <value />
</setting> </setting>
<setting name="WD_INDEXDOKART_SAVE" serializeAs="String"> <setting name="WD_INDEXDOKART_SAVE" serializeAs="String">
<value/> <value />
</setting> </setting>
<setting name="User_Calendar_isChild" serializeAs="String"> <setting name="User_Calendar_isChild" serializeAs="String">
<value>True</value> <value>True</value>
@ -50,13 +52,16 @@
<value>False</value> <value>False</value>
</setting> </setting>
<setting name="TBPMO_RIGHT_GROUPDataGridView" serializeAs="String"> <setting name="TBPMO_RIGHT_GROUPDataGridView" serializeAs="String">
<value/> <value />
</setting> </setting>
<setting name="frmRecordViewSplitter" serializeAs="String"> <setting name="frmRecordViewSplitter" serializeAs="String">
<value>332</value> <value>332</value>
</setting> </setting>
<setting name="TBPMO_RIGHT_USERDataGridView" serializeAs="String"> <setting name="TBPMO_RIGHT_USERDataGridView" serializeAs="String">
<value/> <value />
</setting>
<setting name="UserDocIDIndexname" serializeAs="String">
<value>Dokument-ID</value>
</setting> </setting>
</DD_Record_Organizer.My.MySettings> </DD_Record_Organizer.My.MySettings>
</userSettings> </userSettings>

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

@ -369,6 +369,8 @@ Public Class ClassDOC_SEARCH
NewRow.Item(0) = My.Resources.xls NewRow.Item(0) = My.Resources.xls
Case ".xlsx".ToUpper Case ".xlsx".ToUpper
NewRow.Item(0) = My.Resources.xls NewRow.Item(0) = My.Resources.xls
Case ".xlsm".ToUpper
NewRow.Item(0) = My.Resources.xls
Case ".ppt".ToUpper Case ".ppt".ToUpper
NewRow.Item(0) = My.Resources.ppt NewRow.Item(0) = My.Resources.ppt
Case ".pptx".ToUpper Case ".pptx".ToUpper

8
app/DD-Record-Organizer/ClassInit.vb
View File

@ -149,10 +149,10 @@ Public Class ClassInit
clsCURRENT.USER_LANGUAGE = USER_LANGUAGE clsCURRENT.USER_LANGUAGE = USER_LANGUAGE
USER_DATE_FORMAT = USER_DT.Rows(0).Item("DATE_FORMAT") USER_DATE_FORMAT = USER_DT.Rows(0).Item("DATE_FORMAT")
USER_GENERAL_VIEWER = USER_DT.Rows(0).Item("GENERAL_VIEWER") USER_GENERAL_VIEWER = USER_DT.Rows(0).Item("GENERAL_VIEWER")
sql = String.Format("SELECT COUNT(T.GUID) FROM TBDD_USER_MODULES T, TBDD_MODULES T1 WHERE T.MODULE_ID = T1.GUID AND T1.NAME = 'Record-Organizer' AND T.USER_ID = {0}", USER_GUID) sql = String.Format("SELECT * FROM TBDD_USER_MODULES T, TBDD_MODULES T1 WHERE T.MODULE_ID = T1.GUID AND T1.NAME = 'Record-Organizer' AND T.USER_ID = {0}", USER_GUID)
Dim USER2MODULE = clsDatabase.Execute_Scalar(sql) Dim USER2MODULE As DataTable = clsDatabase.Return_Datatable(sql)
If Not IsNothing(USER2MODULE) Then If Not IsNothing(USER2MODULE) Then
If USER2MODULE = 1 Then If USER2MODULE.Rows.Count = 1 Then
Right_RO = True Right_RO = True
End If End If
Else Else
@ -207,7 +207,7 @@ Public Class ClassInit
sql = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME,CONNECTION_STRING) VALUES ({0},{1},'Record-Organizer','{2}','{3}','{4}')", USER_GUID, CLIENT_SELECTED, My.Application.Info.Version.ToString, Environment.MachineName, ConStringMain) sql = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME,CONNECTION_STRING) VALUES ({0},{1},'Record-Organizer','{2}','{3}','{4}')", USER_GUID, CLIENT_SELECTED, My.Application.Info.Version.ToString, Environment.MachineName, ConStringMain)
ClassDatabase.Execute_non_Query(sql) ClassDatabase.Execute_non_Query(sql)
USER_IS_ADMIN = USER_DT.Rows(0).Item("RECORD_ADMIN") USER_IS_ADMIN = USER2MODULE.Rows(0).Item("IS_ADMIN") 'vorher RECORD_ADMIN
If USER_IS_ADMIN = True Then If USER_IS_ADMIN = True Then
If ESC_Hidden = True Then If ESC_Hidden = True Then
frmLoginUserSelect.ShowDialog() frmLoginUserSelect.ShowDialog()

144
app/DD-Record-Organizer/ClassWindreamDocGrid.vb
View File

@ -416,81 +416,93 @@ Public Class ClassWindreamDocGrid
End Sub End Sub
Private Shared Sub gridView_CustomColumnDisplayText(sender As Object, e As CustomColumnDisplayTextEventArgs) Private Shared Sub gridView_CustomColumnDisplayText(sender As Object, e As CustomColumnDisplayTextEventArgs)
Dim view As ColumnView = sender Try
Dim parsedDate As DateTime Dim view As ColumnView = sender
Dim parsedDate As DateTime
If DATE_COLUMNS.Contains(e.Column.FieldName) And e.ListSourceRowIndex <> DevExpress.XtraGrid.GridControl.InvalidRowHandle Then If DATE_COLUMNS.Contains(e.Column.FieldName) And e.ListSourceRowIndex <> DevExpress.XtraGrid.GridControl.InvalidRowHandle Then
If e.Value.ToString() = String.Empty Then
e.DisplayText = ""
Exit Sub
End If
If Not DateTime.TryParse(e.Value, parsedDate) Then
parsedDate = DateTime.ParseExact(e.Value, CURRENT_DATE_FORMAT & " HH:MM:ss", System.Globalization.DateTimeFormatInfo.InvariantInfo)
End If
e.DisplayText = parsedDate.ToString(CURRENT_DATE_FORMAT & " HH:MM:ss")
ElseIf DATE_COLUMNS_CONFIG.Contains(e.Column.FieldName) And e.ListSourceRowIndex <> DevExpress.XtraGrid.GridControl.InvalidRowHandle Then
If e.Value.ToString() = String.Empty Then
e.DisplayText = ""
Exit Sub
End If
If Not DateTime.TryParse(e.Value, parsedDate) Then
parsedDate = DateTime.ParseExact(e.Value, CURRENT_DATE_FORMAT, System.Globalization.DateTimeFormatInfo.InvariantInfo)
End If
e.DisplayText = parsedDate.ToString(CURRENT_DATE_FORMAT)
If e.Value.ToString() = String.Empty Then
e.DisplayText = ""
Exit Sub
End If End If
Catch ex As Exception
ClassLogger.Add("Unexpected error in gridView_CustomColumnDisplayText: " & ex.Message, False, False)
MsgBox("Unexpected error in gridView_CustomColumnDisplayText: " & ex.Message, MsgBoxStyle.Critical)
End Try
If Not DateTime.TryParse(e.Value, parsedDate) Then
parsedDate = DateTime.ParseExact(e.Value, CURRENT_DATE_FORMAT & " HH:MM:ss", System.Globalization.DateTimeFormatInfo.InvariantInfo)
End If
e.DisplayText = parsedDate.ToString(CURRENT_DATE_FORMAT & " HH:MM:ss")
ElseIf DATE_COLUMNS_CONFIG.Contains(e.Column.FieldName) And e.ListSourceRowIndex <> DevExpress.XtraGrid.GridControl.InvalidRowHandle Then
If e.Value.ToString() = String.Empty Then
e.DisplayText = ""
Exit Sub
End If
If Not DateTime.TryParse(e.Value, parsedDate) Then
parsedDate = DateTime.ParseExact(e.Value, CURRENT_DATE_FORMAT, System.Globalization.DateTimeFormatInfo.InvariantInfo)
End If
e.DisplayText = parsedDate.ToString(CURRENT_DATE_FORMAT)
End If
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)
ClassWindreamDocGrid.GetDocItems(sender) Try
Dim GW As GridView = sender ClassWindreamDocGrid.GetDocItems(sender)
If SELECTED_DOC_ID = 0 Then Dim GW As GridView = sender
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation) If SELECTED_DOC_ID = 0 Then
Exit Sub MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
End If Exit Sub
Dim detailView As GridView = sender.GetDetailView(e.RowHandle, e.RelationIndex)
With detailView.Columns
'Spalten ausblenden
.Item("GUID").Visible = False
.Item("DocID").Visible = False
.Item("CONFIG_ID").Visible = False
.Item("LANGUAGE").Visible = False
.Item("COLUMN_VIEW").Visible = False
.Item("EDITABLE").Visible = False
.Item("TYPE_ID").Visible = False
.Item("VISIBLE").Visible = False
'Spalten formatieren
.Item("CHANGED_WHEN").DisplayFormat.FormatType = FormatType.DateTime
.Item("CHANGED_WHEN").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
If USER_LANGUAGE = "de-DE" Then
.Item("HEADER_CAPTION").Caption = "Beschreibung"
.Item("VALUE").Caption = "Wert"
.Item("CHANGED_WHEN").Caption = "Geändert Wann"
.Item("CHANGED_WHO").Caption = "Geändert Wer"
Else
.Item("HEADER_CAPTION").Caption = "Description"
.Item("VALUE").Caption = "Value"
.Item("CHANGED_WHEN").Caption = "Changed when"
.Item("CHANGED_WHO").Caption = "changed Who"
End If End If
End With
If Not IsNothing(GW.GridControl.ContextMenuStrip.Name) Then Dim detailView As GridView = sender.GetDetailView(e.RowHandle, e.RelationIndex)
If GW.GridControl.ContextMenuStrip.Name = "cmsResultFilesBasic" Then With detailView.Columns
detailView.OptionsBehavior.Editable = False 'Spalten ausblenden
Else .Item("GUID").Visible = False
detailView.OptionsBehavior.Editable = True .Item("DocID").Visible = False
.Item("CONFIG_ID").Visible = False
.Item("LANGUAGE").Visible = False
.Item("COLUMN_VIEW").Visible = False
.Item("EDITABLE").Visible = False
.Item("TYPE_ID").Visible = False
.Item("VISIBLE").Visible = False
'Spalten formatieren
.Item("CHANGED_WHEN").DisplayFormat.FormatType = FormatType.DateTime
.Item("CHANGED_WHEN").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
If USER_LANGUAGE = "de-DE" Then
.Item("HEADER_CAPTION").Caption = "Beschreibung"
.Item("VALUE").Caption = "Wert"
.Item("CHANGED_WHEN").Caption = "Geändert Wann"
.Item("CHANGED_WHO").Caption = "Geändert Wer"
Else
.Item("HEADER_CAPTION").Caption = "Description"
.Item("VALUE").Caption = "Value"
.Item("CHANGED_WHEN").Caption = "Changed when"
.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 End If
End If AddHandler detailView.CustomRowCellEdit, AddressOf detailView_CustomRowCellEdit
AddHandler detailView.CustomRowCellEdit, AddressOf detailView_CustomRowCellEdit Catch ex As Exception
ClassLogger.Add("Unexpected error in gridView_MasterRowExpanded: " & ex.Message, False, False)
MsgBox("Unexpected error in gridView_MasterRowExpanded: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub End Sub
Public Class WindreamDocGridComboboxItem Public Class WindreamDocGridComboboxItem

14
app/DD-Record-Organizer/My Project/Settings.Designer.vb generated
View File

@ -15,7 +15,7 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.0.1.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.5.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase
@ -254,6 +254,18 @@ Namespace My
Return CType(Me("windreamGruppe"),String) Return CType(Me("windreamGruppe"),String)
End Get End Get
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Dokument-ID")> _
Public Property UserDocIDIndexname() As String
Get
Return CType(Me("UserDocIDIndexname"),String)
End Get
Set
Me("UserDocIDIndexname") = value
End Set
End Property
End Class End Class
End Namespace End Namespace

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

@ -1,3 +1,4 @@
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

2
app/DD-Record-Organizer/frmConstructor_Main.resx
View File

@ -369,7 +369,7 @@
<value>Suche Knoten</value> <value>Suche Knoten</value>
</data> </data>
<data name="cmsTreeView.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmsTreeView.Size" type="System.Drawing.Size, System.Drawing">
<value>221, 185</value> <value>221, 207</value>
</data> </data>
<data name="&gt;&gt;cmsTreeView.Name" xml:space="preserve"> <data name="&gt;&gt;cmsTreeView.Name" xml:space="preserve">
<value>cmsTreeView</value> <value>cmsTreeView</value>

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

@ -130,7 +130,7 @@ Public Class frmConstructor_Main
Private _FormClosing As Boolean = False Private _FormClosing As Boolean = False
Private ENTITY_LOADED As Boolean = False Private ENTITY_LOADING_PROCESS As Boolean = False
Private LinkParentID As Integer Private LinkParentID As Integer
@ -850,7 +850,7 @@ Public Class frmConstructor_Main
GridControlMain.MainView = grvwTiles GridControlMain.MainView = grvwTiles
End Sub End Sub
Public Function Get_Pos_SQL(FormId As Integer) Public Function Get_Pos_SQL(FormId As Integer)
POS_SQL = "Select T.* FROM VWPMO_ENTITY_TABLE" & FormId.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID And T1.RECORD1_ID = @PARENT_ID" POS_SQL = String.Format("Select T.* FROM VWPMO_ENTITY_TABLE{0} T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID And T1.RECORD1_ID = @PARENT_ID", FormId.ToString)
End Function End Function
Public Sub Clear_Grid_View() Public Sub Clear_Grid_View()
GridControlMain.DataSource = Nothing GridControlMain.DataSource = Nothing
@ -961,7 +961,7 @@ Public Class frmConstructor_Main
Exit Sub Exit Sub
End If End If
'Aussteigen, wenng erade die Entität gewechselt wird 'Aussteigen, wenng erade die Entität gewechselt wird
If ENTITY_LOADED = False Then If ENTITY_LOADING_PROCESS = False Then
Exit Sub Exit Sub
End If End If
If GRIDRightMouse_Clicked Then If GRIDRightMouse_Clicked Then
@ -1234,7 +1234,7 @@ Public Class frmConstructor_Main
Update_Status_Label(True, SelectedNode.Tag) Update_Status_Label(True, SelectedNode.Tag)
ClassNodeNavigation.Check_NODE_CONFIG_ID(ENTITY_ID) ClassNodeNavigation.Check_NODE_CONFIG_ID(ENTITY_ID)
If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then
Dim Record = ClassNodeNavigation.Return_RECORD_forTag(SelectedNode.Tag) Dim Record = ClassNodeNavigation.Return_RECORD_forTag(SelectedNode.Tag)
If Record <> 0 Then If Record <> 0 Then
@ -1436,25 +1436,37 @@ Public Class frmConstructor_Main
' Exit Sub ' Exit Sub
'End If 'End If
Try Try
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then
'CURRENT_DATE_FORMAT = USER_DATE_FORMAT Dim _TagENT_ID = ClassNodeNavigation.Return_ENTITY_FOR_TAG(SelectedNode.Tag)
If _TagENT_ID <> 0 And _TagENT_ID <> ENTITY_ID Then
If NODE_NAVIGATION = True Then ENTITY_ID = _TagENT_ID
If NODE_NAVIGATION_LOADED = True Then CURRENT_ENTITY_ID = ENTITY_ID
Exit Sub
Else Else
NODE_NAVIGATION_LOADED = True Exit Sub
End If End If
End If End If
'If NODE_NAVIGATION = True Then
' If NODE_NAVIGATION_LOADED = True Then
' Exit Sub
' Else
' NODE_NAVIGATION_LOADED = True
' End If
'End If
Dim sw As New SW("Load_Datafor_Entity") Dim sw As New SW("Load_Datafor_Entity")
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then If SelectedNode IsNot Nothing Then
ENTITY_LOADED = False ENTITY_LOADING_PROCESS = False
ENTITY_ID = ClassNodeNavigation.Return_ENTITY_FOR_TAG(SelectedNode.Tag) 'If NODE_NAVIGATION = True Then
CURRENT_ENTITY_ID = ENTITY_ID ' ENTITY_ID = ClassNodeNavigation.Return_ENTITY_FOR_TAG(SelectedNode.Tag)
' CURRENT_ENTITY_ID = ENTITY_ID
'End If
Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable() Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form Select form
Where form.Item("FORM_ID") = ENTITY_ID).Single() Where form.Item("FORM_ID") = ENTITY_ID).Single()
@ -1534,7 +1546,7 @@ Public Class frmConstructor_Main
Get_RecordCounts_Nodes() Get_RecordCounts_Nodes()
End If End If
sw.Done() sw.Done()
Load_Entity_Data() Load_Entity_Data_CONTROLS_RECORDS()
@ -1731,7 +1743,7 @@ Public Class frmConstructor_Main
End Sub End Sub
Private Sub OnRecordChanged(sender As Object, e As System.EventArgs) Private Sub OnRecordChanged(sender As Object, e As System.EventArgs)
If ENTITY_LOADED Then If ENTITY_LOADING_PROCESS Then
RECORD_CHANGED = True RECORD_CHANGED = True
End If End If
@ -2088,7 +2100,7 @@ Public Class frmConstructor_Main
RECORD_CHANGED = False RECORD_CHANGED = False
'Den derzeitigen Record Neuladen 'Den derzeitigen Record Neuladen
DisableEditMode() DisableEditMode()
Load_Entity_Data() Load_Entity_Data_CONTROLS_RECORDS()
RECORD_CHANGED = False RECORD_CHANGED = False
End If End If
End If End If
@ -2275,7 +2287,7 @@ Public Class frmConstructor_Main
#End Region #End Region
Sub Load_Entity_Data() Sub Load_Entity_Data_CONTROLS_RECORDS()
Try Try
If LogErrorsOnly = False Then ClassLogger.Add("START Load_Entity_Data", False) If LogErrorsOnly = False Then ClassLogger.Add("START Load_Entity_Data", False)
Dim sw As New SW("Load_Entity_Data") Dim sw As New SW("Load_Entity_Data")
@ -2625,7 +2637,7 @@ Public Class frmConstructor_Main
End Try End Try
DT_SELECTION = DTEntity DT_SELECTION = DTEntity
LoadGrid_Selection() LoadGrid_Records()
If GRID_TYPE = GridType.Grid Then If GRID_TYPE = GridType.Grid Then
grvwGrid.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.None grvwGrid.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.None
grvwGrid.OptionsBehavior.Editable = False grvwGrid.OptionsBehavior.Editable = False
@ -2673,7 +2685,7 @@ Public Class frmConstructor_Main
CtrlBuilder.WatchRecordChanges = True CtrlBuilder.WatchRecordChanges = True
'Zurücksetzen 'Zurücksetzen
ENTITY_LOADED = True ENTITY_LOADING_PROCESS = True
Dim RecLoaded As Boolean = False Dim RecLoaded As Boolean = False
If LOAD_DIRECT = True Then If LOAD_DIRECT = True Then
Load_Record_Direct() Load_Record_Direct()
@ -2720,7 +2732,7 @@ Public Class frmConstructor_Main
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Load_Entity_Data", ex.Message, ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Load_Entity_Data", ex.Message, ex.StackTrace)
Finally Finally
'Me.Cursor = Cursors.Default 'Me.Cursor = Cursors.Default
ENTITY_LOADED = True ENTITY_LOADING_PROCESS = True
End Try End Try
@ -2756,18 +2768,18 @@ Public Class frmConstructor_Main
End Sub End Sub
Sub Load_Entity_Data_Only() Sub Load_Entity_Data_Only()
Try Try
ENTITY_LOADED = False ENTITY_LOADING_PROCESS = False
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, True) Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, True)
Dim primaryKey(1) As DataColumn Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID") primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey DTEntity.PrimaryKey = primaryKey
DT_SELECTION = DTEntity DT_SELECTION = DTEntity
LoadGrid_Selection() LoadGrid_Records()
Load_Grid_Layout() Load_Grid_Layout()
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
End Try End Try
ENTITY_LOADED = True ENTITY_LOADING_PROCESS = True
End Sub End Sub
Sub CreateTile() Sub CreateTile()
@ -3041,7 +3053,7 @@ Public Class frmConstructor_Main
Return 0 Return 0
End Try End Try
End Function End Function
Private Function LoadGrid_Selection() Private Function LoadGrid_Records()
Try Try
If GRID_TYPE = GridType.Tiles Then If GRID_TYPE = GridType.Tiles Then
CreateTile() CreateTile()
@ -3089,7 +3101,7 @@ Public Class frmConstructor_Main
tslbldisplayRecords.Text = msg & Get_Grid_Row_Count() tslbldisplayRecords.Text = msg & Get_Grid_Row_Count()
End If End If
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in LoadGrid_Records", ex.Message, ex.StackTrace)
Return False Return False
End Try End Try
@ -3512,7 +3524,7 @@ Public Class frmConstructor_Main
windream_inited = False windream_inited = False
End Try End Try
SW.Done() sw.Done()
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
@ -4110,7 +4122,7 @@ Public Class frmConstructor_Main
Dim XMLPath = Get_Grid_Layout_Filename() Dim XMLPath = Get_Grid_Layout_Filename()
If File.Exists(XMLPath) Then If File.Exists(XMLPath) Then
File.Delete(XMLPath) File.Delete(XMLPath)
Load_Entity_Data() Load_Entity_Data_CONTROLS_RECORDS()
End If End If
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Reset Layout Grid: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Reset Layout Grid: ", ex.Message)
@ -4481,7 +4493,7 @@ Public Class frmConstructor_Main
End Try End Try
End Sub End Sub
Private Sub dtpWV_ValueChanged(sender As Object, e As EventArgs) Handles dtpFollowUp.ValueChanged Private Sub dtpWV_ValueChanged(sender As Object, e As EventArgs) Handles dtpFollowUp.ValueChanged
If ENTITY_LOADED = False = False Then If ENTITY_LOADING_PROCESS = False = False Then
Exit Sub Exit Sub
End If End If
If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DATE_CTRL_ID, RECORD_ID, dtpFollowUp.Value, CURRENT_ENTITY_ID) = True Then If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DATE_CTRL_ID, RECORD_ID, dtpFollowUp.Value, CURRENT_ENTITY_ID) = True Then
@ -4495,7 +4507,7 @@ Public Class frmConstructor_Main
End Sub End Sub
Private Sub chkFollowUp_CheckedChanged(sender As Object, e As EventArgs) Handles chkFollowUp.CheckedChanged Private Sub chkFollowUp_CheckedChanged(sender As Object, e As EventArgs) Handles chkFollowUp.CheckedChanged
If ENTITY_LOADED = False Then If ENTITY_LOADING_PROCESS = False Then
Exit Sub Exit Sub
End If End If
If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DONE_CTRL_ID, RECORD_ID, chkFollowUp.Checked.ToString, CURRENT_ENTITY_ID) = True Then If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DONE_CTRL_ID, RECORD_ID, chkFollowUp.Checked.ToString, CURRENT_ENTITY_ID) = True Then
@ -4952,6 +4964,7 @@ Public Class frmConstructor_Main
Dim ColorRow As Color Dim ColorRow As Color
Try Try
ColorRow = Color.FromName(rowCellValue) ColorRow = Color.FromName(rowCellValue)
If LogErrorsOnly = False Then ClassLogger.Add(">> RowBackColor '" & rowCellValue & "' will be used for record: " & Get_Focused_Row_Cell_Value("Record-ID"), False)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(">> RowBackColor '" & rowCellValue & "'could not be converted from name!", False) ClassLogger.Add(">> RowBackColor '" & rowCellValue & "'could not be converted from name!", False)
Exit Sub Exit Sub
@ -6194,7 +6207,7 @@ Public Class frmConstructor_Main
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Dim SQL = String.Format("EXEC PRPMO_COPY_RECORD {0}, '{1}'", RECORD_ID, USER_USERNAME) Dim SQL = String.Format("EXEC PRPMO_COPY_RECORD {0}, '{1}'", RECORD_ID, USER_USERNAME)
If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then
Load_Entity_Data() Load_Entity_Data_CONTROLS_RECORDS()
End If End If
End If End If
Else Else
@ -6224,7 +6237,7 @@ Public Class frmConstructor_Main
CURRENT_ENTITY_ID = ENTITY_ID CURRENT_ENTITY_ID = ENTITY_ID
ClassControlValueCache.ClearCache() ClassControlValueCache.ClearCache()
DisableEditMode() DisableEditMode()
Load_Entity_Data() Load_Entity_Data_CONTROLS_RECORDS()
RECORD_CHANGED = False RECORD_CHANGED = False
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Clear Cache: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Clear Cache: ", ex.Message)

22
app/DD-Record-Organizer/frmDiagrams.en-US.resx
View File

@ -118,6 +118,28 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ChartTopLeft.Size" type="System.Drawing.Size, System.Drawing">
<value>386, 362</value>
</data>
<data name="ChartTopRight.Size" type="System.Drawing.Size, System.Drawing">
<value>770, 362</value>
</data>
<data name="SplitContainerTop.Size" type="System.Drawing.Size, System.Drawing">
<value>1160, 387</value>
</data>
<data name="ChartBottomLeft.Size" type="System.Drawing.Size, System.Drawing">
<value>386, 227</value>
</data>
<data name="ChartBottomRight.Size" type="System.Drawing.Size, System.Drawing">
<value>770, 227</value>
</data>
<data name="SplitContainerBottom.Size" type="System.Drawing.Size, System.Drawing">
<value>1160, 252</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="SplitContainerMain.SplitterDistance" type="System.Int32, mscorlib">
<value>387</value>
</data>
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>98, 22</value> <value>98, 22</value>
</data> </data>

52
app/DD-Record-Organizer/frmDiagrams.resx
View File

@ -150,9 +150,6 @@
<data name="ChartTopRight.TabIndex" type="System.Int32, mscorlib"> <data name="ChartTopRight.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
</data> </data>
<data name="SplitContainerBottom.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="ToolStripTopLeft.Location" type="System.Drawing.Point, System.Drawing"> <data name="ToolStripTopLeft.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
@ -160,7 +157,7 @@
<value>0</value> <value>0</value>
</data> </data>
<data name="&gt;&gt;ChartTopRight.Type" xml:space="preserve"> <data name="&gt;&gt;ChartTopRight.Type" xml:space="preserve">
<value>DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="ChartBottomLeft.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms"> <data name="ChartBottomLeft.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value> <value>Fill</value>
@ -222,6 +219,9 @@
<data name="&gt;&gt;ToolStripBottomRight.ZOrder" xml:space="preserve"> <data name="&gt;&gt;ToolStripBottomRight.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </data>
<data name="&gt;&gt;ToolStripBottomLeft.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SplitContainerMain.Panel2.Name" xml:space="preserve"> <data name="&gt;&gt;SplitContainerMain.Panel2.Name" xml:space="preserve">
<value>SplitContainerMain.Panel2</value> <value>SplitContainerMain.Panel2</value>
</data> </data>
@ -420,7 +420,7 @@
<value>SplitContainerMain.Panel1</value> <value>SplitContainerMain.Panel1</value>
</data> </data>
<data name="&gt;&gt;ChartTopLeft.Type" xml:space="preserve"> <data name="&gt;&gt;ChartTopLeft.Type" xml:space="preserve">
<value>DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;SplitContainerTop.Panel1.Name" xml:space="preserve"> <data name="&gt;&gt;SplitContainerTop.Panel1.Name" xml:space="preserve">
<value>SplitContainerTop.Panel1</value> <value>SplitContainerTop.Panel1</value>
@ -446,9 +446,6 @@
<data name="&gt;&gt;ToolStripBottomLeft.Parent" xml:space="preserve"> <data name="&gt;&gt;ToolStripBottomLeft.Parent" xml:space="preserve">
<value>SplitContainerBottom.Panel1</value> <value>SplitContainerBottom.Panel1</value>
</data> </data>
<data name="&gt;&gt;ToolStripSeparator1.Name" xml:space="preserve">
<value>ToolStripSeparator1</value>
</data>
<data name="&gt;&gt;saveDialog.Name" xml:space="preserve"> <data name="&gt;&gt;saveDialog.Name" xml:space="preserve">
<value>saveDialog</value> <value>saveDialog</value>
</data> </data>
@ -458,6 +455,9 @@
<data name="&gt;&gt;ToolStripLabel1.Type" xml:space="preserve"> <data name="&gt;&gt;ToolStripLabel1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;SplitContainerMain.Panel2.Type" xml:space="preserve">
<value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SplitContainerTop.Panel1.Parent" xml:space="preserve"> <data name="&gt;&gt;SplitContainerTop.Panel1.Parent" xml:space="preserve">
<value>SplitContainerTop</value> <value>SplitContainerTop</value>
</data> </data>
@ -470,9 +470,6 @@
<data name="ToolStripBottomLeft.TabIndex" type="System.Int32, mscorlib"> <data name="ToolStripBottomLeft.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
</data> </data>
<data name="&gt;&gt;ToolStripSeparator1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SplitContainerTop.Panel2.Type" xml:space="preserve"> <data name="&gt;&gt;SplitContainerTop.Panel2.Type" xml:space="preserve">
<value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
@ -483,15 +480,15 @@
<value>101, 22</value> <value>101, 22</value>
</data> </data>
<data name="&gt;&gt;ChartBottomRight.Type" xml:space="preserve"> <data name="&gt;&gt;ChartBottomRight.Type" xml:space="preserve">
<value>DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;ToolStripBottomLeft.Name" xml:space="preserve"> <data name="&gt;&gt;ToolStripBottomLeft.Name" xml:space="preserve">
<value>ToolStripBottomLeft</value> <value>ToolStripBottomLeft</value>
</data> </data>
<data name="&gt;&gt;ToolStripBottomLeft.Type" xml:space="preserve"> <data name="&gt;&gt;ToolStripSeparator1.Name" xml:space="preserve">
<value>System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>ToolStripSeparator1</value>
</data> </data>
<data name="SplitContainerTop.Location" type="System.Drawing.Point, System.Drawing"> <data name="SplitContainerBottom.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="&gt;&gt;ChartBottomLeft.Name" xml:space="preserve"> <data name="&gt;&gt;ChartBottomLeft.Name" xml:space="preserve">
@ -566,8 +563,11 @@
<data name="SplitContainerMain.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="SplitContainerMain.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value> <value>Top, Bottom, Left, Right</value>
</data> </data>
<data name="&gt;&gt;SplitContainerMain.Panel2.Type" xml:space="preserve"> <data name="SplitContainerTop.Location" type="System.Drawing.Point, System.Drawing">
<value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>0, 0</value>
</data>
<data name="&gt;&gt;ToolStripSeparator1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="ToolStripBottomLeft.Text" xml:space="preserve"> <data name="ToolStripBottomLeft.Text" xml:space="preserve">
<value>ToolStrip4</value> <value>ToolStrip4</value>
@ -614,9 +614,6 @@
<data name="&gt;&gt;$this.Type" xml:space="preserve"> <data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="ToolStripLabel1.Size" type="System.Drawing.Size, System.Drawing">
<value>87, 22</value>
</data>
<data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1160, 643</value> <value>1160, 643</value>
</data> </data>
@ -632,6 +629,9 @@
<data name="ToolStripTopRight.Location" type="System.Drawing.Point, System.Drawing"> <data name="ToolStripTopRight.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="ToolStripMain.Text" xml:space="preserve">
<value>ToolStrip1</value>
</data>
<data name="ToolStripMain.Location" type="System.Drawing.Point, System.Drawing"> <data name="ToolStripMain.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
@ -675,13 +675,13 @@
<value>770, 25</value> <value>770, 25</value>
</data> </data>
<data name="&gt;&gt;ChartBottomLeft.Type" xml:space="preserve"> <data name="&gt;&gt;ChartBottomLeft.Type" xml:space="preserve">
<value>DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing"> <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1160, 671</value> <value>1160, 671</value>
</data> </data>
<data name="ToolStripMain.Text" xml:space="preserve"> <data name="ToolStripLabel1.Size" type="System.Drawing.Size, System.Drawing">
<value>ToolStrip1</value> <value>87, 22</value>
</data> </data>
<data name="ToolStripBottomRight.Text" xml:space="preserve"> <data name="ToolStripBottomRight.Text" xml:space="preserve">
<value>ToolStrip3</value> <value>ToolStrip3</value>
@ -746,13 +746,13 @@
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
<metadata name="ToolStripTopRight.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>270, 17</value>
</metadata>
<metadata name="ToolStripBottomLeft.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStripBottomLeft.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>591, 17</value> <value>591, 17</value>
</metadata> </metadata>
<metadata name="ToolStripBottomRight.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStripBottomRight.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>421, 17</value> <value>421, 17</value>
</metadata> </metadata>
<metadata name="ToolStripTopRight.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>270, 17</value>
</metadata>
</root> </root>

4
app/DD-Record-Organizer/frmEntities.vb
View File

@ -61,8 +61,8 @@ Public Class frmEntities
Node.Tag = Row.Item("GUID") Node.Tag = Row.Item("GUID")
Node.BackColor = Color.Orange Node.BackColor = Color.Orange
'Jetzt die Ebene1Knoten einhängen 'Jetzt die Ebene1Knoten einhängen
DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " & _ DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " &
"TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (2,5) AND T.PARENT_ID = {2} AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {3})) ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, Row.Item("GUID"), USER_GUID) "TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (2,5) AND T.PARENT_ID IN ({2},0) AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {3})) ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, Row.Item("GUID"), USER_GUID)
If LogErrorsOnly = False Then ClassLogger.Add(Now.ToString & ">> Level 1 >>" & DT_SQL, False) If LogErrorsOnly = False Then ClassLogger.Add(Now.ToString & ">> Level 1 >>" & DT_SQL, False)
'Dim sql As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (2,5) AND T.PARENT_ID = " & Row.Item("GUID") & " ORDER BY LEVEL" 'Dim sql As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (2,5) AND T.PARENT_ID = " & Row.Item("GUID") & " ORDER BY LEVEL"
Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable(DT_SQL) Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)

81
app/DD-Record-Organizer/frmUserKonfig_AddUsers.vb
View File

@ -4,7 +4,8 @@ Imports System.DirectoryServices.AccountManagement
Imports System.IO Imports System.IO
Public Class frmUserKonfig_AddUsers Public Class frmUserKonfig_AddUsers
Private DT_GROUPS_EXCLUSIVE As DataTable 'Private DT_GROUPS_EXCLUSIVE As DataTable
Private DT_ADD_USER As DataTable
Private Sub frmUserKonfig_AddUsers_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub frmUserKonfig_AddUsers_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try Try
Dim Filename As String = String.Format("{0}-UserLayout.xml", GridViewUsers.Name) Dim Filename As String = String.Format("{0}-UserLayout.xml", GridViewUsers.Name)
@ -19,8 +20,10 @@ Public Class frmUserKonfig_AddUsers
Private Sub formUserConfig_AddUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub formUserConfig_AddUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
Dim sql = "SELECT * FROM TBPMO_AD_GROUP_EXCLUSIVE"
DT_GROUPS_EXCLUSIVE = ClassDatabase.Return_Datatable(sql)
'Dim sql = "SELECT * FROM TBPMO_AD_GROUP_EXCLUSIVE"
'DT_GROUPS_EXCLUSIVE = ClassDatabase.Return_Datatable(sql)
GetGroups(USER_USERNAME) GetGroups(USER_USERNAME)
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Load Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Load Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -225,9 +228,9 @@ Public Class frmUserKonfig_AddUsers
End Sub End Sub
Public Sub GetGroups(ByVal samAccountName As String) Public Sub GetGroups(ByVal samAccountName As String)
Try Try
If IsNothing(DT_GROUPS_EXCLUSIVE) Then 'If IsNothing(DT_GROUPS_EXCLUSIVE) Then
Exit Sub ' Exit Sub
End If 'End If
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
lbGroups.Items.Clear() lbGroups.Items.Clear()
Dim domainConnection = New DirectoryEntry() Dim domainConnection = New DirectoryEntry()
@ -249,15 +252,15 @@ Public Class frmUserKonfig_AddUsers
Dim sidResult = sidSearcher.FindOne() Dim sidResult = sidSearcher.FindOne()
If sidResult IsNot Nothing Then If sidResult IsNot Nothing Then
Dim groupname = CStr(sidResult.Properties("name")(0)) Dim groupname = CStr(sidResult.Properties("name")(0))
If Not IsNothing(DT_GROUPS_EXCLUSIVE) Then 'If Not IsNothing(DT_GROUPS_EXCLUSIVE) Then
If DT_GROUPS_EXCLUSIVE.Rows.Count > 0 Then ' If DT_GROUPS_EXCLUSIVE.Rows.Count > 0 Then
For Each GROUP_EXCL As DataRow In DT_GROUPS_EXCLUSIVE.Rows ' For Each GROUP_EXCL As DataRow In DT_GROUPS_EXCLUSIVE.Rows
If GROUP_EXCL.Item("GROUP_NAME").ToString.ToUpper = groupname.ToUpper Then ' If GROUP_EXCL.Item("GROUP_NAME").ToString.ToUpper = groupname.ToUpper Then
lbGroups.Items.Add(groupname) ' lbGroups.Items.Add(groupname)
End If ' End If
Next ' Next
Else ' Else
If Not groupname.StartsWith("WinRMR") And Not groupname.StartsWith("Gäst") And Not groupname.StartsWith("Druck") And Not groupname.StartsWith("Sicherungs") And Not groupname.StartsWith("Replikations") And Not groupname.StartsWith("Netzwerkskon") _ If Not groupname.StartsWith("WinRMR") And Not groupname.StartsWith("Gäst") And Not groupname.StartsWith("Druck") And Not groupname.StartsWith("Sicherungs") And Not groupname.StartsWith("Replikations") And Not groupname.StartsWith("Netzwerkskon") _
And Not groupname.StartsWith("Leistungs") And Not groupname.StartsWith("Distributed COM") And Not groupname.StartsWith("IIS_") And Not groupname.StartsWith("Kryptografie") And Not groupname.StartsWith("Ereignis") And Not groupname.StartsWith("Zertifikat") _ And Not groupname.StartsWith("Leistungs") And Not groupname.StartsWith("Distributed COM") And Not groupname.StartsWith("IIS_") And Not groupname.StartsWith("Kryptografie") And Not groupname.StartsWith("Ereignis") And Not groupname.StartsWith("Zertifikat") _
And Not groupname.StartsWith("RDS-") And Not groupname.StartsWith("Hyper-V") And Not groupname.StartsWith("Zugriffssteuerungs") And Not groupname.StartsWith("Remoteverwaltungs") And Not groupname.StartsWith("Domänencomput") And Not groupname.StartsWith("Domänen-Gäste") _ And Not groupname.StartsWith("RDS-") And Not groupname.StartsWith("Hyper-V") And Not groupname.StartsWith("Zugriffssteuerungs") And Not groupname.StartsWith("Remoteverwaltungs") And Not groupname.StartsWith("Domänencomput") And Not groupname.StartsWith("Domänen-Gäste") _
And Not groupname.StartsWith("Richtlinien-Ersteller") And Not groupname.StartsWith("SQLAccess") And Not groupname.StartsWith("RAS- und IAS-Server") And Not groupname.StartsWith("Server-Operatore") And Not groupname.StartsWith("Konten-Oper") And Not groupname.StartsWith("Prä-Windows") _ And Not groupname.StartsWith("Richtlinien-Ersteller") And Not groupname.StartsWith("SQLAccess") And Not groupname.StartsWith("RAS- und IAS-Server") And Not groupname.StartsWith("Server-Operatore") And Not groupname.StartsWith("Konten-Oper") And Not groupname.StartsWith("Prä-Windows") _
@ -267,10 +270,10 @@ Public Class frmUserKonfig_AddUsers
' Console.WriteLine(CStr(sidResult.Properties("name")(0))) ' Console.WriteLine(CStr(sidResult.Properties("name")(0)))
lbGroups.Items.Add(groupname) lbGroups.Items.Add(groupname)
End If End If
End If ' End If
End If 'End If
End If End If
Next resultBytes Next resultBytes
@ -290,17 +293,17 @@ Public Class frmUserKonfig_AddUsers
lbGroups.Items.Clear() lbGroups.Items.Clear()
If Not IsNothing(groups) Then If Not IsNothing(groups) Then
For Each group In groups For Each group In groups
If Not IsNothing(DT_GROUPS_EXCLUSIVE) Then 'If Not IsNothing(DT_GROUPS_EXCLUSIVE) Then
If DT_GROUPS_EXCLUSIVE.Rows.Count > 0 Then ' If DT_GROUPS_EXCLUSIVE.Rows.Count > 0 Then
For Each GROUP_EXCL As DataRow In DT_GROUPS_EXCLUSIVE.Rows ' For Each GROUP_EXCL As DataRow In DT_GROUPS_EXCLUSIVE.Rows
If GROUP_EXCL.Item("GROUP_NAME").ToString.ToUpper = group.ToUpper Then ' If GROUP_EXCL.Item("GROUP_NAME").ToString.ToUpper = group.ToUpper Then
lbGroups.Items.Add(group) ' lbGroups.Items.Add(group)
End If ' End If
Next ' Next
Else ' Else
lbGroups.Items.Add(group) lbGroups.Items.Add(group)
End If ' End If
End If 'End If
Next Next
lblgroup_refresh() lblgroup_refresh()
End If End If
@ -311,16 +314,16 @@ Public Class frmUserKonfig_AddUsers
End If End If
End Sub End Sub
Sub lblgroup_refresh() Sub lblgroup_refresh()
If Not IsNothing(DT_GROUPS_EXCLUSIVE) Then 'If Not IsNothing(DT_GROUPS_EXCLUSIVE) Then
If DT_GROUPS_EXCLUSIVE.Rows.Count > 0 Then ' If DT_GROUPS_EXCLUSIVE.Rows.Count > 0 Then
lbllimited.Text = String.Format("AD-Groups are limited through configuration to '{0}' group(s)!", DT_GROUPS_EXCLUSIVE.Rows.Count) ' lbllimited.Text = String.Format("AD-Groups are limited through configuration to '{0}' group(s)!", DT_GROUPS_EXCLUSIVE.Rows.Count)
lbllimited.Visible = True ' lbllimited.Visible = True
Else ' Else
lbllimited.Visible = False ' lbllimited.Visible = False
End If ' End If
Else 'Else
lbllimited.Visible = False lbllimited.Visible = False
End If ' End If
End Sub End Sub
End Class End Class

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

@ -35,6 +35,7 @@ Public Class frmWM_IndexFile
Function WORK_FILE(ImportFilePath As String, VerzeichnisZiel As String, vDokart_ID As Integer, vDokart As String, multiindex As Boolean) Function WORK_FILE(ImportFilePath As String, VerzeichnisZiel As String, vDokart_ID As Integer, vDokart As String, multiindex As Boolean)
Dim swWORK_FILE As New SW("WORK_FILE: " & DOCTYPE_IDTextBox.Text) Dim swWORK_FILE As New SW("WORK_FILE: " & DOCTYPE_IDTextBox.Text)
Try Try
CURRENT_DOC_ID = Nothing
CURRENT_DOKARTSTRING = vDokart CURRENT_DOKARTSTRING = vDokart
Dim err As Boolean = False Dim err As Boolean = False
@ -58,7 +59,7 @@ Public Class frmWM_IndexFile
result = MessageBox.Show(msg, "File alredy exists:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show(msg, "File alredy exists:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
If clsWD_SET.Delete_WDFile(CURRENT_NEWFILENAME.Substring(2)) = False Then If clsWD_SET.Delete_WDFile(CURRENT_NEWFILENAME.Substring(2)) = False Then
swWORK_FILE swWORK_FILE.Done()
Return False Return False
End If End If
Else Else
@ -88,6 +89,17 @@ Public Class frmWM_IndexFile
sw = New SW("File Indexing") sw = New SW("File Indexing")
CURRENT_FILEIN_WD = CURRENT_NEWFILENAME CURRENT_FILEIN_WD = CURRENT_NEWFILENAME
Dim DOCID
DOCID = clsWD_GET.Index_GetVariableValue(CURRENT_FILEIN_WD, "Dokument-ID")
If Not IsNothing(DOCID) Then
CURRENT_DOC_ID = DOCID
Else
DOCID = clsWD_GET.Index_GetVariableValue(CURRENT_FILEIN_WD, "Document-ID")
If Not IsNothing(DOCID) Then
CURRENT_DOC_ID = DOCID
End If
End If
Dim sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE ACTIVE = 1 AND UPPER(INDEXNAME) NOT LIKE UPPER('%ONLY %') AND SQL_ACTIVE = 0 AND DOCTYPE_ID = " & vDokart_ID Dim sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE ACTIVE = 1 AND UPPER(INDEXNAME) NOT LIKE UPPER('%ONLY %') AND SQL_ACTIVE = 0 AND DOCTYPE_ID = " & vDokart_ID
Dim DT_AUTO_INDEXE As DataTable = ClassDatabase.Return_Datatable(sql, True) Dim DT_AUTO_INDEXE As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim indexierung_erfolgreich As Boolean = True Dim indexierung_erfolgreich As Boolean = True
@ -251,10 +263,13 @@ Public Class frmWM_IndexFile
End If End If
End If End If
Next Next
sw = New SW("GettingDocID") If IsNothing(CURRENT_DOC_ID) Then
sql = String.Format("SELECT DocID FROM VWPMO_DOC_SYNC WHERE UPPER(FULL_FILENAME) = UPPER('{0}') AND CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE())", CURRENT_FILEIN_WD) sw = New SW("GettingDocID")
CURRENT_DOC_ID = ClassDatabase.Execute_Scalar(sql) sql = String.Format("SELECT DocID FROM VWPMO_DOC_SYNC WHERE UPPER(FULL_FILENAME) = UPPER('{0}') AND CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE())", CURRENT_FILEIN_WD)
sw.Done() CURRENT_DOC_ID = ClassDatabase.Execute_Scalar(sql)
sw.Done()
End If
If Not IsNothing(CURRENT_DOC_ID) Then If Not IsNothing(CURRENT_DOC_ID) Then
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC_ID", "File was imported and indexed!") ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC_ID", "File was imported and indexed!")
@ -315,6 +330,7 @@ Public Class frmWM_IndexFile
stg = "Unexpected Error: Could not get a docId for transmitted file!" stg = "Unexpected Error: Could not get a docId for transmitted file!"
End If End If
ClassLogger.Add(stg, True)
MsgBox(stg, MsgBoxStyle.Critical, stg1) MsgBox(stg, MsgBoxStyle.Critical, stg1)
End If End If
Else Else