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

MS_20.01

Browse Source
This commit is contained in:
SchreiberM 2016-01-20 15:46:55 +01:00
parent 48fe3a4845
commit b89733ece6
22 changed files with 153 additions and 11439 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -294,7 +294,7 @@ Public Class ClassControlCommandsUI
' Die eben erstellte RecordID holen
RECORD_ID = GetLastRecord()
CURRENT_RECORD_ID = RECORD_ID
' Wenn gegeben, foreignrecordID mit Record verknüpfen
If foreignRecordID > 0 Then
If LogErrorsOnly = False Then ClassLogger.Add(">> foreignRecordID: " & foreignRecordID & "; Record-ID: " & RECORD_ID, False)
@ -308,7 +308,7 @@ Public Class ClassControlCommandsUI
IsInsert = False
NEW_RECORD_ID = RECORD_ID
CURRENT_RECORD_ID = RECORD_ID
Return "Neuer Datensatz eingefügt - " & Now
ElseIf IsInsert = False Then
If LogErrorsOnly = False Then ClassLogger.Add(">> (SaveRecord) Update RecordID: " & RECORD_ID, False)
@ -571,9 +571,14 @@ Public Class ClassControlCommandsUI
checked_result_string = String.Join(";", checked_result)
Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
If ClassDatabase.Execute_Scalar(SQL) = 0 Then
If ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
If CURRENT_RECORD_ID = 0 Then
MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation)
Else
If ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
End If
End If
End If
End If
Catch ex As Exception

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

@ -319,7 +319,7 @@ Public Class ClassControlValues
vorgabe = autoValue.Replace("@FORM_ID", CURRENT_FORM_ID)
vorgabe = vorgabe.Replace("@RECORD_ID", CURRENT_RECORD_ID)
vorgabe = vorgabe.Replace("@RECORDID", CURRENT_RECORD_ID)
vorgabe = vorgabe.Replace("@PARENTRECORD_ID", CURRENT_PARENTID)
vorgabe = vorgabe.Replace("@PARENTRECORD_ID", CURRENT_PARENT_ID)
autoValue = ClassDatabase.Execute_Scalar(vorgabe.ToString, True)
If IsNothing(vorgabe) Then
textbox.Text = ""

10
app/DD-Record-Organiser/ClassDragDrop.vb
View File

@ -148,20 +148,20 @@ Public Class ClassDragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.All
If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... SimpleFileDrop", False)
frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... SimpleFileDrop")
'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... SimpleFileDrop")
ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
e.Effect = DragDropEffects.Copy
frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Attachment from Outlook")
If LogErrorsOnly = True Then frmForm_Constructor.tsstatus_Detail_show(True, "DragEnter ... Attachment from Outlook")
'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... Attachment from Outlook")
If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... Attachment from Outlook", False)
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
'handle a message dragged from Outlook
e.Effect = DragDropEffects.Copy
frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... OutlookMessage")
'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... OutlookMessage")
If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... OutlookMessage", False)
Else
'otherwise, do not handle
e.Effect = DragDropEffects.Copy
frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Other FileFormat")
'frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Other FileFormat")
If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... Other FileFormat", False)
End If
Catch ex As Exception

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

@ -65,7 +65,7 @@ Public Class ClassImport_Windream
Return False
End If
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_PARENTID
idxvalue = CURRENT_PARENT_ID
If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then

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

@ -327,24 +327,12 @@
<Compile Include="frmDD_EMAIL_ACCOUNT.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmForm_Constructor.designer.vb">
<DependentUpon>frmForm_Constructor.vb</DependentUpon>
</Compile>
<Compile Include="frmForm_Constructor.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmForm_Constructor_Main_2.Designer.vb">
<DependentUpon>frmForm_Constructor_Main_2.vb</DependentUpon>
</Compile>
<Compile Include="frmForm_Constructor_Main_2.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmForm_Constructor_Main.Designer.vb">
<DependentUpon>frmForm_Constructor_Main.vb</DependentUpon>
</Compile>
<Compile Include="frmForm_Constructor_Main.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmLicense.designer.vb">
<DependentUpon>frmLicense.vb</DependentUpon>
</Compile>
@ -579,12 +567,6 @@
<DependentUpon>Settings.Settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="XtraForm2.Designer.vb">
<DependentUpon>XtraForm2.vb</DependentUpon>
</Compile>
<Compile Include="XtraForm2.vb">
<SubType>Form</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmAbout.resx">
@ -605,15 +587,9 @@
<EmbeddedResource Include="frmDD_EMAIL_ACCOUNT.resx">
<DependentUpon>frmDD_EMAIL_ACCOUNT.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmForm_Constructor.resx">
<DependentUpon>frmForm_Constructor.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmForm_Constructor_Main_2.resx">
<DependentUpon>frmForm_Constructor_Main_2.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmForm_Constructor_Main.resx">
<DependentUpon>frmForm_Constructor_Main.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmLicense.resx">
<DependentUpon>frmLicense.vb</DependentUpon>
</EmbeddedResource>
@ -725,9 +701,6 @@
<SubType>Designer</SubType>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
</EmbeddedResource>
<EmbeddedResource Include="XtraForm2.resx">
<DependentUpon>XtraForm2.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="DD_DMSDataSet.xsc">

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

@ -7,9 +7,8 @@
' Diese Werte müssen später zur Laufzeit geladen werden
Public CURRENT_FORM_ID As Integer
Public CURRENT_FORM_TYPE As Integer
Public CURRENT_PARENTID As Integer
Public IS_SINGLE_RECORD As Boolean
Public LOAD_DIRECT As Boolean
Public CURRENT_PARENT_ID As Integer
Public CURRENT_ENTITYSTRING As String = ""
Public CURRENT_ENTITYSQL As String
@ -30,7 +29,7 @@
Public CURRENT_NEWFILENAME As String
Public CURRENT_FORMVIEW_ID As Integer
Public CURRENT_MASTER_FORM_ID As Integer
'Public CURRENT_MASTER_FORM_ID As Integer
Public CURRENT_FILEIN_WD As String
Public NEW_RECORD_ID As Integer

575
app/DD-Record-Organiser/XtraForm2.Designer.vb generated
View File

