213 lines
11 KiB
VB.net
213 lines
11 KiB
VB.net
Imports System
|
|
Imports System.ComponentModel
|
|
Imports System.Collections.Generic
|
|
Imports System.Diagnostics
|
|
Imports System.Text
|
|
|
|
Imports DevExpress.ExpressApp
|
|
Imports DevExpress.ExpressApp.Actions
|
|
Imports DevExpress.Persistent.Base
|
|
Imports System.Xml
|
|
Imports DevExpress.Xpo
|
|
Imports DevExpress.Persistent.BaseImpl
|
|
Imports DevExpress.Data.Filtering
|
|
Imports DevExpress.ExpressApp.CloneObject
|
|
|
|
Public Class BusinessDirectory_VC
|
|
Inherits DevExpress.ExpressApp.ViewController
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
InitializeComponent()
|
|
RegisterActions(components)
|
|
End Sub
|
|
Protected Overrides Sub OnActivated()
|
|
MyBase.OnActivated()
|
|
If View.Id = "Role_ListView_BusinessDirectory" Then
|
|
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
|
End If
|
|
End Sub
|
|
Protected Overrides Sub OnDeactivated()
|
|
MyBase.OnDeactivated()
|
|
If View.Id = "Role_ListView_BusinessDirectory" Then
|
|
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
|
End If
|
|
End Sub
|
|
Private Sub aBusinessDirectory_OppenDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OppenDocument.Execute
|
|
Try
|
|
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
|
Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory)
|
|
ProcessDocument(_BusinessDirectory.FileData)
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")
|
|
End Try
|
|
End Sub
|
|
Private Sub ProcessDocument(_DocumentFile As DevExpress.Persistent.BaseImpl.FileData)
|
|
Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _DocumentFile.FileName)
|
|
Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create)
|
|
_DocumentFile.SaveToStream(_Stream)
|
|
_Stream.Close()
|
|
If IO.Path.GetExtension(_FilePath).Replace(".", "").ToUpper = "XML" Then
|
|
|
|
'Dim _Arguments As String
|
|
'Select Case GLOBAL_SQLType
|
|
' Case eSQLType.MSSQL
|
|
' _Arguments = """" & _FilePath + """ " + GLOBAL_SQLUser + " " + GLOBAL_SQLPassword + " MSSQL " + GLOBAL_SQLDatabase + " " + GLOBAL_SQLServer
|
|
' Case eSQLType.MySQL
|
|
' _Arguments = """" & _FilePath + """ " + GLOBAL_SQLUser + " " + GLOBAL_SQLPassword + " MySQL " + GLOBAL_SQLDatabase + " " + GLOBAL_SQLServer
|
|
' Case eSQLType.PostgreSQL
|
|
' _Arguments = """" & _FilePath + """ " + GLOBAL_SQLUser + " " + GLOBAL_SQLPassword + " PostgreSQL " + GLOBAL_SQLDatabase + " " + GLOBAL_SQLServer
|
|
'End Select
|
|
|
|
'Process.Start(GLOBAL_ApplicationStartupPath + "DashBoardViewer.exe", _Arguments)
|
|
Else
|
|
|
|
Process.Start(_FilePath)
|
|
End If
|
|
End Sub
|
|
Private Sub aBusinessDirectory_OpenDashboardWithViewer_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OpenDashboardWithViewer.Execute
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory)
|
|
|
|
Dim _Dashboard As New Dashboard(_onew.Session)
|
|
With _Dashboard
|
|
.DashboardViewMode = DashboardViewMode.Viewer
|
|
.UserName = _BusinessDirectory.DashBoard_UserName
|
|
.Password = _BusinessDirectory.DashBoard_Password
|
|
.SQLServer = _BusinessDirectory.DashBoard_Server
|
|
.Database = _BusinessDirectory.DashBoard_Database
|
|
.XMLFileData = _onew.GetObject(_BusinessDirectory.FileData)
|
|
.SQLType = _BusinessDirectory.SQLType
|
|
|
|
End With
|
|
|
|
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Dashboard_DetailView_Viewer", True, _Dashboard)
|
|
End Sub
|
|
Private Sub aBusinessDirectory_OpenDashboardWithDesigner_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OpenDashboardWithDesigner.Execute
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory)
|
|
|
|
Dim _Dashboard As New Dashboard(_onew.Session)
|
|
With _Dashboard
|
|
.DashboardViewMode = DashboardViewMode.Designer
|
|
.UserName = _BusinessDirectory.DashBoard_UserName
|
|
.Password = _BusinessDirectory.DashBoard_Password
|
|
.SQLServer = _BusinessDirectory.DashBoard_Server
|
|
.Database = _BusinessDirectory.DashBoard_Database
|
|
.XMLFileData = _onew.GetObject(_BusinessDirectory.FileData)
|
|
.SQLType = _BusinessDirectory.SQLType
|
|
.Object_Oid = _BusinessDirectory.Oid.ToString
|
|
.Object_Type = GetType(BusinessDirectory)
|
|
End With
|
|
|
|
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Dashboard_DetailView_Designer", True, _Dashboard)
|
|
|
|
End Sub
|
|
Private Sub aBusinessDirectory_SetRoleDisabled_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aBusinessDirectory_SetRoleDisabled.CustomizePopupWindowParams
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _Role_Collection As New CollectionSource(_onew, GetType(Role))
|
|
|
|
e.View = Application.CreateListView("Role_ListView_BusinessDirectory", _Role_Collection, True)
|
|
End Sub
|
|
Private Sub aBusinessDirectory_SetRoleDisabled_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aBusinessDirectory_SetRoleDisabled.Execute
|
|
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
|
|
|
For Each _Role As Role In e.PopupWindow.View.SelectedObjects
|
|
For Each _BusinessDirectory As BusinessDirectory In View.SelectedObjects
|
|
Dim _BusinessDirectory_Roles As New BusinessDirectory_Roles(_ocur.Session)
|
|
With _BusinessDirectory_Roles
|
|
.BusinessDirectory = _BusinessDirectory
|
|
.Role = _ocur.GetObjectByKey(Of Role)(_Role.Oid)
|
|
End With
|
|
Next
|
|
Next
|
|
_ocur.CommitChanges()
|
|
End Sub
|
|
Private Sub aBusinessDirectory_SetRoleEnabled_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aBusinessDirectory_SetRoleEnabled.CustomizePopupWindowParams
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _Role_Collection As New CollectionSource(_onew, GetType(Role))
|
|
|
|
e.View = Application.CreateListView("Role_ListView_BusinessDirectory", _Role_Collection, True)
|
|
End Sub
|
|
Private Sub aBusinessDirectory_SetRoleEnabled_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aBusinessDirectory_SetRoleEnabled.Execute
|
|
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
|
Dim _BusinessDirectory_Roles_DELCollection As New ArrayList
|
|
For Each _Role As Role In e.PopupWindow.View.SelectedObjects
|
|
For Each _BusinessDirectory As BusinessDirectory In View.SelectedObjects
|
|
Dim _BusinessDirectory_Roles As BusinessDirectory_Roles = _ocur.FindObject(Of BusinessDirectory_Roles)(CriteriaOperator.Parse("BusinessDirectory=? AND Role=?", _BusinessDirectory, _ocur.GetObjectByKey(Of Role)(_Role.Oid)))
|
|
If _BusinessDirectory_Roles IsNot Nothing Then
|
|
_BusinessDirectory_Roles_DELCollection.Add(_BusinessDirectory_Roles)
|
|
End If
|
|
Next
|
|
Next
|
|
_ocur.Delete(_BusinessDirectory_Roles_DELCollection)
|
|
_ocur.CommitChanges()
|
|
End Sub
|
|
Private Sub aBusinessDirectory_Clone_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_Clone.Execute
|
|
Dim _ocur As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
|
|
For Each _BusinessDirectory As BusinessDirectory In View.SelectedObjects
|
|
Dim _BusinessDirectory_New As New BusinessDirectory(_ocur.Session)
|
|
With _BusinessDirectory_New
|
|
.BusinessDirectory_Parent = _ocur.GetObject(_BusinessDirectory.Parent)
|
|
.ShortName = _BusinessDirectory.ShortName + " Másolat"
|
|
.IsFolder = _BusinessDirectory.IsFolder
|
|
If _BusinessDirectory.FileData IsNot Nothing Then
|
|
Dim _FileName As String = System.IO.Path.GetTempPath() + _BusinessDirectory.FileData.FileName
|
|
Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create, System.IO.FileAccess.Write)
|
|
_BusinessDirectory.FileData.SaveToStream(_StreamFile)
|
|
_StreamFile.Close()
|
|
|
|
.FileData = Nothing
|
|
|
|
.FileData = LoadOtherFile(_FileName, New FileData(_ocur.Session))
|
|
Else
|
|
.FileData = Nothing
|
|
End If
|
|
|
|
.FileCreated = _BusinessDirectory.FileCreated
|
|
.FileModified = _BusinessDirectory.FileModified
|
|
.Completed = _BusinessDirectory.Completed
|
|
.TaskDescription = _BusinessDirectory.TaskDescription
|
|
.EMail_Sender = _BusinessDirectory.EMail_Sender
|
|
.Email_Copy = _BusinessDirectory.Email_Copy
|
|
.IsDashBoard = _BusinessDirectory.IsDashBoard
|
|
.DashBoard_Server = _BusinessDirectory.DashBoard_Server
|
|
.DashBoard_Database = _BusinessDirectory.DashBoard_Database
|
|
.DashBoard_UserName = _BusinessDirectory.DashBoard_UserName
|
|
.DashBoard_Password = _BusinessDirectory.DashBoard_Password
|
|
.SQLType = _BusinessDirectory.SQLType
|
|
|
|
End With
|
|
|
|
Next
|
|
|
|
_ocur.CommitChanges()
|
|
End Sub
|
|
Private Function LoadOtherFile(ByVal _ActFile As String, _FileData As FileData) As FileData
|
|
Dim _StreamFile = New System.IO.FileStream(_ActFile, System.IO.FileMode.Open, System.IO.FileAccess.Read)
|
|
Dim _StreamReader As New System.IO.StreamReader(_StreamFile)
|
|
_StreamFile.Seek(0, System.IO.SeekOrigin.Begin)
|
|
|
|
_FileData.LoadFromStream(_ActFile, _StreamFile)
|
|
_FileData.FileName = System.IO.Path.GetFileName(_ActFile)
|
|
_StreamReader.Close()
|
|
_StreamFile.Close()
|
|
|
|
Return _FileData
|
|
End Function
|
|
|
|
|
|
Private Sub aBusinessDirectory_NewDashboard_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_NewDashboard.Execute
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _Dashboard As New Dashboard(_onew.Session)
|
|
With _Dashboard
|
|
.DashboardViewMode = DashboardViewMode.Designer
|
|
.IsNewDashboard = True
|
|
End With
|
|
|
|
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Dashboard_DetailView_Designer", True, _Dashboard)
|
|
End Sub
|
|
End Class
|