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

MS_07122015

Browse Source
This commit is contained in:
SchreiberM
2015-12-08 11:12:10 +01:00
parent 161f8c9c2e
commit 6b33117590
14 changed files with 821 additions and 522 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -105,30 +105,30 @@
HEIGHT = control.Height HEIGHT = control.Height
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 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
TAB_INDEX = 1 ' TAB_INDEX = 1
Else ' Else
TAB_INDEX = CInt(TAB_INDEX) + 1 ' TAB_INDEX = CInt(TAB_INDEX) + 1
End If ' End If
Else 'Else
TAB_INDEX = 1 ' TAB_INDEX = 1
End If 'End If
SQL = "INSERT TBPMO_CONTROL_SCREEN (CONTROL_ID, SCREEN_ID, CONTROL_TEXT, X_LOC, Y_LOC, HEIGHT, WIDTH, TAB_INDEX) VALUES (" & guid & ", 1, '" & CONTROL_TEXT & "', " & X_LOC & ", " & Y_LOC & ", " & HEIGHT & ", " & WIDTH & ", " & TAB_INDEX & ")" SQL = "INSERT TBPMO_CONTROL_SCREEN (CONTROL_ID, SCREEN_ID, CONTROL_TEXT, X_LOC, Y_LOC, HEIGHT, WIDTH) VALUES (" & guid & ", 1, '" & CONTROL_TEXT & "', " & X_LOC & ", " & Y_LOC & ", " & HEIGHT & ", " & WIDTH & ")"
If ClassDatabase.Execute_non_Query(SQL) Then If ClassDatabase.Execute_non_Query(SQL, True) Then
Return True Return True
Else Else
Throw New Exception() Throw New Exception()
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler beim Einfügen der Ansichtseigenschaften des Elements:" + 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
End Function End Function

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

@@ -265,6 +265,7 @@ Public Class ClassControlCommandsUI
Function SaveRecord(RecordID As Integer, FormID As Integer, Optional foreignRecordID As Integer = 0) As String Function SaveRecord(RecordID As Integer, FormID As Integer, Optional foreignRecordID As Integer = 0) As String
Try
Dim ADDED_WHO As String = Environment.UserName Dim ADDED_WHO As String = Environment.UserName
Dim RECORD_ID As Integer Dim RECORD_ID As Integer
@@ -301,6 +302,10 @@ Public Class ClassControlCommandsUI
Return "Datensatz aktualisiert - " & Now Return "Datensatz aktualisiert - " & Now
End If End If
Catch ex As Exception
MsgBox("Unexpected Error in SaveRecord: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Function End Function
Private Sub InsertAllControls(FormID As Integer, RecordID As Integer, controls As Control.ControlCollection) Private Sub InsertAllControls(FormID As Integer, RecordID As Integer, controls As Control.ControlCollection)
@@ -444,8 +449,10 @@ Public Class ClassControlCommandsUI
End Sub End Sub
Private Sub UpdateAllControls(FormID As Integer, RecordID As Integer, controls As Control.ControlCollection) Private Sub UpdateAllControls(FormID As Integer, RecordID As Integer, controls As Control.ControlCollection)
Try
For Each ctrl As Control In controls For Each ctrl As Control In controls
Dim CONTROL_ID As Integer = GetControlID_for_RecordID(ctrl.Name, RecordID) Dim CONTROL_ID As Integer = GetControlID_for_RecordID(ctrl.Name, RecordID)
If LogErrorsOnly = False Then ClassLogger.Add(">> CONTROL_ID: " & CONTROL_ID, False)
Dim CONTROL_VALUE As String = Nothing Dim CONTROL_VALUE As String = Nothing
If TypeOf ctrl Is PictureBox Then If TypeOf ctrl Is PictureBox Then
@@ -466,7 +473,9 @@ Public Class ClassControlCommandsUI
UpdateAllControls(FormID, RecordID, ctrls) UpdateAllControls(FormID, RecordID, ctrls)
End If End If
Else Else
InsertControlValue(ctrl.Name, RecordID, CONTROL_VALUE) Dim ctrlid As Integer = GetControlID_for_Name(ctrl.Name, FormID)
If LogErrorsOnly = False Then ClassLogger.Add(">> InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE, False)
InsertControlValue(ctrlid, RecordID, CONTROL_VALUE)
End If End If
Else ' Control Updaten Else ' Control Updaten
CONTROL_VALUE = GetControlValue(ctrl) CONTROL_VALUE = GetControlValue(ctrl)
@@ -474,7 +483,6 @@ Public Class ClassControlCommandsUI
If IsNothing(CONTROL_VALUE) Then If IsNothing(CONTROL_VALUE) Then
If TypeOf ctrl Is GroupBox Then If TypeOf ctrl Is GroupBox Then
Dim ctrls As Control.ControlCollection = DirectCast(ctrl, GroupBox).Controls Dim ctrls As Control.ControlCollection = DirectCast(ctrl, GroupBox).Controls
UpdateAllControls(FormID, RecordID, ctrls) UpdateAllControls(FormID, RecordID, ctrls)
End If End If
Else Else
@@ -482,16 +490,23 @@ Public Class ClassControlCommandsUI
End If End If
End If End If
Next Next
Catch ex As Exception
MsgBox("Unexpected Error in UpdateAllControls: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub End Sub
Function GetControlValue(ctrl As Control) As String Function GetControlValue(ctrl As Control) As String
Dim type = ctrl.GetType().Name Dim type = ctrl.GetType().Name
Dim CONTROL_ID As Integer = GetControlID_for_RecordID(ctrl.Name, CURRENT_RECORD_ID) Dim CONTROL_ID As Integer = GetControlID_for_RecordID(ctrl.Name, CURRENT_RECORD_ID)
If LogErrorsOnly = False Then ClassLogger.Add(">> GetControlValue CONTROL_ID: " & CONTROL_ID, False)
Dim CONTROL_VALUE As String = Nothing
If LogErrorsOnly = False Then ClassLogger.Add(">> type = " & type.ToString, False)
Select Case type Select Case type
Case "TextBox" Case "TextBox"
Return DirectCast(ctrl, TextBox).Text Return DirectCast(ctrl, TextBox).Text
Case "ComboBox" Case "ComboBox"
If LogErrorsOnly = False Then ClassLogger.Add(">> Return Value: " & DirectCast(ctrl, ComboBox).Text, False)
Return DirectCast(ctrl, ComboBox).Text Return DirectCast(ctrl, ComboBox).Text
Case "CheckBox" Case "CheckBox"
Return DirectCast(ctrl, CheckBox).Checked.ToString() Return DirectCast(ctrl, CheckBox).Checked.ToString()

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

@@ -73,15 +73,42 @@ Public Class ClassControlValues
Dim radio As RadioButton = DirectCast(control, RadioButton) Dim radio As RadioButton = DirectCast(control, RadioButton)
radio.Checked = CBool(result) radio.Checked = CBool(result)
Case 3 ' ComboBox Case 3 ' ComboBox
Dim combobox As ComboBox = DirectCast(control, ComboBox) Dim cmbbox As ComboBox = DirectCast(control, System.Windows.Forms.ComboBox)
'combobox.DataSource = Nothing cmbbox.Text = result
'combobox.Text = result 'If LogErrorsOnly = False Then ClassLogger.Add(">> control ComboBox", False)
If combobox.SelectedIndex = -1 Then 'Dim cmbSql As String = "SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = " & ControlID
combobox.DataSource = Nothing 'cmbSql = ClassDatabase.Execute_Scalar(cmbSql)
combobox.Text = result 'If Not (cmbSql Is Nothing Or cmbSql = String.Empty) Then
Else ' If cmbSql.ToString.Contains("@") Then
combobox.SelectedIndex = combobox.FindStringExact(result) ' cmbSql = cmbSql.ToString.Replace("@RECORDID", CURRENT_RECORD_ID)
End If ' cmbSql = cmbSql.ToString.Replace("@RECORD_ID", CURRENT_RECORD_ID)
' cmbSql = cmbSql.ToString.Replace("@PARENTRECORD_ID", CURRENT_PARENTID)
' If LogErrorsOnly = False Then ClassLogger.Add(">> SQL Combobox: " & cmbSql, False)
' End If
' If LogErrorsOnly = False Then ClassLogger.Add(">> SQL Combobox: " & cmbSql, False)
' 'SQL-Command vorhanden also Ausführen des SQL
' Dim DT_ComboBox As DataTable = ClassDatabase.Return_Datatable(cmbSql, "LoadControlValues: Combobox")
' If DT_ComboBox Is Nothing = False Then
' cmbbox.DataSource = DT_ComboBox
' Select Case DT_ComboBox.Columns.Count
' Case 2
' cmbbox.DisplayMember = DT_ComboBox.Columns(1).ColumnName
' cmbbox.ValueMember = DT_ComboBox.Columns(0).ColumnName
' Case 1
' cmbbox.DisplayMember = DT_ComboBox.Columns(0).ColumnName
' cmbbox.ValueMember = DT_ComboBox.Columns(0).ColumnName
' End Select
' End If
'End If
''combobox.DataSource = Nothing
'If cmbbox.SelectedIndex = -1 Then
' cmbbox.DataSource = Nothing
' cmbbox.Text = result
'Else
' cmbbox.SelectedIndex = cmbbox.FindStringExact(result)
'End If
Case 4 'DateTimePicker Case 4 'DateTimePicker
Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit) Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit)
@@ -122,7 +149,9 @@ Public Class ClassControlValues
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(">> CONTROL_ID:" & CONTROL_ID, False) If LogErrorsOnly = False Then ClassLogger.Add(">> CONTROL_ID:" & CONTROL_ID, False)
ClearControlValue(control) ClearControlValue(control)
If TypeOf control Is ComboBox Then
LoadControlValues(RecordID, FormID, DirectCast(control, ComboBox).Controls)
End If
If TypeOf control Is GroupBox Then If TypeOf control Is GroupBox Then
LoadControlValues(RecordID, FormID, DirectCast(control, GroupBox).Controls) LoadControlValues(RecordID, FormID, DirectCast(control, GroupBox).Controls)
End If End If
@@ -130,7 +159,6 @@ Public Class ClassControlValues
If TypeOf control Is PictureBox Then If TypeOf control Is PictureBox Then
LoadImage(RecordID, CONTROL_ID, control) LoadImage(RecordID, CONTROL_ID, control)
End If End If
'EINE CheckedListBoxControl 'EINE CheckedListBoxControl
If TypeOf control Is DevExpress.XtraEditors.CheckedListBoxControl Then If TypeOf control Is DevExpress.XtraEditors.CheckedListBoxControl Then
If LogErrorsOnly = False Then ClassLogger.Add(">> control DevExpress.XtraEditors.CheckedListBoxControl", False) If LogErrorsOnly = False Then ClassLogger.Add(">> control DevExpress.XtraEditors.CheckedListBoxControl", False)
@@ -259,16 +287,23 @@ Public Class ClassControlValues
Dim SQL As String = String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE FORM_ID = {0} AND NAME = '{1}'", CURRENT_FORM_ID, C.Name) Dim SQL As String = String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE FORM_ID = {0} AND NAME = '{1}'", CURRENT_FORM_ID, C.Name)
Dim SQL2 As String = ClassDatabase.Execute_Scalar(SQL) Dim SQL2 As String = ClassDatabase.Execute_Scalar(SQL)
If SQL2 = "" Then If SQL2 = "" Then
Exit Sub Exit Sub
End If End If
If SQL2.ToString.ToUpper.Contains("@") Then
SQL2 = SQL2.ToString.Replace("@RECORDID", CURRENT_RECORD_ID)
SQL2 = SQL2.ToString.Replace("@RECORD_ID", CURRENT_RECORD_ID)
SQL2 = SQL2.ToString.Replace("@PARENTRECORD_ID", CURRENT_PARENTID)
' If LogErrorsOnly = False Then ClassLogger.Add(">> SQL Combobox: " & cmbSql, False)
End If
Dim DT_Combobox As DataTable = ClassDatabase.Return_Datatable(SQL2) Dim DT_Combobox As DataTable = ClassDatabase.Return_Datatable(SQL2)
If DT_Combobox Is Nothing = False Then If DT_Combobox Is Nothing = False Then
If DT_Combobox.Rows.Count > 0 Then If DT_Combobox.Rows.Count > 0 Then
Combobox.DataSource = DT_Combobox Combobox.DataSource = DT_Combobox
Combobox.DisplayMember = DT_Combobox.Columns(1).ColumnName Combobox.DisplayMember = DT_Combobox.Columns(1).ColumnName
Combobox.ValueMember = DT_Combobox.Columns(0).ColumnName Combobox.ValueMember = DT_Combobox.Columns(0).ColumnName
Combobox.AutoCompleteMode = AutoCompleteMode.Suggest Combobox.AutoCompleteMode = AutoCompleteMode.Append
Combobox.AutoCompleteSource = AutoCompleteSource.ListItems Combobox.AutoCompleteSource = AutoCompleteSource.ListItems
End If End If
Dim iWidestWidth As Integer = 300 Dim iWidestWidth As Integer = 300

