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 DevExpress.Data.Filtering Imports DevExpress.ExpressApp.SystemModule Imports DevExpress.ExpressApp.ConditionalAppearance Imports DevExpress.ExpressApp.Editors Imports DevExpress.ExpressApp.CloneObject Imports DevExpress.Persistent.BaseImpl Imports DevExpress.Xpo Imports System.IO Imports DevExpress.ExpressApp.Reports Imports System.Net.Mail Imports System.Reflection Public Class QuestionVC Inherits DevExpress.ExpressApp.ViewController Private _AppearanceController As AppearanceController Protected _selection As New ArrayList Protected _noselect As Boolean = False Public Sub New() MyBase.New() 'This call is required by the Component Designer. InitializeComponent() RegisterActions(components) End Sub Protected Overrides Sub OnActivated() MyBase.OnActivated() Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateAnswer.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aSetUserResponsibleQuestion.Active.SetItemValue("", False) Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _Question As Question If View.Id = "Question_WorkSheet_Header_ListView" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) End If If View.Id Like "Question_ListView" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", True) Frame.GetController(Of QuestionVC).aCreateAnswer.Active.SetItemValue("", True) Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", True) Frame.GetController(Of QuestionVC).aSetUserResponsibleQuestion.Active.SetItemValue("", True) _AppearanceController = Frame.GetController(Of AppearanceController)() If _AppearanceController IsNot Nothing Then AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance AddHandler _AppearanceController.AppearanceApplied, AddressOf _AppearanceController_AppearanceApplied End If AddHandler View.SelectionChanged, AddressOf Question_ListView_SelectionChanged End If If View.Id = "Question_ListView_User" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of Nuvolar.Module.AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) TryCast(View, ListView).CollectionSource.Criteria("ByUser") = CriteriaOperator.Parse("User = ? OR AliasUser=?", _ocur.GetObject(SecuritySystem.CurrentUser), _ocur.GetObject(SecuritySystem.CurrentUser)) Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) _AppearanceController = Frame.GetController(Of AppearanceController)() If _AppearanceController IsNot Nothing Then AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance AddHandler _AppearanceController.AppearanceApplied, AddressOf _AppearanceController_AppearanceApplied End If End If If View.Id = "Question_ListView_Customers" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", True) Frame.GetController(Of RefreshController).Active.SetItemValue("", False) Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser))) If _Contacts IsNot Nothing Then If _Contacts.Customers IsNot Nothing Then TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("Customers = ?", _Contacts.Customers) Else TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2") End If Else TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2") End If _AppearanceController = Frame.GetController(Of AppearanceController)() If _AppearanceController IsNot Nothing Then AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance AddHandler _AppearanceController.AppearanceApplied, AddressOf _AppearanceController_AppearanceApplied End If End If If View.Id = "Question_WorkItem_ListView" Then Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) End If If View.Id = "QuestionClosePopup_DetailView" Then Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) End If If View.Id = "Question_ListView_Subcontractor" Then Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", True) Dim _Criteria As String = "" Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser))) Dim _Contact_Collection As XPCollection(Of Contacts) = New XPCollection(Of Contacts)(_ocur.Session, CriteriaOperator.Parse("Customers=?", _Contacts.Customers)) If _Contacts IsNot Nothing Then If _Contact_Collection.Count > 0 Then For ik = 0 To _Contact_Collection.Count - 1 If ik < _Contact_Collection.Count - 1 Then _Criteria += "UserResponsible.Oid = " + "'" + _Contact_Collection(ik).User.Oid.ToString + "'" + " Or " Else _Criteria += "UserResponsible.Oid = " + "'" + _Contact_Collection(ik).User.Oid.ToString + "'" End If Next Else _Criteria = "1=2" End If If _Contacts.Customers IsNot Nothing Then TryCast(View, ListView).CollectionSource.Criteria("ByUserResponsible") = CriteriaOperator.Parse(_Criteria) Else TryCast(View, ListView).CollectionSource.Criteria("ByUserResponsible") = CriteriaOperator.Parse("1=2") End If Else TryCast(View, ListView).CollectionSource.Criteria("ByUserResponsible") = CriteriaOperator.Parse("1=2") End If End If '-------------- DetailViewZ--------------------------- If View.Id = "Question_DetailView" Or View.Id = "Question_DetailView_Info" Then Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) End If If View.Id = "Question_DetailView" Then Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True) If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) End If If View.Id = "Question_DetailView_User" Then Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True) If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) End If If View.Id = "Question_DetailView_Info" Then Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", False) If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) _Question = TryCast(View.SelectedObjects(0), Question) If _Question IsNot Nothing Then If _Question.QuestionClosed = eQuestionClosed.eClosed Then Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", False) Dim _User As User = _ocur.GetObject(SecuritySystem.CurrentUser) If _Question.UserCreated.Oid <> _User.Oid Then If _Question.AliasUser IsNot Nothing Then If _Question.AliasUser.Email <> _User.Email Then Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateReply.Active.SetItemValue("", False) Else Frame.GetController(Of QuestionVC).aCreateReply.Active.SetItemValue("", True) If _Question.QuestionClosed <> eQuestionClosed.eClosed Then Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", True) End If Else Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateReply.Active.SetItemValue("", False) End If Else Frame.GetController(Of QuestionVC).aCreateReply.Active.SetItemValue("", True) If _Question.QuestionClosed <> eQuestionClosed.eClosed Then Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", True) End If End If End If If View.Id = "WorkSheet_Header_DetailView" Then Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) End If If View.Id = "Reply_DetailView" Then Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) End If End Sub Protected Sub aCloseQuestion_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCloseQuestion.Execute Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _Events As Events Dim _Question As Question = TryCast(View.SelectedObjects(0), Question) Dim _QuestionClosePopup As QuestionClosePopup = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), QuestionClosePopup)) If _Question IsNot Nothing Then _Question.QuestionStatus = eQuestionStatus.eProcessedCustomerClosed _Question.QuestionClosed = eQuestionClosed.eClosed _Question.Save() _Events = _ocur.CreateObject(Of Events)() _Events.Question = _Question _Events.QuestionStatus = eQuestionStatus.eProcessedCustomerClosed _Events.Description = _QuestionClosePopup.Description _Events.Save() _Events.EventDirection = eEventDirection.eIn _ocur.CommitChanges() Try Dim _WebParameters As WebParameters = _ocur.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) If _WebParameters Is Nothing Then Throw New Exception("*Nincsnek e-mail paraméterek beállítva!") If _WebParameters.SMTPHost Is Nothing Then Throw New Exception("*Nincs SMTP server beállítva!") If _WebParameters.SMTPUserName = "" Then Throw New Exception("*Nincs felhasználói név beállítva!") If _WebParameters.SMTPPort = 0 Then Throw New Exception("*Nincs SMTP port beállítva!") Dim _MailMessage As New MailMessage Dim _SmtpClient As SmtpClient = New SmtpClient(_WebParameters.SMTPHost) _MailMessage.From = New MailAddress(_WebParameters.Email_SupportAdmin) _MailMessage.To.Add(_Question.UserCreated.Email) _MailMessage.Subject = _Question.DocumentNumber + " számú bejelentés" _MailMessage.IsBodyHtml = True Dim _EmailBody As String = _WebParameters.HTMLMailTemplate_QuestionStatusUpdate.HTMLBody _EmailBody = String.Format(_EmailBody, _Question.UserCreated.FullName, _Question.DocumentNumber, DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Enums\Nuvolar.Module.eQuestionStatus", _Question.QuestionStatus.ToString) + _ vbNewLine, TryCast(SecuritySystem.CurrentUser, User).FullName) _EmailBody = _EmailBody + vbNewLine + _Question.HTMLEvents _MailMessage.Body = _EmailBody _SmtpClient.Port = _WebParameters.SMTPPort _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) _SmtpClient.EnableSsl = _WebParameters.EnableSsl _SmtpClient.Send(_MailMessage) Catch ex As Exception Dim sf As StackFrame = New StackFrame() Dim _ErrorLog As ErrorLog = _ocur.CreateObject(Of ErrorLog)() _ErrorLog.Description = ex.Message _ErrorLog.SubName = TryCast(sf.GetMethod(), MethodBase).Name _ocur.CommitChanges() End Try Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) If nestedFrame IsNot Nothing Then Dim parentView As View = nestedFrame.View parentView.ObjectSpace.Refresh() End If End If End Sub 'Protected Sub aCreateWorkSheetfromQuestion_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateWorkSheetfromQuestionqqq.Execute ' Try ' Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace ' Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace ' Dim _Question As Question = TryCast(View.SelectedObjects(0), Question) ' If _Question Is Nothing Then Throw New Exception("*Nincs kiválasztott elem!") ' Dim _WorkSheet_Header As WorkSheet_Header = _onew.CreateObject(Of WorkSheet_Header)() ' _WorkSheet_Header.Question = _onew.GetObject(_Question) ' _WorkSheet_Header.WorkSheetState = eWorkSheetState.eOpened ' e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "WorkSheet_Header_DetailView", True, _WorkSheet_Header) ' Catch exp As Exception ' MsgBox(exp.Message) ' End Try 'End Sub Protected Sub aCreateWorkSheetfromQuestion_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateWorkSheetfromQuestion.CustomizePopupWindowParams Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace Dim _WorkSheetfromQuestion_PopUp As WorkSheetfromQuestion_PopUp = _onew.CreateObject(Of WorkSheetfromQuestion_PopUp)() e.View = Application.CreateDetailView(_onew, "WorkSheetfromQuestion_PopUp_DetailView", False, _WorkSheetfromQuestion_PopUp) End Sub Protected Sub aCreateWorkSheetfromQuestion_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateWorkSheetfromQuestion.Execute Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace Dim _Question As Question = TryCast(View.SelectedObjects(0), Question) Dim _WorkSheet_Header As WorkSheet_Header = _onew.CreateObject(Of WorkSheet_Header)() Dim _WorkSheetfromQuestion_PopUp As WorkSheetfromQuestion_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), WorkSheetfromQuestion_PopUp)) _WorkSheet_Header.Question = _onew.GetObject(_Question) _WorkSheet_Header.Customers = _onew.GetObjectByKey(Of Customers)(_Question.Customers.Oid) _WorkSheet_Header.WorkSheetState = eWorkSheetState.eOpened _WorkSheet_Header.CustomersFrom = _onew.GetObject(_WorkSheetfromQuestion_PopUp.CustomersFrom) _WorkSheet_Header.WorkSheetType = _onew.GetObject(_WorkSheetfromQuestion_PopUp.WorkSheetType) _WorkSheet_Header.DateCreated = GetSQLTime(_onew.Session) Dim _ShowViewParameters As New ShowViewParameters Dim _ShowViewSource As New ShowViewSource(Frame, Nothing) _ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "WorkSheet_Header_DetailView", True, _WorkSheet_Header) _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild _ShowViewParameters.TargetWindow = TargetWindow.NewWindow Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource) End Sub Protected Overrides Sub OnDeactivated() MyBase.OnDeactivated() Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateAnswer.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _Question As Question If View.Id Like "Question_ListView" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateAnswer.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False) _AppearanceController = Frame.GetController(Of AppearanceController)() If _AppearanceController IsNot Nothing Then AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance AddHandler _AppearanceController.AppearanceApplied, AddressOf _AppearanceController_AppearanceApplied End If End If If View.Id = "Question_ListView_User" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of Nuvolar.Module.AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) TryCast(View, ListView).CollectionSource.Criteria("ByUser") = CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)) Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) _AppearanceController = Frame.GetController(Of AppearanceController)() If _AppearanceController IsNot Nothing Then AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance AddHandler _AppearanceController.AppearanceApplied, AddressOf _AppearanceController_AppearanceApplied End If End If If View.Id = "Question_ListView_Customers" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False) Frame.GetController(Of RefreshController).Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) Dim _User As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser))) If _User IsNot Nothing Then If _User.Customers IsNot Nothing Then TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("Customers = ?", _User.Customers) Else TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2") End If Else TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2") End If _AppearanceController = Frame.GetController(Of AppearanceController)() If _AppearanceController IsNot Nothing Then AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance AddHandler _AppearanceController.AppearanceApplied, AddressOf _AppearanceController_AppearanceApplied End If End If If View.Id = "Question_WorkItem_ListView" Then Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) End If If View.Id = "QuestionClosePopup_DetailView" Then Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) End If If View.Id = "Question_ListView_Subcontractor" Then Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateAnswer.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False) End If '-------------- DetailViewZ--------------------------- If View.Id = "Question_DetailView" Or View.Id = "Question_DetailView_Info" Then Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True) Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True) Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) End If If View.Id = "Question_DetailView" Then Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True) Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True) Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True) Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) End If If View.Id = "Question_DetailView_User" Then Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True) Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True) Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True) Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) End If If View.Id = "Question_DetailView_Info" Then Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True) Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True) Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) _Question = TryCast(View.SelectedObjects(0), Question) If _Question IsNot Nothing Then If _Question.QuestionClosed = eQuestionClosed.eClosed Then Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", False) Dim _User As User = _ocur.GetObject(SecuritySystem.CurrentUser) If _User IsNot Nothing Then If _Question.UserCreated.Email <> _User.Email Then Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", False) Frame.GetController(Of QuestionVC).aCreateReply.Active.SetItemValue("", False) End If End If End If End If If View.Id = "WorkSheet_Header_DetailView" Then Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) End If If View.Id = "Reply_DetailView" Then Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) End If Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) End Sub Protected Overridable Sub CustomizeDisabledEditorsAppearance(ByVal e As ApplyAppearanceEventArgs) End Sub Private Sub _AppearanceController_AppearanceApplied(ByVal sender As Object, ByVal e As ApplyAppearanceEventArgs) If e.AppearanceObject.Enabled = False Then CustomizeDisabledEditorsAppearance(e) End If End Sub Private Sub _AppearanceController_CustomApplyAppearance(ByVal sender As Object, ByVal e As ApplyAppearanceEventArgs) 'If (TypeOf View Is ListView) AndAlso (e.ItemType = AppearanceItemType.ViewItem.ToString()) AndAlso (e.ItemName = "Category") AndAlso (e.ContextObjects.Length > 0) Then ' If View.SelectedObjects.Contains(e.ContextObjects(0)) Then ' CType(e.Item, IAppearanceFormat).FontColor = System.Drawing.Color.Black ' e.Handled = True ' End If 'End If 'Dim _Question As Question = TryCast(e.ContextObjects(0), Question) 'If (TypeOf View Is ListView) Then ' If _Question IsNot Nothing Then ' If _Question.QuestionStatus = eQuestionStatus.eActive Then ' CType(e.Item, IAppearanceFormat).FontStyle = Drawing.FontStyle.Bold ' e.Handled = True ' End If ' End If 'End If End Sub Private Sub Question_ListView_SelectionChanged(sender As Object, e As EventArgs) Dim _Question As Question If _noselect Then Exit Sub If View Is Nothing Then Exit Sub If View.SelectedObjects.Count > 0 Then _selection.Clear() For Each _Question In View.SelectedObjects _selection.Add(_Question) Next End If End Sub '---Action codeZ--- Protected Sub aCreateAnswer_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateAnswer.Execute Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _Question As Question = View.SelectedObjects(0) Dim _Answer = _onew.CreateObject(Of Answer)() If _Question IsNot Nothing Then _Answer.Question = _onew.GetObject(_Question) e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Answer_DetailView", True, _Answer) End If End Sub Protected Sub aCreateReply_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateReply.Execute Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _Question As Question = View.SelectedObjects(0) Dim _Reply As Reply If _Question IsNot Nothing Then _Reply = _onew.CreateObject(Of Reply)() _Reply.Question = _onew.GetObject(_Question) e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Reply_DetailView", True, _Reply) End If End Sub Protected Sub aCreateQuestion_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateQuestion.Execute Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace Dim _Question As Question = TryCast(View.SelectedObjects(0), Question) Dim _Events As Events If _Question IsNot Nothing Then If _Question.AliasUser IsNot Nothing Then Dim _Contacts As Contacts If _Question.AliasUser IsNot Nothing Then _Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User.Oid=?", _Question.AliasUser.Oid)) Else _Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User.Oid=?", _Question.User.Oid)) End If If _Contacts IsNot Nothing Then _Question.Customers = _Contacts.Customers _Question.User = _Question.AliasUser End If End If Replace(Replace(_Question.Description, "file:///P:/", "http://sis-r.hu/user/images/userimages/"), "\", "/") _ocur.CommitChanges() _Events = _onew.CreateObject(Of Events)() _Events.Question = _onew.GetObject(_Question) _Events.Description = _Question.Description If _Question.Attachment IsNot Nothing Then _Events.Attachment = _onew.GetObject(_Question.Attachment) _Events.Save() _Events.EventDirection = eEventDirection.eIn _onew.CommitChanges() Try Dim _WebParameters As WebParameters = _ocur.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) If _WebParameters Is Nothing Then Throw New Exception("*Nincsnek e-mail paraméterek beállítva!") If _WebParameters.SMTPHost Is Nothing Then Throw New Exception("*Nincs SMTP server beállítva!") If _WebParameters.SMTPUserName = "" Then Throw New Exception("*Nincs felhasználói név beállítva!") If _WebParameters.SMTPPort = 0 Then Throw New Exception("*Nincs SMTP port beállítva!") Dim _MailMessage As New MailMessage Dim _SmtpClient As SmtpClient = New SmtpClient(_WebParameters.SMTPHost) _MailMessage.From = New MailAddress(_WebParameters.Email_SupportAdmin) _MailMessage.To.Add(_Question.User.Email) _MailMessage.Subject = _Question.DocumentNumber + " számú bejelentés" _MailMessage.IsBodyHtml = True Dim _EmailBody As String = _WebParameters.HTMLMailTemplate_QuestionUpdate.HTMLBody _EmailBody = String.Format(_EmailBody, _Question.UserCreated.FullName, _Question.ObjectCreated.ToString(), _Question.Description, TryCast(SecuritySystem.CurrentUser, User).FullName) _MailMessage.Body = _EmailBody _SmtpClient.Port = _WebParameters.SMTPPort _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) _SmtpClient.EnableSsl = _WebParameters.EnableSsl _SmtpClient.Send(_MailMessage) _MailMessage.To.Clear() _MailMessage.To.Add(_WebParameters.Email_SupportAdmin) _MailMessage.Subject = "Új kérdés" _MailMessage.Body = String.Format("{0} felhasználó új kérdést rögzített {1} számmal.", _Question.User.FullName, _Question.DocumentNumber) _SmtpClient.Send(_MailMessage) Catch ex As Exception Dim sf As StackFrame = New StackFrame() Dim _ErrorLog As ErrorLog = _ocur.CreateObject(Of ErrorLog)() _ErrorLog.Description = ex.Message _ErrorLog.SubName = TryCast(sf.GetMethod(), MethodBase).Name _ocur.CommitChanges() End Try e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Question_DetailView_Info", True, _onew.GetObject(_Question)) View.Close() End If End Sub Protected Sub aViewQuestionInfo_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewQuestionInfo.Execute Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace Dim _Question As Question = TryCast(View.SelectedObjects(0), Question) Dim _Events As Events Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser))) If _Question IsNot Nothing Then If _Question.QuestionStatus = eQuestionStatus.eActive Then If _Contacts IsNot Nothing Then If _Contacts.Customers IsNot Nothing Then If SecuritySystemHelper.IsUserInRoleCurrentUser("Supporter") Then _Question.QuestionStatus = eQuestionStatus.eReviewed _Events = _ocur.CreateObject(Of Events)() _Events.Question = _Question _Events.QuestionStatus = eQuestionStatus.eReviewed _Events.Description = "" _Events.EventDirection = eEventDirection.eOut _ocur.CommitChanges() Try Dim _WebParameters As WebParameters = _ocur.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) If _WebParameters Is Nothing Then Throw New Exception("*Nincsnek e-mail paraméterek beállítva!") If _WebParameters.SMTPHost Is Nothing Then Throw New Exception("*Nincs SMTP server beállítva!") If _WebParameters.SMTPUserName = "" Then Throw New Exception("*Nincs felhasználói név beállítva!") If _WebParameters.SMTPPort = 0 Then Throw New Exception("*Nincs SMTP port beállítva!") Dim _MailMessage As New MailMessage Dim _Attachment As Attachment Dim _SmtpClient As SmtpClient = New SmtpClient(_WebParameters.SMTPHost) _MailMessage.From = New MailAddress(_WebParameters.Email_SupportAdmin) _MailMessage.To.Add(_Question.UserCreated.Email) _MailMessage.Subject = _Question.DocumentNumber + " számú bejelentés" _MailMessage.IsBodyHtml = True Dim _EmailBody As String = _WebParameters.HTMLMailTemplate_QuestionStatusUpdate.HTMLBody _EmailBody = String.Format(_EmailBody, _Question.UserCreated.FullName, _Question.DocumentNumber, DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Enums\Nuvolar.Module.eQuestionStatus", _Question.QuestionStatus.ToString) + _ vbNewLine, TryCast(SecuritySystem.CurrentUser, User).FullName) _EmailBody = _EmailBody + vbNewLine + CreateHTMLEventsMail(_Question, _ocur.Session) _MailMessage.Body = _EmailBody _MailMessage.Attachments.Clear() _Attachment = New Attachment(GLOBAL_ApplicationStartupPath_Mail & "Images\iRedArrow.png") _Attachment.ContentId = "c001" _MailMessage.Attachments.Add(_Attachment) _Attachment = New Attachment(GLOBAL_ApplicationStartupPath_Mail & "Images\iGreenArrow.png") _Attachment.ContentId = "c002" _MailMessage.Attachments.Add(_Attachment) _SmtpClient.Port = _WebParameters.SMTPPort _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) _SmtpClient.EnableSsl = _WebParameters.EnableSsl _SmtpClient.Send(_MailMessage) Catch ex As Exception Dim sf As StackFrame = New StackFrame() Dim _ErrorLog As ErrorLog = _ocur.CreateObject(Of ErrorLog)() _ErrorLog.Description = ex.Message _ErrorLog.SubName = TryCast(sf.GetMethod(), MethodBase).Name _ocur.CommitChanges() End Try End If End If End If End If End If e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Question_DetailView_Info", True, _onew.GetObject(_Question)) End Sub Protected Sub aCloseQuestion_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCloseQuestion.CustomizePopupWindowParams Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace Dim _QuestionClosePopup As QuestionClosePopup = _onew.CreateObject(Of QuestionClosePopup)() e.View = Application.CreateDetailView(_onew, "QuestionClosePopup_DetailView", False, _QuestionClosePopup) End Sub Private Sub aSetUserResponsibleQuestion_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSetUserResponsibleQuestion.CustomizePopupWindowParams Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace Dim _CollectionSource As New CollectionSource(_onew, GetType(User)) _CollectionSource.BeginUpdateCriteria() _CollectionSource.Criteria.Clear() _CollectionSource.Criteria("1") = CriteriaOperator.Parse("1=2") _CollectionSource.EndUpdateCriteria() Dim _UserResponsibles_Collection As XPCollection(Of User) = New XPCollection(Of User)(_onew.Session, CriteriaOperator.Parse("1=1")) Dim _UserResponsibles_Back_Collection As New XPCollection(Of User)(_onew.Session, CriteriaOperator.Parse("1=2")) Dim _Need As Boolean = False For Each _ActUser As User In _UserResponsibles_Collection _Need = False If SecuritySystemHelper.IsUserInRole("Supporter", _ActUser) Then _Need = True Else Dim _Contacts As Contacts = _onew.FindObject(Of Contacts)(CriteriaOperator.Parse("User.Oid=?", _ActUser.Oid)) If _Contacts IsNot Nothing Then Dim _Customers As Customers = _Contacts.Customers Dim _Subcontractor As Subcontractor = _onew.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers=?", _Customers)) If _Subcontractor IsNot Nothing Then _Need = True End If End If End If _UserResponsibles_Back_Collection.Add(_ActUser) Next For Each _User As User In _UserResponsibles_Back_Collection _CollectionSource.Add(_User) Next _noselect = True e.View = Application.CreateListView("User_ListView_Find", _CollectionSource, True) End Sub Private Sub aSetUserResponsibleQuestion_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSetUserResponsibleQuestion.Execute Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _UserResponsible = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), User)) Dim _Question_Selection As Question Dim _Question As Question Dim _Events As Events For Each _Question_Selection In _selection _Question = _ocur.GetObject(_Question_Selection) If _Question.UserResponsible Is Nothing Then _Events = _ocur.CreateObject(Of Events)() _Events.QuestionStatus = eQuestionStatus.eInProgress _Events.Question = _ocur.GetObject(_Question) _Events.Description = "" _Events.EventDirection = eEventDirection.eOut End If _Question.QuestionStatus = eQuestionStatus.eInProgress _Question.UserResponsible = _UserResponsible Next _ocur.CommitChanges() 'View.Refresh() _noselect = False End Sub Protected Sub aOpenWorkSheet_Subcontractor_Question_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOpenWorkSheet_Subcontractor_Question.CustomizePopupWindowParams Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace Dim _Question As Question = _onew.GetObject(TryCast(View.SelectedObjects(0), Question)) Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) Dim _SubcontractorCustomers As Customers = _Contacts.Customers Dim _OpenWorkSheet_SubcontractorPopUp As OpenWorkSheet_SubcontractorPopUp = _onew.CreateObject(Of OpenWorkSheet_SubcontractorPopUp)() _OpenWorkSheet_SubcontractorPopUp.Question = _Question Dim _Subcontractor As Subcontractor = _onew.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers.Oid=?", _SubcontractorCustomers.Oid)) _OpenWorkSheet_SubcontractorPopUp.Subcontractor = _onew.GetObject(_Subcontractor) e.View = Application.CreateDetailView(_onew, "OpenWorkSheet_SubcontractorPopUp_DetailView", False, _OpenWorkSheet_SubcontractorPopUp) End Sub Protected Sub aOpenWorkSheet_Subcontractor_Question_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOpenWorkSheet_Subcontractor_Question.Execute Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _OpenWorkSheet_SubcontractorPopUp As OpenWorkSheet_SubcontractorPopUp = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), OpenWorkSheet_SubcontractorPopUp)) Dim _Subcontractor As Subcontractor = _ocur.GetObjectByKey(Of Subcontractor)(_OpenWorkSheet_SubcontractorPopUp.Subcontractor.Oid) Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) Dim _SubcontractorCustomers As Customers = _Contacts.Customers Dim _ReportData As ReportData Dim _Question As Question = TryCast(View.SelectedObjects(0), Question) Dim _WorkSheet_Header As WorkSheet_Header = _ocur.CreateObject(Of WorkSheet_Header)() _WorkSheet_Header.Customers = _Question.Customers _WorkSheet_Header.Question = _Question _WorkSheet_Header.CustomersFrom = _ocur.GetObjectByKey(Of CustomersFrom)(_OpenWorkSheet_SubcontractorPopUp.CustomersFrom.Oid) _WorkSheet_Header.WorkSheetType = _ocur.GetObjectByKey(Of WorkSheetType)(_OpenWorkSheet_SubcontractorPopUp.WorkSheetType.Oid) _WorkSheet_Header.DateExecution = _OpenWorkSheet_SubcontractorPopUp.DateCreated _WorkSheet_Header.DateCreated = GetSQLTime(_ocur.Session) _WorkSheet_Header.IsSubcontractor = True _WorkSheet_Header.SubcontractorCustomers = _SubcontractorCustomers _WorkSheet_Header.Description = _OpenWorkSheet_SubcontractorPopUp.Description _WorkSheet_Header.WorkPlace = _ocur.GetObjectByKey(Of WorkPlace)(_OpenWorkSheet_SubcontractorPopUp.WorkPlace.Oid) _WorkSheet_Header.WorkSheetState = eWorkSheetState.eOpened _WorkSheet_Header.CurrencyName = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) _WorkSheet_Header.WorkHour = _OpenWorkSheet_SubcontractorPopUp.WorkHour _WorkSheet_Header.WorkDescription = _OpenWorkSheet_SubcontractorPopUp.WorkDescription _WorkSheet_Header.WorkUsedMaterialDescription = _OpenWorkSheet_SubcontractorPopUp.WorkUsedMaterialDescription _WorkSheet_Header.WorkDescriptionOther = _OpenWorkSheet_SubcontractorPopUp.WorkDescriptionOther _WorkSheet_Header.WorkTravelKm = _OpenWorkSheet_SubcontractorPopUp.WorkTravelKm _ocur.CommitChanges() _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _WorkSheet_Header.WorkSheetType.ReportData.Oid), True) If _ReportData IsNot Nothing Then Dim _XafReport As XafReport = _ReportData.LoadReport(_ocur) Dim _Param_Colletion As DevExpress.XtraReports.Parameters.ParameterCollection = _XafReport.Parameters For Each _Param As DevExpress.XtraReports.Parameters.Parameter In _Param_Colletion If _Param.Name = "Workplace" Then Dim _SubcontractorCustomers_WorkPLace As SubcontractorCustomers = _ocur.FindObject(Of SubcontractorCustomers) _ (CriteriaOperator.Parse("Subcontractor=? AND Customers=?", _Subcontractor, _WorkSheet_Header.Customers)) If _SubcontractorCustomers_WorkPLace.Workplace Is Nothing Then _Param.Value = "Nincs megadva!" Else _Param.Value = _SubcontractorCustomers_WorkPLace.Workplace.ShortName End If End If Next Dim _FilterString As String = "[Oid]='" & _WorkSheet_Header.Oid.ToString & "'" _XafReport.FilterString = _FilterString Dim _FileName As String = Path.GetTempPath & _WorkSheet_Header.DocumentNumber & "_Munkalap.pdf" Dim _StreamFile As New FileStream(_FileName, FileMode.Create) _XafReport.ExportToPdf(_StreamFile) _StreamFile.Close() Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open) _WorkSheet_Header.WorkSheetFile_Original = New FileData(_ocur.Session) _WorkSheet_Header.WorkSheetFile_Original.LoadFromStream(_WorkSheet_Header.DocumentNumber + "_Munkalap.pdf", _StreamFile2) _StreamFile2.Close() Process.Start(_FileName) End If _ocur.CommitChanges() 'Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("Oid=?", _WorkSheet_Header.Oid), True) View.Close() End Sub Protected Sub aViewQuestionInfo_Subcontractor_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewQuestionInfo_Subcontractor.Execute Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace Dim _Question As Question = TryCast(View.SelectedObjects(0), Question) e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Question_DetailView_Info", True, _onew.GetObject(_Question)) End Sub End Class