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
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 Befehl für CONTROL TABELLE
' SQL_COMMAND_1 auf leeren String setzen ' 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 If ClassDatabase.Execute_non_Query(SQL) = True Then
SQL = "SELECT MAX(GUID) FROM TBPMO_CONTROL" SQL = "SELECT MAX(GUID) FROM TBPMO_CONTROL"
@@ -92,7 +92,8 @@
End If End If
Catch ex As Exception 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 Return False
End Try End Try
End Function End Function
@@ -111,7 +112,7 @@
CONTROL_TEXT = control.Text CONTROL_TEXT = control.Text
'Dim TAB_INDEX '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) 'TAB_INDEX = ClassDatabase.Execute_Scalar(SQL)
'If Not TAB_INDEX Is Nothing Then 'If Not TAB_INDEX Is Nothing Then
' If IsDBNull(TAB_INDEX) Then ' If IsDBNull(TAB_INDEX) Then
@@ -133,6 +134,7 @@
End If End If
Catch ex As Exception 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) MsgBox("Unexpected Error in InsertControlScreen (Adding ViewProperties:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False Return False
End Try End Try
@@ -157,7 +159,8 @@
Throw New Exception() Throw New Exception()
End If End If
Catch ex As Exception 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 Return False
End Try End Try
End Function End Function
@@ -290,7 +293,8 @@
Throw New Exception() Throw New Exception()
End If End If
Catch ex As Exception 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 Return False
End Try End Try
End Function End Function
@@ -433,7 +437,8 @@
End If End If
Catch ex As Exception 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 Return False
End Try End Try
End Function End Function
@@ -465,7 +470,8 @@
End If End If
Catch ex As Exception 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 Return False
End Try End Try
End Function End Function
@@ -487,7 +493,8 @@
End If End If
Catch ex As Exception 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 Return False
End Try End Try
End Function End Function
@@ -503,7 +510,8 @@
Throw New Exception() Throw New Exception()
End If End If
Catch ex As Exception 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 Return False
End Try End Try
End Function End Function
@@ -518,7 +526,8 @@
Throw New Exception() Throw New Exception()
End If End If
Catch ex As Exception 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 Return False
End Try End Try
End Function End Function

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

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

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

@@ -5,20 +5,25 @@ Imports System.Threading
Public Class ClassFolderWatcher Public Class ClassFolderWatcher
Public Shared FolderWatcher_SCAN As FileSystemWatcher Public Shared FolderWatcher_SCAN As FileSystemWatcher
Public Shared Function Restart_FolderWatchSCAN() Public Shared Function Restart_FolderWatchSCAN()
If FolderWatcher_SCAN.EnableRaisingEvents = True Then Try
'Gestartet also Stoppen If FolderWatcher_SCAN.EnableRaisingEvents = True Then
FolderWatcher_SCAN.EnableRaisingEvents = False 'Gestartet also Stoppen
FWSCAN_started = False FolderWatcher_SCAN.EnableRaisingEvents = False
'FolderWatch neu instanzieren FWSCAN_started = False
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*") 'FolderWatch neu instanzieren
ClassLogger.Add(" >> FolderWatchScan neu instanziert", False) FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
FolderWatcher_SCAN.IncludeSubdirectories = False ClassLogger.Add(" >> FolderWatchScan neu instanziert", False)
FolderWatcher_SCAN.EnableRaisingEvents = True FolderWatcher_SCAN.IncludeSubdirectories = False
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated FolderWatcher_SCAN.EnableRaisingEvents = True
FWSCAN_started = True AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
SaveMySettingsValue("FWSCAN_started", "True", "ConfigMain") 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 End Function
Public Shared Function StartStop_FolderWatchSCAN() Public Shared Function StartStop_FolderWatchSCAN()
Try Try

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

@@ -27,4 +27,27 @@ Public Class ClassHelper
End If End If
Return tempName Return tempName
End Function 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 End Class

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

@@ -138,7 +138,6 @@ Public Class ClassInit
ClassLogger.Add(" - Wieder abgemeldet", False) ClassLogger.Add(" - Wieder abgemeldet", False)
End If End If
Else Else
Try Try
'Die FolderWatch starten 'Die FolderWatch starten
Dim sql1 = "SELECT FOLDER_PATH FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID 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 ' Diese Werte müssen später zur Laufzeit geladen werden
Public CURRENT_FORM_ID As Integer Public CURRENT_FORM_ID As Integer
Public CURRENT_FORM_TYPE As Integer
Public CURRENT_PARENT_ID As Integer Public CURRENT_PARENT_ID As Integer
Public CURRENT_ENTITYSTRING As String = "" Public CURRENT_ENTITYSTRING As String = ""
Public CURRENT_ENTITYSQL As String 'Public CURRENT_ENTITYSQL As String
Public CURRENT_SCREEN_ID As Integer = 1 Public CURRENT_SCREEN_ID As Integer = 1
Public CURRENT_CONTROL_ID As Integer Public CURRENT_CONTROL_ID As Integer
Public CURRENT_RECORD_ID As Integer Public CURRENT_RECORD_ID As Integer
Public CURRENT_TASK_ID As Integer Public CURRENT_TASK_ID As Integer
Public CURRENT_DOKARTID 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 Private Sub btnstartstop2_Click(sender As Object, e As EventArgs) Handles btnstartstop2.Click
If CURRENT_SCAN_FOLDERWATCH <> "" Then If CURRENT_SCAN_FOLDERWATCH <> "" Then
CheckScanFolder(CURRENT_SCAN_FOLDERWATCH)
CheckFWSCAN_State() CheckFWSCAN_State()
End If End If
End Sub 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.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ButtonResetFilter = New System.Windows.Forms.ToolStripMenuItem() Me.ButtonResetFilter = New System.Windows.Forms.ToolStripMenuItem()
Me.ButtonExportToExcel = 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.grvwCarousel = New DevExpress.XtraGrid.Views.Layout.LayoutView()
Me.grvwTiles = New DevExpress.XtraGrid.Views.Tile.TileView() Me.grvwTiles = New DevExpress.XtraGrid.Views.Tile.TileView()
Me.NavPane = New DevExpress.XtraBars.Navigation.TileNavPane() 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.tsButtonEditMode = New System.Windows.Forms.ToolStripButton()
Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton() Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton()
Me.WindreamsucheNeuLadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.WindreamsucheNeuLadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.WorkflowTasksNeuErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.WorkflowTasksNeuErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ZeigeRecordLogsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OfficeVorlagenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.OfficeVorlagenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VerknüpfungenAnzeigenToolStripMenuItem = 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.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.tsButtonShowTaskOverview = New System.Windows.Forms.ToolStripButton()
Me.tsButtonShowWorkflowTasks = New System.Windows.Forms.ToolStripButton() Me.tsButtonShowWorkflowTasks = New System.Windows.Forms.ToolStripButton()
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
@@ -219,9 +224,9 @@ Partial Class frmForm_Constructor_Main_2
' '
'ContextMenuGrid '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.Name = "ContextMenuGrid"
Me.ContextMenuGrid.Size = New System.Drawing.Size(233, 148) Me.ContextMenuGrid.Size = New System.Drawing.Size(233, 170)
' '
'FunktionenDataGridToolStripMenuItem 'FunktionenDataGridToolStripMenuItem
' '
@@ -295,6 +300,13 @@ Partial Class frmForm_Constructor_Main_2
Me.ButtonExportToExcel.Size = New System.Drawing.Size(232, 22) Me.ButtonExportToExcel.Size = New System.Drawing.Size(232, 22)
Me.ButtonExportToExcel.Text = "Export nach Excel" 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 'grvwCarousel
' '
Me.grvwCarousel.GridControl = Me.GridControlMain Me.grvwCarousel.GridControl = Me.GridControlMain
@@ -511,7 +523,7 @@ Partial Class frmForm_Constructor_Main_2
Me.TabWindream.Controls.Add(Me.ToolStripDokumente) Me.TabWindream.Controls.Add(Me.ToolStripDokumente)
Me.TabWindream.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954 Me.TabWindream.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954
Me.TabWindream.Name = "TabWindream" 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" Me.TabWindream.Text = "windream-Dateien"
' '
'AxObjectListControl 'AxObjectListControl
@@ -522,7 +534,7 @@ Partial Class frmForm_Constructor_Main_2
Me.AxObjectListControl.Location = New System.Drawing.Point(0, 25) Me.AxObjectListControl.Location = New System.Drawing.Point(0, 25)
Me.AxObjectListControl.Name = "AxObjectListControl" Me.AxObjectListControl.Name = "AxObjectListControl"
Me.AxObjectListControl.OcxState = CType(resources.GetObject("AxObjectListControl.OcxState"), System.Windows.Forms.AxHost.State) 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.TabIndex = 6
Me.AxObjectListControl.TabStop = False 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.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripDropDownButton2})
Me.ToolStripDokumente.Location = New System.Drawing.Point(0, 0) Me.ToolStripDokumente.Location = New System.Drawing.Point(0, 0)
Me.ToolStripDokumente.Name = "ToolStripDokumente" 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.TabIndex = 2
Me.ToolStripDokumente.Text = "ToolStrip2" Me.ToolStripDokumente.Text = "ToolStrip2"
' '
@@ -566,7 +578,7 @@ Partial Class frmForm_Constructor_Main_2
Me.TabFollowUp.Controls.Add(Me.Label5) Me.TabFollowUp.Controls.Add(Me.Label5)
Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
Me.TabFollowUp.Name = "TabFollowUp" 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" Me.TabFollowUp.Text = "Wiedervorlage"
' '
'ListViewFollowUps 'ListViewFollowUps
@@ -745,7 +757,7 @@ Partial Class frmForm_Constructor_Main_2
Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"), System.Drawing.Image) Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"), System.Drawing.Image)
Me.TabPos.Name = "TabPos" Me.TabPos.Name = "TabPos"
Me.TabPos.PageVisible = False Me.TabPos.PageVisible = False
Me.TabPos.Size = New System.Drawing.Size(1069, 312) Me.TabPos.Size = New System.Drawing.Size(1072, 316)
Me.TabPos.Text = "Positionen" Me.TabPos.Text = "Positionen"
' '
'Panel1 'Panel1
@@ -754,7 +766,7 @@ Partial Class frmForm_Constructor_Main_2
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 25) Me.Panel1.Location = New System.Drawing.Point(0, 25)
Me.Panel1.Name = "Panel1" 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 Me.Panel1.TabIndex = 2
' '
'GridControlPos 'GridControlPos
@@ -763,7 +775,7 @@ Partial Class frmForm_Constructor_Main_2
Me.GridControlPos.Location = New System.Drawing.Point(0, 0) Me.GridControlPos.Location = New System.Drawing.Point(0, 0)
Me.GridControlPos.MainView = Me.grvwGridPos Me.GridControlPos.MainView = Me.grvwGridPos
Me.GridControlPos.Name = "GridControlPos" 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.TabIndex = 0
Me.GridControlPos.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGridPos}) 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.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
Me.BindingNavigatorPOS.Name = "BindingNavigatorPOS" Me.BindingNavigatorPOS.Name = "BindingNavigatorPOS"
Me.BindingNavigatorPOS.PositionItem = Me.BindingNavigatorPositionItem 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.TabIndex = 1
Me.BindingNavigatorPOS.Text = "BindingNavigator1" Me.BindingNavigatorPOS.Text = "BindingNavigator1"
' '
@@ -928,7 +940,7 @@ Partial Class frmForm_Constructor_Main_2
'ToolStripDropDownButton1 'ToolStripDropDownButton1
' '
Me.ToolStripDropDownButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right 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.Image = Global.DD_Record_Organiser.My.Resources.Resources.PropertyGridEditorPart_6041
Me.ToolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1" 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.Size = New System.Drawing.Size(231, 22)
Me.WindreamsucheNeuLadenToolStripMenuItem.Text = "windream-Suche neu laden" Me.WindreamsucheNeuLadenToolStripMenuItem.Text = "windream-Suche neu laden"
' '
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(228, 6)
'
'WorkflowTasksNeuErstellenToolStripMenuItem 'WorkflowTasksNeuErstellenToolStripMenuItem
' '
Me.WorkflowTasksNeuErstellenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.brick_go 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.Size = New System.Drawing.Size(231, 22)
Me.WorkflowTasksNeuErstellenToolStripMenuItem.Text = "Workflow Tasks neu erzeugen" 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 'OfficeVorlagenToolStripMenuItem
' '
Me.OfficeVorlagenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.page_white_office1 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.Size = New System.Drawing.Size(231, 22)
Me.VerknüpfungenAnzeigenToolStripMenuItem.Text = "Verknüpfungen anzeigen" Me.VerknüpfungenAnzeigenToolStripMenuItem.Text = "Verknüpfungen anzeigen"
' '
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(228, 6)
'
'RecordKopierenToolStripMenuItem 'RecordKopierenToolStripMenuItem
' '
Me.RecordKopierenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.Copy_6524 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.Size = New System.Drawing.Size(231, 22)
Me.RecordKopierenToolStripMenuItem.Text = "Record kopieren" 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 'tsButtonShowTaskOverview
' '
Me.tsButtonShowTaskOverview.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right 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 GridViewParent As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents btnRelinkParentID As System.Windows.Forms.Button Friend WithEvents btnRelinkParentID As System.Windows.Forms.Button
Friend WithEvents RecordKopierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem 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 End Class

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