13
app/DD-Record-Organiser/ModuleHelperMethods.vb
View File

@@ -117,10 +117,12 @@
Public Function GetControlID_for_RecordID(name As String, recID As Integer) As Integer Public Function GetControlID_for_RecordID(name As String, recID As Integer) As Integer
Try Try
Dim SQL = "SELECT CONTROL_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_NAME = '" & name & "'" Dim SQL = "SELECT CONTROL_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_NAME = '" & name & "'"
If LogErrorsOnly = False Then ClassLogger.Add(">> " & SQL, False)
Dim ID As Integer = ClassDatabase.Execute_Scalar(SQL) Dim ID As Integer = ClassDatabase.Execute_Scalar(SQL)
If ID > 0 Then If ID > 0 Then
Return ID Return ID
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(">> es konnte keine ID für name geholt werden: " & SQL, False)
Return -1 Return -1
End If End If
Catch ex As Exception Catch ex As Exception
@@ -169,14 +171,23 @@
End Sub End Sub
Public Sub OpenFormOverview() Public Sub OpenFormOverview()
For i = System.Windows.Forms.Application.OpenForms.Count - 1 To 1 Step -1
Dim form As Form = System.Windows.Forms.Application.OpenForms(i)
form.WindowState = FormWindowState.Normal
Next i
Dim frm As New frmForm_Overview Dim frm As New frmForm_Overview
frm = frmForm_Overview.Instance() frm = frmForm_Overview.Instance()
frm.MdiParent = MAIN_FORM frm.MdiParent = MAIN_FORM
frm.Show() frm.Show()
End Sub End Sub
Public Sub OpenFormLevelDesigner() Public Sub OpenFormLevelDesigner()
For i = System.Windows.Forms.Application.OpenForms.Count - 1 To 1 Step -1
Dim form As Form = System.Windows.Forms.Application.OpenForms(i)
form.WindowState = FormWindowState.Normal
Next i
Dim frm As New frmLevel_Designer Dim frm As New frmLevel_Designer
frm = frmLevel_Designer.Instance frm = frmLevel_Designer.Instance
frm.MdiParent = MAIN_FORM frm.MdiParent = MAIN_FORM

2
app/DD-Record-Organiser/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.0.1.0")> <Assembly: AssemblyVersion("2.1.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

24
app/DD-Record-Organiser/frmForm_Constructor.designer.vb generated
View File

@@ -406,7 +406,7 @@ Partial Class frmForm_Constructor
Me.TCDetails.Name = "TCDetails" Me.TCDetails.Name = "TCDetails"
Me.TCDetails.SelectedTabPage = Me.TabPageDetails Me.TCDetails.SelectedTabPage = Me.TabPageDetails
Me.TCDetails.ShowHeaderFocus = DevExpress.Utils.DefaultBoolean.[False] Me.TCDetails.ShowHeaderFocus = DevExpress.Utils.DefaultBoolean.[False]
Me.TCDetails.Size = New System.Drawing.Size(764, 340) Me.TCDetails.Size = New System.Drawing.Size(940, 340)
Me.TCDetails.TabIndex = 19 Me.TCDetails.TabIndex = 19
Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageDetails, Me.TabPageWD_Files, Me.TabPageFollowUp}) Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageDetails, Me.TabPageWD_Files, Me.TabPageFollowUp})
' '
@@ -415,7 +415,7 @@ Partial Class frmForm_Constructor
Me.TabPageDetails.Controls.Add(Me.pnlDetails) Me.TabPageDetails.Controls.Add(Me.pnlDetails)
Me.TabPageDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD Me.TabPageDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD
Me.TabPageDetails.Name = "TabPageDetails" Me.TabPageDetails.Name = "TabPageDetails"
Me.TabPageDetails.Size = New System.Drawing.Size(762, 312) Me.TabPageDetails.Size = New System.Drawing.Size(758, 309)
Me.TabPageDetails.Text = "Detailansicht:" Me.TabPageDetails.Text = "Detailansicht:"
' '
'pnlDetails 'pnlDetails
@@ -424,7 +424,7 @@ Partial Class frmForm_Constructor
Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlDetails.Location = New System.Drawing.Point(0, 0) Me.pnlDetails.Location = New System.Drawing.Point(0, 0)
Me.pnlDetails.Name = "pnlDetails" Me.pnlDetails.Name = "pnlDetails"
Me.pnlDetails.Size = New System.Drawing.Size(762, 312) Me.pnlDetails.Size = New System.Drawing.Size(758, 309)
Me.pnlDetails.TabIndex = 0 Me.pnlDetails.TabIndex = 0
' '
'TabPageWD_Files 'TabPageWD_Files
@@ -433,7 +433,7 @@ Partial Class frmForm_Constructor
Me.TabPageWD_Files.Controls.Add(Me.ToolStripDokumente) Me.TabPageWD_Files.Controls.Add(Me.ToolStripDokumente)
Me.TabPageWD_Files.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954 Me.TabPageWD_Files.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954
Me.TabPageWD_Files.Name = "TabPageWD_Files" Me.TabPageWD_Files.Name = "TabPageWD_Files"
Me.TabPageWD_Files.Size = New System.Drawing.Size(762, 312) Me.TabPageWD_Files.Size = New System.Drawing.Size(758, 309)
Me.TabPageWD_Files.Text = "windream-Dateien" Me.TabPageWD_Files.Text = "windream-Dateien"
Me.ttToolTip.SetToolTip(Me.TabPageWD_Files, "Zeigt die Dateien in windream zum ausgewählten Datensatz an") Me.ttToolTip.SetToolTip(Me.TabPageWD_Files, "Zeigt die Dateien in windream zum ausgewählten Datensatz an")
' '
@@ -445,7 +445,7 @@ Partial Class frmForm_Constructor
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(762, 287) Me.AxObjectListControl.Size = New System.Drawing.Size(758, 284)
Me.AxObjectListControl.TabIndex = 5 Me.AxObjectListControl.TabIndex = 5
Me.AxObjectListControl.TabStop = False Me.AxObjectListControl.TabStop = False
' '
@@ -454,7 +454,7 @@ Partial Class frmForm_Constructor
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(762, 25) Me.ToolStripDokumente.Size = New System.Drawing.Size(758, 25)
Me.ToolStripDokumente.TabIndex = 1 Me.ToolStripDokumente.TabIndex = 1
Me.ToolStripDokumente.Text = "ToolStrip2" Me.ToolStripDokumente.Text = "ToolStrip2"
' '
@@ -488,7 +488,7 @@ Partial Class frmForm_Constructor
Me.TabPageFollowUp.Controls.Add(Me.ListViewFollowUp) Me.TabPageFollowUp.Controls.Add(Me.ListViewFollowUp)
Me.TabPageFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD Me.TabPageFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
Me.TabPageFollowUp.Name = "TabPageFollowUp" Me.TabPageFollowUp.Name = "TabPageFollowUp"
Me.TabPageFollowUp.Size = New System.Drawing.Size(762, 312) Me.TabPageFollowUp.Size = New System.Drawing.Size(934, 309)
Me.TabPageFollowUp.Text = "Wiedervorlage" Me.TabPageFollowUp.Text = "Wiedervorlage"
' '
'grpbxFU_Profile 'grpbxFU_Profile
@@ -701,7 +701,7 @@ Partial Class frmForm_Constructor
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.TabPageParentEntity Me.XtraTabControl1.SelectedTabPage = Me.TabPageParentEntity
Me.XtraTabControl1.Size = New System.Drawing.Size(525, 340) Me.XtraTabControl1.Size = New System.Drawing.Size(356, 340)
Me.XtraTabControl1.TabIndex = 0 Me.XtraTabControl1.TabIndex = 0
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageParentEntity}) Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageParentEntity})
' '
@@ -715,7 +715,7 @@ Partial Class frmForm_Constructor
Me.TabPageParentEntity.Controls.Add(Me.Label4) Me.TabPageParentEntity.Controls.Add(Me.Label4)
Me.TabPageParentEntity.Controls.Add(Me.GridControlParentEntity) Me.TabPageParentEntity.Controls.Add(Me.GridControlParentEntity)
Me.TabPageParentEntity.Name = "TabPageParentEntity" Me.TabPageParentEntity.Name = "TabPageParentEntity"
Me.TabPageParentEntity.Size = New System.Drawing.Size(523, 315) Me.TabPageParentEntity.Size = New System.Drawing.Size(350, 312)
Me.TabPageParentEntity.Text = "Parent-Entity" Me.TabPageParentEntity.Text = "Parent-Entity"
' '
'Button1 'Button1
@@ -723,7 +723,7 @@ Partial Class frmForm_Constructor
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(-324, 276) Me.Button1.Location = New System.Drawing.Point(-659, 276)
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(98, 27) Me.Button1.Size = New System.Drawing.Size(98, 27)
Me.Button1.TabIndex = 18 Me.Button1.TabIndex = 18
@@ -753,7 +753,7 @@ Partial Class frmForm_Constructor
Me.lblParentID.AutoSize = True Me.lblParentID.AutoSize = True
Me.lblParentID.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblParentID.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblParentID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) Me.lblParentID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.lblParentID.Location = New System.Drawing.Point(-413, 38) Me.lblParentID.Location = New System.Drawing.Point(-748, 38)
Me.lblParentID.Name = "lblParentID" Me.lblParentID.Name = "lblParentID"
Me.lblParentID.Size = New System.Drawing.Size(168, 16) Me.lblParentID.Size = New System.Drawing.Size(168, 16)
Me.lblParentID.TabIndex = 16 Me.lblParentID.TabIndex = 16
@@ -764,7 +764,7 @@ Partial Class frmForm_Constructor
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label4.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(-413, 12) Me.Label4.Location = New System.Drawing.Point(-748, 12)
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(160, 16) Me.Label4.Size = New System.Drawing.Size(160, 16)
Me.Label4.TabIndex = 15 Me.Label4.TabIndex = 15

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

@@ -157,7 +157,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS
CQAAAk1TRnQBSQFMAgEBAgEAAcgBCQHIAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CQAAAk1TRnQBSQFMAgEBAgEAAdgBCQHYAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

39
app/DD-Record-Organiser/frmForm_Constructor_Main.Designer.vb generated
View File

