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

MS_01.12.2015

Browse Source
This commit is contained in:
SchreiberM 2015-12-01 13:16:32 +01:00
parent 2cd1dc3a94
commit 2720196564
10 changed files with 291 additions and 90 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,7 +10,6 @@ Public Class ClassDatabase
SQLconnect.ConnectionString = connectionString
SQLconnect.Open()
SQLconnect.Close()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Database initiiert.")
Return True
Catch ex As Exception
ClassLogger.Add("Fehler bei DatabaseInit: " & ex.Message, True)

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

@ -75,6 +75,7 @@ Public Class ClassInit
Public Sub InitUserLogin()
Dim sql = sql_UserID
sql = sql.Replace("@user", Environment.UserName)
ClassLogger.Add(">> Neuanmeldung am System: " & Now.ToString, False)
ClassLogger.Add(">> Username: " & Environment.UserName, False)
USER_GUID = ClassDatabase.Execute_Scalar(sql)

4
app/DD-Record-Organiser/DD-Record-Organiser.vbproj
View File

@ -90,6 +90,7 @@
<SpecificVersion>False</SpecificVersion>
<Private>True</Private>
</Reference>
<Reference Include="DevExpress.Printing.v14.2.Core, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<Private>True</Private>
@ -204,6 +205,7 @@
<HintPath>..\..\3rdparty\lib\Oracle Managed Data Access\Oracle.ManagedDataAccess.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="PresentationCore" />
<Reference Include="SnapPanelControl, Version=1.0.5491.24234, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\lib\SnapPanelControl\SnapPanelControl.dll</HintPath>
@ -216,12 +218,14 @@
<Reference Include="System.DirectoryServices.AccountManagement" />
<Reference Include="System.DirectoryServices.Protocols" />
<Reference Include="System.Drawing" />
<Reference Include="System.Runtime.Remoting" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="UIAutomationClient" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />

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

@ -180,9 +180,9 @@
Dim frm As New frmLevel_Designer
frm = frmLevel_Designer.Instance
frm.MdiParent = MAIN_FORM
frm.Show()
Dim frm2 As New frmTool_ControlDesigner
frm2 = frmTool_ControlDesigner.Instance
If My.Settings.User_DesignPanels_areChild = True Then
@ -198,6 +198,7 @@
End If
frm3.Show()
End Sub
Public Sub OpenFormConstructor(id As Integer)
CURRENT_CONSTRUCTOR_ID = id

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

