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

MS_29.11.2015

Browse Source
This commit is contained in:
SchreiberM
2015-11-30 09:32:30 +01:00
parent 7ee607f4e5
commit 2cd1dc3a94
11 changed files with 312 additions and 6077 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
app/DD-Record-Organiser.sln
View File

@@ -7,11 +7,6 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD-Record-Organiser", "DD-R
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SnapPanelControl", "SnapPanelControl\SnapPanelControl.vbproj", "{9B1BBAC7-F595-43BA-8B54-CF2B595847CD}"
EndProject
Project("{6141683F-8A12-4E36-9623-2EB02B2C2303}") = "Setup", "Setup\Setup.isproj", "{D4EAF721-063A-4FF4-8585-440DBBA88C18}"
ProjectSection(ProjectDependencies) = postProject
{BDCC148B-4C84-4A48-80CF-4C56057294E0} = {BDCC148B-4C84-4A48-80CF-4C56057294E0}
EndProjectSection
EndProject
Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWiX", "SetupWiX\SetupWiX.wixproj", "{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}"
EndProject
Global
@@ -80,26 +75,6 @@ Global
{9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU
{9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU
{9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.SingleImage|x86.ActiveCfg = Debug|Any CPU
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.CD_ROM|Any CPU.ActiveCfg = CD_ROM
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.CD_ROM|Any CPU.Build.0 = CD_ROM
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.CD_ROM|Mixed Platforms.ActiveCfg = CD_ROM
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.CD_ROM|x86.ActiveCfg = CD_ROM
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.Debug|Any CPU.ActiveCfg = DVD-5
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.Debug|Any CPU.Build.0 = DVD-5
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.Debug|Mixed Platforms.ActiveCfg = DVD-5
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.Debug|x86.ActiveCfg = DVD-5
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.DVD-5|Any CPU.ActiveCfg = DVD-5
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.DVD-5|Any CPU.Build.0 = DVD-5
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.DVD-5|Mixed Platforms.ActiveCfg = DVD-5
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.DVD-5|x86.ActiveCfg = DVD-5
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.Release|Any CPU.ActiveCfg = SingleImage
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.Release|Any CPU.Build.0 = SingleImage
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.Release|Mixed Platforms.ActiveCfg = SingleImage
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.Release|x86.ActiveCfg = SingleImage
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.SingleImage|Any CPU.ActiveCfg = SingleImage
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.SingleImage|Any CPU.Build.0 = SingleImage
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.SingleImage|Mixed Platforms.ActiveCfg = SingleImage
{D4EAF721-063A-4FF4-8585-440DBBA88C18}.SingleImage|x86.ActiveCfg = SingleImage
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|Any CPU.ActiveCfg = Release|x86
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|Mixed Platforms.Build.0 = Release|x86
@@ -129,7 +104,4 @@ Global
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(Performance) = preSolution
HasPerformanceSessions = true
EndGlobalSection
EndGlobal

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

@@ -643,9 +643,9 @@ Public Class ClassControlCommandsUI
Return ClassDatabase.Execute_Scalar(SQL, True)
End Function
Public Shared Function ConnectRecord(foreignRecordID As Integer, recordID As Integer, Optional Comment As String = "")
Public Shared Function ConnectRecord(PARENT_RECORD As Integer, LINK_RECORD As Integer, Optional Comment As String = "")
Dim ADDED_WHO As String = Environment.UserName
Dim SQL = "INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,COMMENT,ADDED_WHO) VALUES (" & foreignRecordID & "," & recordID & ",'" & Comment & "','" & ADDED_WHO & "')"
Dim SQL = "INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,COMMENT,ADDED_WHO) VALUES (" & PARENT_RECORD & "," & LINK_RECORD & ",'" & Comment & "','" & ADDED_WHO & "')"
If LogErrorsOnly = False Then ClassLogger.Add(">> ConnectRecord SQL: " & SQL, False)
Return ClassDatabase.Execute_non_Query(SQL, True)
End Function

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

@@ -9,28 +9,39 @@ Public Class ClassInit
End Sub
Public Sub InitDatabase()
Dim dbResult As Boolean
Try
Dim dbResult As Boolean
MySettings_Load()
If MyConnectionString <> String.Empty Then
dbResult = ClassDatabase.Init()
Else
frmConfig_Basic.ShowDialog()
dbResult = ClassDatabase.Init()
End If
MySettings_Load()
If MyConnectionString <> String.Empty Then
dbResult = ClassDatabase.Init()
Else
frmConfig_Basic.ShowDialog()
dbResult = ClassDatabase.Init()
End If
If dbResult = False Then
Throw New Exception("Fehler beim Initialisieren der Datenbank. Weitere Informationen finden Sie in der Logdatei.")
End If
If dbResult = False Then
Throw New Exception("Find more information in the logfile.")
End If
Catch ex As Exception
MsgBox("Unexpected Error in Init Database:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Public Sub InitWindream()
Dim configResult As Boolean
configResult = Settings_LoadBasicConfig()
Try
Dim configResult As Boolean
configResult = Settings_LoadBasicConfig()
If configResult = False Then
Throw New Exception("Fehler beim Initialisieren der Windream-Einstellungen. Weitere Informationen finden Sie in der Logdatei.")
End If
If configResult = False Then
Throw New Exception("Find more information in the logfile.")
End If
Catch ex As Exception
MsgBox("Unexpected Error in Init windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub

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

@@ -39,23 +39,16 @@ Public Class ClassLogger
' legt den Speicherort fest
Public Shared Sub SetSpeicherort(ByVal speicherort As String)
Dim folderlog = My.Application.Info.DirectoryPath & "\Log"
LOGPATH = folderlog
Dim folderinfo As New IO.DirectoryInfo(folderlog)
If folderinfo.Exists = False Then
Try
IO.Directory.CreateDirectory(folderlog)
Catch ex As Exception
'kein Schreibrecht also Temppath
LOGPATH = Application.UserAppDataPath & "\Log"
Dim finfo As New IO.DirectoryInfo(LOGPATH)
If folderinfo.Exists = False Then
IO.Directory.CreateDirectory(LOGPATH)
End If
End Try
Dim f As String = Application.UserAppDataPath() & "\Log"
If speicherort = "" Then
If IO.Directory.Exists(f) = False Then
IO.Directory.CreateDirectory(f)
End If
ClassLogger.DateiSpeicherort = f
Else
ClassLogger.DateiSpeicherort = speicherort
End If
ClassLogger.DateiSpeicherort = LOGPATH
End Sub
' legt das Prefix für den Dateinamen fest

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

@@ -131,7 +131,7 @@
End Sub
Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click
Process.Start(Application.UserAppDataPath())
Process.Start(ClassLogger.DateiSpeicherort)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

42
app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb generated
View File

@@ -81,6 +81,7 @@ Partial Class frmConstructorDesigner
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage()
Me.LOAD_DIRECTCheckBox = New System.Windows.Forms.CheckBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.COLUMN_NAME1ComboBox = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
@@ -91,7 +92,6 @@ Partial Class frmConstructorDesigner
Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox()
Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox()
Me.XtraTabPage5 = New DevExpress.XtraTab.XtraTabPage()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.lblQuickViewAdded = New System.Windows.Forms.Label()
Me.btnSetQuickViewPicture = New System.Windows.Forms.Button()
@@ -147,7 +147,6 @@ Partial Class frmConstructorDesigner
Me.TBTEMP_QUICKDISPLAYTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBTEMP_QUICKDISPLAYTableAdapter()
Me.TableAdapterManager2 = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
Me.LOAD_DIRECTCheckBox = New System.Windows.Forms.CheckBox()
GUIDLabel = New System.Windows.Forms.Label()
FORM_TITLELabel = New System.Windows.Forms.Label()
SEQUENCE_MENULabel = New System.Windows.Forms.Label()
@@ -707,6 +706,16 @@ Partial Class frmConstructorDesigner
Me.XtraTabPage3.Size = New System.Drawing.Size(1002, 332)
Me.XtraTabPage3.Text = "Allgemein"
'
'LOAD_DIRECTCheckBox
'
Me.LOAD_DIRECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "LOAD_DIRECT", True))
Me.LOAD_DIRECTCheckBox.Location = New System.Drawing.Point(701, 25)
Me.LOAD_DIRECTCheckBox.Name = "LOAD_DIRECTCheckBox"
Me.LOAD_DIRECTCheckBox.Size = New System.Drawing.Size(128, 24)
Me.LOAD_DIRECTCheckBox.TabIndex = 52
Me.LOAD_DIRECTCheckBox.Text = "Ersten Record laden"
Me.LOAD_DIRECTCheckBox.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.AutoSize = True
@@ -797,7 +806,6 @@ Partial Class frmConstructorDesigner
'XtraTabPage5
'
Me.XtraTabPage5.AutoScroll = True
Me.XtraTabPage5.Controls.Add(Me.Button3)
Me.XtraTabPage5.Controls.Add(Me.Button2)
Me.XtraTabPage5.Controls.Add(Me.lblQuickViewAdded)
Me.XtraTabPage5.Controls.Add(Me.btnSetQuickViewPicture)
@@ -816,24 +824,15 @@ Partial Class frmConstructorDesigner
Me.XtraTabPage5.Size = New System.Drawing.Size(1002, 332)
Me.XtraTabPage5.Text = "Quick View Konfiguration"
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(334, 235)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 23)
Me.Button3.TabIndex = 54
Me.Button3.Text = "Button3"
Me.Button3.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.Location = New System.Drawing.Point(299, 194)
Me.Button2.Location = New System.Drawing.Point(299, 180)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(175, 23)
Me.Button2.TabIndex = 52
Me.Button2.Text = "Delete QuickView Control"
Me.Button2.Text = "Delete QuickView Picture"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.UseVisualStyleBackColor = True
'
@@ -842,7 +841,7 @@ Partial Class frmConstructorDesigner
Me.lblQuickViewAdded.AutoSize = True
Me.lblQuickViewAdded.BackColor = System.Drawing.Color.Yellow
Me.lblQuickViewAdded.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblQuickViewAdded.Location = New System.Drawing.Point(299, 178)
Me.lblQuickViewAdded.Location = New System.Drawing.Point(480, 158)
Me.lblQuickViewAdded.Name = "lblQuickViewAdded"
Me.lblQuickViewAdded.Size = New System.Drawing.Size(190, 13)
Me.lblQuickViewAdded.TabIndex = 51
@@ -855,7 +854,7 @@ Partial Class frmConstructorDesigner
Me.btnSetQuickViewPicture.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSetQuickViewPicture.Location = New System.Drawing.Point(200, 137)
Me.btnSetQuickViewPicture.Name = "btnSetQuickViewPicture"
Me.btnSetQuickViewPicture.Size = New System.Drawing.Size(93, 54)
Me.btnSetQuickViewPicture.Size = New System.Drawing.Size(93, 56)
Me.btnSetQuickViewPicture.TabIndex = 50
Me.btnSetQuickViewPicture.Text = "Set as QuickView Picture"
Me.btnSetQuickViewPicture.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -1385,16 +1384,6 @@ Partial Class frmConstructorDesigner
Me.ImageCollection1.Images.SetKeyName(2, "tesla_black.jpg")
Me.ImageCollection1.Images.SetKeyName(3, "whitejeep.jpg")
'
'LOAD_DIRECTCheckBox
'
Me.LOAD_DIRECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "LOAD_DIRECT", True))
Me.LOAD_DIRECTCheckBox.Location = New System.Drawing.Point(701, 25)
Me.LOAD_DIRECTCheckBox.Name = "LOAD_DIRECTCheckBox"
Me.LOAD_DIRECTCheckBox.Size = New System.Drawing.Size(128, 24)
Me.LOAD_DIRECTCheckBox.TabIndex = 52
Me.LOAD_DIRECTCheckBox.Text = "Ersten Record laden"
Me.LOAD_DIRECTCheckBox.UseVisualStyleBackColor = True
'
'frmConstructorDesigner
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1564,6 +1553,5 @@ Partial Class frmConstructorDesigner
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents TileView1 As DevExpress.XtraGrid.Views.Tile.TileView
Friend WithEvents ImageCollection1 As DevExpress.Utils.ImageCollection
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents LOAD_DIRECTCheckBox As System.Windows.Forms.CheckBox
End Class

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