@@ -22,12 +22,13 @@ Partial Class frmForm_Constructor_Main
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmForm_Constructor_Main)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmForm_Constructor_Main))
Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView() Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridControlMain = New DevExpress.XtraGrid.GridControl() Me.GridControlMain = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip() Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.FunktionenDataGridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FunktionenDataGridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -51,7 +52,7 @@ Partial Class frmForm_Constructor_Main
Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl()
Me.TreeViewMain = New System.Windows.Forms.TreeView() Me.TreeViewMain = New System.Windows.Forms.TreeView()
Me.CMSEntity = New System.Windows.Forms.ContextMenuStrip() Me.CMSEntity = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ResetEbenenAuswahlToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ResetEbenenAuswahlToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiimportEntitätToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiimportEntitätToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FormDesignerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FormDesignerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -95,19 +96,19 @@ Partial Class frmForm_Constructor_Main
Me.VerknüpfungenAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VerknüpfungenAnzeigenToolStripMenuItem = 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.BindingSource_Entity = New System.Windows.Forms.BindingSource() Me.BindingSource_Entity = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
Me.ImageCollection1 = New DevExpress.Utils.ImageCollection() Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
Me.ttToolTip = New System.Windows.Forms.ToolTip() Me.ttToolTip = New System.Windows.Forms.ToolTip(Me.components)
Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip() Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet()
Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource() Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter() Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter()
Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
Me.TBPMO_FILES_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter() Me.TBPMO_FILES_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter()
Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource() Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
Me.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource() Me.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuGrid.SuspendLayout() Me.ContextMenuGrid.SuspendLayout()
@@ -172,7 +173,7 @@ Partial Class frmForm_Constructor_Main
Me.GridControlMain.Location = New System.Drawing.Point(0, 0) Me.GridControlMain.Location = New System.Drawing.Point(0, 0)
Me.GridControlMain.MainView = Me.grvwTiles Me.GridControlMain.MainView = Me.grvwTiles
Me.GridControlMain.Name = "GridControlMain" Me.GridControlMain.Name = "GridControlMain"
Me.GridControlMain.Size = New System.Drawing.Size(779, 270) Me.GridControlMain.Size = New System.Drawing.Size(786, 270)
Me.GridControlMain.TabIndex = 0 Me.GridControlMain.TabIndex = 0
Me.GridControlMain.UseEmbeddedNavigator = True Me.GridControlMain.UseEmbeddedNavigator = True
Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwCarousel, Me.grvwTiles, Me.grvwGrid}) Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwCarousel, Me.grvwTiles, Me.grvwGrid})
@@ -426,7 +427,7 @@ Partial Class frmForm_Constructor_Main
Me.SplitContainerBottom.Panel1.Controls.Add(Me.ToolStripEdit) Me.SplitContainerBottom.Panel1.Controls.Add(Me.ToolStripEdit)
Me.SplitContainerBottom.Panel1.Text = "Panel1" Me.SplitContainerBottom.Panel1.Text = "Panel1"
Me.SplitContainerBottom.Panel2.Text = "Panel2" Me.SplitContainerBottom.Panel2.Text = "Panel2"
Me.SplitContainerBottom.Size = New System.Drawing.Size(1074, 365) Me.SplitContainerBottom.Size = New System.Drawing.Size(1074, 372)
Me.SplitContainerBottom.SplitterPosition = 448 Me.SplitContainerBottom.SplitterPosition = 448
Me.SplitContainerBottom.TabIndex = 0 Me.SplitContainerBottom.TabIndex = 0
Me.SplitContainerBottom.Text = "SplitContainerControl1" Me.SplitContainerBottom.Text = "SplitContainerControl1"
@@ -442,7 +443,7 @@ Partial Class frmForm_Constructor_Main
Me.TCDetails.Location = New System.Drawing.Point(0, 25) Me.TCDetails.Location = New System.Drawing.Point(0, 25)
Me.TCDetails.Name = "TCDetails" Me.TCDetails.Name = "TCDetails"
Me.TCDetails.SelectedTabPage = Me.TabDetails Me.TCDetails.SelectedTabPage = Me.TabDetails
Me.TCDetails.Size = New System.Drawing.Size(1062, 340) Me.TCDetails.Size = New System.Drawing.Size(1069, 347)
Me.TCDetails.TabIndex = 1 Me.TCDetails.TabIndex = 1
Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp}) Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp})
' '
@@ -451,7 +452,7 @@ Partial Class frmForm_Constructor_Main
Me.TabDetails.Controls.Add(Me.pnlDetails) Me.TabDetails.Controls.Add(Me.pnlDetails)
Me.TabDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD Me.TabDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD
Me.TabDetails.Name = "TabDetails" Me.TabDetails.Name = "TabDetails"
Me.TabDetails.Size = New System.Drawing.Size(1060, 312) Me.TabDetails.Size = New System.Drawing.Size(1063, 316)
Me.TabDetails.Text = "Detailansicht" Me.TabDetails.Text = "Detailansicht"
' '
'pnlDetails 'pnlDetails
@@ -460,7 +461,7 @@ Partial Class frmForm_Constructor_Main
Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlDetails.Location = New System.Drawing.Point(0, 0) Me.pnlDetails.Location = New System.Drawing.Point(0, 0)
Me.pnlDetails.Name = "pnlDetails" Me.pnlDetails.Name = "pnlDetails"
Me.pnlDetails.Size = New System.Drawing.Size(1060, 312) Me.pnlDetails.Size = New System.Drawing.Size(1063, 316)
Me.pnlDetails.TabIndex = 0 Me.pnlDetails.TabIndex = 0
' '
'TabWindream 'TabWindream
@@ -469,7 +470,7 @@ Partial Class frmForm_Constructor_Main
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(1060, 312) Me.TabWindream.Size = New System.Drawing.Size(1063, 316)
Me.TabWindream.Text = "windream-Dateien" Me.TabWindream.Text = "windream-Dateien"
' '
'AxObjectListControl 'AxObjectListControl
@@ -480,7 +481,7 @@ Partial Class frmForm_Constructor_Main
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(1060, 287) Me.AxObjectListControl.Size = New System.Drawing.Size(1063, 291)
Me.AxObjectListControl.TabIndex = 6 Me.AxObjectListControl.TabIndex = 6
Me.AxObjectListControl.TabStop = False Me.AxObjectListControl.TabStop = False
' '
@@ -489,7 +490,7 @@ Partial Class frmForm_Constructor_Main
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(1060, 25) Me.ToolStripDokumente.Size = New System.Drawing.Size(1063, 25)
Me.ToolStripDokumente.TabIndex = 2 Me.ToolStripDokumente.TabIndex = 2
Me.ToolStripDokumente.Text = "ToolStrip2" Me.ToolStripDokumente.Text = "ToolStrip2"
' '
@@ -523,7 +524,7 @@ Partial Class frmForm_Constructor_Main
Me.TabFollowUp.Controls.Add(Me.ListViewFollowUp) Me.TabFollowUp.Controls.Add(Me.ListViewFollowUp)
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(1060, 312) Me.TabFollowUp.Size = New System.Drawing.Size(1063, 316)
Me.TabFollowUp.Text = "Wiedervorlage" Me.TabFollowUp.Text = "Wiedervorlage"
' '
'grpbxFU_Profile 'grpbxFU_Profile
@@ -693,7 +694,7 @@ Partial Class frmForm_Constructor_Main
Me.ToolStripEdit.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsButtonAdd, Me.tsButtonSave, Me.tsButtonDelete, Me.tsButtonEditMode, Me.ToolStripDropDownButton1, Me.tsButtonShowTaskOverview, Me.tsButtonShowWorkflowTasks}) Me.ToolStripEdit.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsButtonAdd, Me.tsButtonSave, Me.tsButtonDelete, Me.tsButtonEditMode, Me.ToolStripDropDownButton1, Me.tsButtonShowTaskOverview, Me.tsButtonShowWorkflowTasks})
Me.ToolStripEdit.Location = New System.Drawing.Point(0, 0) Me.ToolStripEdit.Location = New System.Drawing.Point(0, 0)
Me.ToolStripEdit.Name = "ToolStripEdit" Me.ToolStripEdit.Name = "ToolStripEdit"
Me.ToolStripEdit.Size = New System.Drawing.Size(1062, 25) Me.ToolStripEdit.Size = New System.Drawing.Size(1069, 25)
Me.ToolStripEdit.TabIndex = 0 Me.ToolStripEdit.TabIndex = 0
Me.ToolStripEdit.Text = "ToolStrip1" Me.ToolStripEdit.Text = "ToolStrip1"
' '

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

@@ -2499,4 +2499,8 @@ Public Class frmForm_Constructor_Main
Private Sub CallRecursive(ByVal aTreeView As TreeView) Private Sub CallRecursive(ByVal aTreeView As TreeView)
End Sub End Sub
Private Sub btnAddUser_FollowUp_Click(sender As Object, e As EventArgs) Handles btnAddUser_FollowUp.Click
End Sub
End Class End Class

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

