@@ -30,27 +30,27 @@ Public Class APCSheetReviewHeader_VC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "APCSheetReviewHeader_APCSheetReviewHeaderPhotos_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "APCSheetReviewHeader_APCSheetReviewRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "APCSheetReviewHeader_APCSheetReviewHeaderPhotos_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "APCSheetReviewHeader_APCSheetReviewRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
@@ -36,53 +36,53 @@ Public Class APCSheetVC
|
||||
Frame.GetController(Of APCSheetVC).aAPCSheetHeader_CreateReviewSheet.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of APCSheetVC).aCloneAPCSheet.Active.SetItemValue("", False)
|
||||
If View.Id = "APCSheetHeader_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "APCSheetHeader_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "APCSheetHeader_APCSheetByProducts_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView_No" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "APCSheetHeader_APCSheetPresentation_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf APCSheetHeader_APCSheetPresentation_ListView_DeleteAction_Executed
|
||||
End If
|
||||
If View.Id = "APCSheetHeader_APCSheetCreditClassificationFinancialRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "APCSheetHeader_APCSheetCreditClassificationAnimalRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "APCSheetByProductsOrderInRows_ListView" Then
|
||||
AddHandler Frame.GetController(Of RefreshController).RefreshAction.Execute, AddressOf APCSheetByProductsOrderInRows_ListView_RefreshAction_Execute
|
||||
End If
|
||||
If View.Id = "APCSheetByProductsSalesPolicyH_APCSheetByProductsSalesPolicyR_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "APCSheetByProductsSalesPolicyH_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "APCSheetHeaderSetAPCParameters_PopUp_DetailView" Then
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf APCSheetHeaderSetAPCParameters_PopUp_AcceptAction_Executing
|
||||
@@ -91,51 +91,51 @@ Public Class APCSheetVC
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "APCSheetHeader_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "APCSheetHeader_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "APCSheetHeader_APCSheetByProducts_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView_No" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "APCSheetHeader_APCSheetPresentation_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "APCSheetHeader_APCSheetCreditClassificationFinancialRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "APCSheetHeader_APCSheetCreditClassificationAnimalRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "APCSheetByProductsOrderInRows_ListView" Then
|
||||
RemoveHandler Frame.GetController(Of RefreshController).RefreshAction.Execute, AddressOf APCSheetByProductsOrderInRows_ListView_RefreshAction_Execute
|
||||
End If
|
||||
If View.Id = "APCSheetByProductsSalesPolicyH_APCSheetByProductsSalesPolicyR_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "APCSheetByProductsSalesPolicyH_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aCloneAPCSheet_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCloneAPCSheet.Execute
|
||||
|
||||
+20
-20
@@ -43,11 +43,11 @@ Public Class CertificateOfContractVC
|
||||
Frame.GetController(Of CertificateOfContractVC).aPrintCertificateOfContract.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CertificateOfContractVC).aMakeEditableCOC.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CertificateOfContractVC).aStornoCOC.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CertificateOfContractVC).aRecalculateCOC.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CertificateofContractHeader_DetailView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
_CertificateofContractHeader = View.SelectedObjects(0)
|
||||
If _CertificateofContractHeader IsNot Nothing Then
|
||||
If _CertificateofContractHeader.IsEditable = True Then
|
||||
@@ -63,8 +63,8 @@ Public Class CertificateOfContractVC
|
||||
End If
|
||||
End If
|
||||
If View.Id = "CertificateofContractHeader_CertificateofContractRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CertificateOfContractVC).aViewRegistry_COC.Active.SetItemValue("", True)
|
||||
|
||||
@@ -72,13 +72,13 @@ Public Class CertificateOfContractVC
|
||||
_CertificateofContractHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CertificateofContractHeader)
|
||||
If _CertificateofContractHeader IsNot Nothing Then
|
||||
If _CertificateofContractHeader.IsEditable = False Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Else
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -89,15 +89,15 @@ Public Class CertificateOfContractVC
|
||||
If View.Id = "CertificateofContractRows_DetailView" Then
|
||||
Dim _CertificateofContractRows As CertificateofContractRows = TryCast(View.SelectedObjects(0), CertificateofContractRows)
|
||||
If _CertificateofContractRows.CertificateofContractHeader.IsEditable = False Then
|
||||
Frame.GetController(Of NewItemRowListViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewItemRowListViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Else
|
||||
Frame.GetController(Of NewItemRowListViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewItemRowListViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CertificateOfContractVC).aViewRegistry_COC.Active.SetItemValue("", True)
|
||||
@@ -116,8 +116,8 @@ Public Class CertificateOfContractVC
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
Private Sub aPrintCertificateOfContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintCertificateOfContract.Execute
|
||||
|
||||
+5
-5
@@ -39,9 +39,9 @@ Public Class ContractReceivablesVC
|
||||
End If
|
||||
|
||||
If View.Id = "ContractRows_ListView_Invoice_IsProforma" Or View.Id = "ContractRows_ListView_Invoice_Finalized" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
|
||||
@@ -123,7 +123,7 @@ Public Class ContractReceivablesVC
|
||||
|
||||
On Error GoTo CheckError
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
' -- létrehozunk egy kollekciót a kiválasztott elemek tömbjébol
|
||||
_InvoiceHeaderCreated.Clear()
|
||||
|
||||
@@ -284,7 +284,7 @@ Public Class ContractReceivablesVC
|
||||
|
||||
Me.PrintSelectedInvoices()
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
Exit Sub
|
||||
CheckError:
|
||||
If Err.Number = 91 Then Resume Next
|
||||
|
||||
+2
-2
@@ -200,12 +200,12 @@ Public Class ContractRowsVC
|
||||
Dim _InvoiceRows As InvoiceRows = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceRows))
|
||||
|
||||
If _InvoiceRows IsNot Nothing Then
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
_InvoiceRows.ContractRows = _ContractRows
|
||||
_ContractRows.InvoiceRows = _InvoiceRows
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
+55
-55
@@ -47,7 +47,7 @@ Public Class ContractsVC
|
||||
Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id Like "Contracts_ListView*" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "ContractRows_ListView_Invoice_Advance" Then
|
||||
@@ -68,17 +68,17 @@ Public Class ContractsVC
|
||||
|
||||
'-------------------- LISTVIEW -------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "ContractRows_RegistryRowsFinancialControlling_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ContractRows_ListView_Invoice_Advance" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC).aDivideContractRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", False)
|
||||
@@ -86,48 +86,48 @@ Public Class ContractsVC
|
||||
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", True) 'Ez is itt volt...
|
||||
End If
|
||||
If View.Id = "ContractRows_ListView_Invoice_CustomRate" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC).aDivideContractRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Or View.Id = "ContractRows_ListView_Invoice_MileStone" Then
|
||||
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "ContractRows_ListView_Invoiced" Then
|
||||
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ContractRows_ListView_Invoice_IsProforma" Then
|
||||
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ContractRows_ListView_Invoice_Finalized" Then
|
||||
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "Contracts_ListView_Signed" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Contracts_ContractRows_ListView" Then
|
||||
Frame.GetController(Of ContractsVC)().aNewContractRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC).aCloneContractsRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim nv As ListView = CType(View, ListView)
|
||||
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
|
||||
@@ -137,11 +137,11 @@ Public Class ContractsVC
|
||||
|
||||
If _Contracts.ContractTemplate IsNot Nothing Then
|
||||
If _Contracts.ContractTemplate.IsTechnical = True Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -157,7 +157,7 @@ Public Class ContractsVC
|
||||
End If
|
||||
|
||||
If View.Id = "InvoiceHeader_DescriptionChanger_PopUp_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Contracts_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of ContractsVC).aCloneSelectedContracts.Active.SetItemValue("", False)
|
||||
@@ -172,18 +172,18 @@ Public Class ContractsVC
|
||||
If View.Id = "ContractRows_DetailView" Then
|
||||
If TryCast(View.SelectedObjects(0), ContractRows).InvoiceRows IsNot Nothing Then
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
If View.Id = "Contracts_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
|
||||
Dim _Contracts = TryCast(View.SelectedObjects(0), Contracts)
|
||||
If _Contracts IsNot Nothing Then
|
||||
If _Contracts.State = State.Ready Or _Contracts.State = State.Signed Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
If _Contracts.State = State.Preparation Then
|
||||
@@ -209,9 +209,9 @@ Public Class ContractsVC
|
||||
If _Contracts.ContractTemplate IsNot Nothing Then
|
||||
|
||||
If _Contracts.ContractTemplate.IsTechnical = True Then '! Technikai szerzõdés esetén !!!
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC).aMarkAsClosed.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC).aMarkAsReady.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC).aMarkAsSigned.Active.SetItemValue("", False)
|
||||
@@ -228,7 +228,7 @@ Public Class ContractsVC
|
||||
|
||||
'-------------------- LookupListView -----------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "ContractRows_LookupListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
'A csoportos számlázás kijelölésváltozás figyelése, hogy csak azonos vállalattal rendelkezo sorokat lehessen kiválasztani
|
||||
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
@@ -237,22 +237,22 @@ Public Class ContractsVC
|
||||
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
If View.Id = "ContractRows_RegistryRowsFinancialControlling_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Contracts_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ContractRows_ListView_Invoice_Advance" Then
|
||||
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
|
||||
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", True)
|
||||
@@ -260,15 +260,15 @@ Public Class ContractsVC
|
||||
|
||||
Frame.GetController(Of ContractsVC).aDivideContractRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
|
||||
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ContractRows_ListView_Invoice_CustomRate" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC).aDivideContractRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", True)
|
||||
End If
|
||||
@@ -288,7 +288,7 @@ Public Class ContractsVC
|
||||
Dim _ContractRows As ContractRows
|
||||
For Each _ContractRows In View.SelectedObjects
|
||||
If _ContractRows.InvoiceRows IsNot Nothing Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
@@ -296,7 +296,7 @@ Public Class ContractsVC
|
||||
Dim _Contracts As Contracts = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, Contracts)
|
||||
If _Contracts Is Nothing Then Exit Sub
|
||||
If _Contracts.State = State.Signed Or _Contracts.State = State.Ready Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Sub DeleteAction_Executing(sender As Object, e As System.ComponentModel.CancelEventArgs)
|
||||
@@ -535,7 +535,7 @@ Public Class ContractsVC
|
||||
|
||||
On Error GoTo CheckError
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
' -- létrehozunk egy kollekciót a kiválasztott elemek tömbjébol
|
||||
For Each _ContractRows_Selection In _selection
|
||||
_ContractRows = _ocur.GetObject(_ContractRows_Selection)
|
||||
@@ -665,7 +665,7 @@ Public Class ContractsVC
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
_noselect = False
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
Exit Sub
|
||||
CheckError:
|
||||
If Err.Number = 91 Then Resume Next
|
||||
@@ -697,7 +697,7 @@ CheckError:
|
||||
|
||||
End Sub
|
||||
Private Sub aCloneSelectedContracts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCloneSelectedContracts.Execute
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ContractsCloneView As ContractsCloneView = e.PopupWindow.View.SelectedObjects(0)
|
||||
@@ -774,7 +774,7 @@ CheckError:
|
||||
Throw New Exception("*Nincs megadva szerzõdés sablon!")
|
||||
End If
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
Private Sub aGenerateInvoicefromContractsRowsCustomRate_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGenerateInvoicefromContractsRowsCustomRate.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
@@ -787,7 +787,7 @@ CheckError:
|
||||
|
||||
On Error GoTo CheckError
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
' -- létrehozunk egy kollekciót a kiválasztott elemek tömbjébol
|
||||
For Each _ContractRows_Selection In _selection
|
||||
_ContractRows = _ocur.GetObject(_ContractRows_Selection)
|
||||
@@ -921,7 +921,7 @@ CheckError:
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
_noselect = False
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
Exit Sub
|
||||
CheckError:
|
||||
If Err.Number = 91 Then Resume Next
|
||||
|
||||
+50
-50
@@ -30,8 +30,8 @@ Public Class ContractProduct_VC
|
||||
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id Like "ContractProductHeader_ListView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().DeleteAction.TargetObjectsCriteria = "State=0 AND (DocumentNumber = '' OR IsNull(DocumentNumber)=True)"
|
||||
@@ -39,41 +39,41 @@ Public Class ContractProduct_VC
|
||||
End If
|
||||
|
||||
If View.Id Like "ContractProductHeader_DetailView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "ContractProductHeader_ContractProductRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ContractTemplate_ListView_PopUp" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ContractProductRowsInOut_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsCustomersGroup_Linq" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsGroup_Linq" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ContractProductRows_ListView_Invoice" Then
|
||||
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", False)
|
||||
@@ -81,9 +81,9 @@ Public Class ContractProduct_VC
|
||||
End If
|
||||
If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then
|
||||
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False) 'Iktatás betekintése
|
||||
Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", True)
|
||||
@@ -94,46 +94,46 @@ Public Class ContractProduct_VC
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "ContractProductHeader_ContractProductRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id Like "ContractProductHeader_ListView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id Like "ContractProductHeader_DetailView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ContractTemplate_ListView_PopUp" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ContractProductRowsInOut_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsCustomersGroup_Linq" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsGroup_Linq" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ContractProductRows_ListView_Invoice" Then
|
||||
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", True)
|
||||
@@ -141,9 +141,9 @@ Public Class ContractProduct_VC
|
||||
End If
|
||||
If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then
|
||||
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True) 'Iktatás betekintése
|
||||
Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", False)
|
||||
@@ -174,7 +174,7 @@ Public Class ContractProduct_VC
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aTotable_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_ConProd_Payabels.Execute
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _ContractProductHeader As ContractProductHeader = CType(View.SelectedObjects(0), ContractProductHeader)
|
||||
Dim _ContractProductRows As ContractProductRows = _ocur.CreateObject(Of ContractProductRows)()
|
||||
@@ -213,7 +213,7 @@ Public Class ContractProduct_VC
|
||||
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End If
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
Private Sub aTotableD_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_ConProd_Payabels.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
@@ -256,7 +256,7 @@ Public Class ContractProduct_VC
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aTotable_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_ConProd_Receivables.Execute
|
||||
' Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
' Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _ContractProductHeader As ContractProductHeader = CType(View.SelectedObjects(0), ContractProductHeader)
|
||||
Dim _ContractProductRows_IN As ContractProductRows = _ocur.FindObject(Of ContractProductRows)(CriteriaOperator.Parse("Oid=?", _ContractProductHeader.row_ContractProductRows.Oid))
|
||||
@@ -338,7 +338,7 @@ Public Class ContractProduct_VC
|
||||
'--------------------------------- TESZT MIATT -------------------------------<<
|
||||
End If
|
||||
|
||||
' Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
' Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
Private Sub aBackToRowEdit_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_ConProd_Receivables.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
@@ -487,7 +487,7 @@ Public Class ContractProduct_VC
|
||||
If _ContractProductHeader IsNot Nothing Then
|
||||
Dim _CustomersNGCollection As CustomersNGCollection = Nothing
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
If _ContractProductHeader.ContractTemplate.PartnerType = ePartnerType.eReceivables Then
|
||||
_CustomersNGCollection = _ocur.FindObject(Of CustomersNGCollection)(CriteriaOperator.Parse("Customers=? AND ContractTemplate=?", _
|
||||
_ContractProductHeader.Customers, _ContractProductHeader.ContractTemplate))
|
||||
@@ -504,7 +504,7 @@ Public Class ContractProduct_VC
|
||||
End If
|
||||
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aSendBackToEditContractProduct_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSendBackToEditContractProduct.Execute
|
||||
|
||||
+30
-30
@@ -41,11 +41,11 @@ Public Class DeliveryNoteInVC
|
||||
'------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
If View.Id = "DeliveryNoteInHeader_DeliveryNoteInrows_ListView" Then ' -- A beágyazott ListView feletti toolbar
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteInVC).aUp_DeliveryNoteIn.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteInVC).aDown_DeliveryNoteIn.Active.SetItemValue("", True)
|
||||
End If
|
||||
@@ -53,18 +53,18 @@ Public Class DeliveryNoteInVC
|
||||
Frame.GetController(Of DeliveryNoteInVC).aGenerateStorageIn_From_DeliveryNoteInRows.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StorageInfromDeliveryNoteInRowsHeader_StorageInfromDeliveryNoteInRowsRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DeliveryNoteInFromOrderOutRowsRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
'------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "DeliveryNoteInHeader_DetailView" Then
|
||||
@@ -101,25 +101,25 @@ Public Class DeliveryNoteInVC
|
||||
|
||||
'------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "DeliveryNoteInHeader_DeliveryNoteInRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StorageInfromDeliveryNoteInRowsHeader_StorageInfromDeliveryNoteInRowsRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DeliveryNoteInFromOrderOutRowsRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
'------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "DeliveryNoteInHeader_DeatilView" Then
|
||||
|
||||
+45
-45
@@ -47,54 +47,54 @@ Public Class DeliveryNoteOutVC
|
||||
End If
|
||||
|
||||
If View.Id = "DeliveryNoteOutRows_ListView_Invoice" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aCreate_InvoiceFromStorageORIR.Active.SetItemValue("", True)
|
||||
|
||||
AddHandler View.SelectionChanged, AddressOf DeliveryNoteOutRows_ListView_Invoice_ViewSelectionChanged
|
||||
End If
|
||||
|
||||
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True)
|
||||
|
||||
AddHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
|
||||
End If
|
||||
|
||||
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_Transfer" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True)
|
||||
|
||||
AddHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
|
||||
End If
|
||||
|
||||
If View.Id = "StorageOutRowsInRows_LookupListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "DeliveryNoteOutHeader_ListView_NonEditable" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC)().aDeliveryNoteOutPrint.Active.SetItemValue("", True)
|
||||
End If
|
||||
'------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "DeliveryNoteOutHeader_DeliveryNoteOutRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", True)
|
||||
End If
|
||||
@@ -108,9 +108,9 @@ Public Class DeliveryNoteOutVC
|
||||
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
|
||||
If _DeliveryNoteOutHeader IsNot Nothing Then
|
||||
If _DeliveryNoteOutHeader.IsEditable = False Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndNewAction.Active.SetItemValue("", False)
|
||||
@@ -131,45 +131,45 @@ Public Class DeliveryNoteOutVC
|
||||
End If
|
||||
|
||||
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", False)
|
||||
|
||||
RemoveHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
|
||||
End If
|
||||
|
||||
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_Transfer" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True)
|
||||
|
||||
RemoveHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
|
||||
End If
|
||||
|
||||
If View.Id = "StorageOutRowsInRows_LookupListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "DeliveryNoteOutHeader_ListView_NonEditable" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC)().aDeliveryNoteOutPrint.Active.SetItemValue("", False)
|
||||
End If
|
||||
'------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "DeliveryNoteOutHeader_DeliveryNoteOutRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
End If
|
||||
@@ -183,9 +183,9 @@ Public Class DeliveryNoteOutVC
|
||||
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
|
||||
If _DeliveryNoteOutHeader IsNot Nothing Then
|
||||
If _DeliveryNoteOutHeader.IsEditable = False Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndNewAction.Active.SetItemValue("", True)
|
||||
|
||||
+52
-52
@@ -47,64 +47,64 @@ Public Class CRMEstateVC
|
||||
View.Id = "CRMEstate_Leads_Selected_StudentHostel_ListView" Or _
|
||||
View.Id = "CRMEstate_Opportunity_Immovables_ListView_Navigation" Then
|
||||
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
If View.Id = "CRMEstate_Opportunity_DetailView" Then
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
|
||||
If View.Id Like "CRMEstate_Leads_CRMEstate_Leads_Immovables_ListView*" Or _
|
||||
View.Id Like "CRMEstate_Leads_CRMEstate_Opportunity_ListView*" Then
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf CRMEstate_Leads_CRMEstate_Opportunity_ListView_DeleteAction_Executing
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Or _
|
||||
View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Customers_ListView" Or _
|
||||
View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Or _
|
||||
View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Rent_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_DetailView" Then
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_CollectionOfReservation_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
AddHandler View.SelectionChanged, AddressOf Selectionchanged_CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView
|
||||
End If
|
||||
If View.Id = "CRMEstate_Opportunity_AdvanceMoney_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRMEstate_Leads_DetailView" Or _
|
||||
View.Id = "CRMEstate_Leads_ListView" Then
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf CRMEstate_Leads_DetailView_DeleteAction_Executing
|
||||
End If
|
||||
If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, _
|
||||
AddressOf CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView_DeleteAction_Executing
|
||||
@@ -116,36 +116,36 @@ Public Class CRMEstateVC
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_CollectionOfReservation_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRMEstate_Opportunity_DetailView" Then
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id Like "CRMEstate_Leads_CRMEstate_Leads_Immovables_ListView*" Or _
|
||||
View.Id Like "CRMEstate_Leads_CRMEstate_Opportunity_ListView*" Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRMEstate_Opportunity_AdvanceMoney_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRMEstate_Leads_DetailView" Or _
|
||||
View.Id = "CRMEstate_Leads_ListView" Then
|
||||
@@ -153,8 +153,8 @@ Public Class CRMEstateVC
|
||||
End If
|
||||
|
||||
If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, _
|
||||
AddressOf CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView_DeleteAction_Executing
|
||||
@@ -563,7 +563,7 @@ Public Class CRMEstateVC
|
||||
Throw New Exception("*A(z) " & _CRMEstate_Opportunity_AdvanceMoney.CustomersFrom.Name & " céghez nincs megfelelő sablon az ajánlati sablonban! Kérjük ellenőrizze!")
|
||||
End If
|
||||
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
'-- A tárgyban forgó ingatlanról levesszük az eladható státuszt
|
||||
_CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.CanForSale = False
|
||||
_CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.Save()
|
||||
@@ -615,7 +615,7 @@ Public Class CRMEstateVC
|
||||
|
||||
|
||||
_ocur.CommitChanges()
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
View.Close()
|
||||
End Sub
|
||||
Private Sub aDeleteCRMEstate_Opportunity_AdvanceMoney_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDeleteCRMEstate_Opportunity_AdvanceMoney.Execute
|
||||
|
||||
+32
-32
@@ -28,55 +28,55 @@ Public Class ImmovablesPriceListVC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aGenerateIPriceList_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateIPriceList.Execute
|
||||
|
||||
+24
-24
@@ -33,49 +33,49 @@ Public Class ImmovablesCostRecordExcelVC
|
||||
End If
|
||||
|
||||
If View.Id = "ImmovablesCostRecordExcel_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "ImmovablesCostRecordExcel_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelImmovables_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "ImmovablesCostRecordExcel_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "ImmovablesCostRecordExcel_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
+2
-2
@@ -23,7 +23,7 @@ Public Class EstateVC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "Immovables_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Immovables_ChangeGroup_PopUp_DetailView" Then
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing
|
||||
@@ -32,7 +32,7 @@ Public Class EstateVC
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "Immovables_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Immovables_ChangeGroup_PopUp_DetailView" Then
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing
|
||||
|
||||
+3
-3
@@ -29,7 +29,7 @@ Public Class ImmovablesVC
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
Private Sub aIRentGetContracts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIRentGetContracts.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
@@ -37,7 +37,7 @@ Public Class ImmovablesVC
|
||||
|
||||
Dim _ContractRows As ContractRows
|
||||
Dim _ContractRows_Collection As XPCollection(Of ContractRows)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
RaiseEvent InitWork(1, 1, TryCast(View, ListView).CollectionSource.List.Count)
|
||||
For Each _Immovables In TryCast(View, ListView).CollectionSource.List
|
||||
RaiseEvent DoWork()
|
||||
@@ -52,6 +52,6 @@ Public Class ImmovablesVC
|
||||
Next
|
||||
Next
|
||||
RaiseEvent FinalWork
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
+11
-11
@@ -53,14 +53,14 @@ Public Class InvoiceFactoring_VC
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
|
||||
Private Sub aFactoringSet_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringSet.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _InvoiceHeader As InvoiceHeader
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
For Each _InvoiceHeader In View.SelectedObjects
|
||||
If _InvoiceHeader.IsFactoring = False Then
|
||||
_InvoiceHeader.IsFactoring = True
|
||||
@@ -69,7 +69,7 @@ Public Class InvoiceFactoring_VC
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
|
||||
Private Sub aFactoringSendToBank_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aFactoringSendToBank.CustomizePopupWindowParams
|
||||
@@ -99,7 +99,7 @@ Public Class InvoiceFactoring_VC
|
||||
Dim _InvoiceFactoringPopup As InvoiceFactoringPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceFactoringPopup)
|
||||
Dim _Factoring_Send_Number As String = ""
|
||||
Dim _InvoiceFactoringBank As InvoiceFactoringBank
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
|
||||
For Each _InvoiceHeader In View.SelectedObjects
|
||||
If _InvoiceHeader.IsFactoring = True Then
|
||||
@@ -124,7 +124,7 @@ Public Class InvoiceFactoring_VC
|
||||
Next
|
||||
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
|
||||
'// Most kell a kérelmet kinyomtatni !!!!
|
||||
|
||||
@@ -142,7 +142,7 @@ Public Class InvoiceFactoring_VC
|
||||
Dim _InvoiceHeader As InvoiceHeader
|
||||
Dim _ReadyForDelete As Boolean = False
|
||||
Dim _InvoiceFactoringBank_Collection As New XPCollection(Of InvoiceFactoringBank)(_ocur.Session, CriteriaOperator.Parse("1=2"))
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
|
||||
For Each _InvoiceFactoringBank In View.SelectedObjects
|
||||
_ReadyForDelete = False
|
||||
@@ -162,7 +162,7 @@ Public Class InvoiceFactoring_VC
|
||||
_ocur.Delete(_InvoiceFactoringBank_Collection)
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
|
||||
Private Sub aFactoringCreate_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aFactoringCreate.CustomizePopupWindowParams
|
||||
@@ -205,7 +205,7 @@ Public Class InvoiceFactoring_VC
|
||||
End If
|
||||
|
||||
Dim _InvoiceFactoringRows As InvoiceFactoringRows
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
For Each _InvoiceHeader In View.SelectedObjects
|
||||
_InvoiceFactoringRows = _ocur.CreateObject(Of InvoiceFactoringRows)()
|
||||
_InvoiceFactoringRows.InvoiceFactoringHeader = _InvoiceFactoringHeader
|
||||
@@ -213,7 +213,7 @@ Public Class InvoiceFactoring_VC
|
||||
_InvoiceHeader.InvoiceFactoringRows = _InvoiceFactoringRows
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
|
||||
Private Sub aFactoringDestroy_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringDestroy.Execute
|
||||
@@ -221,7 +221,7 @@ Public Class InvoiceFactoring_VC
|
||||
Dim _InvoiceFactoringHeader As InvoiceFactoringHeader
|
||||
Dim _InvoiceFactoringRows As InvoiceFactoringRows
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
|
||||
For Each _InvoiceFactoringHeader In View.SelectedObjects
|
||||
For Each _InvoiceFactoringRows In _InvoiceFactoringHeader.InvoiceFactoringRows
|
||||
@@ -232,7 +232,7 @@ Public Class InvoiceFactoring_VC
|
||||
_ocur.Delete(_InvoiceFactoringHeader)
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
+17
-17
@@ -28,17 +28,17 @@ Public Class InvoiceCreditNote_VC
|
||||
MyBase.OnActivated()
|
||||
|
||||
If View.Id = "InvoiceCreditNoteHeader_DetailView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "InvoiceCreditNoteHeader_InvoiceCreditNoteRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "InvoiceRows_ListView_CreditNote" Then
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf InvoiceRows_ListView_CreditNote_AcceptAction_Executing
|
||||
@@ -48,16 +48,16 @@ Public Class InvoiceCreditNote_VC
|
||||
MyBase.OnDeactivated()
|
||||
|
||||
If View.Id = "InvoiceCreditNoteHeader_DetailView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "InvoiceCreditNoteHeader_InvoiceCreditNoteRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
+22
-22
@@ -53,21 +53,21 @@ Public Class InvoiceRowVC
|
||||
End If
|
||||
|
||||
If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aDeleteSelectedInvoiceRows.Active.SetItemValue("", False) ' Kijelölt sor törlése
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "InvoiceHeader_InvoiceVATRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "InvoiceRows_ListView_Table" Then
|
||||
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
@@ -80,21 +80,21 @@ Public Class InvoiceRowVC
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aDeleteSelectedInvoiceRows.Active.SetItemValue("", True) ' Kijelölt sor törlése
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "InvoiceHeader_InvoiceVATRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "InvoiceRows_ListView_Table" Then
|
||||
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
@@ -114,7 +114,7 @@ Public Class InvoiceRowVC
|
||||
End If
|
||||
|
||||
If _InvoiceRows_Corr IsNot Nothing Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
@@ -159,7 +159,7 @@ Public Class InvoiceRowVC
|
||||
|
||||
|
||||
If _InvoiceRows_Corr IsNot Nothing Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
Else
|
||||
'_ocur.Rollback()
|
||||
|
||||
@@ -57,36 +57,36 @@ Public Class InvoiceVC
|
||||
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aMakeEditableProforma.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", True)
|
||||
|
||||
Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then ' Számla sorok amik egy fejléchez tartoznak
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _ListView As ListView = CType(View, ListView)
|
||||
Dim _Cs As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
|
||||
If TryCast(_Cs.MasterObject, InvoiceHeader) IsNot Nothing Then
|
||||
If TryCast(_Cs.MasterObject, InvoiceHeader).IsEditable = False Then ' Amennyiben szerkeszthető a fejléc csak akkor lehessen sort törölni, és ne lehessen új sort hozzáadni
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
Else
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
If View.Id = "InvoiceHeader_ListView" Then ' Számlák lista nézet
|
||||
Frame.GetController(Of InvoiceVC)().aStornoInvoice.Active.SetItemValue("", True) '-- Végleges számla stornírozása
|
||||
' Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
' Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aGenerateInvoiceToPdfFiles.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", True)
|
||||
@@ -95,7 +95,7 @@ Public Class InvoiceVC
|
||||
Frame.GetController(Of InvoiceVC).aViewPCIDInvoice.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "InvoiceHeader_ListView_Editable" Then ' Szerkeszthető számlák
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", True)
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Editable_DeleteAction_Executing
|
||||
@@ -103,13 +103,13 @@ Public Class InvoiceVC
|
||||
Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "InvoiceHeader_LookupListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC).aFinalizeInvoice.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC).aFinalizeInvoicewithPopup.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "InvoiceRows_ListView_Advanced" Then ' Előleg tipusú számla sorok lista nézet
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC).aPCICheckInvoice.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC).aViewPCIDInvoice.Active.SetItemValue("", True)
|
||||
|
||||
@@ -118,20 +118,20 @@ Public Class InvoiceVC
|
||||
If View.Id = "InvoiceHeader_ListView_Proforma_Advanced" Then
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_DeleteAction_Executing
|
||||
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", True)
|
||||
|
||||
Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of InvoiceVC)().a.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "InvoiceHeader_InvoiceRows_ListView_Corrigendum" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "GLAccounts_DetailView_InvoiceHeader" Then
|
||||
Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", False)
|
||||
@@ -140,16 +140,16 @@ Public Class InvoiceVC
|
||||
Frame.GetController(Of GLAccountsVC).aBackToRowEdit_GLAccounts.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLAccountsVC).aFinal_GLAccounts.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLAccountsVC).aFinalAndNew_GLAccounts.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
If View.Id = "InvoiceHeader_ListView_Proforma_CustomRate" Then
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_DeleteAction_Executing
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True) '-- Számla nyomtatása
|
||||
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True)
|
||||
@@ -169,18 +169,18 @@ Public Class InvoiceVC
|
||||
If View.SelectedObjects.Count > 0 Then
|
||||
_InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader)
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
If _InvoiceHeader.IsEditable Or _InvoiceHeader.IsProforma Then
|
||||
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True)
|
||||
End If
|
||||
If _InvoiceHeader.IsEditable = False Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", False)
|
||||
Else
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aCreateProforma.Active.SetItemValue("", True)
|
||||
End If
|
||||
If _InvoiceHeader.IsEditable = True Then
|
||||
@@ -205,15 +205,15 @@ Public Class InvoiceVC
|
||||
Frame.GetController(Of InvoiceRowVC).aToTableD_Invoice.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC).aFinalizeInvoice.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "InvoiceAdvancePopup_DetailView" Then ' Előleg bekérő készítő view
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
If View.Id = "EMailSendQueueParameters_ListView_PopUp" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf EMailSendQueueParameters_ListView_PopUp_AcceptAction_Executing
|
||||
End If
|
||||
End Sub
|
||||
@@ -238,8 +238,8 @@ Public Class InvoiceVC
|
||||
|
||||
If View.Id = "InvoiceHeader_ListView" Then
|
||||
Frame.GetController(Of InvoiceVC)().aStornoInvoice.Active.SetItemValue("", False) '-- Végleges számla stornírozása
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", False)
|
||||
End If
|
||||
@@ -247,26 +247,26 @@ Public Class InvoiceVC
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
If View.Id = "InvoiceHeader_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAction.Executing, AddressOf InvoiceHeader_DetailView_SaveActionExecuting
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAndCloseAction.Executing, AddressOf InvoiceHeader_DetailView_SaveActionExecuting
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAndNewAction.Executing, AddressOf InvoiceHeader_DetailView_SaveActionExecuting
|
||||
End If
|
||||
If View.Id = "InvoiceRows_ListView_Advanced" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "InvoiceHeader_ListView_Editable" Then ' Szerkeszthető számlák
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", False)
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Editable_DeleteAction_Executing
|
||||
End If
|
||||
If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "InvoiceHeader_DetailView_Corrigendum" Then
|
||||
Frame.GetController(Of InvoiceRowVC).aToTable_Invoice.Active.SetItemValue("", False)
|
||||
@@ -274,14 +274,14 @@ Public Class InvoiceVC
|
||||
Frame.GetController(Of InvoiceRowVC).aToTableD_Invoice.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC).aFinalizeInvoice.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "InvoiceHeader_InvoiceRows_ListView_Corrigendum" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "InvoiceHeader_ListView_Proforma" Then '-- Proforma lista nézet
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_DeleteAction_Executing
|
||||
@@ -289,20 +289,20 @@ Public Class InvoiceVC
|
||||
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aMakeEditableProforma.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "InvoiceHeader_ListView_Proforma_CustomRate" Then
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False) '-- Számla nyomtatása
|
||||
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", False)
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_CustomRate_DeleteAction_Executing
|
||||
End If
|
||||
If View.Id = "EMailSendQueueParameters_ListView_PopUp" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf EMailSendQueueParameters_ListView_PopUp_AcceptAction_Executing
|
||||
End If
|
||||
End Sub
|
||||
@@ -459,7 +459,7 @@ Public Class InvoiceVC
|
||||
If View.SelectedObjects.Count > 0 Then
|
||||
Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader)
|
||||
'If _InvoiceHeader.IsEditable = True Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
'End If
|
||||
End If
|
||||
End If
|
||||
@@ -530,7 +530,7 @@ Public Class InvoiceVC
|
||||
Dim _ContractRows As ContractRows
|
||||
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
_InvoiceHeader_New = _ocur.CreateObject(Of InvoiceHeader)()
|
||||
_InvoiceHeader_New.IsStorno = True : _p_InvoiceHeader.IsStorno = True
|
||||
_InvoiceHeader_New.BankInformation = _p_InvoiceHeader.BankInformation
|
||||
@@ -641,7 +641,7 @@ Public Class InvoiceVC
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------
|
||||
Me.PrintInvoice(_InvoiceHeader_New)
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
If TryCast(View, DetailView) IsNot Nothing Then
|
||||
View.Close(False)
|
||||
Else
|
||||
@@ -857,7 +857,7 @@ CheckError:
|
||||
|
||||
On Error GoTo CheckError
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
|
||||
_InvoiceHeader_New.IsProforma = True
|
||||
_InvoiceHeader_New.IsEditable = False
|
||||
@@ -949,7 +949,7 @@ CheckError:
|
||||
_InvoiceHeader_New.RecalculateInvoice(_InvoiceHeader_New, _ocur)
|
||||
_ocur.CommitChanges()
|
||||
Me.PrintInvoice(_InvoiceHeader_New)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
View.Close()
|
||||
Exit Sub
|
||||
CheckError:
|
||||
|
||||
+22
-22
@@ -50,11 +50,11 @@ Public Class OffersInVC
|
||||
End If
|
||||
|
||||
If View.Id = "OfferInHeader_OfferInRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aUp_OfferIn.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC).aDown_OfferIn.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC).aOffersIn_ChangeRows.Active.SetItemValue("", True)
|
||||
@@ -84,14 +84,14 @@ Public Class OffersInVC
|
||||
Frame.GetController(Of OffersInVC)().aOfferIn_CreateDeliveryNoteIn.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "DeliveryNoteInFromOffersInRowsHeader_DeliveryNoteInFromOffersInRowsRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OfferOutHeader_ListView_OfferOutHeaderInHeader" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
@@ -104,11 +104,11 @@ Public Class OffersInVC
|
||||
RemoveHandler View.SelectionChanged, AddressOf OfferInHeader_OfferInRows_ListView_SelectionChanged
|
||||
End If
|
||||
If View.Id = "OfferInHeader_OfferInRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC).aUp_OfferIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aDown_OfferIn.Active.SetItemValue("", False)
|
||||
@@ -133,14 +133,14 @@ Public Class OffersInVC
|
||||
Frame.GetController(Of OffersInVC)().aOfferIn_CreateDeliveryNoteIn.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "DeliveryNoteInFromOffersInRowsHeader_DeliveryNoteInFromOffersInRowsRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OfferOutHeader_ListView_OfferOutHeaderInHeader" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub OfferInHeader_OfferInRows_ListView_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
|
||||
+69
-69
@@ -49,23 +49,23 @@ Public Class OffersOutVC
|
||||
Frame.GetController(Of OffersOutVC).aOfferOut_ChangeState.Active.SetItemValue("", False)
|
||||
'------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "OfferOutHeader_OfferOutCostRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "OfferOutHeader_ListView_Editable" Then
|
||||
Frame.GetController(Of OffersOutVC).aCloneOfferOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersOutVC).aCloneOfferOut_CRM.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OfferOutHeader_ListView_NotEditable" Or _
|
||||
View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then
|
||||
Frame.GetController(Of OffersOutVC).aCloneOfferOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersOutVC).aCreateOrderIn_From_OfferOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersOutVC).aCloneOfferOut_CRM.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersOutVC).aOfferOut_ChangeState.Active.SetItemValue("", True)
|
||||
|
||||
AddHandler View.SelectionChanged, AddressOf OfferOutHeader_OfferOutRows_ListView_SelectionChanged
|
||||
@@ -81,48 +81,48 @@ Public Class OffersOutVC
|
||||
If View.Id = "OfferOutHeader_OfferOutRows_ListView" Then ' -- A beágyazott ListView feletti toolbar
|
||||
Frame.GetController(Of OffersOutVC).aUp_OfferOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersOutVC).aDown_OfferOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersOutVC).aImportRecipe.Active.SetItemValue("", True) 'Recept import
|
||||
Frame.GetController(Of OffersOutVC).aInsertServicesToOfferOut.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "ProductFinderVariable_ProductSelectOriginal_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ProductFinderVariable_ProductSelectVariables_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OfferOutHeader_ListView_Support" Then
|
||||
Frame.GetController(Of OffersOutVC).aBackToEditOfferOut.Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of OffersOutVC).a()
|
||||
End If
|
||||
If View.Id = "OfferOutHeader_OfferInHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
'------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "OfferOutHeader_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersOutVC).aOffersOutFinalWidthVersion.Active.SetItemValue("", True)
|
||||
|
||||
Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader)
|
||||
@@ -143,7 +143,7 @@ Public Class OffersOutVC
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
If View.Id = "ProductFinderVariable_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "OfferOutHeader_ListView_Support" Then 'WEB Supportnál ajánlatok listázása
|
||||
@@ -161,10 +161,10 @@ Public Class OffersOutVC
|
||||
End If
|
||||
End If
|
||||
If View.Id = "OfferInHeader_ListView_OfferOutHeaderInHeader" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
@@ -172,23 +172,23 @@ Public Class OffersOutVC
|
||||
|
||||
'------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "OfferOutHeader_OfferOutCostRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OfferOutHeader_OfferOutRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "OfferOutHeader_ListView_Editable" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OfferOutHeader_ListView_NotEditable" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersOutVC).aOfferOut_ChangeState.Active.SetItemValue("", False)
|
||||
|
||||
RemoveHandler View.SelectionChanged, AddressOf OfferOutHeader_OfferOutRows_ListView_SelectionChanged
|
||||
@@ -198,34 +198,34 @@ Public Class OffersOutVC
|
||||
Frame.GetController(Of OffersOutVC).aImportRecipe.Active.SetItemValue("", False) 'Recept import
|
||||
End If
|
||||
If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ProductFinderVariable_ProductSelectOriginal_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ProductFinderVariable_ProductSelectVariables_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OfferOutHeader_ListView_Support" Then
|
||||
Frame.GetController(Of OffersOutVC).aBackToEditOfferOut.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OfferOutHeader_OfferInHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
'------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "OfferOutHeader_DeatilView" Then
|
||||
@@ -235,16 +235,16 @@ Public Class OffersOutVC
|
||||
Frame.GetController(Of OffersOutVC).aTotableD_OfferOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersOutVC).aBackToRowEdit_OfferOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersOutVC).aOffersOutFinalWidthVersion.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OrderInHeaderFromOfferOutRowsHeader_DetailView" Or View.Id = "OffersOutCloneForCRM_DetailView" Then
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
If View.Id = "OfferInHeader_ListView_OfferOutHeaderInHeader" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
|
||||
|
||||
+10
-10
@@ -22,21 +22,21 @@ Public Class OfferAskIn_VC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "OfferAskInCreateOfferAskOutFromCustomersPopUp_CustomersQualification_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "OfferAskInCreateOfferAskOutFromCustomersPopUp_CustomersQualification_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aOfferAskInRowsAddOperations_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOfferAskInRowsAddOperations.CustomizePopupWindowParams
|
||||
|
||||
+8
-8
@@ -28,10 +28,10 @@ Public Class OrderInHeader_PermissionVC
|
||||
If View.Id = "OrderInHeader_ListView_Permission" Then
|
||||
|
||||
Frame.GetController(Of RefreshController).RefreshAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _CollectionSource As CollectionSource = TryCast(View, ListView).CollectionSource
|
||||
_CollectionSource.BeginUpdateCriteria()
|
||||
@@ -43,10 +43,10 @@ Public Class OrderInHeader_PermissionVC
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "OrderInHeader_ListView_Permission" Then
|
||||
Frame.GetController(Of RefreshController).RefreshAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aOrderInHeader_Permission_Refresh_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aOrderInHeader_Permission_Refresh.Execute
|
||||
|
||||
+18
-18
@@ -24,31 +24,31 @@ Public Class OrderInAcknowledgementVC
|
||||
MyBase.OnActivated()
|
||||
|
||||
If View.Id = "OrderInHeader_OrderInAcknowledgementHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OrderInAcknowledgementHeader_OrderInAcknowledgementRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "OrderInHeader_OrderInAcknowledgementHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OrderInAcknowledgementHeader_OrderInAcknowledgementRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aCreateAcknowledgementFromOrderIn_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateAcknowledgementFromOrderIn.CustomizePopupWindowParams
|
||||
@@ -149,7 +149,7 @@ Public Class OrderInAcknowledgementVC
|
||||
Private Sub aCreateContractsFromAcknowledgement_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateContractsFromAcknowledgement.Execute
|
||||
|
||||
'A szerződés sor jelölő adatai itt nem fontosak így a függvény élettartamára kikapcsoljuk a validálást
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ContractsFromAcknowledgement_PopUp As ContractsFromAcknowledgement_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractsFromAcknowledgement_PopUp)
|
||||
@@ -186,7 +186,7 @@ Public Class OrderInAcknowledgementVC
|
||||
_ContractRows.RowGroup2 = _OrderInAcknowledgementRows.RowGroup2
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
|
||||
End Sub
|
||||
Private Sub aAcknowledgementRows_Up_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAcknowledgementRows_Up.Execute
|
||||
|
||||
+10
-10
@@ -21,11 +21,11 @@ Public Class OrderInRowsOtherVC
|
||||
MyBase.OnActivated()
|
||||
|
||||
If View.Id = "OrderInHeader_OrderInRowsOther_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -33,11 +33,11 @@ Public Class OrderInRowsOtherVC
|
||||
MyBase.OnDeactivated()
|
||||
|
||||
If View.Id = "OrderInHeader_OrderInRowsOther_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aToTable_OrderInOther_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_OrderInOther.Execute
|
||||
|
||||
+37
-37
@@ -57,9 +57,9 @@ Public Class OrderInVC
|
||||
|
||||
'--------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "OrderInHeader_OrderInRows_ListView" Then '--- Bejövõ megrendelések sorai
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OrderInVC)().aUp_OrderIn.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OrderInVC)().aDown_OrderIn.Active.SetItemValue("", True)
|
||||
|
||||
@@ -81,8 +81,8 @@ Public Class OrderInVC
|
||||
|
||||
End If
|
||||
If View.Id = "OrderInHeader_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OrderInVC)().aBackToEdit_OrderInHeader.Active.SetItemValue("", True)
|
||||
End If
|
||||
@@ -91,21 +91,21 @@ Public Class OrderInVC
|
||||
End If
|
||||
|
||||
If View.Id = "OrderInRows_StorageComputed_Collection_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "OrderInHeader_OrderInHeaderVAT_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OrderInHeader_OrderInTo_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OrderInHeader_OrderInRows_ListView" Then
|
||||
Frame.GetController(Of OrderInVC).aOrderIn_ChangeRows.Active.SetItemValue("", True)
|
||||
@@ -120,10 +120,10 @@ Public Class OrderInVC
|
||||
AddHandler View.SelectionChanged, AddressOf OrderInHeader_OrderInRowsOther_ListView_SelectionChanged
|
||||
End If
|
||||
If View.Id = "OrderInRows_StorageOutRowsInRows_Collection_ListView" Then
|
||||
'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
'--------- DETAILVIEWS -------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "OrderInHeader_DetailView" Then '---Véglegesíteni és Sztornózni csak a megfelelõ elemeket lehessen
|
||||
@@ -133,7 +133,7 @@ Public Class OrderInVC
|
||||
Frame.GetController(Of OrderInVC)().aGenerateStorageOutFromOrderIn.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OrderInVC).aGenerateStorageOutFromOrderInFIFO.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OrderInVC).aProductFinder.Active.SetItemValue("", True)
|
||||
If View.SelectedObjects.Count <> 0 Then
|
||||
Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader)
|
||||
@@ -143,7 +143,7 @@ Public Class OrderInVC
|
||||
Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False)
|
||||
End If
|
||||
If _OrderInHeader.IsEditable = False Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OrderInVC)().aFinalizeOrderIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)().SaveAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", False)
|
||||
@@ -181,34 +181,34 @@ Public Class OrderInVC
|
||||
MyBase.OnDeactivated()
|
||||
|
||||
If View.Id = "OrderInHeader_OrderInRows_ListView" Then '--- Bejövõ megrendelések sorai
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
|
||||
Dim nv As ListView = CType(View, ListView)
|
||||
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
|
||||
RemoveHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged
|
||||
End If
|
||||
If View.Id = "OrderInRows_StorageComputed_Collection_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ORI_Invoice_Popup_DetailView" Then
|
||||
RemoveHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
If View.Id = "OrderInHeader_OrderInHeaderVAT_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OrderInHeader_OrderInTo_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OrderInHeader_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OrderInVC)().aBackToEdit_OrderInHeader.Active.SetItemValue("", False)
|
||||
End If
|
||||
@@ -221,7 +221,7 @@ Public Class OrderInVC
|
||||
Frame.GetController(Of OrderInVC)().aToTable_OrderIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OrderInVC)().aToTableD_OrderIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OrderInVC).aGenerateStorageOutFromOrderInFIFO.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
If View.SelectedObjects.Count <> 0 Then
|
||||
Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader)
|
||||
|
||||
@@ -230,9 +230,9 @@ Public Class OrderInVC
|
||||
Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False)
|
||||
End If
|
||||
If _OrderInHeader.IsEditable = False Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
If _OrderInHeader.IsEditable = False Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OrderInVC)().aFinalizeOrderIn.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController)().SaveAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", True)
|
||||
|
||||
+16
-16
@@ -24,30 +24,30 @@ Public Class OrderInToDisposeVC
|
||||
MyBase.OnActivated()
|
||||
|
||||
If View.Id = "OrderInToDispose_DetailView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OrderInToDispose_OrderInTo_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
|
||||
If View.Id = "OrderInToDispose_DetailView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OrderInToDispose_OrderInTo_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -78,7 +78,7 @@ Public Class OrderInToDisposeVC
|
||||
Dim _OrderOutRows As OrderOutRows = Nothing
|
||||
Dim _OrderInTo As OrderInTo
|
||||
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
If _OrderOutHeader IsNot Nothing Then
|
||||
For Each _OrderInTo In _OrderInTo_ListEditor.ListView.SelectedObjects
|
||||
If _OrderInTo.OrderOutRows Is Nothing Then
|
||||
@@ -105,7 +105,7 @@ Public Class OrderInToDisposeVC
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
|
||||
Finally
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
+37
-37
@@ -40,42 +40,42 @@ Public Class OrderOutVC
|
||||
Frame.GetController(Of OrderOutVC)().aBackToRowEdit_OrderOut.Active.SetItemValue("", False)
|
||||
'--------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "OrderOutHeader_OrderOutRows_ListView" Then '--- Kimenõ megrendelések sorai
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OrderOutVC)().aUp_OrderOut.Active.SetItemValue("", True) ' -- Kimenõ megrendelés sorainak a row indexét csökkentjük
|
||||
Frame.GetController(Of OrderOutVC)().aDown_OrderOut.Active.SetItemValue("", True) ' -- Kimenõ megrendelés sorainak a row indexét növeljük
|
||||
End If
|
||||
If View.Id = "OrderOutHeader_ListView_Editable" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OrderOutHeader_ListView" Then
|
||||
Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OrderOutRows_ListView_Table" Then
|
||||
Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOut.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OrderOutHeader_OrderInTo_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
'--------- DETAILVIEWS -------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "OrderOutHeader_DetailView" Then
|
||||
Frame.GetController(Of OrderOutVC)().aToTable_OrderOut.Active.SetItemValue("", True) ' -- Sor hozzáadása
|
||||
Frame.GetController(Of OrderOutVC)().aToTableD_OrderOut.Active.SetItemValue("", True) ' -- Sor törlése
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _OrderOutHeader As OrderOutHeader = TryCast(View.SelectedObjects(0), OrderOutHeader)
|
||||
|
||||
@@ -84,7 +84,7 @@ Public Class OrderOutVC
|
||||
Frame.GetController(Of OrderOutVC)().aStornoOrderOut.Active.SetItemValue("", False)
|
||||
End If
|
||||
If _OrderOutHeader.IsEditable = False Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OrderOutVC)().aFinalizeOrderOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OrderOutVC)().aToTable_OrderOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OrderOutVC)().aToTableD_OrderOut.Active.SetItemValue("", False)
|
||||
@@ -123,23 +123,23 @@ Public Class OrderOutVC
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
If View.Id = "OrderOutHeader_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
|
||||
End If
|
||||
|
||||
If View.Id = "OrderOutHeader_OrderOutRows_ListView" Then '--- Kimenõ megrendelések sorai
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "OrderOutHeader_ListView" Then
|
||||
Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" Then
|
||||
' RemoveHandler View.SelectionChanged, AddressOf OrderOutHeader_OrderOutRows_ListView_Corrigendum_SelectionChanged
|
||||
@@ -152,20 +152,20 @@ Public Class OrderOutVC
|
||||
Frame.GetController(Of OrderOutVC)().aFinalizeOrderOut.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OrderOutHeader_ListView_Editable" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OrderOutHeader_OrderInTo_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
'--------- Kimenõ megrendelések akciói ---------------------------------------------------------------------------------------------------------------------------------------
|
||||
@@ -648,7 +648,7 @@ Public Class OrderOutVC
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _OrderOutRows As OrderOutRows
|
||||
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _OrderOutRows_Collection_Total As New XPCollection(Of OrderOutRows)(_ocur.Session, CriteriaOperator.Parse("1=1"))
|
||||
|
||||
@@ -661,7 +661,7 @@ Public Class OrderOutVC
|
||||
End If
|
||||
Next
|
||||
RaiseEvent FinalWork
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
|
||||
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
|
||||
For Each _OrderOutRows In View.SelectedObjects
|
||||
|
||||
+8
-8
@@ -29,23 +29,23 @@ Public Class RecipeExecutionSimpleVC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "RecipeTo_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "RecipeFrom_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "RecipeTo_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "RecipeFrom_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
+20
-20
@@ -26,51 +26,51 @@ Public Class TakeOverProtocolVC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "TakeoverProtocolHeader_ListView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "TakeoverProtocolHeader_TakeOverProtocolRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "TakeoverProtocolRows_ListView_Finalized" 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 NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
AddHandler Frame.GetController(Of ListViewProcessCurrentObjectController).ProcessCurrentObjectAction.Executing, AddressOf TakeoverProtocolRows_ListView_Finalized_ProcessCurrentObjectAction_Executing
|
||||
End If
|
||||
'--------------------DetailView-----------------------
|
||||
If View.Id = "TakeoverProtocolHeader_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
|
||||
If View.Id = "TakeoverProtocolHeader_ListView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "TakeoverProtocolHeader_TakeOverProtocolRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "TakeoverProtocolRows_ListView_Finalized" 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 NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
RemoveHandler Frame.GetController(Of ListViewProcessCurrentObjectController).ProcessCurrentObjectAction.Executing, AddressOf TakeoverProtocolRows_ListView_Finalized_ProcessCurrentObjectAction_Executing
|
||||
End If
|
||||
'--------------------DetailView-----------------------
|
||||
If View.Id = "TakeoverProtocolHeader_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aToTable_TPR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_TPR.Execute
|
||||
|
||||
@@ -34,10 +34,10 @@ Public Class CRM_LeadsVC
|
||||
Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id = "CRM_Leads_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_DetailView" Then
|
||||
@@ -52,81 +52,81 @@ Public Class CRM_LeadsVC
|
||||
'-----------------------------------------------------------------------------------------<<<
|
||||
End If
|
||||
If View.Id = "CRM_Leads_Activity_Task_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted")?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRM_Leads_Activity_ListView" Then
|
||||
Frame.GetController(Of CRM_LeadsVC)().aEdit_CRM_Leads_Activity.Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRM_Opportunity_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
If View.Id = "CRM_Leads_Activity_CRM_Leads_Activity_Task_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted")?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRMNote_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "CRM_Leads_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRM_Leads_Activity_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRM_Opportunity_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_Activity_CRM_Leads_Activity_Task_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_Activity_Task_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted")?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRMNote_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
@@ -25,86 +25,86 @@ Public Class CRM_OpportunitiesVC
|
||||
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id = "CRM_Opportunities_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_Contracts_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_Contacts_Roles_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_DeliveryNoteOutHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_InvoiceHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_PCIDetail_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_OfferInHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", True)
|
||||
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_OrderInHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Leads_Activity_ListView" Then
|
||||
Frame.GetController(Of CRM_LeadsVC)().aEdit_CRM_Leads_Activity.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Leads_Activity_Task_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted")?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_RegistryTask_ListView_NotSet" Then
|
||||
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_Set_Registry.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
@@ -114,10 +114,10 @@ Public Class CRM_OpportunitiesVC
|
||||
If View.Id = "CRM_Opportunities_RegistryTask_ListView_Set" Then
|
||||
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
'// Csak az aktuális CRM ügyhöz tartozó tételek kellenek
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
@@ -128,118 +128,118 @@ Public Class CRM_OpportunitiesVC
|
||||
_ListView.CollectionSource.EndUpdateCriteria()
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_BusinessDirectory_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_Customers_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_CustomersContacts_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
If View.Id = "CRM_Opportunities_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_DeliveryNoteOutHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_Contacts_Roles_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_InvoiceHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "CRM_Opportunities_PCIDetail_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_OfferInHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_OrderInHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Leads_Activity_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_RegistryTask_ListView_NotSet" Then
|
||||
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_Set_Registry.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_RegistryTask_ListView_Set" Then
|
||||
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_BusinessDirectory_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_CustomersOrder_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_CustomersOrderContacts_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aCRM_O_CreateOfferOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_CreateOfferOut.Execute
|
||||
|
||||
@@ -19,7 +19,7 @@ Public Class InstallationVC
|
||||
MyBase.OnActivated()
|
||||
|
||||
If View.Id = "Installation_InstallationDocumentations_ListView_Support" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)))
|
||||
@@ -40,7 +40,7 @@ Public Class InstallationVC
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "Installation_InstallationDocumentations_ListView_Support" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InstallationVC).aInstallation_ChangeGroups.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -32,36 +32,36 @@ Public Class ProductFinderVC
|
||||
|
||||
If View.Id = "ProductFinder_DetailView" Then
|
||||
Frame.GetController(Of ProductFinderVC).aToTableProductFinder.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
If View.Id = "ProductFinder_ProductSelect_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ProductFinder_ProductSelected_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ProductFinder_StorageOutCirculation_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
If View.Id = "ProductFinder_ProductFinderInfo_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -32,19 +32,19 @@ Public Class ProductsGant_VC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "ProductsGant_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "ProductsGant_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
@@ -39,15 +39,15 @@ Public Class ProductsVC
|
||||
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Products_ListView_DeleteAction_Executing
|
||||
End If
|
||||
If View.Id = "Products_LookupListView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Products_Products_BusinessDirectory_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Products_ListView_EverUsed" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Products_ListView_Deleted" Then
|
||||
If TryCast(View, ListView) IsNot Nothing Then
|
||||
@@ -71,12 +71,12 @@ Public Class ProductsVC
|
||||
RemoveHandler View.SelectionChanged, AddressOf SelectionChanged
|
||||
End If
|
||||
If View.Id = "Products_LookupListView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Products_Products_BusinessDirectory_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
@@ -25,31 +25,31 @@ Public Class ServiceFinderVC
|
||||
MyBase.OnActivated()
|
||||
|
||||
If View.Id = "ServiceFinder_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
|
||||
If View.Id = "ServiceFinder_ServiceSelect_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "ServiceFinder_ServiceSelected_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "ServiceFinder_ServiceFinderInfo_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -23,15 +23,15 @@ Public Class Services_VC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "Services_Services_BusinessDirectory_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "Services_Services_BusinessDirectory_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
+55
-55
@@ -43,22 +43,22 @@ Public Class StorageTransactionsInVC
|
||||
'Frame.GetController(Of StorageTransactionsInVC)().aStorageInHeader_InsertInventoryTransfer.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id = "StorageOutRows_ListView_Overstored" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id Like "Storage*Header_*View" Then '--Anyagmozgást ne lehessen törölni---
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id Like "Products*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
'------------------------------------------ LISTVIEWS --------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "StorageInHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of StorageTransactionsInVC)().aBackToEdit_StorageInHeader.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Active.SetItemValue("", True)
|
||||
@@ -70,39 +70,39 @@ Public Class StorageTransactionsInVC
|
||||
If View.Id = "StorageInHeader_ListView_Editable" Then
|
||||
Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "StorageInHeader_StorageInRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of StorageTransactionsInVC)().aUp_StorageIn.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of StorageTransactionsInVC)().aDown_StorageIn.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StorageInRows_ListView_Order" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "StorageInRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "StorageInRowsFromPDACollectionPopup_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "StorageInRowsFromPDACollectionPopup_StoragePDACollectionRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
'------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------
|
||||
'-- Ne lehessen stornózni, ha stornózott ---------
|
||||
@@ -121,10 +121,10 @@ Public Class StorageTransactionsInVC
|
||||
If _StorageInHeader.IsEditable = False Then
|
||||
Frame.GetController(Of StorageTransactionsInVC)().aFinalize_StorageIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of StorageTransactionsInVC)().aFinalizeAndNew_StorageIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False)
|
||||
Else
|
||||
Frame.GetController(Of StorageTransactionsInVC)().aFinalizeAndNew_StorageIn.Active.SetItemValue("", True)
|
||||
@@ -133,8 +133,8 @@ Public Class StorageTransactionsInVC
|
||||
Frame.GetController(Of StorageTransactionsInVC)().aToTableD_SIH.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of StorageTransactionsInVC)().aStorageInFromPdaCollection.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -147,43 +147,43 @@ Public Class StorageTransactionsInVC
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
'------------------------------------------ LISTVIEWS --------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "StorageInHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
|
||||
RemoveHandler View.SelectionChanged, AddressOf StorageInHeader_ListView_View_SelectionChanged
|
||||
End If
|
||||
If View.Id = "StorageInHeader_StorageInRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StorageInHeader_ListView_Editable" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "StorageInRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StorageInRowsFromPDACollectionPopup_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StorageInRowsFromPDACollectionPopup_StoragePDACollectionRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
'------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "StorageInRows_Split_PopUp_DetailView" Then
|
||||
|
||||
+47
-47
@@ -37,108 +37,108 @@ Public Class InventoryVC
|
||||
Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id = "InventoryHeader_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
' Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Teszt miatt ideiglenesen enedélyezett
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
' Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False) Teszt miatt ideiglenesen enedélyezett
|
||||
|
||||
Frame.GetController(Of InventoryVC).aCreateInventoryHeader.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InventoryVC).aCloseInventoryHeader.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "InventoryHeader_InventorySC_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InventoryVC).aCreatePDACollection.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "InventoryHeader_InventorySIR_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "InventoryHeader_InventoryPDA_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "InventoryHeader_InventoryDifferent_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Storage_LookupListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "InventoryParameters_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
'--------------DeatilViewZ-------------
|
||||
If View.Id = "InventoryParameters_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "InventoryHeader_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
|
||||
Frame.GetController(Of InventoryVC).aCreateInventoryHeader.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InventoryVC).aCloseInventoryHeader.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Storage_LookupListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "InventoryHeader_InventorySC_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InventoryVC).aCreatePDACollection.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "InventoryHeader_InventorySIR_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "InventoryHeader_InventoryPDA_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "InventoryHeader_InventoryDifferent_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "InventoryParameters_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
'--------------DeatilViewZ-------------
|
||||
If View.Id = "InventoryHeader_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "InventoryParameters_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aCreateInventoryHeader_Cancel(sender As Object, e As System.EventArgs) Handles aCreateInventoryHeader.Cancel
|
||||
|
||||
+48
-48
@@ -47,45 +47,45 @@ Public Class StorageTransactionsOutVC
|
||||
End If
|
||||
|
||||
If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of StorageTransactionsOutVC)().aUp_StorageOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of StorageTransactionsOutVC)().aDown_StorageOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of StorageTransactionsOutVC).aCreatePDACollectionFromStorageOut.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StorageOutHeader_ListView_Editable" Then
|
||||
Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "StorageOutHeader_ListView" Then
|
||||
Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "StorageOutRows_ListView_Order" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of StorageTransactionsOutVC).aBackToStorageOutFromOrderIn.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StorageOutRows_ListView_DeliveryNote" Then
|
||||
Frame.GetController(Of StorageTransactionsOutVC)().aCreateDeliveryNote.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StorageOutRowsFromPDACollectionPopup_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
'------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "StorageOutHeader_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader)
|
||||
If _StorageOutHeader.IsEditable = False And _StorageOutHeader.IsStorno = False Then
|
||||
@@ -97,7 +97,7 @@ Public Class StorageTransactionsOutVC
|
||||
Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader)
|
||||
Dim _IsFromOrderIn As Boolean = False
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", True)
|
||||
|
||||
If _StorageOutHeader IsNot Nothing Then
|
||||
For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows ' Végigmegy a kit biz sorain és ha talál olyan sort ahol van hozzá megrendelési sor akkor nem engedi stornózni
|
||||
@@ -116,7 +116,7 @@ Public Class StorageTransactionsOutVC
|
||||
If _StorageOutHeader.IsEditable = False Then
|
||||
Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", False)
|
||||
Else
|
||||
Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", True)
|
||||
@@ -132,14 +132,14 @@ Public Class StorageTransactionsOutVC
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
'------------------------------------------ LISTVIEWS --------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StorageOutHeader_ListView" Then
|
||||
Frame.GetController(Of StorageTransactionsOutVC)().aBackToEdit_StorageOut.Active.SetItemValue("", False)
|
||||
@@ -147,44 +147,44 @@ Public Class StorageTransactionsOutVC
|
||||
End If
|
||||
|
||||
If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of StorageTransactionsOutVC)().aUp_StorageOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of StorageTransactionsOutVC)().aDown_StorageOut.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "StorageOutHeader_ListView_Editable" Then
|
||||
Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StorageOutHeader_ListView" Then
|
||||
Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StorageOutRows_ListView_Order" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of StorageTransactionsOutVC).aBackToStorageOutFromOrderIn.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "StorageOutRows_ListView_DeliveryNote" Then
|
||||
Frame.GetController(Of StorageTransactionsOutVC)().aCreateDeliveryNote.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "StorageOutRowsFromPDACollectionPopup_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
'------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "StorageOutHeader_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
|
||||
Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader)
|
||||
If _StorageOutHeader.IsEditable = False And _StorageOutHeader.IsStorno = False Then
|
||||
@@ -196,7 +196,7 @@ Public Class StorageTransactionsOutVC
|
||||
Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader)
|
||||
Dim _IsFromOrderIn As Boolean = False
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", False)
|
||||
|
||||
If _StorageOutHeader IsNot Nothing Then
|
||||
For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows ' Végigmegy a kit biz sorain és ha talál olyan sort ahol van hozzá megrendelési sor akkor nem engedi stornózni
|
||||
@@ -215,7 +215,7 @@ Public Class StorageTransactionsOutVC
|
||||
If _StorageOutHeader.IsEditable = False Then
|
||||
Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", False)
|
||||
Else
|
||||
Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", False)
|
||||
|
||||
+17
-17
@@ -35,20 +35,20 @@ Public Class StoragePDACollectionHeaderVC
|
||||
|
||||
|
||||
If View.Id = "StoragePDACollectionHeader_ListView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "StoragePDACollectionHeader_StoragePDACollectionRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
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 LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
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 AuditTrailVC)().aGetAuditTrail.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
'--------------------------DetailViewZ----------------------------------------
|
||||
If View.Id = "StoragePDACollectionHeader_DetailView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "StorageInFromPDACollectionPopup_DetailView" Then
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
@@ -57,20 +57,20 @@ Public Class StoragePDACollectionHeaderVC
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "StoragePDACollectionHeader_ListView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StoragePDACollectionHeader_StoragePDACollectionRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().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)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.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)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AuditTrailVC)().aGetAuditTrail.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
'--------------------------DetailViewZ----------------------------------------
|
||||
If View.Id = "StoragePDACollectionHeader_DetailView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StorageInFromPDACollectionPopup_DetailView" Then
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
@@ -323,7 +323,7 @@ Public Class StoragePDACollectionHeaderVC
|
||||
' _StreamReader.Close()
|
||||
' _StreamFile.Close()
|
||||
' File.Delete(_DeliveryNoteInType.PDAPath)
|
||||
' Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
' Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
' Using parser As New TextFieldParser(New StringReader(_StrBuffer))
|
||||
' parser.TextFieldType = FieldType.Delimited
|
||||
' parser.SetDelimiters(",")
|
||||
@@ -350,7 +350,7 @@ Public Class StoragePDACollectionHeaderVC
|
||||
' End While
|
||||
' End Using
|
||||
' _onew.CommitChanges()
|
||||
' Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
' Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
' End If
|
||||
'Catch ex As Exception
|
||||
' MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
|
||||
@@ -506,7 +506,7 @@ Public Class StoragePDACollectionHeaderVC
|
||||
' _StreamReader.Close()
|
||||
' _StreamFile.Close()
|
||||
' File.Delete(_DeliveryNoteInType.PDAPath)
|
||||
' Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
' Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
' Using parser As New TextFieldParser(New StringReader(_StrBuffer))
|
||||
' parser.TextFieldType = FieldType.Delimited
|
||||
' parser.SetDelimiters(",")
|
||||
|
||||
+14
-14
@@ -23,24 +23,24 @@ Public Class StorageComputedLocations_VC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "MoveProductsOtherLocation_PopUp_StorageComputedLocations_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
|
||||
Private Sub aMoveProductsOtherLocation_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aMoveProductsOtherLocation.CustomizePopupWindowParams
|
||||
|
||||
+11
-11
@@ -29,10 +29,10 @@ Public Class StorageComputedVC
|
||||
MyBase.OnActivated()
|
||||
'------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id Like "StorageComputed_LookupListView" Then '-- StorageComputed csak programból állítható elő !!!
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
'------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
|
||||
@@ -41,21 +41,21 @@ Public Class StorageComputedVC
|
||||
MyBase.OnDeactivated()
|
||||
'----------------- LISTVIEWS ----------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id Like "StorageComputed_LookupListView" Then '-- StorageComputed csak programból állítható elő !!!
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
'----------------- DETAILVIEWS --------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
'----------------- OTHERVIEWS ---------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
If View.Id Like "Storage*Header_*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id Like "Products*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -29,30 +29,30 @@ Public Class Subcontractor_VC
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
|
||||
If View.Id = "Subcontractor_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Subcontractor_SubcontractorCustomers_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of Subcontractor_VC).aSelectCustomersSubcontractor.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Subcontractor_SubcontractorWorksheetType_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "PCIGroup_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 LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User.Oid = ?", SecuritySystem.CurrentUserId))
|
||||
|
||||
@@ -68,40 +68,40 @@ Public Class Subcontractor_VC
|
||||
End If
|
||||
'------------------DeatailViews----------------------
|
||||
If View.Id = "Subcontractor_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "Subcontractor_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Subcontractor_SubcontractorCustomers_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Subcontractor_SubcontractorWorksheetType_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "PCIGroup_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 LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
'------------------DeatailViews----------------------
|
||||
If View.Id = "Subcontractor_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aSelectCustomersSubcontractor_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectCustomersSubcontractor.CustomizePopupWindowParams
|
||||
|
||||
@@ -23,65 +23,65 @@ Public Class Technologies_VC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "Technologies_Products_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Technologies_Services_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Technologies_Customers_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Technologies_Contacts_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Technologies_Technologies_BusinessDirectory_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
' Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
' Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "Technologies_Products_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Technologies_Services_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Technologies_Customers_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Technologies_Contacts_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Technologies_Technologies_BusinessDirectory_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
@@ -46,7 +46,7 @@ Public Class WorkSheet_VC
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
If View.Id = "WorkSheet_Header_ListView_Subcontractor_Manage" Then
|
||||
'Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of WorkSheet_VC).aReOpenWorksheetHeader.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of WorkSheet_VC).aReOpenWorksheetHeader.TargetObjectsCriteria = "WorkSheetState = 'eClosed'"
|
||||
@@ -61,11 +61,11 @@ Public Class WorkSheet_VC
|
||||
If View.Id = "WorkSheet_Header_ListView_Subcontractor" Or _
|
||||
View.Id = "WorkSheet_Header_ListView_Subcontractor_Closed" Or _
|
||||
View.Id = "WorkSheet_Header_ListView_Subcontractor_Ready" 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)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
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)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
|
||||
|
||||
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)))
|
||||
@@ -117,101 +117,101 @@ Public Class WorkSheet_VC
|
||||
_CS.EndUpdateCriteria()
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_ListView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of WorkSheet_VC).aPrintWorkSheet.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_WorkSheet_Rows_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
AddHandler View.SelectionChanged, AddressOf WorkSheet_Header_WorkSheet_Rows_ListView_SelectionChanged
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_StorageOutRows_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_Worksheet_CostRows_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
AddHandler View.SelectionChanged, AddressOf WorkSheet_Header_Worksheet_CostRows_ListView_SelectionChanged
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_WorkSheet_ReopenReason_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)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
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)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_Worksheet_Documets_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CreateInvoiceFromWorksheetCost_PopUp_Worksheet_CostRows_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_WorkSheet_Header_HRPerson_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of WorkSheet_VC).aAddHRPerson_WorkSheet_Header.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_AddHRPerson_PopUp_ListView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "OpenWorkSheet_SubcontractorPopUp_WorkSheet_Header_Collection_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "CRM_Opportunities_WorkSheet_Header_ListView" Then
|
||||
Frame.GetController(Of WorkSheet_VC).aPrintWorkSheet.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
'----------------DeatilViewZ----------------------------------
|
||||
|
||||
If View.Id = "OpenWorkSheet_SubcontractorPopUp_DetailView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CloseWorkSheet_SubcontractorpopUp_DetailView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_DetailView_Subcontractor" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of WorkSheet_VC).aToTableWSR.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of WorkSheet_VC).aToTableWSR_D.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of WorkSheet_VC).aCreateWorksheetCostRows.Active.SetItemValue("", True)
|
||||
@@ -224,7 +224,7 @@ Public Class WorkSheet_VC
|
||||
MyBase.OnDeactivated()
|
||||
|
||||
If View.Id = "WorkSheet_Header_ListView_Subcontractor_Manage" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
|
||||
Frame.GetController(Of WorkSheet_VC).aReOpenWorksheetHeader.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of WorkSheet_VC).aOpenSubcontractorInvoice.Active.SetItemValue("", False)
|
||||
@@ -232,98 +232,98 @@ Public Class WorkSheet_VC
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_ListView_Subcontractor" Or _
|
||||
View.Id = "WorkSheet_Header_ListView_Subcontractor_Closed" 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)
|
||||
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)
|
||||
Frame.GetController(Of WorkSheet_VC).aCloseWorkSheet_Subcontractor.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of WorkSheet_VC).aOpenWorkSheet_Subcontractor.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_ListView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "WorkSheet_Header_WorkSheet_Rows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
RemoveHandler View.SelectionChanged, AddressOf WorkSheet_Header_WorkSheet_Rows_ListView_SelectionChanged
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_StorageOutRows_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_Worksheet_CostRows_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
RemoveHandler View.SelectionChanged, AddressOf WorkSheet_Header_Worksheet_CostRows_ListView_SelectionChanged
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_WorkSheet_ReopenReason_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)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
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)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_Worksheet_Documets_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CreateInvoiceFromWorksheetCost_PopUp_Worksheet_CostRows_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_WorkSheet_Header_HRPerson_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of WorkSheet_VC).aAddHRPerson_WorkSheet_Header.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_AddHRPerson_PopUp_ListView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OpenWorkSheet_SubcontractorPopUp_WorkSheet_Header_Collection_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
'---------------------DetailViewZ----------------
|
||||
If View.Id = "OpenWorkSheet_SubcontractorPopUp_DetailView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CloseWorkSheet_SubcontractorpopUp_DetailView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_DetailView_Subcontractor" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "WorkSheet_Header_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of WorkSheet_VC).aToTableWSR.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of WorkSheet_VC).aToTableWSR_D.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of WorkSheet_VC).aCreateWorksheetCostRows.Active.SetItemValue("", False)
|
||||
|
||||
+18
-18
@@ -41,10 +41,10 @@ Public Class GLAccountsVC
|
||||
Frame.GetController(Of GLAccountsVC).aFinal_GLAccounts.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLAccountsVC).aFinalAndNew_GLAccounts.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLAccountsVC).aViewPCIDW_GLAccounts.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
@@ -66,7 +66,7 @@ Public Class GLAccountsVC
|
||||
If _GLAccounts Is Nothing Then
|
||||
Else
|
||||
If _GLAccounts.IsEditable = True And _GLAccounts.IsStorno = False Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLAccountsVC).aToTable_GLAccounts.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLAccountsVC).aToTableD_GLAccounts.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLAccountsVC).aBackToRowEdit_GLAccounts.Active.SetItemValue("", True)
|
||||
@@ -82,7 +82,7 @@ Public Class GLAccountsVC
|
||||
End If
|
||||
End If
|
||||
If View.Id = "GLAccounts_ListView_Editable" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) 'Akkor sem klónozható a gyári cloneactionnal, ha még szerkeszthető?
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False) 'Akkor sem klónozható a gyári cloneactionnal, ha még szerkeszthető?
|
||||
Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Vivaldi_GLAccounts_ListView" Or View.Id = "Corner_GLAccounts_ListView" Then
|
||||
@@ -90,16 +90,16 @@ Public Class GLAccountsVC
|
||||
|
||||
End If
|
||||
If View.Id = "GLAccounts_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLAccountsVC).aViewPCIDW_GLAccounts.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLAccountsVC).aPCICheckGLAccounts.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLAccountsVC).aCloneGLAccounts.Active.SetItemValue("", True)
|
||||
End If
|
||||
'------------------- LISTVIEW -----------------------------------------------------------------------------------------------------
|
||||
If View.Id Like "GLHeader_GLRows_ListView_Accounts" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "GLAccounts_ListView_Deleted" Then
|
||||
Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", False)
|
||||
@@ -128,12 +128,12 @@ Public Class GLAccountsVC
|
||||
Frame.GetController(Of GLAccountsVC).aFinal_GLAccounts.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLAccountsVC).aFinalAndNew_GLAccounts.Active.SetItemValue("", True)
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
|
||||
Frame.GetController(Of GLAccountsVC).aCloneGLAccounts.Active.SetItemValue("", False)
|
||||
If View.Id = "GLAccounts_DetailView" Then
|
||||
@@ -843,7 +843,7 @@ Public Class GLAccountsVC
|
||||
Dim _Controlling As Controlling
|
||||
|
||||
If _ListView IsNot Nothing Then
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
|
||||
|
||||
For Each _RegistryTelephone In _ListView.CollectionSource.List
|
||||
@@ -1016,7 +1016,7 @@ Public Class GLAccountsVC
|
||||
End If
|
||||
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
View.Refresh()
|
||||
End Sub
|
||||
|
||||
|
||||
+38
-38
@@ -42,12 +42,12 @@ Public Class AssetsPCIVC
|
||||
Frame.GetController(Of AssetsPCIVC).aViewLateCharges.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id Like "AssetsPCIHeader_AssetsPCIRows_ListView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AssetsPCIVC).aViewLateCharges.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "PCIGroup_ListView_DelayedPay" Then
|
||||
@@ -55,11 +55,11 @@ Public Class AssetsPCIVC
|
||||
Frame.GetController(Of AssetsPCIVC).aViewLateCharges.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "AssetsHandling_ListView_Active" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
|
||||
If TryCast(SecuritySystem.CurrentUser, User).UserName <> "SysAdmin" Then Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
|
||||
If TryCast(SecuritySystem.CurrentUser, User).UserName <> "SysAdmin" Then Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Active.SetItemValue("", True)
|
||||
@@ -72,11 +72,11 @@ Public Class AssetsPCIVC
|
||||
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
End If
|
||||
If View.Id = "AssetsHandling_ListView_All" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
|
||||
If TryCast(SecuritySystem.CurrentUser, User).UserName <> "SysAdmin" Then Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
|
||||
If TryCast(SecuritySystem.CurrentUser, User).UserName <> "SysAdmin" Then Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Active.SetItemValue("", True)
|
||||
@@ -92,38 +92,38 @@ Public Class AssetsPCIVC
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling3.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AssetsPCIVC).aCreateLateCharges.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id Like "AssetsPCIHeader_AssetsPCIRows_ListView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "AssetsHandling_ListView_Active" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
|
||||
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
End If
|
||||
|
||||
If View.Id = "AssetsHandling_ListView_All" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
|
||||
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
End If
|
||||
@@ -932,7 +932,7 @@ Public Class AssetsPCIVC
|
||||
Dim _InvoiceHeader As InvoiceHeader
|
||||
Dim _PCIGroup As PCIGroup
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
RaiseEvent InitWork(1, 1, TryCast(View, ListView).CollectionSource.List.Count)
|
||||
For Each _PCIGroup In TryCast(View, ListView).CollectionSource.List
|
||||
RaiseEvent DoWork()
|
||||
@@ -952,7 +952,7 @@ Public Class AssetsPCIVC
|
||||
Next
|
||||
_uow.CommitChanges()
|
||||
RaiseEvent FinalWork()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
Else
|
||||
Dim _AssetsHandling As AssetsHandling
|
||||
Dim _AssetsHandling_Collection As New XPCollection(Of AssetsHandling)(_ocur.Session, CriteriaOperator.Parse("NoAssetsHandling = False and IsActive=True"))
|
||||
@@ -1216,7 +1216,7 @@ Public Class AssetsPCIVC
|
||||
Dim _AssetsHandlingGroupChange As AssetsHandlingGroupChange = TryCast(e.PopupWindow.View.SelectedObjects(0), AssetsHandlingGroupChange)
|
||||
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
|
||||
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
For Each _AssetsHandling In View.SelectedObjects
|
||||
RaiseEvent DoWork()
|
||||
If _AssetsHandlingGroupChange.IsQueueIndex Then
|
||||
@@ -1239,7 +1239,7 @@ Public Class AssetsPCIVC
|
||||
Next
|
||||
RaiseEvent FinalWork()
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
|
||||
Private Sub aViewLateCharges_AssetsHandling_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aViewLateCharges_AssetsHandling.CustomizePopupWindowParams
|
||||
|
||||
+28
-28
@@ -35,25 +35,25 @@ Public Class GLBankVC
|
||||
Frame.GetController(Of GLBankVC).aRecalculateBallance.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id Like "GLHeader_GLRows_ListView_Bank" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
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 LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim nv As ListView = CType(View, ListView)
|
||||
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
|
||||
AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged
|
||||
End If
|
||||
If View.Id = "GLBank_DetailView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Dim _GLBank As GLBank = TryCast(View.CurrentObject, GLBank)
|
||||
If _GLBank Is Nothing Then
|
||||
Else
|
||||
|
||||
If _GLBank.IsEditable = False Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of GLBankVC).aFinal_GLBank.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLBankVC).aFinalAndNew_GLBank.Active.SetItemValue("", False)
|
||||
@@ -73,30 +73,30 @@ Public Class GLBankVC
|
||||
End If
|
||||
End If
|
||||
If _GLBank.IsStorno = True Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If View.Id = "GLBank_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLBankVC).aMakeEditable_GLBank.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLBankVC).aRecalculateBallance.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "GLBank_ListView_Editable" Then
|
||||
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf GLBank_DeleteAction_Executed
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "PCIGroup_ListView_HUF" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "GLBankPrepareName_GLBankPrepareNameGroup_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
End If
|
||||
|
||||
@@ -109,23 +109,23 @@ Public Class GLBankVC
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "GLBank_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id Like "GLHeader_GLRows_ListView_Bank" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().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)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.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)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
|
||||
Dim nv As ListView = CType(View, ListView)
|
||||
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
|
||||
RemoveHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged
|
||||
End If
|
||||
If View.Id = "PCIGroup_ListView_HUF" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
+10
-10
@@ -52,9 +52,9 @@ Public Class GLBaseVC
|
||||
End If
|
||||
If View.Id Like "GLRows_ListView_*" Then
|
||||
Frame.GetController(Of GLBaseVC).aGLBaseOpenDocument.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "GLRows_ListView_Error_NoDetails" Then
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
@@ -70,9 +70,9 @@ Public Class GLBaseVC
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id Like "GLRows_ListView_*" Then
|
||||
Frame.GetController(Of GLBaseVC).aGLBaseOpenDocument.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aGLBaseDivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLBaseDivideRows.CustomizePopupWindowParams
|
||||
@@ -251,7 +251,7 @@ Public Class GLBaseVC
|
||||
'Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
|
||||
|
||||
'Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
|
||||
'Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow, CriteriaOperator.Parse("isnull(InvoiceHeader)=False and isnull(DateExecution)=True"))
|
||||
'Dim _InvoiceRows As InvoiceRows
|
||||
@@ -288,7 +288,7 @@ Public Class GLBaseVC
|
||||
|
||||
|
||||
|
||||
'Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
|
||||
Private Sub aDeleteGLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDeleteGLRows.Execute
|
||||
@@ -428,7 +428,7 @@ Public Class GLBaseVC
|
||||
Dim _GLRows As GLRows
|
||||
Dim _ChartOfAccounts As ChartOfAccounts
|
||||
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
For Each _GLRows In View.SelectedObjects
|
||||
RaiseEvent DoWork()
|
||||
_GLRows = _onew.GetObject(_GLRows)
|
||||
@@ -450,7 +450,7 @@ Public Class GLBaseVC
|
||||
Next
|
||||
_onew.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
|
||||
Private Function GetFilterforNoDetails() As String
|
||||
|
||||
+18
-18
@@ -31,16 +31,16 @@ Public Class GLRowsDivideVC
|
||||
Frame.GetController(Of GLRowsDivideVC).aToTable_GLRowsDivide.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLRowsDivideVC).aToTableD_GLRowsDivide.Active.SetItemValue("", False)
|
||||
If View.Id Like "GLRowsDivideH_GLRows_ListView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id Like "GLRowsDivideH_GLRowsDivideR_ListView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id Like "GLRowsDivideH_DetailView*" Then
|
||||
Frame.GetController(Of GLRowsDivideVC).aFindPCI.Active.SetItemValue("", True)
|
||||
@@ -49,10 +49,10 @@ Public Class GLRowsDivideVC
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf GLRowsDivideH_DetailView_AcceptAction_Executing
|
||||
End If
|
||||
If View.Id = "GLRowsDivideH_GLRows_ListView_ConnectionDivide" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "GLRowsDivideH_GLRowsDivideR_ListView_ConnectionDivide" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Sub GLRowsDivideH_DetailView_AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
|
||||
@@ -61,16 +61,16 @@ Public Class GLRowsDivideVC
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id Like "GLRowsDivideH_GLRows_ListView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id Like "GLRowsDivideH_GLRowsDivideR_ListView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id Like "GLRowsDivideH_DetailView*" Then
|
||||
Frame.GetController(Of GLRowsDivideVC).aFindPCI.Active.SetItemValue("", False)
|
||||
|
||||
+41
-41
@@ -63,7 +63,7 @@ Public Class BookEntryVC
|
||||
Frame.GetController(Of BookEntryVC).aGLAccountsforBookEntryCheck.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "GLAccountRowsforBookEntry_ListView" Then
|
||||
Frame.GetController(Of BookEntryVC).aBookEntryCheckGotoNextStep.Active.SetItemValue("", True)
|
||||
@@ -73,7 +73,7 @@ Public Class BookEntryVC
|
||||
Frame.GetController(Of BookEntryVC).aVATMerge.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
GenerateInvoiceWorkflowStep(_uow)
|
||||
@@ -88,27 +88,27 @@ Public Class BookEntryVC
|
||||
End If
|
||||
|
||||
If View.Id = "InvoiceHeader_ListView_GLAccounts" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "RegistryHeader_ListView_GLAccounts" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "GLRows_ListView_Account" Or View.Id = "GLRows_ListView_All" Or View.Id = "GLRows_ListView_Bank" Or _
|
||||
View.Id = "GLRows_ListView_Cassa" Or View.Id = "GLRows_ListView_Compensation" Then
|
||||
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", True)
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id Like "GLRows_ListView_Error*" Then
|
||||
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", True)
|
||||
@@ -124,10 +124,10 @@ Public Class BookEntryVC
|
||||
End If
|
||||
|
||||
If View.Id Like "GLAccountRowsforBookEntry*" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OrderInHeader_PCIDetail_ListView" Then
|
||||
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsDivide.Active.SetItemValue("", True)
|
||||
@@ -137,7 +137,7 @@ Public Class BookEntryVC
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsDivide.Active.SetItemValue("", True)
|
||||
|
||||
@@ -152,40 +152,40 @@ Public Class BookEntryVC
|
||||
Frame.GetController(Of BookEntryVC).aGLAccountsforBookEntryCheck.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "GLAccountRowsforBookEntry_ListView" Then
|
||||
Frame.GetController(Of BookEntryVC).aBookEntryCheckGotoNextStep.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of BookEntryVC).aGLAccountsforBookEntryCheck.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
|
||||
End If
|
||||
|
||||
If View.Id = "InvoiceHeader_ListView_GLAccounts" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "RegistryHeader_ListView_GLAccounts" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "GLRows_ListView_Account" Or View.Id = "GLRows_ListView_Bank" Or _
|
||||
View.Id = "GLRows_ListView_Cassa" Or View.Id = "GLRows_ListView_Compensation" Then
|
||||
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "GLRows_ListView_Bank" Or _
|
||||
View.Id = "GLRows_ListView_Cassa" Or View.Id = "GLRows_ListView_Compensation" Then
|
||||
@@ -193,10 +193,10 @@ Public Class BookEntryVC
|
||||
End If
|
||||
|
||||
If View.Id Like "GLAccountRowsforBookEntry*" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
|
||||
@@ -306,7 +306,7 @@ Public Class BookEntryVC
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck)
|
||||
End Sub
|
||||
Private Sub aGLRowsCheck_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLRowsCheck.Execute
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace 'TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck)
|
||||
@@ -458,7 +458,7 @@ Public Class BookEntryVC
|
||||
_onew.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
|
||||
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
@@ -1098,7 +1098,7 @@ Public Class BookEntryVC
|
||||
|
||||
If _InvoiceChoiceNextStep IsNot Nothing Then
|
||||
If _InvoiceHeaderCollection.Count > 0 Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
RaiseEvent InitWork(1, 1, _InvoiceHeaderCollection.Count)
|
||||
For Each _InvoiceHeader In _InvoiceHeaderCollection
|
||||
For Each _InvoiceRows In _InvoiceHeader.InvoiceRows
|
||||
@@ -1107,7 +1107,7 @@ Public Class BookEntryVC
|
||||
Next
|
||||
Next
|
||||
RaiseEvent FinalWork
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
+31
-31
@@ -38,24 +38,24 @@ Public Class GLCassaVC
|
||||
Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False)
|
||||
If View.Id = "GLCassa_ListView" Then '-- Lista nézete -----------------------------------------------------------------------------------
|
||||
Frame.GetController(Of GLCassaVC).aPrintCassaDocument.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If '---------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
If View.Id = "GLCassa_ListView_Editable" Then '-- Lista nézete -----------------------------------------------------------------------------------
|
||||
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf GLCassa_DeleteAction_Executed
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "DocumentNumber=''"
|
||||
End If
|
||||
|
||||
If View.Id Like "GLHeader_GLRows_ListView_Cassa" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
'Dim nv As ListView = CType(View, ListView)
|
||||
'Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
|
||||
@@ -64,31 +64,31 @@ Public Class GLCassaVC
|
||||
End If
|
||||
|
||||
If View.Id = "GLCassa_DetailView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Dim _GLCassa As GLCassa = TryCast(View.CurrentObject, GLCassa)
|
||||
If _GLCassa Is Nothing Then
|
||||
Else
|
||||
If _GLCassa.IsEditable = False Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCassaVC).aFinal_GLCassa.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCassaVC).aFinalAndNew_GLCassa.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCassaVC).aBackToRowEdit_GLCassa.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCassaVC).aToTable_GLCassa.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCassaVC).aToTableD_GLCassa.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Else
|
||||
Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False)
|
||||
If _GLCassa.DocumentNumber IsNot Nothing Then
|
||||
If _GLCassa.DocumentNumber <> "" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If _GLCassa.IsStorno = True Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
@@ -99,23 +99,23 @@ Public Class GLCassaVC
|
||||
If View.Id = "GLCassa_ListView" Then '-- Lista nézete -----------------------------------------------------------------------------------
|
||||
Frame.GetController(Of GLCassaVC).aPrintCassaDocument.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCassaVC).aRecalculateSelectedGLCassa.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If '---------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
If View.Id = "GLCassa_ListView_Editable" Then '-- Lista nézete -----------------------------------------------------------------------------------
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
|
||||
End If
|
||||
|
||||
If View.Id Like "GLHeader_GLRows_ListView_Cassa" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
|
||||
'Dim nv As ListView = CType(View, ListView)
|
||||
'Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
|
||||
@@ -124,32 +124,32 @@ Public Class GLCassaVC
|
||||
End If
|
||||
|
||||
If View.Id = "GLCassa_DetailView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Dim _GLCassa As GLCassa = TryCast(View.CurrentObject, GLCassa)
|
||||
If _GLCassa Is Nothing Then
|
||||
Else
|
||||
If _GLCassa.IsEditable = False Then
|
||||
Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLCassaVC).aFinal_GLCassa.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLCassaVC).aFinalAndNew_GLCassa.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLCassaVC).aBackToRowEdit_GLCassa.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLCassaVC).aToTable_GLCassa.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLCassaVC).aToTableD_GLCassa.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Else
|
||||
Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", True)
|
||||
If _GLCassa.DocumentNumber IsNot Nothing Then
|
||||
If _GLCassa.DocumentNumber <> "" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If _GLCassa.IsStorno = True Then
|
||||
Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", True)
|
||||
End If
|
||||
End If
|
||||
|
||||
+13
-13
@@ -29,12 +29,12 @@ Public Class GLCompensationVC
|
||||
Frame.GetController(Of GLCompensationVC).aMakeEditable_GLCompensation.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id = "GLCompensation_DetailView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Dim _GLCompensation As GLCompensation = TryCast(View.CurrentObject, GLCompensation)
|
||||
If _GLCompensation Is Nothing Then
|
||||
Else
|
||||
If _GLCompensation.IsEditable = False Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCompensationVC).aFinal_GLCompensation.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", False)
|
||||
@@ -43,8 +43,8 @@ Public Class GLCompensationVC
|
||||
Frame.GetController(Of GLCompensationVC).aBackToRowEdit_GLCompensation.Active.SetItemValue("", False)
|
||||
End If
|
||||
If _GLCompensation.IsStorno = True Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCompensationVC).aMakeEditable_GLCompensation.Active.SetItemValue("", False)
|
||||
End If
|
||||
If _GLCompensation.IsEditable = True And _GLCompensation.IsStorno = False Then
|
||||
@@ -55,19 +55,19 @@ Public Class GLCompensationVC
|
||||
|
||||
If View.Id = "GLCompensation_ListView" Then
|
||||
Frame.GetController(Of GLCompensationVC).aMakeEditable_GLCompensation.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "GLCompensation_ListView_Editable" Then
|
||||
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf GLCompensation_DeleteAction_Executed
|
||||
End If
|
||||
|
||||
If View.Id Like "GLHeader_GLRows_ListView_Compensation" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Dim nv As ListView = CType(View, ListView)
|
||||
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
|
||||
AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged
|
||||
@@ -82,8 +82,8 @@ Public Class GLCompensationVC
|
||||
Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLCompensationVC).aToTable_GLCompensation.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLCompensationVC).aToTableD_GLCompensation.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
+9
-9
@@ -40,8 +40,8 @@ Public Class GeneralLedgerVC
|
||||
If View.Id Like "GLAccountsHeader_GLAccountsRows_ListView" Then
|
||||
|
||||
Frame.GetController(Of GeneralLedgerVC).aToTable.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
Dim nv As ListView = CType(View, ListView)
|
||||
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
|
||||
@@ -53,8 +53,8 @@ Public Class GeneralLedgerVC
|
||||
If View.Id Like "GLHeader_GLRows_ListView" Then
|
||||
|
||||
Frame.GetController(Of GeneralLedgerVC).aGLToTable.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
Dim GLnv As ListView = CType(View, ListView)
|
||||
Dim GLcs As PropertyCollectionSource = CType(GLnv.CollectionSource, PropertyCollectionSource)
|
||||
@@ -64,7 +64,7 @@ Public Class GeneralLedgerVC
|
||||
|
||||
'Folyószámla - egyedi akciók megjelenítése DetailView-ban, majd Editable vizsgálata alapján letiltja a szerkesztő controllereket
|
||||
If View.Id = "GLAccountsHeader_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GeneralLedgerVC).aFinalizeAll.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GeneralLedgerVC).aStorno.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GeneralLedgerVC).aFinalizeAllAndNew.Active.SetItemValue("", True)
|
||||
@@ -72,7 +72,7 @@ Public Class GeneralLedgerVC
|
||||
|
||||
'Főkönyv - egyedi akciók megjelenítése DetailView-ban, majd Editable vizsgálata alapján letiltja a szerkesztő controllereket
|
||||
If View.Id = "GLHeader_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GeneralLedgerVC).aGLFinal.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GeneralLedgerVC).aGLStorno.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GeneralLedgerVC).aGLFinalAndNew.Active.SetItemValue("", True)
|
||||
@@ -80,8 +80,8 @@ Public Class GeneralLedgerVC
|
||||
If _GLHeader Is Nothing Then
|
||||
Else
|
||||
If _GLHeader.IsEditable = False Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GeneralLedgerVC).aGLFinal.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GeneralLedgerVC).aGLFinalAndNew.Active.SetItemValue("", False)
|
||||
|
||||
@@ -94,7 +94,7 @@ Public Class GeneralLedgerVC
|
||||
End If
|
||||
End If
|
||||
If SecuritySystemHelper.IsUserInRoleCurrentUser("GLMaintener") Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GeneralLedgerVC).MakeEditable.Active.SetItemValue("", True)
|
||||
End If
|
||||
End If
|
||||
|
||||
+19
-19
@@ -33,18 +33,18 @@ Public Class LiquidAssetsBallanceVC
|
||||
Frame.GetController(Of LiquidAssetsBallanceVC).aGenerateCurrencyRateFIFO.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id = "LiquidAssetsBallanceHeader_LiquidAssetsBallanceRows_ListView_Cassa" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "LiquidAssetsBallanceHeader_DetailView_Cassa" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Dim _LiquidAssetsBallanceHeader As LiquidAssetsBallanceHeader
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
_LiquidAssetsBallanceHeader = TryCast(View.SelectedObjects(0), LiquidAssetsBallanceHeader)
|
||||
@@ -55,24 +55,24 @@ Public Class LiquidAssetsBallanceVC
|
||||
End If
|
||||
End If
|
||||
If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnRows_ListView_Cassa" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "GLRows_ListView_Regenerate" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
Private Sub aGetBallance_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGetBallanceCassa.Execute
|
||||
|
||||
+39
-39
@@ -39,19 +39,19 @@ Public Class LiquidAssetsReturnVC
|
||||
|
||||
If View.Id = "LiquidAssetsReturnHeader_ListView_Cassa" Then
|
||||
Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "LiquidAssetsReturnHeader_DetailView_Cassa" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", True)
|
||||
|
||||
Dim _LiquidAssetsReturnHeader As LiquidAssetsReturnHeader = TryCast(View.SelectedObjects(0), LiquidAssetsReturnHeader)
|
||||
If _LiquidAssetsReturnHeader IsNot Nothing Then
|
||||
If _LiquidAssetsReturnHeader.GLClosingTime IsNot Nothing Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Else
|
||||
Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClose.Active.SetItemValue("", True)
|
||||
End If
|
||||
@@ -61,70 +61,70 @@ Public Class LiquidAssetsReturnVC
|
||||
End If
|
||||
|
||||
If View.Id = "LiquidAssetsReturnHeader_ListView_Cassa_Closed" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaCloseBack.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClosePreviewPDF.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnDenomination_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id = "LiquidAssetsReturnHeader_ListView_Cassa" Then
|
||||
Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
|
||||
End If
|
||||
|
||||
If View.Id = "LiquidAssetsReturnHeader_DetailView_Cassa" Then
|
||||
Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClose.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
RemoveHandler Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Executing, AddressOf LiquidAssetsReturnHeader_ListView_Cassa_PrintLiquidAssetsReturn_Cassa_Executing
|
||||
RemoveHandler Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClose.Executing, AddressOf LiquidAssetsReturnHeader_ListView_Cassa_GLCassaClose_Executing
|
||||
End If
|
||||
If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnDenomination_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aGetReturn_Cassa_LiquidAssetsReturn_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGetReturn_Cassa.Execute
|
||||
|
||||
+23
-23
@@ -32,37 +32,37 @@ Public Class GLMixedVC
|
||||
Frame.GetController(Of GLMixedVC).aCloneGLMixed.Active.SetItemValue("", False)
|
||||
If View.Id = "GLMixed_DetailView" Then
|
||||
Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
If _GLMixed.IsEditable = False Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
If SecuritySystem.CurrentUserName = "SysAdmin" Then
|
||||
Else
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
If _GLMixed.IsStorno = True Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
If SecuritySystem.CurrentUserName = "SysAdmin" Then
|
||||
Else
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
|
||||
If _GLMixed.GLDocumentType = eGLDocumentType.eGLRateDiff Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
|
||||
If SecuritySystem.CurrentUserName = "SysAdmin" Then
|
||||
Else
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
|
||||
If View.Id = "GLMixed_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLMixedVC).aCloneGLMixed.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "GLMixed_ListView_Editable" Then
|
||||
@@ -70,12 +70,12 @@ Public Class GLMixedVC
|
||||
End If
|
||||
|
||||
If View.Id Like "GLHeader_GLRows_ListView_Mixed" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLMixedVC).aViewPCIDW_RateDiff.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim nv As ListView = CType(View, ListView)
|
||||
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
|
||||
@@ -83,7 +83,7 @@ Public Class GLMixedVC
|
||||
|
||||
End If
|
||||
If View.Id = "GLRows_ListView_RateDiff" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLMixedVC).aViewPCIDW_RateDiff.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLMixedVC).aViewAttachments_RateDiff_GLRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLMixedVC).aViewRegistry_RateDiff_GLRows.Active.SetItemValue("", True)
|
||||
@@ -91,10 +91,10 @@ Public Class GLMixedVC
|
||||
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf Delete_Executed
|
||||
End If
|
||||
If View.Id = "GLMixed_DetailView_Dividend" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLMixedVC).aStorno_GLMixed.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
|
||||
@@ -105,12 +105,12 @@ Public Class GLMixedVC
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
If View.Id = "GLRows_ListView_RateDiff" Then
|
||||
RemoveHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Delete_Executing
|
||||
RemoveHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf Delete_Executed
|
||||
End If
|
||||
'Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
Private Sub cs_MasterObjectChanged(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim _GLMixed As GLMixed = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, GLMixed)
|
||||
|
||||
+2
-2
@@ -632,7 +632,7 @@ Public Class GLOpenCloseVC
|
||||
Private Sub aRepairBadGLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRepairBadGLRows.Execute
|
||||
Try
|
||||
GLOBAL_HAS_Audit = False
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
Dim _GLOpenCloseHeader As GLOpenCloseHeader = TryCast(View.SelectedObjects(0), GLOpenCloseHeader)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
|
||||
@@ -668,7 +668,7 @@ Public Class GLOpenCloseVC
|
||||
Finally
|
||||
GLOBAL_HAS_Audit = True
|
||||
RaiseEvent FinalWork
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
+8
-8
@@ -44,10 +44,10 @@ Public Class RateDiffVC
|
||||
Frame.GetController(Of RateDiffVC).aViewRegistry_RateDiff.Active.SetItemValue("", True)
|
||||
|
||||
|
||||
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 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)
|
||||
End If
|
||||
|
||||
|
||||
@@ -59,10 +59,10 @@ Public Class RateDiffVC
|
||||
If View.Id = "RateDiffView_ListView" Then
|
||||
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
Frame.GetController(Of RateDiffVC).aCreateRateDiffView.Active.SetItemValue("", False)
|
||||
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 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)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
+10
-10
@@ -31,7 +31,7 @@ Public Class BallanceVC
|
||||
Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
|
||||
If View.Id = "BallanceHeader_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "' or 'SysAdmin'='" & SecuritySystem.CurrentUserName & "'"
|
||||
End If
|
||||
If View.Id = "BallanceHeader_DetailView" Then
|
||||
@@ -40,10 +40,10 @@ Public Class BallanceVC
|
||||
End If
|
||||
|
||||
If View.Id = "TrialBalanceHeader_DetailView_BallanceHeader_Current" Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _BallanceHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), BallanceHeader)
|
||||
If _BallanceHeader IsNot Nothing Then
|
||||
@@ -51,10 +51,10 @@ Public Class BallanceVC
|
||||
End If
|
||||
End If
|
||||
If View.Id = "TrialBalanceHeader_DetailView_BallanceHeader_Previous" Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _BallanceHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), BallanceHeader)
|
||||
If _BallanceHeader IsNot Nothing Then
|
||||
@@ -66,7 +66,7 @@ Public Class BallanceVC
|
||||
MyBase.OnDeactivated()
|
||||
|
||||
If View.Id = "BallanceHeader_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
+10
-10
@@ -49,12 +49,12 @@ Public Class GLCardVC
|
||||
MyBase.OnActivated()
|
||||
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
If View.Id Like "GLCardsHeader_GLCardsRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "GLCardsHeader_DetailView" Then
|
||||
@@ -65,8 +65,8 @@ Public Class GLCardVC
|
||||
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 CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCardVC).aGLCardsQuery.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
@@ -95,8 +95,8 @@ Public Class GLCardVC
|
||||
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 CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLCardVC).aGLCardsQuery.Active.SetItemValue("", True)
|
||||
End If
|
||||
End If
|
||||
|
||||
+16
-16
@@ -34,11 +34,11 @@ Public Class GLRowsVC
|
||||
Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", False)
|
||||
MyBase.OnActivated()
|
||||
If View.Id Like "GLReport_GLReportRows_ListView*" Then
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ExportController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ExportController)?.Active.SetItemValue("", True)
|
||||
|
||||
Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", True)
|
||||
|
||||
@@ -46,7 +46,7 @@ Public Class GLRowsVC
|
||||
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
|
||||
If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport) IsNot Nothing Then
|
||||
If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport).InPublic Then
|
||||
Frame.GetController(Of ViewVariantsModule.ChangeVariantController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ViewVariantsModule.ChangeVariantController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -58,7 +58,7 @@ Public Class GLRowsVC
|
||||
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
|
||||
If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport) IsNot Nothing Then
|
||||
If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport).InPublic Then
|
||||
Frame.GetController(Of ViewVariantsModule.ChangeVariantController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ViewVariantsModule.ChangeVariantController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -74,8 +74,8 @@ Public Class GLRowsVC
|
||||
'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 CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
@@ -87,8 +87,8 @@ Public Class GLRowsVC
|
||||
End If
|
||||
|
||||
If View.Id = "GLReport_ListView_Public" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "GLReport_ListView_Private" Then
|
||||
If SecuritySystem.CurrentUserName = "SysAdmin" Then
|
||||
@@ -99,14 +99,14 @@ Public Class GLRowsVC
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
If View.Id Like "GLReport_DetailView*" Then
|
||||
|
||||
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 CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
@@ -1197,7 +1197,7 @@ Public Class GLRowsVC
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck)
|
||||
End Sub
|
||||
Private Sub aGLDTRChangeParam_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLDTRChangeParam.Execute
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck)
|
||||
Dim _GLRows As GLRows
|
||||
@@ -1329,7 +1329,7 @@ Public Class GLRowsVC
|
||||
Dim parentView As View = nestedFrame.View
|
||||
parentView.ObjectSpace.Refresh()
|
||||
End If
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
|
||||
Private Sub aSelectCustomersFrom_DTR_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectCustomersFrom_DTR.CustomizePopupWindowParams
|
||||
|
||||
+7
-7
@@ -43,10 +43,10 @@ Public Class ABRQueryVC
|
||||
Frame.GetController(Of ABRQueryVC).aPrintABRReport.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ABRQueryHeader_ABRQueryCustomersFrom_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ABRQueryVC).aSelectCustomersFromABR.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ABRQueryHeader_ABRQueryRowsDetail_ListView_HUF" Then
|
||||
@@ -62,9 +62,9 @@ Public Class ABRQueryVC
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "ABRQueryHeader_ABRQueryCustomersFrom_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aGenerateABRQuery_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateABRQuery.Execute
|
||||
|
||||
+12
-12
@@ -33,27 +33,27 @@ Public Class PartnerAccountConnectionInfoQueryVC
|
||||
Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomers.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomersFrom.Active.SetItemValue("", False)
|
||||
If View.Id = "PartnerAccountConnectionInfoQueryHeader_PartnerAccountConnectionInfoQuerySelectedCustomers_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomers.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "PartnerAccountConnectionInfoQueryHeader_PartnerAccountConnectionInfoQuerySelectedCustomersFrom_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomersFrom.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Customers_ListView_Select" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
If View.Id = "CustomersFrom_ListView_Select" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aGenerateReport_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateReport.Execute
|
||||
|
||||
+13
-13
@@ -61,11 +61,11 @@ Public Class PCIVC
|
||||
Frame.GetController(Of PCIVC).aRepairPCIGroup.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "PCIGroup_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
|
||||
|
||||
@@ -79,11 +79,11 @@ Public Class PCIVC
|
||||
End If
|
||||
|
||||
If View.Id = "PCIDetail_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
|
||||
Frame.GetController(Of PCIVC).aCreateConnectionDirectDifferentCurrency.Active.SetItemValue("", True)
|
||||
@@ -114,7 +114,7 @@ Public Class PCIVC
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
End Sub
|
||||
Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
@@ -1340,7 +1340,7 @@ Public Class PCIVC
|
||||
|
||||
|
||||
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
|
||||
For Each _PCIGroup In View.SelectedObjects
|
||||
RaiseEvent DoWork()
|
||||
@@ -1358,7 +1358,7 @@ Public Class PCIVC
|
||||
RaiseEvent FinalWork
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
|
||||
Private Sub aViewPCIDGroup_GLDetails_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDGroup_GLDetails.Execute
|
||||
|
||||
+12
-12
@@ -23,23 +23,23 @@ Public Class PartnerConnectionInfoCleanUpVC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "PartnerConnectionInfoCleanUp_PopupWindow_PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "PartnerConnectionInfoCleanUp_PopupWindow_PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
+25
-25
@@ -51,7 +51,7 @@ Public Class TrialBalanceVC
|
||||
If View.Id = "TrialBalanceHeader_TrialBalanceOpenClose_ListView" Or _
|
||||
View.Id = "TrialBalanceHeader_TrialBalance_ListView" Then
|
||||
Frame.GetController(Of TrialBalanceVC).aTrialBalanceViewCard.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "TrialBalanceHeader_DetailView" Then
|
||||
@@ -62,8 +62,8 @@ Public Class TrialBalanceVC
|
||||
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 CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of TrialBalanceVC).aTrialBalanceQuery.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of TrialBalanceVC).aTrialBalanceOpenCloseQuery.Active.SetItemValue("", False)
|
||||
End If
|
||||
@@ -75,10 +75,10 @@ Public Class TrialBalanceVC
|
||||
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteriaMode = TargetObjectsCriteriaMode.TrueForAll
|
||||
End If
|
||||
If View.Id = "TrialBalanceHeader_DetailView_BeforeClose" Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
|
||||
If _GLOpenCloseHeader IsNot Nothing Then
|
||||
@@ -86,37 +86,37 @@ Public Class TrialBalanceVC
|
||||
End If
|
||||
End If
|
||||
If View.Id = "TrialBalanceHeader_DetailView_AfterClose_SheetProfit" Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
|
||||
View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_SheetProfit)
|
||||
End If
|
||||
If View.Id = "TrialBalanceHeader_DetailView_AfterClose_Ballance" Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
|
||||
View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_Ballance)
|
||||
End If
|
||||
If View.Id = "TrialBalanceHeader_DetailView_AfterOpen" Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
|
||||
View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterOpen)
|
||||
End If
|
||||
If View.Id = "TrialBalanceHeader_DetailView_AfterDividend" Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
|
||||
View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterDividend)
|
||||
@@ -136,8 +136,8 @@ Public Class TrialBalanceVC
|
||||
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 CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of TrialBalanceVC).aTrialBalanceQuery.Active.SetItemValue("", True)
|
||||
End If
|
||||
End If
|
||||
|
||||
+21
-21
@@ -39,11 +39,11 @@ Public Class VATReportVC
|
||||
If View.Id Like "VATReport_VATReportDetail_ListView" Or _
|
||||
View.Id = "VATReport_VATReportGroup_ListView" Or _
|
||||
View.Id = "VATReport_VATReportNoPayDetail_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 CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "VATReport_DetailView" Then
|
||||
@@ -60,8 +60,8 @@ Public Class VATReportVC
|
||||
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 CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of VATReportVC).aGenerateVATReport.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
@@ -73,18 +73,18 @@ Public Class VATReportVC
|
||||
End If
|
||||
|
||||
If View.Id = "VATReport_ListView_Closed" 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 NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of VATReportVC).aVATClosePreviewPDF.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "VATReport_VATReportGroupCustomers2M_ListView" 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 NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of VATReportVC).aVATClosePreviewPDF.Active.SetItemValue("", False)
|
||||
End If
|
||||
@@ -101,17 +101,17 @@ Public Class VATReportVC
|
||||
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 CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of VATReportVC).aGenerateVATReport.Active.SetItemValue("", True)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If View.Id = "VATReport_VATReportGroupCustomers2M_ListView" 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 NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
+2
-2
@@ -29,7 +29,7 @@ Public Class RegistryBankTransferVC
|
||||
Frame.GetController(Of RegistryBankTransferVC).aBlockBankTransfer.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id Like "*RegistryBankTransfer*" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
@@ -39,7 +39,7 @@ Public Class RegistryBankTransferVC
|
||||
Frame.GetController(Of RegistryBankTransferVC).aBlockBankTransfer.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id Like "*RegistryBankTransfer*" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
+1
-1
@@ -154,7 +154,7 @@ Public Class RegistryFinancialVC
|
||||
Private Sub aToTable_RRFC_With_TContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRFC_With_TContract.Execute
|
||||
'// Technikai szerzõdés sor + Táblázatba beadás !!!
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
|
||||
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
|
||||
|
||||
+10
-10
@@ -23,11 +23,11 @@ Public Class RegistryRowsFinancialVC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "RegistryRowsFinancial_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
|
||||
' Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
|
||||
@@ -47,11 +47,11 @@ Public Class RegistryRowsFinancialVC
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "RegistryRowsFinancial_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
|
||||
'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
|
||||
' Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
|
||||
@@ -100,22 +100,22 @@ Public Class RegistryRowsFinancialVC
|
||||
If _RegistryHeader Is Nothing Then Exit Sub
|
||||
If _RegistryHeader.CurrentWorkflowSystemSteps Is Nothing Then Exit Sub
|
||||
'// Mikor NE látszódjon a NEW action
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT Or _
|
||||
_RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
|
||||
If _RegistryHeader.IsEditable = True Then
|
||||
If _RegistryHeader.BruttoAmountRemaining <> 0.0 Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
'// Mikor NE látszódjon a törlés gomb
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT Or _
|
||||
_RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
|
||||
If _RegistryHeader.IsEditable = True Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
+12
-12
@@ -27,12 +27,12 @@ Public Class RegistryRowsFinancialControllingVC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id Like "RegistryRowsFinancialControlling_ListView_Reinvoice*" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
|
||||
' Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
|
||||
@@ -54,12 +54,12 @@ Public Class RegistryRowsFinancialControllingVC
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id Like "RegistryRowsFinancialControlling_ListView_Reinvoice*" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
|
||||
' Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
|
||||
' If _RegistryHeader IsNot Nothing Then
|
||||
@@ -119,22 +119,22 @@ Public Class RegistryRowsFinancialControllingVC
|
||||
If _RegistryHeader Is Nothing Then Exit Sub
|
||||
If _RegistryHeader.CurrentWorkflowSystemSteps Is Nothing Then Exit Sub
|
||||
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
|
||||
If _RegistryHeader.IsEditable = True Then
|
||||
If _RegistryHeader.BruttoAmountRemaining = 0 And _RegistryHeader.F_AmountBruttoHUF <> 0 Then
|
||||
If _RegistryHeader.NettoAmountRemaining <> 0 Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
'// Mikor NE látszódjon a törlés gomb
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
|
||||
If _RegistryHeader.IsEditable = True Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
+12
-12
@@ -38,12 +38,12 @@ Public Class RegistryTaskVC
|
||||
Frame.GetController(Of RegistryTaskVC).aRegistryEmailToResponsible.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "RegistryTasks_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
|
||||
If _RegistryTasks IsNot Nothing Then
|
||||
If _RegistryTasks.Status = General.TaskStatus.Completed Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -54,19 +54,19 @@ Public Class RegistryTaskVC
|
||||
End If
|
||||
If View.Id = "DeliveryNoteInRows_ListView_Certificate_HUF" Or
|
||||
View.Id = "DeliveryNoteInRows_ListView_Certificate_DEV" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "RegistryTasks_DetailView" Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "DeliveryNoteInRows_ListView_Certificate_HUF" Or
|
||||
View.Id = "DeliveryNoteInRows_ListView_Certificate_DEV" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aRegistryTaskStateReset_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRegistryTaskStateReset.Execute
|
||||
@@ -121,7 +121,7 @@ Public Class RegistryTaskVC
|
||||
Private Sub aToTable_RRFC_With_TContract_RegistryTask_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRFC_With_TContract_RegistryTask.Execute
|
||||
'// Technikai szerzõdés sor + Táblázatba beadás !!!
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
|
||||
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
|
||||
@@ -381,7 +381,7 @@ Public Class RegistryTaskVC
|
||||
' Select Case _RegistryRowsFinancialControllingTemplatePopup.RRFCT_Type
|
||||
' Case eRRFCT_Type.eTechnical
|
||||
|
||||
' 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
|
||||
' 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
|
||||
|
||||
' Dim _TechnicalContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _
|
||||
' _RegistryRowsFinancialControllingTemplatePopup.CustomersFrom))
|
||||
@@ -547,7 +547,7 @@ Public Class RegistryTaskVC
|
||||
|
||||
If _RegistryTasks.row_RRFC_Controlling Is Nothing Then Throw New Exception("*Nincs beállítva kontrolszám!")
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _TechnicalContractTemplate As ContractTemplate = _onew.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _onew.GetObject(_RegistryTasks.RegistryHeader.CustomersFrom)))
|
||||
Dim _TechnicalLimitAmount As Double = _RegistryTasks.row_RRFC_Controlling.TechnicalContractLimit
|
||||
@@ -631,7 +631,7 @@ Public Class RegistryTaskVC
|
||||
Next
|
||||
_onew.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
|
||||
'// ObjectSpace frissítése ...
|
||||
If Frame.GetController(Of RefreshController)() IsNot Nothing Then
|
||||
|
||||
@@ -65,7 +65,7 @@ Public Class RegistryVC
|
||||
|
||||
'------------------------ LISTVIEW -------------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "RegistryHeader_RegistryBankTransfer_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RegistryVC).aBankDivideRegistry.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RegistryVC).aBankMergeRegistry.Active.SetItemValue("", True)
|
||||
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf RegistryBankTransfer_DeleteAction_Executing
|
||||
@@ -76,28 +76,28 @@ Public Class RegistryVC
|
||||
Frame.GetController(Of RegistryVC).aBankMergeRegistry.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).NewObjectAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "RegistryHeader_ListView" Then
|
||||
If SecuritySystemHelper.IsUserInRole(TryCast(SecuritySystem.CurrentUser, IUserWithRoles), "Administrators") = False Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
If View.Id = "RegistryHeader_WorkFlowCollection_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "RegistryTasks_RegistryRowsFinancial_ListView" Then
|
||||
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
Dim _RegistryTasks As RegistryTasks = TryCast(_PropertyCollectionSource.MasterObject, RegistryTasks)
|
||||
@@ -105,17 +105,17 @@ Public Class RegistryVC
|
||||
GLOBAL_RegistryTask_Current_Oid = _RegistryTasks.Oid
|
||||
|
||||
If _RegistryTasks.CurrentWorkflowSystemSteps.StepFinancialType <> eStepFinancialType.eCheckVAT Or _RegistryTasks.RegistryHeader.BruttoAmountRemaining = 0 Then
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Else
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
@@ -125,20 +125,20 @@ Public Class RegistryVC
|
||||
|
||||
End If
|
||||
If View.Id = "RegistryHeader_RegistryTasks_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then ' Iktatási rendszerben a teljesítésre bontás fül
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "RegistryHeader_RegistryFileData_ListView" Then ' Iktatási rendszerben a FileData fül
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "RegistryRowsFinancialControlling_RegistryBankTransfer_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Dim nv As ListView = View
|
||||
Dim cs As PropertyCollectionSource = TryCast(nv.CollectionSource, PropertyCollectionSource)
|
||||
AddHandler cs.MasterObjectChanged, AddressOf MasterObject2_Changed
|
||||
@@ -148,9 +148,9 @@ Public Class RegistryVC
|
||||
View.Id = "RegistryTasks_ListView_Not_Completed_Full" Or _
|
||||
View.Id = "RegistryTasks_ListView_Not_Completed" Then
|
||||
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
If View.Id = "RegistryTasks_ListView_Not_Completed" Or View.Id = "RegistryTasks_ListView_Not_Completed_Full" Then
|
||||
@@ -161,15 +161,15 @@ Public Class RegistryVC
|
||||
Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "RegistryRowsFinancialControllingTemplatePopup_RegistryHeader_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of RegistryRowsFinancialControllingVC).aViewRegistryNoTask.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RegistryVC).aPCICheck_RegistryHeader.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RecordsNavigationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RecordsNavigationController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
'------------------------ DETAILVIEW ----------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "RegistryRowsFinancialControlling_ReInvoicePopupWindow_DetailView" Then
|
||||
@@ -178,15 +178,15 @@ Public Class RegistryVC
|
||||
|
||||
If View.Id = "RegistryHeader_DetailView" Then
|
||||
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RegistryVC).aRegistryStorno.Active.SetItemValue("", True)
|
||||
Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
If _RegistryHeader.IsEditable = False Then
|
||||
Frame.GetController(Of RegistryVC)().aRegistryGotoNextStep.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
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)
|
||||
@@ -200,7 +200,7 @@ Public Class RegistryVC
|
||||
End If
|
||||
End If
|
||||
If View.Id = "RegistryTasks_DetailView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", True)
|
||||
Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
|
||||
If _RegistryTasks.Status = General.TaskStatus.Completed Then
|
||||
@@ -210,10 +210,10 @@ Public Class RegistryVC
|
||||
' Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "RegistryRows_Financial_RegistryRows_FinancialControlling" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id Like "*RegistryTask*" Then
|
||||
Frame.GetController(Of ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ObjectMethodActionsViewController).Actions("Task.MarkCompleted")?.Active.SetItemValue("", False)
|
||||
If View.Id = "RegistryTasks_ListView_Not_Completed" Then
|
||||
CType(View, ListView).CollectionSource.Criteria("ByUser") = _
|
||||
CriteriaOperator.Parse("Status<>4 and HRPerson.User.UserName=?", SecuritySystem.CurrentUserName)
|
||||
@@ -283,23 +283,23 @@ Public Class RegistryVC
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
|
||||
If View.Id = "RegistryHeader_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RegistryVC).aRegistryStorno.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "RegistryHeader_ListView" Or View.Id = "RegistryTasks_ListView_Completed" Or View.Id = "RegistryTasks_ListView_Not_Completed_Full" Or View.Id = "RegistryTasks_ListView_Not_Completed" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "RegistryTasks_DetailView" Or View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then
|
||||
GLOBAL_RegistryTask_Current_Oid = Nothing
|
||||
End If
|
||||
If View.Id = "RegistryTasks_DetailView" Then
|
||||
GLOBAL_RegistryTask_Current_Oid = Nothing
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
@@ -309,40 +309,40 @@ Public Class RegistryVC
|
||||
Frame.GetController(Of RegistryVC).aBankMergeRegistry.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).NewObjectAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
|
||||
End If
|
||||
|
||||
If View.Id = "RegistryTasks_RegistryRowsFinancial_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then ' Iktatási rendszerben a teljesítésre bontás fül
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "RegistryHeader_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of RegistryVC).aPCICheck_RegistryHeader.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "RegistryRowsFinancialControllingTemplatePopup_RegistryHeader_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
|
||||
Frame.GetController(Of RegistryRowsFinancialControllingVC).aViewRegistryNoTask.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RegistryVC).aPCICheck_RegistryHeader.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RecordsNavigationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RecordsNavigationController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
'If View.Id = "RegistryTasks_ListView_Not_Completed_Full" Or _
|
||||
' View.Id = "RegistryTasks_ListView_Not_Completed" Then
|
||||
@@ -427,9 +427,9 @@ Public Class RegistryVC
|
||||
Private Sub MasterObject2_Changed(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, RegistryRowsFinancialControlling)
|
||||
If _RegistryRowsFinancialControlling.RegistryHeader.BruttoAmountRemainingBank = 0 Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Else
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aRegistryGotoNextStep_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRegistryGotoNextStep.Execute
|
||||
@@ -953,7 +953,7 @@ Public Class RegistryVC
|
||||
|
||||
End Sub
|
||||
Private Sub aCreateTechnicalContractFromRegistry_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateTechnicalContractFromRegistry.Execute
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A valid�ci� ideiglenes letilt�sa az akci� v�grehajt�s�nak idej�re.
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A valid�ci� ideiglenes letilt�sa az akci� v�grehajt�s�nak idej�re.
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(View.SelectedObjects(0), RegistryRowsFinancialControlling)
|
||||
Dim _RegistryHeader As RegistryHeader = _RegistryRowsFinancialControlling.RegistryHeader
|
||||
@@ -1013,7 +1013,7 @@ Public Class RegistryVC
|
||||
End If
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
|
||||
If TryCast(View, DetailView) IsNot Nothing Then
|
||||
View.Close()
|
||||
@@ -1055,16 +1055,16 @@ Public Class RegistryVC
|
||||
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
If TryCast(View, DetailView) IsNot Nothing Then
|
||||
View.Close()
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
Else
|
||||
'-------!!!!!!!TESZT MIATT!!!!!------------------------------------------
|
||||
Dim _Message As String = String.Format("Technikai limit van beállítva ! {0}", _TechnicalLimitAmount)
|
||||
|
||||
+6
-6
@@ -33,13 +33,13 @@ Public Class RRFCQueryVC
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
If View.Id = "RRFCQueryHeader_RRFCQueryRows_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "RRFCQueryHeader_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "'"
|
||||
End If
|
||||
If View.Id = "RRFCQueryHeader_DetailView" Then
|
||||
@@ -50,7 +50,7 @@ Public Class RRFCQueryVC
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "RRFCQueryHeader_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
+2
-2
@@ -103,7 +103,7 @@ Public Class RegistryTelephoneVC
|
||||
End If
|
||||
|
||||
If _ListView IsNot Nothing Then
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
|
||||
_ocur.Delete(_RegistryHeader.RegistryRowsFinancial)
|
||||
_ocur.Delete(_RegistryHeader.RegistryRowsFinancialControlling)
|
||||
@@ -161,7 +161,7 @@ Public Class RegistryTelephoneVC
|
||||
Next
|
||||
End If
|
||||
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
Private Sub Create_RRF_Row(_ocur As Xpo.XPObjectSpace, _RegistryHeader As RegistryHeader, _BruttoAmount As Double, _VAT As VAT)
|
||||
Dim _RegistryRowsFinancial As RegistryRowsFinancial = _ocur.FindObject(Of RegistryRowsFinancial)(CriteriaOperator.Parse("RegistryHeader=? and VAT=?", _RegistryHeader, _VAT))
|
||||
|
||||
+14
-14
@@ -24,33 +24,33 @@ Public Class ControllingVC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "HCategory_Children_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Controlling_LookupListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "HCategory_Children_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Controlling_LookupListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aReCreateControlling_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCreateControlling.Execute
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Controlling_Collection As New XPCollection(Of Controlling)(_ocur.Session)
|
||||
@@ -64,7 +64,7 @@ Public Class ControllingVC
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -27,14 +27,14 @@ Public Class CostHolderVC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderCostHolder_ListView" Or View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderHRPerson_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderCostHolder_ListView" Or View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderHRPerson_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
+2
-2
@@ -42,7 +42,7 @@ Public Class UniqueObjects_VC
|
||||
|
||||
Private Sub aMergeUniqueObjects_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aMergeUniqueObjects.Execute
|
||||
Try
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _Object As Object
|
||||
Dim _UniqueObjects As UniqueObjects
|
||||
@@ -69,7 +69,7 @@ Public Class UniqueObjects_VC
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
+18
-18
@@ -31,26 +31,26 @@ Public Class ChartOfAccountsVC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "ChartOfAccountsYear_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ChartOfAccountsYear_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ChartOfAccountsYear_ChartOfAccounts_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf ChartOfAccountsYear_ChartOfAccounts_ListView_DeleteAction_Executing
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "ChartOfAccountsYear_ChartOfAccounts_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aReCreateChartOfAccounts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCreateChartOfAccounts.Execute
|
||||
@@ -320,7 +320,7 @@ Public Class ChartOfAccountsVC
|
||||
Dim _GLRows_Collection As New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("DebitChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date))
|
||||
Dim _GLRows As GLRows
|
||||
RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
For Each _GLRows In _GLRows_Collection
|
||||
RaiseEvent DoWork()
|
||||
If _GLRows.DebitChartOfAccounts IsNot Nothing Then
|
||||
@@ -331,12 +331,12 @@ Public Class ChartOfAccountsVC
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
RaiseEvent FinalWork
|
||||
|
||||
_GLRows_Collection = New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("CreditChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date))
|
||||
RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
For Each _GLRows In _GLRows_Collection
|
||||
RaiseEvent DoWork()
|
||||
If _GLRows.DebitChartOfAccounts IsNot Nothing Then
|
||||
@@ -347,7 +347,7 @@ Public Class ChartOfAccountsVC
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
RaiseEvent FinalWork
|
||||
|
||||
End Sub
|
||||
@@ -703,7 +703,7 @@ Public Class ChartOfAccountsVC
|
||||
Dim _GLRows_Collection As New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("DebitChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date))
|
||||
Dim _GLRows As GLRows
|
||||
RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
i = 0
|
||||
For Each _GLRows In _GLRows_Collection
|
||||
RaiseEvent DoWork()
|
||||
@@ -717,12 +717,12 @@ Public Class ChartOfAccountsVC
|
||||
If i Mod 50 = 0 Then _ocur.CommitChanges()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
RaiseEvent FinalWork
|
||||
|
||||
_GLRows_Collection = New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("CreditChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date))
|
||||
RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
i = 0
|
||||
For Each _GLRows In _GLRows_Collection
|
||||
RaiseEvent DoWork()
|
||||
@@ -736,7 +736,7 @@ Public Class ChartOfAccountsVC
|
||||
If i Mod 50 = 0 Then _ocur.CommitChanges()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
RaiseEvent FinalWork
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
|
||||
@@ -24,19 +24,19 @@ Public Class ContactsVC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "Contact_EmailSendQueue_PopUp_HTMLMailTemplate_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "Contact_EmailSendQueue_PopUp_HTMLMailTemplate_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -59,7 +59,7 @@ Public Class ContactsVC
|
||||
Dim _CRM_Leads_Activity As CRM_Leads_Activity = _onew.CreateObject(Of CRM_Leads_Activity)()
|
||||
|
||||
Dim currentUser As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
|
||||
|
||||
If _CRM_Leads Is Nothing Then
|
||||
_CRM_Leads = _ocur.CreateObject(Of CRM_Leads)()
|
||||
@@ -78,7 +78,7 @@ Public Class ContactsVC
|
||||
_CRM_Leads_Activity.HRPerson = _onew.GetObject(_CRM_Leads.HRPerson)
|
||||
End If
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_Activity_DetailView", True, _CRM_Leads_Activity)
|
||||
End Sub
|
||||
|
||||
@@ -42,52 +42,52 @@ Public Class CustomersVC
|
||||
_CustomersNG = TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.FindObject(Of CustomersNG)(1, CriteriaOperator.Parse("Oid=Oid"))
|
||||
|
||||
If _CustomersNG Is Nothing Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Else
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
If View.Id = "Customers_CRM_Opportunities_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of LinkDialogController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of LinkDialogController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CustomersNGCollection_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Customers_CustomersBankAccounts_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkDialogController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkDialogController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CustomersFrom_CustomersBankAccounts_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkDialogController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkDialogController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Customers_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Customers_DetailView_DeleteAction_Executing
|
||||
AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf Customers_DetailView_Save_Executing
|
||||
AddHandler Frame.GetController(Of ModificationsController).SaveAndCloseAction.Executing, AddressOf Customers_DetailView_Save_Executing
|
||||
AddHandler Frame.GetController(Of ModificationsController).SaveAndNewAction.Executing, AddressOf Customers_DetailView_Save_Executing
|
||||
End If
|
||||
If View.Id = "Customers_LookupListView" Then
|
||||
'Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CustomersFileAttachment_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Customers_CustomersFileAttachment_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Customers_Customers_BusinessDirectory_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "Customers_ListView_Deleted" Then
|
||||
@@ -97,8 +97,8 @@ Public Class CustomersVC
|
||||
Frame.GetController(Of CustomersVC).aCustomers_CreateBusinessDirectory.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CustomersVC).aMergeCustomers.Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
If TryCast(View, ListView) IsNot Nothing Then
|
||||
If TryCast(View, ListView).CollectionSource IsNot Nothing Then
|
||||
If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then
|
||||
@@ -123,48 +123,48 @@ Public Class CustomersVC
|
||||
_CustomersNG = TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.FindObject(Of CustomersNG)(1, CriteriaOperator.Parse("Oid=Oid"))
|
||||
|
||||
If _CustomersNG Is Nothing Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Else
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End If
|
||||
If View.Id = "Customers_CRM_Opportunities_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of LinkDialogController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of LinkDialogController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CustomersNGCollection_Deatilview" Then
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Customers_CustomersBankAccounts_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkDialogController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkDialogController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CustomersFrom_CustomersBankAccounts_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkDialogController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkDialogController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Customers_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Customers_LookupListView" Then
|
||||
'Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CustomersFileAttachment_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Customers_CustomersFileAttachment_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Customers_Customers_BusinessDirectory_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Customers_ListView_Deleted" Then
|
||||
Frame.GetController(Of CustomersVC).aCreateOpportunityFromCustomers.Active.SetItemValue("", True)
|
||||
@@ -172,8 +172,8 @@ Public Class CustomersVC
|
||||
Frame.GetController(Of CustomersVC).aPCICheck_Customers.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CustomersVC).aCustomers_CreateBusinessDirectory.Active.SetItemValue("", True)
|
||||
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CustomersVC).aMergeCustomers.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
@@ -228,7 +228,7 @@ Public Class CustomersVC
|
||||
|
||||
End Sub
|
||||
Private Sub aRecreateCustomersOrderDocuments_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRecreateCustomersOrderDocuments.Execute
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
|
||||
Try
|
||||
If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
|
||||
@@ -286,7 +286,7 @@ Public Class CustomersVC
|
||||
End If
|
||||
Next
|
||||
RaiseEvent FinalWork
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
@@ -341,7 +341,7 @@ Public Class CustomersVC
|
||||
|
||||
Private Sub aMergeCustomers_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aMergeCustomers.Execute
|
||||
Try
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CustomersMergePopup As CustomersMergePopup = e.PopupWindow.View.SelectedObjects(0)
|
||||
Dim _Object As Object
|
||||
@@ -366,7 +366,7 @@ Public Class CustomersVC
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
+10
-10
@@ -24,11 +24,11 @@ Public Class CustomersMeeting_VC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "CustomersMeeting_CustomersMeetingDocuments_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CustomersMeeting_ListView_Support" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _User As DevExpress.Persistent.BaseImpl.User = TryCast(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User)
|
||||
@@ -45,7 +45,7 @@ Public Class CustomersMeeting_VC
|
||||
End If
|
||||
End If
|
||||
If View.Id = "CustomersMeeting_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _User As DevExpress.Persistent.BaseImpl.User = TryCast(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User)
|
||||
@@ -71,7 +71,7 @@ Public Class CustomersMeeting_VC
|
||||
End If
|
||||
End If
|
||||
If View.Id = "CustomersMeeting_DetailView_Subcontractor" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CustomersMeeting_DetailView" Then
|
||||
Dim _CustomersMeeting As CustomersMeeting = TryCast(View.SelectedObjects(0), CustomersMeeting)
|
||||
@@ -98,17 +98,17 @@ Public Class CustomersMeeting_VC
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "CustomersMeeting_CustomersMeetingDocuments_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CustomersMeeting_ListView_Support" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CustomersMeeting_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CustomersMeeting_DetailView_Subcontractor" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -23,16 +23,16 @@ Public Class GeneralStocks_VC
|
||||
MyBase.OnActivated()
|
||||
|
||||
If View.Id = "CustomsTariffs_LookupListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "CustomsTariffs_LookupListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -156,7 +156,7 @@ Public Class HRPerson_VC
|
||||
|
||||
Private Sub aMergeUsers_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aMergeUsers.Execute
|
||||
Try
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _Object As Object
|
||||
Dim _User As User
|
||||
@@ -187,13 +187,13 @@ Public Class HRPerson_VC
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub aMergeHRPerson_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aMergeHRPerson.Execute
|
||||
Try
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _Object As Object
|
||||
Dim _HRPerson As HRPerson
|
||||
@@ -224,7 +224,7 @@ Public Class HRPerson_VC
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -98,9 +98,9 @@ Public Class OperationalLog_VC
|
||||
_OperationalLog_CollectionSource.EndUpdateCriteria()
|
||||
End If
|
||||
If View.Id = "OperationalLog_OperationalLogDocuments_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
@@ -110,9 +110,9 @@ Public Class OperationalLog_VC
|
||||
|
||||
End If
|
||||
If View.Id = "OperationalLog_OperationalLogDocuments_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
+2
-2
@@ -24,13 +24,13 @@ Public Class BusinessDirectory_VC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "Role_ListView_BusinessDirectory" Then
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
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)
|
||||
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
|
||||
|
||||
@@ -27,67 +27,67 @@ Public Class ProjectVC
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "ProjectHeader_ProjectHRPerson_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ProjectHeader_ProjectSubcontractor_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ProjectHeader_ProjectCustomers_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ProjectRows_ProjectRowsCustomers_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ProjectRows_ProjectRowsHRPerson_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ProjectRows_ProjectRowsSubcontractor_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "ProjectHeader_ProjectHRPerson_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ProjectHeader_ProjectSubcontractor_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ProjectHeader_ProjectCustomers_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ProjectRows_ProjectRowsCustomers_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ProjectRows_ProjectRowsHRPerson_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ProjectRows_ProjectRowsSubcontractor_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Overridable Sub aProjectEditRow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aProjectEditRow.Execute
|
||||
|
||||
@@ -32,12 +32,12 @@ Public Class AnswerVC
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Answer As Answer
|
||||
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.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)
|
||||
If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
_Answer = TryCast(View.SelectedObjects(0), Answer)
|
||||
If _ocur.Session.IsNewObject(_Answer) Then
|
||||
@@ -46,19 +46,19 @@ Public Class AnswerVC
|
||||
Frame.GetController(Of AnswerVC).aSaveAnswer.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Answer_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "Answer_DetailView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
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 CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aSaveAnswer_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSaveAnswer.Execute
|
||||
|
||||
@@ -46,15 +46,15 @@ Public Class QuestionVC
|
||||
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)
|
||||
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 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)
|
||||
@@ -69,12 +69,12 @@ Public Class QuestionVC
|
||||
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 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)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
_AppearanceController = Frame.GetController(Of AppearanceController)()
|
||||
If _AppearanceController IsNot Nothing Then
|
||||
AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance
|
||||
@@ -83,12 +83,12 @@ Public Class QuestionVC
|
||||
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 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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RefreshController).Active.SetItemValue("", False)
|
||||
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
|
||||
@@ -108,19 +108,19 @@ Public Class QuestionVC
|
||||
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)
|
||||
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)
|
||||
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 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 = ""
|
||||
@@ -154,44 +154,44 @@ Public Class QuestionVC
|
||||
'-------------- DetailViewZ---------------------------
|
||||
|
||||
If View.Id = "Question_DetailView" Or View.Id = "Question_DetailView_Info" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
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 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 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)
|
||||
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 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 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)
|
||||
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 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 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)
|
||||
If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
_Question = TryCast(View.SelectedObjects(0), Question)
|
||||
If _Question IsNot Nothing Then
|
||||
@@ -223,10 +223,10 @@ Public Class QuestionVC
|
||||
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)
|
||||
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
|
||||
@@ -354,9 +354,9 @@ Public Class QuestionVC
|
||||
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 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)
|
||||
@@ -369,12 +369,12 @@ Public Class QuestionVC
|
||||
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 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)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
_AppearanceController = Frame.GetController(Of AppearanceController)()
|
||||
If _AppearanceController IsNot Nothing Then
|
||||
AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance
|
||||
@@ -383,13 +383,13 @@ Public Class QuestionVC
|
||||
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 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 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)
|
||||
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
|
||||
@@ -409,19 +409,19 @@ Public Class QuestionVC
|
||||
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)
|
||||
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)
|
||||
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 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)
|
||||
@@ -429,43 +429,43 @@ Public Class QuestionVC
|
||||
'-------------- DetailViewZ---------------------------
|
||||
|
||||
If View.Id = "Question_DetailView" Or View.Id = "Question_DetailView_Info" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
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 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 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)
|
||||
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 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)
|
||||
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 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 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)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
|
||||
_Question = TryCast(View.SelectedObjects(0), Question)
|
||||
If _Question IsNot Nothing Then
|
||||
@@ -485,13 +485,13 @@ Public Class QuestionVC
|
||||
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)
|
||||
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)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End Sub
|
||||
|
||||
Protected Overridable Sub CustomizeDisabledEditorsAppearance(ByVal e As ApplyAppearanceEventArgs)
|
||||
|
||||
@@ -28,18 +28,18 @@ Public Class Reply_VC
|
||||
|
||||
|
||||
If View.Id = "Reply_DetailView" Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of Reply_VC).aSaveReply.Active.SetItemValue("", True)
|
||||
If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
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 ModificationsController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of Reply_VC)().aSaveReply.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -28,12 +28,12 @@ Public Class SupportDocuments
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
If View.Id = "SubcontractorDocuments_ListView" 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 LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
|
||||
|
||||
Dim _User As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)))
|
||||
|
||||
@@ -51,12 +51,12 @@ Public Class SupportDocuments
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "SubcontractorDocuments_ListView" 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 LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -63,21 +63,21 @@ Public Class Support_VC
|
||||
End If
|
||||
End If
|
||||
If View.Id = "OfferOutHeader_ListView_Support" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "OfferOutHeader_ListView_Support" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aCreateSupportUserRoles_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateSupportUserRoles.CustomizePopupWindowParams
|
||||
|
||||
@@ -24,14 +24,14 @@ Public Class ListViewProcess
|
||||
MyBase.OnActivated()
|
||||
If CType(View.Model, IModelListViewAllowSort).IsListViewProcess Then
|
||||
Else
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If CType(View.Model, IModelListViewAllowSort).IsListViewProcess Then
|
||||
Else
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -31,10 +31,10 @@ Public Class ViewFilterContainerVC
|
||||
Frame.GetController(Of DialogController).CancelAction.Active.SetItemValue("", False)
|
||||
End If
|
||||
If Frame.GetController(Of RefreshController)() IsNot Nothing Then
|
||||
Frame.GetController(Of RefreshController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RefreshController)?.Active.SetItemValue("", False)
|
||||
End If
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of RecordsNavigationController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of RecordsNavigationController)?.Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
|
||||
@@ -60,10 +60,10 @@ Public Class ViewFilterContainerVC
|
||||
Frame.GetController(Of DialogController).CancelAction.Active.SetItemValue("", True)
|
||||
End If
|
||||
If Frame.GetController(Of RefreshController)() IsNot Nothing Then
|
||||
Frame.GetController(Of RefreshController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RefreshController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of RecordsNavigationController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of RecordsNavigationController)?.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aResetRequireCriteriaBeforeView_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aResetRequireCriteriaBeforeView.Execute
|
||||
|
||||
@@ -24,8 +24,8 @@
|
||||
</TestDatabases>
|
||||
|
||||
<Aliases>
|
||||
<Alias Name="WinAdapterAssemblyName" Value="DevExpress.ExpressApp.EasyTest.WinAdapter.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Alias Name="WebAdapterAssemblyName" Value="DevExpress.ExpressApp.EasyTest.WebAdapter.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Alias Name="WinAdapterAssemblyName" Value="DevExpress.ExpressApp.EasyTest.WinAdapter.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Alias Name="WebAdapterAssemblyName" Value="DevExpress.ExpressApp.EasyTest.WebAdapter.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Alias Name="WinAppBin" Value="C:\Nuvolar Framework 2.1\Nuvolar\Nuvolar.Win\Bin\EasyTest" />
|
||||
<Alias Name="WebAppBin" Value="C:\Nuvolar Framework 2.1\Nuvolar\Nuvolar.Web" />
|
||||
</Aliases>
|
||||
|
||||
@@ -0,0 +1,33 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<Options xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" TestRunTimeLimit="3" >
|
||||
<Applications>
|
||||
<!-- Win -->
|
||||
<Application
|
||||
Name="NuvolarWin"
|
||||
FileName="[WinAppBin]\Nuvolar.Win.exe"
|
||||
AdapterAssemblyName="[WinAdapterAssemblyName]"
|
||||
CommunicationPort="4100"/>
|
||||
<!-- Web -->
|
||||
<Application
|
||||
Name="NuvolarWeb"
|
||||
Url="http://localhost:4030"
|
||||
PhysicalPath="[WebAppBin]"
|
||||
AdapterAssemblyName="[WebAdapterAssemblyName]"/>
|
||||
<!-- For IIS -->
|
||||
<!--Application
|
||||
Name="[SolutionName]Web"
|
||||
Url="http://localhost/Nuvolar.Web/Default.aspx"
|
||||
AdapterAssemblyName="[WebAdapterAssemblyName]"/-->
|
||||
</Applications>
|
||||
<TestDatabases>
|
||||
<Database xsi:type="TestMSSQLDatabase" Server="(local)" DBName="NuvolarEasyTest" />
|
||||
</TestDatabases>
|
||||
|
||||
<Aliases>
|
||||
<Alias Name="WinAdapterAssemblyName" Value="DevExpress.ExpressApp.EasyTest.WinAdapter.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Alias Name="WebAdapterAssemblyName" Value="DevExpress.ExpressApp.EasyTest.WebAdapter.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<Alias Name="WinAppBin" Value="C:\Nuvolar Framework 2.1\Nuvolar\Nuvolar.Win\Bin\EasyTest" />
|
||||
<Alias Name="WebAppBin" Value="C:\Nuvolar Framework 2.1\Nuvolar\Nuvolar.Web" />
|
||||
</Aliases>
|
||||
</Options>
|
||||
|
||||
@@ -1,3 +1 @@
|
||||
DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
|
||||
DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
@@ -0,0 +1,3 @@
|
||||
DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
|
||||
DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user