@ -1,575 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmConstructor_Main
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement2 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement3 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main))
Dim TileViewItemElement4 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement5 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement6 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Dim TileViewItemElement7 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
Me.grvwCarousel = New DevExpress.XtraGrid.Views.Layout.LayoutView()
Me.GridControlSelection = New DevExpress.XtraGrid.GridControl()
Me.ContextMenu_GridControlSelection = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.FunktionenDatagridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.AlleFilterEntfernenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ExportNachExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnsichtZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.grvwTiles = New DevExpress.XtraGrid.Views.Tile.TileView()
Me.TileViewColumn1 = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.TileViewColumn2 = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.TileViewColumn3 = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.LayoutViewCard1 = New DevExpress.XtraGrid.Views.Layout.LayoutViewCard()
Me.colAktenzeichen = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.TileViewColumn5 = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.colTagderEintragungimRegister = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.colAktenzustand = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.navPane = New DevExpress.XtraBars.Navigation.TileNavPane()
Me.btn_home = New DevExpress.XtraBars.Navigation.NavButton()
Me.btn_Refresh = New DevExpress.XtraBars.Navigation.NavButton()
Me.TreeViewLevelSelect = New System.Windows.Forms.TreeView()
Me.BindingSource_Entity = New System.Windows.Forms.BindingSource(Me.components)
Me.StatusStrip_Main = New System.Windows.Forms.StatusStrip()
Me.tssStatus = New System.Windows.Forms.ToolStripStatusLabel()
Me.tssRecord = New System.Windows.Forms.ToolStripStatusLabel()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView()
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
Me.VWTEMPQUICKVIEWBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
Me.TileView2 = New DevExpress.XtraGrid.Views.Tile.TileView()
Me.TileViewColumn4 = New DevExpress.XtraGrid.Columns.TileViewColumn()
Me.SplitContainer_Main = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainer_Top = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainer_Bottom = New DevExpress.XtraEditors.SplitContainerControl()
Me.VWTEMPQUICKVIEWTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.VWTEMPQUICKVIEWTableAdapter()
Me.TableAdapterManager = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager()
CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenu_GridControlSelection.SuspendLayout()
CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutViewCard1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip_Main.SuspendLayout()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPage3.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPage2.SuspendLayout()
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWTEMPQUICKVIEWBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TileView2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer_Main.SuspendLayout()
CType(Me.SplitContainer_Top, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer_Top.SuspendLayout()
CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer_Bottom.SuspendLayout()
Me.SuspendLayout()
'
'grvwCarousel
'
Me.grvwCarousel.GridControl = Me.GridControlSelection
Me.grvwCarousel.Name = "grvwCarousel"
Me.grvwCarousel.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwCarousel.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwCarousel.OptionsBehavior.Editable = False
Me.grvwCarousel.OptionsBehavior.ReadOnly = True
Me.grvwCarousel.OptionsView.ViewMode = DevExpress.XtraGrid.Views.Layout.LayoutViewMode.Row
Me.grvwCarousel.TemplateCard = Me.LayoutViewCard1
'
'GridControlSelection
'
Me.GridControlSelection.ContextMenuStrip = Me.ContextMenu_GridControlSelection
Me.GridControlSelection.Dock = System.Windows.Forms.DockStyle.Fill
GridLevelNode1.LevelTemplate = Me.grvwCarousel
GridLevelNode1.RelationName = "Level1"
GridLevelNode2.LevelTemplate = Me.grvwTiles
GridLevelNode2.RelationName = "Level2"
Me.GridControlSelection.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2})
Me.GridControlSelection.Location = New System.Drawing.Point(0, 0)
Me.GridControlSelection.MainView = Me.grvwGrid
Me.GridControlSelection.Name = "GridControlSelection"
Me.GridControlSelection.Size = New System.Drawing.Size(1150, 272)
Me.GridControlSelection.TabIndex = 2
Me.GridControlSelection.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwTiles, Me.grvwGrid, Me.grvwCarousel})
'
'ContextMenu_GridControlSelection
'
Me.ContextMenu_GridControlSelection.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FunktionenDatagridToolStripMenuItem, Me.ToolStripSeparator1, Me.AlleFilterEntfernenToolStripMenuItem, Me.ExportNachExcelToolStripMenuItem, Me.AnsichtUmschaltenToolStripMenuItem, Me.AnsichtZurücksetzenToolStripMenuItem})
Me.ContextMenu_GridControlSelection.Name = "ContextMenu_GridControlSelection"
Me.ContextMenu_GridControlSelection.Size = New System.Drawing.Size(191, 120)
'
'FunktionenDatagridToolStripMenuItem
'
Me.FunktionenDatagridToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FunktionenDatagridToolStripMenuItem.Name = "FunktionenDatagridToolStripMenuItem"
Me.FunktionenDatagridToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
Me.FunktionenDatagridToolStripMenuItem.Text = "Funktionen DataGrid"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(187, 6)
'
'AlleFilterEntfernenToolStripMenuItem
'
Me.AlleFilterEntfernenToolStripMenuItem.Name = "AlleFilterEntfernenToolStripMenuItem"
Me.AlleFilterEntfernenToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
Me.AlleFilterEntfernenToolStripMenuItem.Text = "Alle Filter entfernen"
'
'ExportNachExcelToolStripMenuItem
'
Me.ExportNachExcelToolStripMenuItem.Name = "ExportNachExcelToolStripMenuItem"
Me.ExportNachExcelToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
Me.ExportNachExcelToolStripMenuItem.Text = "Export nach Excel"
'
'AnsichtUmschaltenToolStripMenuItem
'
Me.AnsichtUmschaltenToolStripMenuItem.Name = "AnsichtUmschaltenToolStripMenuItem"
Me.AnsichtUmschaltenToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
Me.AnsichtUmschaltenToolStripMenuItem.Text = "Ansicht umschalten"
'
'AnsichtZurücksetzenToolStripMenuItem
'
Me.AnsichtZurücksetzenToolStripMenuItem.Name = "AnsichtZurücksetzenToolStripMenuItem"
Me.AnsichtZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
Me.AnsichtZurücksetzenToolStripMenuItem.Text = "Ansicht zurücksetzen"
'
'grvwTiles
'
Me.grvwTiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.TileViewColumn1, Me.TileViewColumn2, Me.TileViewColumn3})
Me.grvwTiles.GridControl = Me.GridControlSelection
Me.grvwTiles.Name = "grvwTiles"
TileViewItemElement1.Column = Me.TileViewColumn1
TileViewItemElement1.Text = "element1"
TileViewItemElement2.Column = Me.TileViewColumn2
TileViewItemElement2.Text = "element2"
TileViewItemElement3.Column = Me.TileViewColumn3
TileViewItemElement3.Text = "element3"
Me.grvwTiles.TileTemplate.Add(TileViewItemElement1)
Me.grvwTiles.TileTemplate.Add(TileViewItemElement2)
Me.grvwTiles.TileTemplate.Add(TileViewItemElement3)
'
'TileViewColumn1
'
Me.TileViewColumn1.Caption = "TileViewColumn1"
Me.TileViewColumn1.Name = "TileViewColumn1"
Me.TileViewColumn1.Visible = True
Me.TileViewColumn1.VisibleIndex = 0
'
'TileViewColumn2
'
Me.TileViewColumn2.Caption = "TileViewColumn2"
Me.TileViewColumn2.Name = "TileViewColumn2"
Me.TileViewColumn2.Visible = True
Me.TileViewColumn2.VisibleIndex = 1
'
'TileViewColumn3
'
Me.TileViewColumn3.Caption = "TileViewColumn3"
Me.TileViewColumn3.Name = "TileViewColumn3"
Me.TileViewColumn3.Visible = True
Me.TileViewColumn3.VisibleIndex = 2
'
'grvwGrid
'
Me.grvwGrid.GridControl = Me.GridControlSelection
Me.grvwGrid.GroupPanelText = "Ziehen Sie Spaltenüberschriften in diesen Bereich um nach diesen gruppieren zu la" & _
"ssen"
Me.grvwGrid.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always
Me.grvwGrid.Name = "grvwGrid"
Me.grvwGrid.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsBehavior.Editable = False
Me.grvwGrid.OptionsBehavior.ReadOnly = True
'
'LayoutViewCard1
'
Me.LayoutViewCard1.HeaderButtonsLocation = DevExpress.Utils.GroupElementLocation.AfterText
Me.LayoutViewCard1.Name = "LayoutViewCard1"
'
'colAktenzeichen
'
Me.colAktenzeichen.FieldName = "Aktenzeichen"
Me.colAktenzeichen.Name = "colAktenzeichen"
Me.colAktenzeichen.Visible = True
Me.colAktenzeichen.VisibleIndex = 1
'
'TileViewColumn5
'
Me.TileViewColumn5.FieldName = "Wiedergabe der Marke (Bild)"
Me.TileViewColumn5.Name = "TileViewColumn5"
Me.TileViewColumn5.Visible = True
Me.TileViewColumn5.VisibleIndex = 2
'
'colTagderEintragungimRegister
'
Me.colTagderEintragungimRegister.FieldName = "Tag der Eintragung im Register"
Me.colTagderEintragungimRegister.Name = "colTagderEintragungimRegister"
Me.colTagderEintragungimRegister.Visible = True
Me.colTagderEintragungimRegister.VisibleIndex = 3
'
'colAktenzustand
'
Me.colAktenzustand.FieldName = "Aktenzustand"
Me.colAktenzustand.Name = "colAktenzustand"
Me.colAktenzustand.Visible = True
Me.colAktenzustand.VisibleIndex = 4
'
'navPane
'
Me.navPane.ButtonPadding = New System.Windows.Forms.Padding(12)
Me.navPane.Buttons.Add(Me.btn_home)
Me.navPane.Buttons.Add(Me.btn_Refresh)
'
'TileNavCategory1
'
Me.navPane.DefaultCategory.Name = "TileNavCategory1"
Me.navPane.DefaultCategory.OptionsDropDown.BackColor = System.Drawing.Color.Empty
Me.navPane.DefaultCategory.OwnerCollection = Nothing
'
'
'
Me.navPane.DefaultCategory.Tile.DropDownOptions.BeakColor = System.Drawing.Color.Empty
Me.navPane.DefaultCategory.Tile.ItemSize = DevExpress.XtraBars.Navigation.TileBarItemSize.[Default]
Me.navPane.Dock = System.Windows.Forms.DockStyle.Top
Me.navPane.Location = New System.Drawing.Point(0, 0)
Me.navPane.Name = "navPane"
Me.navPane.OptionsPrimaryDropDown.BackColor = System.Drawing.Color.Empty
Me.navPane.OptionsSecondaryDropDown.BackColor = System.Drawing.Color.Empty
Me.navPane.Size = New System.Drawing.Size(1460, 40)
Me.navPane.TabIndex = 0
Me.navPane.Text = "TileNavPane1"
'
'btn_home
'
Me.btn_home.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
Me.btn_home.Caption = ""
Me.btn_home.Glyph = CType(resources.GetObject("btn_home.Glyph"), System.Drawing.Image)
Me.btn_home.IsMain = True
Me.btn_home.Name = "btn_home"
'
'btn_Refresh
'
Me.btn_Refresh.Alignment = DevExpress.XtraBars.Navigation.NavButtonAlignment.Right
Me.btn_Refresh.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
Me.btn_Refresh.Caption = ""
Me.btn_Refresh.Glyph = CType(resources.GetObject("btn_Refresh.Glyph"), System.Drawing.Image)
Me.btn_Refresh.Name = "btn_Refresh"
'
'TreeViewLevelSelect
'
Me.TreeViewLevelSelect.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeViewLevelSelect.Location = New System.Drawing.Point(0, 0)
Me.TreeViewLevelSelect.Name = "TreeViewLevelSelect"
Me.TreeViewLevelSelect.Size = New System.Drawing.Size(298, 272)
Me.TreeViewLevelSelect.TabIndex = 1
'
'StatusStrip_Main
'
Me.StatusStrip_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tssStatus, Me.tssRecord})
Me.StatusStrip_Main.Location = New System.Drawing.Point(0, 637)
Me.StatusStrip_Main.Name = "StatusStrip_Main"
Me.StatusStrip_Main.Size = New System.Drawing.Size(1460, 22)
Me.StatusStrip_Main.TabIndex = 3
Me.StatusStrip_Main.Text = "StatusStrip1"
'
'tssStatus
'
Me.tssStatus.Name = "tssStatus"
Me.tssStatus.Size = New System.Drawing.Size(121, 17)
Me.tssStatus.Text = "ToolStripStatusLabel1"
'
'tssRecord
'
Me.tssRecord.Name = "tssRecord"
Me.tssRecord.Size = New System.Drawing.Size(121, 17)
Me.tssRecord.Text = "ToolStripStatusLabel1"
'
'XtraTabControl1
'
Me.XtraTabControl1.Appearance.BackColor = System.Drawing.SystemColors.ControlDark
Me.XtraTabControl1.Appearance.Options.UseBackColor = True
Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage3
Me.XtraTabControl1.Size = New System.Drawing.Size(1050, 313)
Me.XtraTabControl1.TabIndex = 0
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage2})
'
'XtraTabPage3
'
Me.XtraTabPage3.Appearance.PageClient.BackColor = System.Drawing.SystemColors.Control
Me.XtraTabPage3.Appearance.PageClient.Options.UseBackColor = True
Me.XtraTabPage3.Controls.Add(Me.GridControl1)
Me.XtraTabPage3.Name = "XtraTabPage3"
Me.XtraTabPage3.Size = New System.Drawing.Size(1048, 288)
Me.XtraTabPage3.Text = "XtraTabPage3"
'
'GridControl1
'
Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControl1.Location = New System.Drawing.Point(0, 0)
Me.GridControl1.MainView = Me.TileView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(1048, 288)
Me.GridControl1.TabIndex = 0
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1})
'
'TileView1
'
Me.TileView1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.HotFlat
Me.TileView1.FocusBorderColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
Me.TileView1.GridControl = Me.GridControl1
Me.TileView1.Name = "TileView1"
Me.TileView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.TileView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.TileView1.OptionsFind.AlwaysVisible = True
Me.TileView1.OptionsTiles.ItemSize = New System.Drawing.Size(372, 180)
Me.TileView1.OptionsTiles.RowCount = 2
Me.TileView1.OptionsTiles.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollButtons
'
'XtraTabPage2
'
Me.XtraTabPage2.Controls.Add(Me.GridControl2)
Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(1044, 292)
Me.XtraTabPage2.Text = "XtraTabPage2"
'
'GridControl2
'
Me.GridControl2.DataSource = Me.VWTEMPQUICKVIEWBindingSource
Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControl2.Location = New System.Drawing.Point(0, 0)
Me.GridControl2.MainView = Me.TileView2
Me.GridControl2.Name = "GridControl2"
Me.GridControl2.Size = New System.Drawing.Size(1044, 292)
Me.GridControl2.TabIndex = 0
Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView2})
'
'VWTEMPQUICKVIEWBindingSource
'
Me.VWTEMPQUICKVIEWBindingSource.DataMember = "VWTEMPQUICKVIEW"
Me.VWTEMPQUICKVIEWBindingSource.DataSource = Me.DD_ECMAdmin
'
'DD_ECMAdmin
'
Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'TileView2
'
Me.TileView2.AppearanceItem.Normal.Font = New System.Drawing.Font("Segoe UI Semibold", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TileView2.AppearanceItem.Normal.Options.UseFont = True
Me.TileView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.TileViewColumn4, Me.colAktenzeichen, Me.TileViewColumn5, Me.colTagderEintragungimRegister, Me.colAktenzustand})
Me.TileView2.ColumnSet.GroupColumn = Me.colAktenzustand
Me.TileView2.GridControl = Me.GridControl2
Me.TileView2.Name = "TileView2"
Me.TileView2.OptionsFind.AlwaysVisible = True
Me.TileView2.OptionsLayout.Columns.AddNewColumns = False
Me.TileView2.OptionsTiles.ItemSize = New System.Drawing.Size(280, 160)
Me.TileView2.OptionsTiles.RowCount = 2
Me.TileView2.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colAktenzustand, DevExpress.Data.ColumnSortOrder.Ascending)})
TileViewItemElement4.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
TileViewItemElement4.Appearance.Normal.ForeColor = System.Drawing.Color.DodgerBlue
TileViewItemElement4.Appearance.Normal.Options.UseFont = True
TileViewItemElement4.Appearance.Normal.Options.UseForeColor = True
TileViewItemElement4.Column = Me.colAktenzeichen
TileViewItemElement4.Text = "colAktenzeichen"
TileViewItemElement4.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
TileViewItemElement4.TextLocation = New System.Drawing.Point(120, 0)
TileViewItemElement5.Column = Me.TileViewColumn5
TileViewItemElement5.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
TileViewItemElement5.ImageBorder = DevExpress.XtraEditors.TileItemElementImageBorderMode.None
TileViewItemElement5.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileViewItemElement5.Text = "TileViewColumn5"
TileViewItemElement6.Column = Me.colTagderEintragungimRegister
TileViewItemElement6.Text = "colTagderEintragungimRegister"
TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
TileViewItemElement6.TextLocation = New System.Drawing.Point(120, 20)
TileViewItemElement7.Column = Me.colAktenzustand
TileViewItemElement7.Text = "colAktenzustand"
Me.TileView2.TileTemplate.Add(TileViewItemElement4)
Me.TileView2.TileTemplate.Add(TileViewItemElement5)
Me.TileView2.TileTemplate.Add(TileViewItemElement6)
Me.TileView2.TileTemplate.Add(TileViewItemElement7)
Me.TileView2.ViewCaption = "dfsdfsdf"
'
'TileViewColumn4
'
Me.TileViewColumn4.FieldName = "Record-ID"
Me.TileViewColumn4.Name = "TileViewColumn4"
Me.TileViewColumn4.Visible = True
Me.TileViewColumn4.VisibleIndex = 0
'
'SplitContainer_Main
'
Me.SplitContainer_Main.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer_Main.Horizontal = False
Me.SplitContainer_Main.Location = New System.Drawing.Point(0, 40)
Me.SplitContainer_Main.Name = "SplitContainer_Main"
Me.SplitContainer_Main.Panel1.Controls.Add(Me.SplitContainer_Top)
Me.SplitContainer_Main.Panel1.Text = "Panel1"
Me.SplitContainer_Main.Panel2.Controls.Add(Me.SplitContainer_Bottom)
Me.SplitContainer_Main.Panel2.Text = "Panel2"
Me.SplitContainer_Main.Size = New System.Drawing.Size(1460, 597)
Me.SplitContainer_Main.SplitterPosition = 272
Me.SplitContainer_Main.TabIndex = 4
Me.SplitContainer_Main.Text = "SplitContainerControl1"
'
'SplitContainer_Top
'
Me.SplitContainer_Top.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer_Top.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer_Top.Name = "SplitContainer_Top"
Me.SplitContainer_Top.Panel1.Controls.Add(Me.TreeViewLevelSelect)
Me.SplitContainer_Top.Panel1.Text = "Panel1"
Me.SplitContainer_Top.Panel2.Controls.Add(Me.GridControlSelection)
Me.SplitContainer_Top.Panel2.Text = "Panel2"
Me.SplitContainer_Top.Size = New System.Drawing.Size(1460, 272)
Me.SplitContainer_Top.SplitterPosition = 298
Me.SplitContainer_Top.TabIndex = 0
Me.SplitContainer_Top.Text = "SplitContainerControl1"
'
'SplitContainer_Bottom
'
Me.SplitContainer_Bottom.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainer_Bottom.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer_Bottom.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer_Bottom.Name = "SplitContainer_Bottom"
Me.SplitContainer_Bottom.Panel1.Controls.Add(Me.XtraTabControl1)
Me.SplitContainer_Bottom.Panel1.Text = "Panel1"
Me.SplitContainer_Bottom.Panel2.Text = "Panel2"
Me.SplitContainer_Bottom.Size = New System.Drawing.Size(1460, 313)
Me.SplitContainer_Bottom.SplitterPosition = 1050
Me.SplitContainer_Bottom.TabIndex = 0
Me.SplitContainer_Bottom.Text = "SplitContainerControl1"
'
'VWTEMPQUICKVIEWTableAdapter
'
Me.VWTEMPQUICKVIEWTableAdapter.ClearBeforeFill = True
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.Connection = Nothing
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'frmConstructor_Main
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1460, 659)
Me.Controls.Add(Me.SplitContainer_Main)
Me.Controls.Add(Me.StatusStrip_Main)
Me.Controls.Add(Me.navPane)
Me.Name = "frmConstructor_Main"
Me.Text = "XtraForm2"
CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenu_GridControlSelection.ResumeLayout(False)
CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutViewCard1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip_Main.ResumeLayout(False)
Me.StatusStrip_Main.PerformLayout()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False)
Me.XtraTabPage3.ResumeLayout(False)
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPage2.ResumeLayout(False)
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWTEMPQUICKVIEWBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TileView2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainer_Main, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer_Main.ResumeLayout(False)
CType(Me.SplitContainer_Top, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer_Top.ResumeLayout(False)
CType(Me.SplitContainer_Bottom, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer_Bottom.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents navPane As DevExpress.XtraBars.Navigation.TileNavPane
Friend WithEvents btn_home As DevExpress.XtraBars.Navigation.NavButton
Friend WithEvents btn_Refresh As DevExpress.XtraBars.Navigation.NavButton
Friend WithEvents TreeViewLevelSelect As System.Windows.Forms.TreeView
Friend WithEvents GridControlSelection As DevExpress.XtraGrid.GridControl
Friend WithEvents grvwGrid As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents BindingSource_Entity As System.Windows.Forms.BindingSource
Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip
Friend WithEvents tssStatus As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents tssRecord As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ContextMenu_GridControlSelection As System.Windows.Forms.ContextMenuStrip
Friend WithEvents FunktionenDatagridToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents AlleFilterEntfernenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ExportNachExcelToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents AnsichtUmschaltenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents AnsichtZurücksetzenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents SplitContainer_Main As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents SplitContainer_Top As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents SplitContainer_Bottom As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents grvwCarousel As DevExpress.XtraGrid.Views.Layout.LayoutView
Friend WithEvents LayoutViewCard1 As DevExpress.XtraGrid.Views.Layout.LayoutViewCard
Friend WithEvents grvwTiles As DevExpress.XtraGrid.Views.Tile.TileView
Friend WithEvents TileViewColumn1 As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents TileViewColumn2 As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents TileViewColumn3 As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents TileView1 As DevExpress.XtraGrid.Views.Tile.TileView
Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl
Friend WithEvents TileView2 As DevExpress.XtraGrid.Views.Tile.TileView
Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin
Friend WithEvents VWTEMPQUICKVIEWBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents VWTEMPQUICKVIEWTableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.VWTEMPQUICKVIEWTableAdapter
Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager
Friend WithEvents TileViewColumn4 As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents colAktenzeichen As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents TileViewColumn5 As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents colTagderEintragungimRegister As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents colAktenzustand As DevExpress.XtraGrid.Columns.TileViewColumn
Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage
End Class

169
app/DD-Record-Organiser/XtraForm2.resx
View File

@ -1,169 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ContextMenu_GridControlSelection.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>321, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btn_home.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEhvbWU7HnRkOAAAAWlJREFUWEfF
lNFOxDAMBO/D+m1IfHmIT5mTvWzS9DiVhxG1O/WuQOLRWvtX7PJOynAch6MJ+d1XsPjWkjPL4OTOrECE
s4vn/M2SnFkGJ3dyOEE5XN+dkjPL4OSOBrhw2CqRM8vg5E4+vAqH0xI5swxO7lwJh2WJnFkGJw9m4d8D
925aImeWwcmdVTjOpRI5swxGnoYPP97zf2C7RM4sQxb6z51wdqcl9D6UASE+6LhDLhy2fxM5swxDeCcc
tkrkzDIMwX24Ew5bfw7QAu6DK+GwLEFecFbgnXCYliAvWBX4SzjYEuQFswKfCIdfJcgLXIFPhkMpQV6g
BZ7h49kdeoKjOBeS88oIXg+KHsioC84FdcEuA3cE1AXngrpgl4E7AuqCc0FdsMvAHQF1wbmgLthl4I6A
uuBcUBfsMnBHQF1wLqgLdhm4I6AuOBfUBbsM3BFQF5wL6oJdBu4IqAvOBXXBLu/ELu+jPX4ATMNRVtCQ
oP8AAAAASUVORK5CYII=
</value>
</data>
<data name="btn_Refresh.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAndEVYdFRpdGxlAFJlZnJlc2g7UmVwZWF0O0JhcnM7
UmliYm9uO1JlbG9hZM1N9ukAAAGxSURBVFhHxZYxTsNAEEVzACSuk8LcJCegJE1ocg5OQZUCbkLHEaiQ
6Mx/1tqaGY9jC5tN8STv+P/5jnez3l3btjclLdYkLdYkLdZkVGia5hp7cRKv4kN8F7imxj00mbcj5o0K
mUk8iBfxJdoZ0KDFk/U62zwXDonhUfALs7Br4MFre52FYpY/wLP4EVnAEvDSYwgHm+fCoYiBp8/C38WT
YK7vC1xT417U0+NiazbPhYMEwPzF1/4pjuIuenq4VzRorddhPa4BSAAsImui4SFqI9L0HIrH9hiwHtcA
JOB1xtV+jLoM6SxvwvYYsB7XACTgv2wNzOvka7dI1zMsuAzrcQ3Wouaz4WA9rsFa1Hw2HKzHNbgFabEm
bpC9rgS3l6/FDZKwCHPsPGtxgxAW6cLBeqaQjl0xbs2nqHODILawqXThYD1TSMeWbHuwue2jzg2CwdJt
xWLRAxRt3IrZ3kdaNwiGCA3/+jHiw9YdUKLHDYwB+IRu9TkeDiY2D9ygGKBfcFseSBY/wLDaC1seyVwe
uIEEMbxns0OpzYNRITMZmOv/PZbXJi3WJC3WJC3Wo939Ao+TPgKX3Mi+AAAAAElFTkSuQmCC
</value>
</data>
<metadata name="BindingSource_Entity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="StatusStrip_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>178, 17</value>
</metadata>
<metadata name="VWTEMPQUICKVIEWBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>700, 17</value>
</metadata>
<metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>565, 17</value>
</metadata>
<metadata name="VWTEMPQUICKVIEWTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>945, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1184, 17</value>
</metadata>
</root>

1088
app/DD-Record-Organiser/XtraForm2.vb
View File

File diff suppressed because it is too large Load Diff

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

File diff suppressed because it is too large Load Diff

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

File diff suppressed because it is too large Load Diff

2598
app/DD-Record-Organiser/frmForm_Constructor.vb
View File

File diff suppressed because it is too large Load Diff

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

File diff suppressed because it is too large Load Diff

234
app/DD-Record-Organiser/frmForm_Constructor_Main.resx
View File

@ -1,234 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>477, 15</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEhvbWU7HnRkOAAAAWlJREFUWEfF
lNFOxDAMBO/D+m1IfHmIT5mTvWzS9DiVhxG1O/WuQOLRWvtX7PJOynAch6MJ+d1XsPjWkjPL4OTOrECE
s4vn/M2SnFkGJ3dyOEE5XN+dkjPL4OSOBrhw2CqRM8vg5E4+vAqH0xI5swxO7lwJh2WJnFkGJw9m4d8D
925aImeWwcmdVTjOpRI5swxGnoYPP97zf2C7RM4sQxb6z51wdqcl9D6UASE+6LhDLhy2fxM5swxDeCcc
tkrkzDIMwX24Ew5bfw7QAu6DK+GwLEFecFbgnXCYliAvWBX4SzjYEuQFswKfCIdfJcgLXIFPhkMpQV6g
BZ7h49kdeoKjOBeS88oIXg+KHsioC84FdcEuA3cE1AXngrpgl4E7AuqCc0FdsMvAHQF1wbmgLthl4I6A
uuBcUBfsMnBHQF1wLqgLdhm4I6AuOBfUBbsM3BFQF5wL6oJdBu4IqAvOBXXBLu/ELu+jPX4ATMNRVtCQ
oP8AAAAASUVORK5CYII=
</value>
</data>
<data name="NavButtonRefresh.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAndEVYdFRpdGxlAFJlZnJlc2g7UmVwZWF0O0JhcnM7
UmliYm9uO1JlbG9hZM1N9ukAAAGxSURBVFhHxZYxTsNAEEVzACSuk8LcJCegJE1ocg5OQZUCbkLHEaiQ
6Mx/1tqaGY9jC5tN8STv+P/5jnez3l3btjclLdYkLdYkLdZkVGia5hp7cRKv4kN8F7imxj00mbcj5o0K
mUk8iBfxJdoZ0KDFk/U62zwXDonhUfALs7Br4MFre52FYpY/wLP4EVnAEvDSYwgHm+fCoYiBp8/C38WT
YK7vC1xT417U0+NiazbPhYMEwPzF1/4pjuIuenq4VzRorddhPa4BSAAsImui4SFqI9L0HIrH9hiwHtcA
JOB1xtV+jLoM6SxvwvYYsB7XACTgv2wNzOvka7dI1zMsuAzrcQ3Wouaz4WA9rsFa1Hw2HKzHNbgFabEm
bpC9rgS3l6/FDZKwCHPsPGtxgxAW6cLBeqaQjl0xbs2nqHODILawqXThYD1TSMeWbHuwue2jzg2CwdJt
xWLRAxRt3IrZ3kdaNwiGCA3/+jHiw9YdUKLHDYwB+IRu9TkeDiY2D9ygGKBfcFseSBY/wLDaC1seyVwe
uIEEMbxns0OpzYNRITMZmOv/PZbXJi3WJC3WJC3Wo939Ao+TPgKX3Mi+AAAAAElFTkSuQmCC
</value>
</data>
<metadata name="StatusStrip_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="CMSEntity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 93</value>
</metadata>
<data name="AxObjectListControl.OcxState" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB
AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAjm0AAKodAAAAAAAACw==
</value>
</data>
<metadata name="ToolStripDokumente.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1157, 15</value>
</metadata>
<data name="ToolStripDropDownButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGcSURBVDhPrZI/SEJRFMZvFNTSIo2Bk0OtLdlYEeEgEQUR
BNHSEEmQS4iVIFgkDtWQIDTU0FJEkGDYHwr7M2SUQyDUFC0NFUEUpF/33PPe9QqSSx98vHvevd/vnXt4
4t+V6BewbdZRD9d/ig5io0Gb6lyohuutxuoQBdhtYRsg2wSYdrOtCMtuswxg2gK8r9Uj5atTaw1RodMh
4GRAB57jTg2kr5IzwSYNItPVFEQBLseBXAQ49ABJtwqmRwQewwJfUYGzMYbs+8shJUBMoLDdyp1IyKq3
9OVAp8DeqEC8S2BCBqjDz4QMtxlzIEh2Sm7ehhQkKmtrS4kgJoCcDdSWz0F18pQEbgLIRFzqsNq0RBAT
QNZXOJ+UG+leKBFEziSfaFcB0/llZ2XA64LAz5JA8cDLA5WDxP2K7CbINfm4TzvWIQc6bHRIkI8ZgQcf
D+56vpkB1A0978LsCwa9rbtK97dFEArTmp6FTReKO20oprrxPcdDpvpl0YG8v8LfaIoAkP8AXetq1oFY
DwcIdDRYJUwiAB0yTe/NNUuIXy/etxLLTTpKAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="ToolStripEdit.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>773, 15</value>
</metadata>
<metadata name="BindingSource_Entity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>162, 11</value>
</metadata>
<metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>342, 15</value>
</metadata>
<metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>626, 15</value>
</metadata>
<assembly alias="DevExpress.Utils.v15.1" name="DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.1" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4xLCBWZXJzaW9uPTE1LjEu
Ny4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE
ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
</value>
</data>
<metadata name="ttToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>894, 15</value>
</metadata>
<metadata name="ContextMenuDetails.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>995, 15</value>
</metadata>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1322, 15</value>
</metadata>
<metadata name="VWPMO_WF_USER_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 54</value>
</metadata>
<metadata name="VWPMO_WF_USER_ACTIVETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>295, 54</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>567, 54</value>
</metadata>
<metadata name="TBPMO_FILES_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1460, 54</value>
</metadata>
<metadata name="VWPMO_WF_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>740, 54</value>
</metadata>
<metadata name="VWPMO_WF_ACTIVETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>984, 54</value>
</metadata>
<metadata name="TBPMO_FILES_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1222, 54</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>164</value>
</metadata>
</root>

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

File diff suppressed because it is too large Load Diff

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

@ -213,7 +213,7 @@ Partial Class frmForm_Constructor_Main_2
Me.GridControlMain.Location = New System.Drawing.Point(0, 0)
Me.GridControlMain.MainView = Me.grvwTiles
Me.GridControlMain.Name = "GridControlMain"
Me.GridControlMain.Size = New System.Drawing.Size(795, 270)
Me.GridControlMain.Size = New System.Drawing.Size(788, 270)
Me.GridControlMain.TabIndex = 0
Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwCarousel, Me.grvwTiles, Me.grvwGrid})
'
@ -468,7 +468,7 @@ Partial Class frmForm_Constructor_Main_2
Me.SplitContainerBottom.Panel1.Text = "Panel1"
Me.SplitContainerBottom.Panel2.Controls.Add(Me.Panel2)
Me.SplitContainerBottom.Panel2.Text = "Panel2"
Me.SplitContainerBottom.Size = New System.Drawing.Size(1083, 372)
Me.SplitContainerBottom.Size = New System.Drawing.Size(1083, 365)
Me.SplitContainerBottom.SplitterPosition = 576
Me.SplitContainerBottom.TabIndex = 0
Me.SplitContainerBottom.Text = "SplitContainerControl1"
@ -484,7 +484,7 @@ Partial Class frmForm_Constructor_Main_2
Me.TCDetails.Location = New System.Drawing.Point(0, 25)
Me.TCDetails.Name = "TCDetails"
Me.TCDetails.SelectedTabPage = Me.TabDetails
Me.TCDetails.Size = New System.Drawing.Size(1078, 347)
Me.TCDetails.Size = New System.Drawing.Size(1071, 340)
Me.TCDetails.TabIndex = 1
Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp, Me.TabPos})
'
@ -493,7 +493,7 @@ Partial Class frmForm_Constructor_Main_2
Me.TabDetails.Controls.Add(Me.pnlDetails)
Me.TabDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD
Me.TabDetails.Name = "TabDetails"
Me.TabDetails.Size = New System.Drawing.Size(1072, 316)
Me.TabDetails.Size = New System.Drawing.Size(1069, 312)
Me.TabDetails.Text = "Detailansicht"
'
'pnlDetails
@ -502,7 +502,7 @@ Partial Class frmForm_Constructor_Main_2
Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlDetails.Location = New System.Drawing.Point(0, 0)
Me.pnlDetails.Name = "pnlDetails"
Me.pnlDetails.Size = New System.Drawing.Size(1072, 316)
Me.pnlDetails.Size = New System.Drawing.Size(1069, 312)
Me.pnlDetails.TabIndex = 0
'
'TabWindream
@ -511,7 +511,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(1072, 316)
Me.TabWindream.Size = New System.Drawing.Size(1069, 312)
Me.TabWindream.Text = "windream-Dateien"
'
'AxObjectListControl
@ -522,7 +522,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(1072, 291)
Me.AxObjectListControl.Size = New System.Drawing.Size(1069, 287)
Me.AxObjectListControl.TabIndex = 6
Me.AxObjectListControl.TabStop = False
'
@ -532,7 +532,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(1072, 25)
Me.ToolStripDokumente.Size = New System.Drawing.Size(1069, 25)
Me.ToolStripDokumente.TabIndex = 2
Me.ToolStripDokumente.Text = "ToolStrip2"
'
@ -566,7 +566,7 @@ Partial Class frmForm_Constructor_Main_2
Me.TabFollowUp.Controls.Add(Me.Label5)
Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
Me.TabFollowUp.Name = "TabFollowUp"
Me.TabFollowUp.Size = New System.Drawing.Size(1072, 316)
Me.TabFollowUp.Size = New System.Drawing.Size(1069, 312)
Me.TabFollowUp.Text = "Wiedervorlage"
'
'ListViewFollowUps
@ -745,7 +745,7 @@ Partial Class frmForm_Constructor_Main_2
Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"), System.Drawing.Image)
Me.TabPos.Name = "TabPos"
Me.TabPos.PageVisible = False
Me.TabPos.Size = New System.Drawing.Size(1072, 316)
Me.TabPos.Size = New System.Drawing.Size(1069, 312)
Me.TabPos.Text = "Positionen"
'
'Panel1
@ -754,7 +754,7 @@ Partial Class frmForm_Constructor_Main_2
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 25)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1072, 291)
Me.Panel1.Size = New System.Drawing.Size(1069, 287)
Me.Panel1.TabIndex = 2
'
'GridControlPos
@ -763,7 +763,7 @@ Partial Class frmForm_Constructor_Main_2
Me.GridControlPos.Location = New System.Drawing.Point(0, 0)
Me.GridControlPos.MainView = Me.grvwGridPos
Me.GridControlPos.Name = "GridControlPos"
Me.GridControlPos.Size = New System.Drawing.Size(1072, 291)
Me.GridControlPos.Size = New System.Drawing.Size(1069, 287)
Me.GridControlPos.TabIndex = 0
Me.GridControlPos.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGridPos})
'
@ -790,7 +790,7 @@ Partial Class frmForm_Constructor_Main_2
Me.BindingNavigatorPOS.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
Me.BindingNavigatorPOS.Name = "BindingNavigatorPOS"
Me.BindingNavigatorPOS.PositionItem = Me.BindingNavigatorPositionItem
Me.BindingNavigatorPOS.Size = New System.Drawing.Size(1072, 25)
Me.BindingNavigatorPOS.Size = New System.Drawing.Size(1069, 25)
Me.BindingNavigatorPOS.TabIndex = 1
Me.BindingNavigatorPOS.Text = "BindingNavigator1"
'
@ -885,7 +885,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.Location = New System.Drawing.Point(0, 0)
Me.ToolStripEdit.Name = "ToolStripEdit"
Me.ToolStripEdit.Size = New System.Drawing.Size(1078, 25)
Me.ToolStripEdit.Size = New System.Drawing.Size(1071, 25)
Me.ToolStripEdit.TabIndex = 0
Me.ToolStripEdit.Text = "ToolStrip1"
'

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