@ -133,8 +133,6 @@ Partial Class frmConstructorDesigner
Me.tslblSaveDetail = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView()
Me.TBTEMP_QUICKDISPLAYBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet()
Me.ListBox1 = New System.Windows.Forms.ListBox()
@ -186,8 +184,6 @@ Partial Class frmConstructorDesigner
Me.GroupBox1.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBTEMP_QUICKDISPLAYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPMO_FORM_CONSTRUCTORBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -534,7 +530,7 @@ Partial Class frmConstructorDesigner
Me.TreeView1.Location = New System.Drawing.Point(0, 0)
Me.TreeView1.Name = "TreeView1"
Me.TreeView1.SelectedImageIndex = 1
Me.TreeView1.Size = New System.Drawing.Size(292, 407)
Me.TreeView1.Size = New System.Drawing.Size(292, 417)
Me.TreeView1.TabIndex = 1
'
'ImageList1
@ -655,7 +651,7 @@ Partial Class frmConstructorDesigner
Me.XtraTabControl1.Location = New System.Drawing.Point(15, 249)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
Me.XtraTabControl1.Size = New System.Drawing.Size(1306, 435)
Me.XtraTabControl1.Size = New System.Drawing.Size(1306, 442)
Me.XtraTabControl1.TabIndex = 40
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1})
'
@ -666,7 +662,7 @@ Partial Class frmConstructorDesigner
Me.XtraTabPage1.Controls.Add(Me.ToolStrip1)
Me.XtraTabPage1.Controls.Add(Me.TreeView1)
Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(1300, 407)
Me.XtraTabPage1.Size = New System.Drawing.Size(1304, 417)
Me.XtraTabPage1.Text = "Entitäten-Übersicht"
'
'XtraTabControl2
@ -675,7 +671,7 @@ Partial Class frmConstructorDesigner
Me.XtraTabControl2.Location = New System.Drawing.Point(292, 25)
Me.XtraTabControl2.Name = "XtraTabControl2"
Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3
Me.XtraTabControl2.Size = New System.Drawing.Size(1008, 360)
Me.XtraTabControl2.Size = New System.Drawing.Size(1012, 370)
Me.XtraTabControl2.TabIndex = 35
Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage5, Me.XtraTabPage3, Me.XtraTabPage4})
'
@ -703,7 +699,7 @@ Partial Class frmConstructorDesigner
Me.XtraTabPage3.Controls.Add(Me.GUIDTextBox1)
Me.XtraTabPage3.Controls.Add(Me.LEVEL1_SELECTCheckBox)
Me.XtraTabPage3.Name = "XtraTabPage3"
Me.XtraTabPage3.Size = New System.Drawing.Size(1002, 332)
Me.XtraTabPage3.Size = New System.Drawing.Size(1010, 295)
Me.XtraTabPage3.Text = "Allgemein"
'
'LOAD_DIRECTCheckBox
@ -821,7 +817,7 @@ Partial Class frmConstructorDesigner
Me.XtraTabPage5.Controls.Add(Me.listBoxControls)
Me.XtraTabPage5.Controls.Add(Me.Label3)
Me.XtraTabPage5.Name = "XtraTabPage5"
Me.XtraTabPage5.Size = New System.Drawing.Size(1002, 332)
Me.XtraTabPage5.Size = New System.Drawing.Size(1010, 295)
Me.XtraTabPage5.Text = "Quick View Konfiguration"
'
'Button2
@ -952,10 +948,12 @@ Partial Class frmConstructorDesigner
'
'listBoxControls
'
Me.listBoxControls.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.listBoxControls.FormattingEnabled = True
Me.listBoxControls.Location = New System.Drawing.Point(8, 49)
Me.listBoxControls.Name = "listBoxControls"
Me.listBoxControls.Size = New System.Drawing.Size(186, 277)
Me.listBoxControls.Size = New System.Drawing.Size(186, 225)
Me.listBoxControls.TabIndex = 1
'
'Label3
@ -974,7 +972,7 @@ Partial Class frmConstructorDesigner
Me.XtraTabPage4.Controls.Add(Me.grpbxWD_RecordSearch)
Me.XtraTabPage4.Controls.Add(Me.GroupBox1)
Me.XtraTabPage4.Name = "XtraTabPage4"
Me.XtraTabPage4.Size = New System.Drawing.Size(1002, 332)
Me.XtraTabPage4.Size = New System.Drawing.Size(1010, 345)
Me.XtraTabPage4.Text = "windream-Suche Konfiguration"
'
'chkWDSearch_Active
@ -1009,7 +1007,7 @@ Partial Class frmConstructorDesigner
Me.grpbxWD_RecordSearch.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.grpbxWD_RecordSearch.Location = New System.Drawing.Point(5, 24)
Me.grpbxWD_RecordSearch.Name = "grpbxWD_RecordSearch"
Me.grpbxWD_RecordSearch.Size = New System.Drawing.Size(825, 157)
Me.grpbxWD_RecordSearch.Size = New System.Drawing.Size(829, 157)
Me.grpbxWD_RecordSearch.TabIndex = 78
Me.grpbxWD_RecordSearch.TabStop = False
Me.grpbxWD_RecordSearch.Text = "windream-Suche für Recordbezogene Suche:"
@ -1172,7 +1170,7 @@ Partial Class frmConstructorDesigner
Me.GroupBox1.Controls.Add(SEARCH_PATTERN2Label1)
Me.GroupBox1.Location = New System.Drawing.Point(5, 187)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(825, 148)
Me.GroupBox1.Size = New System.Drawing.Size(829, 148)
Me.GroupBox1.TabIndex = 44
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "windream-Suche für Entitätsweite Suche:"
@ -1230,9 +1228,9 @@ Partial Class frmConstructorDesigner
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblSaveDetail})
Me.StatusStrip1.Location = New System.Drawing.Point(292, 385)
Me.StatusStrip1.Location = New System.Drawing.Point(292, 395)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(1008, 22)
Me.StatusStrip1.Size = New System.Drawing.Size(1012, 22)
Me.StatusStrip1.TabIndex = 35
Me.StatusStrip1.Text = "StatusStrip1"
'
@ -1249,7 +1247,7 @@ Partial Class frmConstructorDesigner
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnSave})
Me.ToolStrip1.Location = New System.Drawing.Point(292, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1008, 25)
Me.ToolStrip1.Size = New System.Drawing.Size(1012, 25)
Me.ToolStrip1.TabIndex = 34
Me.ToolStrip1.Text = "ToolStrip1"
'
@ -1261,24 +1259,6 @@ Partial Class frmConstructorDesigner
Me.tsbtnSave.Size = New System.Drawing.Size(79, 22)
Me.tsbtnSave.Text = "Speichern"
'
'GridControl1
'
Me.GridControl1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GridControl1.Location = New System.Drawing.Point(789, 43)
Me.GridControl1.MainView = Me.TileView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(532, 211)
Me.GridControl1.TabIndex = 53
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1})
'
'TileView1
'
Me.TileView1.AppearanceItem.Normal.ForeColor = System.Drawing.Color.Maroon
Me.TileView1.AppearanceItem.Normal.Options.UseForeColor = True
Me.TileView1.GridControl = Me.GridControl1
Me.TileView1.Name = "TileView1"
'
'TBTEMP_QUICKDISPLAYBindingSource
'
Me.TBTEMP_QUICKDISPLAYBindingSource.DataMember = "TBTEMP_QUICKDISPLAY"
@ -1388,9 +1368,8 @@ Partial Class frmConstructorDesigner
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1341, 837)
Me.ClientSize = New System.Drawing.Size(1341, 694)
Me.Controls.Add(Me.lblSave)
Me.Controls.Add(Me.GridControl1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ListBox1)
Me.Controls.Add(Me.XtraTabControl1)
@ -1442,8 +1421,6 @@ Partial Class frmConstructorDesigner
Me.StatusStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBTEMP_QUICKDISPLAYBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPMO_FORM_CONSTRUCTORBindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
@ -1550,8 +1527,6 @@ Partial Class frmConstructorDesigner
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents lblQuickViewAdded As System.Windows.Forms.Label
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents TileView1 As DevExpress.XtraGrid.Views.Tile.TileView
Friend WithEvents ImageCollection1 As DevExpress.Utils.ImageCollection
Friend WithEvents LOAD_DIRECTCheckBox As System.Windows.Forms.CheckBox
End Class

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

