AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
RecordOrganizer/app/DD-Record-Organiser/frmConstructor_Main.vb
JenneJ c2132eba37 jj fix refresh
2016-08-18 14:02:19 +02:00

6195 lines
288 KiB
VB.net
Raw Blame History

Imports DevExpress.Utils
Imports DevExpress.XtraBars.Navigation
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Tile
Imports DevExpress.XtraScheduler
Imports System.Text
Imports System.IO
Imports DevExpress.XtraGrid
Imports WINDREAMLib
Imports System.Runtime.InteropServices
Imports DD_Rights
Public Class frmConstructor_Main
Private Const SEE_MASK_INVOKEIDLIST = &HC
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Const SEE_MASK_FLAG_NO_UI = &H400
Public Const SW_SHOW As Short = 5
Private PARENT_SKIPPED As Boolean = False
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)> _
Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
End Function
Public Structure SHELLEXECUTEINFO
Public cbSize As Integer
Public fMask As Integer
Public hwnd As IntPtr
<MarshalAs(UnmanagedType.LPTStr)> Public lpVerb As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpFile As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpParameters As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpDirectory As String
Dim nShow As Integer
Dim hInstApp As IntPtr
Dim lpIDList As IntPtr
<MarshalAs(UnmanagedType.LPTStr)> Public lpClass As String
Public hkeyClass As IntPtr
Public dwHotKey As Integer
Public hIcon As IntPtr
Public hProcess As IntPtr
End Structure
#Region "Laufzeitvariablen & Konstanten"
Private CONSTRUCTORID As Integer
Private CONSTRUCTOR_DETAIL_ID As Integer
Private DT_CONSTRUCT_VIEW As DataTable
Private DT_VWPMO_CONSTRUCTOR_FORMS As DataTable
Private DT_ENTITY_DATA As DataTable
Private DT_FORM As DataTable
Private DT_TREEVIEW_PER_CONTROLS As DataTable
Private DT_TREEVIEW_CONFIGURATION As DataTable
Private DT_CONTROL_SCREEN As DataTable
Private TREEVIEW_IMAGELIST As ImageList
Private NODE_NAVIGATION As Boolean = False
Private NODE_NAVIGATION_LOADED As Boolean = False
Private EBENE2_PARENT_ID As Integer
Private EBENE3_PARENT_ID As Integer
Private ACT_EBENE As Integer
Private ACT_EBENE_STRING As String
Private SELECTED_RECORD_ID As Integer
Private PARENT_RECORDID As Integer
Private POS_ENTITY As Integer = 0
Private POS_SQL As String = ""
Private POS_RECORD_ID
Private TreeView_perControl As Boolean = False
Dim IsTopFirstRow As Boolean = True
Private RightMouse_Clicked = False
Private VIEW_ID
Private VIEW_ID_RUNTIME As Integer = -1
Public RECORD_ENABLED As Boolean = False
Private windream_inited = False
Private ENTITY_RECORD_COUNT As Integer = 0
Private EBENE1_ENTITY
Private EBENE2_ENTITY
Private EBENE3_ENTITY
Private EBENE1_COLUMNNAME
Private EBENE2_COLUMNNAME
Private EBENE3_COLUMNNAME
Private EBENE1_RECID
Private EBENE2_RECID
Private EBENE3_RECID
Private EBENE1_GRID_RESULT
Private EBENE2_GRID_RESULT
Private EBENE3_GRID_RESULT
Private act_FormViewID
Private DT_SELECTION As DataTable
Private EDIT_STATE As EditState = EditState.None
Private GRID_TYPE As GridType = GridType.Tiles
Private GRID_TYPE_ID As Integer = 1
Private FORM_LOADED As Boolean = False
Private RECORD_CHANGED As Boolean = False
Private SAVE_ROUTINE_ACTIVE As Boolean = False
Private SP1 As String
Private SP2 As String
Private SP3 As String
Private SP4 As String
Private SP5 As String
Private RIGHT_EDIT_R As Boolean = True
Private RIGHT_ADD_R As Boolean = True
Private RIGHT_DELETE_R As Boolean = False
Private RIGHT_ADD_DOC As Boolean = True
Private RIGHT_VIEW_DOC As Boolean = True
Private RIGHT_DELETE_DOC As Boolean = False
Private RIGHT_ONLY_READ As Boolean = False
Private RIGHT_WINDREAM_FORBIDDEN As Boolean = False
Private windream_Docshow As Boolean = False
Private WD_Suche As String
Private DocView
Private DocViewString As String
Private OpenedFileString As String
Private _FormClosing As Boolean = False
Private ENTITY_LOADED As Boolean = False
Private LinkParentID As Integer
Private CONTROL_DOCTYPE_MATCH As Integer = 0
Private FOLLOW_UPisActive As Boolean = False
Private DT_FU_Record As DataTable
Private DT_FU_ENTITY As DataTable
' Private gridGUID = 2
Private DT_WINDREAM_RESULTLIST_DEF As DataTable
Private DT_WINDREAM_RESULTLIST As DataTable
Private DT_RESULTLIST_OPTIONS As DataTable
Private DT_WORKFLOWS_MANUAL As DataTable
Private _MANUAL_WORKFLOW As Boolean = False
Private USER_RESULTLIST_CONFIG_GUID As Integer = 0
Private DT_TBPMO_FORM_VIEW As DataTable
Private FOLL_UP_RECORD_DEFINED As Boolean = False
Private FOLL_UP_DATE_CTRL_ID As Integer
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_ENTITYID As Integer
Private SQL_RIGHT_READ_AND_VIEW_ONLY As String = ""
Private SQL_RIGHT_WINDREAM_FORBIDDEN As String = ""
Private FORM_TYPE As Integer
Private ENTITY_ID As Integer
Private FORMVIEW_ID As Integer
Private _ENTITYSQL As String
Private _VIEWNAME As String
Private _ENTITYSTRING As String
Private RESULT_DOC_PATH
Private RESULT_OBJECTTYPE
Private RESULT_INWORK
Private RESULT_DOC_ID
Private RESULT_DISPLAYNAME
Private IW_USER As String
Private IW_COMMENT As String
Private BACKGROUND_HELPER As ClassBackgroundHelper
Public Enum EditState
None
Insert
Update
Delete
End Enum
Public Enum GridType
Grid
Carousel
Tiles
End Enum
#End Region
Private Sub frmConstructor_Main_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop
End Sub
Private Sub frmForm_Constructor_Main_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
'If RECORD_CHANGED = True Then
' Dim ResultMessage As String
' Try
' ResultMessage = Update_Record_OnChange()
' Catch ex As Exception
' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in saving Record")
' Me.Cursor = Cursors.Default
' ' Verhindert den Zeilenwechsel
' e.Cancel = True
' Exit Sub
' End Try
'End If
If TrySave_Automatic() = False Then
e.Cancel = True
End If
_FormClosing = True
' Check_Record_Changed()
CloseWDDocview()
Save_Grid_Layout()
Save_Splitter_Layout()
ClassWindowLocation.SaveFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN")
' Verhindert, das noch geöffnete Records für immer gelockt sind
ClassRecordState.UnlockRecord(SELECTED_RECORD_ID)
If Not IsNothing(CURRENT_DOCVIEW) Then
Try
CURRENT_DOCVIEW.CloseView(CURRENT_DOCVIEW_PATH, 0)
Catch ex As Exception
End Try
End If
End Sub
Private Sub frmForm_Constructor_Main_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim sw As New Stopwatch
Try
sw.Start()
tsslblRecord.Text = ""
tsslblStatus.Text = ""
_FormClosing = False
CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID
Me.Cursor = Cursors.WaitCursor
Init_Grid_Control()
Catch ex As Exception
MsgBox("Error while Loading Form part 1" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
' Hintergrund Bild initialisieren
BACKGROUND_HELPER = New ClassBackgroundHelper(GridViewDoc_Search, My.Resources.windream_Logo_transparent_klein)
' Bestimme Dinge ausblenden wenn kein admin
If USER_IS_ADMIN = True Then
FormDesignerToolStripMenuItem.Visible = True
Else
FormDesignerToolStripMenuItem.Visible = False
End If
Try
''SplitCont_Details.Collapsed = True
'CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID
ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN")
VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, Environment.UserName)
Dim SQL = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
"FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {2} AND CONSTRUCT_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CURRENT_SCREEN_ID, CONSTRUCTORID)
DT_VWPMO_CONSTRUCTOR_FORMS = ClassDatabase.Return_Datatable(SQL)
SQL = String.Format("select * from VWPMO_STRUCTURE_NODES where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
If DT.Rows.Count > 1 Then
TreeView_perControl = True
DT_TREEVIEW_PER_CONTROLS = DT
SQL = String.Format("select * from TBPMO_STRUCTURE_NODES_CONFIGURATION where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(SQL)
Try
TREEVIEW_IMAGELIST = New ImageList
For Each row As DataRow In DT_TREEVIEW_CONFIGURATION.Rows
Try
Dim bimage = row.Item("NODE_IMAGE")
If Not IsDBNull(bimage) Then
Dim Node_image = ByteArrayToBitmap(bimage)
TREEVIEW_IMAGELIST.Images.Add(row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID"), Node_image)
End If
Catch ex As Exception
End Try
Next
TreeViewMain.ImageList = TREEVIEW_IMAGELIST
Catch ex As Exception
MsgBox("Error in Adding NodeConfigurations to TreeView: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Me.SplitContainerTop.Panel1.Controls.Remove(Me.TreeViewMain)
Me.SplitContainer1.Panel1.Controls.Add(Me.TreeViewMain)
SplitContainer1.Collapsed = False
SplitContainer1.PanelVisibility = SplitPanelVisibility.Both
SplitContainerTop.Collapsed = True
SplitContainerTop.PanelVisibility = SplitPanelVisibility.Panel2
SplitContainerMain.Collapsed = True
NODE_NAVIGATION = True
End If
DT_CONSTRUCT_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_CONSTRUCTOR WHERE GUID = " & CONSTRUCTORID)
Dim SEL1 = String.Format("SELECT * FROM TBPMO_FORM WHERE GUID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {0} AND CONSTRUCT_ID = {1})", CURRENT_SCREEN_ID, CONSTRUCTORID)
DT_ENTITY_DATA = ClassDatabase.Return_Datatable(SEL1)
DT_CONTROL_SCREEN = ClassDatabase.Return_Datatable("SELECT FORM_ID, CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0")
If DT_CONSTRUCT_VIEW.Rows.Count = 1 Then
'Load Input Grid
Me.Text = DT_CONSTRUCT_VIEW.Rows(0).Item("FORM_TITLE")
'Die Standards ein/ausblenden
End If
Dim sql_ResultList = "select T1.ENTITY_ID,T.GUID,T.TITLE,T.MANUALLY,T.CREATE_ON_REC_CREATE,T.CREATE_ON_FOLL_UP " & _
"FROM TBPMO_WORKFLOW T,TBPMO_WORKFLOW_ENTITY_STATE T1 " & _
"WHERE T.GUID = T1.WF_ID " & _
"GROUP BY T1.ENTITY_ID,T.GUID,T.TITLE,T.MANUALLY,T.CREATE_ON_REC_CREATE,T.CREATE_ON_FOLL_UP"
DT_WORKFLOWS_MANUAL = ClassDatabase.Return_Datatable(sql_ResultList)
Load_Tree_View(CONSTRUCTORID)
FORM_LOADED = True
Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Form Load took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As System.Exception
MsgBox("Error in Loading Form part 2" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
Me.Cursor = Cursors.Default
End Sub
#Region "Layout"
Sub Save_POSGrid_Layout()
Try
Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)")
Dim EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING & "_POS", "")
Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", grvwGridPos.Name, EntityName, CONSTRUCTORID)
Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
grvwGridPos.SaveLayoutToXml(XMLPath)
Catch ex As Exception
MsgBox("Error in Save_POSGrid_Layout:" & vbNewLine & ex.Message)
End Try
End Sub
Sub Load_POSGrid_Layout()
Try
Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)")
Dim EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING & "_POS", "")
Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", grvwGridPos.Name, EntityName, CONSTRUCTORID)
Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
If File.Exists(XMLPath) Then
grvwGridPos.RestoreLayoutFromXml(XMLPath)
grvwGridPos.GuessAutoFilterRowValuesFromFilter()
'grvwGrid.ClearGrouping()
' grvwGridPos.ClearSelection()
' grvwGridPos.OptionsView.ShowPreview = False
End If
Catch ex As Exception
MsgBox("Error in Load_POSGrid_Layout:" & vbNewLine & ex.Message)
End Try
End Sub
Sub Save_Grid_Layout()
Try
If ACT_EBENE_STRING Is Nothing Then
Exit Sub
End If
Dim XMLPath = Get_Grid_Layout_Filename()
grvwGrid.SaveLayoutToXml(XMLPath)
' Update_Status_Label(True, "Grid Layout Loaded")
Catch ex As Exception
MsgBox("Error in Save_Grid_Layout:" & vbNewLine & ex.Message)
End Try
End Sub
Sub Save_DocGrid_Layout()
Try
If ACT_EBENE_STRING Is Nothing Then
Exit Sub
End If
Dim XMLPath = Get_DocGRid_Layout_Filename()
GridViewDoc_Search.SaveLayoutToXml(XMLPath)
' Update_Status_Label(True, "Grid Layout Loaded")
Catch ex As Exception
MsgBox("Error in Save_DocGrid_Layout:" & vbNewLine & ex.Message)
End Try
End Sub
Sub Load_DocGrid_Layout()
Try
If ACT_EBENE_STRING Is Nothing Then
Exit Sub
End If
Dim XMLPath = Get_DocGRid_Layout_Filename()
If File.Exists(XMLPath) Then
GridViewDoc_Search.RestoreLayoutFromXml(XMLPath)
GridViewDoc_Search.GuessAutoFilterRowValuesFromFilter()
End If
Catch ex As Exception
MsgBox("Error in Load_DocGrid_Layout:" & vbNewLine & ex.Message)
End Try
End Sub
Sub Load_Grid_Layout()
Try
Dim XMLPath = Get_Grid_Layout_Filename()
If File.Exists(XMLPath) And GRID_TYPE = GridType.Grid Then
grvwGrid.RestoreLayoutFromXml(XMLPath)
grvwGrid.GuessAutoFilterRowValuesFromFilter()
End If
Catch ex As Exception
MsgBox("Error in Load_Grid_Layout: " & vbNewLine & ex.Message)
End Try
End Sub
Sub Load_Splitter_Layout()
Try
Dim XMLPath As String = Get_Splitter_Layout_Filename()
Dim layout As New ClassLayout(XMLPath)
Dim settings As System.Collections.Generic.List(Of ClassSetting)
settings = layout.Load()
If settings.Count = 0 Then
settings.Add(New ClassSetting("SplitViewTopSplitterPosition", SplitContainerTop.SplitterPosition))
settings.Add(New ClassSetting("SplitViewMainSplitterPosition", SplitContainerMain.SplitterPosition))
layout.Save(settings)
End If
For Each setting As ClassSetting In settings
Select Case setting._name
Case "SplitViewTopSplitterPosition"
SplitContainerTop.SplitterPosition = Integer.Parse(setting._value)
Case "SplitViewMainSplitterPosition"
If NODE_NAVIGATION = False Then
SplitContainerMain.SplitterPosition = Integer.Parse(setting._value)
Else
SplitContainer1.SplitterPosition = Integer.Parse(setting._value)
End If
End Select
Next
Catch ex As Exception
MsgBox("Fehler in Load_Splitter_Layout:" & vbNewLine & ex.Message)
End Try
End Sub
Sub Save_Splitter_Layout()
Try
Dim XMLPath = Get_Splitter_Layout_Filename()
Dim layout As New ClassLayout(XMLPath)
Dim settings As New System.Collections.Generic.List(Of ClassSetting)
If NODE_NAVIGATION = False Then
settings.Add(New ClassSetting("SplitViewTopSplitterPosition", SplitContainerTop.SplitterPosition))
settings.Add(New ClassSetting("SplitViewMainSplitterPosition", SplitContainerMain.SplitterPosition))
Else
settings.Add(New ClassSetting("SplitViewTopSplitterPosition", SplitContainerTop.SplitterPosition))
settings.Add(New ClassSetting("SplitViewMainSplitterPosition", SplitContainer1.SplitterPosition))
End If
layout.Save(settings)
Catch ex As Exception
MsgBox("Error in Save_Splitter_Layout:" & vbNewLine & ex.Message)
End Try
End Sub
Function GetSafeFilename(filename As String)
Return String.Join("_", filename.Split(Path.GetInvalidFileNameChars()))
End Function
Private Function Get_Splitter_Layout_Filename()
Dim Filename As String = String.Format("{0}-SplitterLayout.xml", CONSTRUCTORID)
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
End Function
Private Function Get_POSGrid_Layout_Filename()
Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)")
Dim EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING, "")
Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", grvwGrid.Name, GetSafeFilename(EntityName), CONSTRUCTORID)
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
End Function
Private Function Get_Grid_Layout_Filename()
Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)")
If NODE_NAVIGATION = True Then
ACT_EBENE_STRING = "NODE_NAVIGATION"
End If
Dim EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING, "")
Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", grvwGrid.Name, GetSafeFilename(EntityName), CONSTRUCTORID)
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
End Function
Private Function Get_DocGRid_Layout_Filename()
Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)")
Dim EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING, "")
Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", GridViewDoc_Search.Name, GetSafeFilename(EntityName), CONSTRUCTORID)
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
End Function
#End Region
#Region "NavPane"
Sub Refresh_Navpane()
'Die aktuelle Ebene überprüfen und das NAvpane aktualisieren
Select Case ACT_EBENE
Case 1
If Not EBENE1_COLUMNNAME Is Nothing Then
EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
Dim cat As TileNavCategory = LoadLevel1Nav()
NavPane.Categories.Clear()
NavPane.Categories.Add(cat)
End If
Case 2
If Not EBENE2_COLUMNNAME Is Nothing Then
EBENE2_GRID_RESULT = Get_GridResult(EBENE2_COLUMNNAME)
Dim cat As TileNavCategory = LoadLevel1Nav()
NavPane.Categories.Clear()
NavPane.Categories.Add(cat)
Dim item As TileNavItem = LoadLevel2Nav()
cat.Items.Add(item)
End If
Case 3
EBENE3_RECID = SELECTED_RECORD_ID
If Not EBENE3_COLUMNNAME Is Nothing Then
EBENE3_GRID_RESULT = Get_GridResult(EBENE3_COLUMNNAME)
Dim cat As TileNavCategory = LoadLevel1Nav()
NavPane.Categories.Clear()
NavPane.Categories.Add(cat)
Dim item As TileNavItem = LoadLevel2Nav()
cat.Items.Add(item)
Dim subitem As TileNavSubItem = LoadLevel3Nav()
item.SubItems.Add(subitem)
End If
End Select
End Sub
Private Function FindNode(tncoll As TreeNodeCollection, strText As [String]) As TreeNode
Dim tnFound As TreeNode
For Each tnCurr As TreeNode In tncoll
If tnCurr.Text.StartsWith(strText) Then
Return tnCurr
End If
tnFound = FindNode(tnCurr.Nodes, strText)
If tnFound IsNot Nothing Then
Return tnFound
End If
Next
Return Nothing
End Function
Private Sub NavPane_MouseUp(sender As Object, e As MouseEventArgs) Handles NavPane.MouseUp
Dim pane As TileNavPane = TryCast(sender, TileNavPane)
Dim hitInfo As TileNavPaneHitInfo = pane.ViewInfo.CalcHitInfo(e.Location)
If hitInfo.InButton Then
Dim element = hitInfo.ButtonInfo.Element
NavPane.HideDropDownWindow()
Save_Grid_Layout()
If TypeOf element Is NavButton Then
Dim btn As NavButton = TryCast(element, NavButton)
If btn.IsMain Then
ResetNav()
ElseIf btn.Name = "NavButtonRefresh" Then
If TrySave_Automatic() = True Then
' Setzt die RECORD_ID auf Null
' damit beim Refresh keine alten Werte
' in die Datenbank geschrieben werden
SELECTED_RECORD_ID = 0
RECORD_ID = 0
CURRENT_RECORD_ID = 0
Load_Datafor_Entity()
End If
End If
Else
Dim Entity As String = element.Tag
Dim Node = FindNode(TreeViewMain.Nodes, Entity)
If Node IsNot Nothing Then
TreeViewMain.SelectedNode = Node
Load_Datafor_Entity()
End If
End If
End If
End Sub
Private Function LoadLevel1Nav()
Dim cat As New TileNavCategory()
cat.Caption = EBENE1_GRID_RESULT
cat.Name = EBENE1_GRID_RESULT
cat.TileText = EBENE1_GRID_RESULT
cat.Tag = EBENE1_ENTITY
NavPane.SelectedElement = cat
Return cat
End Function
Private Function LoadLevel2Nav()
Dim item As New TileNavItem()
item.Caption = EBENE2_GRID_RESULT
item.Name = EBENE2_GRID_RESULT
item.TileText = EBENE2_GRID_RESULT
item.Tag = EBENE2_ENTITY
NavPane.SelectedElement = item
Return item
End Function
Private Function LoadLevel3Nav()
Dim subitem As New TileNavSubItem()
subitem.Caption = EBENE3_GRID_RESULT
subitem.Name = EBENE3_GRID_RESULT
subitem.TileText = EBENE3_GRID_RESULT
subitem.Tag = EBENE3_ENTITY
NavPane.SelectedElement = subitem
Return subitem
End Function
Private Sub ResetNav()
'Grid zurücksetzen
Clear_Grid_View()
ACT_EBENE = 0
CURRENT_ACT_LEVEL = 0
ACT_EBENE_STRING = ""
EBENE1_ENTITY = ""
EBENE1_RECID = 0
EBENE2_ENTITY = ""
EBENE2_RECID = 0
EBENE3_ENTITY = ""
EBENE3_RECID = 0
'Navigation zurücksetzen
NavPane.Categories.Clear()
'TreeView zurücksetzen
'Load_Tree_View(CONSTRUCTORID)
TreeViewMain.SelectedNode = Nothing
SetSelectedNodeStyle(TreeViewMain.Nodes)
Load_Tree_View(CONSTRUCTORID)
End Sub
#End Region
#Region "GridControl"
Public Sub Init_Grid_Control()
GRID_TYPE = GridType.Tiles
GRID_TYPE_ID = 1
GridControlMain.MainView = grvwTiles
End Sub
'Public Sub Hide_Grid_Columns()
' Try
' Dim DefaultHiddenColumns As New List(Of String) From {"Record-ID", "Form-ID", "ROW_COLOR", "COLOR"}
' Dim QuickHiddenColumns As New List(Of String) From {"AddedWho", "AddedWhen", "ChangedWho", "ChangedWhen"}
' If GRID_TYPE = GridType.Carousel Or GRID_TYPE = GridType.Tiles Then
' DefaultHiddenColumns.AddRange(QuickHiddenColumns)
' End If
' For Each colname As String In DefaultHiddenColumns
' Dim col = grvwTiles.Columns.Item(colname)
' If col IsNot Nothing Then
' col.Visible = False
' End If
' Next
' Catch ex As Exception
' ClassLogger.Add("Unexpected Error in Hide_Grid_Columns: " & ex.Message, True)
' End Try
'End Sub
Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer, ConstructorDetailID As Integer)
Try
If GRID_TYPE = GridType.Grid Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False)
_VIEWNAME = "VWTEMP_PMO_FORM" & FormId.ToString
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
Else 'Tiles und Carousel bekommen Quick View
' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
Dim query = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Where form.Item("FORM_ID") = FormId
_ENTITYSQL = query.Single().Item("SQL_QUICK_VIEW")
If _ENTITYSQL = String.Empty Then
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T"
If IS_SINGLE_RECORD = True Or FORM_TYPE = 5 Then
Else
GRID_TYPE = GridType.Grid
GridControlMain.MainView = grvwGrid
VIEW_ID = 3
End If
' GridControlMain.MainView = grvwGrid
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Quick-View is configured", False)
End If
End If
Try
Dim sql = String.Format("SELECT COUNT(*) FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1} AND SQL_COMMAND IS NOT NULL AND SQL_COMMAND <> ''", USER_GUID, ConstructorDetailID)
Dim exists = ClassDatabase.Execute_Scalar(sql)
If exists = 1 Then
sql = String.Format("SELECT SQL_COMMAND FROM TBPMO_CONSTRUCTOR_USER_SQL WHERE USER_ID = {0} AND CONSTR_DET_ID = {1}", USER_GUID, ConstructorDetailID)
Dim result = ClassDatabase.Execute_Scalar(sql)
If Not IsNothing(result) Then
_ENTITYSQL = _ENTITYSQL & " " & result.ToString
_ENTITYSQL = _ENTITYSQL.ToUpper.Replace("@RECORDID", RECORD_ID)
_ENTITYSQL = _ENTITYSQL.ToUpper.Replace("@USER_ID", USER_GUID)
End If
End If
Catch ex As Exception
ClassLogger.Add("Error in Get Entity SQL for User: " & vbNewLine & ex.Message, True)
MsgBox("Error in Get Entity SQL for User: " & vbNewLine & ex.Message)
End Try
CURRENT_ENTITYSQL = _ENTITYSQL
Catch ex As Exception
ClassLogger.Add("Error in Get_Grid_Sql: " & vbNewLine & ex.Message, True)
MsgBox("Error in Get_Grid_Sql: " & vbNewLine & ex.Message)
End Try
End Function
Public Function Get_Pos_SQL(FormId As Integer)
POS_SQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @PARENT_ID"
End Function
Public Sub Clear_Grid_View()
GridControlMain.DataSource = Nothing
If GRID_TYPE = GridType.Grid Then
If grvwGrid.Columns.Count > 0 Then
grvwGrid.Columns.Clear()
End If
ElseIf GRID_TYPE = GridType.Tiles Then
grvwTiles.Columns.Clear()
Else
grvwCarousel.Columns.Clear()
End If
End Sub
Public Sub Clear_GridPos_View()
BindingNavigatorPOS.BindingSource = Nothing
GridControlPos.DataSource = Nothing
grvwGridPos.Columns.Clear()
POS_RECORD_ID = 0
End Sub
Public Function Get_Grid_Row_Count() As Integer
If GRID_TYPE = GridType.Grid Then
Return grvwGrid.RowCount
ElseIf GRID_TYPE = GridType.Tiles Then
Return grvwTiles.RowCount
Else
Return grvwCarousel.RowCount
End If
End Function
'Public Function Get_Grid_Row_Handle(value As String)
' Try
' Dim rowHandle As Integer = DT_SELECTION.Rows.IndexOf(DT_SELECTION.Rows.Find(value))
' If rowHandle > 0 Then
' If GRID_TYPE = GridType.Grid Then
' grvwGrid.FocusedRowHandle = rowHandle
' ElseIf GRID_TYPE = GridType.Tiles Then
' grvwTiles.FocusedRowHandle = rowHandle
' Else
' grvwCarousel.FocusedRowHandle = rowHandle
' End If
' End If
' Catch ex As Exception
' ClassLogger.Add("Error in Search_RowHandle: " & ex.Message, False)
' End Try
'End Function
Public Function Get_Grid_Column_Count() As Integer
If GRID_TYPE = GridType.Grid Then
Return grvwGrid.Columns.Count
ElseIf GRID_TYPE = GridType.Tiles Then
Return grvwTiles.Columns.Count
Else
Return grvwCarousel.Columns.Count
End If
End Function
Public Function Get_Focused_Row_Cell_Value(columnName As String)
If GRID_TYPE = GridType.Grid Then
Return grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns(columnName))
ElseIf GRID_TYPE = GridType.Tiles Then
Return grvwTiles.GetFocusedRowCellValue(grvwTiles.Columns(columnName))
Else
Return grvwCarousel.GetFocusedRowCellValue(grvwCarousel.Columns(columnName))
End If
End Function
Public Function Get_Focused_Row_Cell_Value_pos(columnName As String)
Return grvwGridPos.GetFocusedRowCellValue(grvwGrid.Columns(columnName))
End Function
Private Sub grvwGrid_BeforeLeaveRow(sender As Object, e As RowAllowEventArgs) Handles grvwGrid.BeforeLeaveRow
'If RECORD_CHANGED = True Then
' Dim ResultMessage As String
' Try
' ResultMessage = Update_Record_OnChange()
' Catch ex As Exception
' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in saving Record")
' Me.Cursor = Cursors.Default
' ' Verhindert den Zeilenwechsel
' e.Allow = False
' End Try
'End If
If TrySave_Automatic() = False Then
e.Allow = False
End If
End Sub
Private Sub grvwGrid_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGrid.FocusedColumnChanged
Me.Cursor = Cursors.WaitCursor
Column_Row_Handler()
Me.Cursor = Cursors.Default
End Sub
Private Sub GridView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged, grvwTiles.FocusedRowChanged, grvwCarousel.FocusedRowChanged
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
Me.Cursor = Cursors.WaitCursor
Column_Row_Handler()
Me.Cursor = Cursors.Default
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >>>> GridView_FocusedRowChanged took " & Format(elapsed, "0.000000000") & " seconds", False)
'If dataloaded = True Then
' If LogErrorsOnly = False Then ClassLogger.Add(" >> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False)
' Dim selRecID = GetSelected_RecordID()
' If Not selRecID Is Nothing And selRecID <> SelectedRecordID Or EDIT_STATE = "insert" Then
' Focused_Row_Column_Changed()
' Else
' 'Console.WriteLine("SelRecordID identisch")
' End If
'End If
End Sub
Private Sub gridView1_CustomDrawRowIndicator(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowIndicatorCustomDrawEventArgs)
If IsTopFirstRow Then
e.Info.ImageIndex = -1
End If
End Sub
Sub Column_Row_Handler(Optional RECID As Integer = 0, Optional _navload As Boolean = False, Optional _refresh As Boolean = False)
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
If RECID = 0 Then
If _FormClosing = True Then 'Or SaveRoutine_Active = True
Exit Sub
End If
'Aussteigen, wenng erade die Entität gewechselt wird
If ENTITY_LOADED = False Then
Exit Sub
End If
If RightMouse_Clicked Then
Exit Sub
End If
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
If IsNothing(Grid_RecordID) Then
Console.WriteLine("No Record ID selectable")
Else
If Grid_RecordID = 0 Then
Console.WriteLine("Grid_RecordID = 0")
Else
RECID = Grid_RecordID
End If
End If
End If
If RECID = RECORD_ID And ENTITY_RECORD_COUNT > 1 And _refresh = False Then
Exit Sub
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> RowHandler: RID: " & RECID.ToString & " - " & Now, False)
'Hier jetzt erst das Anzeigen für einen selektierten Datensatz
If GRID_TYPE = GridType.Grid Then
If IsTopFirstRow Then
IsTopFirstRow = False
'grvwGrid.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
'grvwGrid.OptionsBehavior.Editable = Not IsTopFirstRow
'grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = Not IsTopFirstRow
'grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = Not IsTopFirstRow
'grvwGrid.OptionsSelection.EnableAppearanceHideSelection = Not IsTopFirstRow
End If
ElseIf GRID_TYPE = GridType.Carousel Then
If IsTopFirstRow Then
IsTopFirstRow = False
grvwCarousel.OptionsBehavior.Editable = Not IsTopFirstRow
End If
ElseIf GRID_TYPE = GridType.Tiles Then
If IsTopFirstRow Then
IsTopFirstRow = False
grvwTiles.OptionsBehavior.Editable = Not IsTopFirstRow
End If
End If
'Wird jetzt bei BeforeRowChange überprüft
'Check_Record_Changed()
DisableEditMode()
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Precheck Row took " & Format(elapsed, "0.000000000") & " seconds", False)
sw.Start()
' muss vor show selected record data kommen,
' sodass die datasource für die angehakten werte existiert (checked list box)
CtrlBuilder.WatchRecordChanges = False
ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, RECID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID)
CtrlBuilder.WatchRecordChanges = True
Show_Selected_Record_Data(RECID, False)
Dim sw1 As New Stopwatch
sw1.Start()
Check_Rights()
elapsed = sw1.Elapsed.TotalSeconds
sw1.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Check Rights took " & Format(elapsed, "0.000000000") & " seconds", False)
If TCDetails.SelectedTabPage Is Nothing Then
Exit Sub
End If
If TabPos.PageVisible = True And TCDetails.SelectedTabPage.Text.StartsWith("Posi") Then
Clear_GridPos_View()
Dim POS_GRID_RECORD = Get_Focused_Row_Cell_Value_pos("Record-ID")
Load_Pos_Data()
Load_POSGrid_Layout()
End If
If RECORD_ID > 0 Then
If RIGHT_ONLY_READ = False Then
tsButtonEdit.Enabled = True
End If
If NODE_NAVIGATION = False Then
Get_RecordCounts_Nodes()
End If
End If
'Liste der geänderten Control Values leeren
CtrlBuilder.ControlsChanged.Clear()
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
Console.WriteLine("Column_Row_Handler took {0}ms to load", sw.ElapsedMilliseconds)
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >>>> Column/Row Change took " & Format(elapsed, "0.000000000") & " seconds", False)
If NODE_NAVIGATION = True And _navload = False Then
SearchNode(TreeViewMain.Nodes, RECORD_ID)
End If
End Sub
Sub Check_Rights()
Try
RIGHT_ONLY_READ = False
RIGHT_WINDREAM_FORBIDDEN = False
tsmi_RecordDelete.Enabled = True
MassenänderungToolStripMenuItem.Enabled = True
DeleteToolStripMenuItem.Enabled = True
UmbenennenToolStripMenuItem.Enabled = True
TSMI_linkRecord.Enabled = True
TSMI_inWork.Enabled = True
CopyToolStripMenuItem.Enabled = True
RecordKopierenToolStripMenuItem.Enabled = True
PropertiesToolStripMenuItem.Enabled = True
tslblLocked.Visible = False
tslblFileslocked.Visible = False
TabFollowUp.PageEnabled = True
TabPos.PageEnabled = True
TabWindream.PageEnabled = True
WindreamsucheNeuLadenToolStripMenuItem.Enabled = True
EntitätssucheStartenToolStripMenuItem.Enabled = True
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
Dim tempsql
If SQL_RIGHT_READ_AND_VIEW_ONLY <> "" Then
Try
tempsql = SQL_RIGHT_READ_AND_VIEW_ONLY
tempsql = tempsql.Replace("@RECORDID", RECORD_ID)
tempsql = tempsql.Replace("@RECORD_ID", RECORD_ID)
tempsql = tempsql.Replace("@USER_ID", USER_GUID)
tempsql = tempsql.Replace("@USER_GUID", USER_GUID)
''Regulären Ausdruck zum Auslesen der windream-Indexe definieren
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'' einen Regulären Ausdruck laden
'Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
'' die Vorkommen im SQL-String auslesen
'Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(tempsql)
'' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
''#####
'' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
'For Each element As System.Text.RegularExpressions.Match In elemente
' Dim elementohneSZ = element.Value.Replace("[%", "")
' elementohneSZ = elementohneSZ.Replace("]", "")
' ' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen
' tempsql = tempsql.Replace(element.Value, controlvalue.ToString)
'Next
Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> RIGHT_ONLY_READ SQL: (When true then disable) '" & tempsql & "'", False)
RIGHT_ONLY_READ = CBool(ClassDatabase.Execute_Scalar(tempsql))
Catch ex As Exception
RIGHT_ONLY_READ = False
End Try
If RIGHT_ONLY_READ = True Then
' Hinzufügen sollte auch bei RIGHT_ONLY_READ verfügbar sein
tsButtonAdd.Enabled = True
tsButtonEdit.Enabled = False
tsButtonSave.Enabled = False
tsButtonDelete.Enabled = False
tsmi_RecordDelete.Enabled = False
MassenänderungToolStripMenuItem.Enabled = False
UmbenennenToolStripMenuItem.Enabled = False
TSMI_linkRecord.Enabled = False
TSMI_inWork.Enabled = False
PropertiesToolStripMenuItem.Enabled = False
CopyToolStripMenuItem.Enabled = False
DeleteToolStripMenuItem.Enabled = False
tslblLocked.Visible = True
RecordKopierenToolStripMenuItem.Enabled = False
TabFollowUp.PageEnabled = False
TabPos.PageEnabled = False
' tsButtonShowTaskOverview.Enabled = False
CreateWorkflowTasksToolStripMenuItem.Enabled = False
CreateWorkflowTasksToolStripMenuItem.Enabled = False
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = False
End If
Catch ex As Exception
MsgBox("unexpected Error in Check Read-Limitations:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Check Read-Limitations: " & ex.Message)
ClassLogger.Add("TempSQL so far: " & tempsql)
End Try
End If
If SQL_RIGHT_WINDREAM_FORBIDDEN <> "" Then
Try
tempsql = SQL_RIGHT_WINDREAM_FORBIDDEN
tempsql = tempsql.Replace("@RECORDID", RECORD_ID)
tempsql = tempsql.Replace("@RECORD_ID", RECORD_ID)
tempsql = tempsql.Replace("@USER_ID", USER_GUID)
tempsql = tempsql.Replace("@USER_GUID", USER_GUID)
''Regulären Ausdruck zum Auslesen der windream-Indexe definieren
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'' einen Regulären Ausdruck laden
'Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
'' die Vorkommen im SQL-String auslesen
'Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(tempsql)
'' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
''#####
'' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
'For Each element As System.Text.RegularExpressions.Match In elemente
' Dim elementohneSZ = element.Value.Replace("[%", "")
' elementohneSZ = elementohneSZ.Replace("]", "")
' ' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen
' tempsql = tempsql.Replace(element.Value, controlvalue.ToString)
'Next
Try
RIGHT_WINDREAM_FORBIDDEN = CBool(ClassDatabase.Execute_Scalar(tempsql))
Catch ex As Exception
RIGHT_WINDREAM_FORBIDDEN = False
End Try
If RIGHT_WINDREAM_FORBIDDEN = True Then
' Hinzufügen sollte auch bei RIGHT_ONLY_READ verfügbar sein
tslblFileslocked.Visible = True
TabWindream.PageEnabled = False
WindreamsucheNeuLadenToolStripMenuItem.Enabled = False
EntitätssucheStartenToolStripMenuItem.Enabled = False
End If
Catch ex As Exception
MsgBox("unexpected Error in Check Read-Limitations WINDREAM:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Check Read-Limitations WINDREAM: " & ex.Message)
ClassLogger.Add("TempSQL so far: " & tempsql)
End Try
End If
Catch ex As Exception
MsgBox("unexpected Error in Check_Rights:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
#End Region
#Region "TreeView"
Public Sub SetSelectedNodeStyle(tncoll As TreeNodeCollection)
For Each node As TreeNode In tncoll
If node.IsSelected Then
node.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Bold)
node.Text = node.Text
Else
node.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Regular)
End If
If node.Nodes.Count > 0 Then
SetSelectedNodeStyle(node.Nodes)
End If
Next
TreeViewMain.Refresh()
End Sub
Private Sub NodeRecursive(ByVal n As TreeNode, searchRecord As Integer)
Dim aNode As TreeNode
For Each aNode In n.Nodes
If Not IsNothing(aNode.Tag) Then
If aNode.Tag.ToString.Contains("RECORD-ID") Then
Dim Record = Return_RECORD_forTag(aNode.Tag)
If IsNumeric(Record) And Record <> 0 And searchRecord = Record Then
TreeViewMain.SelectedNode = aNode
Exit Sub
End If
End If
End If
NodeRecursive(aNode, searchRecord)
Next
End Sub
Public Sub SearchNode(tncoll As TreeNodeCollection, searchRecord As Integer)
Try
Dim n As TreeNode
For Each n In TreeViewMain.Nodes
NodeRecursive(n, searchRecord)
Next
Catch ex As Exception
ClassLogger.Add("Error in SearchNode: " & ex.Message, True)
End Try
End Sub
Private Sub TreeViewMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewMain.AfterSelect
DisableEditMode()
If NODE_NAVIGATION = False Then
SetSelectedNodeStyle(TreeViewMain.Nodes)
Else
ACT_EBENE_STRING = "NODE_NAVIGATION"
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then
SelectedNode.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Bold)
SelectedNode.Text = SelectedNode.Text
End If
End If
Load_Datafor_Entity()
If NODE_NAVIGATION = True Then
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then
Update_Status_Label(True, SelectedNode.Tag)
If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then
Dim Record = Return_RECORD_forTag(SelectedNode.Tag)
If Record <> 0 Then
pnlDetails.Enabled = True
ToolStripEdit.Enabled = True
Column_Row_Handler(Record, True)
LocateRecordById(RECORD_ID)
End If
Else
pnlDetails.Enabled = False
ToolStripEdit.Enabled = False
End If
End If
End If
End Sub
Private Sub TreeViewMain_BeforeSelect(sender As Object, e As TreeViewCancelEventArgs) Handles TreeViewMain.BeforeSelect
If NODE_NAVIGATION = False Then
If grvwGrid.Columns.Count > 0 Then
Save_Grid_Layout()
End If
Else
If Not IsNothing(TreeViewMain.SelectedNode) Then
TreeViewMain.SelectedNode.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Regular)
End If
End If
End Sub
Sub Load_Tree_View(ConstructorId As Integer)
Try
Dim sw As New SW("Load_Tree_View")
TreeViewMain.Nodes.Clear()
If NODE_NAVIGATION = True Then
' Rootnode erstellen und taggen
If DT_TREEVIEW_PER_CONTROLS.Rows.Count > 1 Then
' Presuming the DataTable has a column named ENTITY_ID and TYPE_NODE.
Dim expression As String
expression = "TYPE_NODE = 0"
Dim foundRowsLevel0() As DataRow
' Use the Select method to find all rows matching the filter.
foundRowsLevel0 = DT_TREEVIEW_PER_CONTROLS.Select(expression)
Dim i As Integer
Dim NODE_CONFIG_ID
' For each row create a Node
For i = 0 To foundRowsLevel0.GetUpperBound(0)
Dim ID = foundRowsLevel0(i)("GUID")
Dim LevelEntity = foundRowsLevel0(i)("ENTITY_ID")
Dim controlID = foundRowsLevel0(i)("CONTROL_ID")
Dim nodetext = foundRowsLevel0(i)("NODE_CAPTION")
Dim Type_node = foundRowsLevel0(i)("TYPE_NODE")
Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel0(i)("NODE_CONFIG_ID")
Dim LEVEL0_NODE As TreeNode
LEVEL0_NODE = New TreeNode(nodetext)
If Not IsDBNull(RECORD_ID) Then
LEVEL0_NODE.Tag = LevelEntity & " - CONTROL-ID" & controlID.ToString & "#" & ID & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL0_NODE.Tag = LevelEntity & " - CONTROL-ID" & controlID.ToString & "#" & ID
End If
Dim index As Integer = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity Then
Exit For
End If
index += 1
Next
LEVEL0_NODE.ImageIndex = index
LEVEL0_NODE.SelectedImageIndex = index
TreeViewMain.Nodes.Add(LEVEL0_NODE)
'### LEVEL 1 laden #######
Dim expressionLevel1 As String
expressionLevel1 = "PARENT_GUID = " & ID 'TYPE_NODE = 1 AND Einschränkung auf Type 2 und Parent_Guid
Dim foundRowsLevel1() As DataRow
foundRowsLevel1 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel1)
Dim j As Integer
For j = 0 To foundRowsLevel1.GetUpperBound(0)
Dim ID1 = foundRowsLevel1(j)("GUID")
Dim LevelEntity1 = foundRowsLevel1(j)("ENTITY_ID")
Dim controlID1 = foundRowsLevel1(j)("CONTROL_ID")
Dim nodetext1 = foundRowsLevel1(j)("NODE_CAPTION")
Dim Type_node1 = foundRowsLevel1(j)("TYPE_NODE")
RECORD_ID = foundRowsLevel1(j)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel1(j)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL1_NODE As TreeNode
LEVEL1_NODE = New TreeNode(nodetext1)
If Not IsDBNull(RECORD_ID) Then
LEVEL1_NODE.Tag = LevelEntity1 & "-CONTROL-ID" & controlID1.ToString & "#" & ID1 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL1_NODE.Tag = LevelEntity1 & "-CONTROL-ID" & controlID1.ToString & "#" & ID1
End If
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity1 Then
Exit For
End If
index += 1
Next
LEVEL1_NODE.ImageIndex = index
LEVEL1_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL0_NODE.Nodes.Add(LEVEL1_NODE)
'### LEVEL 2 laden #######
Dim expressionLevel2 As String
expressionLevel2 = "PARENT_GUID = " & ID1 'TYPE_NODE = 2 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel2() As DataRow
foundRowsLevel2 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel2)
Dim k As Integer
For k = 0 To foundRowsLevel2.GetUpperBound(0)
Dim ID2 = foundRowsLevel2(k)("GUID")
Dim LevelEntity2 = foundRowsLevel2(k)("ENTITY_ID")
Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID")
Dim nodetext2 = foundRowsLevel2(k)("NODE_CAPTION")
RECORD_ID = foundRowsLevel2(k)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel2(k)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL2_NODE As TreeNode
LEVEL2_NODE = New TreeNode(nodetext2)
If Not IsDBNull(RECORD_ID) Then
LEVEL2_NODE.Tag = LevelEntity2 & "-CONTROL-ID" & controlID2.ToString & "#" & ID2 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL2_NODE.Tag = LevelEntity2 & "-CONTROL-ID" & controlID2.ToString & "#" & ID2
End If
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity2 Then
Exit For
End If
index += 1
Next
LEVEL2_NODE.ImageIndex = index
LEVEL2_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL1_NODE.Nodes.Add(LEVEL2_NODE)
'### LEVEL 3 laden #######
Dim expressionLevel3 As String
expressionLevel3 = "PARENT_GUID = " & ID2 'TYPE_NODE = 3 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel3() As DataRow
foundRowsLevel3 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel3)
Dim l As Integer
For l = 0 To foundRowsLevel3.GetUpperBound(0)
Dim ID3 = foundRowsLevel3(l)("GUID")
Dim LevelEntity3 = foundRowsLevel3(l)("ENTITY_ID")
Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID")
Dim nodetext3 = foundRowsLevel3(l)("NODE_CAPTION")
RECORD_ID = foundRowsLevel3(l)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel3(l)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL3_NODE As TreeNode
LEVEL3_NODE = New TreeNode(nodetext3)
If Not IsDBNull(RECORD_ID) Then
LEVEL3_NODE.Tag = LevelEntity3 & "-CONTROL-ID" & controlID3.ToString & "#" & ID3 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL3_NODE.Tag = LevelEntity3 & "-CONTROL-ID" & controlID3.ToString & "#" & ID3
End If
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity3 Then
Exit For
End If
index += 1
Next
LEVEL3_NODE.ImageIndex = index
LEVEL3_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL2_NODE.Nodes.Add(LEVEL3_NODE)
'### LEVEL 4 laden #######
Dim expressionLevel4 As String
expressionLevel4 = "PARENT_GUID = " & ID3 'TYPE_NODE = 4 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel4() As DataRow
foundRowsLevel4 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel4)
Dim m As Integer
For m = 0 To foundRowsLevel4.GetUpperBound(0)
Dim ID5 = foundRowsLevel4(m)("GUID")
Dim LevelEntity5 = foundRowsLevel4(m)("ENTITY_ID")
Dim controlID5 = foundRowsLevel4(m)("CONTROL_ID")
Dim nodetext5 = foundRowsLevel4(m)("NODE_CAPTION")
RECORD_ID = foundRowsLevel4(m)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel4(m)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL4_NODE As TreeNode
LEVEL4_NODE = New TreeNode(nodetext5)
If Not IsDBNull(RECORD_ID) Then
LEVEL4_NODE.Tag = LevelEntity5 & "-CONTROL-ID" & controlID5.ToString & "#" & ID5 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL4_NODE.Tag = LevelEntity5 & "-CONTROL-ID" & controlID5.ToString & "#" & ID5
End If
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity5 Then
Exit For
End If
index += 1
Next
LEVEL4_NODE.ImageIndex = index
LEVEL4_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL3_NODE.Nodes.Add(LEVEL4_NODE)
'### LEVEL 5 laden #######
Dim expressionLevel5 As String
expressionLevel5 = "PARENT_GUID = " & ID5 'TYPE_NODE = 5 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel5() As DataRow
foundRowsLevel5 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel5)
Dim n As Integer
For n = 0 To foundRowsLevel5.GetUpperBound(0)
Dim ID6 = foundRowsLevel5(n)("GUID")
Dim LevelEntity6 = foundRowsLevel5(n)("ENTITY_ID")
Dim controlID6 = foundRowsLevel5(n)("CONTROL_ID")
Dim nodetext6 = foundRowsLevel5(n)("NODE_CAPTION")
RECORD_ID = foundRowsLevel5(n)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel5(n)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL5_NODE As TreeNode
LEVEL5_NODE = New TreeNode(nodetext6)
If Not IsDBNull(RECORD_ID) Then
LEVEL5_NODE.Tag = LevelEntity6 & "-CONTROL-ID" & controlID6.ToString & "#" & ID6 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL5_NODE.Tag = LevelEntity6 & "-CONTROL-ID" & controlID6.ToString & "#" & ID6
End If
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity6 Then
Exit For
End If
index += 1
Next
LEVEL5_NODE.ImageIndex = index
LEVEL5_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL4_NODE.Nodes.Add(LEVEL5_NODE)
'### LEVEL 5 laden #######
Dim expressionLevel6 As String
expressionLevel6 = "PARENT_GUID = " & ID6 'TYPE_NODE = 6 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel6() As DataRow
foundRowsLevel6 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel6)
Dim o As Integer
For o = 0 To foundRowsLevel6.GetUpperBound(0)
Dim ID7 = foundRowsLevel6(o)("GUID")
Dim LevelEntity7 = foundRowsLevel6(o)("ENTITY_ID")
Dim controlID7 = foundRowsLevel6(o)("CONTROL_ID")
Dim nodetext7 = foundRowsLevel6(o)("NODE_CAPTION")
RECORD_ID = foundRowsLevel6(o)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel6(o)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL6_NODE As TreeNode
LEVEL6_NODE = New TreeNode(nodetext7)
If Not IsDBNull(RECORD_ID) Then
LEVEL6_NODE.Tag = LevelEntity7 & "-CONTROL-ID" & controlID7.ToString & "#" & ID7 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL6_NODE.Tag = LevelEntity7 & "-CONTROL-ID" & controlID7.ToString & "#" & ID7
End If
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity7 Then
Exit For
End If
index += 1
Next
LEVEL6_NODE.ImageIndex = index
LEVEL6_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL5_NODE.Nodes.Add(LEVEL6_NODE)
'### LEVEL 7 laden #######
Dim expressionLevel7 As String
expressionLevel7 = "PARENT_GUID = " & ID7 'TYPE_NODE = 7 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel7() As DataRow
foundRowsLevel7 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel7)
Dim p As Integer
For p = 0 To foundRowsLevel7.GetUpperBound(0)
Dim ID8 = foundRowsLevel7(p)("GUID")
Dim LevelEntity8 = foundRowsLevel7(p)("ENTITY_ID")
Dim controlID8 = foundRowsLevel7(p)("CONTROL_ID")
Dim nodetext8 = foundRowsLevel7(p)("NODE_CAPTION")
RECORD_ID = foundRowsLevel7(p)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel7(p)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL7_NODE As TreeNode
LEVEL7_NODE = New TreeNode(nodetext8)
If Not IsDBNull(RECORD_ID) Then
LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8
End If
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity8 Then
Exit For
End If
index += 1
Next
LEVEL7_NODE.ImageIndex = index
LEVEL7_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL6_NODE.Nodes.Add(LEVEL7_NODE)
'### LEVEL 7 laden #######
Dim expressionLevel8 As String
expressionLevel8 = "PARENT_GUID = " & ID8 'TYPE_NODE = 7 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel8() As DataRow
foundRowsLevel8 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel8)
Dim q As Integer
For q = 0 To foundRowsLevel8.GetUpperBound(0)
Dim ID9 = foundRowsLevel8(q)("GUID")
Dim LevelEntity9 = foundRowsLevel8(q)("ENTITY_ID")
Dim controlID9 = foundRowsLevel8(q)("CONTROL_ID")
Dim nodetext9 = foundRowsLevel8(q)("NODE_CAPTION")
RECORD_ID = foundRowsLevel8(q)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel8(q)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL8_NODE As TreeNode
LEVEL8_NODE = New TreeNode(nodetext9)
If Not IsDBNull(RECORD_ID) Then
LEVEL8_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9 & "#RECORD-ID" & RECORD_ID.ToString
Else
LEVEL8_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9
End If
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity9 Then
Exit For
End If
index += 1
Next
LEVEL8_NODE.ImageIndex = index
LEVEL8_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL7_NODE.Nodes.Add(LEVEL8_NODE)
'### LEVEL 8 laden #######
Next ' Level 7 Ende
Next ' Level 7 Ende
Next ' Level 6 Ende
Next ' Level 5 Ende
Next 'Level 4 Ende
Next 'Level 3 Ende
Next ' Level 2 Ende
Next 'Level 1 Ende
Next
Else
MsgBox("Check the Control Navigation Option or inform Digital Data!", MsgBoxStyle.Critical)
Me.Close()
End If
Else
' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
Dim query1 = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Order By form.Item("SEQUENCE")
Where form.Item("PARENT_ID") = 0
Dim Rows1 = query1.ToList()
For Each LEVEL1ROW In Rows1
Dim LEVEL0_NODE As TreeNode
Dim LEVEL2_NODE As TreeNode
'################## LEVEL 1 wird geladen ###########################
Dim LEVEL1_TITLE = LEVEL1ROW.Item("CAPTION").ToString
Dim NODE1_ENTITY_ID = LEVEL1ROW.Item("FORM_ID").ToString
Dim ENTITY_ID = LEVEL1ROW.Item("FORM_ID")
' Rootnode erstellen und taggen
LEVEL0_NODE = New TreeNode(LEVEL1_TITLE)
LEVEL0_NODE.Tag = NODE1_ENTITY_ID
' TreeView Rootnode einfügen
TreeViewMain.Nodes.Add(LEVEL0_NODE)
'################## LEVEL 2 wird geladen #########
Dim LEVEL1_NODE As TreeNode
Dim query2 = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Order By form.Item("SEQUENCE")
Where form.Item("PARENT_ID") = NODE1_ENTITY_ID
Dim Rows2 = query2.ToList()
For Each Row2 In Rows2
Dim LEVEL2_TITLE As String = Row2.Item("CAPTION").ToString
Dim LEVEL2_ID As Integer = Row2.Item("FORM_ID")
Dim LEVEL2_PARENT_ID As Integer = Row2.Item("PARENT_ID")
' Node erstellen..
LEVEL1_NODE = New TreeNode(LEVEL2_TITLE)
LEVEL1_NODE.Tag = LEVEL2_ID
' ..und einfügen
LEVEL0_NODE.Nodes.Add(LEVEL1_NODE)
'##### LEVEL 3 wird geladen #########
Dim query3 = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Order By form.Item("SEQUENCE")
Where form.Item("PARENT_ID") = LEVEL2_ID
Dim Rows3 = query3.ToList()
For Each Row3 In Rows3
Dim LEVEL3_TITLE As String = Row3.Item("CAPTION")
Dim LEVEL3_ID As Integer = Row3.Item("FORM_ID")
' Node erstellen..
LEVEL2_NODE = New TreeNode(LEVEL3_TITLE)
LEVEL2_NODE.Tag = LEVEL3_ID
' ..und einfügen
LEVEL1_NODE.Nodes.Add(LEVEL2_NODE)
Next
Next
Next
End If
If NODE_NAVIGATION = False Then
TreeViewMain.ExpandAll()
End If
TreeViewMain.Nodes(0).EnsureVisible()
sw.Done()
Catch ex As Exception
MsgBox("Unexpected Error in Load TreeView:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Create_variable_node()
End Sub
Private Function Return_ENTITY_FOR_TAG(NodeString As String)
If IsNumeric(NodeString) Then
Return NodeString
Else
If NodeString.Contains("CONTROL-ID") Then
Try
Dim _index = NodeString.IndexOf("C")
Dim Entity = NodeString.Substring(0, _index)
Entity = Entity.Replace("-", "")
Entity = Entity.Replace("#", "")
Return Entity
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Return_ENTITY_FOR_TAG ('" & NodeString & "'): " & ex.Message, True)
Return 0
End Try
End If
End If
End Function
Private Function Return_RECORD_forTag(NodeString As String)
If IsNumeric(NodeString) Then
Return NodeString
Else
Dim staticListItems = NodeString.Split("#")
If staticListItems(2).Contains("RECORD-ID") Then
Try
Dim _RECORD = staticListItems(2).ToString.Replace("RECORD-ID", "")
If IsNumeric(_RECORD) Then
Return _RECORD
Else
Return 0
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Return_RECORD_forTag ('" & NodeString & "'): " & ex.Message, True)
Return 0
End Try
Else
Return 0
End If
End If
End Function
Sub Load_Datafor_Entity()
Try
If NODE_NAVIGATION = True Then
If NODE_NAVIGATION_LOADED = True Then
Exit Sub
Else
NODE_NAVIGATION_LOADED = True
End If
End If
Dim sw As New Stopwatch
sw.Start()
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then
ENTITY_LOADED = False
ENTITY_ID = Return_ENTITY_FOR_TAG(SelectedNode.Tag)
CURRENT_FORM_ID = ENTITY_ID
Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Where form.Item("FORM_ID") = ENTITY_ID).Single()
CONSTRUCTOR_DETAIL_ID = result.Item("GUID")
If NODE_NAVIGATION = True Then
If SelectedNode.Tag.ToString.Contains("RECORD_ID") Then
Console.WriteLine("Record beinhaltet")
End If
Console.WriteLine("CONTROL Navigacion")
Else
Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode)
ACT_EBENE = 2
CURRENT_ACT_LEVEL = 2
If parentNode IsNot Nothing Then
Dim grandParentNode As TreeNode = TryCast(parentNode.Parent, TreeNode)
If grandParentNode IsNot Nothing Then
ACT_EBENE = 3
CURRENT_ACT_LEVEL = 3
End If
Else
ACT_EBENE = 1
CURRENT_ACT_LEVEL = 1
End If
End If
' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
Dim query2 = From form In DT_WORKFLOWS_MANUAL.AsEnumerable()
Select form Where form.Item("ENTITY_ID") = ENTITY_ID
Dim Rows = query2.ToList()
_MANUAL_WORKFLOW = False
For Each _row In Rows
_MANUAL_WORKFLOW = _row.Item("MANUALLY")
Next
Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds
If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Datafor_Entity1 took " & Format(elapsed, "0.000000000") & " seconds", False)
If NODE_NAVIGATION = True Then
If SelectedNode.Tag.ToString.Contains("RECORD_ID") Then
Console.WriteLine("Record beinhaltet")
End If
Console.WriteLine("CONTROL Navigacion")
Else
Get_RecordCounts_Nodes()
End If
Load_Entity_Data(ACT_EBENE)
sw.Stop()
sw.Reset()
elapsed = elapsed - sw.Elapsed.TotalSeconds
If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Datafor_Entity2 took " & Format(elapsed, "0.000000000") & " seconds", False)
End If
Catch ex As Exception
MsgBox("Unexpected Error in Load_Datafor_Entity:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Sub Get_RecordCounts_Nodes()
Try
If NODE_NAVIGATION = True Then
Exit Sub
End If
Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim a As Integer = 0
For Each childNodeLevel1 As TreeNode In selnode.Nodes
Dim PARENT_ID1 As Integer
Dim TYPE_ID1 As Integer
If a = 0 Then
Dim sql As String = "SELECT PARENT_ID, FORM_TYPE_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & Return_ENTITY_FOR_TAG(childNodeLevel1.Tag) & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "ShowNodeAmounts")
PARENT_ID1 = DT.Rows(0).Item(0)
TYPE_ID1 = DT.Rows(0).Item(1)
End If
If TYPE_ID1 <> 5 Then
If childNodeLevel1.Text = "Allgemein" Then
Console.WriteLine("Allgemein-Reiter")
End If
Dim result As Integer = ReturnAmountofRecords(Return_ENTITY_FOR_TAG(childNodeLevel1.Tag))
If result <> 99999999 Then
Dim origtext As String = childNodeLevel1.Text
If origtext.Contains(" (") Then
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
childNodeLevel1.Text = existingstring & " (" & result.ToString & ")"
Else
childNodeLevel1.Text = childNodeLevel1.Text & " (" & result.ToString & ")"
End If
End If
For Each childNodeLevel2 As TreeNode In childNodeLevel1.Nodes
Dim origtext As String = childNodeLevel2.Text
If origtext.Contains(" (") Then
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
childNodeLevel2.Text = existingstring
End If
For Each childNodeLevel3 As TreeNode In childNodeLevel2.Nodes
Dim origtext1 As String = childNodeLevel3.Text
If origtext1.Contains(" (") Then
Dim existingstring = origtext1.Substring(0, origtext1.IndexOf("(") - 1)
childNodeLevel1.Text = existingstring
End If
Next
Next
a += 1
End If
Next
Catch ex As Exception
MsgBox("Error in Get_RecordCounts_Nodes:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Function ReturnAmountofRecords(EntityID As Integer)
' Statt eine Table zurückzugeben, können wir die anzahl der Zeilen auch in der Datenbank berechnen,
' dadurch wird die Abfrage um einiges schneller
Dim SQL As String = "SELECT COUNT(*) FROM ( SELECT T.* FROM VWTEMP_PMO_FORM" & EntityID & " AS T,TBPMO_RECORD_CONNECT T1 WHERE T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = @RecordID ) x"
'Abhängig von der Entität dieAnzahl der Datensätze laden
Select Case ACT_EBENE
Case 1
If EBENE1_RECID = 0 Then
Return 99999999
End If
'_sql = _sql.Replace("@RecordID", EBENE1_RECID)
SQL = SQL.Replace("@RecordID", EBENE1_RECID)
Case 2
If EBENE2_RECID = 0 Then
Return 99999999
End If
If EBENE1_RECID = 0 Then
End If
'_sql = _sql.Replace("@RecordID", EBENE2_RECID)
SQL = SQL.Replace("@RecordID", EBENE2_RECID)
Case 3
If EBENE3_RECID = 0 Then
Return 99999999
End If
'_sql = _sql.Replace("@RecordID", EBENE2_RECID)
SQL = SQL.Replace("@RecordID", EBENE2_RECID)
End Select
'Dim DT2 As DataTable = ClassDatabase.Return_Datatable(_sql, "ReturnAmountofRecords 1")
Dim count As Integer = ClassDatabase.Execute_Scalar(SQL, True)
Return count
End Function
#End Region
#Region "Status Bar"
Public Sub Update_Status_Label(visible As Boolean, Optional text As String = "", Optional state As EditState = EditState.None)
tsslblStatus.Text = text
tsslblStatus.Visible = visible
Select Case state
Case EditState.Insert
tsslblStatus.BackColor = Color.Yellow
Case EditState.Update
tsslblStatus.BackColor = Color.LightBlue
Case Else
tsslblStatus.BackColor = Color.LightGray
End Select
End Sub
Public Sub Update_Record_Label(RecordId As Integer)
Dim SQL As String = "SELECT 'Added by ' + ADDED_WHO + ' when ' + CONVERT(VARCHAR(16),ADDED_WHEN,20) + ', Changed by ' + COALESCE(CHANGED_WHO,'') + ' when ' + COALESCE(CONVERT(VARCHAR(16),CHANGED_WHEN,20),'') FROM TBPMO_RECORD WHERE GUID = " & RecordId
Dim result = ClassDatabase.Execute_Scalar(SQL)
If IsDBNull(result) Or IsNothing(result) Then
tsslblRecord.Visible = False
Else
If FORM_TYPE = 5 Then
tsslblRecord.Text = String.Format("Group-Record ({0}) - {1}", RecordId, result.ToString)
Else
If IS_SINGLE_RECORD = True Then
tsslblRecord.Text = String.Format("Single-Record ({0}) - {1}", RecordId, result.ToString)
Else
tsslblRecord.Text = String.Format("Record ({0}) - {1}", RecordId, result.ToString)
End If
End If
tsslblRecord.Text = tsslblRecord.Text.Replace(", Changed by when ", "")
tsslblRecord.Visible = True
End If
End Sub
#End Region
#Region "Controls"
Sub Load_Controls(frmview_id As Integer)
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
FORMVIEW_ID = frmview_id
ENTITY_ID = DT_TBPMO_FORM_VIEW.Rows(0).Item("FORM_ID") 'ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & frmview_id)
CtrlBuilder = New ClassControlBuilder(pnlDetails)
'LoadControls(thisFormId)
CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
ContextMenuDetails,
AddressOf NewEditAppointment) ',
'AddressOf OpenFormData)
CtrlCommandUI.LoadControls(ENTITY_ID)
Lock_RecordControls(True)
' pnlDetails.Enabled = False
AddHandler CtrlBuilder.OnRecordChanged, AddressOf OnRecordChanged
AddHandler CtrlBuilder.OnMouseHover, AddressOf HandleToolTip
elapsed = sw.Elapsed.TotalSeconds
If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Controls took " & Format(elapsed, "0.000000000") & " seconds", False)
sw.Stop()
sw.Reset()
End Sub
Private Sub HandleToolTip(sender As Object, e As EventArgs)
Dim control As Control = DirectCast(sender, Control)
Dim id As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
Dim hint = ClassControlValueCache.LoadHint(id)
If Not IsNothing(hint) Then
'show hint
Console.WriteLine("Showing hint: " & hint)
ToolTipController.ShowHint(hint.ToString, ToolTipLocation.RightCenter)
Else
ToolTipController.HideHint()
End If
End Sub
Private Sub OnRecordChanged(sender As Object, e As System.EventArgs)
If ENTITY_LOADED Then
RECORD_CHANGED = True
End If
End Sub
#End Region
#Region "DetailView - Toolstrip"
Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click
' Vor dem Hinzufügen muss der EditMode auf jeden Fall ausgeschaltet werden!!
DisableEditMode()
'Wenn es eine Parent_ID gibt aber kein PArent_Datensatz ausgewählt wurde muss dies nachgeholt werden
If PARENT_ENTITYID > 0 Then
If PARENT_SKIPPED = True And PARENT_RECORDID = 0 Then
Dim msg = "Achtung es wurde noch kein Parent-Datensatz ausgewählt! Bitte wählen Sie einen Datensatz aus!"
If USER_LANGUAGE <> "de-DE" Then
msg = "Attention: No parent-record was selected! Please choose a parent record!"
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
Try
Dim sql
sql = "select * from VWTEMP_PMO_FORM" & PARENT_ENTITYID.ToString
CURRENT_PARENT_DT = ClassDatabase.Return_Datatable(sql, "VariableSelect ParentEntity")
frmChooseParentRecord.ShowDialog()
If CURRENT_PARENT_RECORD_ID = 0 Then
MsgBox("No Parent-Record selected. Adding will be terminated.", MsgBoxStyle.Exclamation)
Exit Sub
End If
PARENT_RECORDID = CURRENT_PARENT_RECORD_ID
Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gesetzt werden ####
Case 1
EBENE1_RECID = CURRENT_PARENT_RECORD_ID
Case 2
EBENE1_RECID = CURRENT_PARENT_RECORD_ID
Case 3
EBENE2_RECID = CURRENT_PARENT_RECORD_ID
End Select
Catch ex As Exception
MsgBox("Fehler bei Load_ParentConnections:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End If
Me.Cursor = Cursors.WaitCursor
Try
If TCDetails.SelectedTabPage.Text.StartsWith("Pos") = False Then
SELECTED_RECORD_ID = 0
Lock_RecordControls(False)
tsButtonCancel.Visible = True
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
' Den Record anlegen, damit wir eine RECORD_ID bekommen
ClassControlCommandsUI.CreateRecord(ENTITY_ID)
' Die RECORD_ID auslesen und setzen
NEW_RECORD_ID = ClassControlCommandsUI.GetLastRecord()
CURRENT_RECORD_ID = NEW_RECORD_ID
RECORD_ID = NEW_RECORD_ID
SELECTED_RECORD_ID = NEW_RECORD_ID
If PARENT_ENTITYID > 0 And PARENT_RECORDID > 0 Then
If ClassControlCommandsUI.ConnectRecord(PARENT_RECORDID, CURRENT_RECORD_ID, "INSERT RECORD") = False Then
MsgBox("Unexpected Error in Connect Record - Please check the logfile and inform the admin!", MsgBoxStyle.Critical)
End If
End If
ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ENTITY_ID, ENTITY_ID)
ClassControlValues.Enable_Depending_Controls(ENTITY_ID, RECORD_ID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID)
' Das StatusLabel aktualisieren
Update_Record_Label(NEW_RECORD_ID)
' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
tsButtonSave.Enabled = True
' Muss aktiviert werden, sonst funktionieren die Combobox Abhängigkeits Events nicht
CURRENT_RECORD_ENABLED = True
' EDIT_STATE muss hier (immer?) Update sein, sonst wird beim Speichern noch ein Datensatz angelegt
EDIT_STATE = EditState.Update
RECORD_CHANGED = True
'tsslblRecord.Text = "Adding record ......"
RIGHT_ONLY_READ = False
tslblLocked.Visible = False
tslblFileslocked.Visible = False
tsButtonAdd.Enabled = False
End If
Catch ex As Exception
MsgBox("Unexpected Error in Insert: " & ex.Message)
Finally
Me.Cursor = Cursors.Default
' IsInsert muss true sein, damit wir wissen ob wir bei
' Abbruch den Record Wieder löschen können
CtrlCommandUI.IsInsert = True
End Try
End Sub
Private Sub tsButtonSave_Click(sender As Object, e As EventArgs) Handles tsButtonSave.Click
Save_Record()
End Sub
Sub Focus_Control(name As String)
Dim controls As Control.ControlCollection = pnlDetails.Controls
For Each c As Control In controls
Dim tag As Object = c.Tag
Dim controlName As String = DirectCast(tag, ClassControlMetadata).Name
If controlName = name Then
c.Focus()
Exit Sub
End If
Next
End Sub
Function Save_Record()
Try
Me.Cursor = Cursors.WaitCursor
SAVE_ROUTINE_ACTIVE = True
Save_Grid_Layout()
If CtrlCommandUI.IsInsert Then
EDIT_STATE = EditState.Insert
Else
EDIT_STATE = EditState.Update
NEW_RECORD_ID = 0
If Not RECORD_CHANGED Then
Update_Status_Label(True, "NO CHANGES in Record.")
Me.Cursor = Cursors.Default
Return True
End If
End If
If TrySave_User() = False Then
' Cursor zurücksetzen
Me.Cursor = Cursors.Default
Return False
End If
Dim recid As Integer
'If EDIT_STATE = EditState.Update Then
' recid = RECORD_ID
'Else
' recid = NEW_RECORD_ID
'End If
recid = CURRENT_RECORD_ID
SELECTED_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
Return False
End If
If EDIT_STATE = EditState.Insert Then
Select Case ACT_EBENE
Case 1
EBENE1_RECID = recid
For Each row As DataRow In DT_SELECTION.Rows
If row.Item("Record-ID") = SELECTED_RECORD_ID Then
EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME)
End If
Next
Case 2
EBENE2_RECID = recid
For Each row As DataRow In DT_SELECTION.Rows
If row.Item("Record-ID") = SELECTED_RECORD_ID Then
EBENE2_GRID_RESULT = row.Item(EBENE2_COLUMNNAME)
End If
Next
If EBENE1_RECID = 0 Then
'Bis jetzt konnte noch keine Parent-ID angelegt werden!
MsgBox("Attention: no parent-link was created!", MsgBoxStyle.Exclamation)
'Show_Verknuepfungen()
End If
End Select
'Dim exec = String.Format("EXEC PRPMO_CLIENT_AFTER_RECORD_INSERT {0}", CURRENT_RECORD_ID)
'ClassDatabase.Execute_non_Query_withConn(exec, 1)
ElseIf EDIT_STATE = EditState.Update Then
'Weil es ein Insert war müssen noch die Daten gespeichert/erneuert werden
Select Case ACT_EBENE
Case 1
EBENE1_RECID = recid
For Each row As DataRow In DT_SELECTION.Rows
If row.Item("Record-ID") = SELECTED_RECORD_ID Then
If EBENE1_COLUMNNAME = "" Then
EBENE1_GRID_RESULT = "No Column configured"
Else
EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
' EBENE1_GRID_RESULT = row.Item(EBENE1_COLUMNNAME)
End If
End If
Next
Case 2
EBENE2_RECID = recid
For Each row As DataRow In DT_SELECTION.Rows
If row.Item("Record-ID") = SELECTED_RECORD_ID Then
If EBENE2_COLUMNNAME = "" Then
EBENE2_GRID_RESULT = "No Column configured"
Else
EBENE2_GRID_RESULT = row.Item(EBENE2_COLUMNNAME)
End If
End If
Next
End Select
End If
'Jetzt den Record nochmal laden
' Show_Selected_Record_Data(SELECTED_RECORD_ID)
Update_Status_Label(True, "Record saved - " & Now, EditState.Update)
Update_Record_Label(SELECTED_RECORD_ID)
DT_FORM = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
Dim FORM_TYPE = DT_FORM.Rows(0).Item("FORM_TYPE_ID") 'ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
Dim IS_SINGLE_RECORD = DT_FORM.Rows(0).Item("SINGLE_RECORD") 'ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
CURRENT_DATE_FORMAT = USER_DATE_FORMAT
If IS_SINGLE_RECORD = False Then
If FORM_TYPE <> 5 Then
If EDIT_STATE = EditState.Insert Then
'Die Daten neu laden
Load_Entity_Data_Only()
LocateRecordById(RECORD_ID)
'Get_Grid_Row_Handle(NEW_RECORD_ID)
Else
'Die Daten neu laden
Load_Entity_Data_Only()
'Get_Grid_Row_Handle(RECORD_ID)
LocateRecordById(RECORD_ID)
'Die Daten auf dem Panel laden
'ClassControlValues.LoadControlValues(RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False
End If
End If
End If
Catch ex As Exception
MsgBox("Error in Save Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
tsButtonAdd.Enabled = True
If CtrlCommandUI.IsInsert Then
tsButtonSave.Enabled = False
tsButtonCancel.Visible = False
Else
' DisableEditMode()
End If
CtrlCommandUI.IsInsert = False
EDIT_STATE = EditState.None
RECORD_CHANGED = False
SAVE_ROUTINE_ACTIVE = False
Me.Cursor = Cursors.Default
Return True
End Function
Sub Delete_Record()
Dim msg = "Sind Sie sicher, dass Sie diesen Record/Datensatz löschen wollen?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Are You sure You want to delete the selected record?"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
If ClassHelper.DeleteRecord(SELECTED_RECORD_ID) = True Then
RECORD_CHANGED = False
EDIT_STATE = EditState.None
CURRENT_RECORD_ENABLED = False
' Update_Record_Label(SELECTED_RECORD_ID)
msg = "Der Datensatz '" & SELECTED_RECORD_ID & "' wurde erfolgreich gelöscht - " & Now
If USER_LANGUAGE <> "de-DE" Then
msg = "The record and all dependencies for '" & SELECTED_RECORD_ID & "' were deleted - " & Now
End If
Update_Status_Label(True, msg, EditState.Update)
WD_DELETE_DOCS()
SELECTED_RECORD_ID = 0
RECORD_ID = 0
CURRENT_RECORD_ID = 0
RECORD_CHANGED = False
'Den derzeitigen Record Neuladen
DisableEditMode()
Load_Entity_Data(ACT_EBENE)
RECORD_CHANGED = False
Else
msg = "Der Datensatz '" & SELECTED_RECORD_ID & "' konnte nicht gelöscht werden. Überprüfen Sie das log"
If USER_LANGUAGE <> "de-DE" Then
msg = "The record '" & SELECTED_RECORD_ID & "' could not be deleted. Check the log"
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
End If
End If
End Sub
Private Sub tsButtonDelete_Click(sender As Object, e As EventArgs) Handles tsButtonDelete.Click
Delete_Record()
End Sub
Private Sub tsButtonEditMode_Click(sender As Object, e As EventArgs) Handles tsButtonEdit.Click
ToggleEditMode()
End Sub
Sub ToggleEditMode()
If RECORD_ENABLED = False Then
EnableEditMode()
Else
'If RECORD_CHANGED = True Then
' Dim ResultMessage As String
' Try
' ResultMessage = Update_Record_OnChange()
' Catch ex As Exception
' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in saving Record")
' Me.Cursor = Cursors.Default
' Exit Sub
' End Try
'End If
If TrySave_Automatic() = True Then
DisableEditMode()
End If
End If
End Sub
Sub EnableEditMode()
Dim EditingUser = ClassRecordState.IsRecordLocked(SELECTED_RECORD_ID)
' Überprüfen, ob der Record gerade bearbeitet wird
If Not IsNothing(EditingUser) And EditingUser <> Environment.UserName Then
tslblLocked.Visible = True
If USER_LANGUAGE = "de-DE" Then
MsgBox(String.Format("Dieser Datensatz wird gerade vom Benutzer '{0}' bearbeitet und kann nur lesend abgerufen werden.", EditingUser), MsgBoxStyle.Exclamation)
Else
MsgBox(String.Format("This Record is currently being edited by User '{0}' and only available in Read-Only mode.", EditingUser), MsgBoxStyle.Exclamation)
End If
' Wenn Record bearbeitet wird, EnableEditMode abbrechen!
Exit Sub
Else
'Wenn Record bearbeitet werden kann, IN_WORK auf 1 setzen, um Bearbeitung durch andere zu verhindern!
ClassRecordState.LockRecord(SELECTED_RECORD_ID)
End If
CURRENT_CHANGE_STEP += 1
Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE_CHANGE_HISTORY WHERE UPPER(ADDED_WHO) = '{0}'", Environment.UserName.ToUpper)
ClassDatabase.Execute_non_Query(del)
Lock_RecordControls(False)
tsmi_RecordDelete.Enabled = True
MassenänderungToolStripMenuItem.Enabled = True
Me.tsButtonAdd.Enabled = False
Me.tsButtonSave.Enabled = True
tsbtnRedo.Visible = True
Dim stg As String
If USER_LANGUAGE = "de-DE" Then
stg = "Bearbeiten beenden"
Else
stg = "End Working"
End If
Me.tsButtonEdit.Text = stg
If RIGHT_ONLY_READ = False Then
tsButtonDelete.Enabled = True
End If
CURRENT_RECORD_ID = RECORD_ID
' Abhängige Listen laden
CtrlBuilder.WatchRecordChanges = False
'ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls, ENTITY_ID)
ClassControlValues.Enable_Depending_Controls(ENTITY_ID, RECORD_ID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID)
CtrlBuilder.WatchRecordChanges = True
RECORD_ENABLED = True
CURRENT_RECORD_ENABLED = True
pnlDetails.Focus()
'If RECORD_ENABLED = False Then
' ClassControlValues.LoadControlValuesList(SELECTED_RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
'End If
End Sub
Sub DisableEditMode()
ClassRecordState.UnlockRecord(SELECTED_RECORD_ID)
tsbtnRedo.Visible = False
Lock_RecordControls(True)
RECORD_ENABLED = False
CURRENT_RECORD_ENABLED = False
' Me.pnlDetails.Enabled = False
Me.tsButtonDelete.Enabled = False
Me.tsButtonAdd.Enabled = True
Me.tsButtonSave.Enabled = False
Dim stg As String
If USER_LANGUAGE = "de-DE" Then
stg = "Bearbeiten"
Else
stg = "Edit record"
End If
Me.tsButtonEdit.Text = stg
Me.tsButtonEdit.Text = stg
'Funktion nur zum load der Inhalte
If RECORD_ENABLED = True Then
ClassControlValues.UnloadControlValuesList(SELECTED_RECORD_ID, RECORD_ID, CtrlBuilder.AllControls)
End If
End Sub
#End Region
#Region "Appointments"
Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Try
Dim ctrl As Control = sender
ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, ENTITY_ID, RECORD_ID, pnlDetails.Controls)
Catch ex As Exception
MsgBox("Error in OpenEditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub EditAppointment(ByVal sender As Control, FormID As Integer)
Try
' Load All appointments first
frmCalendar.TBPMO_RESOURCESTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_RESOURCES)
frmCalendar.TBPMO_APPOINTMENTSTableAdapter.Fill(frmCalendar.DD_DMSDataSetCalendar.TBPMO_APPOINTMENTS)
Dim apt As Appointment = frmCalendar.SchedulerStorage1.Appointments.Items.Find(AddressOf FindAppointment)
If apt IsNot Nothing Then
frmCalendar.SchedulerControl1.ShowEditAppointmentForm(apt)
End If
Catch ex As Exception
MsgBox("Error in EditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Function FindAppointment(ByVal apt As Appointment) As Boolean
Return Convert.ToInt32(apt.CustomFields("RecordID")) = SELECTED_RECORD_ID
End Function
#End Region
Sub GetSet_Rights()
Try
Dim sel = String.Format("SELECT DISTINCT EDIT_REC,ADD_REC,DELETE_REC,ADD_DOC,VIEW_DOC,DELETE_DOC FROM TBPMO_RIGHT_GROUP WHERE ENTITY_ID = {0} AND GROUP_ID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {1})", ENTITY_ID, USER_GUID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Select Rightsmanagement " & sel, False)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel, "GetSet_Rights")
If DT.Rows.Count > 0 Then
For Each row As DataRow In DT.Rows
'RIGHT_EDIT_R = True
'RIGHT_ADD_R = True
'RIGHT_DELETE_R = False
'RIGHT_ADD_DOC = True
'RIGHT_VIEW_DOC = True
'RIGHT_DELETE_DOC = False
If RIGHT_EDIT_R = True And CBool(DT.Rows(0).Item(0)) = False Then
RIGHT_EDIT_R = False
ElseIf RIGHT_EDIT_R = False And CBool(DT.Rows(0).Item(0)) = True Then
RIGHT_EDIT_R = True
End If
If RIGHT_ADD_R = True And CBool(DT.Rows(0).Item(1)) = False Then
RIGHT_ADD_R = False
ElseIf RIGHT_EDIT_R = False And CBool(DT.Rows(0).Item(1)) = True Then
RIGHT_EDIT_R = True
End If
If RIGHT_DELETE_R = False And CBool(DT.Rows(0).Item(2)) = True Then
RIGHT_DELETE_R = True
ElseIf RIGHT_DELETE_R = False And CBool(DT.Rows(0).Item(2)) = False Then
RIGHT_DELETE_R = False
End If
If RIGHT_ADD_DOC = True And CBool(DT.Rows(0).Item(3)) = False Then
RIGHT_ADD_DOC = False
ElseIf RIGHT_ADD_DOC = False And CBool(DT.Rows(0).Item(3)) = True Then
RIGHT_ADD_DOC = True
End If
If RIGHT_VIEW_DOC = True And CBool(DT.Rows(0).Item(4)) = False Then
RIGHT_VIEW_DOC = False
ElseIf RIGHT_VIEW_DOC = True And CBool(DT.Rows(0).Item(4)) = False Then
RIGHT_VIEW_DOC = True
End If
If RIGHT_DELETE_DOC = False And CBool(DT.Rows(0).Item(5)) = True Then
RIGHT_DELETE_DOC = False
ElseIf RIGHT_DELETE_DOC = True And CBool(DT.Rows(0).Item(5)) = False Then
RIGHT_DELETE_DOC = True
End If
Next
End If
tsButtonSave.Visible = True
tsButtonAdd.Visible = True
tsButtonEdit.Visible = True
tsButtonDelete.Visible = True
tsmi_RecordDelete.Enabled = True
MassenänderungToolStripMenuItem.Enabled = True
If RIGHT_ADD_R = False Then
tsButtonAdd.Visible = False
End If
If RIGHT_EDIT_R = False Then
tsButtonEdit.Visible = False
MassenänderungToolStripMenuItem.Enabled = False
If RIGHT_ADD_R = False Then
tsButtonSave.Visible = False
End If
End If
If RIGHT_DELETE_R = False Then
tsButtonDelete.Visible = False
tsmi_RecordDelete.Enabled = False
End If
Catch ex As Exception
MsgBox("Error in GetSet_Rights:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Load_Entity_Data(ClickedLevel As Integer)
Try
Dim sw As New SW("Load_Entity_Data")
PARENT_SKIPPED = False
Me.Cursor = Cursors.WaitCursor
RECORD_CHANGED = False
RECORD_ID = 0
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
'Setzen von Rechten
'GetSet_Rights()
'VerknüpfungenToolStripMenuItem.Enabled = False
Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Where form.Item("FORM_ID") = ENTITY_ID).Single()
LOAD_DIRECT = result.Item("LOAD_DIRECT")
CURRENT_CONSTRUCTOR_DETAIL_ID = result.Item("GUID")
CONTROL_DOCTYPE_MATCH = result.Item("CONTROL_DOCTYPE_MATCH")
SQL_RIGHT_READ_AND_VIEW_ONLY = result.Item("SQL_RIGHT_READ_AND_VIEW_ONLY")
SQL_RIGHT_WINDREAM_FORBIDDEN = result.Item("SQL_RIGHT_WINDREAM_VIEW")
Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql_ResultList, "GETRESULTLIST KONFIG")
sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql_ResultList, "GETVARIABLE CONTROLS")
Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
Select form
Where form.Item("GUID") = ENTITY_ID).Single()
FORM_TYPE = ENTITY_ROW.Item("FORM_TYPE_ID")
IS_SINGLE_RECORD = ENTITY_ROW.Item("SINGLE_RECORD")
POS_ENTITY = ENTITY_ROW.Item("POS_ENTITY")
If VIEW_ID_RUNTIME <> -1 Then
GRID_TYPE_ID = VIEW_ID_RUNTIME
Else
Dim VIEW_ID = ClassDatabase.Execute_Scalar(String.Format("SELECT VIEW_ID FROM TBPMO_USER_CONSTR_VIEW_TYPE WHERE CONSTRUCTOR_DETAIL_ID = {0} AND [ENTITY_ID] = {1} AND USER_ID = {2}", CURRENT_CONSTRUCTOR_DETAIL_ID, ENTITY_ID, USER_GUID), True)
If IsNothing(VIEW_ID) Then
ClassDatabase.Execute_non_Query("INSERT INTO TBPMO_USER_CONSTR_VIEW_TYPE ([USER_ID],CONSTRUCTOR_DETAIL_ID,[ENTITY_ID]) VALUES (" & USER_GUID & "," & CURRENT_CONSTRUCTOR_DETAIL_ID & "," & ENTITY_ID & ")", True)
VIEW_ID = 1
End If
GRID_TYPE_ID = VIEW_ID
End If
' Den GridType setzen: 1=TileView,2=Carousel,3=GridView
Select Case GRID_TYPE_ID
Case 1
GRID_TYPE = GridType.Tiles
GridControlMain.MainView = grvwTiles
Case 2
GRID_TYPE = GridType.Carousel
GridControlMain.MainView = grvwCarousel
Case 3
GRID_TYPE = GridType.Grid
GridControlMain.MainView = grvwGrid
End Select
SELECTED_RECORD_ID = 0
Dim DT As DataTable
' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
Dim result1 = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Where form.Item("FORM_ID") = ENTITY_ID).Single()
PARENT_ENTITYID = result1.Item("PARENT_ID")
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
'Abhängig von der Entität die Selektierungs-Daten laden
Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID)
'Anzahl der Datensätze
ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where FORM_ID = " & ENTITY_ID, True)
Select Case ClickedLevel
Case 1
EBENE1_ENTITY = ""
EBENE1_RECID = 0
EBENE2_ENTITY = ""
EBENE2_RECID = 0
EBENE3_ENTITY = ""
EBENE3_RECID = 0
PARENT_RECORDID = 0
EBENE1_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE1_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 1 selected in TreeView", False)
'tslblEntity2.Visible = False
'tslblEntity3.Visible = False
Dim result2 = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Where form.Item("FORM_ID") = ENTITY_ID).Single()
EBENE1_COLUMNNAME = result2.Item("COLUMN_NAME1")
'EBENE1_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
EBENE2_COLUMNNAME = ""
EBENE3_COLUMNNAME = ""
EBENE2_GRID_RESULT = Nothing
EBENE3_GRID_RESULT = Nothing
'_sql = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID)
Case 2
'Dim Level1Select = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID)) 'ClassDatabase.Execute_Scalar("SELECT LEVEL1_SELECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND ENTITY_ID = " & ENTITY_ID)
'If CBool(Level1Select) = False And FORM_TYPE <> 5 And EBENE1_RECID = 0 Then
' MsgBox("Entität '" & TreeViewLevelSelect.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation)
' TreeViewLevelSelect.SelectedNode = TreeViewLevelSelect.SelectedNode.Parent
' Exit Sub
'End If
EBENE2_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE2_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 2 selected in TreeView", False)
EBENE3_ENTITY = ""
'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken
If EBENE1_RECID > 0 Then
PARENT_RECORDID = EBENE1_RECID
If GRID_TYPE = GridType.Grid Then
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & ENTITY_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_RECORDID
Else
_ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
_ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
_ENTITYSQL = _ENTITYSQL & " AND T.GUID = T2.RECORD2_ID AND T2.RECORD1_ID = @T2.RECORD1_ID"
_ENTITYSQL = _ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
End If
Else
SELECTED_RECORD_ID = 0
PARENT_RECORDID = 0
NavPane.Categories.Clear()
tsslblRecord.Text = ""
Update_Status_Label(True, "Entity 1 skipped - All Records loaded", EditState.Update)
PARENT_SKIPPED = True
End If
Dim result3 = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Where form.Item("FORM_ID") = ENTITY_ID).Single()
EBENE2_COLUMNNAME = result3.Item("COLUMN_NAME1")
'EBENE2_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
EBENE3_COLUMNNAME = ""
EBENE2_GRID_RESULT = Nothing
EBENE3_GRID_RESULT = Nothing
Case 3
EBENE3_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE3_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 3 selected in TreeView", False)
Dim result4 = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Where form.Item("FORM_ID") = ENTITY_ID).Single()
EBENE3_COLUMNNAME = result4.Item("COLUMN_NAME1")
'EBENE3_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
'Wenn bereits ein Record für Ebene 1 gewählt wurde dann eisnchränken
If EBENE2_RECID > 0 Then
'Parent-ID setzen
PARENT_RECORDID = EBENE2_RECID
Try
If GRID_TYPE = GridType.Grid Then
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & ENTITY_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_RECORDID
Else
_ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
_ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
_ENTITYSQL = _ENTITYSQL & " AND T.GUID = T2.RECORD2_ID AND T2.RECORD1_ID = @T2.RECORD1_ID"
_ENTITYSQL = _ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
End If
Catch ex As Exception
ClassLogger.Add("Error in Replacing patterns in entity_sql: " & ex.Message)
End Try
Else
SELECTED_RECORD_ID = 0
PARENT_RECORDID = 0
NavPane.Categories.Clear()
Update_Status_Label(True, "Entity 2 skipped - All Records loaded", EditState.Update)
tsslblRecord.Text = ""
PARENT_SKIPPED = True
End If
'Select Case FORM_TYPE
' Case 5
' If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID) = True Then
' EBENE3_RECID = RECORD_ID
' End If
'End Select
EBENE3_GRID_RESULT = Nothing
End Select
_ENTITYSTRING = ACT_EBENE_STRING
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
DT_TBPMO_FORM_VIEW = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
act_FormViewID = DT_TBPMO_FORM_VIEW.Rows(0).Item("GUID") 'ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & ENTITY_ID)
If EDIT_STATE = EditState.None Then
'Die Controls der Entität laden
Load_Controls(act_FormViewID)
tsButtonAdd.Enabled = True
'set_pnlsize()
End If
'Überprüfen ob windream Dos angezeigt werden sollen?
Check_windream_Show(act_FormViewID)
If windream_Docshow = True Then
If TCDetails.SelectedTabPageIndex = 1 Then
Me.GridControlDocSearch.DataSource = Nothing
If WD_ShowEnitityDocs = True Then
Clear_Windream_ResultList()
GridControlDocSearch.Visible = True
'RUN_WD_SEARCH("", "ENTITY")
RUN_WDSEARCH_GRID("ENTITY")
End If
End If
End If
If FORM_TYPE = 5 Or IS_SINGLE_RECORD = True Then
If GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORDID, True) = True Then
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
If IS_SINGLE_RECORD Then
Show_Selected_Record_Data(RECORD_ID, True)
Else
Refresh_Navpane()
Update_Record_Label(SELECTED_RECORD_ID)
End If
Get_RecordCounts_Nodes()
End If
' Hide_Grid_Columns()
If FORM_TYPE = 5 Then
TabDetails.PageVisible = False
Else
TabDetails.PageVisible = True
End If
Else
TabDetails.PageVisible = True
GridControlMain.Visible = True
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "LoadEntityData - Get DTEntity")
DTEntity.TableName = "VWTEMP_PMO_FORM" & ENTITY_ID
If IsNothing(DTEntity) Then
MsgBox("Unexpected Error in getting Entity-Data - Check Logfile", MsgBoxStyle.Critical)
Else
Dim SQL_AutoValues = "SELECT GUID AS CONTROL_ID, CONNECTION_ID_1 AS CONNECTION_ID, SQL_COMMAND_1 AS SQL_COMMAND FROM TBPMO_CONTROL WHERE CONNECTION_ID_1 <> '' AND SQL_COMMAND_1 <> '' AND FORM_ID = " & ENTITY_ID
Dim DT_AUTOVALUES As DataTable = ClassDatabase.Return_Datatable(SQL_AutoValues, "LoadAutoValues")
CURRENT_SQL_AUTO_VALUES_DT = DT_AUTOVALUES
If USER_WAN = True Then
Dim MyDataset As DataSet = New DataSet("MY_DATASET")
MyDataset.Tables.Add(DTEntity)
Console.WriteLine(DTEntity.TableName)
CURRENT_ENTITY_DATATABLE = DTEntity
Dim SQL_VALUES As String = "SELECT * FROM VWPMO_VALUES WHERE RECORD_ID IN (SELECT [Record-ID] FROM VWTEMP_PMO_FORM" & ENTITY_ID & ")"
Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL_VALUES, "LoadControlValues")
If Not IsNothing(DT_ControlValues) Then
DT_ControlValues.TableName = "VWTEMP_PMO_FORM" & ENTITY_ID & "_VALUES"
MyDataset.Tables.Add(DT_ControlValues)
CURRENT_ENTITY_VALUES_DT = DT_ControlValues
End If
End If
Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey
DT_SELECTION = DTEntity
LoadGrid_Selection()
If GRID_TYPE = GridType.Grid Then
grvwGrid.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.None
grvwGrid.OptionsBehavior.Editable = False
grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = False
grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = False
grvwGrid.OptionsSelection.EnableAppearanceHideSelection = False
ElseIf GRID_TYPE = GridType.Carousel Then
grvwCarousel.OptionsBehavior.Editable = False
ElseIf GRID_TYPE = GridType.Tiles Then
grvwTiles.FocusedRowHandle = -1
grvwTiles.OptionsBehavior.Editable = False
grvwTiles.FocusedRowHandle = -1
grvwTiles.OptionsTiles.HighlightFocusedTileOnGridLoad = False
End If
Load_Grid_Layout()
HideColumns()
Load_Splitter_Layout()
' Dim sql1 = _ENTITYSQL
' 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: " & RECORD_ID, False)
' Load_Record_Data()
' End If
'End If
'Überprüfen ob es für diese Entität Wiedervorlagen gibt?
Check_FOLLOWUP_IsConfigured(ENTITY_ID)
SET_ROWCOUNT_STRING()
End If
If POS_ENTITY > 0 Then
If USER_LANGUAGE <> "de-DE" Then
TabDetails.Text = "Head-Data"
Else
TabDetails.Text = "Kopfdaten"
End If
TabPos.PageVisible = True
Else
If USER_LANGUAGE <> "de-DE" Then
TabDetails.Text = "Details"
Else
TabDetails.Text = "Detailansicht"
End If
TabPos.PageVisible = False
End If
Load_Templates()
' Hinfällig, da hier die Record-ID nicht gebraucht wird
CtrlBuilder.WatchRecordChanges = False
ClassControlValues.LoadControlValuesList(ENTITY_ID, CtrlBuilder.MasterPanel.Controls)
CtrlBuilder.WatchRecordChanges = True
'Zurücksetzen
ENTITY_LOADED = True
Dim RecLoaded As Boolean = False
If LOAD_DIRECT = True Then
Load_Record_Direct()
RecLoaded = True
End If
If ENTITY_RECORD_COUNT = 1 Then
If RecLoaded = False Then
Load_Record_Direct()
End If
End If
End If
sw.Done()
If ENTITY_RELOAD_AFT_CONTROL_LOAD = True Then
Reload_Entity_while_Control_Load()
End If
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
End Sub
Sub Load_Record_Direct()
Try
grvwGrid.FocusedRowHandle = 0
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
If Not IsNothing(Grid_RecordID) Then
Select Case ACT_EBENE
Case 1
Column_Row_Handler()
'PARENT_RECORDID = Grid_RecordID
'CURRENT_RECORD_ID = PARENT_RECORDID
'SELECTED_RECORD_ID = Grid_RecordID
'RECORD_ID = Grid_RecordID
'ENTITY_RELOAD_AFT_CONTROL_LOAD = False
''Daten zu Record in jedem Fall laden
''ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
'CtrlBuilder.WatchRecordChanges = False
'ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, Grid_RecordID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID)
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_RECORDID, ENTITY_ID, CtrlBuilder.AllControls, ENTITY_ID)
'CtrlBuilder.WatchRecordChanges = True
'' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
'RECORD_CHANGED = False
'Update_Record_Label(Grid_RecordID)
'Check_Rights()
End Select
End If
Catch ex As Exception
MsgBox("Error in Load_Record_Direct:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Sub Load_Entity_Data_Only()
Try
ENTITY_LOADED = False
Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "Load_Entity_Data_Only")
Dim primaryKey(1) As DataColumn
primaryKey(0) = DTEntity.Columns("Record-ID")
DTEntity.PrimaryKey = primaryKey
DT_SELECTION = DTEntity
LoadGrid_Selection()
Load_Grid_Layout()
Catch ex As Exception
MsgBox("Error in Load_Entity_Data_Only:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
ENTITY_LOADED = True
End Sub
Sub CreateTile()
Try
Dim ImageIndex As Integer = -1
Dim i As Integer = 0
Dim j As Integer = 0
Dim DT As DataTable = DirectCast(DT_SELECTION, DataTable)
If DT Is Nothing Then
MsgBox("Daten können nicht geladen werden - Datatable SELECTION is empty", MsgBoxStyle.Critical)
Exit Sub
End If
Dim PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
Dim SecondaryFont As New Font("Segoe UI", 10)
Dim WhiteBackground As Color = System.Drawing.Color.FromArgb(230, Color.White)
' Datatable laden
GridControlMain.DataSource = DT
BindingSource_Entity.DataSource = DT
grvwTiles.TileTemplate.Clear()
For Each Column As DataColumn In DT.Columns
Dim index As Integer = DT.Columns.IndexOf(Column)
Dim RECORDID_Column As TileViewItemElement
Dim ImageColumn As TileViewItemElement
Dim HeadlineColumn As TileViewItemElement
Dim TextColumn As TileViewItemElement
Dim TextHeaderColumn As TileViewItemElement
Select Case index
'Case 0
' ' RecordId
' RECORDID_Column = New TileViewItemElement()
' With RECORDID_Column
' .Column = grvwTiles.Columns(0)
' .Column.OptionsFilter.AllowFilter = True
' .TextAlignment = TileItemContentAlignment.TopLeft
' End With
' grvwTiles.TileTemplate.Add(RECORDID_Column)
Case 1
' Index 1 ist das Bild
If Column.DataType.ToString.Contains("Byte") Then
ImageColumn = New TileViewItemElement()
With ImageColumn
.Image = My.Resources.keinbild
.Column = grvwTiles.Columns(1)
'.ImageSize = New Size(186, 90)
.ImageSize = New Size(186, 118)
.ImageScaleMode = TileItemImageScaleMode.ZoomInside
.ImageAlignment = TileItemContentAlignment.Manual
.ImageLocation = New Point(-10, -10)
End With
grvwTiles.TileTemplate.Add(ImageColumn)
End If
Case 2
' Index 2 ist die Headline
HeadlineColumn = New TileViewItemElement()
With HeadlineColumn
.Column = grvwTiles.Columns(2)
.TextAlignment = TileItemContentAlignment.TopRight
.Appearance.Normal.Font = PrimaryFont
.Appearance.Normal.ForeColor = Color.DodgerBlue
.Column.OptionsFilter.AllowFilter = True
End With
grvwTiles.TileTemplate.Add(HeadlineColumn)
Case 3 To 4
' Indexe 3 und 4 sind normale Textzeilen
TextColumn = New TileViewItemElement()
TextHeaderColumn = New TileViewItemElement()
Dim OffsetIndex = index - 3
With TextHeaderColumn
.Text = Column.ColumnName
.TextAlignment = TileItemContentAlignment.Manual
.TextLocation = New Point(120, 20 + (OffsetIndex * 40))
.Appearance.Normal.Font = SecondaryFont
.Appearance.Normal.ForeColor = Color.DarkGray
.Appearance.Normal.BackColor = WhiteBackground
End With
With TextColumn
.Column = grvwTiles.Columns(index)
.TextAlignment = TileItemContentAlignment.Manual
.TextLocation = New Point(120, 20 + 18 + (OffsetIndex * 40))
.Appearance.Normal.Font = SecondaryFont
.Appearance.Normal.ForeColor = Color.Black
.Appearance.Normal.BackColor = WhiteBackground
End With
grvwTiles.TileTemplate.Add(TextHeaderColumn)
grvwTiles.TileTemplate.Add(TextColumn)
End Select
Next
Catch ex As Exception
MsgBox("Error in LoadGrid_Selection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Lock_RecordControls(state As Boolean)
Lock_Record_Controls_Recursive(state, pnlDetails.Controls)
End Sub
Sub Lock_Record_Controls_Recursive(state As Boolean, controls As System.Windows.Forms.Control.ControlCollection)
For Each Control As System.Windows.Forms.Control In controls
Select Case Control.GetType()
Case GetType(Windows.Forms.GroupBox)
Lock_Record_Controls_Recursive(state, DirectCast(Control, GroupBox).Controls)
Case GetType(Windows.Forms.TextBox)
Dim txt As TextBox = CType(Control, TextBox)
txt.ReadOnly = state
Case Else
Control.Enabled = Not state
'Case GetType(Windows.Forms.CheckBox)
' Dim chk As CheckBox = CType(Control, CheckBox)
' If state = True Then
' chk.Enabled = False
' Else
' chk.Enabled = True
' End If
'Case GetType(Windows.Forms.RadioButton)
' Dim rb As RadioButton = CType(Control, RadioButton)
' If state = True Then
' rb.Enabled = False
' Else
' rb.Enabled = True
' End If
'Case GetType(CustomComboBox)
' Dim cbobx As CustomComboBox = CType(Control, CustomComboBox)
' If state = True Then
' cbobx.Enabled = False
' Else
' cbobx.Enabled = True
' End If
'Case GetType(DevExpress.XtraEditors.DateEdit)
' Dim dtp As DevExpress.XtraEditors.DateEdit = CType(Control, DevExpress.XtraEditors.DateEdit)
' If state = True Then
' dtp.Enabled = False
' Else
' dtp.Enabled = True
' End If
'Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
' Dim chlb As DevExpress.XtraEditors.CheckedListBoxControl = CType(Control, DevExpress.XtraEditors.CheckedListBoxControl)
' If state = True Then
' chlb.Enabled = False
' Else
' chlb.Enabled = True
' End If
'Case GetType(DevExpress.XtraEditors.ListBoxControl)
' Dim lb As DevExpress.XtraEditors.ListBoxControl = CType(Control, DevExpress.XtraEditors.ListBoxControl)
' If state = True Then
' lb.Enabled = False
' Else
' lb.Enabled = True
' End If
'Case GetType(Windows.Forms.Button)
' Dim btn As Button = CType(Control, Button)
' If state = True Then
' btn.Enabled = False
' Else
' btn.Enabled = True
' End If
End Select
Next
End Sub
Private Sub Check_Record_Changed()
If EDIT_STATE <> EditState.None Then
Update_Status_Label(False, "")
EDIT_STATE = EditState.None
End If
If RECORD_CHANGED = True Then
Dim msg = "Sie haben ungespeicherte Änderungen. Wollen Sie diese speichern?"
Dim msg1 = "Ungespeicherte Änderungen"
If USER_LANGUAGE <> "de-DE" Then
msg = "There are unsaved changes. Would You like to save?"
msg1 = "Unsaved changes"
End If
Dim result As DialogResult = MessageBox.Show(msg, msg1, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = Windows.Forms.DialogResult.Yes Then
If CtrlCommandUI.IsInsert = True Then
EDIT_STATE = EditState.None
Lock_RecordControls(True)
'Me.pnlDetails.Enabled = False
'CtrlCommandUI.IsInsert = False
End If
Try
Dim ResultMessage = Update_Record_OnChange()
Update_Status_Label(True, ResultMessage)
Catch ex As Exception
MsgBox("Error in Save Record Changes: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
Else
' Wenn nicht gespeichert werden soll, den Record wieder löschen
If CtrlCommandUI.IsInsert = True Then
ClassHelper.DeleteRecord(SELECTED_RECORD_ID)
End If
tsButtonAdd.Enabled = True
'Dim ResultMessage
'' Wenn MussFelder nicht ausgefüllt werden, wird eine exception geworfen und abgefangen
'Try
' ResultMessage = Update_Record_OnChange()
'Catch ex As Exception
' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in saving Record")
' Me.Cursor = Cursors.Default
' Exit Sub
'End Try
End If
CtrlCommandUI.IsInsert = False
RECORD_CHANGED = False
End If
End Sub
Private Function GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORD_ID As Integer, Entityload As Boolean)
'Dim sqlRecord As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} AND T1.ENTITY_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = {1})", LINKED_RECORD, ENTITY_ID)
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", PARENT_RECORD_ID, ENTITY_ID)
Dim GRP_SINGLE_REC = ClassDatabase.Execute_Scalar(sql, True)
If IsNothing(GRP_SINGLE_REC) Then
If ClassControlCommandsUI.CreateRecord(ENTITY_ID) = True Then
GRP_SINGLE_REC = ClassControlCommandsUI.GetLastRecord
If Not IsNothing(GRP_SINGLE_REC) Then
'Die neue Record-ID setzen
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 " & ENTITY_ID.ToString) = False Then
MsgBox("Unexpected Error in Connecting Record. Check log", MsgBoxStyle.Critical)
Return False
End If
Else
Return False
End If
Else
Return False
End If
Else
Try
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
End Try
End If
Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gesetzt werden ####
Case 1
EBENE1_RECID = RECORD_ID
Case 2
EBENE2_RECID = RECORD_ID
Case 3
EBENE3_RECID = RECORD_ID
End Select
Return True
End Function
Private Function GET_LINKED_RECORD(RECORDID As Integer, ENTITY_ID As Integer)
Try
Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
Select form
Where form.Item("GUID") = ENTITY_ID).Single()
'Je nach der Ebene muss evtl die übergeordnete Entität ausgelesen werden
Select Case ACT_EBENE
Case 2
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", RECORDID, ENTITY_ID)
Dim PARENT_RECORD1 = ClassDatabase.Execute_Scalar(sql, True)
If IsNothing(PARENT_RECORD1) Then
Dim New_Record = ClassControlCommandsUI.GetLastRecord
If Not IsNothing(New_Record) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-Record Ebene 1 wird neu angelegt...", False)
'Die neue Record-ID setzen
ClassControlCommandsUI.ConnectRecord(New_Record, RECORDID, "PARENT-LINK FOR ENTITY " & ENTITY_ID & "")
Return New_Record
Else
Return 0
End If
Else
Return PARENT_RECORD1
End If
Case 3
Dim Parent_EntityID = ENTITY_ROW.Item("PARENT_ID") 'ClassDatabase.Execute_Scalar(sqlp, True)
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = (SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE " & _
"T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}) and T1.FORM_ID = {2}", RECORDID, Parent_EntityID, ENTITY_ID)
Dim PARENT_RECORD2 = ClassDatabase.Execute_Scalar(sql, True)
If IsNothing(PARENT_RECORD2) Then
Dim New_Record = ClassControlCommandsUI.GetLastRecord
If Not IsNothing(New_Record) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-Record Ebene 1 wird neu angelegt...", False)
'Die neue Record-ID setzen
ClassControlCommandsUI.ConnectRecord(New_Record, RECORDID, "PARENT-LINK FOR ENTITY " & ENTITY_ID & "")
Return New_Record
Else
Return 0
End If
Else
Return PARENT_RECORD2
End If
End Select
Catch ex As Exception
MsgBox("Error in GET_LINKED_RECORD: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return 0
End Try
End Function
Private Function LoadGrid_Selection()
Try
If GRID_TYPE = GridType.Tiles Then
CreateTile()
Else
'Grid leeren
Clear_Grid_View()
'Databinding Neu
Dim listcheck As List(Of String) = ClassHelper.Return_listcheck(ENTITY_ID)
Dim listdate As List(Of String) = ClassHelper.Return_listdate(ENTITY_ID)
BindingSource_Entity.DataSource = ClassHelper.Format_GridColumns(DT_SELECTION, _ENTITYSQL, listcheck, listdate)
GridControlMain.DataSource = BindingSource_Entity
' Alle Date Spalten durchgehen
For Each col As String In listdate
Dim colDate = grvwGrid.Columns(col)
colDate.DisplayFormat.FormatType = FormatType.DateTime
colDate.DisplayFormat.FormatString = USER_DATE_FORMAT
Next
Try
grvwGrid.Columns("AddedWhen").DisplayFormat.FormatType = FormatType.DateTime
grvwGrid.Columns("AddedWhen").DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
grvwGrid.Columns("ChangedWhen").DisplayFormat.FormatType = FormatType.DateTime
grvwGrid.Columns("ChangedWhen").DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
Catch ex As Exception
End Try
'Try
' grvwGrid.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
' grvwGrid.Columns("files?").ColumnEdit = CheckBoxEditorForDisplay
'Catch ex As Exception
' ClassLogger.Add(">> Attention: Column files? not existing in GridView?", False)
'End Try
'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
End If
HideColumns()
If NODE_NAVIGATION = False Then
Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim origtext As String = selnode.Text
If origtext.Contains(" (") Then
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
selnode.Text = String.Format("{0} ({1})", existingstring, Get_Grid_Row_Count())
Else
selnode.Text = String.Format("{0} ({1})", selnode.Text, Get_Grid_Row_Count())
End If
End If
Catch ex As Exception
MsgBox("Error in LoadGrid_Selection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
Return True
End Function
Sub HideColumns()
Try
'sdd()
'Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & ENTITY_ID
' Presuming the DataTable has a column named FORM_ID
Dim expression As String
expression = "FORM_ID = " & ENTITY_ID
Dim foundRowsLevel0() As DataRow
' Use the Select method to find all rows matching the filter.
foundRowsLevel0 = DT_CONTROL_SCREEN.Select(expression)
Dim i As Integer
' Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
If GRID_TYPE = GridType.Grid Then
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGrid.Columns
'If DT.Rows.Count <> 0 Then
' ' Alle Spalten, die ausgeblendet werden sollten durchgehen und Visible = False
' For Each row As DataRow In DT.Rows
' Dim colname As String = row.Item("CONTROL_COL_NAME")
' Dim col As DevExpress.XtraGrid.Columns.GridColumn = grvwGrid.Columns.Item(colname)
' If Not IsNothing(col) Then
' col.Visible = False
' End If
' Next
'End If
' For each row create a Node
For i = 0 To foundRowsLevel0.GetUpperBound(0)
Dim colname As String = foundRowsLevel0(i)("CONTROL_COL_NAME")
Dim col As DevExpress.XtraGrid.Columns.GridColumn = grvwGrid.Columns.Item(colname)
If Not IsNothing(col) Then
col.Visible = False
End If
Next
' FormID und RecordID immer ausblenden
grvwGrid.Columns.Item("Record-ID").Visible = False
grvwGrid.Columns.Item("Form-ID").Visible = False
grvwGrid.Columns.Item("ROW_COLOR").Visible = False
End If
Catch ex As Exception
MsgBox("Error in HideColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub HideColumns_Pos(EntityID As Integer)
Try
Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & EntityID
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGridPos.Columns
If DT.Rows.Count <> 0 Then
' Alle Spalten, die ausgeblendet werden sollten durchgehen und Visible = False
For Each row As DataRow In DT.Rows
Dim colname As String = row.Item("CONTROL_COL_NAME")
Dim col As DevExpress.XtraGrid.Columns.GridColumn = grvwGridPos.Columns.Item(colname)
If Not IsNothing(col) Then
col.Visible = False
End If
Next
End If
' FormID und RecordID immer ausblenden
grvwGridPos.Columns.Item("Record-ID").Visible = False
grvwGridPos.Columns.Item("Form-ID").Visible = False
grvwGridPos.Columns.Item("ROW_COLOR").Visible = False
Try
grvwGridPos.Columns.Item("files?").Visible = False
grvwGridPos.Columns.Item("file count").Visible = False
Catch ex As Exception
End Try
Catch ex As Exception
MsgBox("Error in HideColumns_Pos:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Show_Selected_Record_Data(Rec_ID As Integer, EntityLoad As Boolean)
Try
Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
Select form
Where form.Item("GUID") = ENTITY_ID).Single()
Update_Status_Label(False, "")
If LogErrorsOnly = False Then ClassLogger.Add(" >> GRID_RECORD ID: " & Rec_ID.ToString, False)
'Me.pnlDetails.Visible = True
ZeigeRecordLogsToolStripMenuItem.Enabled = False
If FORM_TYPE = 5 And EntityLoad = False Or IS_SINGLE_RECORD = True And EntityLoad = False Then '#### Es sind untergeordnete Entitäten geöffnet####
Dim linkedRecord
' Dim pID As Integer
Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gewählt werden ####
Case 3
linkedRecord = GET_LINKED_RECORD(Rec_ID, ENTITY_ID)
If linkedRecord > 0 Then
Dim Parent_EntityID = ENTITY_ROW.Item("PARENT_ID")
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", RECORD_ID, Parent_EntityID)
Dim PARENT_RECORD1 = ClassDatabase.Execute_Scalar(sql, True)
EBENE2_RECID = PARENT_RECORD1
PARENT_RECORDID = PARENT_RECORD1
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
End If
Case 2
linkedRecord = GET_LINKED_RECORD(Rec_ID, ENTITY_ID)
If linkedRecord > 0 Then
EBENE1_RECID = Rec_ID
PARENT_RECORDID = EBENE1_RECID
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
End If
Case 1
PARENT_RECORDID = Rec_ID
EBENE1_RECID = PARENT_RECORDID
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
End Select
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 = Rec_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
PARENT_RECORDID = RECORD_ID
EBENE1_RECID = PARENT_RECORDID
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
If Not EBENE1_COLUMNNAME Is Nothing Then
EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
End If
Case 2
EBENE2_RECID = SELECTED_RECORD_ID
If Not EBENE2_COLUMNNAME Is Nothing Then
EBENE2_GRID_RESULT = Get_GridResult(EBENE2_COLUMNNAME)
End If
If EBENE1_RECID > 0 Then
PARENT_RECORDID = EBENE1_RECID
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
Else
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
End If
Case 3
EBENE3_RECID = SELECTED_RECORD_ID
If Not EBENE3_COLUMNNAME Is Nothing Then
EBENE3_GRID_RESULT = Get_GridResult(EBENE3_COLUMNNAME)
End If
If EBENE2_RECID > 0 Then
PARENT_RECORDID = EBENE2_RECID
CURRENT_PARENT_RECORD_ID = PARENT_RECORDID
End If
End Select
End If
Select Case TCDetails.SelectedTabPageIndex
Case 0
ENTITY_RELOAD_AFT_CONTROL_LOAD = False
CtrlBuilder.WatchRecordChanges = False
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_RECORDID, ENTITY_ID, CtrlBuilder.AllControls, ENTITY_ID)
CtrlBuilder.WatchRecordChanges = True
If windream_Docshow = True Then
Dim stg As String = "windream-Dateien"
If USER_LANGUAGE <> "de-DE" Then
stg = "windream-files"
End If
TabWindream.Text = stg
End If
Case 1
If RECORD_ID = 0 Then
'RUN_WD_SEARCH(WD_Suche, "ENTITY")
RUN_WDSEARCH_GRID("ENTITY")
Else
RUN_WDSEARCH_GRID("RECORD")
' RUN_WD_SEARCH(WD_Suche, "RECORD")
End If
Case 2
tsButtonEdit.Enabled = False
Refresh_FollowUps()
dtpFollowUp.Enabled = False
lblWiedervorlage_Control.Text = "<< Waiting for Selection:"
'ListBoxUser2Profile.Items.Clear()
grpbxFU_Profile.Enabled = False
End Select
Dim sw As New Stopwatch
sw.Start()
' 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 = " & RECORD_ID
Dim RC = ClassDatabase.Execute_Scalar(Record_Changes, True)
If Not RC Is Nothing Then
If RC > 0 Then
ZeigeRecordLogsToolStripMenuItem.Enabled = True
End If
End If
Refresh_Navpane()
Update_Record_Label(SELECTED_RECORD_ID)
Show_act_WFTask()
RECORD_ID = SELECTED_RECORD_ID
Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds - elapsed
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Show Selected RecordData 2 took " & Format(elapsed, "0.000000000") & " seconds", False)
If ENTITY_RELOAD_AFT_CONTROL_LOAD = True Then
Reload_Entity_while_Control_Load()
End If
'tsstatus_Detail_show(False, "")
Catch ex As Exception
MsgBox("Error in SelectedRecord_ShowData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Reload_Entity_while_Control_Load()
Dim result As MsgBoxResult
Dim stg As String
If USER_LANGUAGE = "de-DE" Then
stg = "Es gab ein unerwartetes Problem beim Laden der Control-Values! Wollen Sie versuchen die Daten erneut zu laden?" & vbNewLine & "'Nein' beendet die Sicht für einen manuellen Neustart!"
Else
stg = "ADDI encountered an unexpected error while loading the control values for the record! Do You want to try to relaod the entity data?" & vbNewLine & "No is terminating the entity-form to restart it manually!"
End If
result = MessageBox.Show(stg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Load_Datafor_Entity()
Else
Me.Close()
End If
End Sub
Sub Create_Grid_Editor(formId As Integer)
Try
Dim SQL As String = "SELECT CONTROL_COL_NAME,CONTROL_SQLCOMMAND_1,CONTROL_STATIC_LIST FROM VWPMO_CONTROL_SCREEN WHERE CTRLTYPE_ID = 3 AND FORM_ID = " & formId
Dim ComboColumns As DataTable = ClassDatabase.Return_Datatable(SQL)
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & formId
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
Dim listcheck As New List(Of String)
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtcheck.Rows.Count > 0 Then
For Each row As DataRow In dtcheck.Rows
listcheck.Add(row.Item(0))
Next
End If
' Den Editor Initialisieren und Optionen setzen
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = 1
CheckBoxEditorForDisplay.ValueUnchecked = 0
' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
For Each col As String In listcheck
grvwGridPos.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
If Not IsNothing(grvwGridPos.Columns(col)) Then
grvwGridPos.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
End If
Next
For Each col As DataRow In ComboColumns.Rows
Dim colName As String = col.Item(0)
Dim hasSqlCommand = col.Item(1).ToString() <> ""
Dim hasStaticList = col.Item(2).ToString() <> ""
If hasStaticList = True Then
Dim comboEdit1 As New RepositoryItemComboBox()
Dim comboItems1 As ComboBoxItemCollection = comboEdit1.Items
Dim staticListItems = col.Item(2).ToString.Split(";")
comboItems1.BeginUpdate()
Try
For Each item In staticListItems
comboItems1.Add(item)
Next
Finally
comboItems1.EndUpdate()
End Try
GridControlPos.RepositoryItems.Add(comboEdit1)
If Not IsNothing(grvwGridPos.Columns(colName)) Then
grvwGridPos.Columns(colName).ColumnEdit = comboEdit1
End If
ElseIf hasSqlCommand = True Then
SQL = col.Item(1).ToString()
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL, "Load_Pos_Data")
Dim comboEdit2 As New RepositoryItemComboBox()
Dim comboItems2 As ComboBoxItemCollection = comboEdit2.Items
For Each row As DataRow In dt.Rows
Dim value = row.Item(0)
comboItems2.BeginUpdate()
Try
comboItems2.Add(value)
Finally
comboItems2.EndUpdate()
End Try
Next
GridControlPos.RepositoryItems.Add(comboEdit2)
If Not IsNothing(grvwGridPos.Columns(colName)) Then
grvwGridPos.Columns(colName).ColumnEdit = comboEdit2
End If
End If
Next
Catch ex As Exception
MsgBox("Error in Create_Grid_Editor:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Load_Pos_Data()
Try
If POS_ENTITY > 0 Then
Get_Pos_SQL(POS_ENTITY)
POS_SQL = POS_SQL.Replace("@PARENT_ID", PARENT_RECORDID)
Dim DT_POS As DataTable = ClassDatabase.Return_Datatable(POS_SQL, "Load POSData")
Clear_GridPos_View()
If Not IsNothing(DT_POS) Then
GridControlPos.DataSource = DT_POS
Dim bs As New BindingSource
bs.DataSource = DT_POS
BindingNavigatorPOS.BindingSource = bs
' --- Editoren laden für Combobox ---
Create_Grid_Editor(POS_ENTITY)
HideColumns_Pos(PARENT_RECORDID)
End If
End If
Catch ex As Exception
MsgBox("Error in Load_Pos_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Function Get_GridResult(Columnname As String)
Dim result = Get_Focused_Row_Cell_Value(Columnname)
Dim str = String.Empty
If DT_VWPMO_CONSTRUCTOR_FORMS.Rows.Count >= 3 Then
str &= System.Text.RegularExpressions.Regex.Replace(ACT_EBENE_STRING, "\s\(\d+\)", "")
str &= " - "
End If
If IsDBNull(result) OrElse result = "" Then
str &= "No Column configured"
Else
str &= result
End If
Return str
End Function
Function GetSelected_RecordID()
Try
If Get_Grid_Column_Count() = 0 Then
Lock_RecordControls(True)
' Me.pnlDetails.Enabled = False
'Me.tsbtnshowWorkflowtasks.Enabled = False
'tsstatus_Detail_show(True, "Keine Columns in Grid")
Return Nothing
End If
'Überhaupt Rows in Grid?
If Get_Grid_Row_Count() > 0 Then
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
If Grid_RecordID Is Nothing = False Then
Return Grid_RecordID
Else
'tsstatus_Detail_show(True, "Grid_RecordID konnte nicht gewählt werden!")
'ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - SelectedRecord_ShowData", True)
Return Nothing
End If
Else
Return Nothing
End If
Catch ex As Exception
End Try
End Function
'Sub Get_Selected_Record()
' Select Case EDIT_STATE
' Case EditState.None
' 'Ganz normalerDatensatzwechsel Wechsel
' Show_Selected_Record_Data("Record-ID")
' 'Refresh_Treeview_SelectedData()
' Update_Status_Label(False)
' 'tslblStatusMain_show(False, "")
' Case EditState.Insert
' 'Refresh_Treeview_SelectedData()
' Case EditState.Update
' ' Refresh_Treeview_SelectedData()
' End Select
' Select Case TCDetails.SelectedTabPageIndex
' Case 0
' 'Die Values in die Controls laden
' If EDIT_STATE = EditState.None Then
' 'TabPageDetails.Text = "Detaileingabe zu '" & ACT_EBENE_STRING & "' - Record(" & SelectedRecordID & ")"
' 'Die Daten auf dem Panel laden
' ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
' 'Load_Control_Values(CtrlBuilder.AllControls)
' 'Refresh_Treeview_SelectedData()
' RECORD_CHANGED = False
' End If
' Case 1
' RUN_WD_SEARCH(WD_Suche, "RECORD")
' Case 2
' 'If FOLLOW_UPisActive = True Then Refresh_FollowUps()
' End Select
' 'DT_FU_Record = Nothing
' 'VerknüpfungenToolStripMenuItem.Enabled = True
' Update_Record_Label(SELECTED_RECORD_ID)
' If FOLLOW_UPisActive = True Then Refresh_FollowUp_TabHeader()
' Show_act_WFTask()
' Get_RecordCounts_Nodes()
' pnlDetails.Enabled = False
' Refresh_TaskOverview()
'End Sub
Private Sub Refresh_FollowUp_TabHeader()
Try
DT_FU_Record = ClassDatabase.Return_Datatable("select * from VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD where Record_ID = " & RECORD_ID, "Refresh FollowUp TabHeader")
Dim msg As String = "Wiedervorlage (Nicht Abrufbar)"
If USER_LANGUAGE <> "de-DE" Then
msg = "Follow Up - (Not accessable)"
End If
If IsNothing(DT_FU_Record) Then
TabFollowUp.Text = msg
Exit Sub
End If
If DT_FU_Record.Rows.Count = 0 Then
msg = "Wiedervorlage (Nicht aktiviert)"
If USER_LANGUAGE <> "de-DE" Then
msg = "Follow Up - (Not activated)"
End If
TabFollowUp.Text = msg
Else
msg = "Wiedervorlage (Aktive Profile)"
If USER_LANGUAGE <> "de-DE" Then
msg = "Follow Up - (active profiles)"
End If
TabFollowUp.Text = msg
End If
Catch ex As Exception
MsgBox("Error in Refresh_FollowUp_TabHeader:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Function Update_Record_OnChange() As String
' Überprüfen, ob alle "Required Felder ausgefüllt wurden"
Dim missingControlValues As List(Of String) = ClassControlValues.CheckRequiredControlValues(CtrlBuilder.MasterPanel.Controls)
If missingControlValues.Count > 0 Then
Dim nameString As String = String.Join(vbNewLine, missingControlValues)
Dim msg = String.Format("Die folgenden Steuerelemente müssen ausgefüllt sein: {0}{1}", vbNewLine, nameString)
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("the following controls must be filled with values: {0}{1}", vbNewLine, nameString)
End If
Dim errorMessage As String = msg
' Das erste fehlende Control in den Fokus nehmen
Dim firstControlName = missingControlValues.First()
Focus_Control(firstControlName)
Throw New Exception(errorMessage)
End If
' Record Speichern
Dim ResultMessage = CtrlCommandUI.SaveRecord(SELECTED_RECORD_ID, ENTITY_ID, PARENT_RECORDID)
'Jetzt die für die Entität notwendigen Prroceduren ausführen
Customer_Run_Procedures()
RECORD_CHANGED = False
Return ResultMessage
End Function
Private Sub Customer_Run_Procedures()
Try
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_RUN_PROCEDURES WHERE FORM_ID = " & ENTITY_ID)
If Not DT Is Nothing Then
For Each row As DataRow In DT.Rows
Dim prsql As String = row.Item("EXECUTE_COMMAND")
prsql = prsql.ToUpper.Replace("@FORM_ID", ENTITY_ID)
prsql = prsql.ToUpper.Replace("@ENTITY_ID", ENTITY_ID)
prsql = prsql.ToUpper.Replace("@RECORD_ID", RECORD_ID)
ClassDatabase.Execute_non_Query(prsql, True)
Next
End If
Catch ex As Exception
MsgBox("Error in Customer_Run_Procedures:" & vbNewLine & ex.Message)
End Try
End Sub
#Region "WindreamSuche"
Private Sub Check_windream_Show(FORM_VIEW_ID As Integer)
Try
'Dim sql = "SELECT * FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND GUID = " & FORM_VIEW_ID
'Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql)
Dim wdsearch = DT_TBPMO_FORM_VIEW.Rows(0).Item("WINDREAM_SEARCH")
If IsDBNull(wdsearch) Then
windream_Docshow = False
TabWindream.PageVisible = False
WindreamsucheNeuLadenToolStripMenuItem.Enabled = False
EntitätssucheStartenToolStripMenuItem.Enabled = False
Exit Sub
End If
If wdsearch <> "" Then
TabWindream.PageVisible = True
'If IsDBNull(DTWD.Rows(0).Item(0)) Then
' windream_Docshow = False
' WindreamsucheNeuLadenToolStripMenuItem.Visible = False
' Exit Function
'End If
WindreamsucheNeuLadenToolStripMenuItem.Enabled = True
EntitätssucheStartenToolStripMenuItem.Enabled = True
windream_Docshow = True
If windream_inited = False Then
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
If ClassWindream.Init() = True Then
windream_inited = True
End If
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Windream init took " & Format(elapsed, "0.000000000") & " seconds", False)
End If
Else
windream_Docshow = False
TabWindream.PageVisible = False
WindreamsucheNeuLadenToolStripMenuItem.Enabled = False
EntitätssucheStartenToolStripMenuItem.Enabled = False
End If
Catch ex As Exception
MsgBox("Error in Check windream show:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
windream_Docshow = False
End Try
End Sub
Private Sub RUN_WD_SEARCH(BaseSearch As String, Type As String)
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
Try
Dim windream_temp_search
If Not windream_Docshow = True Or Sett_LoadWD_Docs = False Or TCDetails.SelectedTabPageIndex <> 1 Then
Exit Sub
End If
Cursor = Cursors.WaitCursor
Dim DTWD As DataTable
If Type = "ENTITY" Then
Dim _sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & ENTITY_ID
DTWD = ClassDatabase.Return_Datatable(_sql)
If DTWD.Rows.Count = 1 Then
If IsDBNull(DTWD.Rows(0).Item(0)) Then
Clear_Windream_ResultList()
Cursor = Cursors.Default
Exit Sub
End If
Dim msg = "Windream-Dokumente für Entität: " & ACT_EBENE_STRING
If USER_LANGUAGE <> "de-DE" Then
msg = "windream-files for entity: " & ACT_EBENE_STRING
End If
tslblWindreamView.Text = msg
Else
Clear_Windream_ResultList()
Cursor = Cursors.Default
Exit Sub
Exit Sub
End If
Else
Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & ENTITY_ID
DTWD = ClassDatabase.Return_Datatable(sql)
If DTWD.Rows.Count = 1 Then
If IsDBNull(DTWD.Rows(0).Item(0)) Then
Clear_Windream_ResultList()
Cursor = Cursors.Default
Exit Sub
Exit Sub
End If
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID
If USER_LANGUAGE <> "de-DE" Then
msg = "windream-files for record: " & RECORD_ID
End If
tslblWindreamView.Text = msg
Else
Clear_Windream_ResultList()
Cursor = Cursors.Default
Exit Sub
Exit Sub
End If
End If
'Die SearchPatterns durchlaufen und zwischenspeichern
If IsDBNull(DTWD.Rows(0).Item(0)) Then
Clear_Windream_ResultList()
Cursor = Cursors.Default
Exit Sub
Exit Sub
End If
BaseSearch = DTWD.Rows(0).Item(0)
SP1 = DTWD.Rows(0).Item(1)
If IsDBNull(DTWD.Rows(0).Item(2)) Then
SP2 = ""
Else
SP2 = DTWD.Rows(0).Item(2)
End If
If IsDBNull(DTWD.Rows(0).Item(3)) Then
SP3 = ""
Else
SP3 = DTWD.Rows(0).Item(3)
End If
If IsDBNull(DTWD.Rows(0).Item(4)) Then
SP4 = ""
Else
SP4 = DTWD.Rows(0).Item(4)
End If
If IsDBNull(DTWD.Rows(0).Item(5)) Then
SP5 = ""
Else
SP5 = DTWD.Rows(0).Item(5)
End If
'Eine tempfile generieren
Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName()
'Nur den Filenamen ohne Erweiterung
Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1)
'tempfile lsöchen
If My.Computer.FileSystem.FileExists(tempFilename1) Then
My.Computer.FileSystem.DeleteFile(tempFilename1)
End If
Try
Dim temppath = Path.GetTempPath
Dim EncodingFormat As Encoding
Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBPMO_KONFIGURATION WHERE GUID = 1")
If WDUnicode = True Then
EncodingFormat = Encoding.GetEncoding(1252) '1252
If LogErrorsOnly = False Then ClassLogger.Add(" >> Unicode is used (Encoding.GetEncoding(1252))", False)
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> UTF8 (Encoding.GetEncoding(65001))", False)
EncodingFormat = Encoding.GetEncoding(65001)
End If
Dim fileContents As String
If LogErrorsOnly = False Then ClassLogger.Add(" >> ReadAlltext: " & windream_temp_search, False)
fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode
If LogErrorsOnly = False Then ClassLogger.Add(" >> fileContents geladen", False)
fileContents = fileContents.Replace("Í", "Ö")
Dim _sp1 = SP1
Dim _sp2 = SP2
Dim _sp3 = SP3
Dim _sp4 = SP4
Dim _sp5 = SP5
If _sp1.ToString <> String.Empty Then
_sp1 = Return_SearchPattern(_sp1.ToString)
fileContents = fileContents.Replace("%pattern1%", _sp1)
fileContents = fileContents.Replace("471101", _sp1)
End If
If _sp2.ToString <> String.Empty Then
_sp2 = Return_SearchPattern(_sp2.ToString)
If _sp2 = 0 Then
_sp2 = ""
End If
fileContents = fileContents.Replace("%pattern2%", _sp2)
fileContents = fileContents.Replace("471102", _sp2)
End If
If _sp3.ToString <> String.Empty Then
_sp3 = Return_SearchPattern(_sp3.ToString)
If _sp3 = 0 Then
_sp3 = ""
End If
fileContents = fileContents.Replace("%pattern3%", _sp3)
fileContents = fileContents.Replace("471103", _sp3)
End If
If _sp4.ToString <> String.Empty Then
_sp4 = Return_SearchPattern(_sp4.ToString)
If _sp4 = 0 Then
_sp4 = ""
End If
fileContents = fileContents.Replace("%pattern4%", _sp4)
fileContents = fileContents.Replace("471104", _sp4)
End If
If _sp5.ToString <> String.Empty Then
_sp5 = Return_SearchPattern(_sp5.ToString)
If _sp5 = 0 Then
_sp5 = ""
End If
fileContents = fileContents.Replace("%pattern5%", _sp5)
fileContents = fileContents.Replace("471105", _sp5)
End If
'Die windream File zusammensetzen
windream_temp_search = temppath & tempName & ".wdf"
TEMP_FILES.Add(windream_temp_search)
'Die File schreiben
My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat)
My.Computer.FileSystem.WriteAllText(temppath & "SEARCH_COPY.wdf", fileContents, False, EncodingFormat)
' XML-Datei öffnen und laden
Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat)
Dim Reader As New System.Xml.XmlTextReader(Stream)
' XML-Datei initialisieren
Dim xml As New System.Xml.XmlDocument()
' XML-Datei öffnen und laden
xml.Load(Reader)
Reader.Close()
xml.Save(windream_temp_search)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Xml Generiert: " & windream_temp_search, False)
Dim windreamSucheErgebnisse As WINDREAMLib.WMObjects
Try
windreamSucheErgebnisse = ClassWindream.GetSearchDocuments(windream_temp_search)
Catch ex As Exception
MsgBox("Error in windreamSucheErgebnisse:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
elapsed = sw.Elapsed.TotalSeconds
If LogErrorsOnly = False Then ClassLogger.Add(" >> GetSearchDocuments took " & Format(elapsed, "0.000000000") & " seconds", False)
If windreamSucheErgebnisse.Count > 0 Then
Dim stg As String
If USER_LANGUAGE = "de-DE" Then
stg = "windream-Dateien"
Else
stg = "windream-files"
End If
TabWindream.Text = stg & " (" & windreamSucheErgebnisse.Count & ")"
'AxObjectListControl.SetIconMode(True)
'AxObjectListControl.RemoveAllColumnHeader()
'Me.AxObjectListControl.SetSession(ClassWindream.oSession, "", "")
'Change the status icon
'ICON STATES:
'Me.AxObjectListControl.SetStatusIcon(0)
'Change the icon
' Me.AxObjectListControl.SetStatusIcon(2)
Try
Dim sql_ResultList = "select * from TBPMO_WINDREAM_RESULTLIST_CONFIG where guid = 1"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql_ResultList, "GET RESULTLIST KONFIG")
If Not DT Is Nothing And DT.Rows.Count = 1 Then
Dim anzparam As Integer = 1
For Each Column As DataColumn In DT.Columns
If Column.ColumnName.StartsWith("COLUMN") And Column.ColumnName.EndsWith("WIDTH") = False Then
Dim sql = String.Format("select {0} from TBPMO_WINDREAM_RESULTLIST_CONFIG Where GUID = 1", Column.ColumnName)
Dim ColumnName = ClassDatabase.Execute_Scalar(sql, True)
If Not IsDBNull(ColumnName) Then
If Not IsDBNull(ColumnName) Or IsNothing(ColumnName) Or ColumnName <> "" Or ColumnName <> "{}" Then
'Jetzt die Spalten aus Array hinzufügen und Breite konfigurieren
sql = String.Format("select COLUMN{0}_WIDTH from TBPMO_WINDREAM_RESULTLIST_CONFIG Where GUID = 1", anzparam)
Dim Width = ClassDatabase.Execute_Scalar(sql, True)
If IsNothing(Width) Or IsDBNull(Width) Then
Width = 200
End If
'You need to use the column name here
'Please note that some attributes or indices will not be displayed
'Try not to add the same header twice, it will throw cause problems if you do that
' Me.AxObjectListControl.AddColumnHeader(ColumnName, Width)
anzparam += 1
End If
End If
End If
Next
Else
Dim param As New List(Of String)
'The file name
param.Add("szLongName")
'The document-Type
param.Add("szText37")
'Versionsnummer
param.Add("dwVersionNumber")
'Datumsangaben
param.Add("dwCreationDate")
param.Add("dwCreation_Time")
'Add all search params
For Each spar As String In param
Dim width As Integer = 200
Select Case spar
Case "szLongName"
'Dateiname
width = 300
Case "szText37"
'Dokumentart
width = 160
Case "dwCreationDate"
'Erstelldatum
width = 90
Case "dwCreation_Time"
'Erstell-Zeit
width = 120
End Select
'You need to use the column name here
'Please note that some attributes or indices will not be displayed
'Try not to add the same header twice, it will throw cause problems if you do that
' Me.AxObjectListControl.AddColumnHeader(spar, width)
Next
End If
Catch ex As Exception
MsgBox("Unexpected Error in Construct windreamResultList: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> AxObjectListControl loaded ", False)
'Execute the search
Dim results As WINDREAMLib.WMObjects = windreamSucheErgebnisse
If LogErrorsOnly = False Then ClassLogger.Add(" >> results loaded ", False)
'Set the contents without displaying them
'AxObjectListControl.SetContentsEx(results)
'Change the icon
' AxObjectListControl.SetStatusIcon(5)
'Display the results...
'The Previous Object Count
Dim poc As Integer = 0
'Display new objects, as long as the objectcount changes after displaying the objects
'Do Until (poc <> AxObjectListControl.GetObjectCount)
' poc = AxObjectListControl.GetObjectCount
' 'If you want, you can display more items at a timeRefresh_FollowUp_TabHeader
' 'But do not display to many at a time or the user interface could freeze
' 'Maybe try 50
' AxObjectListControl.DisplayResults(WDResultListCount)
'Loop
'AxObjectListControl.SetStatusIcon(3)
Else
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
If USER_LANGUAGE <> "de-DE" Then
msg = "windream-files for record: " & RECORD_ID & " - no files found"
End If
tslblWindreamView.Text = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
Clear_Windream_ResultList()
End If
Catch ex As Exception
MsgBox("Error in execute-windreamSearch:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Cursor = Cursors.Default
Catch ex As Exception
MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run WD Search took " & Format(elapsed, "0.000000000") & " seconds", False)
Cursor = Cursors.Default
End Sub
Private Sub WD_DELETE_DOCS()
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
' Dim Basesearch As String
Try
Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, "RECORD")
If IsNothing(DT_RESULT) Then
Exit Sub
Else
If DT_RESULT.Rows.Count > 0 Then 'Es gibt Suchergebnisse
Dim msg As String
msg = "Wollen Sie die zugehörigen windream-Dateien (" & DT_RESULT.Rows.Count.ToString & ") ebenfalls löschen?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Do You want to delete the related windream-documents (" & DT_RESULT.Rows.Count.ToString & ")?"
End If
Dim result1 As MsgBoxResult
result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result1 = MsgBoxResult.Yes Then
For Each row As DataRow In DT_RESULT.Rows
Dim DOC_ID = row.Item("DocID")
Dim path = row.Item("FULLPATH")
If Not IsNothing(path) Then
If ClassWindream.Delete_WDFile(path) Then
ClassFileResult.Delete_ResultFile(DOC_ID)
End If
End If
Next
End If
End If
End If
'Dim windream_temp_search
'If Not windream_Docshow = True Or Sett_LoadWD_Docs = False Then
' Exit Sub
'End If
'Cursor = Cursors.WaitCursor
'Dim DTWD As DataTable
'Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & ENTITY_ID
'DTWD = ClassDatabase.Return_Datatable(sql)
'If DTWD.Rows.Count = 1 Then
' If IsDBNull(DTWD.Rows(0).Item(0)) Then
' Cursor = Cursors.Default
' Exit Sub
' End If
'Else
' Cursor = Cursors.Default
' Exit Sub
'End If
''Die SearchPatterns durchlaufen und zwischenspeichern
'If IsDBNull(DTWD.Rows(0).Item(0)) Then
' Cursor = Cursors.Default
' Exit Sub
'End If
'Basesearch = DTWD.Rows(0).Item(0)
'SP1 = DTWD.Rows(0).Item(1)
'If IsDBNull(DTWD.Rows(0).Item(2)) Then
' SP2 = ""
'Else
' SP2 = DTWD.Rows(0).Item(2)
'End If
'If IsDBNull(DTWD.Rows(0).Item(3)) Then
' SP3 = ""
'Else
' SP3 = DTWD.Rows(0).Item(3)
'End If
'If IsDBNull(DTWD.Rows(0).Item(4)) Then
' SP4 = ""
'Else
' SP4 = DTWD.Rows(0).Item(4)
'End If
'If IsDBNull(DTWD.Rows(0).Item(5)) Then
' SP5 = ""
'Else
' SP5 = DTWD.Rows(0).Item(5)
'End If
''Eine tempfile generieren
'Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName()
''Nur den Filenamen ohne Erweiterung
'Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1)
''tempfile lsöchen
'If My.Computer.FileSystem.FileExists(tempFilename1) Then
' My.Computer.FileSystem.DeleteFile(tempFilename1)
'End If
'Dim temppath = Path.GetTempPath
'Dim EncodingFormat As Encoding
'Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBPMO_KONFIGURATION WHERE GUID = 1")
'If WDUnicode = True Then
' EncodingFormat = Encoding.GetEncoding(1252) '1252
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Unicode is used (Encoding.GetEncoding(1252))", False)
'Else
' If LogErrorsOnly = False Then ClassLogger.Add(" >> UTF8 (Encoding.GetEncoding(65001))", False)
' EncodingFormat = Encoding.GetEncoding(65001)
'End If
'Dim fileContents As String
'If LogErrorsOnly = False Then ClassLogger.Add(" >> ReadAlltext: " & windream_temp_search, False)
'fileContents = My.Computer.FileSystem.ReadAllText(Basesearch, EncodingFormat) ', System.Text.Encoding.Unicode
'If LogErrorsOnly = False Then ClassLogger.Add(" >> fileContents geladen", False)
'fileContents = fileContents.Replace("Í", "Ö")
'Dim _sp1 = SP1
'Dim _sp2 = SP2
'Dim _sp3 = SP3
'Dim _sp4 = SP4
'Dim _sp5 = SP5
'If _sp1.ToString <> String.Empty Then
' _sp1 = Return_SearchPattern(_sp1.ToString)
' fileContents = fileContents.Replace("%pattern1%", _sp1)
' fileContents = fileContents.Replace("471101", _sp1)
'End If
'If _sp2.ToString <> String.Empty Then
' _sp2 = Return_SearchPattern(_sp2.ToString)
' If _sp2 = 0 Then
' _sp2 = ""
' End If
' fileContents = fileContents.Replace("%pattern2%", _sp2)
' fileContents = fileContents.Replace("471102", _sp2)
'End If
'If _sp3.ToString <> String.Empty Then
' _sp3 = Return_SearchPattern(_sp3.ToString)
' If _sp3 = 0 Then
' _sp3 = ""
' End If
' fileContents = fileContents.Replace("%pattern3%", _sp3)
' fileContents = fileContents.Replace("471103", _sp3)
'End If
'If _sp4.ToString <> String.Empty Then
' _sp4 = Return_SearchPattern(_sp4.ToString)
' If _sp4 = 0 Then
' _sp4 = ""
' End If
' fileContents = fileContents.Replace("%pattern4%", _sp4)
' fileContents = fileContents.Replace("471104", _sp4)
'End If
'If _sp5.ToString <> String.Empty Then
' _sp5 = Return_SearchPattern(_sp5.ToString)
' If _sp5 = 0 Then
' _sp5 = ""
' End If
' fileContents = fileContents.Replace("%pattern5%", _sp5)
' fileContents = fileContents.Replace("471105", _sp5)
'End If
''Die windream File zusammensetzen
'windream_temp_search = temppath & tempName & ".wdf"
'TEMP_FILES.Add(windream_temp_search)
''Die File schreiben
'My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat)
'My.Computer.FileSystem.WriteAllText(temppath & "SEARCH_COPY.wdf", fileContents, False, EncodingFormat)
'' XML-Datei öffnen und laden
'Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat)
'Dim Reader As New System.Xml.XmlTextReader(Stream)
'' XML-Datei initialisieren
'Dim xml As New System.Xml.XmlDocument()
'' XML-Datei öffnen und laden
'xml.Load(Reader)
'Reader.Close()
'xml.Save(windream_temp_search)
'If LogErrorsOnly = False Then ClassLogger.Add(" >> Xml Generiert: " & windream_temp_search, False)
'Dim windreamSucheErgebnisse As WINDREAMLib.WMObjects
'Try
' windreamSucheErgebnisse = ClassWindream.GetSearchDocuments(windream_temp_search)
'Catch ex As Exception
' MsgBox("Error in windreamSucheErgebnisse:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
'End Try
'elapsed = sw.Elapsed.TotalSeconds
'If LogErrorsOnly = False Then ClassLogger.Add(" >> GetSearchDocuments took " & Format(elapsed, "0.000000000") & " seconds", False)
'If windreamSucheErgebnisse.Count > 0 Then
' Dim files_deleted As Integer = 0
' For Each dok As WMObject In windreamSucheErgebnisse
' Dim filename = "W:" & dok.aPath
' Try
' File.Delete(filename)
' files_deleted = +1
' Catch ex As Exception
' ClassLogger.Add("Unexpected Error in Delete windream-file '" & filename & "- Error: " & ex.Message)
' End Try
' Dim msg = "Es wurden (" & files_deleted.ToString & ") Dateien gelöscht!"
' If USER_LANGUAGE <> "de-DE" Then
' msg = "(" & files_deleted.ToString & ") files were deleted!"
' End If
' MsgBox(msg, MsgBoxStyle.Information)
' Next
'Else
' Dim msg = "Es wurden keine Dateien für diesen Datensatz gefunden!"
' If USER_LANGUAGE <> "de-DE" Then
' msg = "No files found for record!"
' End If
' MsgBox(msg, MsgBoxStyle.Information)
'End If
Cursor = Cursors.Default
Catch ex As Exception
MsgBox("Error in WD-Delete Docs:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Run WD Delete Docs: " & ex.Message)
End Try
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run WD Delete Docs took " & Format(elapsed, "0.000000000") & " seconds", False)
Cursor = Cursors.Default
End Sub
Private Sub RUN_WDSEARCH_GRID(Type As String)
Me.Cursor = Cursors.WaitCursor
Try
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, Type)
If IsNothing(DT_RESULT) Then
Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data"
tslblWindreamView.Text = msg
Me.Cursor = Cursors.Default
Exit Sub
End If
If DT_RESULT.Rows.Count > 0 Then 'Es gibt Suchergebnisse
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID
If Type = "ENTITY" Then
Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim Entitystring
If selnode.Text.Contains(" (") Then
Entitystring = selnode.Text.Substring(0, selnode.Text.IndexOf("(") - 1)
Else
Entitystring = selnode.Text
End If
msg = "Windream-Dokumente für Entität: " & Entitystring
If USER_LANGUAGE <> "de-DE" Then
msg = "windream-files for entity: " & Entitystring
End If
Else
If USER_LANGUAGE <> "de-DE" Then
msg = "windream-files for record: " & RECORD_ID
End If
End If
tslblWindreamView.Text = msg
If DT_RESULT.Rows.Count > 0 Then
Dim listcheck As New List(Of String)
Dim listdate As New List(Of String)
For Each rw As DataRow In DT_WINDREAM_RESULTLIST.Rows
' Dim Width = rw.Item("WIDTH") 'DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("{0}_WIDTH", col.ColumnName))
' If Not IsNothing(Width) And Not IsDBNull(Width) Then
'Dim column = DirectCast(GridViewDoc_Search.Columns.Item(rw.Item("HEADER_CAPTION")), DevExpress.XtraGrid.Columns.GridColumn)
'column.Width = Width
'Console.WriteLine("ColumnWidth {0} set to {1}", column.FieldName, Width)
'Console.WriteLine("ColumnWidth {0} really set to {1}", column.FieldName, column.VisibleWidth)
'End If
'Liste von allen Spaltentiteln mit Checkbox erstellen
If rw.Item("TYPE_ID") = 2 And CBool(rw.Item("VISIBLE")) = True Then
listcheck.Add(rw.Item("HEADER_CAPTION"))
End If
'Liste von allen Spaltentiteln mit Checkbox erstellen
If rw.Item("TYPE_ID") = 3 And CBool(rw.Item("VISIBLE")) = True Then
listdate.Add(rw.Item("HEADER_CAPTION"))
End If
Next
Dim tbltemp As DataTable = DT_RESULT.Clone()
For Each col1 As String In listcheck
Dim collist As DataColumn = tbltemp.Columns(col1)
If Not IsNothing(collist) Then
collist.DataType = GetType(Boolean)
End If
Next
For Each col1 As String In listdate
Dim coldate As DataColumn = tbltemp.Columns(col1)
If Not IsNothing(coldate) Then
coldate.DataType = GetType(Date)
End If
Next
Try
tbltemp.Load(DT_RESULT.CreateDataReader)
DT_RESULT = tbltemp
Catch ex As Exception
ClassLogger.Add(">> Attention: Could not load converted datatable DocSearch: " & ex.Message, False)
End Try
GridControlDocSearch.DataSource = DT_RESULT
' Alle Date Spalten durchgehen
For Each col As String In listdate
Dim colDate = GridViewDoc_Search.Columns(col)
colDate.DisplayFormat.FormatType = FormatType.DateTime
colDate.DisplayFormat.FormatString = USER_DATE_FORMAT
Next
'Jetzt die Spaltenbreiten anpassen
For Each rw As DataRow In DT_WINDREAM_RESULTLIST.Rows
Dim Width = rw.Item("WIDTH") 'DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("{0}_WIDTH", col.ColumnName))
If Not IsNothing(Width) And Not IsDBNull(Width) Then
Dim column = DirectCast(GridViewDoc_Search.Columns.Item(rw.Item("HEADER_CAPTION")), DevExpress.XtraGrid.Columns.GridColumn)
column.Width = Width
'Console.WriteLine("ColumnWidth {0} set to {1}", column.FieldName, Width)
'Console.WriteLine("ColumnWidth {0} really set to {1}", column.FieldName, column.VisibleWidth)
End If
Next
' Größe der Icon Column anpassen
GridViewDoc_Search.Columns.Item("ICON").MaxWidth = 24
GridViewDoc_Search.Columns.Item("ICON").MinWidth = 24
GridViewDoc_Search.Columns.Item("FULLPATH").Visible = False
GridViewDoc_Search.Columns.Item("OBJECTTYPE").Visible = False
GridViewDoc_Search.Columns.Item("DocID").Visible = False
Dim changed = "Geändert"
Dim created = "Erstellt"
If USER_LANGUAGE <> "de-DE" Then
changed = "Changed"
created = "Created"
End If
Try
GridViewDoc_Search.Columns(created).DisplayFormat.FormatType = FormatType.DateTime
GridViewDoc_Search.Columns(created).DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
GridViewDoc_Search.Columns(changed).DisplayFormat.FormatType = FormatType.DateTime
GridViewDoc_Search.Columns(changed).DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
Catch ex As Exception
ClassLogger.Add(">> Attention: Could not change datetime formats Change/Create: " & ex.Message, False)
End Try
'' Den Editor Initialisieren und Optionen setzen
'Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
'CheckBoxEditorForDisplay.ValueChecked = "True"
'CheckBoxEditorForDisplay.ValueUnchecked = "False"
''Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
'For Each col As String In listcheck
' GridViewDoc_Search.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
' If Not IsNothing(GridViewDoc_Search.Columns(col)) Then
' GridViewDoc_Search.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
' End If
'Next
'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
If TCDetails.SelectedTabPageIndex <> 1 Then
TCDetails.SelectedTabPageIndex = 1
End If
End If
Else
Dim msg = "Keine Windream-Dokumente für Record: " & RECORD_ID & " gefunden"
If Type = "ENTITY" Then
Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim Entitystring
If selnode.Text.Contains(" (") Then
Entitystring = selnode.Text.Substring(0, selnode.Text.IndexOf("(") - 1)
Else
Entitystring = selnode.Text
End If
msg = "Keine Windream-Dokumente für Entität: " & Entitystring & " gefunden"
If USER_LANGUAGE <> "de-DE" Then
msg = "No windream-files foundfor entity: " & Entitystring
End If
Else
If USER_LANGUAGE <> "de-DE" Then
msg = "No windream-files found for record: " & RECORD_ID
End If
End If
tslblWindreamView.Text = msg
GridControlDocSearch.DataSource = Nothing
'Clear_Windream_ResultList()
End If
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run RUN_WDSEARCH_GRID took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception
MsgBox("Unexpected Error in Run WD-Search Database: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Cursor = Cursors.Default
End Sub
Private Function Return_SearchPattern(ByVal content As String)
Select Case content.ToUpper
Case "@Record-ID".ToUpper
Return RECORD_ID
Case "@EntityID".ToUpper
Return ENTITY_ID
Case "@ParentID".ToUpper
Return PARENT_RECORDID
Case Else
MsgBox("Undefined pattern '" & content & "' in windream-Search Config. Please inform Your system-administrator.", MsgBoxStyle.Exclamation)
ClassLogger.Add(" >> Undefined Search-pattern in windream-search config: " & content, True)
End Select
End Function
'Private Sub AxObjectListControl_ItemClicked(sender As Object, e As EventArgs) Handles AxObjectListControl.ItemClicked
' CheckDocView()
'End Sub
Sub Clear_Windream_ResultList()
Try
Dim sw As New Stopwatch
sw.Start()
'AxObjectListControl.RemoveAllColumnHeader()
'Me.AxObjectListControl.ClearResultList()
Dim stg As String = "windream-Dateien"
If USER_LANGUAGE <> "de-DE" Then
stg = "windream-files"
End If
TabWindream.Text = stg
Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Clear Result List took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception
MsgBox("Unexpected Error in Clear Result List:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub CheckDocView()
'Dim _index = AxObjectListControl.GetFirstSelectedObject
'Dim path As String = AxObjectListControl.GetObjectPath(_index)
'path = path.Replace("?", vWLaufwerk)
'DocViewString = path
If WD_ShowDocs = True Then
CloseWDDocview()
ShowDocView()
End If
End Sub
Sub ShowDocView()
Try
CloseWDDocview()
DocView = Nothing
DocView = CreateObject("WMPViewXNG.Viewer")
' open the viewer
DocView.ViewFile(DocViewString)
OpenedFileString = DocViewString
Catch ex As Exception
MsgBox("Error in ShowDocView:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Sub CloseWDDocview()
Try
If DocView Is Nothing = False Then
DocView.CloseView(OpenedFileString, 0)
End If
Catch ex As Exception
ClassLogger.Add(" ### Error in CloseDocView")
ClassLogger.Add("### " & ex.Message & " ###")
End Try
End Sub
#End Region
#Region "GridViews"
Private Sub ButtonQuickViewCarousel_Click(sender As Object, e As EventArgs) Handles ButtonQuickViewCarousel.Click
GRID_TYPE = GridType.Carousel
VIEW_ID_RUNTIME = 2
GRID_TYPE_ID = 2
grvwCarousel.OptionsView.ViewMode = DevExpress.XtraGrid.Views.Layout.LayoutViewMode.Carousel
GridControlMain.MainView = grvwCarousel
Load_Datafor_Entity()
End Sub
Private Sub ButtonQuickViewTiles_Click(sender As Object, e As EventArgs) Handles ButtonQuickViewTiles.Click
GRID_TYPE = GridType.Tiles
VIEW_ID_RUNTIME = 1
GRID_TYPE_ID = 1
GridControlMain.MainView = grvwTiles
Load_Datafor_Entity()
End Sub
Private Sub ButtonDetailView_Click(sender As Object, e As EventArgs) Handles ButtonDetailView.Click
GRID_TYPE = GridType.Grid
VIEW_ID_RUNTIME = 3
GRID_TYPE_ID = 3
GridControlMain.MainView = grvwGrid
Load_Datafor_Entity()
End Sub
Private Sub ButtonSetViewAsDefault_Click(sender As Object, e As EventArgs) Handles ButtonSetViewAsDefault.Click
Dim VIEWTYPE_ID As Integer
Select Case GRID_TYPE
Case GridType.Tiles
VIEWTYPE_ID = 1
Case GridType.Carousel
VIEWTYPE_ID = 2
Case GridType.Grid
VIEWTYPE_ID = 3
End Select
Dim upd = String.Format("UPDATE TBPMO_USER_CONSTR_VIEW_TYPE SET VIEW_ID = {0} WHERE CONSTRUCTOR_DETAIL_ID = {1} AND [ENTITY_ID] = {2} AND USER_ID = {3}", VIEWTYPE_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, ENTITY_ID, USER_GUID)
If ClassDatabase.Execute_non_Query(upd, True) = True Then
' VIEW_ID Override zurücksetzen!!
VIEW_ID_RUNTIME = -1
MsgBox("Stanard-View was saved successfully!", MsgBoxStyle.Information)
End If
End Sub
Private Sub ButtonResetView_Click(sender As Object, e As EventArgs) Handles ButtonResetView.Click
' TODO: Ansicht zurücksetzen
Try
Dim XMLPath = Get_Grid_Layout_Filename()
If File.Exists(XMLPath) Then
File.Delete(XMLPath)
Load_Entity_Data(ACT_EBENE)
End If
Catch ex As Exception
MsgBox("Error in Reset Layout Grid: " & vbNewLine & ex.Message)
End Try
End Sub
#End Region
Private Sub TCDetails_DragDrop(sender As Object, e As DragEventArgs) Handles TCDetails.DragDrop
Drag_Drop(e)
End Sub
Private Sub TCDetails_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TCDetails.SelectedPageChanged
Update_Status_Label(False, "")
tsButtonEdit.Enabled = True
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("pos") Then
tsButtonEdit.Enabled = False
Load_Pos_Data()
Load_POSGrid_Layout()
End If
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("windr") Then
If RIGHT_WINDREAM_FORBIDDEN = False Then
tsButtonEdit.Enabled = False
If RECORD_ID = 0 Then
Dim result As MsgBoxResult
Dim msg = String.Format("Wollen Sie eine Entitätsweite Suche ausführen?")
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("Would You like to run a entity-wide docsearch?")
End If
result = MessageBox.Show(msg, "Exporting result:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
RUN_WDSEARCH_GRID("ENTITY")
End If
Else
' RUN_WD_SEARCH(WD_Suche, "RECORD")
RUN_WDSEARCH_GRID("RECORD")
End If
Load_DocGrid_Layout()
End If
End If
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Or TCDetails.SelectedTabPage.Text.ToLower.StartsWith("follo") Then
tsButtonEdit.Enabled = False
Refresh_FollowUps()
dtpFollowUp.Enabled = False
lblWiedervorlage_Control.Text = "<< Waiting for Selection:"
'Check_FOLLOWUP_IsConfigured(ENTITY_ID)
End If
Select Case TCDetails.SelectedTabPageIndex
Case 0
Column_Row_Handler(0, False, True)
'If RECORD_NEEDS_REFRESH = True Then
' ClassControlValues.LoadControlValues(RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
' ' UpdRECORD_NEEDS_REFRESH(False)
'End If
'Refresh_CreatedChangedRecordByID(RECORD_ID)
' RECORD_CHANGED = False
Case 1 'windream-Dokumente
BACKGROUND_HELPER.PictureAlignment = ContentAlignment.BottomRight
Case 2
'Refresh_FollowUps()
End Select
End Sub
Private Sub Refresh_FollowUps()
Try
If DT_FU_ENTITY.Rows.Count > 0 Then
grpbxFU_Profile.Enabled = True
End If
Catch ex As Exception
MsgBox("Error in Refresh_FollowUps:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
#Region "Dropping Files"
Sub Drag_Enter(e As DragEventArgs)
If act_FormViewID <> 0 Then
ClassDragDrop.Drag_enter(e)
End If
End Sub
Sub Drag_Drop(e As DragEventArgs)
If act_FormViewID <> 0 And RIGHT_WINDREAM_FORBIDDEN = False Then
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
End If
If RECORD_CHANGED = True Then
If Save_Record() = False Then
Exit Sub
End If
End If
CURRENT_CONTROL_DOCTYPE_MATCH = 0
If CONTROL_DOCTYPE_MATCH <> 0 Then
Try
CURRENT_CONTROL_DOCTYPE_MATCH = ""
CURRENT_CONTROL_DOCTYPE_MATCH = ClassControlValues.GetControlValuesREC_CONTROL(RECORD_ID, CONTROL_DOCTYPE_MATCH)
Catch ex As Exception
CURRENT_CONTROL_DOCTYPE_MATCH = 0
CURRENT_CONTROL_DOCTYPE_MATCH = ""
End Try
End If
If e.Data.GetDataPresent(DataFormats.StringFormat) Then
Dim Wert As String = CType(e.Data.GetData(DataFormats.StringFormat), Object)
Console.WriteLine("DragDrop-Wert: " & Wert)
If Wert.Contains("SCAN") Then
Dim split() = Wert.Split(";")
If IsNumeric(split(1)) Then
CURRENT_FILEID = split(1)
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
CURRENT_RECORD_ID = RECORD_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID
frmWD_IndexFile.ShowDialog()
'RUN_WD_SEARCH(WD_Suche, "RECORD")
End If
ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
CURRENT_RECORD_ID = RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
Check_Dropped_Files()
End If
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
CURRENT_RECORD_ID = RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
Check_Dropped_Files()
End If
End If
Else
CURRENT_RECORD_ID = RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
Check_Dropped_Files()
End If
End If
'Nur wenn neue Dateien abgelegt wurden muss die Prozedur zur aktualisierung der windream Dateien ausgeführt werden...ansonsten muss nichts passieren
If NEW_FILES_ADDED = True Then
Me.Cursor = Cursors.WaitCursor
If ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS = True Then
RUN_WDSEARCH_GRID("RECORD")
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> No new files were added or windream tab is not focused!", False)
End If
Me.Cursor = Cursors.Default
Else
'If RIGHT_ONLY_READ = True Then
' ClassLogger.Add(">> RIGHT_ONLY_READ is set! No DragDrop allowed", False)
'End If
If RIGHT_WINDREAM_FORBIDDEN = True Then
ClassLogger.Add(">> RIGHT_WD_FORBIDDEN is set! No DragDrop allowed", False)
End If
End If
End Sub
Sub Check_Dropped_Files()
Try
NEW_FILES_ADDED = False
If RECORD_CHANGED = True Then
If Save_Record() = False Then
Exit Sub
End If
End If
If RECORD_ID = 0 Then
MsgBox("Please choose a record!", MsgBoxStyle.Information)
Exit Sub
End If
For Each Str As Object In ClassDragDrop.files_dropped
If Not IsNothing(Str) Then
Dim DropType = Str.Substring(0, Str.LastIndexOf("@") + 1)
If DropType.ToString.Contains("SCAN") = False Then
ClassLogger.Add(">> Check_Dropped_Files:" & Str.ToString, False)
Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1)
TBPMO_FILES_USERTableAdapter.cmdInsert(CURRENT_WORKFILE, Environment.UserName, DropType)
End If
End If
Next
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)
If Not IsNothing(DT) Then
If DT.Rows.Count > 0 Then
For Each Filerow As DataRow In DT.Rows
'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "")
CURRENT_FILEID = Filerow.Item(0)
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
CURRENT_RECORD_ID = RECORD_ID
CURRENT_FORM_ID = ENTITY_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID
If ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_FILES_USER WHERE GUID = " & CURRENT_FILEID & " AND WORKED = 0") = 1 Then
frmWD_IndexFile.ShowDialog()
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> File was deleted or worked meanwhile!")
End If
Next
RUN_WDSEARCH_GRID("RECORD")
' RUN_WD_SEARCH(WD_Suche, "RECORD")
End If
End If
Else
MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
Exit Sub
End If
Catch ex As Exception
MsgBox("Check_Dropped_Files: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub GridControlMain_DragEnter(sender As Object, e As DragEventArgs) Handles GridControlMain.DragEnter
Drag_Enter(e)
End Sub
Private Sub pnlDetails_DragEnter(sender As Object, e As DragEventArgs) Handles pnlDetails.DragEnter
Drag_Enter(e)
End Sub
Private Sub GridControlMain_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlMain.DragDrop
Drag_Drop(e)
End Sub
Private Sub pnlDetails_DragDrop(sender As Object, e As DragEventArgs) Handles pnlDetails.DragDrop
Drag_Drop(e)
End Sub
Private Sub TCDetails_DragEnter(sender As Object, e As DragEventArgs) Handles TCDetails.DragEnter
Drag_Enter(e)
End Sub
Private Sub GridControlDocSearch_DragEnter(sender As Object, e As DragEventArgs) Handles GridControlDocSearch.DragEnter
Drag_Enter(e)
End Sub
#End Region
#Region "Follow Up"
Private Sub ListViewFollowUps_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewFollowUps.SelectedIndexChanged
If Me.ListViewFollowUps.SelectedItems.Count > 0 Then
dtpFollowUp.Enabled = False
FOLL_UP_ID = ListViewFollowUps.SelectedItems(0).Text
lblFollowUp_save.Visible = False
For Each DR As DataRow In DT_FU_ENTITY.Rows
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"), RECORD_ID)
If Not IsNothing(datevalue) Then
dtpFollowUp.Enabled = True
If datevalue = "00:00:00" Then
dtpFollowUp.Value = ClassHelper.Convert_Date(Now, CURRENT_DATE_FORMAT)
End If
FOLL_UP_RECORD_DEFINED = True
Try
dtpFollowUp.Value = ClassHelper.Convert_Date(datevalue, CURRENT_DATE_FORMAT)
Catch ex As Exception
dtpFollowUp.Value = ClassHelper.Convert_Date(Now, CURRENT_DATE_FORMAT)
End Try
Else
dtpFollowUp.Value = ClassHelper.Convert_Date(Now, CURRENT_DATE_FORMAT)
FOLL_UP_RECORD_DEFINED = False
End If
Dim caption = ClassDatabase.Execute_Scalar("SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = " & DR.Item("DEPENDENT_DATE_CTRL_ID"), True)
If Not IsNothing(caption) Then
lblWiedervorlage_Control.Text = CStr(caption)
Else
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"), RECORD_ID)
If Not IsNothing(checkvalue) Then
chkFollowUp.Checked = CBool(checkvalue)
Else
chkFollowUp.Checked = False
End If
Dim SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} AND SCREEN_ID = {1}", DR.Item("DEPENDENT_DONE_CTRL_ID"), CURRENT_SCREEN_ID)
Dim ctrl_screen_id = ClassDatabase.Execute_Scalar(SQL, True)
If ctrl_screen_id > 0 Then
SQL = String.Format("SELECT CAPTION FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = {0} AND LANGUAGE_TYPE = '{2}'", ctrl_screen_id, USER_LANGUAGE)
Dim captionCheck = ClassDatabase.Execute_Scalar(SQL, True)
If Not IsNothing(captionCheck) Then
chkFollowUp.Text = CStr(captionCheck)
End If
End If
Load_FUUser(FOLL_UP_ID)
End If
Next
End If
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 = " & 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
ListBoxUser2Profile.ValueMember = DT.Columns(0).ColumnName
Catch ex As Exception
MsgBox("Error in Load Follow Up User:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub dtpWV_ValueChanged(sender As Object, e As EventArgs) Handles dtpFollowUp.ValueChanged
If ENTITY_LOADED = False = False Then
Exit Sub
End If
If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DATE_CTRL_ID, RECORD_ID, dtpFollowUp.Value) = True Then
lblFollowUp_save.Text = "Follow Up saved - " & Now.ToString
lblFollowUp_save.Visible = True
'UpdRECORD_NEEDS_REFRESH(True)
Else
lblFollowUp_save.Visible = False
'UpdRECORD_NEEDS_REFRESH(False)
End If
End Sub
Private Sub chkFollowUp_CheckedChanged(sender As Object, e As EventArgs) Handles chkFollowUp.CheckedChanged
If ENTITY_LOADED = False Then
Exit Sub
End If
If ClassControlCommandsUI.UpdateControlValue(FOLL_UP_DONE_CTRL_ID, RECORD_ID, chkFollowUp.Checked.ToString) = True Then
lblFollowUp_save.Text = "Follow Up saved - " & Now.ToString
lblFollowUp_save.Visible = True
' UpdRECORD_NEEDS_REFRESH(True)
Else
lblFollowUp_save.Visible = False
'UpdRECORD_NEEDS_REFRESH(False)
End If
End Sub
Private Function Check_FOLLOWUP_IsConfigured(ENTITY_ID As Integer)
Try
Dim sql = "select * from TBPMO_FOLLOW_UP_EMAIL t where t.ACTIVE = 1 and t.DEPENDENT_DATE_CTRL_ID in (select guid from TBPMO_CONTROL where CONTROL_TYPE_ID = 4 and form_id = " & ENTITY_ID & ")"
DT_FU_ENTITY = ClassDatabase.Return_Datatable(sql)
If DT_FU_ENTITY.Rows.Count > 0 Then
'Die Userauswahl füllen
Dim DTUser As DataTable = ClassDatabase.Return_Datatable("select guid, username from TBDD_USER t where T.EMAIL IS NOT NULL AND MODULE_RECORD_ORG = 1 order by USERNAME")
cmbFollowUpUser.DataSource = DTUser
cmbFollowUpUser.DisplayMember = DTUser.Columns(1).ColumnName
cmbFollowUpUser.ValueMember = DTUser.Columns(0).ColumnName
TabFollowUp.PageVisible = True
FOLLOW_UPisActive = True
'Die Wiedervorlageprofile in den Listview laden
ListViewFollowUps.Items.Clear()
Dim anz As Integer = 0
For Each DR As DataRow In DT_FU_ENTITY.Rows
Dim name = DR.Item("NAME")
ListViewFollowUps.Items.Add(DR.Item("GUID"))
ListViewFollowUps.Items(anz).SubItems.Add(name)
anz += 1
Next
Else
FOLLOW_UPisActive = False
TabFollowUp.PageVisible = False
End If
Catch ex As Exception
MsgBox("Error in Check Follow Up:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
windream_Docshow = False
End Try
End Function
#End Region
#Region "Tasks"
'Private Sub tsButtonShowWorkflowTasks_Click(sender As Object, e As EventArgs) Handles tsButtonShowWorkflowTasks.Click
' If RECORD_ID > 0 Then
' CURRENT_RECORD_ID = RECORD_ID
' CURRENT_FORM_ID = ENTITY_ID
' frmTask_Editor.ShowDialog()
' Show_act_WFTask()
' Refresh_TaskOverview()
' End If
'End Sub
Private Sub tsButtonShowTaskOverview_Click(sender As Object, e As EventArgs) Handles tsButtonShowTaskOverview.Click
ClassJumpRecord.JumpToRecord(2, RECORD_ID)
JUMP_RECORD_ID = 0
End Sub
Sub Refresh_TaskOverview()
Dim frmCollection As New FormCollection()
frmCollection = Application.OpenForms()
If frmTask_Overview.IsHandleCreated Then
If Sett_TaskOverviewKeepInFront = True Then
frmTask_Overview.Refresh()
End If
'Else
' Console.WriteLine("frmTaskOverview NICHT geladen")
End If
End Sub
Sub Show_act_WFTask()
Try
Dim query = From table In DD_DMSDataSet.VWPMO_WF_ACTIVE.AsEnumerable()
Select table Where table.Item("ENTITY_ID") = ENTITY_ID
Dim Entity_rows = query.ToList()
Dim exists As Boolean = False
For Each _row In Entity_rows
If _row.Item("RECORD_ID") = RECORD_ID Then
CURRENT_TASK_ID = _row.Item("WF_TASK_ID")
Dim text = "Task: " & _row.Item("WF_TITLE")
text += " - " & _row.Item("STATE_TITLE")
text += " - " & _row.Item("DUE_DATE")
tsslblWorkflowstate.Text = text
tsslblWorkflowstate.Visible = True
If _MANUAL_WORKFLOW = True Then
CreateWorkflowTasksToolStripMenuItem.Visible = True
Else
CreateWorkflowTasksToolStripMenuItem.Visible = False
End If
'Direkten Zugriff auf RecordView Workflow erlauben
tsButtonShowTaskOverview.Visible = True
tsButtonShowTaskOverview.Enabled = True
Dim Colorstring = _row.Item("COLOR")
If IsDBNull(Colorstring) Then
Exit Sub
End If
If Colorstring <> "" Then
'grvwSelection.Appearance.FocusedRow.BackColor = ColorTranslator.FromWin32(CInt(Colorstring))
'grvwSelection.Appearance.FocusedRow.ForeColor = Color.Yellow
tsslblWorkflowstate.BackColor = ColorTranslator.FromWin32(CInt(Colorstring))
Select Case tsslblWorkflowstate.BackColor
Case Color.Red
tsslblWorkflowstate.ForeColor = Color.White
End Select
End If
exists = True
End If
Next
tsslblWorkflowstate.BackColor = Color.Black
If exists = False Then
'Keine Workflows....also auch keinen Zugriff geben
tsButtonShowTaskOverview.Visible = False
If _MANUAL_WORKFLOW = True Then
CreateWorkflowTasksToolStripMenuItem.Visible = True
End If
tsslblWorkflowstate.Visible = False
End If
Catch ex As Exception
MsgBox("Error in Show act WFTask: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
#End Region
Private Sub ResetEbenenAuswahlToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ResetEbenenAuswahlToolStripMenuItem.Click
ACT_EBENE = 0
CURRENT_ACT_LEVEL = 0
ACT_EBENE_STRING = ""
EBENE1_ENTITY = ""
EBENE1_RECID = 0
EBENE2_ENTITY = ""
EBENE2_RECID = 0
EBENE3_ENTITY = ""
EBENE3_RECID = 0
NavPane.Categories.Clear()
Load_Tree_View(CONSTRUCTORID)
End Sub
Private Sub DateiimportEntitätToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiimportEntitätToolStripMenuItem.Click
If PARENT_ENTITYID = 0 Then
Exit Sub
End If
CURRENT_ENTITYSTRING = _ENTITYSTRING
CURRENT_FORM_ID = ENTITY_ID
frmWD_EntityImport.ShowDialog()
End Sub
Private Sub WindreamsucheNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WindreamsucheNeuLadenToolStripMenuItem.Click
ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
RUN_WDSEARCH_GRID("RECORD")
' RUN_WD_SEARCH(WD_Suche, "RECORD")
End Sub
Private Sub WorkflowTasksNeuErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CreateWorkflowTasksToolStripMenuItem.Click
Dim result As MsgBoxResult
Dim stg, caption As String
If USER_LANGUAGE = "de-DE" Then
stg = "Wollen Sie die Workflowtasks für diesen Datensatz erzeugen? Alte Workflows werden gelöscht!"
caption = "Bestätigung erforderlich:"
Else
stg = "Do You really want to create workflowtasks for this record? Existing workflows will be deleted!"
caption = "Confirmation needed:"
End If
result = MessageBox.Show(stg, caption, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
CURRENT_FORM_ID = ENTITY_ID
Dim sql = "EXEC PRPMO_CREATE_WF_TASKS " & CURRENT_FORM_ID & ", " & RECORD_ID
If ClassDatabase.Execute_non_Query(sql) Then
VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, Environment.UserName)
Show_act_WFTask()
If USER_LANGUAGE = "de-DE" Then
stg = "Workflows erzeugt! Wollen Sie die Workflowübersicht nun anzeigen?"
caption = "Erfolgreich:"
Else
stg = "Workflows created! Would You like to show the Workflow-Overview?"
caption = "Success:"
End If
result = MessageBox.Show(stg, caption, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
ClassJumpRecord.JumpToRecord(2, RECORD_ID)
JUMP_RECORD_ID = 0
End If
Else
If USER_LANGUAGE = "de-DE" Then
stg = "Die Workflows konnten nicht erzeugt werden. Bitte prüfen Sie die Log-Datei!"
Else
stg = "Error in Creating Workflow-Tasks. Please check the logfile!"
End If
MsgBox(stg, MsgBoxStyle.Exclamation)
End If
Catch ex As Exception
MsgBox("Unexpected Error in Create Workflowtasks Record: " & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
Private Sub ZeigeRecordLogsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZeigeRecordLogsToolStripMenuItem.Click
CURRENT_RECORD_ID = RECORD_ID
frmRecord_Changes.ShowDialog()
End Sub
Private Sub FormDesignerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles FormDesignerToolStripMenuItem.Click
Try
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then
Dim FormId As Integer = Return_ENTITY_FOR_TAG(SelectedNode.Tag)
If FormId > 0 Then
CURRENT_FORM_ID = FormId
OpenFormLevelDesigner()
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Open Designer: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub ButtonExportToExcel_Click(sender As Object, e As EventArgs) Handles ButtonExportToExcel.Click
Dim saveFileDialog1 As New SaveFileDialog
saveFileDialog1.Filter = "Excel File|*.xlsx"
saveFileDialog1.Title = "Export to Excel:"
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> "" Then
Cursor = Cursors.WaitCursor
GridControlMain.MainView.ExportToXlsx(saveFileDialog1.FileName)
Dim result As MsgBoxResult
Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?")
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("File was created. Do You want to open excel?")
End If
result = MessageBox.Show(msg, "Exporting result:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Process.Start(saveFileDialog1.FileName)
End If
End If
Cursor = Cursors.Default
End Sub
Private Sub frmForm_Constructor_Main_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Dim sw As Stopwatch = Stopwatch.StartNew()
Dim elapsed As Double
Me.BringToFront()
' LoadLayouts()
Load_Level1()
Jump_Record()
sw.Stop()
elapsed = sw.Elapsed.TotalSeconds
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Form Shown took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
End Sub
Sub Jump_Record()
Try
Dim sw As Stopwatch = Stopwatch.StartNew()
Dim elapsed As Double
If LogErrorsOnly = False Then ClassLogger.Add(" >> " & Now.ToString & " Jump_Record", False)
If JUMP_RECORD_ID > 0 Then
Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", JUMP_RECORD_ID)
Dim FormID = ClassDatabase.Execute_Scalar(sql, True)
If FormID > 0 Then
Dim n As TreeNode
For Each n In TreeViewMain.Nodes
CheckNode(n, FormID)
Next
End If
End If
' wurde nicht zurückgesetzt, also
' wurde der record nicht gefunden
If JUMP_RECORD_ID <> 0 Then
MsgBox("Fehler in Jump Record: " & vbNewLine & "Record-ID " & JUMP_RECORD_ID & " konnte nicht gefunden werden")
End If
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Jump_Record took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
Catch ex As Exception
MsgBox("Unexpected error in jump-Record: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub CheckNode(ByVal n As TreeNode, FormID As Integer)
Dim aNode As TreeNode
If CInt(Return_ENTITY_FOR_TAG(n.Tag)) = FormID Then
'Gefunden also selektieren
TreeViewMain.SelectedNode = n
TreeViewMain.SelectedNode.EnsureVisible()
TreeViewMain.Select()
'Für Grid filtern wir die Aktuelle Ansicht nach der Record-ID,
'für Carousel und Tiles markieren wir den Record
LocateRecordById(JUMP_RECORD_ID)
' Jump Record-ID wieder zurücksetzen
JUMP_RECORD_ID = 0
Exit Sub
End If
For Each aNode In n.Nodes
If CInt(Return_ENTITY_FOR_TAG(aNode.Tag)) = FormID Then
'Gefunden also selektieren
TreeViewMain.SelectedNode = aNode
TreeViewMain.SelectedNode.EnsureVisible()
TreeViewMain.Select()
'Für Grid filtern wir die Aktuelle Ansicht nach der Record-ID,
'für Carousel und Tiles markieren wir den Record
LocateRecordById(JUMP_RECORD_ID)
' Jump Record-ID wieder zurücksetzen
JUMP_RECORD_ID = 0
Exit For
Exit Sub
End If
CheckNode(aNode, FormID)
Next
End Sub
Public Sub LocateRecordById(RecordId As Integer)
If GRID_TYPE = GridType.Grid Then
Dim rowHandle = grvwGrid.LocateByValue(0, grvwGrid.Columns("Record-ID"), RecordId)
grvwGrid.FocusedRowHandle = rowHandle
ElseIf GRID_TYPE = GridType.Carousel Then
Dim rowHandle = grvwCarousel.LocateByValue(0, grvwCarousel.Columns("Record-ID"), RecordId)
grvwCarousel.FocusedRowHandle = rowHandle
ElseIf GRID_TYPE = GridType.Tiles Then
Dim rowHandle = grvwTiles.LocateByValue(0, grvwTiles.Columns("Record-ID"), RecordId)
grvwTiles.FocusedRowHandle = rowHandle
End If
End Sub
Sub Load_Templates()
Try
Dim sql As String = "SELECT * FROM VWPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & ENTITY_ID & " ORDER BY TEMPLATE_NAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Load_Templates")
If Not IsNothing(DT) Then
If DT.Rows.Count > 0 Then
OfficeVorlagenToolStripMenuItem.Enabled = True
OfficeVorlagenToolStripMenuItem.DropDownItems.Clear()
For Each row As DataRow In DT.Rows
Dim item As ToolStripMenuItem = OfficeVorlagenToolStripMenuItem
Dim newItem As ToolStripMenuItem = New ToolStripMenuItem(row.Item("TEMPLATE_NAME").ToString, Nothing, AddressOf TemplateItem_Click)
newItem.Tag = row.Item("TEMPLATE_ID")
item.DropDownItems.Add(newItem) ' subitem.DropDownItems.Add(newItem)
Next
Else
OfficeVorlagenToolStripMenuItem.Enabled = False
End If
End If
Catch ex As Exception
MsgBox("Error in Load_Templates:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
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 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 = " & 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, RECORD_ID) = True Then
RUN_WDSEARCH_GRID("RECORD")
' RUN_WD_SEARCH(WD_Suche, "RECORD")
Update_Status_Label(True, "Template file imported to windream", EditState.Insert)
End If
Cursor = Cursors.Default
Else
Dim msg = "Bitte wählen Sie nochmal einen Datensatz aus."
If USER_LANGUAGE <> "de-DE" Then
msg = "Please choose a record again."
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
End If
End If
Else
Dim msg = "Bitte wählen Sie zuerst einen Datensatz aus."
If USER_LANGUAGE <> "de-DE" Then
msg = "Please choose a record first."
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
End If
End Sub
Sub Load_Level1()
Try
Dim sw As Stopwatch = Stopwatch.StartNew()
Dim elapsed As Double
' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
Dim result = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Order By form.Item("SEQUENCE")
Where form.Item("PARENT_ID") = 0
If result.Count >= 1 Then
Dim tn As TreeNode = TreeViewMain.Nodes(0)
TreeViewMain.SelectedNode = tn
TreeViewMain.Select()
End If
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Load_Level1 took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
Catch ex As Exception
MsgBox("Error in Load_Level1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
' Call the procedure using the top nodes of the treeview.
Private Sub CallRecursive(ByVal aTreeView As TreeView)
End Sub
Private Sub grvwGridPos_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) Handles grvwGridPos.CellValueChanged
Try
Dim column = e.Column.FieldName
Dim sql = String.Format("select guid from TBPMO_CONTROL where COL_NAME = '{0}' and FORM_ID = {1}", column, POS_ENTITY)
Dim controlid = ClassDatabase.Execute_Scalar(sql, True)
If Not IsNothing(controlid) Then
'Überprüfen ob schon value vorhanden
sql = String.Format("SELECT CONTROL_ID FROM VWPMO_VALUES WHERE CONTROL_ID = {0} AND FORM_ID = {1} AND CONTROL_COLUMN = '{2}' AND RECORD_ID = {3}", controlid, POS_ENTITY, column, POS_RECORD_ID)
Dim cId As Integer = ClassDatabase.Execute_Scalar(sql)
If IsNothing(POS_RECORD_ID) Or IsDBNull(POS_RECORD_ID) Then
If ClassControlCommandsUI.CreateRecord(POS_ENTITY) = True Then
Dim recid = ClassControlCommandsUI.GetLastRecord
If Not IsNothing(recid) Then
'Die neue Record-ID setzen
POS_RECORD_ID = recid
ClassControlCommandsUI.ConnectRecord(PARENT_RECORDID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString)
Else
MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation)
End If
End If
End If
' Wenn cId = 0, existiert noch kein wert für diese controlId/FormId Kombination
If cId = 0 Then
ClassControlCommandsUI.InsertControlValue(controlid, POS_RECORD_ID, e.Value)
Update_Status_Label(True, "Record was added!", EditState.Insert)
Else
ClassControlCommandsUI.UpdateControlValue(controlid, POS_RECORD_ID, e.Value)
Update_Status_Label(True, "Record was updated!", EditState.Update)
End If
Else
Update_Status_Label(False)
End If
Catch ex As Exception
MsgBox("Error in grvwGridPos_CellValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub grvwGridPos_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles grvwGridPos.FocusedRowChanged
Try
If TCDetails.SelectedTabPage.Text.StartsWith("Pos") Then
Dim Grid_RecordID = Get_Focused_Row_Cell_Value_pos("Record-ID")
If Not IsNothing(Grid_RecordID) Then
POS_RECORD_ID = Grid_RecordID
'SELECTED_RECORD_ID = POS_RECORD_ID
'RECORD_ID = POS_RECORD_ID
'Update_Record_Label(SELECTED_RECORD_ID)
End If
End If
Catch ex As Exception
MsgBox("Error in grvwGridPos_FocusedRowChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub grvwGridPos_RowUpdated(sender As Object, e As RowObjectEventArgs) Handles grvwGridPos.RowUpdated
End Sub
Private Sub GridControlPos_Leave(sender As Object, e As EventArgs) Handles GridControlPos.Leave
Save_POSGrid_Layout()
End Sub
Private Sub grvwGridPos_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGridPos.RowStyle
If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
e.Appearance.BackColor = Color.Orange 'LemonChiffon
End If
End Sub
Private Sub grvwGrid_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGrid.RowStyle
If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
e.Appearance.BackColor = Color.Orange
Else
If GRID_TYPE = GridType.Grid Then
If e.RowHandle = -1 Then
Exit Sub
End If
Try
Dim rowCellValue = grvwGrid.GetRowCellValue(e.RowHandle, "ROW_COLOR")
If rowCellValue <> "" Then
Dim ColorRow As Color
Try
ColorRow = Color.FromName(rowCellValue)
Catch ex As Exception
ClassLogger.Add(">> RowBackColor '" & rowCellValue & "'could not be converted from name!", False)
Exit Sub
End Try
'Dim c As Color = DirectCast(rowCellValue, Color)
e.Appearance.BackColor = ColorRow
e.HighPriority = True
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in RowStyle: " & ex.Message, False)
End Try
End If
End If
End Sub
Private Sub grvwGrid_MouseDown(sender As Object, e As MouseEventArgs) Handles grvwGrid.MouseDown, grvwTiles.MouseDown, grvwCarousel.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
RightMouse_Clicked = True
Else
RightMouse_Clicked = False
End If
End Sub
Private Sub btnAddUser_FollowUp_Click(sender As Object, e As EventArgs) Handles btnAddUser_FollowUp.Click
If cmbFollowUpUser.SelectedIndex <> -1 And FOLL_UP_ID > 0 Then
Try
Dim ins = "INSERT INTO TBPMO_FOLLUPEMAIL_RECORD (FOLLOW_UP_ID,USER_ID,RECORD_ID,ADDED_WHO) VALUES (" & FOLL_UP_ID & ", " & cmbFollowUpUser.SelectedValue & ", " & RECORD_ID & ", '" & Environment.UserName & "')"
If ClassDatabase.Execute_non_Query(ins, True) = True Then
Load_FUUser(FOLL_UP_ID)
Update_Status_Label(True, "User added to Follow Up", EditState.Insert)
End If
Catch ex As Exception
MsgBox("Error in Add User2FollowUp_Record:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
Private Sub btnRemoveUser_FollowUp_Click(sender As Object, e As EventArgs) Handles btnRemoveUser_FollowUp.Click
If ListBoxUser2Profile.SelectedIndex <> -1 Then
Try
Dim del = "DELETE FROM TBPMO_FOLLUPEMAIL_RECORD WHERE GUID = " & ListBoxUser2Profile.SelectedValue
If ClassDatabase.Execute_non_Query(del, True) = True Then
Update_Status_Label(True, "User removed from Follow Up", EditState.Update)
Load_FUUser(FOLL_UP_ID)
End If
Catch ex As Exception
MsgBox("Error in Delete Userlink FollowUp:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
Private Sub VerknüpfungenAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerknüpfungenAnzeigenToolStripMenuItem.Click
Show_Verknuepfungen()
End Sub
Sub Show_Verknuepfungen()
Dim result As MsgBoxResult
Dim msg = "Möchten Sie den Parent-Datensatz für den aktuellen Datensatz wirklich aktualisieren?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to change the parent-record?"
End If
result = MessageBox.Show(msg, "Change parent-record:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result <> MsgBoxResult.Yes Then
Exit Sub
End If
Dim sql
sql = "select * from VWTEMP_PMO_FORM" & PARENT_ENTITYID.ToString
CURRENT_PARENT_DT = ClassDatabase.Return_Datatable(sql, "VariableSelect ParentEntity")
frmChooseParentRecord.ShowDialog()
If CURRENT_PARENT_RECORD_ID = 0 Then
MsgBox("No Parent-Record selected. Changing Process will be terminated", MsgBoxStyle.Exclamation)
Exit Sub
End If
Dim del = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RECORD_ID
If ClassDatabase.Execute_non_Query(del, True) = False Then
MsgBox("Error in deleting old Record-Link. Check the logfile", MsgBoxStyle.Exclamation)
Exit Sub
End If
If ClassControlCommandsUI.ConnectRecord(CURRENT_PARENT_RECORD_ID, RECORD_ID, "ReLInk ENTITY " & ENTITY_ID.ToString) = True Then
'Save_GridViewParentEntityLayout()
msg = "Die Parent-Entität wurde erfolgreich aktualisiert!"
If USER_LANGUAGE <> "de-DE" Then
msg = "The Parent-Record was changed successful!"
End If
MsgBox(msg, MsgBoxStyle.Information)
Load_Entity_Data_Only()
End If
End Sub
Private Sub RecordKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RecordKopierenToolStripMenuItem.Click
Dim result As MsgBoxResult
Dim msg = "Möchten Sie den Datensatz wirklich kopieren?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to copy the record?"
End If
result = MessageBox.Show(msg, "Copy Record:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Dim SQL = String.Format("EXEC PRDD_COPY_RECORD {0}, '{1}'", RECORD_ID, Environment.UserName)
If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then
Load_Entity_Data(ACT_EBENE)
End If
End If
End Sub
Private Sub DatenNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatenNeuLadenToolStripMenuItem.Click
Load_Datafor_Entity()
End Sub
Private Sub AnwendungscacheFreigebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnwendungscacheFreigebenToolStripMenuItem.Click
Dim result As MsgBoxResult
Dim msg = "Möchten Sie den Anwendungscache wirklich leeren?" & vbNewLine & "Die Entität wird dann automatisch neugeladen!"
If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to clear the applications-cache?" & vbNewLine & "All data will be loaded new!"
End If
result = MessageBox.Show(msg, "Clear cache:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
Cursor = Cursors.WaitCursor
CURRENT_FORM_ID = ENTITY_ID
ClassControlValueCache.ClearCache()
DisableEditMode()
Load_Entity_Data(ACT_EBENE)
RECORD_CHANGED = False
Catch ex As Exception
MsgBox("Unexpected Error in Clear Cache:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Finally
Cursor = Cursors.Default
End Try
End If
End Sub
Private Sub grvwGrid_ColumnFilterChanged(sender As Object, e As EventArgs) Handles grvwGrid.ColumnFilterChanged
SET_ROWCOUNT_STRING()
End Sub
Sub SET_ROWCOUNT_STRING()
Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim origtext As String = selnode.Text
If origtext.Contains(" (") Then
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
selnode.Text = String.Format("{0} ({1})", existingstring, grvwGrid.RowCount)
Else
selnode.Text = String.Format("{0} ({1})", selnode.Text, grvwGrid.RowCount)
End If
End Sub
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
'Private Sub AxObjectListControl_CausesValidationChanged(sender As Object, e As EventArgs) Handles AxObjectListControl.CausesValidationChanged
' Console.WriteLine("CausesValidationChanged")
'End Sub
'Private Sub AxObjectListControl_SettingFlagChanged(sender As Object, e As EventArgs) Handles AxObjectListControl.SettingFlagChanged
' Console.WriteLine("SettingFlagChanged")
'End Sub
'Private Sub AxObjectListControl_Validated(sender As Object, e As EventArgs) Handles AxObjectListControl.Validated
' Console.WriteLine("Validated")
'End Sub
Private Sub tslblLocked_VisibleChanged(sender As Object, e As EventArgs) Handles tslblLocked.VisibleChanged
If tslblLocked.Visible = True Then
Dim msg = "Nur lesenden Zugriff"
If USER_LANGUAGE <> "de-DE" Then
msg = "Record is read only"
End If
tslblLocked.Text = msg
End If
End Sub
Private Sub tsmi_RecordDelete_Click(sender As Object, e As EventArgs) Handles tsmi_RecordDelete.Click
Delete_Record()
End Sub
Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
If RESULT_DOC_PATH <> Nothing Then
Try
Dim selectedfile(0) As String
selectedfile(0) = RESULT_DOC_PATH
Dim dataobj As New DataObject
dataobj.SetData(DataFormats.FileDrop, True, selectedfile)
Clipboard.Clear()
Clipboard.SetDataObject(dataobj, True)
Catch ex As Exception
MsgBox("Unexpected Error in Copy file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Cursor = Cursors.Default
End If
End Sub
Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
Get_Doc_Items()
End Sub
Sub Get_Doc_Items()
Try
RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
Catch ex As Exception
ClassLogger.Add(">> Attention: Could not set DocVariable RESULT_DOC_PATH: " & ex.Message, False)
RESULT_DOC_PATH = Nothing
End Try
Try
RESULT_OBJECTTYPE = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("OBJECTTYPE"))
Catch ex As Exception
ClassLogger.Add(">> Attention: Could not set DocVariable RESULT_OBJECTTYPE: " & ex.Message, False)
RESULT_OBJECTTYPE = ""
End Try
Try
RESULT_INWORK = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("in work?"))
Catch ex As Exception
ClassLogger.Add(">> Attention: Could not set DocVariable RESULT_INWORK: " & ex.Message, False)
RESULT_INWORK = ""
End Try
Try
RESULT_DOC_ID = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("DocID"))
Catch ex As Exception
ClassLogger.Add(">> Attention: Could not set DocVariable RESULT_DOC_ID: " & ex.Message, False)
RESULT_DOC_ID = Nothing
End Try
Try
RESULT_DISPLAYNAME = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("Displayname"))
Catch ex As Exception
RESULT_DISPLAYNAME = ""
End Try
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
If RESULT_DOC_PATH <> Nothing Then
Dim msg = "Wollen Sie nur die Verknüpfung der Datei entfernen?" & vbNewLine & "Datei bleibt im DMS/Archiv/Explorer erhalten!"
If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to delete only the references?" & vbNewLine & "File will stay in ECM/Archive/Explorer!"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
Dim DT_INDICES As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & RESULT_OBJECTTYPE & "'")
If Not IsNothing(DT_INDICES) Then
If DT_INDICES.Rows.Count = 1 Then
'Record-Links entfernen
If ClassWindream.REMOVE_VEKTOR_LINK(RESULT_DOC_PATH, DT_INDICES.Rows(0).Item("IDXNAME_RECORDID"), RECORD_ID) = True Then
'ENTITY-Links entfernen
If ClassWindream.REMOVE_VEKTOR_LINK(RESULT_DOC_PATH, DT_INDICES.Rows(0).Item("IDXNAME_ENTITYID"), ENTITY_ID) = True Then
Dim del = "DELETE FROM TBPMO_DOC_RECORD_LINK WHERE DocID = " & RESULT_DOC_ID
If ClassDatabase.Execute_non_Query(del) = True Then
del = "DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = " & RESULT_DOC_ID
If ClassDatabase.Execute_non_Query(del) = True Then
ClassHelper.InsertEssential_Log(RESULT_DOC_ID, "DOC-ID", "RECORD LINK REMOVED FROM DOC-SEARCH")
RUN_WDSEARCH_GRID("RECORD")
End If
End If
End If
End If
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Removing links from file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Else
msg = "Sind Sie sicher, dass Sie die Datei " & vbNewLine & RESULT_DOC_PATH & vbNewLine & "endgültig löschen wollen?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Are You sure You want to permanently delete this file?" & vbNewLine & RESULT_DOC_PATH
End If
Dim result1 As MsgBoxResult
result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result1 = MsgBoxResult.Yes Then
Try
If Not IsNothing(RESULT_DOC_ID) Then
If ClassWindream.Delete_WDFile(RESULT_DOC_PATH) = True Then
If ClassFileResult.Delete_ResultFile(RESULT_DOC_ID) = True Then
ClassHelper.InsertEssential_Log(RESULT_DOC_ID, "DOC-ID", "FILE DELETED BY USER")
RUN_WDSEARCH_GRID("RECORD")
End If
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End If
End If
End Sub
Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertiesToolStripMenuItem.Click
If RESULT_DOC_PATH <> Nothing Then
Cursor = Cursors.WaitCursor
Dim sei As New SHELLEXECUTEINFO
sei.cbSize = Marshal.SizeOf(sei)
sei.lpVerb = "properties"
sei.lpFile = RESULT_DOC_PATH
sei.nShow = SW_SHOW
sei.fMask = SEE_MASK_INVOKEIDLIST
If Not ShellExecuteEx(sei) Then
Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
MsgBox("Unexpected Error in Open file propertys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End If
End If
Cursor = Cursors.Default
End Sub
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
ClassHelper.File_open(RESULT_DOC_PATH, RESULT_DOC_ID)
End Sub
Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
Get_Doc_Items()
ClassHelper.File_open(RESULT_DOC_PATH, RESULT_DOC_ID)
End Sub
Private Sub TabWindream_Leave(sender As Object, e As EventArgs) Handles TabWindream.Leave
Save_DocGrid_Layout()
End Sub
Private Sub GridControlDocSearch_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlDocSearch.DragDrop
Drag_Drop(e)
End Sub
Private Sub tslblFileslocked_VisibleChanged(sender As Object, e As EventArgs) Handles tslblFileslocked.VisibleChanged
If tslblFileslocked.Visible = True Then
Dim msg = "Kein Dateizugriff"
If USER_LANGUAGE <> "de-DE" Then
msg = "File-access not granted"
End If
tslblFileslocked.Text = msg
End If
End Sub
Private Sub tsButtonCancel_Click(sender As Object, e As EventArgs) Handles tsButtonCancel.Click
If CtrlCommandUI.IsInsert = True Then
ClassHelper.DeleteRecord(SELECTED_RECORD_ID)
End If
tsButtonCancel.Visible = False
tsButtonAdd.Enabled = True
CtrlCommandUI.IsInsert = False
RECORD_CHANGED = False
' Den derzeitigen Record Neuladen
Column_Row_Handler()
End Sub
Private Sub tsbtnRedo_Click(sender As Object, e As EventArgs) Handles tsbtnRedo.Click
Me.Cursor = Cursors.WaitCursor
Dim proc = String.Format("EXEC PRPMO_REDO_RECORD_CHANGES {0}", RECORD_ID)
If ClassDatabase.Execute_non_Query_withConn(proc, 1) = True Then
RECORD_ID = 0
Column_Row_Handler()
Me.Cursor = Cursors.Default
End If
End Sub
#Region "TrySave Funktionen"
Public Function TrySave_RequiredControlsFilled() As Boolean
Dim missingValues As New List(Of String)
missingValues = ClassControlValues.CheckRequiredControlValues(CtrlBuilder.MasterPanel.Controls)
If missingValues.Count > 0 Then
Dim RequiredControlNames = String.Join(vbNewLine, missingValues)
If (USER_LANGUAGE = "de-DE") Then
Dim message = String.Format("Die folgenden Steuerelemente müssen ausgefüllt sein: {0}{1}", vbNewLine, RequiredControlNames)
MessageBox.Show(message, "Muss-Felder ausfüllen", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
Dim message = String.Format("The following controls must be filled with values: {0}{1}", vbNewLine, RequiredControlNames)
MessageBox.Show(message, "Fill Required Controls", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
Focus_Control(missingValues.First())
' Muss-Felder sind noch nicht ausgefüllt worden
Return False
Else
' Muss-Felder sind alle ausgefüllt
Return True
End If
End Function
''' <summary>
''' Überprüft beim manuellen Speichern, ob Datensatz verändert wurde und
''' ob alle Muss-Felder ausgefüllt wurden
''' </summary>
''' <returns>
''' Gibt False zurück, wenn nicht alle Muss-Felder gefüllt wurde,
''' ansonsten True
''' </returns>
Public Function TrySave_User() As Boolean
Try
'EDIT_STATE = EditState.None
'Update_Status_Label(False)
If RECORD_CHANGED = False Then
' Datensatz wurde nicht verändert
Return True
End If
Dim RequiredControlsFilled As Boolean = TrySave_RequiredControlsFilled()
If RequiredControlsFilled = True Then
TrySave_DoSave()
Return True
Else
Return False
End If
Catch ex As Exception
MessageBox.Show("Error in TrySave_User: " & vbNewLine & ex.Message)
Return False
End Try
End Function
Public Sub TrySave_DoSave()
' Record Speichern
Dim ResultMessage = CtrlCommandUI.SaveRecord(SELECTED_RECORD_ID, ENTITY_ID, PARENT_RECORDID)
' Status anzeigen
Update_Status_Label(True, ResultMessage)
'Jetzt die für die Entität notwendigen Prroceduren ausführen
Customer_Run_Procedures()
' RECORD_CHANGED zurücksetzen
RECORD_CHANGED = False
End Sub
''' <summary>
''' Fragt den Benutzer beim Datensatzwechsel, ob Änderungen gespeichert werden sollen. Gibt False zurück, wenn Mussfelder ausgefüllt werden müssen, ansonsten True.
''' </summary>
Public Function TrySave_Automatic() As Boolean
Try
EDIT_STATE = EditState.None
'Update_Status_Label(False)
If RECORD_CHANGED = True Then
Dim ShouldSave As DialogResult
If USER_LANGUAGE = "de-DE" Then
ShouldSave = MessageBox.Show("Sie haben ungespeicherte Änderungen. Wollen Sie diese speichern?", "Ungespeicherte Änderungen", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Else
ShouldSave = MessageBox.Show("There are unsaved changes. Would You like to save?", "Unsaved changes", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End If
If ShouldSave = DialogResult.Yes Then
If CtrlCommandUI.IsInsert Then
EDIT_STATE = EditState.None
'
End If
Dim RequiredControlsFilled As Boolean = TrySave_RequiredControlsFilled()
If RequiredControlsFilled = True Then
' Änderungen sollen gespeichert werden,
' Muss-Felder sind alle ausgefüllt
TrySave_DoSave()
' Hinzufügen Button wieder aktivieren
tsButtonAdd.Enabled = True
If CtrlCommandUI.IsInsert Then
Lock_RecordControls(True)
End If
Return True
Else
' Änderungen sollen gespeichert werden,
' aber Muss-Felder sind noch nicht ausgefüllt worden
Return False
End If
Else
' Angelegten Record löschen
If CtrlCommandUI.IsInsert Then
ClassHelper.DeleteRecord(SELECTED_RECORD_ID)
End If
' Änderungen sollen nicht gespeichert werden
RECORD_CHANGED = False
tsButtonCancel.Visible = False
' Hinzufügen Button wieder aktivieren
tsButtonAdd.Enabled = True
Return True
End If
Else
' Datensatz wurde nicht verändert
Return True
End If
Catch ex As Exception
MessageBox.Show("Error in TrySave_Automatic: " & vbNewLine & ex.Message)
Return False
End Try
End Function
#End Region
Private Sub grvwGrid_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) Handles grvwGrid.CellValueChanged
End Sub
Private Sub SucheAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SucheAnzeigenToolStripMenuItem.Click
grvwGrid.ShowFindPanel()
End Sub
Private Sub MassenänderungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MassenänderungToolStripMenuItem.Click
Try
Dim list As New ArrayList
Dim collist As New ArrayList
For i = 0 To grvwGrid.RowCount
Dim recid = grvwGrid.GetRowCellValue(i, "Record-ID")
If Not IsNothing(recid) Then
list.Add(recid)
End If
Next
For Each col As DevExpress.XtraGrid.Columns.GridColumn In grvwGrid.VisibleColumns
Dim name = col.Name
If name.StartsWith("col") Then
name = name.Substring(3)
End If
collist.Add(name)
Next
MASS_COLUMN_LIST = collist
MASS_RECORD_IDs2CHANGE = list
Save_Grid_Layout()
frmMass_Change.ShowDialog()
If SUCCESSFULL = True Then
Load_Datafor_Entity()
End If
Catch ex As Exception
MsgBox("Unexpected Error in MassChange Collector:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub GridViewDoc_Search_ColumnWidthChanged(sender As Object, e As ColumnEventArgs) Handles GridViewDoc_Search.ColumnWidthChanged
Try
'If USER_RESULTLIST_CONFIG_GUID = 0 Then
' Dim insert = String.Format("INSERT INTO TBPMO_USER_WINDREAM_RESULTLIST_CONFIG (USER_ID,CONSTRUCTOR_DETAIL_ID,COLUMN1,COLUMN1_WIDTH,COLUMN2,COLUMN2_WIDTH,COLUMN3,COLUMN3_WIDTH,COLUMN4,COLUMN4_WIDTH,COLUMN5,COLUMN5_WIDTH,COLUMN6,COLUMN6_WIDTH,COLUMN7,COLUMN7_WIDTH,ADDED_WHO)" & _
' " SELECT {0},{1},COLUMN1,COLUMN1_WIDTH,COLUMN2,COLUMN2_WIDTH,COLUMN3,COLUMN3_WIDTH,COLUMN4,COLUMN4_WIDTH,COLUMN5,COLUMN5_WIDTH,COLUMN6,COLUMN6_WIDTH,COLUMN7,COLUMN7_WIDTH,'{2}' FROM TBPMO_WINDREAM_RESULTLIST_CONFIG WHERE GUID = {3}", USER_GUID, CONSTRUCTOR_DETAIL_ID, Environment.UserName, gridGUID)
' If ClassDatabase.Execute_non_Query(insert) = True Then
' USER_RESULTLIST_CONFIG_GUID = ClassDatabase.Execute_Scalar("SELECT MAX GUID FROM TBPMO_USER_WINDREAM_RESULTLIST_CONFIG WHERE USER_ID = " & USER_GUID)
' Else
' Exit Sub
' End If
'End If
'Console.WriteLine("Column changed - Column name: " & e.Column.Name)
'Dim colNameGrid = e.Column.Name.Replace("col", "")
''Jetzt über die Column der Configtabelle auf den Inhalt schliessen
'For Each col As DataColumn In DT_WINDREAM_RESULTLIST.Columns
' Dim rowvalue = DT_WINDREAM_RESULTLIST.Rows(0).Item(col.ColumnName)
' If IsDBNull(rowvalue) Or IsNumeric(rowvalue) Then
' Continue For
' End If
' If rowvalue = colNameGrid Then
' Dim update = String.Format("UPDATE TBPMO_USER_WINDREAM_RESULTLIST_CONFIG SET {0}_WIDTH = {1} WHERE GUID = {2}", col.ColumnName, e.Column.VisibleWidth, USER_RESULTLIST_CONFIG_GUID)
' ClassDatabase.Execute_non_Query(update)
' Exit For
' End If
'Next
'If USER_RESULTLIST_CONFIG_GUID > 0 Then
' 'DT_WINDREAM_RESULTLIST zu USER NEU LADEN
' Dim sql_ResultList = "select * from TBPMO_USER_WINDREAM_RESULTLIST_CONFIG where USER_ID = " & USER_GUID & " AND CONSTRUCTOR_DETAIL_ID = " & CONSTRUCTOR_DETAIL_ID
' Dim DT As DataTable = ClassDatabase.Return_Datatable(sql_ResultList, "GET USER_RESULTLIST KONFIG")
' DT_WINDREAM_RESULTLIST = DT
'End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in ColumnWidth-Change DocResult: " & ex.Message, False)
End Try
End Sub
Private Sub ToolStripTextBox2_KeyUp(sender As Object, e As KeyEventArgs) Handles ToolStripTextBox2.KeyUp
If e.KeyCode = Keys.Return Then
Try
If ToolStripTextBox2.Text <> "" Then
Dim OldName, NewName As String
OldName = RESULT_DOC_PATH
' Define file names.
NewName = ToolStripTextBox2.Text
Dim name1 = Path.Combine(Path.GetDirectoryName(RESULT_DOC_PATH), NewName)
NewName = NewName & Path.GetExtension(RESULT_DOC_PATH)
' Rename file.
My.Computer.FileSystem.RenameFile(OldName, NewName)
RUN_WDSEARCH_GRID("RECORD")
ContextMenuStripResultFiles.Close()
End If
Catch ex As Exception
MsgBox("Unexpected Error in Renaming files: " & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click
Display_Filename()
End Sub
Private Sub UmbenennenToolStripMenuItem_MouseHover(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.MouseHover
Display_Filename()
End Sub
Sub Display_Filename()
Try
If RESULT_DOC_PATH <> "" Then
Dim FileToRename As String
FileToRename = Path.GetFileNameWithoutExtension(RESULT_DOC_PATH)
ToolStripTextBox2.Text = FileToRename
ToolStripTextBox2.Enabled = True
Else
ToolStripTextBox2.Enabled = False
End If
Catch ex As Exception
MsgBox("Unexpected Error in getting the filename: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub DateiMitDatensatzVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TSMI_linkRecord.Click
Dim fileName As String = RESULT_DOC_PATH
CURRENT_DOC_ID = RESULT_DOC_ID
Dim frm As New frmWD_Link_to_Record(fileName, RESULT_OBJECTTYPE)
frm.Show()
End Sub
Private Sub DetailAnsichtDatensatzToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DetailAnsichtDatensatzToolStripMenuItem.Click
ClassJumpRecord.JumpToRecord(0, RECORD_ID)
JUMP_RECORD_ID = 0
End Sub
Private Sub EntitätssucheStartenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EntitätssucheStartenToolStripMenuItem.Click
RUN_WDSEARCH_GRID("ENTITY")
End Sub
Private Sub GridViewDoc_Search_RowStyle(sender As Object, e As Views.Grid.RowStyleEventArgs) Handles GridViewDoc_Search.RowStyle
If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
e.Appearance.BackColor = Color.Orange
Else
If e.RowHandle = -1 Then
Exit Sub
End If
Try
Dim rowCellValue = GridViewDoc_Search.GetRowCellValue(e.RowHandle, "in work?")
If rowCellValue Is Nothing Then
Exit Sub
End If
Try
Dim inwork = rowCellValue
If inwork = True Then
e.Appearance.BackColor = Color.Orchid
e.HighPriority = True
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Checking Value In Work: " & ex.Message, False)
End Try
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in RowStyle GridViewDoc_Search: " & ex.Message, False)
End Try
End If
End Sub
Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
File_in_Work()
If RESULT_DISPLAYNAME <> "" Then
TSMIDisplayname.Visible = True
Set_Displayname()
Else
TSMIDisplayname.Visible = False
End If
End Sub
Sub File_in_Work()
TSMI_inWork.Enabled = True
Try
Dim expression As String
expression = "DocID = " & RESULT_DOC_ID
Dim foundRowsLevel0() As DataRow
' Use the Select method to find all rows matching the filter.
foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
Try
IW_USER = foundRowsLevel0(0)(13)
IW_COMMENT = foundRowsLevel0(0)(14)
Catch ex As Exception
IW_USER = ""
IW_COMMENT = ""
End Try
Dim displ As String
If CBool(RESULT_INWORK) = True Then
If IW_USER.ToUpper = Environment.UserName.ToUpper Then
displ = "Datei wieder freigeben"
If USER_LANGUAGE <> "de-DE" Then
displ = "Set file free"
End If
Else
displ = "Datei in Bearbeitung (zeige Info)"
If USER_LANGUAGE <> "de-DE" Then
displ = "File is in work (show details)"
End If
End If
Else
displ = "Datei in Bearbeitung nehmen"
If USER_LANGUAGE <> "de-DE" Then
displ = "Lock file for working"
End If
End If
TSMI_inWork.Text = displ
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in File-Work Info: " & ex.Message, False)
TSMI_inWork.Enabled = False
End Try
End Sub
Private Sub TSMI_inWork_Click(sender As Object, e As EventArgs) Handles TSMI_inWork.Click
ClassFileResult.DocID = RESULT_DOC_ID
If RESULT_INWORK = True Then ' Datei ist in Bearbeitung
Dim displ As String
If IW_USER.ToUpper = Environment.UserName.ToUpper Then
If ClassFileResult.Set_InWork(0, "") = True Then
RUN_WDSEARCH_GRID("RECORD")
End If
Else
displ = "In Bearbeitung durch User: " & vbNewLine & IW_USER & vbNewLine & "Kommentar:" & vbNewLine & IW_COMMENT
If USER_LANGUAGE <> "de-DE" Then
displ = "In Work from User: " & vbNewLine & IW_USER & vbNewLine & "Comment:" & vbNewLine & IW_COMMENT
End If
MsgBox(displ, MsgBoxStyle.Information)
End If
Else
frmFileInWork.ShowDialog()
RESULT_INWORK = ClassFileResult.InWork
RUN_WDSEARCH_GRID("RECORD")
End If
End Sub
Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged
Get_Doc_Items()
End Sub
Private Sub AnsichtZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnsichtZurücksetzenToolStripMenuItem.Click
' TODO: Ansicht zurücksetzen
Try
Dim XMLPath = Get_DocGRid_Layout_Filename()
If File.Exists(XMLPath) Then
Me.Cursor = Cursors.WaitCursor
File.Delete(XMLPath)
RUN_WDSEARCH_GRID("RECORD")
Else
MsgBox("Set back of Layout not successfull - File not existing!", MsgBoxStyle.Information)
End If
Catch ex As Exception
MsgBox("Error in Reset Layout DocGrid: " & vbNewLine & ex.Message)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub TSMIDisplayname_Click(sender As Object, e As EventArgs) Handles TSMIDisplayname.Click
Set_Displayname()
End Sub
Private Sub TSMIDisplayname_MouseHover(sender As Object, e As EventArgs) Handles TSMIDisplayname.MouseHover
Set_Displayname()
End Sub
Sub Set_Displayname()
Try
If RESULT_DISPLAYNAME <> "" Then
tstbDisplayname.Text = RESULT_DISPLAYNAME
tstbDisplayname.Enabled = True
Else
tstbDisplayname.Enabled = False
End If
Catch ex As Exception
MsgBox("Unexpected Error in getting the Displayname: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub tstbDisplayname_KeyUp(sender As Object, e As KeyEventArgs) Handles tstbDisplayname.KeyUp
If e.KeyCode = Keys.Return Then
Try
ClassFileResult.DocID = RESULT_DOC_ID
If tstbDisplayname.Text <> "" Then
If ClassFileResult.Set_Displayname(tstbDisplayname.Text) Then
RUN_WDSEARCH_GRID("RECORD")
ContextMenuStripResultFiles.Close()
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Setting Displayname Click: " & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles tsmiRights.Click
Dim msg = "Die Rechte wurden erfolgreich überprüft und aktualisiert!"
If ClassDOC_SEARCH.SET_WD_RIGHTS(RESULT_DOC_ID, RESULT_DOC_PATH) = True Then
If USER_LANGUAGE <> "de-DE" Then
msg = "The rights were successfully renewed!"
End If
MsgBox(msg, MsgBoxStyle.Information)
Else
msg = "Unerwarteter Fehler im Rechtemodul. Bitte prüfen Sie die Logdatei!"
If USER_LANGUAGE <> "de-DE" Then
msg = "Unexpected error in rights-module. Please check the logfile!"
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
End If
End Sub
End Class
Reference in New Issue View Git Blame Copy Permalink