86 lines
3.1 KiB
VB.net
86 lines
3.1 KiB
VB.net
Imports System
|
|
Imports System.ComponentModel
|
|
Imports System.Collections.Generic
|
|
Imports System.Diagnostics
|
|
Imports System.Text
|
|
|
|
Imports DevExpress.ExpressApp
|
|
Imports DevExpress.ExpressApp.Actions
|
|
Imports DevExpress.Persistent.Base
|
|
|
|
Imports DevExpress.ExpressApp.Win.Editors
|
|
Imports DevExpress.XtraGrid.Views.Grid
|
|
Imports DevExpress.XtraGrid.Columns
|
|
|
|
Public Class GLBaseVC
|
|
Inherits Nuvolar.Module.GLBaseVC
|
|
Dim _WaitFormClass as New WaitFormClass
|
|
Private _GridView As GridView
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
'This call is required by the Component Designer.
|
|
InitializeComponent()
|
|
RegisterActions(components)
|
|
|
|
End Sub
|
|
Protected Overrides Sub OnActivated()
|
|
MyBase.OnActivated()
|
|
AddHandler DoWork, AddressOf _WaitFormClass.DoWork
|
|
AddHandler InitWork, AddressOf _WaitFormClass.Initwork
|
|
AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork
|
|
If View.Id = "GLDetails_ListView" Then
|
|
AddHandler View.ControlsCreated, AddressOf View_ControlsCreated
|
|
End If
|
|
End Sub
|
|
Protected Overrides Sub OnDeactivated()
|
|
MyBase.OnDeactivated()
|
|
RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
|
|
RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork
|
|
RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork
|
|
End Sub
|
|
|
|
Private Sub View_ControlsCreated(sender As Object, e As EventArgs)
|
|
Dim _GridListEditor As GridListEditor = DirectCast(DirectCast(View, ListView).Editor, GridListEditor)
|
|
|
|
_GridView = DirectCast(DirectCast(View, ListView).Editor, GridListEditor).GridView
|
|
|
|
If _GridView IsNot Nothing Then
|
|
'Dim unbColumn As GridColumn = _GridView.Columns.AddField("AmountHUF_Rolling")
|
|
'unbColumn.VisibleIndex = _GridView.Columns.Count
|
|
'unbColumn.UnboundType = DevExpress.Data.UnboundColumnType.Decimal
|
|
'unbColumn.OptionsColumn.AllowEdit = False
|
|
'unbColumn.DisplayFormat.FormatString = "{0:#,##0}"
|
|
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub aUpdateRolling_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aUpdateRolling.Execute
|
|
|
|
Dim _Prev_AccountNumber As String = ""
|
|
Dim _Act_AccountNumber As String = ""
|
|
Dim _AmountHUF_Rolling As Double = 0
|
|
Try
|
|
Dim _DataRowCount As Integer = _GridView.DataRowCount
|
|
|
|
_WaitFormClass.Initwork(1, 1, _DataRowCount)
|
|
For i = 0 To _DataRowCount - 1
|
|
_WaitFormClass.DoWork()
|
|
Dim _GLDetails As GLDetails = TryCast(_GridView.GetRow(i), GLDetails)
|
|
_Act_AccountNumber = _GLDetails.ChartOfAccounts.AccountNumber
|
|
If _Act_AccountNumber <> _Prev_AccountNumber Then
|
|
_AmountHUF_Rolling = 0
|
|
_Prev_AccountNumber = _Act_AccountNumber
|
|
End If
|
|
_AmountHUF_Rolling += _GLDetails.AmountHUF_Ballance
|
|
_GLDetails.AmountHUF_Rolling = _AmountHUF_Rolling
|
|
Next
|
|
Finally
|
|
_Waitformclass.FinalWork
|
|
End Try
|
|
End Sub
|
|
End Class
|