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

Átállás 17.2.3-ra

Browse Source 
Related Work Items: #123
This commit is contained in:
ivanszabo
2017-12-02 16:09:26 +01:00
parent 2b2f1b201c
commit 9cca882b34
201 changed files with 16991 additions and 3617 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.vb
+18 -18
View File
@@ -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