@@ -25,6 +25,7 @@ Partial Class frmForm_Constructor_Main_2
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmForm_Constructor_Main_2)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmForm_Constructor_Main_2))
Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView() Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridControlMain = New DevExpress.XtraGrid.GridControl() Me.GridControlMain = New DevExpress.XtraGrid.GridControl()
@@ -67,6 +68,9 @@ Partial Class frmForm_Constructor_Main_2
Me.ToolStripDropDownButton2 = New System.Windows.Forms.ToolStripDropDownButton() Me.ToolStripDropDownButton2 = New System.Windows.Forms.ToolStripDropDownButton()
Me.KonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.KonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TabFollowUp = New DevExpress.XtraTab.XtraTabPage() Me.TabFollowUp = New DevExpress.XtraTab.XtraTabPage()
Me.ListViewFollowUps = New System.Windows.Forms.ListView()
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.grpbxFU_Profile = New System.Windows.Forms.GroupBox() Me.grpbxFU_Profile = New System.Windows.Forms.GroupBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.btnRemoveUser_FollowUp = New System.Windows.Forms.Button() Me.btnRemoveUser_FollowUp = New System.Windows.Forms.Button()
@@ -78,11 +82,8 @@ Partial Class frmForm_Constructor_Main_2
Me.lblFollowUp_save = New System.Windows.Forms.Label() Me.lblFollowUp_save = New System.Windows.Forms.Label()
Me.chkFollowUp = New System.Windows.Forms.CheckBox() Me.chkFollowUp = New System.Windows.Forms.CheckBox()
Me.dtpFollowUp = New System.Windows.Forms.DateTimePicker() Me.dtpFollowUp = New System.Windows.Forms.DateTimePicker()
Me.Label9 = New System.Windows.Forms.Label() Me.lblWiedervorlage_Control = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.ListViewFollowUp = New System.Windows.Forms.ListView()
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.TabPos = New DevExpress.XtraTab.XtraTabPage() Me.TabPos = New DevExpress.XtraTab.XtraTabPage()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.GridControlPos = New DevExpress.XtraGrid.GridControl() Me.GridControlPos = New DevExpress.XtraGrid.GridControl()
@@ -191,11 +192,12 @@ Partial Class frmForm_Constructor_Main_2
GridLevelNode1.RelationName = "Level1" GridLevelNode1.RelationName = "Level1"
GridLevelNode2.LevelTemplate = Me.grvwCarousel GridLevelNode2.LevelTemplate = Me.grvwCarousel
GridLevelNode2.RelationName = "Level2" GridLevelNode2.RelationName = "Level2"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2}) GridLevelNode3.RelationName = "Level3"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2, GridLevelNode3})
Me.GridControlMain.Location = New System.Drawing.Point(0, 0) Me.GridControlMain.Location = New System.Drawing.Point(0, 0)
Me.GridControlMain.MainView = Me.grvwTiles Me.GridControlMain.MainView = Me.grvwTiles
Me.GridControlMain.Name = "GridControlMain" Me.GridControlMain.Name = "GridControlMain"
Me.GridControlMain.Size = New System.Drawing.Size(779, 270) Me.GridControlMain.Size = New System.Drawing.Size(786, 270)
Me.GridControlMain.TabIndex = 0 Me.GridControlMain.TabIndex = 0
Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwCarousel, Me.grvwTiles, Me.grvwGrid}) Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwCarousel, Me.grvwTiles, Me.grvwGrid})
' '
@@ -449,7 +451,7 @@ Partial Class frmForm_Constructor_Main_2
Me.SplitContainerBottom.Panel1.Controls.Add(Me.ToolStripEdit) Me.SplitContainerBottom.Panel1.Controls.Add(Me.ToolStripEdit)
Me.SplitContainerBottom.Panel1.Text = "Panel1" Me.SplitContainerBottom.Panel1.Text = "Panel1"
Me.SplitContainerBottom.Panel2.Text = "Panel2" Me.SplitContainerBottom.Panel2.Text = "Panel2"
Me.SplitContainerBottom.Size = New System.Drawing.Size(1074, 365) Me.SplitContainerBottom.Size = New System.Drawing.Size(1074, 372)
Me.SplitContainerBottom.SplitterPosition = 448 Me.SplitContainerBottom.SplitterPosition = 448
Me.SplitContainerBottom.TabIndex = 0 Me.SplitContainerBottom.TabIndex = 0
Me.SplitContainerBottom.Text = "SplitContainerControl1" Me.SplitContainerBottom.Text = "SplitContainerControl1"
@@ -465,7 +467,7 @@ Partial Class frmForm_Constructor_Main_2
Me.TCDetails.Location = New System.Drawing.Point(0, 25) Me.TCDetails.Location = New System.Drawing.Point(0, 25)
Me.TCDetails.Name = "TCDetails" Me.TCDetails.Name = "TCDetails"
Me.TCDetails.SelectedTabPage = Me.TabDetails Me.TCDetails.SelectedTabPage = Me.TabDetails
Me.TCDetails.Size = New System.Drawing.Size(1062, 340) Me.TCDetails.Size = New System.Drawing.Size(1069, 347)
Me.TCDetails.TabIndex = 1 Me.TCDetails.TabIndex = 1
Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp, Me.TabPos}) Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp, Me.TabPos})
' '
@@ -474,7 +476,7 @@ Partial Class frmForm_Constructor_Main_2
Me.TabDetails.Controls.Add(Me.pnlDetails) Me.TabDetails.Controls.Add(Me.pnlDetails)
Me.TabDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD Me.TabDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD
Me.TabDetails.Name = "TabDetails" Me.TabDetails.Name = "TabDetails"
Me.TabDetails.Size = New System.Drawing.Size(1060, 312) Me.TabDetails.Size = New System.Drawing.Size(1063, 316)
Me.TabDetails.Text = "Detailansicht" Me.TabDetails.Text = "Detailansicht"
' '
'pnlDetails 'pnlDetails
@@ -483,7 +485,7 @@ Partial Class frmForm_Constructor_Main_2
Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlDetails.Location = New System.Drawing.Point(0, 0) Me.pnlDetails.Location = New System.Drawing.Point(0, 0)
Me.pnlDetails.Name = "pnlDetails" Me.pnlDetails.Name = "pnlDetails"
Me.pnlDetails.Size = New System.Drawing.Size(1060, 312) Me.pnlDetails.Size = New System.Drawing.Size(1063, 316)
Me.pnlDetails.TabIndex = 0 Me.pnlDetails.TabIndex = 0
' '
'TabWindream 'TabWindream
@@ -492,7 +494,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(1060, 312) Me.TabWindream.Size = New System.Drawing.Size(1063, 316)
Me.TabWindream.Text = "windream-Dateien" Me.TabWindream.Text = "windream-Dateien"
' '
'AxObjectListControl 'AxObjectListControl
@@ -503,7 +505,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(1060, 287) Me.AxObjectListControl.Size = New System.Drawing.Size(1063, 291)
Me.AxObjectListControl.TabIndex = 6 Me.AxObjectListControl.TabIndex = 6
Me.AxObjectListControl.TabStop = False Me.AxObjectListControl.TabStop = False
' '
@@ -512,7 +514,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(1060, 25) Me.ToolStripDokumente.Size = New System.Drawing.Size(1063, 25)
Me.ToolStripDokumente.TabIndex = 2 Me.ToolStripDokumente.TabIndex = 2
Me.ToolStripDokumente.Text = "ToolStrip2" Me.ToolStripDokumente.Text = "ToolStrip2"
' '
@@ -541,14 +543,39 @@ Partial Class frmForm_Constructor_Main_2
' '
'TabFollowUp 'TabFollowUp
' '
Me.TabFollowUp.Controls.Add(Me.ListViewFollowUps)
Me.TabFollowUp.Controls.Add(Me.grpbxFU_Profile) Me.TabFollowUp.Controls.Add(Me.grpbxFU_Profile)
Me.TabFollowUp.Controls.Add(Me.Label5) Me.TabFollowUp.Controls.Add(Me.Label5)
Me.TabFollowUp.Controls.Add(Me.ListViewFollowUp)
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(1060, 312) Me.TabFollowUp.Size = New System.Drawing.Size(1063, 316)
Me.TabFollowUp.Text = "Wiedervorlage" Me.TabFollowUp.Text = "Wiedervorlage"
' '
'ListViewFollowUps
'
Me.ListViewFollowUps.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ListViewFollowUps.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
Me.ListViewFollowUps.FullRowSelect = True
Me.ListViewFollowUps.HideSelection = False
Me.ListViewFollowUps.Location = New System.Drawing.Point(14, 36)
Me.ListViewFollowUps.Name = "ListViewFollowUps"
Me.ListViewFollowUps.Size = New System.Drawing.Size(263, 261)
Me.ListViewFollowUps.TabIndex = 5
Me.ListViewFollowUps.UseCompatibleStateImageBehavior = False
Me.ListViewFollowUps.View = System.Windows.Forms.View.Details
'
'ColumnHeader1
'
Me.ColumnHeader1.Text = "ID"
Me.ColumnHeader1.Width = 40
'
'ColumnHeader2
'
Me.ColumnHeader2.Text = "Title"
Me.ColumnHeader2.Width = 200
'
'grpbxFU_Profile 'grpbxFU_Profile
' '
Me.grpbxFU_Profile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.grpbxFU_Profile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -557,7 +584,7 @@ Partial Class frmForm_Constructor_Main_2
Me.grpbxFU_Profile.Controls.Add(Me.lblFollowUp_save) Me.grpbxFU_Profile.Controls.Add(Me.lblFollowUp_save)
Me.grpbxFU_Profile.Controls.Add(Me.chkFollowUp) Me.grpbxFU_Profile.Controls.Add(Me.chkFollowUp)
Me.grpbxFU_Profile.Controls.Add(Me.dtpFollowUp) Me.grpbxFU_Profile.Controls.Add(Me.dtpFollowUp)
Me.grpbxFU_Profile.Controls.Add(Me.Label9) Me.grpbxFU_Profile.Controls.Add(Me.lblWiedervorlage_Control)
Me.grpbxFU_Profile.Location = New System.Drawing.Point(283, 28) Me.grpbxFU_Profile.Location = New System.Drawing.Point(283, 28)
Me.grpbxFU_Profile.Name = "grpbxFU_Profile" Me.grpbxFU_Profile.Name = "grpbxFU_Profile"
Me.grpbxFU_Profile.Size = New System.Drawing.Size(774, 269) Me.grpbxFU_Profile.Size = New System.Drawing.Size(774, 269)
@@ -574,6 +601,7 @@ Partial Class frmForm_Constructor_Main_2
Me.GroupBox4.Controls.Add(Me.Label6) Me.GroupBox4.Controls.Add(Me.Label6)
Me.GroupBox4.Controls.Add(Me.ListBoxUser2Profile) Me.GroupBox4.Controls.Add(Me.ListBoxUser2Profile)
Me.GroupBox4.Controls.Add(Me.Label7) Me.GroupBox4.Controls.Add(Me.Label7)
Me.GroupBox4.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox4.Location = New System.Drawing.Point(177, 20) Me.GroupBox4.Location = New System.Drawing.Point(177, 20)
Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(594, 243) Me.GroupBox4.Size = New System.Drawing.Size(594, 243)
@@ -583,6 +611,7 @@ Partial Class frmForm_Constructor_Main_2
' '
'btnRemoveUser_FollowUp 'btnRemoveUser_FollowUp
' '
Me.btnRemoveUser_FollowUp.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnRemoveUser_FollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete Me.btnRemoveUser_FollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
Me.btnRemoveUser_FollowUp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnRemoveUser_FollowUp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnRemoveUser_FollowUp.Location = New System.Drawing.Point(248, 124) Me.btnRemoveUser_FollowUp.Location = New System.Drawing.Point(248, 124)
@@ -594,6 +623,7 @@ Partial Class frmForm_Constructor_Main_2
' '
'btnAddUser_FollowUp 'btnAddUser_FollowUp
' '
Me.btnAddUser_FollowUp.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAddUser_FollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddMark_10580 Me.btnAddUser_FollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddMark_10580
Me.btnAddUser_FollowUp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnAddUser_FollowUp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAddUser_FollowUp.Location = New System.Drawing.Point(248, 95) Me.btnAddUser_FollowUp.Location = New System.Drawing.Point(248, 95)
@@ -605,6 +635,7 @@ Partial Class frmForm_Constructor_Main_2
' '
'cmbFollowUpUser 'cmbFollowUpUser
' '
Me.cmbFollowUpUser.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbFollowUpUser.FormattingEnabled = True Me.cmbFollowUpUser.FormattingEnabled = True
Me.cmbFollowUpUser.Location = New System.Drawing.Point(248, 68) Me.cmbFollowUpUser.Location = New System.Drawing.Point(248, 68)
Me.cmbFollowUpUser.Name = "cmbFollowUpUser" Me.cmbFollowUpUser.Name = "cmbFollowUpUser"
@@ -614,9 +645,10 @@ Partial Class frmForm_Constructor_Main_2
'Label6 'Label6
' '
Me.Label6.AutoSize = True Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(245, 50) Me.Label6.Location = New System.Drawing.Point(245, 50)
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(61, 13) Me.Label6.Size = New System.Drawing.Size(64, 13)
Me.Label6.TabIndex = 2 Me.Label6.TabIndex = 2
Me.Label6.Text = "Email-User:" Me.Label6.Text = "Email-User:"
' '
@@ -624,6 +656,7 @@ Partial Class frmForm_Constructor_Main_2
' '
Me.ListBoxUser2Profile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.ListBoxUser2Profile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.ListBoxUser2Profile.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ListBoxUser2Profile.FormattingEnabled = True Me.ListBoxUser2Profile.FormattingEnabled = True
Me.ListBoxUser2Profile.Location = New System.Drawing.Point(9, 50) Me.ListBoxUser2Profile.Location = New System.Drawing.Point(9, 50)
Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile" Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile"
@@ -663,20 +696,22 @@ Partial Class frmForm_Constructor_Main_2
' '
'dtpFollowUp 'dtpFollowUp
' '
Me.dtpFollowUp.Enabled = False
Me.dtpFollowUp.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.dtpFollowUp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpFollowUp.Location = New System.Drawing.Point(9, 33) Me.dtpFollowUp.Location = New System.Drawing.Point(9, 33)
Me.dtpFollowUp.Name = "dtpFollowUp" Me.dtpFollowUp.Name = "dtpFollowUp"
Me.dtpFollowUp.Size = New System.Drawing.Size(102, 21) Me.dtpFollowUp.Size = New System.Drawing.Size(102, 21)
Me.dtpFollowUp.TabIndex = 1 Me.dtpFollowUp.TabIndex = 1
' '
'Label9 'lblWiedervorlage_Control
' '
Me.Label9.AutoSize = True Me.lblWiedervorlage_Control.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(6, 17) Me.lblWiedervorlage_Control.Location = New System.Drawing.Point(6, 17)
Me.Label9.Name = "Label9" Me.lblWiedervorlage_Control.Name = "lblWiedervorlage_Control"
Me.Label9.Size = New System.Drawing.Size(38, 13) Me.lblWiedervorlage_Control.Size = New System.Drawing.Size(38, 13)
Me.Label9.TabIndex = 0 Me.lblWiedervorlage_Control.TabIndex = 0
Me.Label9.Text = "Label9" Me.lblWiedervorlage_Control.Text = "Label9"
Me.lblWiedervorlage_Control.Visible = False
' '
'Label5 'Label5
' '
@@ -687,29 +722,6 @@ Partial Class frmForm_Constructor_Main_2
Me.Label5.TabIndex = 3 Me.Label5.TabIndex = 3
Me.Label5.Text = "Hinterlegte Wiedervorlagen" Me.Label5.Text = "Hinterlegte Wiedervorlagen"
' '
'ListViewFollowUp
'
Me.ListViewFollowUp.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.ListViewFollowUp.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
Me.ListViewFollowUp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ListViewFollowUp.FullRowSelect = True
Me.ListViewFollowUp.Location = New System.Drawing.Point(14, 28)
Me.ListViewFollowUp.Name = "ListViewFollowUp"
Me.ListViewFollowUp.Size = New System.Drawing.Size(244, 269)
Me.ListViewFollowUp.TabIndex = 2
Me.ListViewFollowUp.UseCompatibleStateImageBehavior = False
'
'ColumnHeader1
'
Me.ColumnHeader1.Text = "ID"
Me.ColumnHeader1.Width = 40
'
'ColumnHeader2
'
Me.ColumnHeader2.Text = "Wiedervorlagentitel"
Me.ColumnHeader2.Width = 280
'
'TabPos 'TabPos
' '
Me.TabPos.Controls.Add(Me.Panel1) Me.TabPos.Controls.Add(Me.Panel1)
@@ -717,7 +729,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(1060, 312) Me.TabPos.Size = New System.Drawing.Size(1063, 316)
Me.TabPos.Text = "Positionen" Me.TabPos.Text = "Positionen"
' '
'Panel1 'Panel1
@@ -726,7 +738,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(1060, 287) Me.Panel1.Size = New System.Drawing.Size(1063, 291)
Me.Panel1.TabIndex = 2 Me.Panel1.TabIndex = 2
' '
'GridControlPos 'GridControlPos
@@ -735,7 +747,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(1060, 287) Me.GridControlPos.Size = New System.Drawing.Size(1063, 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})
' '
@@ -762,7 +774,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(1060, 25) Me.BindingNavigatorPOS.Size = New System.Drawing.Size(1063, 25)
Me.BindingNavigatorPOS.TabIndex = 1 Me.BindingNavigatorPOS.TabIndex = 1
Me.BindingNavigatorPOS.Text = "BindingNavigator1" Me.BindingNavigatorPOS.Text = "BindingNavigator1"
' '
@@ -857,7 +869,7 @@ Partial Class frmForm_Constructor_Main_2
Me.ToolStripEdit.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsButtonAdd, Me.tsButtonSave, Me.tsButtonDelete, Me.tsButtonEditMode, Me.ToolStripDropDownButton1, Me.tsButtonShowTaskOverview, Me.tsButtonShowWorkflowTasks}) Me.ToolStripEdit.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsButtonAdd, Me.tsButtonSave, Me.tsButtonDelete, Me.tsButtonEditMode, Me.ToolStripDropDownButton1, Me.tsButtonShowTaskOverview, Me.tsButtonShowWorkflowTasks})
Me.ToolStripEdit.Location = New System.Drawing.Point(0, 0) Me.ToolStripEdit.Location = New System.Drawing.Point(0, 0)
Me.ToolStripEdit.Name = "ToolStripEdit" Me.ToolStripEdit.Name = "ToolStripEdit"
Me.ToolStripEdit.Size = New System.Drawing.Size(1062, 25) Me.ToolStripEdit.Size = New System.Drawing.Size(1069, 25)
Me.ToolStripEdit.TabIndex = 0 Me.ToolStripEdit.TabIndex = 0
Me.ToolStripEdit.Text = "ToolStrip1" Me.ToolStripEdit.Text = "ToolStrip1"
' '
@@ -890,6 +902,7 @@ Partial Class frmForm_Constructor_Main_2
' '
'tsButtonEditMode 'tsButtonEditMode
' '
Me.tsButtonEditMode.Enabled = False
Me.tsButtonEditMode.Image = Global.DD_Record_Organiser.My.Resources.Resources.EditLabel_13239 Me.tsButtonEditMode.Image = Global.DD_Record_Organiser.My.Resources.Resources.EditLabel_13239
Me.tsButtonEditMode.ImageTransparentColor = System.Drawing.Color.Magenta Me.tsButtonEditMode.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsButtonEditMode.Name = "tsButtonEditMode" Me.tsButtonEditMode.Name = "tsButtonEditMode"
@@ -1155,11 +1168,8 @@ Partial Class frmForm_Constructor_Main_2
Friend WithEvents lblFollowUp_save As System.Windows.Forms.Label Friend WithEvents lblFollowUp_save As System.Windows.Forms.Label
Friend WithEvents chkFollowUp As System.Windows.Forms.CheckBox Friend WithEvents chkFollowUp As System.Windows.Forms.CheckBox
Friend WithEvents dtpFollowUp As System.Windows.Forms.DateTimePicker Friend WithEvents dtpFollowUp As System.Windows.Forms.DateTimePicker
Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents lblWiedervorlage_Control As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents ListViewFollowUp As System.Windows.Forms.ListView
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
Friend WithEvents ttToolTip As System.Windows.Forms.ToolTip Friend WithEvents ttToolTip As System.Windows.Forms.ToolTip
Friend WithEvents ContextMenuDetails As System.Windows.Forms.ContextMenuStrip Friend WithEvents ContextMenuDetails As System.Windows.Forms.ContextMenuStrip
Friend WithEvents ToolStripDokumente As System.Windows.Forms.ToolStrip Friend WithEvents ToolStripDokumente As System.Windows.Forms.ToolStrip
@@ -1196,4 +1206,7 @@ Partial Class frmForm_Constructor_Main_2
Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ListViewFollowUps As System.Windows.Forms.ListView
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
End Class End Class

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