@ -85,6 +85,14 @@ Public Class frmForm_Constructor_Main_2
Private FOLL_UP_DONE_CTRL_ID As Integer
Private FOLL_UP_ID As Integer
Private LOAD_DIRECT As Boolean = False
Private IS_SINGLE_RECORD As Boolean = False
Private RECORD_ID As Integer
Private PARENT_ID As Integer
Private FORMVIEW_ID As Integer
Public Enum EditState
@ -604,7 +612,7 @@ Public Class frmForm_Constructor_Main_2
If Grid_RecordID = 0 Then
Console.WriteLine("Grid_RecordID = 0")
Else
If Grid_RecordID = CURRENT_RECORD_ID And ENTITY_RECORD_COUNT > 1 Then
If Grid_RecordID = RECORD_ID And ENTITY_RECORD_COUNT > 1 Then
Exit Sub
End If
If LogErrorsOnly = False Then ClassLogger.Add(">> RowHandler: RID: " & Grid_RecordID.ToString & " - " & Now, False)
@ -651,7 +659,7 @@ Public Class frmForm_Constructor_Main_2
Load_POSGrid_Layout()
End If
If CURRENT_RECORD_ID > 0 Then
If RECORD_ID > 0 Then
tsButtonEditMode.Enabled = True
Get_RecordCounts_Nodes()
End If
@ -769,7 +777,7 @@ Public Class frmForm_Constructor_Main_2
Next
TreeViewMain.ExpandAll()
TreeViewMain.Nodes(0).EnsureVisible()
@ -1004,6 +1012,7 @@ Public Class frmForm_Constructor_Main_2
If TCDetails.SelectedTabPage.Text.StartsWith("Pos") = False Then
Lock_RecordControls(False)
tsButtonShowWorkflowTasks.Enabled = True
CURRENT_PARENT_ID = PARENT_ID
ClassControlValues.LoadDefaultValues(CURRENT_FORM_ID, SELECTED_RECORD_ID, pnlDetails.Controls)
' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
tsButtonSave.Enabled = True
@ -1040,14 +1049,19 @@ Public Class frmForm_Constructor_Main_2
Update_Status_Label(True, ResultMessage, EDIT_STATE)
If EDIT_STATE = EditState.Update Then
recid = CURRENT_RECORD_ID
recid = RECORD_ID
Else
recid = NEW_RECORD_ID
End If
SELECTED_RECORD_ID = recid
CURRENT_RECORD_ID = recid
RECORD_ID = recid
CURRENT_RECORD_ID = RECORD_ID
If RECORD_ID = 0 Then
MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation)
Me.Cursor = Cursors.Default
Exit Sub
End If
If EDIT_STATE = EditState.Insert Then
Select Case ACT_EBENE
Case 1
@ -1066,7 +1080,7 @@ Public Class frmForm_Constructor_Main_2
Next
If EBENE1_RECID = 0 Then
'Bis jetzt konnte noch keine Parent-ID angelegt werden!
MsgBox("Achtung es wurde noch keine Parent-Verknüpfung angelegt!", MsgBoxStyle.Exclamation)
MsgBox("Achtung: Es wurde noch keine Parent-Verknüpfung angelegt!", MsgBoxStyle.Exclamation)
'Show_Verknuepfungen()
End If
End Select
@ -1116,10 +1130,10 @@ Public Class frmForm_Constructor_Main_2
Else
'Die Daten neu laden
Load_Entity_Data_Only()
'Get_Grid_Row_Handle(CURRENT_RECORD_ID)
LocateRecordById(CURRENT_RECORD_ID)
'Get_Grid_Row_Handle(RECORD_ID)
LocateRecordById(RECORD_ID)
'Die Daten auf dem Panel laden
'ClassControlValues.LoadControlValues(CURRENT_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
'ClassControlValues.LoadControlValues(RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False
End If
@ -1179,7 +1193,7 @@ Public Class frmForm_Constructor_Main_2
Me.tsButtonEditMode.Text = "Bearbeiten beenden"
' Abhängige Listen laden
ClassControlValues.LoadControlValuesListWithPlaceholders(CURRENT_FORM_ID, SELECTED_RECORD_ID, CURRENT_PARENTID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValuesListWithPlaceholders(CURRENT_FORM_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls)
RECORD_ENABLED = True
pnlDetails.Focus()
@ -1199,7 +1213,7 @@ Public Class frmForm_Constructor_Main_2
'Funktion nur zum load der Inhalte
If RECORD_ENABLED = True Then
ClassControlValues.UnloadControlValuesList(SELECTED_RECORD_ID, CURRENT_RECORD_ID, CtrlBuilder.AllControls)
ClassControlValues.UnloadControlValuesList(SELECTED_RECORD_ID, RECORD_ID, CtrlBuilder.AllControls)
End If
End Sub
@ -1210,7 +1224,7 @@ Public Class frmForm_Constructor_Main_2
Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Try
Dim ctrl As Control = sender
ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, CURRENT_FORM_ID, CURRENT_RECORD_ID, pnlDetails.Controls)
ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, CURRENT_FORM_ID, RECORD_ID, pnlDetails.Controls)
Catch ex As Exception
MsgBox("Error in OpenEditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@ -1241,7 +1255,7 @@ Public Class frmForm_Constructor_Main_2
Try
Me.Cursor = Cursors.WaitCursor
RECORD_CHANGED = False
CURRENT_RECORD_ID = 0
RECORD_ID = 0
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
'VerknüpfungenToolStripMenuItem.Enabled = False
CURRENT_FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID)
@ -1297,7 +1311,7 @@ Public Class frmForm_Constructor_Main_2
EBENE3_RECID = 0
PARENT_RECORDID = 0
CURRENT_PARENTID = 0
PARENT_ID = 0
EBENE1_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE1_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 1 in TreeView selektiert", False)
@ -1327,9 +1341,9 @@ Public Class frmForm_Constructor_Main_2
'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken
If EBENE1_RECID > 0 Then
PARENT_RECORDID = EBENE1_RECID
CURRENT_PARENTID = EBENE1_RECID
PARENT_ID = EBENE1_RECID
If GRID_TYPE = GridType.Grid Then
CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & CURRENT_FORM_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & 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 = " & PARENT_ID
Else
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
@ -1349,7 +1363,7 @@ Public Class frmForm_Constructor_Main_2
'Select Case CURRENT_FORM_TYPE
' Case 5
' If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID) = True Then
' EBENE2_RECID = CURRENT_RECORD_ID
' EBENE2_RECID = RECORD_ID
' End If
'End Select
@ -1368,10 +1382,10 @@ Public Class frmForm_Constructor_Main_2
If EBENE2_RECID > 0 Then
'Parent-ID setzen
PARENT_RECORDID = EBENE2_RECID
CURRENT_PARENTID = EBENE2_RECID
PARENT_ID = EBENE2_RECID
Try
If GRID_TYPE = GridType.Grid Then
CURRENT_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & CURRENT_FORM_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & 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 = " & PARENT_ID
Else
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
@ -1393,7 +1407,7 @@ Public Class frmForm_Constructor_Main_2
'Select Case CURRENT_FORM_TYPE
' Case 5
' If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID) = True Then
' EBENE3_RECID = CURRENT_RECORD_ID
' EBENE3_RECID = RECORD_ID
' End If
'End Select
EBENE3_GRID_RESULT = Nothing
@ -1401,7 +1415,7 @@ Public Class frmForm_Constructor_Main_2
CURRENT_ENTITYSTRING = ACT_EBENE_STRING
CURRENT_PARENTID = PARENT_RECORDID
PARENT_ID = PARENT_RECORDID
act_FormViewID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & CURRENT_FORM_ID)
If EDIT_STATE = EditState.None Then
@ -1410,9 +1424,6 @@ Public Class frmForm_Constructor_Main_2
tsButtonAdd.Enabled = True
'set_pnlsize()
End If
CURRENT_FORMVIEW_ID = act_FormViewID
'Überprüfen ob windream Dos angezeigt werden sollen?
Check_windream_Show(act_FormViewID)
@ -1430,7 +1441,7 @@ Public Class frmForm_Constructor_Main_2
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
If IS_SINGLE_RECORD Then
Show_Selected_Record_Data(CURRENT_RECORD_ID, True)
Show_Selected_Record_Data(RECORD_ID, True)
Else
Refresh_Navpane()
Update_Record_Label(SELECTED_RECORD_ID)
@ -1485,7 +1496,7 @@ Public Class frmForm_Constructor_Main_2
' sql1.Replace("T.*", "TOP 1 [Record-ID]")
' Dim id = ClassDatabase.Execute_Scalar(sql1, True)
' If Not id Is Nothing Then
' If LogErrorsOnly = False Then ClassLogger.Add(">> Load Record directly - RecordID: " & CURRENT_RECORD_ID, False)
' If LogErrorsOnly = False Then ClassLogger.Add(">> Load Record directly - RecordID: " & RECORD_ID, False)
' Load_Record_Data()
' End If
'End If
@ -1511,7 +1522,7 @@ Public Class frmForm_Constructor_Main_2
'Dim firstRow As System.Data.DataRowView = GridControlMain.MainView.GetRow(0)
'If Not IsNothing(firstRow) Then
' Dim firstRecordId As Integer = firstRow.Row.Item("Record-ID")
' ClassControlValues.LoadControlValuesList(firstRecordId, CURRENT_PARENTID, CURRENT_FORM_ID, CtrlBuilder.MasterPanel.Controls)
' ClassControlValues.LoadControlValuesList(firstRecordId, PARENT_ID, CURRENT_FORM_ID, CtrlBuilder.MasterPanel.Controls)
'End If
' Hinfällig, da hier die Record-ID nicht gebraucht wird
ClassControlValues.LoadControlValuesList(CURRENT_FORM_ID, CtrlBuilder.MasterPanel.Controls)
@ -1525,10 +1536,10 @@ Public Class frmForm_Constructor_Main_2
Catch ex As Exception
MsgBox("Error in Load_Entity_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
Finally
Me.Cursor = Cursors.Default
ENTITY_LOADED = True
End Try
Me.Cursor = Cursors.Default
End Sub
Sub Load_Record_Direct()
@ -1539,12 +1550,12 @@ Public Class frmForm_Constructor_Main_2
Select Case ACT_EBENE
Case 1
PARENT_RECORDID = Grid_RecordID
CURRENT_PARENTID = PARENT_RECORDID
PARENT_ID = PARENT_RECORDID
SELECTED_RECORD_ID = Grid_RecordID
CURRENT_RECORD_ID = Grid_RecordID
RECORD_ID = Grid_RecordID
'Daten zu Record in jedem Fall laden
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_PARENTID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_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)
@ -1775,9 +1786,9 @@ Public Class frmForm_Constructor_Main_2
GRP_SINGLE_REC = ClassControlCommandsUI.GetLastRecord
If Not IsNothing(GRP_SINGLE_REC) Then
'Die neue Record-ID setzen
CURRENT_RECORD_ID = GRP_SINGLE_REC
SELECTED_RECORD_ID = CURRENT_RECORD_ID
If ClassControlCommandsUI.ConnectRecord(PARENT_RECORD_ID, CURRENT_RECORD_ID, "PARENT_LINK (Group/Single-Record) for Entity " & CURRENT_FORM_ID.ToString) = False Then
RECORD_ID = GRP_SINGLE_REC
SELECTED_RECORD_ID = RECORD_ID
If ClassControlCommandsUI.ConnectRecord(PARENT_RECORD_ID, RECORD_ID, "PARENT_LINK (Group/Single-Record) for Entity " & CURRENT_FORM_ID.ToString) = False Then
MsgBox("Unexpected Error in Connecting Record. Check log", MsgBoxStyle.Critical)
Return False
End If
@ -1789,8 +1800,8 @@ Public Class frmForm_Constructor_Main_2
End If
Else
Try
CURRENT_RECORD_ID = CInt(GRP_SINGLE_REC)
SELECTED_RECORD_ID = CURRENT_RECORD_ID
RECORD_ID = CInt(GRP_SINGLE_REC)
SELECTED_RECORD_ID = RECORD_ID
Catch ex As Exception
MsgBox("Error while getting CURRENT_RECORDID FOR PARENT_ID: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
@ -1799,11 +1810,11 @@ Public Class frmForm_Constructor_Main_2
Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gesetzt werden ####
Case 1
EBENE1_RECID = CURRENT_RECORD_ID
EBENE1_RECID = RECORD_ID
Case 2
EBENE2_RECID = CURRENT_RECORD_ID
EBENE2_RECID = RECORD_ID
Case 3
EBENE3_RECID = CURRENT_RECORD_ID
EBENE3_RECID = RECORD_ID
End Select
Return True
End Function
@ -1989,34 +2000,34 @@ Public Class frmForm_Constructor_Main_2
EBENE2_RECID = PARENT_RECORD1
PARENT_RECORDID = PARENT_RECORD1
CURRENT_PARENTID = PARENT_RECORD1
PARENT_ID = PARENT_RECORD1
End If
Case 2
linkedRecord = linkedRecord(RECORD_ID, CURRENT_FORM_ID)
If linkedRecord > 0 Then
EBENE1_RECID = RECORD_ID
PARENT_RECORDID = RECORD_ID
CURRENT_PARENTID = RECORD_ID
PARENT_ID = RECORD_ID
End If
Case 1
PARENT_RECORDID = RECORD_ID
EBENE1_RECID = PARENT_RECORDID
CURRENT_PARENTID = PARENT_RECORDID
PARENT_ID = PARENT_RECORDID
End Select
CURRENT_RECORD_ID = CInt(linkedRecord)
SELECTED_RECORD_ID = CURRENT_RECORD_ID
RECORD_ID = CInt(linkedRecord)
SELECTED_RECORD_ID = RECORD_ID
'#### Den Group or Single_Record holen/anlegen
' GET_GROUP_OR_SINGLE_RECORD(pID, False)
Else '#### Datensatz wird normal geladen ####
SELECTED_RECORD_ID = RECORD_ID
CURRENT_RECORD_ID = SELECTED_RECORD_ID
RECORD_ID = SELECTED_RECORD_ID
'Die aktuelle Ebene überprüfen und den Datensatz übergeben, ebenso den PARENT-Record setzen
Select Case ACT_EBENE
Case 1
CURRENT_RECORD_ID = SELECTED_RECORD_ID
PARENT_RECORDID = CURRENT_RECORD_ID
RECORD_ID = SELECTED_RECORD_ID
PARENT_RECORDID = RECORD_ID
EBENE1_RECID = SELECTED_RECORD_ID
CURRENT_PARENTID = EBENE1_RECID
PARENT_ID = EBENE1_RECID
If Not EBENE1_COLUMNNAME Is Nothing Then
EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
End If
@ -2027,9 +2038,9 @@ Public Class frmForm_Constructor_Main_2
End If
If EBENE1_RECID > 0 Then
PARENT_RECORDID = EBENE1_RECID
CURRENT_PARENTID = EBENE1_RECID
PARENT_ID = EBENE1_RECID
Else
CURRENT_PARENTID = EBENE2_RECID
PARENT_ID = EBENE2_RECID
End If
Case 3
EBENE3_RECID = SELECTED_RECORD_ID
@ -2038,14 +2049,14 @@ Public Class frmForm_Constructor_Main_2
End If
If EBENE2_RECID > 0 Then
PARENT_RECORDID = EBENE2_RECID
CURRENT_PARENTID = EBENE2_RECID
PARENT_ID = EBENE2_RECID
End If
End Select
End If
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("windr") Then
If CURRENT_RECORD_ID = 0 Then
If RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY")
Else
RUN_WD_SEARCH(WD_Suche, "RECORD")
@ -2054,7 +2065,7 @@ Public Class frmForm_Constructor_Main_2
If TCDetails.SelectedTabPage.Text.StartsWith("Detail") Or TCDetails.SelectedTabPage.Text.StartsWith("Kopf") Then
'Daten zu Record in jedem Fall laden
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, CURRENT_PARENTID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
End If
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Then
tsButtonEditMode.Enabled = False
@ -2067,7 +2078,7 @@ Public Class frmForm_Constructor_Main_2
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False
Dim Record_Changes As String = "SELECT count(GUID) FROM VWPMO_RECORD_CHANGES WHERE RECORD_ID = " & CURRENT_RECORD_ID
Dim Record_Changes As String = "SELECT count(GUID) FROM VWPMO_RECORD_CHANGES WHERE RECORD_ID = " & RECORD_ID
Dim RC = ClassDatabase.Execute_Scalar(Record_Changes, True)
If Not RC Is Nothing Then
If RC > 0 Then
@ -2268,7 +2279,7 @@ Public Class frmForm_Constructor_Main_2
Private Sub Refresh_FollowUp_TabHeader()
Try
DT_FU_Record = ClassDatabase.Return_Datatable("select * from VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD where Record_ID = " & CURRENT_RECORD_ID, "Refresh FollowUp TabHeader")
DT_FU_Record = ClassDatabase.Return_Datatable("select * from VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD where Record_ID = " & RECORD_ID, "Refresh FollowUp TabHeader")
If IsNothing(DT_FU_Record) Then
TabFollowUp.Text = "Wiedervorlage (Nicht Abrufbar)"
Exit Sub
@ -2301,7 +2312,7 @@ Public Class frmForm_Constructor_Main_2
For Each row As DataRow In DT.Rows
Dim prsql As String = row.Item("EXECUTE_COMMAND")
prsql = prsql.ToUpper.Replace("@FORM_ID", CURRENT_FORM_ID)
prsql = prsql.ToUpper.Replace("@RECORD_ID", CURRENT_RECORD_ID)
prsql = prsql.ToUpper.Replace("@RECORD_ID", RECORD_ID)
ClassDatabase.Execute_non_Query(prsql, True)
Next
End If
@ -2366,7 +2377,7 @@ Public Class frmForm_Constructor_Main_2
Clear_Windream_ResultList()
Exit Sub
End If
tslblWindreamView.Text = "Windream-Dokumente für Record: " & CURRENT_RECORD_ID
tslblWindreamView.Text = "Windream-Dokumente für Record: " & RECORD_ID
Else
Clear_Windream_ResultList()
Exit Sub
@ -2599,7 +2610,7 @@ Public Class frmForm_Constructor_Main_2
Loop
AxObjectListControl.SetStatusIcon(3)
Else
tslblWindreamView.Text = "Windream-Dokumente für Record: " & CURRENT_RECORD_ID & " - Keine Dateien gefunden"
tslblWindreamView.Text = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
Clear_Windream_ResultList()
End If
@ -2617,7 +2628,7 @@ Public Class frmForm_Constructor_Main_2
Private Function Return_SearchPattern(ByVal content As String)
Select Case content.ToUpper
Case "@Record-ID".ToUpper
Return CURRENT_RECORD_ID
Return RECORD_ID
Case "@EntityID".ToUpper
Return CURRENT_FORM_ID
Case "@ParentID".ToUpper
@ -2742,7 +2753,7 @@ Public Class frmForm_Constructor_Main_2
End If
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("windr") Then
tsButtonEditMode.Enabled = False
If CURRENT_RECORD_ID = 0 Then
If RECORD_ID = 0 Then
RUN_WD_SEARCH(WD_Suche, "ENTITY")
Else
RUN_WD_SEARCH(WD_Suche, "RECORD")
@ -2759,11 +2770,11 @@ Public Class frmForm_Constructor_Main_2
Select Case TCDetails.SelectedTabPageIndex
Case 0
'If RECORD_NEEDS_REFRESH = True Then
' ClassControlValues.LoadControlValues(CURRENT_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
' ClassControlValues.LoadControlValues(RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls)
' ' UpdRECORD_NEEDS_REFRESH(False)
'End If
'Refresh_CreatedChangedRecordByID(CURRENT_RECORD_ID)
'Refresh_CreatedChangedRecordByID(RECORD_ID)
' RECORD_CHANGED = False
Case 1 'windream-Dokumente
@ -2791,7 +2802,7 @@ Public Class frmForm_Constructor_Main_2
End Sub
Sub Drag_Drop(e As DragEventArgs)
If act_FormViewID <> 0 Then
Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & CURRENT_FORMVIEW_ID
Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
If ClassDatabase.Execute_Scalar(sql, True) = 0 Then
MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
Exit Sub
@ -2803,23 +2814,27 @@ Public Class frmForm_Constructor_Main_2
Dim split() = Wert.Split(";")
If IsNumeric(split(1)) Then
CURRENT_FILEID = split(1)
CURRENT_PARENT_ID = PARENT_ID
CURRENT_RECORD_ID = RECORD_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID
frmWD_Index_Dokart.ShowDialog()
RUN_WD_SEARCH(WD_Suche, "RECORD")
End If
End If
Else
CURRENT_RECORD_ID = RECORD_ID
ClassDragDrop.Drop_File(e)
Check_Dropped_Files(act_FormViewID)
Check_Dropped_Files()
End If
End If
End Sub
Sub Check_Dropped_Files(FORMVIEW_ID As Integer)
Sub Check_Dropped_Files()
Try
If CURRENT_RECORD_ID = 0 Then
If RECORD_ID = 0 Then
MsgBox("Bitte wählen Sie einen Datensatz aus!", MsgBoxStyle.Information)
Exit Sub
End If
CURRENT_FORMVIEW_ID = FORMVIEW_ID
For Each Str As Object In ClassDragDrop.files_dropped
If Not IsNothing(Str) Then
Dim DropType = Str.Substring(0, Str.LastIndexOf("@") + 1)
@ -2831,7 +2846,7 @@ Public Class frmForm_Constructor_Main_2
End If
Next
Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & CURRENT_FORMVIEW_ID
Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
If ClassDatabase.Execute_Scalar(sql, True) >= 1 Then
Dim sql1 = String.Format("SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (UPPER(USER_WORK) = UPPER('{0}')) AND WORKED = 0", Environment.UserName)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql1)
@ -2840,6 +2855,9 @@ Public Class frmForm_Constructor_Main_2
For Each Filerow As DataRow In DT.Rows
'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "")
CURRENT_FILEID = Filerow.Item(0)
CURRENT_PARENT_ID = PARENT_ID
CURRENT_RECORD_ID = RECORD_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID
frmWD_Index_Dokart.ShowDialog()
RUN_WD_SEARCH(WD_Suche, "RECORD")
Next
@ -2881,7 +2899,7 @@ Public Class frmForm_Constructor_Main_2
If FOLL_UP_ID = DR.Item("GUID") Then
grpbxFU_Profile.Enabled = True
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"), RECORD_ID)
If Not IsNothing(datevalue) Then
dtpFollowUp.Enabled = True
If datevalue = "00:00:00" Then
@ -2907,7 +2925,7 @@ Public Class frmForm_Constructor_Main_2
lblWiedervorlage_Control.Text = "Wiedervorlage:"
End If
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"), RECORD_ID)
If Not IsNothing(checkvalue) Then
chkFollowUp.Checked = CBool(checkvalue)
Else
@ -2926,7 +2944,7 @@ Public Class frmForm_Constructor_Main_2
End Sub
Sub Load_FUUser(ID As Integer)
Try
Dim sql = "SELECT T.GUID, T1.USERNAME FROM TBPMO_FOLLUPEMAIL_RECORD T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.FOLLOW_UP_ID = " & ID & " AND T.RECORD_ID = " & CURRENT_RECORD_ID & " ORDER BY T1.USERNAME"
Dim sql = "SELECT T.GUID, T1.USERNAME FROM TBPMO_FOLLUPEMAIL_RECORD T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.FOLLOW_UP_ID = " & ID & " AND T.RECORD_ID = " & RECORD_ID & " ORDER BY T1.USERNAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Load_FollowUpUser")
ListBoxUser2Profile.DataSource = DT
ListBoxUser2Profile.DisplayMember = DT.Columns(1).ColumnName
@ -2939,7 +2957,7 @@ Public Class frmForm_Constructor_Main_2
If ENTITY_LOADED = False = False Then
Exit Sub
End If
If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DATE_CTRL_ID, CURRENT_RECORD_ID, dtpFollowUp.Value) = True Then
If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DATE_CTRL_ID, RECORD_ID, dtpFollowUp.Value) = True Then
lblFollowUp_save.Text = "Wiedervorlage gespeichert - " & Now.ToString
lblFollowUp_save.Visible = True
'UpdRECORD_NEEDS_REFRESH(True)
@ -2953,7 +2971,7 @@ Public Class frmForm_Constructor_Main_2
If ENTITY_LOADED = False Then
Exit Sub
End If
If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DONE_CTRL_ID, CURRENT_RECORD_ID, chkFollowUp.Checked.ToString) = True Then
If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DONE_CTRL_ID, RECORD_ID, chkFollowUp.Checked.ToString) = True Then
lblFollowUp_save.Text = "Wiedervorlage gespeichert - " & Now.ToString
lblFollowUp_save.Visible = True
' UpdRECORD_NEEDS_REFRESH(True)
@ -2999,7 +3017,7 @@ Public Class frmForm_Constructor_Main_2
#End Region
#Region "Tasks"
Private Sub tsButtonShowWorkflowTasks_Click(sender As Object, e As EventArgs) Handles tsButtonShowWorkflowTasks.Click
If CURRENT_RECORD_ID > 0 Then
If RECORD_ID > 0 Then
frmWF_TaskEditor.ShowDialog()
Show_act_WFTask()
Refresh_TaskOverview()
@ -3024,7 +3042,7 @@ Public Class frmForm_Constructor_Main_2
End Sub
Sub Show_act_WFTask()
Try
Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, CURRENT_RECORD_ID, Environment.UserName)
Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, RECORD_ID, Environment.UserName)
tsslblWorkflowstate.BackColor = Color.Black
If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count > 0 Then
CURRENT_TASK_ID = Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("WF_TASK_ID")
@ -3084,7 +3102,7 @@ Public Class frmForm_Constructor_Main_2
End Sub
Private Sub DateiimportEntitätToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiimportEntitätToolStripMenuItem.Click
If CURRENT_PARENTID = 0 Then
If PARENT_ID = 0 Then
Exit Sub
End If
frmWD_EntityImport.ShowDialog()
@ -3220,14 +3238,14 @@ Public Class frmForm_Constructor_Main_2
Private Sub TemplateItem_Click(sender As Object, e As EventArgs)
Dim item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
Dim TemplateID As Integer = Integer.Parse(item.Tag)
If CURRENT_RECORD_ID > 0 Then
If RECORD_ID > 0 Then
Dim SOLLENTITY_ID = ClassDatabase.Execute_Scalar("SELECT ENTITY_ID FROM VWPMO_TEMPLATE_ENTITY WHERE TEMPLATE_ID = " & TemplateID)
Dim REC_ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & CURRENT_RECORD_ID)
Dim REC_ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID)
If Not IsNothing(SOLLENTITY_ID) Then
If CInt(SOLLENTITY_ID) = REC_ENTITY_ID Then
Cursor = Cursors.WaitCursor
If ClassOfficeTemplate.Open_Word_Template(TemplateID, CURRENT_RECORD_ID) = True Then
If ClassOfficeTemplate.Open_Word_Template(TemplateID, RECORD_ID) = True Then
RUN_WD_SEARCH(WD_Suche, "RECORD")
Update_Status_Label(True, "Vorlagen-Datei erfolgreich nach windream importiert!", EditState.Insert)
End If
@ -3281,7 +3299,7 @@ Public Class frmForm_Constructor_Main_2
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)
ClassControlCommandsUI.ConnectRecord(PARENT_ID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString)
Else
MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation)
End If
@ -3313,7 +3331,7 @@ Public Class frmForm_Constructor_Main_2
If Not IsNothing(Grid_RecordID) Then
POS_RECORD_ID = Grid_RecordID
'SELECTED_RECORD_ID = POS_RECORD_ID
'CURRENT_RECORD_ID = POS_RECORD_ID
'RECORD_ID = POS_RECORD_ID
'Update_Record_Label(SELECTED_RECORD_ID)
End If
End If
@ -3359,7 +3377,7 @@ Public Class frmForm_Constructor_Main_2
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 & "')"
Dim ins = "INSERT INTO TBPMO_FOLLUPEMAIL_RECORD (FOLLOW_UP_ID,USER_ID,RECORD_ID,ADDED_WHO) VALUES (" & FOLL_UP_ID & ", " & cmbFollowUpUser.SelectedValue & ", " & 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)
@ -3452,19 +3470,19 @@ Public Class frmForm_Constructor_Main_2
End Sub
Private Sub btnRelinkParentID_Click(sender As Object, e As EventArgs) Handles btnRelinkParentID.Click
If CURRENT_PARENTID > 0 Then
If PARENT_ID > 0 Then
Dim result As MsgBoxResult
result = MessageBox.Show("Möchten Sie den Parent-Datensatz für den aktuellen Datensatz wirklich aktualisieren?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result <> MsgBoxResult.Yes Then
Exit Sub
Else
If ClassDatabase.Execute_non_Query("DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & CURRENT_RECORD_ID & " AND RECORD1_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID & ")", True) = False Then
If ClassDatabase.Execute_non_Query("DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RECORD_ID & " AND RECORD1_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID & ")", True) = False Then
Exit Sub
End If
End If
End If
If ClassControlCommandsUI.ConnectRecord(LinkParentID, CURRENT_RECORD_ID, "ReLInk ENTITY " & CURRENT_FORM_ID.ToString) = True Then
If ClassControlCommandsUI.ConnectRecord(LinkParentID, RECORD_ID, "ReLInk ENTITY " & CURRENT_FORM_ID.ToString) = True Then
'Save_GridViewParentEntityLayout()
MsgBox("Die Parent-Entität wurde erfolgreich aktualisiert!", MsgBoxStyle.Information)
Check_Record_Changed()
@ -3479,10 +3497,10 @@ Public Class frmForm_Constructor_Main_2
Private Sub RecordKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RecordKopierenToolStripMenuItem.Click
Dim result As MsgBoxResult
result = MessageBox.Show("Möchten Sie den Datensatz wirklich kopieren?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result <> MsgBoxResult.Yes Then
Dim SQL = String.Format("EXEC PRDD_COPY_RECORD {0}, '{1}'", CURRENT_RECORD_ID, Environment.UserName)
If result = MsgBoxResult.Yes Then
Dim SQL = String.Format("EXEC PRDD_COPY_RECORD {0}, '{1}'", RECORD_ID, Environment.UserName)
If ClassDatabase.Execute_non_Query(SQL, True) = True Then
LoadGrid_Selection()
Load_Entity_Data(ACT_EBENE)
End If
End If
End Sub

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

@ -409,7 +409,7 @@ Public Class frmFormInput
' SelectedFormID = RowView.Item(1)
RefreshRecordByID(SelectedRecordID)
ClassControlValues.LoadControlValues(SelectedRecordID, CURRENT_PARENTID, thisformid, pnlView.Controls)
ClassControlValues.LoadControlValues(SelectedRecordID, CURRENT_PARENT_ID, thisformid, pnlView.Controls)
End If
load_Documents()
End If
@ -531,7 +531,7 @@ Public Class frmFormInput
Dim ContextMenu As ContextMenuStrip = MenuItem.Owner
Dim SourceControl As Control = ContextMenu.SourceControl
Dim MasterDataId As Integer = SourceControl.Tag
CURRENT_MASTER_FORM_ID = MasterDataId
frmQuickInput.ShowDialog()
End Sub

7
app/DD-Record-Organiser/frmQuickEdit.vb
View File

@ -61,9 +61,7 @@ Public Class frmQuickEdit
Me.VWPMO_CONTROL_SCREENTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_RECORDTableAdapter.Connection.ConnectionString = MyConnectionString
thisformid = CURRENT_MASTER_FORM_ID
Me.VWPMO_CONTROL_SCREENTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_CONTROL_SCREEN, thisformid)
Me.VWPMO_CONTROL_SCREENTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_CONTROL_SCREEN, CURRENT_FORM_ID)
CtrlBuilder = New ClassControlBuilder(pnlView,
@ -88,7 +86,7 @@ Public Class frmQuickEdit
FocusedRow_Change()
End If
ClassWindowLocation.LoadFormLocationSize(Me, thisformid, CURRENT_SCREEN_ID)
ClassWindowLocation.LoadFormLocationSize(Me, CURRENT_FORM_ID, CURRENT_SCREEN_ID)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
@ -557,7 +555,6 @@ Public Class frmQuickEdit
Dim ContextMenu As ContextMenuStrip = MenuItem.Owner
Dim SourceControl As Control = ContextMenu.SourceControl
Dim MasterDataId As Integer = SourceControl.Tag
CURRENT_MASTER_FORM_ID = MasterDataId
frmQuickInput.ShowDialog()
End Sub
End Class

8
app/DD-Record-Organiser/frmQuickInput.vb
View File

@ -4,7 +4,7 @@ Public Class frmQuickInput
Dim Isinsert As Boolean = False
Private Sub frmQuickInput_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim sql As String = "SELECT * FROM VWTEMP_PMO_FORM" & CURRENT_MASTER_FORM_ID.ToString
Dim sql As String = "SELECT * FROM VWTEMP_PMO_FORM" & CURRENT_FORM_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
If DT Is Nothing = False Then
'DT.Columns.Remove("Record-ID")
@ -36,7 +36,7 @@ Public Class frmQuickInput
If Isinsert = True Then
' Create the record first
Dim Sql As String = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID) VALUES ('" & Environment.UserName & "', " & CURRENT_MASTER_FORM_ID & ")"
Dim Sql As String = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID) VALUES ('" & Environment.UserName & "', " & CURRENT_FORM_ID & ")"
If ClassDatabase.Execute_non_Query(Sql) = True Then
' Get last RecordID
Sql = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where ADDED_WHO = '" & Environment.UserName & "'"
@ -48,7 +48,7 @@ Public Class frmQuickInput
Dim val As Object = vGridQuickInput.GetCellValue(row, vGridQuickInput.FocusedRecord)
Dim fieldName As String = row.Properties.FieldName
CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_MASTER_FORM_ID, fieldName)
CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_FORM_ID, fieldName)
If CONTROL_ID <> 0 Then
If ClassFunctionCommands.InsertValue(CONTROL_ID, RECORD_ID, val) Then
tsStatus.Visible = True
@ -74,7 +74,7 @@ Public Class frmQuickInput
RECORD_ID = val
End If
CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_MASTER_FORM_ID, fieldName)
CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_FORM_ID, fieldName)
If CONTROL_ID <> 0 Then
If ClassFunctionCommands.UpdateValue(CONTROL_ID, RECORD_ID, val) = True Then
tsStatus.Visible = True

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

