ivanszabo/Nuvolar
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Átállás 17.2.3-ra

Browse Source 
Related Work Items: #123
This commit is contained in:
ivanszabo
2017-12-02 16:09:26 +01:00
parent 2b2f1b201c
commit 9cca882b34
201 changed files with 16991 additions and 3617 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.vb
+9 -9
View File
@@ -31,14 +31,14 @@ Public Class RegistryVC
Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit
If _RegistryHeader.IsEditable = False Then
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
End If
End If
If View.Id = "RegistryHeader_WorkFlowCollection_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
End If
If View.Id = "RegistryHeader_RegistryTasks_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
End If
If View.Id = "RegistryHeader_RegistryFileData_ListView" Then ' Iktatási rendszerben a FileData fül
Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController)().AddFromFileAction.Active.SetItemValue("", False)
@@ -46,26 +46,26 @@ Public Class RegistryVC
Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentController)().SaveToAction.Active.SetItemValue("", False)
End If
If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
End If
If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
End If
If View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
End If
If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
End If
If View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
End If
End Sub