@@ -281,7 +281,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS
CQAAAk1TRnQBSQFMAgEBAgEAAbgBCQG4AQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CQAAAk1TRnQBSQFMAgEBAgEAAcABCQHAAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

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

@@ -487,25 +487,6 @@ Public Class frmConstructorDesigner
If ClassDatabase.Execute_non_Query(DEL, True) Then
Load_QuickDisplay()
End If
End Sub
Sub CreateTile()
GridControl1.DataSource = CreateTable(1)
TileView1.OptionsTiles.Orientation = Orientation.Horizontal
TileView1.AppearanceItem.Normal.ForeColor = Color.Maroon
TileView1.AppearanceItem.Hovered.ForeColor = Color.Red
TileView1.ColumnSet.BackgroundImageColumn = TileView1.Columns("Image")
TileView1.OptionsTiles.ItemBackgroundImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
TileView1.OptionsTiles.ItemBackgroundImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileView1.TileTemplate.Add(New TileViewItemElement With {.Column = TileView1.Columns("Date"), .TextAlignment = TileItemContentAlignment.Manual, .TextLocation = New Point(150, 100)})
Try
TryCast(TileView1.TileTemplate(0), TileViewItemElement).Column = TileView1.Columns("Name")
Catch ex As Exception
End Try
End Sub
Private Function CreateTable(ByVal rowCount As Integer) As DataTable
Dim tbl As New DataTable()
@@ -519,10 +500,6 @@ Public Class frmConstructorDesigner
Return tbl
End Function
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
CreateTile()
End Sub
Private Sub LOAD_DIRECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LOAD_DIRECTCheckBox.CheckedChanged
End Sub

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