@ -158,7 +158,7 @@ Public Class frmWD_EntityImport
MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical)
End If
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_PARENTID
idxvalue = CURRENT_PARENT_ID
If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then
@ -253,7 +253,7 @@ Public Class frmWD_EntityImport
ListView1.Items.Add(DT.Rows(0).Item("IDXNAME_ENTITYID").ToString)
ListView1.Items(count).SubItems.Add(CURRENT_FORM_ID)
ListView1.Items.Add(DT.Rows(0).Item("IDXNAME_PARENTID").ToString)
ListView1.Items(count + 1).SubItems.Add(CURRENT_PARENTID)
ListView1.Items(count + 1).SubItems.Add(CURRENT_PARENT_ID)
End If
End If
End Sub

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

@ -69,7 +69,7 @@ Public Class frmWD_Index_Dokart
Return False
End If
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_PARENTID
idxvalue = CURRENT_PARENT_ID
If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then
@ -82,7 +82,7 @@ Public Class frmWD_Index_Dokart
If indexierung_erfolgreich = True Then
If multiindex = False Then MsgBox("Datei erfolgreich nach windream übertragen", MsgBoxStyle.Information, "Erfolgsmeldung")
ClassDatabase.Execute_Scalar("UPDATE TBPMO_FILES_USER SET WORKED = 1 WHERE GUID = " & CURRENT_FILEID)
frmForm_Constructor.tsstatus_Detail_show(True, "Datei erfolgreich nach windream übertragen")
'frmForm_Constructor.tsstatus_Detail_show(True, "Datei erfolgreich nach windream übertragen")
'Die Originaldatei löschen
If droptype = "dragdrop file" And indexierung_erfolgreich = True Then
If chkdelete_origin.Checked = True Then