@ -281,7 +281,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS
CQAAAk1TRnQBSQFMAgEBAgEAAcABCQHAAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CQAAAk1TRnQBSQFMAgEBAgEAAcgBCQHIAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -5404,7 +5404,7 @@
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>250</value>
<value>125</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

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

@ -83,6 +83,10 @@ Partial Class frmForm_Constructor_Main_2
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.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.GridControlPos = New DevExpress.XtraGrid.GridControl()
Me.grvwGridPos = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ToolStripEdit = New System.Windows.Forms.ToolStrip()
Me.tsButtonAdd = New System.Windows.Forms.ToolStripButton()
Me.tsButtonSave = New System.Windows.Forms.ToolStripButton()
@ -109,6 +113,7 @@ Partial Class frmForm_Constructor_Main_2
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.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.pnlDetails_Pos = New System.Windows.Forms.Panel()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuGrid.SuspendLayout()
@ -131,6 +136,11 @@ Partial Class frmForm_Constructor_Main_2
Me.TabFollowUp.SuspendLayout()
Me.grpbxFU_Profile.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.TabPos.SuspendLayout()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.SuspendLayout()
CType(Me.GridControlPos, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGridPos, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripEdit.SuspendLayout()
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
@ -445,7 +455,7 @@ Partial Class frmForm_Constructor_Main_2
Me.TCDetails.SelectedTabPage = Me.TabDetails
Me.TCDetails.Size = New System.Drawing.Size(1062, 340)
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, Me.TabPos})
'
'TabDetails
'
@ -470,7 +480,7 @@ Partial Class frmForm_Constructor_Main_2
Me.TabWindream.Controls.Add(Me.ToolStripDokumente)
Me.TabWindream.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954
Me.TabWindream.Name = "TabWindream"
Me.TabWindream.Size = New System.Drawing.Size(1063, 316)
Me.TabWindream.Size = New System.Drawing.Size(1060, 312)
Me.TabWindream.Text = "windream-Dateien"
'
'AxObjectListControl
@ -481,7 +491,7 @@ Partial Class frmForm_Constructor_Main_2
Me.AxObjectListControl.Location = New System.Drawing.Point(0, 25)
Me.AxObjectListControl.Name = "AxObjectListControl"
Me.AxObjectListControl.OcxState = CType(resources.GetObject("AxObjectListControl.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxObjectListControl.Size = New System.Drawing.Size(1063, 291)
Me.AxObjectListControl.Size = New System.Drawing.Size(1060, 287)
Me.AxObjectListControl.TabIndex = 6
Me.AxObjectListControl.TabStop = False
'
@ -490,7 +500,7 @@ Partial Class frmForm_Constructor_Main_2
Me.ToolStripDokumente.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripDropDownButton2})
Me.ToolStripDokumente.Location = New System.Drawing.Point(0, 0)
Me.ToolStripDokumente.Name = "ToolStripDokumente"
Me.ToolStripDokumente.Size = New System.Drawing.Size(1063, 25)
Me.ToolStripDokumente.Size = New System.Drawing.Size(1060, 25)
Me.ToolStripDokumente.TabIndex = 2
Me.ToolStripDokumente.Text = "ToolStrip2"
'
@ -524,7 +534,7 @@ Partial Class frmForm_Constructor_Main_2
Me.TabFollowUp.Controls.Add(Me.ListViewFollowUp)
Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
Me.TabFollowUp.Name = "TabFollowUp"
Me.TabFollowUp.Size = New System.Drawing.Size(1063, 316)
Me.TabFollowUp.Size = New System.Drawing.Size(1060, 312)
Me.TabFollowUp.Text = "Wiedervorlage"
'
'grpbxFU_Profile
@ -688,6 +698,47 @@ Partial Class frmForm_Constructor_Main_2
Me.ColumnHeader2.Text = "Wiedervorlagentitel"
Me.ColumnHeader2.Width = 280
'
'TabPos
'
Me.TabPos.Controls.Add(Me.SplitContainerControl1)
Me.TabPos.Name = "TabPos"
Me.TabPos.PageVisible = False
Me.TabPos.Size = New System.Drawing.Size(1060, 312)
Me.TabPos.Text = "Positionen"
'
'SplitContainerControl1
'
Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0)
Me.SplitContainerControl1.Name = "SplitContainerControl1"
Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControlPos)
Me.SplitContainerControl1.Panel1.Text = "Panel1"
Me.SplitContainerControl1.Panel2.Controls.Add(Me.pnlDetails_Pos)
Me.SplitContainerControl1.Panel2.Text = "Panel2"
Me.SplitContainerControl1.Size = New System.Drawing.Size(1060, 312)
Me.SplitContainerControl1.SplitterPosition = 534
Me.SplitContainerControl1.TabIndex = 1
Me.SplitContainerControl1.Text = "SplitContainerControl1"
'
'GridControlPos
'
Me.GridControlPos.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlPos.Location = New System.Drawing.Point(0, 0)
Me.GridControlPos.MainView = Me.grvwGridPos
Me.GridControlPos.Name = "GridControlPos"
Me.GridControlPos.Size = New System.Drawing.Size(534, 312)
Me.GridControlPos.TabIndex = 0
Me.GridControlPos.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGridPos})
'
'grvwGridPos
'
Me.grvwGridPos.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan
Me.grvwGridPos.Appearance.EvenRow.Options.UseBackColor = True
Me.grvwGridPos.GridControl = Me.GridControlPos
Me.grvwGridPos.Name = "grvwGridPos"
Me.grvwGridPos.OptionsView.EnableAppearanceEvenRow = True
Me.grvwGridPos.OptionsView.ShowAutoFilterRow = True
'
'ToolStripEdit
'
Me.ToolStripEdit.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
@ -875,6 +926,14 @@ Partial Class frmForm_Constructor_Main_2
Me.TBPMO_FILES_USERBindingSource.DataMember = "TBPMO_FILES_USER"
Me.TBPMO_FILES_USERBindingSource.DataSource = Me.DD_DMSDataSet
'
'pnlDetails_Pos
'
Me.pnlDetails_Pos.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlDetails_Pos.Location = New System.Drawing.Point(0, 0)
Me.pnlDetails_Pos.Name = "pnlDetails_Pos"
Me.pnlDetails_Pos.Size = New System.Drawing.Size(514, 312)
Me.pnlDetails_Pos.TabIndex = 0
'
'frmForm_Constructor_Main_2
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -913,6 +972,11 @@ Partial Class frmForm_Constructor_Main_2
Me.grpbxFU_Profile.PerformLayout()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
Me.TabPos.ResumeLayout(False)
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.ResumeLayout(False)
CType(Me.GridControlPos, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwGridPos, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStripEdit.ResumeLayout(False)
Me.ToolStripEdit.PerformLayout()
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
@ -1009,4 +1073,9 @@ Partial Class frmForm_Constructor_Main_2
Friend WithEvents DateiimportEntitätToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents tsslblWorkflowstate As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents FormDesignerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TabPos As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlPos As DevExpress.XtraGrid.GridControl
Friend WithEvents grvwGridPos As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents pnlDetails_Pos As System.Windows.Forms.Panel
End Class

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

@ -22,6 +22,9 @@ Public Class frmForm_Constructor_Main_2
Public SELECTED_RECORD_ID As Integer
Public PARENT_RECORDID As Integer
Public thisFORMVIEW_ID As Integer
Public POS_ENTITY As Integer = 0
Public POS_SQL As String = ""
Public POS_RECORD_ID
Private VIEW_ID
Private VIEW_ID_RUNTIME As Integer = -1
@ -322,7 +325,9 @@ Public Class frmForm_Constructor_Main_2
End If
End If
End Function
Public Function Get_Pos_SQL(FormId As Integer)
POS_SQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @PARENT_ID"
End Function
Public Sub Clear_Grid_View()
GridControlMain.DataSource = Nothing
@ -337,7 +342,11 @@ Public Class frmForm_Constructor_Main_2
grvwCarousel.Columns.Clear()
End If
End Sub
Public Sub Clear_GridPos_View()
GridControlPos.DataSource = Nothing
grvwGridPos.Columns.Clear()
POS_RECORD_ID = 0
End Sub
Public Function Get_Grid_Row_Count() As Integer
If GRID_TYPE = GridType.Grid Then
Return grvwGrid.RowCount
@ -386,6 +395,9 @@ Public Class frmForm_Constructor_Main_2
Return grvwCarousel.GetFocusedRowCellValue(grvwCarousel.Columns(columnName))
End If
End Function
Public Function Get_Focused_Row_Cell_Value_pos(columnName As String)
Return grvwGridPos.GetFocusedRowCellValue(grvwGrid.Columns(columnName))
End Function
Private Sub grvwGrid_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGrid.FocusedColumnChanged
Column_Row_Handler
End Sub
@ -413,10 +425,25 @@ Public Class frmForm_Constructor_Main_2
Check_Record_Changed()
DisableEditMode()
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
If Grid_RecordID <> CURRENT_RECORD_ID Then
Show_Selected_Record_Data()
Clear_GridPos_View()
If TabPos.PageVisible = True And TCDetails.SelectedTabPage.Text.StartsWith("Posi") Then
Dim POS_GRID_RECORD = Get_Focused_Row_Cell_Value_pos("Record-ID")
If Not IsNothing(POS_GRID_RECORD) Then
If POS_GRID_RECORD <> POS_RECORD_ID Then
Load_Pos_Data()
End If
End If
Else
End If
Hide_Grid_Columns()
Get_RecordCounts_Nodes()
End If
Show_Selected_Record_Data()
Hide_Grid_Columns()
Get_RecordCounts_Nodes()
End Sub
#End Region
@ -692,7 +719,19 @@ Public Class frmForm_Constructor_Main_2
pnlDetails.Enabled = False
AddHandler CtrlBuilder.OnRecordChanged, AddressOf OnRecordChanged
End Sub
Sub Load_POS_Controls(FORM_VIEW_ID As Integer, ENTITY_ID As Integer)
thisFORMVIEW_ID = FORM_VIEW_ID
CURRENT_FORM_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & FORM_VIEW_ID)
CtrlBuilder = New ClassControlBuilder(pnlDetails_Pos, ttToolTip)
'LoadControls(thisFormId)
CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
ContextMenuDetails,
AddressOf NewEditAppointment,
AddressOf OpenFormData)
CtrlCommandUI.LoadControls(ENTITY_ID)
pnlDetails.Enabled = False
AddHandler CtrlBuilder.OnRecordChanged, AddressOf OnRecordChanged
End Sub
Private Sub OnRecordChanged(sender As Object, e As System.EventArgs)
RECORD_CHANGED = True
End Sub
@ -827,14 +866,12 @@ Public Class frmForm_Constructor_Main_2
Update_Status_Label(True, "Record gespeichert - " & Now)
Update_Record_Label(SELECTED_RECORD_ID)
Dim CURRENT_FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID)
Dim IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID)
If IS_SINGLE_RECORD = False Then
If CURRENT_FORM_TYPE <> 5 Then
If EDIT_STATE = EditState.Insert Then
'Die Daten neu laden
Load_Entity_Data_Only()
Get_Grid_Row_Handle(NEW_RECORD_ID)
@ -849,7 +886,7 @@ Public Class frmForm_Constructor_Main_2
End If
End If
End If
Catch ex As Exception
MsgBox("Error in Save Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@ -865,7 +902,7 @@ Public Class frmForm_Constructor_Main_2
If result = MsgBoxResult.Yes Then
EDIT_STATE = EditState.Delete
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)
Update_Record_Label(SELECTED_RECORD_ID)
Load_Tree_View_Data()
End If
@ -980,7 +1017,8 @@ Public Class frmForm_Constructor_Main_2
IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID)
LOAD_DIRECT = ClassDatabase.Execute_Scalar("SELECT LOAD_DIRECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
CURRENT_CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar("SELECT GUID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & CURRENT_FORM_ID)
POS_ENTITY = ClassDatabase.Execute_Scalar("SELECT POS_ENTITY FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID)
If VIEW_ID_RUNTIME <> -1 Then
GRID_TYPE_ID = VIEW_ID_RUNTIME
@ -1163,7 +1201,10 @@ Public Class frmForm_Constructor_Main_2
DT_SELECTION = DTEntity
LoadGrid_Selection()
'If LOAD_DIRECT = True Or IS_SINGLE_RECORD Then
If LOAD_DIRECT = True Then
Load_Record_Direct()
End If
' Dim sql1 = CURRENT_ENTITYSQL
' sql1.Replace("T.*", "TOP 1 [Record-ID]")
' Dim id = ClassDatabase.Execute_Scalar(sql1, True)
@ -1176,7 +1217,13 @@ Public Class frmForm_Constructor_Main_2
Check_FOLLOWUP_IsConfigured(CURRENT_FORM_ID)
Load_Grid_Layout()
End If
If POS_ENTITY > 0 Then
TabDetails.Text = "Kopfdaten"
TabPos.PageVisible = True
Else
TabDetails.Text = "Detailansicht"
TabPos.PageVisible = False
End If
Load_Templates()
Me.Cursor = Cursors.Default
@ -1187,7 +1234,29 @@ Public Class frmForm_Constructor_Main_2
MsgBox("Error in Load_Entity_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Sub Load_Record_Direct()
Try
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
If Not IsNothing(Grid_RecordID) Then
Select ACT_EBENE
Case 1
PARENT_RECORDID = Grid_RecordID
CURRENT_PARENTID = PARENT_RECORDID
SELECTED_RECORD_ID = Grid_RecordID
CURRENT_RECORD_ID = Grid_RecordID
'Daten zu Record in jedem Fall laden
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False
Update_Record_Label(Grid_RecordID)
End Select
End If
Catch ex As Exception
MsgBox("Error in Load_Record_Direct:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Sub Load_Entity_Data_Only()
Try
ENTITY_LOADED = False
@ -1422,7 +1491,6 @@ Public Class frmForm_Constructor_Main_2
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = 1
CheckBoxEditorForDisplay.ValueUnchecked = 0
' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
'For Each col As String In listcheck
' grvwSelection.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
@ -1479,6 +1547,31 @@ Public Class frmForm_Constructor_Main_2
MsgBox("Error in HideColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub HideColumns_Pos(EntityID As Integer)
Try
Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & EntityID
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGridPos.Columns
If DT.Rows.Count <> 0 Then
' Alle Spalten, die ausgeblendet werden sollten durchgehen und Visible = False
For Each row As DataRow In DT.Rows
Dim colname As String = row.Item("CONTROL_COL_NAME")
Dim col As DevExpress.XtraGrid.Columns.GridColumn = grvwGridPos.Columns.Item(colname)
If Not IsNothing(col) Then
col.Visible = False
End If
Next
End If
' FormID und RecordID immer ausblenden
grvwGridPos.Columns.Item("Record-ID").Visible = False
grvwGridPos.Columns.Item("Form-ID").Visible = False
Catch ex As Exception
MsgBox("Error in HideColumns_Pos:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Show_Selected_Record_Data(Optional DirectRecID As Integer = 0)
Try
@ -1488,8 +1581,8 @@ Public Class frmForm_Constructor_Main_2
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)
'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
@ -1548,7 +1641,6 @@ Public Class frmForm_Constructor_Main_2
CURRENT_PARENTID = EBENE2_RECID
End If
End Select
End If
Else '#### Record wird direkt geladen ####
@ -1557,18 +1649,17 @@ Public Class frmForm_Constructor_Main_2
CURRENT_RECORD_ID = DirectRecID
End If
Select Case TCDetails.SelectedTabPageIndex
Case 0
'Daten zu Record in jedem Fall laden
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
Case 1
If CURRENT_RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY")
Else
RUN_WD_SEARCH(WD_Suche, "RECORD")
End If
End Select
If TCDetails.SelectedTabPage.Text.StartsWith("Windr") Then
If CURRENT_RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY")
Else
RUN_WD_SEARCH(WD_Suche, "RECORD")
End If
End If
If TCDetails.SelectedTabPage.Text.StartsWith("Detail") Or TCDetails.SelectedTabPage.Text.StartsWith("Kopf") Then
'Daten zu Record in jedem Fall laden
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
End If
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False
@ -1615,7 +1706,6 @@ Public Class frmForm_Constructor_Main_2
End If
End Select
Update_Record_Label(SELECTED_RECORD_ID)
Me.tsButtonShowWorkflowTasks.Enabled = True
@ -1626,7 +1716,23 @@ Public Class frmForm_Constructor_Main_2
End Try
End Sub
Sub Load_Pos_Data()
Try
If POS_ENTITY > 0 Then
Get_Pos_SQL(POS_ENTITY)
POS_SQL = POS_SQL.Replace("@PARENT_ID", PARENT_RECORDID)
Dim DT_POS As DataTable = ClassDatabase.Return_Datatable(POS_SQL, "Load POSData")
Clear_GridPos_View()
If Not IsNothing(DT_POS) Then
GridControlPos.DataSource = DT_POS
HideColumns_Pos(PARENT_RECORDID)
End If
End If
Catch ex As Exception
MsgBox("Error in Load_Pos_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Function Get_GridResult(Columnname As String)
Dim result = Get_Focused_Row_Cell_Value(Columnname)
If IsDBNull(result) OrElse result = "" Then
@ -2071,7 +2177,7 @@ Public Class frmForm_Constructor_Main_2
Sub Clear_Windream_ResultList()
AxObjectListControl.RemoveAllColumnHeader()
Me.AxObjectListControl.ClearResultList()
TabWindream.Text = "windream-Dateien"
TabWindream.Text = "windream-Dateien - Noch nicht geladen"
End Sub
Sub CheckDocView()
Dim _index = AxObjectListControl.GetFirstSelectedObject
@ -2166,6 +2272,20 @@ Public Class frmForm_Constructor_Main_2
#End Region
Private Sub TCDetails_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TCDetails.SelectedPageChanged
If TCDetails.SelectedTabPage.Text.StartsWith("Pos") Then
Load_Pos_Data()
End If
If TCDetails.SelectedTabPage.Text.StartsWith("Windr") Then
If CURRENT_RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY")
Else
RUN_WD_SEARCH(WD_Suche, "RECORD")
End If
End If
If TCDetails.SelectedTabPage.Text.StartsWith("Wieder") Then
Refresh_FollowUps()
End If
Select Case TCDetails.SelectedTabPageIndex
Case 0
'If RECORD_NEEDS_REFRESH = True Then
@ -2176,14 +2296,10 @@ Public Class frmForm_Constructor_Main_2
'Refresh_CreatedChangedRecordByID(CURRENT_RECORD_ID)
' RECORD_CHANGED = False
Case 1 'windream-Dokumente
If CURRENT_RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY")
Else
RUN_WD_SEARCH(WD_Suche, "RECORD")
End If
Case 2
Refresh_FollowUps()
'Refresh_FollowUps()
End Select
End Sub
Private Sub Refresh_FollowUps()
@ -2660,4 +2776,40 @@ Public Class frmForm_Constructor_Main_2
Private Sub CallRecursive(ByVal aTreeView As TreeView)
End Sub
Private Sub grvwGridPos_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) Handles grvwGridPos.CellValueChanged
Dim column = e.Column.Name.Replace("col", "")
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)
If Not IsNothing(controlid) Then
ClassControlCommandsUI.UpdateControlValue(controlid, POS_RECORD_ID, e.Value)
End If
End Sub
Private Sub grvwGridPos_Click(sender As Object, e As EventArgs) Handles grvwGridPos.Click
End Sub
Private Sub grvwGridPos_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles grvwGridPos.FocusedRowChanged
Try
If TCDetails.SelectedTabPage.Text.StartsWith("Pos") Then
Dim Grid_RecordID = Get_Focused_Row_Cell_Value_pos("Record-ID")
If Not IsNothing(Grid_RecordID) Then
POS_RECORD_ID = Grid_RecordID
'SELECTED_RECORD_ID = POS_RECORD_ID
'CURRENT_RECORD_ID = POS_RECORD_ID
'Update_Record_Label(SELECTED_RECORD_ID)
End If
End If
Catch ex As Exception
MsgBox("Error in grvwGridPos_FocusedRowChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub grvwGridPos_RowUpdated(sender As Object, e As RowObjectEventArgs) Handles grvwGridPos.RowUpdated
End Sub
End Class

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

@ -145,7 +145,6 @@ Public Class frmForm_Overview
If FormId <> -1 Then
CURRENT_FORM_ID = FormId
Open_Designer()
Me.Hide()
End If
End If
Catch ex As Exception

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

@ -359,11 +359,12 @@ Partial Class frmMain
Me.groupQuickAccess.AllowTextClipping = False
Me.groupQuickAccess.Name = "groupQuickAccess"
Me.groupQuickAccess.Text = "Schnellstart"
Me.groupQuickAccess.Visible = False
'
'groupQuickAccessDemo
'
Me.groupQuickAccessDemo.Name = "groupQuickAccessDemo"
Me.groupQuickAccessDemo.Text = "Schnellstart 2"
Me.groupQuickAccessDemo.Text = "Schnellstart "
'
'pageForms
'