@@ -304,6 +304,6 @@
<value>1222, 54</value> <value>1222, 54</value>
</metadata> </metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>164</value> <value>242</value>
</metadata> </metadata>
</root> </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 Public Class frmForm_Constructor_Main_2
#Region "Laufzeitvariablen & Konstanten" #Region "Laufzeitvariablen & Konstanten"
Public CONSTRUCTORID As Integer Private CONSTRUCTORID As Integer
Private CONSTRUCTOR_DETAIL_ID As Integer Private CONSTRUCTOR_DETAIL_ID As Integer
Public DT_CONSTRUCT_VIEW As DataTable Private DT_CONSTRUCT_VIEW As DataTable
Public EBENE2_PARENT_ID As Integer Private EBENE2_PARENT_ID As Integer
Public EBENE3_PARENT_ID As Integer Private EBENE3_PARENT_ID As Integer
Public ACT_EBENE As Integer Private ACT_EBENE As Integer
Public ACT_EBENE_STRING As String Private ACT_EBENE_STRING As String
Public SELECTED_RECORD_ID As Integer Private SELECTED_RECORD_ID As Integer
Public PARENT_RECORDID As Integer Private PARENT_RECORDID As Integer
Public thisFORMVIEW_ID As Integer Private thisFORMVIEW_ID As Integer
Public POS_ENTITY As Integer = 0 Private POS_ENTITY As Integer = 0
Public POS_SQL As String = "" Private POS_SQL As String = ""
Public POS_RECORD_ID Private POS_RECORD_ID
Dim IsTopFirstRow As Boolean = True Dim IsTopFirstRow As Boolean = True
Private RightMouse_Clicked = False Private RightMouse_Clicked = False
@@ -36,27 +36,27 @@ Public Class frmForm_Constructor_Main_2
Public RECORD_ENABLED As Boolean = False Public RECORD_ENABLED As Boolean = False
Public ENTITY_RECORD_COUNT As Integer = 0 Private ENTITY_RECORD_COUNT As Integer = 0
Public EBENE1_ENTITY Private EBENE1_ENTITY
Public EBENE2_ENTITY Private EBENE2_ENTITY
Public EBENE3_ENTITY Private EBENE3_ENTITY
Public EBENE1_COLUMNNAME Private EBENE1_COLUMNNAME
Public EBENE2_COLUMNNAME Private EBENE2_COLUMNNAME
Public EBENE3_COLUMNNAME Private EBENE3_COLUMNNAME
Public EBENE1_RECID Private EBENE1_RECID
Public EBENE2_RECID Private EBENE2_RECID
Public EBENE3_RECID Private EBENE3_RECID
Public EBENE1_GRID_RESULT Private EBENE1_GRID_RESULT
Public EBENE2_GRID_RESULT Private EBENE2_GRID_RESULT
Public EBENE3_GRID_RESULT Private EBENE3_GRID_RESULT
Public act_FormViewID Private act_FormViewID
Public DT_SELECTION As DataTable Private DT_SELECTION As DataTable
Public EDIT_STATE As EditState = EditState.None Private EDIT_STATE As EditState = EditState.None
Public GRID_TYPE As GridType = GridType.Tiles Private GRID_TYPE As GridType = GridType.Tiles
Public GRID_TYPE_ID As Integer = 1 Private GRID_TYPE_ID As Integer = 1
Public FORM_LOADED As Boolean = False Private FORM_LOADED As Boolean = False
Public RECORD_CHANGED As Boolean = False Private RECORD_CHANGED As Boolean = False
Public SAVE_ROUTINE_ACTIVE As Boolean = False Private SAVE_ROUTINE_ACTIVE As Boolean = False
Private SP1 As String Private SP1 As String
Private SP2 As String Private SP2 As String
Private SP3 As String Private SP3 As String
@@ -90,7 +90,13 @@ Public Class frmForm_Constructor_Main_2
Private RECORD_ID As Integer Private RECORD_ID As Integer
Private PARENT_ID As Integer Private PARENT_ID As Integer
Private FORM_TYPE As Integer
Private FORM_ID As Integer
Private FORMVIEW_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) 'Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer)
' If GRID_TYPE = GridType.Grid Then ' 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 ' 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) ' _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) ' _ENTITYSQL = ClassDatabase.Execute_Scalar(_ENTITYSQL, True)
' If CURRENT_ENTITYSQL = String.Empty Then ' If _ENTITYSQL = String.Empty Then
' CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T" ' _ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
' If IS_SINGLE_RECORD = True Or CURRENT_FORM_TYPE = 5 Then ' If IS_SINGLE_RECORD = True Or FORM_TYPE = 5 Then
' Else ' Else
' GRID_TYPE = GridType.Grid ' GRID_TYPE = GridType.Grid
@@ -472,14 +478,14 @@ Public Class frmForm_Constructor_Main_2
Try Try
If GRID_TYPE = GridType.Grid Then If GRID_TYPE = GridType.Grid Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False) 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 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) _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) _ENTITYSQL = ClassDatabase.Execute_Scalar(_ENTITYSQL, True)
If CURRENT_ENTITYSQL = String.Empty Then If _ENTITYSQL = String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> No Quick-View Configured", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> No Quick-View Configured", False)
CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T" _ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
If IS_SINGLE_RECORD = True Or CURRENT_FORM_TYPE = 5 Then If IS_SINGLE_RECORD = True Or FORM_TYPE = 5 Then
Else Else
GRID_TYPE = GridType.Grid GRID_TYPE = GridType.Grid
@@ -637,8 +643,6 @@ Public Class frmForm_Constructor_Main_2
grvwTiles.OptionsBehavior.Editable = Not IsTopFirstRow grvwTiles.OptionsBehavior.Editable = Not IsTopFirstRow
End If End If
End If End If
Check_Record_Changed() Check_Record_Changed()
DisableEditMode() DisableEditMode()
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
@@ -805,8 +809,8 @@ Public Class frmForm_Constructor_Main_2
Else Else
ACT_EBENE = 1 ACT_EBENE = 1
End If End If
CURRENT_FORM_ID = FormId FORM_ID = FormId
Dim Sql = "SELECT GUID from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID 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) CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar(Sql, True)
Get_RecordCounts_Nodes() Get_RecordCounts_Nodes()
Load_Entity_Data(ACT_EBENE) Load_Entity_Data(ACT_EBENE)
@@ -926,7 +930,7 @@ Public Class frmForm_Constructor_Main_2
If IsDBNull(result) Or IsNothing(result) Then If IsDBNull(result) Or IsNothing(result) Then
tsslblRecord.Visible = False tsslblRecord.Visible = False
Else Else
If CURRENT_FORM_TYPE = 5 Then If FORM_TYPE = 5 Then
tsslblRecord.Text = String.Format("Group-Record ({0}) - {1}", RecordId, result.ToString) tsslblRecord.Text = String.Format("Group-Record ({0}) - {1}", RecordId, result.ToString)
Else Else
If IS_SINGLE_RECORD = True Then If IS_SINGLE_RECORD = True Then
@@ -946,14 +950,14 @@ Public Class frmForm_Constructor_Main_2
#Region "Controls" #Region "Controls"
Sub Load_Controls(FORM_VIEW_ID As Integer) Sub Load_Controls(FORM_VIEW_ID As Integer)
thisFORMVIEW_ID = FORM_VIEW_ID 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) CtrlBuilder = New ClassControlBuilder(pnlDetails, ttToolTip)
'LoadControls(thisFormId) 'LoadControls(thisFormId)
CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder, CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
ContextMenuDetails, ContextMenuDetails,
AddressOf NewEditAppointment, AddressOf NewEditAppointment,
AddressOf OpenFormData) AddressOf OpenFormData)
CtrlCommandUI.LoadControls(CURRENT_FORM_ID) CtrlCommandUI.LoadControls(FORM_ID)
Lock_RecordControls(True) Lock_RecordControls(True)
' pnlDetails.Enabled = False ' pnlDetails.Enabled = False
@@ -971,7 +975,7 @@ Public Class frmForm_Constructor_Main_2
Try Try
Dim Control As Control = sender Dim Control As Control = sender
Dim ControlName As String = Control.Name 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) Dim dr As DataRow = ClassFunctionCommands.LoadFunction(ControlId)
@@ -1013,7 +1017,7 @@ Public Class frmForm_Constructor_Main_2
Lock_RecordControls(False) Lock_RecordControls(False)
tsButtonShowWorkflowTasks.Enabled = True tsButtonShowWorkflowTasks.Enabled = True
CURRENT_PARENT_ID = PARENT_ID 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 ' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
tsButtonSave.Enabled = True tsButtonSave.Enabled = True
EDIT_STATE = EditState.Insert EDIT_STATE = EditState.Insert
@@ -1118,11 +1122,11 @@ Public Class frmForm_Constructor_Main_2
Update_Status_Label(True, "Record gespeichert - " & Now, EditState.Update) Update_Status_Label(True, "Record gespeichert - " & Now, EditState.Update)
Update_Record_Label(SELECTED_RECORD_ID) 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 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 = " & CURRENT_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 IS_SINGLE_RECORD = False Then
If CURRENT_FORM_TYPE <> 5 Then If FORM_TYPE <> 5 Then
If EDIT_STATE = EditState.Insert Then If EDIT_STATE = EditState.Insert Then
'Die Daten neu laden 'Die Daten neu laden
Load_Entity_Data_Only() Load_Entity_Data_Only()
@@ -1133,7 +1137,7 @@ Public Class frmForm_Constructor_Main_2
'Get_Grid_Row_Handle(RECORD_ID) 'Get_Grid_Row_Handle(RECORD_ID)
LocateRecordById(RECORD_ID) LocateRecordById(RECORD_ID)
'Die Daten auf dem Panel laden '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! ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False RECORD_CHANGED = False
End If End If
@@ -1193,12 +1197,12 @@ Public Class frmForm_Constructor_Main_2
Me.tsButtonEditMode.Text = "Bearbeiten beenden" Me.tsButtonEditMode.Text = "Bearbeiten beenden"
' Abhängige Listen laden ' 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 RECORD_ENABLED = True
pnlDetails.Focus() pnlDetails.Focus()
'If RECORD_ENABLED = False Then '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 If
End Sub 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) Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Try Try
Dim ctrl As Control = sender 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 Catch ex As Exception
MsgBox("Error in OpenEditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in OpenEditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
@@ -1258,19 +1262,19 @@ Public Class frmForm_Constructor_Main_2
RECORD_ID = 0 RECORD_ID = 0
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
'VerknüpfungenToolStripMenuItem.Enabled = False 'VerknüpfungenToolStripMenuItem.Enabled = False
CURRENT_FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID 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 = " & CURRENT_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 = " & CURRENT_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 = " & CURRENT_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 = " & CURRENT_FORM_ID) POS_ENTITY = ClassDatabase.Execute_Scalar("SELECT POS_ENTITY FROM TBPMO_FORM WHERE GUID = " & FORM_ID)
If VIEW_ID_RUNTIME <> -1 Then If VIEW_ID_RUNTIME <> -1 Then
GRID_TYPE_ID = VIEW_ID_RUNTIME GRID_TYPE_ID = VIEW_ID_RUNTIME
Else 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 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 VIEW_ID = 1
End If End If
GRID_TYPE_ID = VIEW_ID GRID_TYPE_ID = VIEW_ID
@@ -1290,7 +1294,7 @@ Public Class frmForm_Constructor_Main_2
End Select End Select
SELECTED_RECORD_ID = 0 SELECTED_RECORD_ID = 0
Dim DT As DataTable 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) Dim PARENT_ID = ClassDatabase.Execute_Scalar(sql)
If PARENT_ID Is Nothing Then If PARENT_ID Is Nothing Then
MsgBox("Error in GetParentID for selectedNode - Check Logfile", MsgBoxStyle.Exclamation) MsgBox("Error in GetParentID for selectedNode - Check Logfile", MsgBoxStyle.Exclamation)
@@ -1298,9 +1302,9 @@ Public Class frmForm_Constructor_Main_2
End If End If
'Abhängig von der Entität die Selektierungs-Daten laden '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 '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 Select Case ClickedLevel
Case 1 Case 1
EBENE1_ENTITY = "" EBENE1_ENTITY = ""
@@ -1320,16 +1324,16 @@ Public Class frmForm_Constructor_Main_2
'tslblEntity2.Visible = False 'tslblEntity2.Visible = False
'tslblEntity3.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 = "" EBENE2_COLUMNNAME = ""
EBENE3_COLUMNNAME = "" EBENE3_COLUMNNAME = ""
EBENE2_GRID_RESULT = Nothing EBENE2_GRID_RESULT = Nothing
EBENE3_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 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) '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 CURRENT_FORM_TYPE <> 5 And EBENE1_RECID = 0 Then '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) ' MsgBox("Entität '" & TreeViewLevelSelect.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation)
' TreeViewLevelSelect.SelectedNode = TreeViewLevelSelect.SelectedNode.Parent ' TreeViewLevelSelect.SelectedNode = TreeViewLevelSelect.SelectedNode.Parent
' Exit Sub ' Exit Sub
@@ -1343,12 +1347,12 @@ Public Class frmForm_Constructor_Main_2
PARENT_RECORDID = EBENE1_RECID PARENT_RECORDID = EBENE1_RECID
PARENT_ID = EBENE1_RECID PARENT_ID = EBENE1_RECID
If GRID_TYPE = GridType.Grid Then 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 Else
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.Replace("@RecordID", EBENE2_RECID) _ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2") _ENTITYSQL = _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" _ENTITYSQL = _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.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
End If End If
Else Else
Console.WriteLine("Ebene 1 wurde nicht ausgewählt") 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) Update_Status_Label(True, "Entität 1 übersprungen - Alle Datensätze geladen", EditState.Update)
End If End If
'tslblEntity3.Visible = False 'tslblEntity3.Visible = False
'Select Case CURRENT_FORM_TYPE 'Select Case FORM_TYPE
' Case 5 ' Case 5
' If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID) = True Then ' If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID) = True Then
' EBENE2_RECID = RECORD_ID ' EBENE2_RECID = RECORD_ID
' End If ' End If
'End Select '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 = "" EBENE3_COLUMNNAME = ""
EBENE2_GRID_RESULT = Nothing EBENE2_GRID_RESULT = Nothing
EBENE3_GRID_RESULT = Nothing EBENE3_GRID_RESULT = Nothing
@@ -1377,7 +1381,7 @@ Public Class frmForm_Constructor_Main_2
ACT_EBENE_STRING = EBENE3_ENTITY ACT_EBENE_STRING = EBENE3_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 3 in TreeView selektiert", False) 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 'Wenn bereits ein Record für Ebene 1 gewählt wurde dann eisnchränken
If EBENE2_RECID > 0 Then If EBENE2_RECID > 0 Then
'Parent-ID setzen 'Parent-ID setzen
@@ -1385,12 +1389,12 @@ Public Class frmForm_Constructor_Main_2
PARENT_ID = EBENE2_RECID PARENT_ID = EBENE2_RECID
Try Try
If GRID_TYPE = GridType.Grid Then 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 Else
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.Replace("@RecordID", EBENE2_RECID) _ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2") _ENTITYSQL = _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" _ENTITYSQL = _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.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
End If End If
Catch ex As Exception 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) Update_Status_Label(True, "Entität 2 übersprungen - Alle Datensätze geladen", EditState.Update)
tsslblRecord.Text = "" tsslblRecord.Text = ""
End If End If
'Select Case CURRENT_FORM_TYPE 'Select Case FORM_TYPE
' Case 5 ' Case 5
' If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID) = True Then ' If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID) = True Then
' EBENE3_RECID = RECORD_ID ' EBENE3_RECID = RECORD_ID
@@ -1414,9 +1418,9 @@ Public Class frmForm_Constructor_Main_2
End Select End Select
CURRENT_ENTITYSTRING = ACT_EBENE_STRING _ENTITYSTRING = ACT_EBENE_STRING
PARENT_ID = PARENT_RECORDID 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 If EDIT_STATE = EditState.None Then
'Die Controls der Entität laden 'Die Controls der Entität laden
@@ -1436,7 +1440,7 @@ Public Class frmForm_Constructor_Main_2
End If End If
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 If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID, True) = True Then
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden! ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
@@ -1450,7 +1454,7 @@ Public Class frmForm_Constructor_Main_2
End If End If
' Hide_Grid_Columns() ' Hide_Grid_Columns()
If CURRENT_FORM_TYPE = 5 Then If FORM_TYPE = 5 Then
TabDetails.PageVisible = False TabDetails.PageVisible = False
Else Else
TabDetails.PageVisible = True TabDetails.PageVisible = True
@@ -1460,7 +1464,7 @@ Public Class frmForm_Constructor_Main_2
TabDetails.PageVisible = True TabDetails.PageVisible = True
GridControlMain.Visible = 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 If IsNothing(DTEntity) Then
MsgBox("Unexpected Error in getting Entity-Data - Check Logfile", MsgBoxStyle.Critical) MsgBox("Unexpected Error in getting Entity-Data - Check Logfile", MsgBoxStyle.Critical)
Else Else
@@ -1492,7 +1496,7 @@ Public Class frmForm_Constructor_Main_2
If ENTITY_RECORD_COUNT = 1 Then If ENTITY_RECORD_COUNT = 1 Then
Load_Record_Direct() Load_Record_Direct()
End If End If
' Dim sql1 = CURRENT_ENTITYSQL ' Dim sql1 = _ENTITYSQL
' sql1.Replace("T.*", "TOP 1 [Record-ID]") ' sql1.Replace("T.*", "TOP 1 [Record-ID]")
' Dim id = ClassDatabase.Execute_Scalar(sql1, True) ' Dim id = ClassDatabase.Execute_Scalar(sql1, True)
' If Not id Is Nothing Then ' If Not id Is Nothing Then
@@ -1501,7 +1505,7 @@ Public Class frmForm_Constructor_Main_2
' End If ' End If
'End If 'End If
'Überprüfen ob es für diese Entität Wiedervorlagen gibt? 'Ü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_Grid_Layout()
Load_Splitter_Layout() Load_Splitter_Layout()
End If End If
@@ -1522,10 +1526,10 @@ Public Class frmForm_Constructor_Main_2
'Dim firstRow As System.Data.DataRowView = GridControlMain.MainView.GetRow(0) 'Dim firstRow As System.Data.DataRowView = GridControlMain.MainView.GetRow(0)
'If Not IsNothing(firstRow) Then 'If Not IsNothing(firstRow) Then
' Dim firstRecordId As Integer = firstRow.Row.Item("Record-ID") ' 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 'End If
' Hinfällig, da hier die Record-ID nicht gebraucht wird ' 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 'Zurücksetzen
ENTITY_LOADED = True ENTITY_LOADED = True
@@ -1554,8 +1558,8 @@ Public Class frmForm_Constructor_Main_2
SELECTED_RECORD_ID = Grid_RecordID SELECTED_RECORD_ID = Grid_RecordID
RECORD_ID = Grid_RecordID RECORD_ID = Grid_RecordID
'Daten zu Record in jedem Fall laden 'Daten zu Record in jedem Fall laden
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls) 'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, CURRENT_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! ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False RECORD_CHANGED = False
Update_Record_Label(Grid_RecordID) Update_Record_Label(Grid_RecordID)
@@ -1569,7 +1573,7 @@ Public Class frmForm_Constructor_Main_2
Sub Load_Entity_Data_Only() Sub Load_Entity_Data_Only()
Try Try
ENTITY_LOADED = False 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 Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID") primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey DTEntity.PrimaryKey = primaryKey
@@ -1778,17 +1782,17 @@ Public Class frmForm_Constructor_Main_2
End If End If
End Sub End Sub
Private Function GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORD_ID As Integer, Entityload As Boolean) 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 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, 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, FORM_ID)
Dim GRP_SINGLE_REC = ClassDatabase.Execute_Scalar(sql, True) Dim GRP_SINGLE_REC = ClassDatabase.Execute_Scalar(sql, True)
If IsNothing(GRP_SINGLE_REC) Then 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 GRP_SINGLE_REC = ClassControlCommandsUI.GetLastRecord
If Not IsNothing(GRP_SINGLE_REC) Then If Not IsNothing(GRP_SINGLE_REC) Then
'Die neue Record-ID setzen 'Die neue Record-ID setzen
RECORD_ID = GRP_SINGLE_REC RECORD_ID = GRP_SINGLE_REC
SELECTED_RECORD_ID = RECORD_ID 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) MsgBox("Unexpected Error in Connecting Record. Check log", MsgBoxStyle.Critical)
Return False Return False
End If End If
@@ -1874,7 +1878,7 @@ Public Class frmForm_Constructor_Main_2
CreateTile() CreateTile()
Else Else
' Alle Checkboxen für aktuelle Ansicht heraussuchen ' 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 dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
Dim listcheck As New List(Of String) Dim listcheck As New List(Of String)
@@ -1930,7 +1934,7 @@ Public Class frmForm_Constructor_Main_2
End Function End Function
Sub HideColumns() Sub HideColumns()
Try 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) Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
If GRID_TYPE = GridType.Grid Then If GRID_TYPE = GridType.Grid Then
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGrid.Columns 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) MsgBox("Error in HideColumns_Pos:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub 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 Try
Update_Status_Label(False, "") 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 'Me.pnlDetails.Visible = True
ZeigeRecordLogsToolStripMenuItem.Enabled = False 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 linkedRecord
' Dim pID As Integer ' Dim pID As Integer
Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gewählt werden #### Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gewählt werden ####
Case 3 Case 3
linkedRecord = GET_LINKED_RECORD(RECORD_ID, CURRENT_FORM_ID) linkedRecord = GET_LINKED_RECORD(Rec_ID, FORM_ID)
If linkedRecord > 0 Then 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 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 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) Dim PARENT_RECORD1 = ClassDatabase.Execute_Scalar(sql, True)
@@ -2003,14 +2007,14 @@ Public Class frmForm_Constructor_Main_2
PARENT_ID = PARENT_RECORD1 PARENT_ID = PARENT_RECORD1
End If End If
Case 2 Case 2
linkedRecord = linkedRecord(RECORD_ID, CURRENT_FORM_ID) linkedRecord = linkedRecord(Rec_ID, FORM_ID)
If linkedRecord > 0 Then If linkedRecord > 0 Then
EBENE1_RECID = RECORD_ID EBENE1_RECID = Rec_ID
PARENT_RECORDID = RECORD_ID PARENT_RECORDID = EBENE1_RECID
PARENT_ID = RECORD_ID PARENT_ID = PARENT_RECORDID
End If End If
Case 1 Case 1
PARENT_RECORDID = RECORD_ID PARENT_RECORDID = Rec_ID
EBENE1_RECID = PARENT_RECORDID EBENE1_RECID = PARENT_RECORDID
PARENT_ID = PARENT_RECORDID PARENT_ID = PARENT_RECORDID
End Select End Select
@@ -2019,14 +2023,13 @@ Public Class frmForm_Constructor_Main_2
'#### Den Group or Single_Record holen/anlegen '#### Den Group or Single_Record holen/anlegen
' GET_GROUP_OR_SINGLE_RECORD(pID, False) ' GET_GROUP_OR_SINGLE_RECORD(pID, False)
Else '#### Datensatz wird normal geladen #### Else '#### Datensatz wird normal geladen ####
SELECTED_RECORD_ID = RECORD_ID SELECTED_RECORD_ID = Rec_ID
RECORD_ID = SELECTED_RECORD_ID RECORD_ID = SELECTED_RECORD_ID
'Die aktuelle Ebene überprüfen und den Datensatz übergeben, ebenso den PARENT-Record setzen 'Die aktuelle Ebene überprüfen und den Datensatz übergeben, ebenso den PARENT-Record setzen
Select Case ACT_EBENE Select Case ACT_EBENE
Case 1 Case 1
RECORD_ID = SELECTED_RECORD_ID
PARENT_RECORDID = RECORD_ID PARENT_RECORDID = RECORD_ID
EBENE1_RECID = SELECTED_RECORD_ID EBENE1_RECID = PARENT_RECORDID
PARENT_ID = EBENE1_RECID PARENT_ID = EBENE1_RECID
If Not EBENE1_COLUMNNAME Is Nothing Then If Not EBENE1_COLUMNNAME Is Nothing Then
EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME) EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
@@ -2064,8 +2067,8 @@ Public Class frmForm_Constructor_Main_2
End If End If
If TCDetails.SelectedTabPage.Text.StartsWith("Detail") Or TCDetails.SelectedTabPage.Text.StartsWith("Kopf") Then If TCDetails.SelectedTabPage.Text.StartsWith("Detail") Or TCDetails.SelectedTabPage.Text.StartsWith("Kopf") Then
'Daten zu Record in jedem Fall laden 'Daten zu Record in jedem Fall laden
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls) 'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls) ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, FORM_ID, CtrlBuilder.AllControls)
End If End If
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Then If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Then
tsButtonEditMode.Enabled = False tsButtonEditMode.Enabled = False
@@ -2091,6 +2094,7 @@ Public Class frmForm_Constructor_Main_2
Me.tsButtonShowWorkflowTasks.Enabled = True Me.tsButtonShowWorkflowTasks.Enabled = True
Me.tsButtonShowTaskOverview.Enabled = True Me.tsButtonShowTaskOverview.Enabled = True
RECORD_ID = SELECTED_RECORD_ID
'tsstatus_Detail_show(False, "") 'tsstatus_Detail_show(False, "")
Catch ex As Exception Catch ex As Exception
MsgBox("Error in SelectedRecord_ShowData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) 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 ' If EDIT_STATE = EditState.None Then
' 'TabPageDetails.Text = "Detaileingabe zu '" & ACT_EBENE_STRING & "' - Record(" & SelectedRecordID & ")" ' 'TabPageDetails.Text = "Detaileingabe zu '" & ACT_EBENE_STRING & "' - Record(" & SelectedRecordID & ")"
' 'Die Daten auf dem Panel laden ' '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) ' 'Load_Control_Values(CtrlBuilder.AllControls)
' 'Refresh_Treeview_SelectedData() ' 'Refresh_Treeview_SelectedData()
' RECORD_CHANGED = False ' RECORD_CHANGED = False
@@ -2297,7 +2301,7 @@ Public Class frmForm_Constructor_Main_2
Private Function Update_Record_OnChange() As String Private Function Update_Record_OnChange() As String
' Record Speichern ' 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 'Jetzt die für die Entität notwendigen Prroceduren ausführen
Customer_Run_Procedures() Customer_Run_Procedures()
RECORD_CHANGED = False RECORD_CHANGED = False
@@ -2307,11 +2311,11 @@ Public Class frmForm_Constructor_Main_2
Private Sub Customer_Run_Procedures() Private Sub Customer_Run_Procedures()
Try 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 If Not DT Is Nothing Then
For Each row As DataRow In DT.Rows For Each row As DataRow In DT.Rows
Dim prsql As String = row.Item("EXECUTE_COMMAND") 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) prsql = prsql.ToUpper.Replace("@RECORD_ID", RECORD_ID)
ClassDatabase.Execute_non_Query(prsql, True) ClassDatabase.Execute_non_Query(prsql, True)
Next Next
@@ -2357,7 +2361,7 @@ Public Class frmForm_Constructor_Main_2
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
Dim DTWD As DataTable Dim DTWD As DataTable
If Type = "ENTITY" Then 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) DTWD = ClassDatabase.Return_Datatable(_sql)
If DTWD.Rows.Count = 1 Then If DTWD.Rows.Count = 1 Then
If IsDBNull(DTWD.Rows(0).Item(0)) Then If IsDBNull(DTWD.Rows(0).Item(0)) Then
@@ -2370,7 +2374,7 @@ Public Class frmForm_Constructor_Main_2
Exit Sub Exit Sub
End If End If
Else 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) DTWD = ClassDatabase.Return_Datatable(sql)
If DTWD.Rows.Count = 1 Then If DTWD.Rows.Count = 1 Then
If IsDBNull(DTWD.Rows(0).Item(0)) Then If IsDBNull(DTWD.Rows(0).Item(0)) Then
@@ -2630,7 +2634,7 @@ Public Class frmForm_Constructor_Main_2
Case "@Record-ID".ToUpper Case "@Record-ID".ToUpper
Return RECORD_ID Return RECORD_ID
Case "@EntityID".ToUpper Case "@EntityID".ToUpper
Return CURRENT_FORM_ID Return FORM_ID
Case "@ParentID".ToUpper Case "@ParentID".ToUpper
Return PARENT_RECORDID Return PARENT_RECORDID
Case Else Case Else
@@ -2726,7 +2730,7 @@ Public Class frmForm_Constructor_Main_2
VIEWTYPE_ID = 3 VIEWTYPE_ID = 3
End Select 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 If ClassDatabase.Execute_non_Query(upd, True) = True Then
' VIEW_ID Override zurücksetzen!! ' VIEW_ID Override zurücksetzen!!
VIEW_ID_RUNTIME = -1 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 Private Sub ButtonResetView_Click(sender As Object, e As EventArgs) Handles ButtonResetView.Click
' TODO: Ansicht zurücksetzen ' 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 Sub
#End Region #End Region
@@ -2764,13 +2777,13 @@ Public Class frmForm_Constructor_Main_2
Refresh_FollowUps() Refresh_FollowUps()
dtpFollowUp.Enabled = False dtpFollowUp.Enabled = False
lblWiedervorlage_Control.Text = "<< Waiting for Selection:" lblWiedervorlage_Control.Text = "<< Waiting for Selection:"
'Check_FOLLOWUP_IsConfigured(CURRENT_FORM_ID) 'Check_FOLLOWUP_IsConfigured(FORM_ID)
End If End If
Select Case TCDetails.SelectedTabPageIndex Select Case TCDetails.SelectedTabPageIndex
Case 0 Case 0
'If RECORD_NEEDS_REFRESH = True Then '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) ' ' UpdRECORD_NEEDS_REFRESH(False)
'End If 'End If
@@ -2857,6 +2870,7 @@ Public Class frmForm_Constructor_Main_2
CURRENT_FILEID = Filerow.Item(0) CURRENT_FILEID = Filerow.Item(0)
CURRENT_PARENT_ID = PARENT_ID CURRENT_PARENT_ID = PARENT_ID
CURRENT_RECORD_ID = RECORD_ID CURRENT_RECORD_ID = RECORD_ID
CURRENT_FORM_ID = FORM_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID CURRENT_FORMVIEW_ID = FORMVIEW_ID
frmWD_Index_Dokart.ShowDialog() frmWD_Index_Dokart.ShowDialog()
RUN_WD_SEARCH(WD_Suche, "RECORD") RUN_WD_SEARCH(WD_Suche, "RECORD")
@@ -3074,7 +3088,7 @@ Public Class frmForm_Constructor_Main_2
' grvwSelection.Appearance.FocusedRow.BackColor = Color.Fuchsia ' grvwSelection.Appearance.FocusedRow.BackColor = Color.Fuchsia
End If End If
Dim sql1 As String = "SELECT COUNT(*) FROM TBPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID" 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) Dim result As Integer = ClassDatabase.Execute_Scalar(sql1)
If result > 0 Then If result > 0 Then
tsButtonShowWorkflowTasks.Visible = True tsButtonShowWorkflowTasks.Visible = True
@@ -3105,6 +3119,8 @@ Public Class frmForm_Constructor_Main_2
If PARENT_ID = 0 Then If PARENT_ID = 0 Then
Exit Sub Exit Sub
End If End If
CURRENT_ENTITYSTRING = _ENTITYSTRING
CURRENT_FORM_ID = FORM_ID
frmWD_EntityImport.ShowDialog() frmWD_EntityImport.ShowDialog()
End Sub End Sub
@@ -3214,7 +3230,7 @@ Public Class frmForm_Constructor_Main_2
Sub Load_Templates() Sub Load_Templates()
Try 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") Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Load_Templates")
If Not IsNothing(DT) Then If Not IsNothing(DT) Then
If DT.Rows.Count > 0 Then If DT.Rows.Count > 0 Then
@@ -3421,7 +3437,7 @@ Public Class frmForm_Constructor_Main_2
Sub Load_ParentConnections() Sub Load_ParentConnections()
Try Try
' SELECT COLUMN_NAME1 FROM VWTEMP_cPMO_FORM ' 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 Parent_ID = DT.Rows(0).Item(0)
Dim Title = DT.Rows(0).Item(1) 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) & "]" 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 If result <> MsgBoxResult.Yes Then
Exit Sub Exit Sub
Else 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 Exit Sub
End If End If
End If 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() 'Save_GridViewParentEntityLayout()
MsgBox("Die Parent-Entität wurde erfolgreich aktualisiert!", MsgBoxStyle.Information) MsgBox("Die Parent-Entität wurde erfolgreich aktualisiert!", MsgBoxStyle.Information)
Check_Record_Changed() Check_Record_Changed()
@@ -3504,4 +3520,31 @@ Public Class frmForm_Constructor_Main_2
End If End If
End If End If
End Sub 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 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.DefaultLookAndFeel1 = New DevExpress.LookAndFeel.DefaultLookAndFeel(Me.components)
Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
Me.TimerClose3Minutes = New System.Windows.Forms.Timer(Me.components) 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.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ribbonMain, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ribbonMain, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -444,10 +443,6 @@ Partial Class frmMain
' '
Me.TimerClose3Minutes.Interval = 180000 Me.TimerClose3Minutes.Interval = 180000
' '
'TimerScan
'
Me.TimerScan.Interval = 10000
'
'frmMain 'frmMain
' '
Me.Appearance.BackColor = System.Drawing.Color.White Me.Appearance.BackColor = System.Drawing.Color.White
@@ -520,6 +515,5 @@ Partial Class frmMain
Friend WithEvents groupQuickAccess As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents groupQuickAccess As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents TimerClose3Minutes As System.Windows.Forms.Timer Friend WithEvents TimerClose3Minutes As System.Windows.Forms.Timer
Friend WithEvents groupQuickAccessForm As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents groupQuickAccessForm As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents TimerScan As System.Windows.Forms.Timer
End Class 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"> <metadata name="TimerClose3Minutes.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1365, 17</value> <value>1365, 17</value>
</metadata> </metadata>
<metadata name="TimerScan.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>17, 56</value> <value>195</value>
</metadata> </metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <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_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'))" 'Dim sql_UserID As String = "SELECT GUID FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
'Private USER_GUID '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 Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
Try Try
' Referenz zu frmMain speichern ' Referenz zu frmMain speichern
@@ -362,7 +408,7 @@ Public Class frmMain
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Refresh_TaskReminder() Refresh_TaskReminder()
Timer1.Start() Timer1.Start()
TimerScan.Start() RUN_TIMER()
If Sett_ConstructorStart <> 0 Then If Sett_ConstructorStart <> 0 Then
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
OpenFormConstructor(Sett_ConstructorStart) OpenFormConstructor(Sett_ConstructorStart)
@@ -551,41 +597,4 @@ Public Class frmMain
End Try End Try
End Select End Select
End Sub 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 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 For Each row As DataRow In DT.Rows
Dim extension = Path.GetExtension(row.Item("FILENAME2WORK").ToString) Dim extension = Path.GetExtension(row.Item("FILENAME2WORK").ToString)
Dim filename = row.Item("FILENAME_ONLY").ToString Dim filestring = row.Item("FILENAME2WORK")
Dim ID = row.Item("GUID").ToString If ClassHelper.CheckFileIsInUse(filestring) = False Then
'We can only find associated exes by extension, so don't show any files that have no extension Dim filename = row.Item("FILENAME_ONLY").ToString
If IsNothing(extension) Then Dim ID = row.Item("GUID").ToString
Else 'We can only find associated exes by extension, so don't show any files that have no extension
If extension.Contains("pdf") Then If IsNothing(extension) 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 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 End If
ListView1.Items(i).Tag = ID
i += 1
End If End If
Next Next
If DT.Rows.Count = 0 Then If DT.Rows.Count = 0 Then
Me.Close() Me.Close()