@@ -9,6 +9,7 @@ Imports DevExpress.XtraScheduler
Imports System.Text Imports System.Text
Imports WINDREAMLib Imports WINDREAMLib
Imports System.IO Imports System.IO
Imports DevExpress.XtraGrid
Public Class frmForm_Constructor_Main_2 Public Class frmForm_Constructor_Main_2
@@ -27,11 +28,15 @@ Public Class frmForm_Constructor_Main_2
Public POS_SQL As String = "" Public POS_SQL As String = ""
Public POS_RECORD_ID Public POS_RECORD_ID
Dim IsTopFirstRow As Boolean = True
Private RightMouse_Clicked = False
Private VIEW_ID Private VIEW_ID
Private VIEW_ID_RUNTIME As Integer = -1 Private VIEW_ID_RUNTIME As Integer = -1
Public RECORD_ENABLED As Boolean = False Public RECORD_ENABLED As Boolean = False
Public ENTITY_RECORD_COUNT As Integer = 0
Public EBENE1_ENTITY Public EBENE1_ENTITY
Public EBENE2_ENTITY Public EBENE2_ENTITY
Public EBENE3_ENTITY Public EBENE3_ENTITY
@@ -170,7 +175,7 @@ Public Class frmForm_Constructor_Main_2
Dim XMLPath = Get_Grid_Layout_Filename() Dim XMLPath = Get_Grid_Layout_Filename()
grvwGrid.SaveLayoutToXml(XMLPath) grvwGrid.SaveLayoutToXml(XMLPath)
Update_Status_Label(True, "Grid Layout Loaded") ' Update_Status_Label(True, "Grid Layout Loaded")
End Sub End Sub
Sub Load_Grid_Layout() Sub Load_Grid_Layout()
@@ -182,7 +187,7 @@ Public Class frmForm_Constructor_Main_2
grvwGrid.ClearSelection() grvwGrid.ClearSelection()
grvwGrid.OptionsView.ShowPreview = False grvwGrid.OptionsView.ShowPreview = False
Update_Status_Label(True, "Grid Layout Loaded") 'Update_Status_Label(True, "Grid Layout Loaded")
End If End If
End Sub End Sub
Private Function Get_POSGrid_Layout_Filename() Private Function Get_POSGrid_Layout_Filename()
@@ -200,7 +205,43 @@ Public Class frmForm_Constructor_Main_2
#End Region #End Region
#Region "NavPane" #Region "NavPane"
Sub Refresh_Navpane()
'Die aktuelle Ebene überprüfen und das NAvpane aktualisieren
Select Case ACT_EBENE
Case 1
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
If Not EBENE2_COLUMNNAME Is Nothing Then
EBENE2_GRID_RESULT = Get_GridResult(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
Case 3
EBENE3_RECID = SELECTED_RECORD_ID
If Not EBENE3_COLUMNNAME Is Nothing Then
EBENE3_GRID_RESULT = Get_GridResult(EBENE3_COLUMNNAME)
Dim cat As TileNavCategory = LoadLevel1Nav()
NavPane.Categories.Clear()
NavPane.Categories.Add(cat)
Dim item As TileNavItem = LoadLevel2Nav()
cat.Items.Add(item)
Dim subitem As TileNavSubItem = LoadLevel3Nav()
item.SubItems.Add(subitem)
End If
End Select
End Sub
Private Function FindNode(tncoll As TreeNodeCollection, strText As [String]) As TreeNode Private Function FindNode(tncoll As TreeNodeCollection, strText As [String]) As TreeNode
Dim tnFound As TreeNode Dim tnFound As TreeNode
For Each tnCurr As TreeNode In tncoll For Each tnCurr As TreeNode In tncoll
@@ -424,6 +465,7 @@ Public Class frmForm_Constructor_Main_2
Public Function Get_Focused_Row_Cell_Value_pos(columnName As String) Public Function Get_Focused_Row_Cell_Value_pos(columnName As String)
Return grvwGridPos.GetFocusedRowCellValue(grvwGrid.Columns(columnName)) Return grvwGridPos.GetFocusedRowCellValue(grvwGrid.Columns(columnName))
End Function End Function
Private Sub grvwGrid_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGrid.FocusedColumnChanged Private Sub grvwGrid_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGrid.FocusedColumnChanged
Column_Row_Handler() Column_Row_Handler()
End Sub End Sub
@@ -440,6 +482,11 @@ Public Class frmForm_Constructor_Main_2
' End If ' End If
'End If 'End If
End Sub End Sub
Private Sub gridView1_CustomDrawRowIndicator(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowIndicatorCustomDrawEventArgs)
If IsTopFirstRow Then
e.Info.ImageIndex = -1
End If
End Sub
Sub Column_Row_Handler() Sub Column_Row_Handler()
If _FormClosing = True Then 'Or SaveRoutine_Active = True If _FormClosing = True Then 'Or SaveRoutine_Active = True
Exit Sub Exit Sub
@@ -448,28 +495,70 @@ Public Class frmForm_Constructor_Main_2
If ENTITY_LOADED = False Then If ENTITY_LOADED = False Then
Exit Sub Exit Sub
End If End If
If RightMouse_Clicked Then
Exit Sub
End If
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
If IsNothing(Grid_RecordID) Then
Console.WriteLine("No Record ID selectable")
Else
If Grid_RecordID = 0 Then
Console.WriteLine("Grid_RecordID = 0")
Else
If Grid_RecordID = CURRENT_RECORD_ID Then
Exit Sub
End If
'Hier jetzt erst das Anzeigen für einen selektierten Datensatz
If GRID_TYPE = GridType.Grid Then
If IsTopFirstRow Then
IsTopFirstRow = False
grvwGrid.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
grvwGrid.OptionsBehavior.Editable = Not IsTopFirstRow
grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = Not IsTopFirstRow
grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = Not IsTopFirstRow
grvwGrid.OptionsSelection.EnableAppearanceHideSelection = Not IsTopFirstRow
End If
ElseIf GRID_TYPE = GridType.Carousel Then
If IsTopFirstRow Then
IsTopFirstRow = False
grvwCarousel.OptionsBehavior.Editable = Not IsTopFirstRow
End If
ElseIf GRID_TYPE = GridType.Tiles Then
If IsTopFirstRow Then
IsTopFirstRow = False
grvwTiles.OptionsBehavior.Editable = Not IsTopFirstRow
End If
End If
Check_Record_Changed() Check_Record_Changed()
DisableEditMode() DisableEditMode()
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID") Show_Selected_Record_Data(Grid_RecordID)
If Grid_RecordID <> CURRENT_RECORD_ID Then
Show_Selected_Record_Data()
Clear_GridPos_View() Clear_GridPos_View()
If TabPos.PageVisible = True And TCDetails.SelectedTabPage.Text.StartsWith("Posi") Then If TabPos.PageVisible = True And TCDetails.SelectedTabPage.Text.StartsWith("Posi") Then
Dim POS_GRID_RECORD = Get_Focused_Row_Cell_Value_pos("Record-ID") Dim POS_GRID_RECORD = Get_Focused_Row_Cell_Value_pos("Record-ID")
If Not IsNothing(POS_GRID_RECORD) Then 'If Not IsNothing(POS_GRID_RECORD) Then
If POS_GRID_RECORD <> POS_RECORD_ID Then ' If POS_GRID_RECORD <> POS_RECORD_ID Then
' End If
'Else
' Load_Pos_Data()
' Load_POSGrid_Layout()
'End If
Load_Pos_Data() Load_Pos_Data()
Load_POSGrid_Layout() Load_POSGrid_Layout()
End If End If
End If
Else If CURRENT_RECORD_ID > 0 Then
tsButtonEditMode.Enabled = True
End If
Hide_Grid_Columns()
Get_RecordCounts_Nodes() Get_RecordCounts_Nodes()
End If End If
End If
End If
End Sub End Sub
@@ -743,7 +832,8 @@ Public Class frmForm_Constructor_Main_2
AddressOf NewEditAppointment, AddressOf NewEditAppointment,
AddressOf OpenFormData) AddressOf OpenFormData)
CtrlCommandUI.LoadControls(CURRENT_FORM_ID) CtrlCommandUI.LoadControls(CURRENT_FORM_ID)
pnlDetails.Enabled = False Lock_RecordControls(True)
' pnlDetails.Enabled = False
AddHandler CtrlBuilder.OnRecordChanged, AddressOf OnRecordChanged AddHandler CtrlBuilder.OnRecordChanged, AddressOf OnRecordChanged
End Sub End Sub
@@ -792,11 +882,14 @@ Public Class frmForm_Constructor_Main_2
Exit Sub Exit Sub
End If End If
RECORD_CHANGED = True If TCDetails.SelectedTabPage.Text.StartsWith("Pos") = False Then
pnlDetails.Enabled = True Lock_RecordControls(False)
tsButtonShowWorkflowTasks.Enabled = True tsButtonShowWorkflowTasks.Enabled = True
ClassControlValues.LoadDefaultValues(CURRENT_FORM_ID, SELECTED_RECORD_ID, pnlDetails.Controls) ClassControlValues.LoadDefaultValues(CURRENT_FORM_ID, SELECTED_RECORD_ID, pnlDetails.Controls)
ClassControlValues.LoadControlValuesList(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
RECORD_CHANGED = True
End If
CtrlCommandUI.IsInsert = True CtrlCommandUI.IsInsert = True
End Sub End Sub
@@ -881,8 +974,8 @@ Public Class frmForm_Constructor_Main_2
End If End If
'Jetzt den Record nochmal laden 'Jetzt den Record nochmal laden
Show_Selected_Record_Data(SELECTED_RECORD_ID) ' Show_Selected_Record_Data(SELECTED_RECORD_ID)
Update_Status_Label(True, "Record gespeichert - " & Now) 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 CURRENT_FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID)
@@ -921,7 +1014,7 @@ Public Class frmForm_Constructor_Main_2
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
EDIT_STATE = EditState.Delete EDIT_STATE = EditState.Delete
If CtrlCommandUI.DeleteRecord(SELECTED_RECORD_ID) = True Then If CtrlCommandUI.DeleteRecord(SELECTED_RECORD_ID) = True Then
Update_Status_Label(True, "Der Datensatz '" & SELECTED_RECORD_ID & "' wurde erfolgreich gelöscht - " & Now) Update_Status_Label(True, "Der Datensatz '" & SELECTED_RECORD_ID & "' wurde erfolgreich gelöscht - " & Now, EditState.Update)
Update_Record_Label(SELECTED_RECORD_ID) Update_Record_Label(SELECTED_RECORD_ID)
Load_Tree_View_Data() Load_Tree_View_Data()
End If End If
@@ -965,24 +1058,26 @@ Public Class frmForm_Constructor_Main_2
End Sub End Sub
Sub EnableEditMode() Sub EnableEditMode()
RECORD_ENABLED = True
Me.pnlDetails.Enabled = True Lock_RecordControls(False)
Me.tsButtonDelete.Enabled = True Me.tsButtonDelete.Enabled = True
Me.tsButtonAdd.Enabled = True Me.tsButtonAdd.Enabled = True
Me.tsButtonSave.Enabled = True Me.tsButtonSave.Enabled = True
Me.tsButtonEditMode.Text = "Bearbeiten beenden" Me.tsButtonEditMode.Text = "Bearbeiten beenden"
'Funktion zum Vollständigen load der Inhalte 'Funktion zum Vollständigen load der Inhalte
If RECORD_ENABLED = False Then
ClassControlValues.LoadControlValuesList(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls) ClassControlValues.LoadControlValuesList(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
End If RECORD_ENABLED = True
'If RECORD_ENABLED = False Then
' ClassControlValues.LoadControlValuesList(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
'End If
End Sub End Sub
Sub DisableEditMode() Sub DisableEditMode()
Lock_RecordControls(True)
RECORD_ENABLED = False RECORD_ENABLED = False
Me.pnlDetails.Enabled = False ' Me.pnlDetails.Enabled = False
Me.tsButtonDelete.Enabled = False Me.tsButtonDelete.Enabled = False
Me.tsButtonAdd.Enabled = False 'Me.tsButtonAdd.Enabled = False
Me.tsButtonSave.Enabled = False Me.tsButtonSave.Enabled = False
Me.tsButtonEditMode.Text = "Bearbeiten" Me.tsButtonEditMode.Text = "Bearbeiten"
'Funktion nur zum load der Inhalte 'Funktion nur zum load der Inhalte
@@ -1028,6 +1123,9 @@ Public Class frmForm_Constructor_Main_2
Sub Load_Entity_Data(ClickedLevel As Integer) Sub Load_Entity_Data(ClickedLevel As Integer)
Try Try
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
CURRENT_RECORD_ID = 0 CURRENT_RECORD_ID = 0
@@ -1073,7 +1171,8 @@ Public Class frmForm_Constructor_Main_2
'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, CURRENT_FORM_ID)
'Anzahl der Datensätze
ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where FORM_ID = " & CURRENT_FORM_ID, True)
Select Case ClickedLevel Select Case ClickedLevel
Case 1 Case 1
EBENE1_ENTITY = "" EBENE1_ENTITY = ""
@@ -1115,7 +1214,6 @@ Public Class frmForm_Constructor_Main_2
If EBENE1_RECID > 0 Then If EBENE1_RECID > 0 Then
PARENT_RECORDID = EBENE1_RECID PARENT_RECORDID = EBENE1_RECID
CURRENT_PARENTID = EBENE1_RECID CURRENT_PARENTID = EBENE1_RECID
Console.WriteLine("PARENT_RECORDID: " & PARENT_RECORDID)
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 = " & CURRENT_PARENTID 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 = " & CURRENT_PARENTID
Else Else
@@ -1124,6 +1222,14 @@ Public Class frmForm_Constructor_Main_2
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL & " AND T.GUID = T2.RECORD2_ID AND T2.RECORD1_ID = @T2.RECORD1_ID" CURRENT_ENTITYSQL = CURRENT_ENTITYSQL & " AND T.GUID = T2.RECORD2_ID AND T2.RECORD1_ID = @T2.RECORD1_ID"
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID) CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
End If End If
Else
Console.WriteLine("Ebene 1 wurde nicht ausgewählt")
SELECTED_RECORD_ID = 0
PARENT_ID = 0
PARENT_RECORDID = 0
NavPane.Categories.Clear()
tsslblRecord.Text = ""
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 CURRENT_FORM_TYPE
@@ -1165,7 +1271,13 @@ Public Class frmForm_Constructor_Main_2
End Try End Try
Else Else
Console.WriteLine("Ebene 2 wurde nicht ausgewählt")
SELECTED_RECORD_ID = 0
PARENT_ID = 0
PARENT_RECORDID = 0
NavPane.Categories.Clear()
Update_Status_Label(True, "Entität 2 übersprungen - Alle Datensätze geladen", EditState.Update)
tsslblRecord.Text = ""
End If End If
Select Case CURRENT_FORM_TYPE Select Case CURRENT_FORM_TYPE
Case 5 Case 5
@@ -1184,6 +1296,7 @@ Public Class frmForm_Constructor_Main_2
If EDIT_STATE = EditState.None Then If EDIT_STATE = EditState.None Then
'Die Controls der Entität laden 'Die Controls der Entität laden
Load_Controls(act_FormViewID) Load_Controls(act_FormViewID)
tsButtonAdd.Enabled = True
'set_pnlsize() 'set_pnlsize()
End If End If
@@ -1220,10 +1333,28 @@ Public Class frmForm_Constructor_Main_2
DT_SELECTION = DTEntity DT_SELECTION = DTEntity
LoadGrid_Selection() LoadGrid_Selection()
If GRID_TYPE = GridType.Grid Then
grvwGrid.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.None
grvwGrid.OptionsBehavior.Editable = False
grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = False
grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = False
grvwGrid.OptionsSelection.EnableAppearanceHideSelection = False
ElseIf GRID_TYPE = GridType.Carousel Then
grvwCarousel.OptionsBehavior.Editable = False
ElseIf GRID_TYPE = GridType.Tiles Then
grvwTiles.FocusedRowHandle = -1
grvwTiles.OptionsBehavior.Editable = False
grvwTiles.FocusedRowHandle = -1
grvwTiles.OptionsTiles.HighlightFocusedTileOnGridLoad = False
End If
If LOAD_DIRECT = True Then If LOAD_DIRECT = True Then
Load_Record_Direct() Load_Record_Direct()
End If End If
If ENTITY_RECORD_COUNT = 1 Then
Load_Record_Direct()
End If
' Dim sql1 = CURRENT_ENTITYSQL ' Dim sql1 = CURRENT_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)
@@ -1390,6 +1521,32 @@ Public Class frmForm_Constructor_Main_2
End Sub End Sub
Sub Lock_RecordControls(state As Boolean)
For Each Control As System.Windows.Forms.Control In pnlDetails.Controls
If (Control.GetType() Is GetType(TextBox)) Then
Dim txt As TextBox = CType(Control, TextBox)
txt.ReadOnly = state
End If
If (Control.GetType() Is GetType(System.Windows.Forms.ComboBox)) Then
Dim cbobx As System.Windows.Forms.ComboBox = CType(Control, System.Windows.Forms.ComboBox)
If state = True Then
cbobx.Enabled = False
Else
cbobx.Enabled = True
End If
End If
If (Control.GetType() Is GetType(DateTimePicker)) Then
Dim dtp As DateTimePicker = CType(Control, DateTimePicker)
If state = True Then
dtp.Enabled = False
Else
dtp.Enabled = True
End If
End If
Next
End Sub
Private Sub Check_Record_Changed() Private Sub Check_Record_Changed()
If EDIT_STATE <> EditState.None Then If EDIT_STATE <> EditState.None Then
Update_Status_Label(False, "") Update_Status_Label(False, "")
@@ -1401,7 +1558,8 @@ Public Class frmForm_Constructor_Main_2
If result = Windows.Forms.DialogResult.Yes Then If result = Windows.Forms.DialogResult.Yes Then
If CtrlCommandUI.IsInsert = True Then If CtrlCommandUI.IsInsert = True Then
EDIT_STATE = EditState.None EDIT_STATE = EditState.None
Me.pnlDetails.Enabled = False Lock_RecordControls(True)
'Me.pnlDetails.Enabled = False
CtrlCommandUI.IsInsert = False CtrlCommandUI.IsInsert = False
End If End If
Update_Record_OnChange() Update_Record_OnChange()
@@ -1484,16 +1642,16 @@ 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 = " & CURRENT_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)
'Liste von allen Spaltentiteln mit Checkbox erstellen 'Liste von allen Spaltentiteln mit Checkbox erstellen
'If dtcheck.Rows.Count > 0 Then If dtcheck.Rows.Count > 0 Then
' For Each row As DataRow In dtcheck.Rows For Each row As DataRow In dtcheck.Rows
' listcheck.Add(row.Item(0)) listcheck.Add(row.Item(0))
' Next Next
'End If End If
'Duplikate entfernen 'Duplikate entfernen
' listcheck = listcheck.Distinct().ToList() ' listcheck = listcheck.Distinct().ToList()
@@ -1511,13 +1669,13 @@ Public Class frmForm_Constructor_Main_2
CheckBoxEditorForDisplay.ValueChecked = 1 CheckBoxEditorForDisplay.ValueChecked = 1
CheckBoxEditorForDisplay.ValueUnchecked = 0 CheckBoxEditorForDisplay.ValueUnchecked = 0
' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen ' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
'For Each col As String In listcheck For Each col As String In listcheck
' grvwSelection.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay) grvwGrid.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
' If Not IsNothing(grvwSelection.Columns(col)) Then If Not IsNothing(grvwGrid.Columns(col)) Then
' grvwSelection.Columns(col).ColumnEdit = CheckBoxEditorForDisplay grvwGrid.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
' End If End If
'Next Next
'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False 'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
End If End If
@@ -1591,28 +1749,17 @@ 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(Optional DirectRecID As Integer = 0) Sub Show_Selected_Record_Data(GRID_RECORD As Integer)
Try Try
Update_Status_Label(False, "")
If LogErrorsOnly = False Then ClassLogger.Add(">> GRID_RECORD ID: " & GRID_RECORD.ToString, False)
'Me.pnlDetails.Visible = True 'Me.pnlDetails.Visible = True
ZeigeRecordLogsToolStripMenuItem.Enabled = False ZeigeRecordLogsToolStripMenuItem.Enabled = False
If DirectRecID = 0 Then 'Wenn der Record nicht direkt geladen wird
If LogErrorsOnly = False Then ClassLogger.Add(">> Record wird über Datagrid focusedRow geladen", False)
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
End If
If CURRENT_FORM_TYPE = 5 Or IS_SINGLE_RECORD = True Then '#### Es sind untergeordnete Entitäten geöffnet#### 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 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
Dim parent_ID = GET_PARENT_RECORD(Grid_RecordID) Dim parent_ID = GET_PARENT_RECORD(GRID_RECORD)
If parent_ID > 0 Then If parent_ID > 0 Then
EBENE2_RECID = parent_ID EBENE2_RECID = parent_ID
PARENT_RECORDID = parent_ID PARENT_RECORDID = parent_ID
@@ -1620,7 +1767,7 @@ Public Class frmForm_Constructor_Main_2
pID = parent_ID pID = parent_ID
End If End If
Case Else Case Else
PARENT_RECORDID = Grid_RecordID PARENT_RECORDID = GRID_RECORD
EBENE1_RECID = PARENT_RECORDID EBENE1_RECID = PARENT_RECORDID
CURRENT_PARENTID = PARENT_RECORDID CURRENT_PARENTID = PARENT_RECORDID
pID = PARENT_RECORDID pID = PARENT_RECORDID
@@ -1628,7 +1775,8 @@ 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) GET_GROUP_OR_SINGLE_RECORD(pID)
Else '#### Datensatz wird normal geladen #### Else '#### Datensatz wird normal geladen ####
SELECTED_RECORD_ID = Grid_RecordID SELECTED_RECORD_ID = GRID_RECORD
CURRENT_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
@@ -1662,13 +1810,8 @@ Public Class frmForm_Constructor_Main_2
End Select End Select
End If 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 If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("windr") Then
If TCDetails.SelectedTabPage.Text.StartsWith("Windr") Then
If CURRENT_RECORD_ID = 0 Then If CURRENT_RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY") RUN_WD_SEARCH(WD_Suche, "ENTITY")
Else Else
@@ -1679,6 +1822,14 @@ Public Class frmForm_Constructor_Main_2
'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, CURRENT_FORM_ID, CtrlBuilder.AllControls)
End If End If
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Then
tsButtonEditMode.Enabled = False
Refresh_FollowUps()
dtpFollowUp.Enabled = False
lblWiedervorlage_Control.Visible = False
ListBoxUser2Profile.Items.Clear()
grpbxFU_Profile.Enabled = False
End If
' 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
@@ -1690,41 +1841,7 @@ Public Class frmForm_Constructor_Main_2
End If End If
End If End If
'Die aktuelle Ebene überprüfen und das NAvpane aktualisieren Refresh_Navpane()
Select Case ACT_EBENE
Case 1
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
If Not EBENE2_COLUMNNAME Is Nothing Then
EBENE2_GRID_RESULT = Get_GridResult(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
Case 3
EBENE3_RECID = SELECTED_RECORD_ID
If Not EBENE3_COLUMNNAME Is Nothing Then
EBENE3_GRID_RESULT = Get_GridResult(EBENE3_COLUMNNAME)
Dim cat As TileNavCategory = LoadLevel1Nav()
NavPane.Categories.Clear()
NavPane.Categories.Add(cat)
Dim item As TileNavItem = LoadLevel2Nav()
cat.Items.Add(item)
Dim subitem As TileNavSubItem = LoadLevel3Nav()
item.SubItems.Add(subitem)
End If
End Select
Update_Record_Label(SELECTED_RECORD_ID) Update_Record_Label(SELECTED_RECORD_ID)
Me.tsButtonShowWorkflowTasks.Enabled = True Me.tsButtonShowWorkflowTasks.Enabled = True
@@ -1737,10 +1854,34 @@ Public Class frmForm_Constructor_Main_2
End Sub End Sub
Sub Create_Grid_Editor(formId As Integer) Sub Create_Grid_Editor(formId As Integer)
Try
Dim SQL As String = "SELECT CONTROL_COL_NAME,CONTROL_SQLCOMMAND_1,CONTROL_STATIC_LIST FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 3 AND FORM_ID = " & formId Dim SQL As String = "SELECT CONTROL_COL_NAME,CONTROL_SQLCOMMAND_1,CONTROL_STATIC_LIST FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 3 AND FORM_ID = " & formId
Dim ComboColumns As DataTable = ClassDatabase.Return_Datatable(SQL) Dim ComboColumns As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim comboEdit As New RepositoryItemComboBox()
Dim comboItems As ComboBoxItemCollection = comboEdit.Items ' 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 = " & formId
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
Dim listcheck As New List(Of String)
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtcheck.Rows.Count > 0 Then
For Each row As DataRow In dtcheck.Rows
listcheck.Add(row.Item(0))
Next
End If
' Den Editor Initialisieren und Optionen setzen
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = 1
CheckBoxEditorForDisplay.ValueUnchecked = 0
' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
For Each col As String In listcheck
grvwGridPos.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
If Not IsNothing(grvwGridPos.Columns(col)) Then
grvwGridPos.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
End If
Next
For Each col As DataRow In ComboColumns.Rows For Each col As DataRow In ComboColumns.Rows
@@ -1750,37 +1891,45 @@ Public Class frmForm_Constructor_Main_2
Dim hasStaticList = col.Item(2).ToString() <> "" Dim hasStaticList = col.Item(2).ToString() <> ""
If hasStaticList = True Then If hasStaticList = True Then
Dim comboEdit1 As New RepositoryItemComboBox()
Dim comboItems1 As ComboBoxItemCollection = comboEdit1.Items
Dim staticListItems = col.Item(2).ToString.Split(";") Dim staticListItems = col.Item(2).ToString.Split(";")
comboItems.BeginUpdate() comboItems1.BeginUpdate()
Try Try
For Each item In staticListItems For Each item In staticListItems
comboItems.Add(item) comboItems1.Add(item)
Next Next
Finally Finally
comboItems.EndUpdate() comboItems1.EndUpdate()
End Try End Try
GridControlPos.RepositoryItems.Add(comboEdit1)
If Not IsNothing(grvwGridPos.Columns(colName)) Then
grvwGridPos.Columns(colName).ColumnEdit = comboEdit1
End If
ElseIf hasSqlCommand = True Then ElseIf hasSqlCommand = True Then
SQL = col.Item(1).ToString() SQL = col.Item(1).ToString()
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL, "Load_Pos_Data") Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL, "Load_Pos_Data")
Dim comboEdit2 As New RepositoryItemComboBox()
Dim comboItems2 As ComboBoxItemCollection = comboEdit2.Items
For Each row As DataRow In dt.Rows For Each row As DataRow In dt.Rows
Dim value = row.Item(0) Dim value = row.Item(0)
comboItems.BeginUpdate() comboItems2.BeginUpdate()
Try Try
comboItems.Add(value) comboItems2.Add(value)
Finally Finally
comboItems.EndUpdate() comboItems2.EndUpdate()
End Try End Try
Next Next
GridControlPos.RepositoryItems.Add(comboEdit2)
End If
GridControlPos.RepositoryItems.Add(comboEdit)
If Not IsNothing(grvwGridPos.Columns(colName)) Then If Not IsNothing(grvwGridPos.Columns(colName)) Then
grvwGridPos.Columns(colName).ColumnEdit = comboEdit grvwGridPos.Columns(colName).ColumnEdit = comboEdit2
End If
End If End If
Next Next
Catch ex As Exception
MsgBox("Error in Create_Grid_Editor:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub End Sub
Sub Load_Pos_Data() Sub Load_Pos_Data()
@@ -1797,10 +1946,6 @@ Public Class frmForm_Constructor_Main_2
BindingNavigatorPOS.BindingSource = bs BindingNavigatorPOS.BindingSource = bs
' --- Editoren laden für Combobox --- ' --- Editoren laden für Combobox ---
Create_Grid_Editor(POS_ENTITY) Create_Grid_Editor(POS_ENTITY)
HideColumns_Pos(PARENT_RECORDID) HideColumns_Pos(PARENT_RECORDID)
End If End If
End If End If
@@ -1821,7 +1966,8 @@ Public Class frmForm_Constructor_Main_2
Function GetSelected_RecordID() Function GetSelected_RecordID()
Try Try
If Get_Grid_Column_Count() = 0 Then If Get_Grid_Column_Count() = 0 Then
Me.pnlDetails.Enabled = False Lock_RecordControls(True)
' Me.pnlDetails.Enabled = False
'Me.tsbtnshowWorkflowtasks.Enabled = False 'Me.tsbtnshowWorkflowtasks.Enabled = False
'tsstatus_Detail_show(True, "Keine Columns in Grid") 'tsstatus_Detail_show(True, "Keine Columns in Grid")
Return Nothing Return Nothing
@@ -2219,6 +2365,7 @@ Public Class frmForm_Constructor_Main_2
Loop Loop
AxObjectListControl.SetStatusIcon(3) AxObjectListControl.SetStatusIcon(3)
Else Else
tslblWindreamView.Text = "Windream-Dokumente für Record: " & CURRENT_RECORD_ID & " - Keine Dateien gefunden"
Clear_Windream_ResultList() Clear_Windream_ResultList()
End If End If
@@ -2347,20 +2494,32 @@ Public Class frmForm_Constructor_Main_2
End Sub End Sub
#End Region #End Region
Private Sub TCDetails_DragDrop(sender As Object, e As DragEventArgs) Handles TCDetails.DragDrop
Drag_Drop(e)
End Sub
Private Sub TCDetails_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TCDetails.SelectedPageChanged Private Sub TCDetails_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TCDetails.SelectedPageChanged
If TCDetails.SelectedTabPage.Text.StartsWith("Pos") Then Update_Status_Label(False, "")
tsButtonEditMode.Enabled = True
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("pos") Then
tsButtonEditMode.Enabled = False
Load_Pos_Data() Load_Pos_Data()
Load_POSGrid_Layout() Load_POSGrid_Layout()
End If End If
If TCDetails.SelectedTabPage.Text.StartsWith("Windr") Then If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("windr") Then
tsButtonEditMode.Enabled = False
If CURRENT_RECORD_ID = 0 Then If CURRENT_RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY") RUN_WD_SEARCH(WD_Suche, "ENTITY")
Else Else
RUN_WD_SEARCH(WD_Suche, "RECORD") RUN_WD_SEARCH(WD_Suche, "RECORD")
End If End If
End If End If
If TCDetails.SelectedTabPage.Text.StartsWith("Wieder") Then If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Then
tsButtonEditMode.Enabled = False
Refresh_FollowUps() Refresh_FollowUps()
dtpFollowUp.Enabled = False
lblWiedervorlage_Control.Visible = False
'Check_FOLLOWUP_IsConfigured(CURRENT_FORM_ID)
End If End If
Select Case TCDetails.SelectedTabPageIndex Select Case TCDetails.SelectedTabPageIndex
@@ -2380,6 +2539,7 @@ Public Class frmForm_Constructor_Main_2
End Select End Select
End Sub End Sub
Private Sub Refresh_FollowUps() Private Sub Refresh_FollowUps()
Try Try
If DT_FU_ENTITY.Rows.Count > 0 Then If DT_FU_ENTITY.Rows.Count > 0 Then
grpbxFU_Profile.Enabled = True grpbxFU_Profile.Enabled = True
@@ -2442,12 +2602,17 @@ Public Class frmForm_Constructor_Main_2
Private Sub pnlDetails_DragDrop(sender As Object, e As DragEventArgs) Handles pnlDetails.DragDrop Private Sub pnlDetails_DragDrop(sender As Object, e As DragEventArgs) Handles pnlDetails.DragDrop
Drag_Drop(e) Drag_Drop(e)
End Sub End Sub
Private Sub TCDetails_DragEnter(sender As Object, e As DragEventArgs) Handles TCDetails.DragEnter
Drag_Enter(e)
End Sub
#End Region #End Region
#Region "Follow Up" #Region "Follow Up"
Private Sub ListViewFollowUp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewFollowUp.SelectedIndexChanged Private Sub ListViewFollowUps_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewFollowUps.SelectedIndexChanged
If Me.ListViewFollowUp.SelectedItems.Count > 0 Then If Me.ListViewFollowUps.SelectedItems.Count > 0 Then
FOLL_UP_ID = ListViewFollowUp.SelectedItems(0).Text dtpFollowUp.Enabled = False
lblWiedervorlage_Control.Visible = False
FOLL_UP_ID = ListViewFollowUps.SelectedItems(0).Text
lblFollowUp_save.Visible = False lblFollowUp_save.Visible = False
For Each DR As DataRow In DT_FU_ENTITY.Rows For Each DR As DataRow In DT_FU_ENTITY.Rows
If FOLL_UP_ID = DR.Item("GUID") Then If FOLL_UP_ID = DR.Item("GUID") Then
@@ -2455,6 +2620,7 @@ Public Class frmForm_Constructor_Main_2
FOLL_UP_DATE_CTRL_ID = DR.Item("DEPENDENT_DATE_CTRL_ID") FOLL_UP_DATE_CTRL_ID = DR.Item("DEPENDENT_DATE_CTRL_ID")
Dim datevalue = ClassControlValues.Get_Control_Value_for_ID(DR.Item("DEPENDENT_DATE_CTRL_ID"), CURRENT_RECORD_ID) Dim datevalue = ClassControlValues.Get_Control_Value_for_ID(DR.Item("DEPENDENT_DATE_CTRL_ID"), CURRENT_RECORD_ID)
If Not IsNothing(datevalue) Then If Not IsNothing(datevalue) Then
dtpFollowUp.Enabled = True
If datevalue = "00:00:00" Then If datevalue = "00:00:00" Then
dtpFollowUp.Value = CDate(Now) dtpFollowUp.Value = CDate(Now)
End If End If
@@ -2464,9 +2630,13 @@ Public Class frmForm_Constructor_Main_2
dtpFollowUp.Value = CDate(Now) dtpFollowUp.Value = CDate(Now)
FOLL_UP_RECORD_DEFINED = False FOLL_UP_RECORD_DEFINED = False
End If End If
lblWiedervorlage_Control.Visible = True
Dim caption = ClassDatabase.Execute_Scalar("SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = " & DR.Item("DEPENDENT_DATE_CTRL_ID"), True) Dim caption = ClassDatabase.Execute_Scalar("SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = " & DR.Item("DEPENDENT_DATE_CTRL_ID"), True)
If Not IsNothing(caption) Then If Not IsNothing(caption) Then
dtpFollowUp.Text = CStr(caption) lblWiedervorlage_Control.Text = CStr(caption)
Else
lblWiedervorlage_Control.Text = "Wiedervorlage:"
End If End If
FOLL_UP_DONE_CTRL_ID = DR.Item("DEPENDENT_DONE_CTRL_ID") FOLL_UP_DONE_CTRL_ID = DR.Item("DEPENDENT_DONE_CTRL_ID")
Dim checkvalue = ClassControlValues.Get_Control_Value_for_ID(DR.Item("DEPENDENT_DONE_CTRL_ID"), CURRENT_RECORD_ID) Dim checkvalue = ClassControlValues.Get_Control_Value_for_ID(DR.Item("DEPENDENT_DONE_CTRL_ID"), CURRENT_RECORD_ID)
@@ -2540,12 +2710,12 @@ Public Class frmForm_Constructor_Main_2
FOLLOW_UPisActive = True FOLLOW_UPisActive = True
'Die Wiedervorlageprofile in den Listview laden 'Die Wiedervorlageprofile in den Listview laden
ListViewFollowUp.Items.Clear() ListViewFollowUps.Items.Clear()
Dim anz As Integer = 0 Dim anz As Integer = 0
For Each DR As DataRow In DT_FU_ENTITY.Rows For Each DR As DataRow In DT_FU_ENTITY.Rows
Dim name = DR.Item("NAME") Dim name = DR.Item("NAME")
ListViewFollowUp.Items.Add(DR.Item("GUID")) ListViewFollowUps.Items.Add(DR.Item("GUID"))
ListViewFollowUp.Items(anz).SubItems.Add(DR.Item("NAME")) ListViewFollowUps.Items(anz).SubItems.Add(name)
anz += 1 anz += 1
Next Next
@@ -2641,7 +2811,7 @@ Public Class frmForm_Constructor_Main_2
EBENE2_RECID = 0 EBENE2_RECID = 0
EBENE3_ENTITY = "" EBENE3_ENTITY = ""
EBENE3_RECID = 0 EBENE3_RECID = 0
NavPane.Categories.Clear()
Load_Tree_View(CONSTRUCTORID) Load_Tree_View(CONSTRUCTORID)
End Sub End Sub
@@ -2672,39 +2842,13 @@ Public Class frmForm_Constructor_Main_2
Dim FormId As Integer = SelectedNode.Tag Dim FormId As Integer = SelectedNode.Tag
If FormId > 0 Then If FormId > 0 Then
CURRENT_FORM_ID = FormId CURRENT_FORM_ID = FormId
Cursor = Cursors.WaitCursor
OpenFormLevelDesigner() OpenFormLevelDesigner()
Cursor = Cursors.Default
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Open Designer: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Open Designer: " & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Sub OpenFormLevelDesigner()
Dim frm As New frmLevel_Designer
frm = frmLevel_Designer.Instance
'frm.MdiParent = frmMain
'frmMain.tscMain.ContentPanel.Controls.Add(frm)
frm.Show()
Dim frm2 As New frmTool_ControlDesigner
frm2 = frmTool_ControlDesigner.Instance
If My.Settings.User_DesignPanels_areChild = True Then
frm2.MdiParent = frmMain
End If
'frmMain.tscMain.ContentPanel.Controls.Add(frm2)
frm2.Show()
Dim frm3 As New frmTool_ControlProperties
frm3 = frmTool_ControlProperties.Instance
If My.Settings.User_DesignPanels_areChild = True Then
frm3.MdiParent = frmMain
End If
'frmMain.tscMain.ContentPanel.Controls.Add(frm3)
frm3.Show()
End Sub
Private Sub ButtonExportToExcel_Click(sender As Object, e As EventArgs) Handles ButtonExportToExcel.Click Private Sub ButtonExportToExcel_Click(sender As Object, e As EventArgs) Handles ButtonExportToExcel.Click
Dim saveFileDialog1 As New SaveFileDialog Dim saveFileDialog1 As New SaveFileDialog
saveFileDialog1.Filter = "Excel File|*.xlsx" saveFileDialog1.Filter = "Excel File|*.xlsx"
@@ -2817,7 +2961,7 @@ Public Class frmForm_Constructor_Main_2
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
If ClassOfficeTemplate.Open_Word_Template(TemplateID, CURRENT_RECORD_ID) = True Then If ClassOfficeTemplate.Open_Word_Template(TemplateID, CURRENT_RECORD_ID) = True Then
RUN_WD_SEARCH(WD_Suche, "RECORD") RUN_WD_SEARCH(WD_Suche, "RECORD")
Update_Status_Label(True, "Vorlagen-Datei erfolgreich nach windream importiert!") Update_Status_Label(True, "Vorlagen-Datei erfolgreich nach windream importiert!", EditState.Insert)
End If End If
Cursor = Cursors.Default Cursor = Cursors.Default
Else Else
@@ -2855,16 +2999,26 @@ Public Class frmForm_Constructor_Main_2
End Sub End Sub
Private Sub grvwGridPos_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) Handles grvwGridPos.CellValueChanged Private Sub grvwGridPos_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) Handles grvwGridPos.CellValueChanged
Try
Dim column = e.Column.FieldName Dim column = e.Column.FieldName
Dim sql = String.Format("select guid from TBPMO_CONTROL where COL_NAME = '{0}' and FORM_ID = {1}", column, POS_ENTITY) Dim sql = String.Format("select guid from TBPMO_CONTROL where COL_NAME = '{0}' and FORM_ID = {1}", column, POS_ENTITY)
Dim controlid = ClassDatabase.Execute_Scalar(sql, True) Dim controlid = ClassDatabase.Execute_Scalar(sql, True)
If Not IsNothing(controlid) Then If Not IsNothing(controlid) Then
'Überprüfen ob schon value vorhanden 'Überprüfen ob schon value vorhanden
sql = String.Format("SELECT CONTROL_ID FROM VWPMO_VALUES WHERE CONTROL_ID = {0} AND FORM_ID = {1} AND CONTROL_COLUMN = '{2}' AND RECORD_ID = {3}", controlid, POS_ENTITY, column, POS_RECORD_ID) sql = String.Format("SELECT CONTROL_ID FROM VWPMO_VALUES WHERE CONTROL_ID = {0} AND FORM_ID = {1} AND CONTROL_COLUMN = '{2}' AND RECORD_ID = {3}", controlid, POS_ENTITY, column, POS_RECORD_ID)
Dim cId As Integer = ClassDatabase.Execute_Scalar(sql) Dim cId As Integer = ClassDatabase.Execute_Scalar(sql)
If IsNothing(POS_RECORD_ID) Or IsDBNull(POS_RECORD_ID) Then
If ClassControlCommandsUI.CreateRecord(POS_ENTITY) = True Then
Dim recid = ClassControlCommandsUI.GetLastRecord
If Not IsNothing(recid) Then
'Die neue Record-ID setzen
POS_RECORD_ID = recid
ClassControlCommandsUI.ConnectRecord(CURRENT_PARENTID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString)
Else
MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation)
End If
End If
End If
' Wenn cId = 0, existiert noch kein wert für diese controlId/FormId Kombination ' Wenn cId = 0, existiert noch kein wert für diese controlId/FormId Kombination
If cId = 0 Then If cId = 0 Then
ClassControlCommandsUI.InsertControlValue(controlid, POS_RECORD_ID, e.Value) ClassControlCommandsUI.InsertControlValue(controlid, POS_RECORD_ID, e.Value)
@@ -2876,6 +3030,10 @@ Public Class frmForm_Constructor_Main_2
Else Else
Update_Status_Label(False) Update_Status_Label(False)
End If End If
Catch ex As Exception
MsgBox("Error in grvwGridPos_CellValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub End Sub
@@ -2904,4 +3062,57 @@ Public Class frmForm_Constructor_Main_2
Private Sub GridControlPos_Leave(sender As Object, e As EventArgs) Handles GridControlPos.Leave Private Sub GridControlPos_Leave(sender As Object, e As EventArgs) Handles GridControlPos.Leave
Save_POSGrid_Layout() Save_POSGrid_Layout()
End Sub End Sub
Private Sub grvwGridPos_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGridPos.RowStyle
If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
e.Appearance.BackColor = Color.LemonChiffon
End If
End Sub
Private Sub grvwGrid_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGrid.RowStyle
If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
e.Appearance.BackColor = Color.LemonChiffon
End If
End Sub
Private Sub grvwGrid_SelectionChanged(sender As Object, e As DevExpress.Data.SelectionChangedEventArgs) Handles grvwGrid.SelectionChanged
End Sub
Private Sub grvwGrid_MouseDown(sender As Object, e As MouseEventArgs) Handles grvwGrid.MouseDown, grvwTiles.MouseDown, grvwCarousel.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
RightMouse_Clicked = True
Else
RightMouse_Clicked = False
End If
End Sub
Private Sub btnAddUser_FollowUp_Click(sender As Object, e As EventArgs) Handles btnAddUser_FollowUp.Click
If cmbFollowUpUser.SelectedIndex <> -1 And FOLL_UP_ID > 0 Then
Try
Dim ins = "INSERT INTO TBPMO_FOLLUPEMAIL_RECORD (FOLLOW_UP_ID,USER_ID,RECORD_ID,ADDED_WHO) VALUES (" & FOLL_UP_ID & ", " & cmbFollowUpUser.SelectedValue & ", " & CURRENT_RECORD_ID & ", '" & Environment.UserName & "')"
If ClassDatabase.Execute_non_Query(ins, True) = True Then
Load_FUUser(FOLL_UP_ID)
Update_Status_Label(True, "User added to Follow Up", EditState.Insert)
End If
Catch ex As Exception
MsgBox("Error in Add User2FollowUp_Record:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
Private Sub btnRemoveUser_FollowUp_Click(sender As Object, e As EventArgs) Handles btnRemoveUser_FollowUp.Click
If ListBoxUser2Profile.SelectedIndex <> -1 Then
Try
Dim del = "DELETE FROM TBPMO_FOLLUPEMAIL_RECORD WHERE GUID = " & ListBoxUser2Profile.SelectedValue
If ClassDatabase.Execute_non_Query(del, True) = True Then
Update_Status_Label(True, "User removed from Follow Up", EditState.Update)
Load_FUUser(FOLL_UP_ID)
End If
Catch ex As Exception
MsgBox("Error in Delete Userlink FollowUp:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
End Class End Class

5
app/DD-Record-Organiser/frmLevel_Designer.vb
View File

@@ -102,6 +102,7 @@
#Region "+++++ Drag Drop Funktionen +++++" #Region "+++++ Drag Drop Funktionen +++++"
Public Sub ControlDragDrop(type As String, Parent As GroupBox) Public Sub ControlDragDrop(type As String, Parent As GroupBox)
Try
Dim r As New System.Random() Dim r As New System.Random()
Dim def_font_family As String = DefaultFont.Name Dim def_font_family As String = DefaultFont.Name
Dim def_font_color As Integer = DefaultForeColor.ToArgb Dim def_font_color As Integer = DefaultForeColor.ToArgb
@@ -171,6 +172,10 @@
Case Else Case Else
MsgBox("Event '" & type & "' nicht definiert") MsgBox("Event '" & type & "' nicht definiert")
End Select End Select
Catch ex As Exception
MsgBox("unexpected Error in ControlDragDrop: " & vbNewLine, MsgBoxStyle.Critical)
End Try
End Sub End Sub
Public Sub Groupbox_DragDrop(sender As Object, e As DragEventArgs) Public Sub Groupbox_DragDrop(sender As Object, e As DragEventArgs)

6
app/DD-Record-Organiser/frmSQLEditor.vb
View File

@@ -293,7 +293,11 @@ Public Class frmSQLEditor
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try Try
Dim upd As String = "UPDATE TBPMO_CONTROL SET SQL_COMMAND_1 = '" & txtValue.Text & "', CONNECTION_ID_1 = " & cmbConnection.SelectedValue & ", CHANGED_WHO = '" & Environment.UserName & "' WHERE GUID = " & CURRENT_CONTROL_ID Dim sql_comamnd As String = txtValue.Text
If txtValue.Text.Contains("'") Then
sql_comamnd = txtValue.Text.Replace("'", "''")
End If
Dim upd As String = "UPDATE TBPMO_CONTROL SET SQL_COMMAND_1 = '" & sql_comamnd & "', CONNECTION_ID_1 = " & cmbConnection.SelectedValue & ", CHANGED_WHO = '" & Environment.UserName & "' WHERE GUID = " & CURRENT_CONTROL_ID
If ClassDatabase.Execute_non_Query(upd, True) Then If ClassDatabase.Execute_non_Query(upd, True) Then
MsgBox("SQL-Befehl erfolgreich gespeichert!", MsgBoxStyle.Exclamation) MsgBox("SQL-Befehl erfolgreich gespeichert!", MsgBoxStyle.Exclamation)
End If End If

2
app/SetupWiX/Product.wxs
View File

@@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<Wix xmlns="http://schemas.microsoft.com/wix/2006/wi" <Wix xmlns="http://schemas.microsoft.com/wix/2006/wi"
xmlns:util="http://schemas.microsoft.com/wix/UtilExtension"> xmlns:util="http://schemas.microsoft.com/wix/UtilExtension">
<Product Name="Record Organizer" Id="*" UpgradeCode="{6387325E-F6D7-46BE-BBA8-D0E37BEEF800}" Version="2.0.1.0" Manufacturer="Digital Data" Language="1031" Codepage="1252"> <Product Name="Record Organizer" Id="*" UpgradeCode="{6387325E-F6D7-46BE-BBA8-D0E37BEEF800}" Version="2.1.0.0" Manufacturer="Digital Data" Language="1031" Codepage="1252">
<Package Id="*" Keywords="Installer" Description="Digital Data Record Organizer Setup" Comments="Record Organizer is a registered Trademark of Digital Data" Manufacturer="Digital Data" InstallerVersion="100" Languages="1031" Compressed="yes" SummaryCodepage="1252"/> <Package Id="*" Keywords="Installer" Description="Digital Data Record Organizer Setup" Comments="Record Organizer is a registered Trademark of Digital Data" Manufacturer="Digital Data" InstallerVersion="100" Languages="1031" Compressed="yes" SummaryCodepage="1252"/>
<!-- Nicht entfernen! --> <!-- Nicht entfernen! -->