@@ -99,6 +99,8 @@ Public Class frmForm_Constructor_Main_2
Private Sub frmForm_Constructor_Main_Load(sender As Object, e As EventArgs) Handles Me.Load
tsslblRecord.Text = ""
tsslblStatus.Text = ""
_FormClosing = False
CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID
Me.Cursor = Cursors.WaitCursor
@@ -385,26 +387,10 @@ Public Class frmForm_Constructor_Main_2
End If
End Function
Private Sub grvwGrid_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGrid.FocusedColumnChanged
If ENTITY_LOADED = False Then
Exit Sub
End If
Show_Selected_Record_Data("Record-ID")
Column_Row_Handler
End Sub
Private Sub GridView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged, grvwTiles.FocusedRowChanged, grvwCarousel.FocusedRowChanged
If _FormClosing = True Then 'Or SaveRoutine_Active = True
Exit Sub
End If
'Aussteigen, wenng erade die Entität gewechselt wird
If ENTITY_LOADED = False Then
Exit Sub
End If
Check_Record_Changed()
DisableEditMode()
Get_RecordCounts_Nodes()
Show_Selected_Record_Data("Record-ID")
Hide_Grid_Columns()
Column_Row_Handler()
'If dataloaded = True Then
' If LogErrorsOnly = False Then ClassLogger.Add(">> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False)
@@ -416,8 +402,23 @@ Public Class frmForm_Constructor_Main_2
' End If
'End If
End Sub
Sub Column_Row_Handler()
If _FormClosing = True Then 'Or SaveRoutine_Active = True
Exit Sub
End If
'Aussteigen, wenng erade die Entität gewechselt wird
If ENTITY_LOADED = False Then
Exit Sub
End If
Check_Record_Changed()
DisableEditMode()
Show_Selected_Record_Data()
Hide_Grid_Columns()
Get_RecordCounts_Nodes()
End Sub
#End Region
#Region "TreeView"
@@ -663,7 +664,12 @@ Public Class frmForm_Constructor_Main_2
If CURRENT_FORM_TYPE = 5 Then
tsslblRecord.Text = String.Format("Group-Record ({0}) - {1}", RecordId, result.ToString)
Else
tsslblRecord.Text = String.Format("Record ({0}) - {1}", RecordId, result.ToString)
If IS_SINGLE_RECORD = True Then
tsslblRecord.Text = String.Format("Single-Record ({0}) - {1}", RecordId, result.ToString)
Else
tsslblRecord.Text = String.Format("Record ({0}) - {1}", RecordId, result.ToString)
End If
End If
tsslblRecord.Text = tsslblRecord.Text.Replace(", Changed by when ", "")
tsslblRecord.Visible = True
@@ -817,7 +823,7 @@ Public Class frmForm_Constructor_Main_2
End If
'Jetzt den Record nochmal laden
Show_Selected_Record_Data("Record-ID", SELECTED_RECORD_ID)
Show_Selected_Record_Data(SELECTED_RECORD_ID)
Update_Status_Label(True, "Record gespeichert - " & Now)
Update_Record_Label(SELECTED_RECORD_ID)
@@ -1013,13 +1019,20 @@ Public Class frmForm_Constructor_Main_2
Select Case ClickedLevel
Case 1
EBENE1_ENTITY = ""
EBENE1_RECID = 0
EBENE2_ENTITY = ""
EBENE2_RECID = 0
EBENE3_ENTITY = ""
EBENE3_RECID = 0
PARENT_RECORDID = 0
CURRENT_PARENTID = 0
EBENE1_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE1_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 1 in TreeView selektiert", False)
EBENE2_ENTITY = ""
EBENE3_ENTITY = ""
'tslblEntity2.Visible = False
'tslblEntity3.Visible = False
@@ -1058,7 +1071,7 @@ Public Class frmForm_Constructor_Main_2
'tslblEntity3.Visible = False
Select Case CURRENT_FORM_TYPE
Case 5
If GET_GROUP_OR_SINGLE_RECORD() = True Then
If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID) = True Then
EBENE2_RECID = CURRENT_RECORD_ID
End If
End Select
@@ -1069,13 +1082,6 @@ Public Class frmForm_Constructor_Main_2
EBENE3_GRID_RESULT = Nothing
Case 3
Select Case CURRENT_FORM_TYPE
Case 5
If GET_GROUP_OR_SINGLE_RECORD() = True Then
EBENE3_RECID = CURRENT_RECORD_ID
End If
End Select
EBENE3_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE3_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 3 in TreeView selektiert", False)
@@ -1104,6 +1110,12 @@ Public Class frmForm_Constructor_Main_2
Else
End If
Select Case CURRENT_FORM_TYPE
Case 5
If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID) = True Then
EBENE3_RECID = CURRENT_RECORD_ID
End If
End Select
EBENE3_GRID_RESULT = Nothing
End Select
@@ -1133,13 +1145,13 @@ Public Class frmForm_Constructor_Main_2
End If
If CURRENT_FORM_TYPE = 5 Or IS_SINGLE_RECORD = True Then
GET_GROUP_OR_SINGLE_RECORD()
ClassControlValues.LoadControlValues(CURRENT_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID)
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False
Show_Selected_Record_Data("Record-ID")
'Hide_Grid_Columns()
Show_Selected_Record_Data(CURRENT_RECORD_ID)
Get_RecordCounts_Nodes()
Hide_Grid_Columns()
Else
GridControlMain.Visible = True
@@ -1192,99 +1204,102 @@ Public Class frmForm_Constructor_Main_2
End Sub
Sub CreateTile()
Dim ImageIndex As Integer = -1
Dim i As Integer = 0
Dim j As Integer = 0
Dim DT As DataTable = DirectCast(DT_SELECTION, DataTable)
Try
Dim ImageIndex As Integer = -1
Dim i As Integer = 0
Dim j As Integer = 0
Dim DT As DataTable = DirectCast(DT_SELECTION, DataTable)
Dim PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
Dim SecondaryFont As New Font("Segoe UI", 10)
Dim WhiteBackground As Color = System.Drawing.Color.FromArgb(230, Color.White)
Dim PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
Dim SecondaryFont As New Font("Segoe UI", 10)
Dim WhiteBackground As Color = System.Drawing.Color.FromArgb(230, Color.White)
' Datatable laden
GridControlMain.DataSource = DT
' Datatable laden
GridControlMain.DataSource = DT
If DT Is Nothing Then
MsgBox("Daten können nicht geladen werden")
Exit Sub
End If
If DT Is Nothing Then
MsgBox("Daten können nicht geladen werden")
Exit Sub
End If
grvwTiles.TileTemplate.Clear()
grvwTiles.TileTemplate.Clear()
For Each Column As DataColumn In DT.Columns
Dim index As Integer = DT.Columns.IndexOf(Column)
Dim RECORDID_Column As TileViewItemElement
Dim ImageColumn As TileViewItemElement
Dim HeadlineColumn As TileViewItemElement
Dim TextColumn As TileViewItemElement
Dim TextHeaderColumn As TileViewItemElement
For Each Column As DataColumn In DT.Columns
Dim index As Integer = DT.Columns.IndexOf(Column)
Dim RECORDID_Column As TileViewItemElement
Dim ImageColumn As TileViewItemElement
Dim HeadlineColumn As TileViewItemElement
Dim TextColumn As TileViewItemElement
Dim TextHeaderColumn As TileViewItemElement
Select Case index
'Case 0
' ' RecordId
' RECORDID_Column = New TileViewItemElement()
' With RECORDID_Column
' .Column = grvwTiles.Columns(0)
' .Column.OptionsFilter.AllowFilter = True
' .TextAlignment = TileItemContentAlignment.TopLeft
' End With
' grvwTiles.TileTemplate.Add(RECORDID_Column)
Case 1
' Index 1 ist das Bild
If Column.DataType.ToString.Contains("Byte") Then
ImageColumn = New TileViewItemElement()
With ImageColumn
.Image = My.Resources.keinbild
.Column = grvwTiles.Columns(1)
'.ImageSize = New Size(186, 90)
.ImageSize = New Size(186, 118)
.ImageScaleMode = TileItemImageScaleMode.ZoomInside
.ImageAlignment = TileItemContentAlignment.Manual
.ImageLocation = New Point(-10, -10)
Select Case index
'Case 0
' ' RecordId
' RECORDID_Column = New TileViewItemElement()
' With RECORDID_Column
' .Column = grvwTiles.Columns(0)
' .Column.OptionsFilter.AllowFilter = True
' .TextAlignment = TileItemContentAlignment.TopLeft
' End With
' grvwTiles.TileTemplate.Add(RECORDID_Column)
Case 1
' Index 1 ist das Bild
If Column.DataType.ToString.Contains("Byte") Then
ImageColumn = New TileViewItemElement()
With ImageColumn
.Image = My.Resources.keinbild
.Column = grvwTiles.Columns(1)
'.ImageSize = New Size(186, 90)
.ImageSize = New Size(186, 118)
.ImageScaleMode = TileItemImageScaleMode.ZoomInside
.ImageAlignment = TileItemContentAlignment.Manual
.ImageLocation = New Point(-10, -10)
End With
grvwTiles.TileTemplate.Add(ImageColumn)
End If
Case 2
' Index 2 ist die Headline
HeadlineColumn = New TileViewItemElement()
With HeadlineColumn
.Column = grvwTiles.Columns(2)
.TextAlignment = TileItemContentAlignment.TopRight
.Appearance.Normal.Font = PrimaryFont
.Appearance.Normal.ForeColor = Color.DodgerBlue
.Column.OptionsFilter.AllowFilter = True
End With
grvwTiles.TileTemplate.Add(ImageColumn)
End If
Case 2
' Index 2 ist die Headline
HeadlineColumn = New TileViewItemElement()
With HeadlineColumn
.Column = grvwTiles.Columns(2)
.TextAlignment = TileItemContentAlignment.TopRight
.Appearance.Normal.Font = PrimaryFont
.Appearance.Normal.ForeColor = Color.DodgerBlue
.Column.OptionsFilter.AllowFilter = True
End With
grvwTiles.TileTemplate.Add(HeadlineColumn)
Case 3 To 4
' Indexe 3 und 4 sind normale Textzeilen
TextColumn = New TileViewItemElement()
TextHeaderColumn = New TileViewItemElement()
Dim OffsetIndex = index - 3
grvwTiles.TileTemplate.Add(HeadlineColumn)
Case 3 To 4
' Indexe 3 und 4 sind normale Textzeilen
TextColumn = New TileViewItemElement()
TextHeaderColumn = New TileViewItemElement()
Dim OffsetIndex = index - 3
With TextHeaderColumn
.Text = Column.ColumnName
.TextAlignment = TileItemContentAlignment.Manual
.TextLocation = New Point(120, 20 + (OffsetIndex * 40))
.Appearance.Normal.Font = SecondaryFont
.Appearance.Normal.ForeColor = Color.DarkGray
.Appearance.Normal.BackColor = WhiteBackground
End With
With TextHeaderColumn
.Text = Column.ColumnName
.TextAlignment = TileItemContentAlignment.Manual
.TextLocation = New Point(120, 20 + (OffsetIndex * 40))
.Appearance.Normal.Font = SecondaryFont
.Appearance.Normal.ForeColor = Color.DarkGray
.Appearance.Normal.BackColor = WhiteBackground
End With
With TextColumn
.Column = grvwTiles.Columns(index)
.TextAlignment = TileItemContentAlignment.Manual
.TextLocation = New Point(120, 20 + 18 + (OffsetIndex * 40))
.Appearance.Normal.Font = SecondaryFont
.Appearance.Normal.ForeColor = Color.Black
.Appearance.Normal.BackColor = WhiteBackground
End With
With TextColumn
.Column = grvwTiles.Columns(index)
.TextAlignment = TileItemContentAlignment.Manual
.TextLocation = New Point(120, 20 + 18 + (OffsetIndex * 40))
.Appearance.Normal.Font = SecondaryFont
.Appearance.Normal.ForeColor = Color.Black
.Appearance.Normal.BackColor = WhiteBackground
End With
grvwTiles.TileTemplate.Add(TextHeaderColumn)
grvwTiles.TileTemplate.Add(TextColumn)
End Select
Next
grvwTiles.TileTemplate.Add(TextHeaderColumn)
grvwTiles.TileTemplate.Add(TextColumn)
End Select
Next
Catch ex As Exception
MsgBox("Error in LoadGrid_Selection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Check_Record_Changed()
@@ -1306,10 +1321,9 @@ Public Class frmForm_Constructor_Main_2
RECORD_CHANGED = False
End If
End Sub
Private Function GET_GROUP_OR_SINGLE_RECORD()
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 = {1}", CURRENT_PARENTID, CURRENT_FORM_ID)
Private Function GET_GROUP_OR_SINGLE_RECORD(PARENT_ID As Integer)
'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 = {1}", PARENT_ID, CURRENT_FORM_ID)
Dim recid = ClassDatabase.Execute_Scalar(sqlRecord, True)
If IsNothing(recid) Then
If ClassControlCommandsUI.CreateRecord(CURRENT_FORM_ID) = True Then
@@ -1318,7 +1332,7 @@ Public Class frmForm_Constructor_Main_2
'Die neue Record-ID setzen
CURRENT_RECORD_ID = recid
SELECTED_RECORD_ID = CURRENT_RECORD_ID
ClassControlCommandsUI.ConnectRecord(CURRENT_PARENTID, CURRENT_RECORD_ID, "Group-Entity Link")
ClassControlCommandsUI.ConnectRecord(CURRENT_PARENTID, CURRENT_RECORD_ID, "PARENT_LINK (Group/Single-Record) for Entity " & CURRENT_FORM_ID.ToString)
Else
Return False
End If
@@ -1334,14 +1348,47 @@ Public Class frmForm_Constructor_Main_2
Return False
End Try
End If
Dim SQL1 As String = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_PARENTID & " AND RECORD2_ID = " & CURRENT_RECORD_ID
If ClassDatabase.Execute_Scalar(SQL1) = 0 Then
ClassControlCommandsUI.ConnectRecord(CURRENT_PARENTID, CURRENT_RECORD_ID)
End If
Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gesetzt werden ####
Case 1
EBENE1_RECID = CURRENT_RECORD_ID
Case 2
EBENE2_RECID = CURRENT_RECORD_ID
Case 3
EBENE3_RECID = CURRENT_RECORD_ID
End Select
Update_Record_Label(CURRENT_RECORD_ID)
Return True
End Function
Private Function GET_PARENT_RECORD(LINKED_RECORD As Integer)
Try
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 PARENT_RECORD = ClassDatabase.Execute_Scalar(sqlRecord, True)
Dim LINK_EXISTS = String.Format("SELECT COUNT(T.GUID) 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, CURRENT_FORM_ID)
If ClassDatabase.Execute_Scalar(LINK_EXISTS) = 0 Then
If ClassControlCommandsUI.CreateRecord(CURRENT_FORM_ID) = True Then
Dim New_Record = ClassControlCommandsUI.GetLastRecord
If Not IsNothing(New_Record) Then
'Die neue Record-ID setzen
ClassControlCommandsUI.ConnectRecord(PARENT_RECORD, New_Record, "PARENT-LINK FOR ENTITY " & CURRENT_FORM_ID & "")
Return PARENT_RECORD
Else
Return 0
End If
Else
Return 0
End If
Else
Return PARENT_RECORD
End If
Catch ex As Exception
MsgBox("Error in GET_PARENT_RECORD: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return 0
End Try
End Function
Private Function LoadGrid_Selection()
Try
@@ -1432,115 +1479,130 @@ Public Class frmForm_Constructor_Main_2
MsgBox("Error in HideColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Show_Selected_Record_Data(GridColumn_String As String, Optional DirectRecID As Integer = 0)
Sub Show_Selected_Record_Data(Optional DirectRecID As Integer = 0)
Try
'Me.pnlDetails.Visible = True
ZeigeRecordLogsToolStripMenuItem.Enabled = False
If DirectRecID = 0 Then
If DirectRecID = 0 Then 'Wenn der Record nicht direkt geladen wird
If LogErrorsOnly = False Then ClassLogger.Add(">> Record wird über Datagrid focusedRow geladen", False)
'Überhaupt Columns in Grid?
If Get_Grid_Column_Count() = 0 Then
'Me.pnlDetails.Enabled = False
Me.tsButtonShowWorkflowTasks.Enabled = False
'tsstatus_Detail_show(True, "Keine Columns in Grid")
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
If IsNothing(Grid_RecordID) Then
MsgBox("Unexpected error - RecordID konnte nicht gewählt werden - Check Configuration of Datagrid", MsgBoxStyle.Exclamation)
ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - Show_Selected_Record_Data", True)
Exit Sub
Else
'Me.pnlDetails.Enabled = True
End If
''Überhaupt Rows in Grid?
If Get_Grid_Row_Count() > 0 Then
Dim Grid_RecordID = Get_Focused_Row_Cell_Value(GridColumn_String)
If Grid_RecordID Is Nothing = False Then
If CURRENT_FORM_TYPE = 5 Or IS_SINGLE_RECORD = True Then
'PARENT RECORDS ändern
Select Case ACT_EBENE
Case 2
PARENT_RECORDID = Grid_RecordID
EBENE1_RECID = Grid_RecordID
CURRENT_PARENTID = Grid_RecordID
Case 3
EBENE2_RECID = Grid_RecordID
PARENT_RECORDID = Grid_RecordID
CURRENT_PARENTID = Grid_RecordID
End Select
GET_GROUP_OR_SINGLE_RECORD()
Else
SELECTED_RECORD_ID = Grid_RecordID
CURRENT_RECORD_ID = Grid_RecordID
End If
Else
'tsstatus_Detail_show(True, "Grid_RecordID konnte nicht gewählt werden!")
ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - SelectedRecord_ShowData", True)
Exit Sub
End If
'Daten zu Record in jedem Fall laden
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False
End If
Else 'Record wird direkt geladen
If CURRENT_FORM_TYPE = 5 Or IS_SINGLE_RECORD = True Then '#### Es sind untergeordnete Entitäten geöffnet####
If LogErrorsOnly = False Then ClassLogger.Add(">> Grid_RecordID: " & Grid_RecordID.ToString, False)
Dim pID As Integer
Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gewählt werden ####
Case 3
Dim parent_ID = GET_PARENT_RECORD(Grid_RecordID)
If parent_ID > 0 Then
EBENE2_RECID = parent_ID
PARENT_RECORDID = parent_ID
CURRENT_PARENTID = parent_ID
pID = parent_ID
End If
Case Else
PARENT_RECORDID = Grid_RecordID
EBENE1_RECID = PARENT_RECORDID
CURRENT_PARENTID = PARENT_RECORDID
pID = PARENT_RECORDID
End Select
'#### Den Group or Single_Record holen/anlegen
GET_GROUP_OR_SINGLE_RECORD(pID)
Else '#### Datensatz wird normal geladen ####
SELECTED_RECORD_ID = Grid_RecordID
'Die aktuelle Ebene überprüfen und den Datensatz übergeben, ebenso den PARENT-Record setzen
Select Case ACT_EBENE
Case 1
CURRENT_RECORD_ID = SELECTED_RECORD_ID
PARENT_RECORDID = CURRENT_RECORD_ID
EBENE1_RECID = SELECTED_RECORD_ID
CURRENT_PARENTID = EBENE1_RECID
If Not EBENE1_COLUMNNAME Is Nothing Then
EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
End If
Case 2
EBENE2_RECID = SELECTED_RECORD_ID
If Not EBENE2_COLUMNNAME Is Nothing Then
EBENE2_GRID_RESULT = Get_GridResult(EBENE2_COLUMNNAME)
End If
If EBENE1_RECID > 0 Then
PARENT_RECORDID = EBENE1_RECID
CURRENT_PARENTID = EBENE1_RECID
Else
CURRENT_PARENTID = EBENE2_RECID
End If
Case 3
EBENE3_RECID = SELECTED_RECORD_ID
If Not EBENE3_COLUMNNAME Is Nothing Then
EBENE3_GRID_RESULT = Get_GridResult(EBENE3_COLUMNNAME)
End If
If EBENE2_RECID > 0 Then
PARENT_RECORDID = EBENE2_RECID
CURRENT_PARENTID = EBENE2_RECID
End If
End Select
End If
Else '#### Record wird direkt geladen ####
If LogErrorsOnly = False Then ClassLogger.Add(">> Record wird DIREKT geladen", False)
SELECTED_RECORD_ID = DirectRecID
CURRENT_RECORD_ID = DirectRecID
End If
Select Case TCDetails.SelectedTabPageIndex
Case 0
'Daten zu Record in jedem Fall laden
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
Case 1
If CURRENT_RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY")
Else
RUN_WD_SEARCH(WD_Suche, "RECORD")
End If
End Select
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False
Dim Record_Changes As String = "SELECT count(GUID) FROM VWPMO_RECORD_CHANGES WHERE RECORD_ID = " & CURRENT_RECORD_ID
Dim RC = ClassDatabase.Execute_Scalar(Record_Changes)
Dim RC = ClassDatabase.Execute_Scalar(Record_Changes, True)
If Not RC Is Nothing Then
If RC > 0 Then
ZeigeRecordLogsToolStripMenuItem.Enabled = True
End If
End If
'Die aktuelle Ebene überprüfen und den Datensatz übergeben, ebenso den PARENT-Record setzen
'Die aktuelle Ebene überprüfen und das NAvpane aktualisieren
Select Case ACT_EBENE
Case 1
PARENT_RECORDID = 0
EBENE1_RECID = SELECTED_RECORD_ID
CURRENT_PARENTID = EBENE1_RECID
If Not EBENE1_COLUMNNAME Is Nothing Then
EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
Dim cat As TileNavCategory = LoadLevel1Nav()
NavPane.Categories.Clear()
NavPane.Categories.Add(cat)
End If
Case 2
EBENE2_RECID = SELECTED_RECORD_ID
If Not EBENE2_COLUMNNAME Is Nothing Then
EBENE2_GRID_RESULT = Get_GridResult(EBENE2_COLUMNNAME)
'Dim sql As String = "select @p " & EBENE_SQLRESULT & " where [Record-ID] = " & SelectedRecordID
'sql = sql.Replace("@p", EBENE2_COLUMNNAME)
'Dim result = ClassDatabase.Execute_Scalar(sql)
'EBENE2_GRID_RESULT = result 'grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(EBENE2_COLUMNNAME))
Dim cat As TileNavCategory = LoadLevel1Nav()
NavPane.Categories.Clear()
NavPane.Categories.Add(cat)
Dim item As TileNavItem = LoadLevel2Nav()
cat.Items.Add(item)
End If
If EBENE1_RECID > 0 Then
PARENT_RECORDID = EBENE1_RECID
CURRENT_PARENTID = EBENE1_RECID
Else
CURRENT_PARENTID = EBENE2_RECID
End If
Case 3
EBENE3_RECID = SELECTED_RECORD_ID
If Not EBENE3_COLUMNNAME Is Nothing Then
EBENE3_GRID_RESULT = Get_GridResult(EBENE3_COLUMNNAME)
'EBENE3_GRID_RESULT = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(EBENE3_COLUMNNAME))
Dim cat As TileNavCategory = LoadLevel1Nav()
NavPane.Categories.Clear()
NavPane.Categories.Add(cat)
@@ -1552,13 +1614,9 @@ Public Class frmForm_Constructor_Main_2
item.SubItems.Add(subitem)
End If
If EBENE2_RECID > 0 Then
PARENT_RECORDID = EBENE2_RECID
CURRENT_PARENTID = EBENE2_RECID
End If
End Select
Update_Record_Label(SELECTED_RECORD_ID)
Me.tsButtonShowWorkflowTasks.Enabled = True
Me.tsButtonShowTaskOverview.Enabled = True

5727
app/Setup/Setup.isl
View File

File diff suppressed because it is too large Load Diff

37
app/Setup/Setup.isproj
View File

@@ -1,37 +0,0 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Project ToolsVersion="3.5" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<!-- Select a Product Configuration -->
<InstallShieldProductConfiguration>Express</InstallShieldProductConfiguration>
<!-- Select a Visual Studio Configuration / InstallShield Release -->
<Configuration>Debug</Configuration>
<InstallShieldRelease>$(Configuration)</InstallShieldRelease>
</PropertyGroup>
<ItemGroup>
<!-- The InstallShieldProject item selects the project to build -->
<InstallShieldProject Include="$(MSBuildProjectDirectory)\$(MSBuildProjectName).isl"/>
<!-- The InstallShieldReleaseFlags sets Release Flags -->
<!--<InstallShieldReleaseFlags Include=""/>-->
<!-- The InstallShieldMergeModulePath specifies what directories are
searched for Merge Modules -->
<!--<InstallShieldMergeModulePath Include=""/>-->
</ItemGroup>
<ItemGroup>
<!-- The ProjectReference items refer to any Visual Studio solutions you want to automatically probe for Project Output Groups. -->
</ItemGroup>
<ItemGroup>
<!-- The TaggedOutputs items allow you to explicitly add extra files to output groups. Each item must include both Name and OutputGroup, as well as TargetPath metadata values. -->
<!--<TaggedOutputs Include="C:\My Test Exe.exe">
<Name>My Test Project</Name>
<OutputGroup>Primary output</OutputGroup>
<TargetPath>My Test Exe.exe</TargetPath>
</TaggedOutputs> -->
</ItemGroup>
<Import Project="$(MSBuildExtensionsPath32)\InstallShield\2013Limited\InstallShield.targets"/>
<ItemGroup>
<ProjectReference Include="..\DD-Record-Organiser\DD-Record-Organiser.vbproj">
<Name>DD-Record-Organiser</Name>
<Project>{BDCC148B-4C84-4A48-80CF-4C56057294E0}</Project>
</ProjectReference>
</ItemGroup>
</Project>