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

MS_21.01.2016

Browse Source
This commit is contained in:
SchreiberM 2016-01-21 17:05:06 +01:00
parent 9df213f39f
commit bed11c3d80
14 changed files with 376 additions and 241 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
app/DD-Record-Organiser/ClassControlCommands.vb
View File

@ -80,7 +80,7 @@
' SQL Befehl für CONTROL TABELLE
' SQL_COMMAND_1 auf leeren String setzen
SQL = "INSERT INTO TBPMO_CONTROL (FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, COL_NAME, PARENT_CONTROL_ID, SQL_COMMAND_1) VALUES (" & CURRENT_FORM_ID & ", " & CONTROL_TYPE_ID & ", '', '" & NAME & "', '" & NAME & "', " & PARENT_CONTROL_ID & ", '')"
SQL = "INSERT INTO TBPMO_CONTROL (CURRENT_FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, COL_NAME, PARENT_CONTROL_ID, SQL_COMMAND_1) VALUES (" & CURRENT_FORM_ID & ", " & CONTROL_TYPE_ID & ", '', '" & NAME & "', '" & NAME & "', " & PARENT_CONTROL_ID & ", '')"
If ClassDatabase.Execute_non_Query(SQL) = True Then
SQL = "SELECT MAX(GUID) FROM TBPMO_CONTROL"
@ -92,7 +92,8 @@
End If
Catch ex As Exception
MsgBox("Fehler beim Einfügen des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in InsertControl: " & ex.Message, True)
MsgBox("Unexpected Error in InsertControl:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
@ -111,7 +112,7 @@
CONTROL_TEXT = control.Text
'Dim TAB_INDEX
'SQL = "SELECT MAX(TAB_INDEX) FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID IN (SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = " & CURRENT_FORM_ID & ")"
'SQL = "SELECT MAX(TAB_INDEX) FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID IN (SELECT GUID FROM TBPMO_CONTROL WHERE CURRENT_FORM_ID = " & CURRENT_FORM_ID & ")"
'TAB_INDEX = ClassDatabase.Execute_Scalar(SQL)
'If Not TAB_INDEX Is Nothing Then
' If IsDBNull(TAB_INDEX) Then
@ -133,6 +134,7 @@
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in InsertControlScreen: " & ex.Message, True)
MsgBox("Unexpected Error in InsertControlScreen (Adding ViewProperties:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
@ -157,7 +159,8 @@
Throw New Exception()
End If
Catch ex As Exception
MsgBox("Fehler beim Aktualisieren der Elementposition:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in UpdateControlPosition: " & ex.Message, True)
MsgBox("Unexpected Error in UpdateControlPosition:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
@ -290,7 +293,8 @@
Throw New Exception()
End If
Catch ex As Exception
MsgBox("Fehler beim Aktualisieren des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in UpdateControl: " & ex.Message, True)
MsgBox("Unexpected Error in UpdateControl:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
@ -433,7 +437,8 @@
End If
Catch ex As Exception
MsgBox("Fehler beim Aktualisieren der Ansichtseigenschaften des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in UpdateControlScreen: " & ex.Message, True)
MsgBox("Unexpected Error in UpdateControlScreen:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
@ -465,7 +470,8 @@
End If
Catch ex As Exception
MsgBox("Fehler beim Löschen des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Delete Control: " & ex.Message, True)
MsgBox("Unexpected Error in Delete Control:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
@ -487,7 +493,8 @@
End If
Catch ex As Exception
MsgBox("Fehler beim Löschen des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Delete Control1: " & ex.Message, True)
MsgBox("Unexpected Error in Delete Control1:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
@ -503,7 +510,8 @@
Throw New Exception()
End If
Catch ex As Exception
MsgBox("Fehler beim Löschen der Ansichtseigenschaften des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in DeleteControlScreen: " & ex.Message, True)
MsgBox("Unexpected Error in DeleteControlScreen:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
@ -518,7 +526,8 @@
Throw New Exception()
End If
Catch ex As Exception
MsgBox("Fehler beim Löschen der Werte des Elements:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in DeleteControlValues: " & ex.Message, True)
MsgBox("Unexpected Error in DeleteControlValues:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function

9
app/DD-Record-Organiser/ClassControlValues.vb
View File

@ -33,6 +33,7 @@ Public Class ClassControlValues
Next
Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadControlValuesNeu: " & ex.Message, True)
MsgBox("Error in LoadControlValuesNeu:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@ -81,6 +82,7 @@ Public Class ClassControlValues
If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False)
End Select
Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadControlValue: " & ex.Message, True)
MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message)
End Try
@ -105,7 +107,11 @@ Public Class ClassControlValues
End If
For Each Ctrl As Control In controls
Dim controlTagId = CInt(Ctrl.Tag)
'If controlTagId = 474 Then
' MsgBox("Thats it")
'End If
'Datatable nach row mit CONTROL_ID wie Ctrl suchen
Dim row As DataRow = dt.Select(String.Format("CONTROL_ID={0}", controlTagId)).FirstOrDefault()
@ -135,6 +141,7 @@ Public Class ClassControlValues
Console.WriteLine("LoadControlValuesList took {0} milliseconds to load", SW.ElapsedMilliseconds)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadControlValuesList: " & ex.Message, True)
MsgBox("Unexpected Error in LoadControlValuesList:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@ -188,6 +195,7 @@ Public Class ClassControlValues
SW.Stop()
Console.WriteLine("LoadControlValuesListWithPlaceholders took {0} milliseconds to load", SW.ElapsedMilliseconds)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadControlValuesListWithPlaceholders: " & ex.Message, True)
MsgBox("Unexpected Error in LoadControlValuesListWithPlaceholders:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@ -376,6 +384,7 @@ Public Class ClassControlValues
Try
Return ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID, True)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in GetControlValueForControlID: " & ex.Message, True)
MsgBox("Error in GetControlValueForControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try

31
app/DD-Record-Organiser/ClassFolderWatcher.vb
View File

@ -5,20 +5,25 @@ Imports System.Threading
Public Class ClassFolderWatcher
Public Shared FolderWatcher_SCAN As FileSystemWatcher
Public Shared Function Restart_FolderWatchSCAN()
If FolderWatcher_SCAN.EnableRaisingEvents = True Then
'Gestartet also Stoppen
FolderWatcher_SCAN.EnableRaisingEvents = False
FWSCAN_started = False
'FolderWatch neu instanzieren
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
ClassLogger.Add(" >> FolderWatchScan neu instanziert", False)
FolderWatcher_SCAN.IncludeSubdirectories = False
FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
FWSCAN_started = True
SaveMySettingsValue("FWSCAN_started", "True", "ConfigMain")
Try
If FolderWatcher_SCAN.EnableRaisingEvents = True Then
'Gestartet also Stoppen
FolderWatcher_SCAN.EnableRaisingEvents = False
FWSCAN_started = False
'FolderWatch neu instanzieren
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
ClassLogger.Add(" >> FolderWatchScan neu instanziert", False)
FolderWatcher_SCAN.IncludeSubdirectories = False
FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
FWSCAN_started = True
SaveMySettingsValue("FWSCAN_started", "True", "ConfigMain")
End If
End If
Catch ex As Exception
MsgBox("Error in Restart_FolderWatchSCAN:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Function
Public Shared Function StartStop_FolderWatchSCAN()
Try

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

@ -27,4 +27,27 @@ Public Class ClassHelper
End If
Return tempName
End Function
Public Shared Function CheckFileIsInUse(ByVal filename) As Boolean
Dim fs As Integer = FreeFile()
Dim inuse As Boolean = False
If File.Exists(filename) Then
Try
Using f As New IO.FileStream(filename, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
' thisFileInUse = False
End Using
Catch
inuse = True
End Try
Try
FileOpen(fs, filename, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
Catch ex As Exception
ClassLogger.Add("File " & filename & " inuse or not able to open - message: " & ex.Message, True)
inuse = True
Finally
FileClose(fs)
End Try
End If
Return inuse
End Function
End Class

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

@ -138,7 +138,6 @@ Public Class ClassInit
ClassLogger.Add(" - Wieder abgemeldet", False)
End If
Else
Try
'Die FolderWatch starten
Dim sql1 = "SELECT FOLDER_PATH FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID

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

@ -6,16 +6,16 @@
' Diese Werte müssen später zur Laufzeit geladen werden
Public CURRENT_FORM_ID As Integer
Public CURRENT_FORM_TYPE As Integer
Public CURRENT_PARENT_ID As Integer
Public CURRENT_ENTITYSTRING As String = ""
Public CURRENT_ENTITYSQL As String
'Public CURRENT_ENTITYSQL As String
Public CURRENT_SCREEN_ID As Integer = 1
Public CURRENT_CONTROL_ID As Integer
Public CURRENT_RECORD_ID As Integer
Public CURRENT_TASK_ID As Integer
Public CURRENT_DOKARTID As Integer

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

@ -282,6 +282,7 @@
Private Sub btnstartstop2_Click(sender As Object, e As EventArgs) Handles btnstartstop2.Click
If CURRENT_SCAN_FOLDERWATCH <> "" Then
CheckScanFolder(CURRENT_SCAN_FOLDERWATCH)
CheckFWSCAN_State()
End If
End Sub

76
app/DD-Record-Organiser/frmForm_Constructor_Main_2.Designer.vb generated
View File

@ -41,6 +41,7 @@ Partial Class frmForm_Constructor_Main_2
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ButtonResetFilter = New System.Windows.Forms.ToolStripMenuItem()
Me.ButtonExportToExcel = New System.Windows.Forms.ToolStripMenuItem()
Me.DatenNeuLadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.grvwCarousel = New DevExpress.XtraGrid.Views.Layout.LayoutView()
Me.grvwTiles = New DevExpress.XtraGrid.Views.Tile.TileView()
Me.NavPane = New DevExpress.XtraBars.Navigation.TileNavPane()
@ -107,11 +108,15 @@ Partial Class frmForm_Constructor_Main_2
Me.tsButtonEditMode = New System.Windows.Forms.ToolStripButton()
Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton()
Me.WindreamsucheNeuLadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.WorkflowTasksNeuErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ZeigeRecordLogsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OfficeVorlagenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VerknüpfungenAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.RecordKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ZeigeRecordLogsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.AnwendungscacheFreigebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsButtonShowTaskOverview = New System.Windows.Forms.ToolStripButton()
Me.tsButtonShowWorkflowTasks = New System.Windows.Forms.ToolStripButton()
Me.Panel2 = New System.Windows.Forms.Panel()
@ -219,9 +224,9 @@ Partial Class frmForm_Constructor_Main_2
'
'ContextMenuGrid
'
Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FunktionenDataGridToolStripMenuItem, Me.ToolStripSeparator1, Me.AnsichtUmschaltenToolStripMenuItem, Me.ButtonSetViewAsDefault, Me.ButtonResetView, Me.ToolStripSeparator2, Me.ButtonResetFilter, Me.ButtonExportToExcel})
Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FunktionenDataGridToolStripMenuItem, Me.ToolStripSeparator1, Me.AnsichtUmschaltenToolStripMenuItem, Me.ButtonSetViewAsDefault, Me.ButtonResetView, Me.ToolStripSeparator2, Me.ButtonResetFilter, Me.ButtonExportToExcel, Me.DatenNeuLadenToolStripMenuItem})
Me.ContextMenuGrid.Name = "ContextMenuGrid"
Me.ContextMenuGrid.Size = New System.Drawing.Size(233, 148)
Me.ContextMenuGrid.Size = New System.Drawing.Size(233, 170)
'
'FunktionenDataGridToolStripMenuItem
'
@ -295,6 +300,13 @@ Partial Class frmForm_Constructor_Main_2
Me.ButtonExportToExcel.Size = New System.Drawing.Size(232, 22)
Me.ButtonExportToExcel.Text = "Export nach Excel"
'
'DatenNeuLadenToolStripMenuItem
'
Me.DatenNeuLadenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG
Me.DatenNeuLadenToolStripMenuItem.Name = "DatenNeuLadenToolStripMenuItem"
Me.DatenNeuLadenToolStripMenuItem.Size = New System.Drawing.Size(232, 22)
Me.DatenNeuLadenToolStripMenuItem.Text = "Daten neu laden"
'
'grvwCarousel
'
Me.grvwCarousel.GridControl = Me.GridControlMain
@ -511,7 +523,7 @@ Partial Class frmForm_Constructor_Main_2
Me.TabWindream.Controls.Add(Me.ToolStripDokumente)
Me.TabWindream.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954
Me.TabWindream.Name = "TabWindream"
Me.TabWindream.Size = New System.Drawing.Size(1069, 312)
Me.TabWindream.Size = New System.Drawing.Size(1072, 316)
Me.TabWindream.Text = "windream-Dateien"
'
'AxObjectListControl
@ -522,7 +534,7 @@ Partial Class frmForm_Constructor_Main_2
Me.AxObjectListControl.Location = New System.Drawing.Point(0, 25)
Me.AxObjectListControl.Name = "AxObjectListControl"
Me.AxObjectListControl.OcxState = CType(resources.GetObject("AxObjectListControl.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxObjectListControl.Size = New System.Drawing.Size(1069, 287)
Me.AxObjectListControl.Size = New System.Drawing.Size(1072, 291)
Me.AxObjectListControl.TabIndex = 6
Me.AxObjectListControl.TabStop = False
'
@ -532,7 +544,7 @@ Partial Class frmForm_Constructor_Main_2
Me.ToolStripDokumente.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripDropDownButton2})
Me.ToolStripDokumente.Location = New System.Drawing.Point(0, 0)
Me.ToolStripDokumente.Name = "ToolStripDokumente"
Me.ToolStripDokumente.Size = New System.Drawing.Size(1069, 25)
Me.ToolStripDokumente.Size = New System.Drawing.Size(1072, 25)
Me.ToolStripDokumente.TabIndex = 2
Me.ToolStripDokumente.Text = "ToolStrip2"
'
@ -566,7 +578,7 @@ Partial Class frmForm_Constructor_Main_2
Me.TabFollowUp.Controls.Add(Me.Label5)
Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
Me.TabFollowUp.Name = "TabFollowUp"
Me.TabFollowUp.Size = New System.Drawing.Size(1069, 312)
Me.TabFollowUp.Size = New System.Drawing.Size(1072, 316)
Me.TabFollowUp.Text = "Wiedervorlage"
'
'ListViewFollowUps
@ -745,7 +757,7 @@ Partial Class frmForm_Constructor_Main_2
Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"), System.Drawing.Image)
Me.TabPos.Name = "TabPos"
Me.TabPos.PageVisible = False
Me.TabPos.Size = New System.Drawing.Size(1069, 312)
Me.TabPos.Size = New System.Drawing.Size(1072, 316)
Me.TabPos.Text = "Positionen"
'
'Panel1
@ -754,7 +766,7 @@ Partial Class frmForm_Constructor_Main_2
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 25)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1069, 287)
Me.Panel1.Size = New System.Drawing.Size(1072, 291)
Me.Panel1.TabIndex = 2
'
'GridControlPos
@ -763,7 +775,7 @@ Partial Class frmForm_Constructor_Main_2
Me.GridControlPos.Location = New System.Drawing.Point(0, 0)
Me.GridControlPos.MainView = Me.grvwGridPos
Me.GridControlPos.Name = "GridControlPos"
Me.GridControlPos.Size = New System.Drawing.Size(1069, 287)
Me.GridControlPos.Size = New System.Drawing.Size(1072, 291)
Me.GridControlPos.TabIndex = 0
Me.GridControlPos.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGridPos})
'
@ -790,7 +802,7 @@ Partial Class frmForm_Constructor_Main_2
Me.BindingNavigatorPOS.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
Me.BindingNavigatorPOS.Name = "BindingNavigatorPOS"
Me.BindingNavigatorPOS.PositionItem = Me.BindingNavigatorPositionItem
Me.BindingNavigatorPOS.Size = New System.Drawing.Size(1069, 25)
Me.BindingNavigatorPOS.Size = New System.Drawing.Size(1072, 25)
Me.BindingNavigatorPOS.TabIndex = 1
Me.BindingNavigatorPOS.Text = "BindingNavigator1"
'
@ -928,7 +940,7 @@ Partial Class frmForm_Constructor_Main_2
'ToolStripDropDownButton1
'
Me.ToolStripDropDownButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripDropDownButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.WindreamsucheNeuLadenToolStripMenuItem, Me.WorkflowTasksNeuErstellenToolStripMenuItem, Me.ZeigeRecordLogsToolStripMenuItem, Me.OfficeVorlagenToolStripMenuItem, Me.VerknüpfungenAnzeigenToolStripMenuItem, Me.RecordKopierenToolStripMenuItem})
Me.ToolStripDropDownButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.WindreamsucheNeuLadenToolStripMenuItem, Me.ToolStripSeparator3, Me.WorkflowTasksNeuErstellenToolStripMenuItem, Me.OfficeVorlagenToolStripMenuItem, Me.VerknüpfungenAnzeigenToolStripMenuItem, Me.ToolStripSeparator4, Me.RecordKopierenToolStripMenuItem, Me.ZeigeRecordLogsToolStripMenuItem, Me.ToolStripSeparator5, Me.AnwendungscacheFreigebenToolStripMenuItem})
Me.ToolStripDropDownButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.PropertyGridEditorPart_6041
Me.ToolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1"
@ -942,6 +954,11 @@ Partial Class frmForm_Constructor_Main_2
Me.WindreamsucheNeuLadenToolStripMenuItem.Size = New System.Drawing.Size(231, 22)
Me.WindreamsucheNeuLadenToolStripMenuItem.Text = "windream-Suche neu laden"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(228, 6)
'
'WorkflowTasksNeuErstellenToolStripMenuItem
'
Me.WorkflowTasksNeuErstellenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.brick_go
@ -949,13 +966,6 @@ Partial Class frmForm_Constructor_Main_2
Me.WorkflowTasksNeuErstellenToolStripMenuItem.Size = New System.Drawing.Size(231, 22)
Me.WorkflowTasksNeuErstellenToolStripMenuItem.Text = "Workflow Tasks neu erzeugen"
'
'ZeigeRecordLogsToolStripMenuItem
'
Me.ZeigeRecordLogsToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.eye
Me.ZeigeRecordLogsToolStripMenuItem.Name = "ZeigeRecordLogsToolStripMenuItem"
Me.ZeigeRecordLogsToolStripMenuItem.Size = New System.Drawing.Size(231, 22)
Me.ZeigeRecordLogsToolStripMenuItem.Text = "Zeige Record Logs"
'
'OfficeVorlagenToolStripMenuItem
'
Me.OfficeVorlagenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.page_white_office1
@ -970,6 +980,11 @@ Partial Class frmForm_Constructor_Main_2
Me.VerknüpfungenAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(231, 22)
Me.VerknüpfungenAnzeigenToolStripMenuItem.Text = "Verknüpfungen anzeigen"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(228, 6)
'
'RecordKopierenToolStripMenuItem
'
Me.RecordKopierenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.Copy_6524
@ -977,6 +992,24 @@ Partial Class frmForm_Constructor_Main_2
Me.RecordKopierenToolStripMenuItem.Size = New System.Drawing.Size(231, 22)
Me.RecordKopierenToolStripMenuItem.Text = "Record kopieren"
'
'ZeigeRecordLogsToolStripMenuItem
'
Me.ZeigeRecordLogsToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.eye
Me.ZeigeRecordLogsToolStripMenuItem.Name = "ZeigeRecordLogsToolStripMenuItem"
Me.ZeigeRecordLogsToolStripMenuItem.Size = New System.Drawing.Size(231, 22)
Me.ZeigeRecordLogsToolStripMenuItem.Text = "Zeige Record Logs"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(228, 6)
'
'AnwendungscacheFreigebenToolStripMenuItem
'
Me.AnwendungscacheFreigebenToolStripMenuItem.Name = "AnwendungscacheFreigebenToolStripMenuItem"
Me.AnwendungscacheFreigebenToolStripMenuItem.Size = New System.Drawing.Size(231, 22)
Me.AnwendungscacheFreigebenToolStripMenuItem.Text = "Anwendungscache freigeben"
'
'tsButtonShowTaskOverview
'
Me.tsButtonShowTaskOverview.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
@ -1285,4 +1318,9 @@ Partial Class frmForm_Constructor_Main_2
Friend WithEvents GridViewParent As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents btnRelinkParentID As System.Windows.Forms.Button
Friend WithEvents RecordKopierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents DatenNeuLadenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents AnwendungscacheFreigebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
End Class

2
app/DD-Record-Organiser/frmForm_Constructor_Main_2.resx
View File

@ -304,6 +304,6 @@
<value>1222, 54</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>164</value>
<value>242</value>
</metadata>
</root>

317
app/DD-Record-Organiser/frmForm_Constructor_Main_2.vb
View File

@ -14,19 +14,19 @@ Imports DevExpress.XtraGrid
Public Class frmForm_Constructor_Main_2
#Region "Laufzeitvariablen & Konstanten"
Public CONSTRUCTORID As Integer
Private CONSTRUCTORID As Integer
Private CONSTRUCTOR_DETAIL_ID As Integer
Public DT_CONSTRUCT_VIEW As DataTable
Public EBENE2_PARENT_ID As Integer
Public EBENE3_PARENT_ID As Integer
Public ACT_EBENE As Integer
Public ACT_EBENE_STRING As String
Public SELECTED_RECORD_ID As Integer
Public PARENT_RECORDID As Integer
Public thisFORMVIEW_ID As Integer
Public POS_ENTITY As Integer = 0
Public POS_SQL As String = ""
Public POS_RECORD_ID
Private DT_CONSTRUCT_VIEW As DataTable
Private EBENE2_PARENT_ID As Integer
Private EBENE3_PARENT_ID As Integer
Private ACT_EBENE As Integer
Private ACT_EBENE_STRING As String
Private SELECTED_RECORD_ID As Integer
Private PARENT_RECORDID As Integer
Private thisFORMVIEW_ID As Integer
Private POS_ENTITY As Integer = 0
Private POS_SQL As String = ""
Private POS_RECORD_ID
Dim IsTopFirstRow As Boolean = True
Private RightMouse_Clicked = False
@ -36,27 +36,27 @@ Public Class frmForm_Constructor_Main_2
Public RECORD_ENABLED As Boolean = False
Public ENTITY_RECORD_COUNT As Integer = 0
Public EBENE1_ENTITY
Public EBENE2_ENTITY
Public EBENE3_ENTITY
Public EBENE1_COLUMNNAME
Public EBENE2_COLUMNNAME
Public EBENE3_COLUMNNAME
Public EBENE1_RECID
Public EBENE2_RECID
Public EBENE3_RECID
Public EBENE1_GRID_RESULT
Public EBENE2_GRID_RESULT
Public EBENE3_GRID_RESULT
Public act_FormViewID
Public DT_SELECTION As DataTable
Public EDIT_STATE As EditState = EditState.None
Public GRID_TYPE As GridType = GridType.Tiles
Public GRID_TYPE_ID As Integer = 1
Public FORM_LOADED As Boolean = False
Public RECORD_CHANGED As Boolean = False
Public SAVE_ROUTINE_ACTIVE As Boolean = False
Private ENTITY_RECORD_COUNT As Integer = 0
Private EBENE1_ENTITY
Private EBENE2_ENTITY
Private EBENE3_ENTITY
Private EBENE1_COLUMNNAME
Private EBENE2_COLUMNNAME
Private EBENE3_COLUMNNAME
Private EBENE1_RECID
Private EBENE2_RECID
Private EBENE3_RECID
Private EBENE1_GRID_RESULT
Private EBENE2_GRID_RESULT
Private EBENE3_GRID_RESULT
Private act_FormViewID
Private DT_SELECTION As DataTable
Private EDIT_STATE As EditState = EditState.None
Private GRID_TYPE As GridType = GridType.Tiles
Private GRID_TYPE_ID As Integer = 1
Private FORM_LOADED As Boolean = False
Private RECORD_CHANGED As Boolean = False
Private SAVE_ROUTINE_ACTIVE As Boolean = False
Private SP1 As String
Private SP2 As String
Private SP3 As String
@ -90,7 +90,13 @@ Public Class frmForm_Constructor_Main_2
Private RECORD_ID As Integer
Private PARENT_ID As Integer
Private FORM_TYPE As Integer
Private FORM_ID As Integer
Private FORMVIEW_ID As Integer
Private _ENTITYSQL As String
Private _ENTITYSTRING As String
@ -448,13 +454,13 @@ Public Class frmForm_Constructor_Main_2
'Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer)
' If GRID_TYPE = GridType.Grid Then
' CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
' _ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
' Else 'Tiles und Carousel bekommen Quick View
' CURRENT_ENTITYSQL = String.Format("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", ConstructorId, FormId)
' CURRENT_ENTITYSQL = ClassDatabase.Execute_Scalar(CURRENT_ENTITYSQL, True)
' If CURRENT_ENTITYSQL = String.Empty Then
' CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
' If IS_SINGLE_RECORD = True Or CURRENT_FORM_TYPE = 5 Then
' _ENTITYSQL = String.Format("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", ConstructorId, FormId)
' _ENTITYSQL = ClassDatabase.Execute_Scalar(_ENTITYSQL, True)
' If _ENTITYSQL = String.Empty Then
' _ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
' If IS_SINGLE_RECORD = True Or FORM_TYPE = 5 Then
' Else
' GRID_TYPE = GridType.Grid
@ -472,14 +478,14 @@ Public Class frmForm_Constructor_Main_2
Try
If GRID_TYPE = GridType.Grid Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False)
CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
Else 'Tiles und Carousel bekommen Quick View
CURRENT_ENTITYSQL = String.Format("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", ConstructorId, FormId)
CURRENT_ENTITYSQL = ClassDatabase.Execute_Scalar(CURRENT_ENTITYSQL, True)
If CURRENT_ENTITYSQL = String.Empty Then
_ENTITYSQL = String.Format("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1}", ConstructorId, FormId)
_ENTITYSQL = ClassDatabase.Execute_Scalar(_ENTITYSQL, True)
If _ENTITYSQL = String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> No Quick-View Configured", False)
CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
If IS_SINGLE_RECORD = True Or CURRENT_FORM_TYPE = 5 Then
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
If IS_SINGLE_RECORD = True Or FORM_TYPE = 5 Then
Else
GRID_TYPE = GridType.Grid
@ -637,8 +643,6 @@ Public Class frmForm_Constructor_Main_2
grvwTiles.OptionsBehavior.Editable = Not IsTopFirstRow
End If
End If
Check_Record_Changed()
DisableEditMode()
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
@ -805,8 +809,8 @@ Public Class frmForm_Constructor_Main_2
Else
ACT_EBENE = 1
End If
CURRENT_FORM_ID = FormId
Dim Sql = "SELECT GUID from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID
FORM_ID = FormId
Dim Sql = "SELECT GUID from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID
CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar(Sql, True)
Get_RecordCounts_Nodes()
Load_Entity_Data(ACT_EBENE)
@ -926,7 +930,7 @@ Public Class frmForm_Constructor_Main_2
If IsDBNull(result) Or IsNothing(result) Then
tsslblRecord.Visible = False
Else
If CURRENT_FORM_TYPE = 5 Then
If FORM_TYPE = 5 Then
tsslblRecord.Text = String.Format("Group-Record ({0}) - {1}", RecordId, result.ToString)
Else
If IS_SINGLE_RECORD = True Then
@ -946,14 +950,14 @@ Public Class frmForm_Constructor_Main_2
#Region "Controls"
Sub Load_Controls(FORM_VIEW_ID As Integer)
thisFORMVIEW_ID = FORM_VIEW_ID
CURRENT_FORM_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & FORM_VIEW_ID)
FORM_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & FORM_VIEW_ID)
CtrlBuilder = New ClassControlBuilder(pnlDetails, ttToolTip)
'LoadControls(thisFormId)
CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
ContextMenuDetails,
AddressOf NewEditAppointment,
AddressOf OpenFormData)
CtrlCommandUI.LoadControls(CURRENT_FORM_ID)
CtrlCommandUI.LoadControls(FORM_ID)
Lock_RecordControls(True)
' pnlDetails.Enabled = False
@ -971,7 +975,7 @@ Public Class frmForm_Constructor_Main_2
Try
Dim Control As Control = sender
Dim ControlName As String = Control.Name
Dim ControlId As Integer = Control.Tag ' GetControlID_for_Name(ControlName, CURRENT_FORM_ID)
Dim ControlId As Integer = Control.Tag ' GetControlID_for_Name(ControlName, FORM_ID)
Dim dr As DataRow = ClassFunctionCommands.LoadFunction(ControlId)
@ -1013,7 +1017,7 @@ Public Class frmForm_Constructor_Main_2
Lock_RecordControls(False)
tsButtonShowWorkflowTasks.Enabled = True
CURRENT_PARENT_ID = PARENT_ID
ClassControlValues.LoadDefaultValues(CURRENT_FORM_ID, SELECTED_RECORD_ID, pnlDetails.Controls)
ClassControlValues.LoadDefaultValues(FORM_ID, SELECTED_RECORD_ID, pnlDetails.Controls)
' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
tsButtonSave.Enabled = True
EDIT_STATE = EditState.Insert
@ -1118,11 +1122,11 @@ Public Class frmForm_Constructor_Main_2
Update_Status_Label(True, "Record gespeichert - " & Now, EditState.Update)
Update_Record_Label(SELECTED_RECORD_ID)
Dim CURRENT_FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID)
Dim IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID)
Dim FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & FORM_ID)
Dim IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & FORM_ID)
If IS_SINGLE_RECORD = False Then
If CURRENT_FORM_TYPE <> 5 Then
If FORM_TYPE <> 5 Then
If EDIT_STATE = EditState.Insert Then
'Die Daten neu laden
Load_Entity_Data_Only()
@ -1133,7 +1137,7 @@ Public Class frmForm_Constructor_Main_2
'Get_Grid_Row_Handle(RECORD_ID)
LocateRecordById(RECORD_ID)
'Die Daten auf dem Panel laden
'ClassControlValues.LoadControlValues(RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
'ClassControlValues.LoadControlValues(RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False
End If
@ -1193,12 +1197,12 @@ Public Class frmForm_Constructor_Main_2
Me.tsButtonEditMode.Text = "Bearbeiten beenden"
' Abhängige Listen laden
ClassControlValues.LoadControlValuesListWithPlaceholders(CURRENT_FORM_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValuesListWithPlaceholders(FORM_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls)
RECORD_ENABLED = True
pnlDetails.Focus()
'If RECORD_ENABLED = False Then
' ClassControlValues.LoadControlValuesList(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
' ClassControlValues.LoadControlValuesList(SELECTED_RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
'End If
End Sub
@ -1224,7 +1228,7 @@ Public Class frmForm_Constructor_Main_2
Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Try
Dim ctrl As Control = sender
ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, CURRENT_FORM_ID, RECORD_ID, pnlDetails.Controls)
ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, FORM_ID, RECORD_ID, pnlDetails.Controls)
Catch ex As Exception
MsgBox("Error in OpenEditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@ -1258,19 +1262,19 @@ Public Class frmForm_Constructor_Main_2
RECORD_ID = 0
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
'VerknüpfungenToolStripMenuItem.Enabled = False
CURRENT_FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID)
IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID)
LOAD_DIRECT = ClassDatabase.Execute_Scalar("SELECT LOAD_DIRECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
CURRENT_CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar("SELECT GUID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
POS_ENTITY = ClassDatabase.Execute_Scalar("SELECT POS_ENTITY FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID)
FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & FORM_ID)
IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & FORM_ID)
LOAD_DIRECT = ClassDatabase.Execute_Scalar("SELECT LOAD_DIRECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID)
CURRENT_CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar("SELECT GUID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID)
POS_ENTITY = ClassDatabase.Execute_Scalar("SELECT POS_ENTITY FROM TBPMO_FORM WHERE GUID = " & FORM_ID)
If VIEW_ID_RUNTIME <> -1 Then
GRID_TYPE_ID = VIEW_ID_RUNTIME
Else
Dim VIEW_ID = ClassDatabase.Execute_Scalar(String.Format("SELECT VIEW_ID FROM TBPMO_USER_CONSTR_VIEW_TYPE WHERE CONSTRUCTOR_DETAIL_ID = {0} AND [ENTITY_ID] = {1} AND USER_ID = {2}", CURRENT_CONSTRUCTOR_DETAIL_ID, CURRENT_FORM_ID, USER_GUID), True)
Dim VIEW_ID = ClassDatabase.Execute_Scalar(String.Format("SELECT VIEW_ID FROM TBPMO_USER_CONSTR_VIEW_TYPE WHERE CONSTRUCTOR_DETAIL_ID = {0} AND [ENTITY_ID] = {1} AND USER_ID = {2}", CURRENT_CONSTRUCTOR_DETAIL_ID, FORM_ID, USER_GUID), True)
If IsNothing(VIEW_ID) Then
ClassDatabase.Execute_non_Query("INSERT INTO TBPMO_USER_CONSTR_VIEW_TYPE ([USER_ID],CONSTRUCTOR_DETAIL_ID,[ENTITY_ID]) VALUES (" & USER_GUID & "," & CURRENT_CONSTRUCTOR_DETAIL_ID & "," & CURRENT_FORM_ID & ")", True)
ClassDatabase.Execute_non_Query("INSERT INTO TBPMO_USER_CONSTR_VIEW_TYPE ([USER_ID],CONSTRUCTOR_DETAIL_ID,[ENTITY_ID]) VALUES (" & USER_GUID & "," & CURRENT_CONSTRUCTOR_DETAIL_ID & "," & FORM_ID & ")", True)
VIEW_ID = 1
End If
GRID_TYPE_ID = VIEW_ID
@ -1290,7 +1294,7 @@ Public Class frmForm_Constructor_Main_2
End Select
SELECTED_RECORD_ID = 0
Dim DT As DataTable
Dim sql As String = "SELECT PARENT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID
Dim sql As String = "SELECT PARENT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID
Dim PARENT_ID = ClassDatabase.Execute_Scalar(sql)
If PARENT_ID Is Nothing Then
MsgBox("Error in GetParentID for selectedNode - Check Logfile", MsgBoxStyle.Exclamation)
@ -1298,9 +1302,9 @@ Public Class frmForm_Constructor_Main_2
End If
'Abhängig von der Entität die Selektierungs-Daten laden
Get_Grid_Sql(CONSTRUCTORID, CURRENT_FORM_ID)
Get_Grid_Sql(CONSTRUCTORID, FORM_ID)
'Anzahl der Datensätze
ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where FORM_ID = " & CURRENT_FORM_ID, True)
ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where FORM_ID = " & FORM_ID, True)
Select Case ClickedLevel
Case 1
EBENE1_ENTITY = ""
@ -1320,16 +1324,16 @@ Public Class frmForm_Constructor_Main_2
'tslblEntity2.Visible = False
'tslblEntity3.Visible = False
EBENE1_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
EBENE1_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID)
EBENE2_COLUMNNAME = ""
EBENE3_COLUMNNAME = ""
EBENE2_GRID_RESULT = Nothing
EBENE3_GRID_RESULT = Nothing
'_sql = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
'_sql = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID)
Case 2
'Dim Level1Select = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, CURRENT_FORM_ID)) 'ClassDatabase.Execute_Scalar("SELECT LEVEL1_SELECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
'If CBool(Level1Select) = False And CURRENT_FORM_TYPE <> 5 And EBENE1_RECID = 0 Then
'Dim Level1Select = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, FORM_ID)) 'ClassDatabase.Execute_Scalar("SELECT LEVEL1_SELECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID)
'If CBool(Level1Select) = False And FORM_TYPE <> 5 And EBENE1_RECID = 0 Then
' MsgBox("Entität '" & TreeViewLevelSelect.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation)
' TreeViewLevelSelect.SelectedNode = TreeViewLevelSelect.SelectedNode.Parent
' Exit Sub
@ -1343,12 +1347,12 @@ Public Class frmForm_Constructor_Main_2
PARENT_RECORDID = EBENE1_RECID
PARENT_ID = EBENE1_RECID
If GRID_TYPE = GridType.Grid Then
CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & CURRENT_FORM_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_ID
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FORM_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_ID
Else
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL & " AND T.GUID = T2.RECORD2_ID AND T2.RECORD1_ID = @T2.RECORD1_ID"
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
_ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
_ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
_ENTITYSQL = _ENTITYSQL & " AND T.GUID = T2.RECORD2_ID AND T2.RECORD1_ID = @T2.RECORD1_ID"
_ENTITYSQL = _ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
End If
Else
Console.WriteLine("Ebene 1 wurde nicht ausgewählt")
@ -1360,14 +1364,14 @@ Public Class frmForm_Constructor_Main_2
Update_Status_Label(True, "Entität 1 übersprungen - Alle Datensätze geladen", EditState.Update)
End If
'tslblEntity3.Visible = False
'Select Case CURRENT_FORM_TYPE
'Select Case FORM_TYPE
' Case 5
' If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID) = True Then
' EBENE2_RECID = RECORD_ID
' End If
'End Select
EBENE2_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
EBENE2_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID)
EBENE3_COLUMNNAME = ""
EBENE2_GRID_RESULT = Nothing
EBENE3_GRID_RESULT = Nothing
@ -1377,7 +1381,7 @@ Public Class frmForm_Constructor_Main_2
ACT_EBENE_STRING = EBENE3_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 3 in TreeView selektiert", False)
EBENE3_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
EBENE3_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID)
'Wenn bereits ein Record für Ebene 1 gewählt wurde dann eisnchränken
If EBENE2_RECID > 0 Then
'Parent-ID setzen
@ -1385,12 +1389,12 @@ Public Class frmForm_Constructor_Main_2
PARENT_ID = EBENE2_RECID
Try
If GRID_TYPE = GridType.Grid Then
CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & CURRENT_FORM_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_ID
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FORM_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_ID
Else
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL & " AND T.GUID = T2.RECORD2_ID AND T2.RECORD1_ID = @T2.RECORD1_ID"
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
_ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
_ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
_ENTITYSQL = _ENTITYSQL & " AND T.GUID = T2.RECORD2_ID AND T2.RECORD1_ID = @T2.RECORD1_ID"
_ENTITYSQL = _ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
End If
Catch ex As Exception
@ -1404,7 +1408,7 @@ Public Class frmForm_Constructor_Main_2
Update_Status_Label(True, "Entität 2 übersprungen - Alle Datensätze geladen", EditState.Update)
tsslblRecord.Text = ""
End If
'Select Case CURRENT_FORM_TYPE
'Select Case FORM_TYPE
' Case 5
' If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID) = True Then
' EBENE3_RECID = RECORD_ID
@ -1414,9 +1418,9 @@ Public Class frmForm_Constructor_Main_2
End Select
CURRENT_ENTITYSTRING = ACT_EBENE_STRING
_ENTITYSTRING = ACT_EBENE_STRING
PARENT_ID = PARENT_RECORDID
act_FormViewID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & CURRENT_FORM_ID)
act_FormViewID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & FORM_ID)
If EDIT_STATE = EditState.None Then
'Die Controls der Entität laden
@ -1436,7 +1440,7 @@ Public Class frmForm_Constructor_Main_2
End If
End If
If CURRENT_FORM_TYPE = 5 Or IS_SINGLE_RECORD = True Then
If FORM_TYPE = 5 Or IS_SINGLE_RECORD = True Then
If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID, True) = True Then
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
@ -1450,7 +1454,7 @@ Public Class frmForm_Constructor_Main_2
End If
' Hide_Grid_Columns()
If CURRENT_FORM_TYPE = 5 Then
If FORM_TYPE = 5 Then
TabDetails.PageVisible = False
Else
TabDetails.PageVisible = True
@ -1460,7 +1464,7 @@ Public Class frmForm_Constructor_Main_2
TabDetails.PageVisible = True
GridControlMain.Visible = True
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(CURRENT_ENTITYSQL, "LoadEntityData - Get DTEntity")
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "LoadEntityData - Get DTEntity")
If IsNothing(DTEntity) Then
MsgBox("Unexpected Error in getting Entity-Data - Check Logfile", MsgBoxStyle.Critical)
Else
@ -1492,7 +1496,7 @@ Public Class frmForm_Constructor_Main_2
If ENTITY_RECORD_COUNT = 1 Then
Load_Record_Direct()
End If
' Dim sql1 = CURRENT_ENTITYSQL
' Dim sql1 = _ENTITYSQL
' sql1.Replace("T.*", "TOP 1 [Record-ID]")
' Dim id = ClassDatabase.Execute_Scalar(sql1, True)
' If Not id Is Nothing Then
@ -1501,7 +1505,7 @@ Public Class frmForm_Constructor_Main_2
' End If
'End If
'Überprüfen ob es für diese Entität Wiedervorlagen gibt?
Check_FOLLOWUP_IsConfigured(CURRENT_FORM_ID)
Check_FOLLOWUP_IsConfigured(FORM_ID)
Load_Grid_Layout()
Load_Splitter_Layout()
End If
@ -1522,10 +1526,10 @@ Public Class frmForm_Constructor_Main_2
'Dim firstRow As System.Data.DataRowView = GridControlMain.MainView.GetRow(0)
'If Not IsNothing(firstRow) Then
' Dim firstRecordId As Integer = firstRow.Row.Item("Record-ID")
' ClassControlValues.LoadControlValuesList(firstRecordId, PARENT_ID, CURRENT_FORM_ID, CtrlBuilder.MasterPanel.Controls)
' ClassControlValues.LoadControlValuesList(firstRecordId, PARENT_ID, FORM_ID, CtrlBuilder.MasterPanel.Controls)
'End If
' Hinfällig, da hier die Record-ID nicht gebraucht wird
ClassControlValues.LoadControlValuesList(CURRENT_FORM_ID, CtrlBuilder.MasterPanel.Controls)
ClassControlValues.LoadControlValuesList(FORM_ID, CtrlBuilder.MasterPanel.Controls)
'Zurücksetzen
ENTITY_LOADED = True
@ -1554,8 +1558,8 @@ Public Class frmForm_Constructor_Main_2
SELECTED_RECORD_ID = Grid_RecordID
RECORD_ID = Grid_RecordID
'Daten zu Record in jedem Fall laden
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, FORM_ID, CtrlBuilder.AllControls)
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False
Update_Record_Label(Grid_RecordID)
@ -1569,7 +1573,7 @@ Public Class frmForm_Constructor_Main_2
Sub Load_Entity_Data_Only()
Try
ENTITY_LOADED = False
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(CURRENT_ENTITYSQL, "Load_Entity_Data_Only")
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "Load_Entity_Data_Only")
Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey
@ -1778,17 +1782,17 @@ Public Class frmForm_Constructor_Main_2
End If
End Sub
Private Function GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORD_ID As Integer, Entityload As Boolean)
'Dim sqlRecord As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} AND T1.FORM_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = {1})", LINKED_RECORD, CURRENT_FORM_ID)
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", PARENT_RECORD_ID, CURRENT_FORM_ID)
'Dim sqlRecord As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} AND T1.FORM_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = {1})", LINKED_RECORD, FORM_ID)
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", PARENT_RECORD_ID, FORM_ID)
Dim GRP_SINGLE_REC = ClassDatabase.Execute_Scalar(sql, True)
If IsNothing(GRP_SINGLE_REC) Then
If ClassControlCommandsUI.CreateRecord(CURRENT_FORM_ID) = True Then
If ClassControlCommandsUI.CreateRecord(FORM_ID) = True Then
GRP_SINGLE_REC = ClassControlCommandsUI.GetLastRecord
If Not IsNothing(GRP_SINGLE_REC) Then
'Die neue Record-ID setzen
RECORD_ID = GRP_SINGLE_REC
SELECTED_RECORD_ID = RECORD_ID
If ClassControlCommandsUI.ConnectRecord(PARENT_RECORD_ID, RECORD_ID, "PARENT_LINK (Group/Single-Record) for Entity " & CURRENT_FORM_ID.ToString) = False Then
If ClassControlCommandsUI.ConnectRecord(PARENT_RECORD_ID, RECORD_ID, "PARENT_LINK (Group/Single-Record) for Entity " & FORM_ID.ToString) = False Then
MsgBox("Unexpected Error in Connecting Record. Check log", MsgBoxStyle.Critical)
Return False
End If
@ -1874,7 +1878,7 @@ Public Class frmForm_Constructor_Main_2
CreateTile()
Else
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT CONTROL_COLUMN FROM VWPMO_VALUES WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & CURRENT_FORM_ID
Dim sqlcheck As String = "SELECT CONTROL_COLUMN FROM VWPMO_VALUES WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & FORM_ID
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
Dim listcheck As New List(Of String)
@ -1930,7 +1934,7 @@ Public Class frmForm_Constructor_Main_2
End Function
Sub HideColumns()
Try
Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & CURRENT_FORM_ID
Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & FORM_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
If GRID_TYPE = GridType.Grid Then
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGrid.Columns
@ -1979,21 +1983,21 @@ Public Class frmForm_Constructor_Main_2
MsgBox("Error in HideColumns_Pos:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Show_Selected_Record_Data(RECORD_ID As Integer, EntityLoad As Boolean)
Private Sub Show_Selected_Record_Data(Rec_ID As Integer, EntityLoad As Boolean)
Try
Update_Status_Label(False, "")
If LogErrorsOnly = False Then ClassLogger.Add(">> GRID_RECORD ID: " & RECORD_ID.ToString, False)
If LogErrorsOnly = False Then ClassLogger.Add(">> GRID_RECORD ID: " & Rec_ID.ToString, False)
'Me.pnlDetails.Visible = True
ZeigeRecordLogsToolStripMenuItem.Enabled = False
If CURRENT_FORM_TYPE = 5 And EntityLoad = False Or IS_SINGLE_RECORD = True And EntityLoad = False Then '#### Es sind untergeordnete Entitäten geöffnet####
If FORM_TYPE = 5 And EntityLoad = False Or IS_SINGLE_RECORD = True And EntityLoad = False Then '#### Es sind untergeordnete Entitäten geöffnet####
Dim linkedRecord
' Dim pID As Integer
Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gewählt werden ####
Case 3
linkedRecord = GET_LINKED_RECORD(RECORD_ID, CURRENT_FORM_ID)
linkedRecord = GET_LINKED_RECORD(Rec_ID, FORM_ID)
If linkedRecord > 0 Then
Dim sqlp = "SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID
Dim sqlp = "SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & FORM_ID
Dim Parent_EntityID = ClassDatabase.Execute_Scalar(sqlp, True)
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", RECORD_ID, Parent_EntityID)
Dim PARENT_RECORD1 = ClassDatabase.Execute_Scalar(sql, True)
@ -2003,14 +2007,14 @@ Public Class frmForm_Constructor_Main_2
PARENT_ID = PARENT_RECORD1
End If
Case 2
linkedRecord = linkedRecord(RECORD_ID, CURRENT_FORM_ID)
linkedRecord = linkedRecord(Rec_ID, FORM_ID)
If linkedRecord > 0 Then
EBENE1_RECID = RECORD_ID
PARENT_RECORDID = RECORD_ID
PARENT_ID = RECORD_ID
EBENE1_RECID = Rec_ID
PARENT_RECORDID = EBENE1_RECID
PARENT_ID = PARENT_RECORDID
End If
Case 1
PARENT_RECORDID = RECORD_ID
PARENT_RECORDID = Rec_ID
EBENE1_RECID = PARENT_RECORDID
PARENT_ID = PARENT_RECORDID
End Select
@ -2019,14 +2023,13 @@ Public Class frmForm_Constructor_Main_2
'#### Den Group or Single_Record holen/anlegen
' GET_GROUP_OR_SINGLE_RECORD(pID, False)
Else '#### Datensatz wird normal geladen ####
SELECTED_RECORD_ID = RECORD_ID
SELECTED_RECORD_ID = Rec_ID
RECORD_ID = SELECTED_RECORD_ID
'Die aktuelle Ebene überprüfen und den Datensatz übergeben, ebenso den PARENT-Record setzen
Select Case ACT_EBENE
Case 1
RECORD_ID = SELECTED_RECORD_ID
PARENT_RECORDID = RECORD_ID
EBENE1_RECID = SELECTED_RECORD_ID
EBENE1_RECID = PARENT_RECORDID
PARENT_ID = EBENE1_RECID
If Not EBENE1_COLUMNNAME Is Nothing Then
EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
@ -2064,8 +2067,8 @@ Public Class frmForm_Constructor_Main_2
End If
If TCDetails.SelectedTabPage.Text.StartsWith("Detail") Or TCDetails.SelectedTabPage.Text.StartsWith("Kopf") Then
'Daten zu Record in jedem Fall laden
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, FORM_ID, CtrlBuilder.AllControls)
End If
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Then
tsButtonEditMode.Enabled = False
@ -2091,6 +2094,7 @@ Public Class frmForm_Constructor_Main_2
Me.tsButtonShowWorkflowTasks.Enabled = True
Me.tsButtonShowTaskOverview.Enabled = True
RECORD_ID = SELECTED_RECORD_ID
'tsstatus_Detail_show(False, "")
Catch ex As Exception
MsgBox("Error in SelectedRecord_ShowData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -2254,7 +2258,7 @@ Public Class frmForm_Constructor_Main_2
' If EDIT_STATE = EditState.None Then
' 'TabPageDetails.Text = "Detaileingabe zu '" & ACT_EBENE_STRING & "' - Record(" & SelectedRecordID & ")"
' 'Die Daten auf dem Panel laden
' ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
' ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
' 'Load_Control_Values(CtrlBuilder.AllControls)
' 'Refresh_Treeview_SelectedData()
' RECORD_CHANGED = False
@ -2297,7 +2301,7 @@ Public Class frmForm_Constructor_Main_2
Private Function Update_Record_OnChange() As String
' Record Speichern
Dim ResultMessage = CtrlCommandUI.SaveRecord(SELECTED_RECORD_ID, CURRENT_FORM_ID, PARENT_RECORDID)
Dim ResultMessage = CtrlCommandUI.SaveRecord(SELECTED_RECORD_ID, FORM_ID, PARENT_RECORDID)
'Jetzt die für die Entität notwendigen Prroceduren ausführen
Customer_Run_Procedures()
RECORD_CHANGED = False
@ -2307,11 +2311,11 @@ Public Class frmForm_Constructor_Main_2
Private Sub Customer_Run_Procedures()
Try
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_RUN_PROCEDURES WHERE FORM_ID = " & CURRENT_FORM_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_RUN_PROCEDURES WHERE FORM_ID = " & FORM_ID)
If Not DT Is Nothing Then
For Each row As DataRow In DT.Rows
Dim prsql As String = row.Item("EXECUTE_COMMAND")
prsql = prsql.ToUpper.Replace("@FORM_ID", CURRENT_FORM_ID)
prsql = prsql.ToUpper.Replace("@FORM_ID", FORM_ID)
prsql = prsql.ToUpper.Replace("@RECORD_ID", RECORD_ID)
ClassDatabase.Execute_non_Query(prsql, True)
Next
@ -2357,7 +2361,7 @@ Public Class frmForm_Constructor_Main_2
Cursor = Cursors.WaitCursor
Dim DTWD As DataTable
If Type = "ENTITY" Then
Dim _sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & CURRENT_FORM_ID
Dim _sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & FORM_ID
DTWD = ClassDatabase.Return_Datatable(_sql)
If DTWD.Rows.Count = 1 Then
If IsDBNull(DTWD.Rows(0).Item(0)) Then
@ -2370,7 +2374,7 @@ Public Class frmForm_Constructor_Main_2
Exit Sub
End If
Else
Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & CURRENT_FORM_ID
Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & FORM_ID
DTWD = ClassDatabase.Return_Datatable(sql)
If DTWD.Rows.Count = 1 Then
If IsDBNull(DTWD.Rows(0).Item(0)) Then
@ -2630,7 +2634,7 @@ Public Class frmForm_Constructor_Main_2
Case "@Record-ID".ToUpper
Return RECORD_ID
Case "@EntityID".ToUpper
Return CURRENT_FORM_ID
Return FORM_ID
Case "@ParentID".ToUpper
Return PARENT_RECORDID
Case Else
@ -2726,7 +2730,7 @@ Public Class frmForm_Constructor_Main_2
VIEWTYPE_ID = 3
End Select
Dim upd = String.Format("UPDATE TBPMO_USER_CONSTR_VIEW_TYPE SET VIEW_ID = {0} WHERE CONSTRUCTOR_DETAIL_ID = {1} AND [ENTITY_ID] = {2} AND USER_ID = {3}", VIEWTYPE_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, CURRENT_FORM_ID, USER_GUID)
Dim upd = String.Format("UPDATE TBPMO_USER_CONSTR_VIEW_TYPE SET VIEW_ID = {0} WHERE CONSTRUCTOR_DETAIL_ID = {1} AND [ENTITY_ID] = {2} AND USER_ID = {3}", VIEWTYPE_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, FORM_ID, USER_GUID)
If ClassDatabase.Execute_non_Query(upd, True) = True Then
' VIEW_ID Override zurücksetzen!!
VIEW_ID_RUNTIME = -1
@ -2736,6 +2740,15 @@ Public Class frmForm_Constructor_Main_2
Private Sub ButtonResetView_Click(sender As Object, e As EventArgs) Handles ButtonResetView.Click
' TODO: Ansicht zurücksetzen
Try
Dim XMLPath = Get_Grid_Layout_Filename()
If File.Exists(XMLPath) And GRID_TYPE = GridType.Grid Then
File.Delete(XMLPath)
Load_Entity_Data(ACT_EBENE)
End If
Catch ex As Exception
MsgBox("Error in Reset Layout Grid: " & vbNewLine & ex.Message)
End Try
End Sub
#End Region
@ -2764,13 +2777,13 @@ Public Class frmForm_Constructor_Main_2
Refresh_FollowUps()
dtpFollowUp.Enabled = False
lblWiedervorlage_Control.Text = "<< Waiting for Selection:"
'Check_FOLLOWUP_IsConfigured(CURRENT_FORM_ID)
'Check_FOLLOWUP_IsConfigured(FORM_ID)
End If
Select Case TCDetails.SelectedTabPageIndex
Case 0
'If RECORD_NEEDS_REFRESH = True Then
' ClassControlValues.LoadControlValues(RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
' ClassControlValues.LoadControlValues(RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
' ' UpdRECORD_NEEDS_REFRESH(False)
'End If
@ -2857,6 +2870,7 @@ Public Class frmForm_Constructor_Main_2
CURRENT_FILEID = Filerow.Item(0)
CURRENT_PARENT_ID = PARENT_ID
CURRENT_RECORD_ID = RECORD_ID
CURRENT_FORM_ID = FORM_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID
frmWD_Index_Dokart.ShowDialog()
RUN_WD_SEARCH(WD_Suche, "RECORD")
@ -3074,7 +3088,7 @@ Public Class frmForm_Constructor_Main_2
' grvwSelection.Appearance.FocusedRow.BackColor = Color.Fuchsia
End If
Dim sql1 As String = "SELECT COUNT(*) FROM TBPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID"
sql1 = sql1.Replace("@FORM_ID", CURRENT_FORM_ID)
sql1 = sql1.Replace("@FORM_ID", FORM_ID)
Dim result As Integer = ClassDatabase.Execute_Scalar(sql1)
If result > 0 Then
tsButtonShowWorkflowTasks.Visible = True
@ -3105,6 +3119,8 @@ Public Class frmForm_Constructor_Main_2
If PARENT_ID = 0 Then
Exit Sub
End If
CURRENT_ENTITYSTRING = _ENTITYSTRING
CURRENT_FORM_ID = FORM_ID
frmWD_EntityImport.ShowDialog()
End Sub
@ -3214,7 +3230,7 @@ Public Class frmForm_Constructor_Main_2
Sub Load_Templates()
Try
Dim sql As String = "SELECT * FROM VWPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & CURRENT_FORM_ID & " ORDER BY TEMPLATE_NAME"
Dim sql As String = "SELECT * FROM VWPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & FORM_ID & " ORDER BY TEMPLATE_NAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Load_Templates")
If Not IsNothing(DT) Then
If DT.Rows.Count > 0 Then
@ -3421,7 +3437,7 @@ Public Class frmForm_Constructor_Main_2
Sub Load_ParentConnections()
Try
' SELECT COLUMN_NAME1 FROM VWTEMP_cPMO_FORM
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT TOP 1 PARENT_ID,FORM_TITLE from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID, "Parent-Data")
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT TOP 1 PARENT_ID,FORM_TITLE from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID, "Parent-Data")
Dim Parent_ID = DT.Rows(0).Item(0)
Dim Title = DT.Rows(0).Item(1)
Dim Colname = "[" & ClassDatabase.Execute_Scalar("SELECT TOP 1 COLUMN_NAME1 from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & Parent_ID, True) & "]"
@ -3476,13 +3492,13 @@ Public Class frmForm_Constructor_Main_2
If result <> MsgBoxResult.Yes Then
Exit Sub
Else
If ClassDatabase.Execute_non_Query("DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RECORD_ID & " AND RECORD1_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID & ")", True) = False Then
If ClassDatabase.Execute_non_Query("DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RECORD_ID & " AND RECORD1_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & FORM_ID & ")", True) = False Then
Exit Sub
End If
End If
End If
If ClassControlCommandsUI.ConnectRecord(LinkParentID, RECORD_ID, "ReLInk ENTITY " & CURRENT_FORM_ID.ToString) = True Then
If ClassControlCommandsUI.ConnectRecord(LinkParentID, RECORD_ID, "ReLInk ENTITY " & FORM_ID.ToString) = True Then
'Save_GridViewParentEntityLayout()
MsgBox("Die Parent-Entität wurde erfolgreich aktualisiert!", MsgBoxStyle.Information)
Check_Record_Changed()
@ -3504,4 +3520,31 @@ Public Class frmForm_Constructor_Main_2
End If
End If
End Sub
Private Sub DatenNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatenNeuLadenToolStripMenuItem.Click
DisableEditMode()
Load_Entity_Data(ACT_EBENE)
RECORD_CHANGED = False
End Sub
Private Sub AnwendungscacheFreigebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnwendungscacheFreigebenToolStripMenuItem.Click
Dim result As MsgBoxResult
result = MessageBox.Show("Möchten Sie den Anwendungscache wirklich leeren?" & vbNewLine & "Die Entität wird dann automatisch neugeladen!", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
Cursor = Cursors.WaitCursor
CURRENT_FORM_ID = FORM_ID
ClassControlValueCache.ClearCache()
DisableEditMode()
Load_Entity_Data(ACT_EBENE)
RECORD_CHANGED = False
Catch ex As Exception
MsgBox("Unexpected Error in Clear Cache:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Finally
Cursor = Cursors.Default
End Try
End If
End Sub
End Class

6
app/DD-Record-Organiser/frmMain.Designer.vb generated
View File

@ -69,7 +69,6 @@ Partial Class frmMain
Me.DefaultLookAndFeel1 = New DevExpress.LookAndFeel.DefaultLookAndFeel(Me.components)
Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
Me.TimerClose3Minutes = New System.Windows.Forms.Timer(Me.components)
Me.TimerScan = New System.Windows.Forms.Timer(Me.components)
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ribbonMain, System.ComponentModel.ISupportInitialize).BeginInit()
@ -444,10 +443,6 @@ Partial Class frmMain
'
Me.TimerClose3Minutes.Interval = 180000
'
'TimerScan
'
Me.TimerScan.Interval = 10000
'
'frmMain
'
Me.Appearance.BackColor = System.Drawing.Color.White
@ -520,6 +515,5 @@ Partial Class frmMain
Friend WithEvents groupQuickAccess As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents TimerClose3Minutes As System.Windows.Forms.Timer
Friend WithEvents groupQuickAccessForm As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents TimerScan As System.Windows.Forms.Timer
End Class

4
app/DD-Record-Organiser/frmMain.resx
View File

@ -1690,8 +1690,8 @@
<metadata name="TimerClose3Minutes.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1365, 17</value>
</metadata>
<metadata name="TimerScan.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>195</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

85
app/DD-Record-Organiser/frmMain.vb
View File

@ -9,8 +9,54 @@ Public Class frmMain
'Dim sql_User_Login As String = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
'Dim sql_UserID As String = "SELECT GUID FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
'Private USER_GUID
Public Shared TIMER_SCAN As New Timer
Public Shared Sub RUN_TIMER()
Try
If TIMER_SCAN.Enabled = False Then
TIMER_SCAN.Interval = 10000
TIMER_SCAN.Enabled = True
AddHandler TIMER_SCAN.Tick, AddressOf Scan_TickHandler
End If
Catch ex As Exception
MsgBox("Unexpected Error in RUN_TIMER:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Shared Sub Scan_TickHandler(sender As Object, e As EventArgs)
Try
Dim sql1 As String = String.Format("select * from TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' and WORKED = 0 AND UPPER(USER_WORK) = '{0}'", Environment.UserName)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql1, "Load ScanFiles")
If Not IsNothing(DT) Then
If DT.Rows.Count > 0 Then
Dim open As Boolean = False
For Each form In My.Application.OpenForms
If (form.name = frmScanFiles.Name) Then
'form is loaded so can do work
'if you need to check whether it is actually visible
If form.Visible Then
open = True
'do work when visible
If My.Settings.User_InBoxScan_NotinFront = False Then
frmScanFiles.BringToFront()
End If
Else
End If
End If
Next
If open = False Then
Dim frm As New frmScanFiles
frm = frmScanFiles.Instance()
frm.Show()
End If
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Scan_TickHandler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
TIMER_SCAN.Enabled = False
End Try
End Sub
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
' Referenz zu frmMain speichern
@ -362,7 +408,7 @@ Public Class frmMain
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Refresh_TaskReminder()
Timer1.Start()
TimerScan.Start()
RUN_TIMER()
If Sett_ConstructorStart <> 0 Then
Cursor = Cursors.WaitCursor
OpenFormConstructor(Sett_ConstructorStart)
@ -551,41 +597,4 @@ Public Class frmMain
End Try
End Select
End Sub
Private Sub TimerScan_Tick(sender As Object, e As EventArgs) Handles TimerScan.Tick
Check_Scan()
End Sub
Sub Check_scan()
Try
Dim sql1 As String = String.Format("select * from TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' and WORKED = 0 AND UPPER(USER_WORK) = '{0}'", Environment.UserName)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql1, "Load ScanFiles")
If Not IsNothing(DT) Then
If DT.Rows.Count > 0 Then
Dim open As Boolean = False
For Each form In My.Application.OpenForms
If (form.name = frmScanFiles.Name) Then
'form is loaded so can do work
'if you need to check whether it is actually visible
If form.Visible Then
open = True
'do work when visible
If My.Settings.User_InBoxScan_NotinFront = False Then
frmScanFiles.BringToFront()
End If
Else
End If
End If
Next
If open = False Then
Dim frm As New frmScanFiles
frm = frmScanFiles.Instance()
frm.Show()
End If
End If
End If
Catch ex As Exception
MsgBox("Error in Load InBox Scan:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class

29
app/DD-Record-Organiser/frmScanFiles.vb
View File

@ -29,21 +29,26 @@ Public Class frmScanFiles
For Each row As DataRow In DT.Rows
Dim extension = Path.GetExtension(row.Item("FILENAME2WORK").ToString)
Dim filename = row.Item("FILENAME_ONLY").ToString
Dim ID = row.Item("GUID").ToString
'We can only find associated exes by extension, so don't show any files that have no extension
If IsNothing(extension) Then
Else
If extension.Contains("pdf") Then
'Add the file to the ListView, with the executable path as the key to the ImageList's image
ListView1.Items.Add(filename, 0)
Dim filestring = row.Item("FILENAME2WORK")
If ClassHelper.CheckFileIsInUse(filestring) = False Then
Dim filename = row.Item("FILENAME_ONLY").ToString
Dim ID = row.Item("GUID").ToString
'We can only find associated exes by extension, so don't show any files that have no extension
If IsNothing(extension) Then
Else
ListView1.Items.Add(filename)
If extension.Contains("pdf") Then
'Add the file to the ListView, with the executable path as the key to the ImageList's image
ListView1.Items.Add(filename, 0)
Else
ListView1.Items.Add(filename)
End If
ListView1.Items(i).Tag = ID
i += 1
End If
ListView1.Items(i).Tag = ID
i += 1
End If
Next
If DT.Rows.Count = 0 Then
Me.Close()