Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text

Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Imports DevExpress.ExpressApp.Win.SystemModule

Public Class LiquidAssetsBallanceVC
    Inherits Nuvolar.Module.LiquidAssetsBallanceVC
    Private worker As WinModificationsController
    Dim _WaitFormClass As New WaitFormClass
    Public Sub New()
        MyBase.New()

        'This call is required by the Component Designer.
        InitializeComponent()
        RegisterActions(components)

    End Sub
    Protected Overrides Sub OnActivated()
        MyBase.OnActivated()
        If View.Id = "LiquidAssetsBallanceHeader_DetailView_Cassa" Then
            worker = Frame.GetController(Of WinModificationsController)()
            worker.ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.Confirmation
        End If
        AddHandler DoWork, AddressOf _WaitFormClass.DoWork
        AddHandler InitWork, AddressOf _WaitFormClass.Initwork
        AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork
    End Sub
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
        If View.Id = "LiquidAssetsBallanceHeader_DetailView_Cassa" Then
            worker = Frame.GetController(Of WinModificationsController)()
            worker.ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit
        End If
        RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
        RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork
        RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork
    End Sub

End Class