First create solution

2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
@@ -0,0 +1,119 @@
+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.Xpo
+Imports DevExpress.Data.Filtering
+
+Public Class ControllingVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event DoWork()
+    Public Event FinalWork
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+
+    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)
+        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)
+        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)
+        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)
+        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)
+
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _Controlling_Collection As New XPCollection(Of Controlling)(_ocur.Session)
+        Dim _Controlling As Controlling
+
+        RaiseEvent InitWork(1, 1, _Controlling_Collection.Count)
+        For Each _Controlling In _Controlling_Collection
+            RaiseEvent DoWork()
+            _Controlling.ReconfigureGroup(_ocur, _Controlling, True)
+        Next
+        _ocur.CommitChanges()
+        RaiseEvent FinalWork
+
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+
+    End Sub
+
+    Private Sub aGenerateControllingfromChartOfAccounts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGenerateControllingfromChartOfAccounts.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+
+        Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_onew.Session, CriteriaOperator.Parse("AccountYear=?", Now.Date.Year))
+        Dim _ChartOfAccounts As ChartOfAccounts
+        Dim _Controlling As Controlling
+        Dim _Controlling_Parent As Controlling = Nothing
+        Dim _ControllingYear As ControllingYear
+
+        _ChartOfAccounts_Collection.Sorting.Add(New SortProperty("AccountNumber", DB.SortingDirection.Ascending))
+        RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count)
+        For Each _ChartOfAccounts In _ChartOfAccounts_Collection
+            RaiseEvent DoWork()
+            _Controlling = _onew.FindObject(Of Controlling)(CriteriaOperator.Parse("Name=?", _ChartOfAccounts.Name))
+            If _Controlling Is Nothing Then
+                _Controlling = _onew.CreateObject(Of Controlling)()
+            End If
+            _Controlling.Name = _ChartOfAccounts.Name
+            _Controlling_Parent = Nothing
+            If _ChartOfAccounts.Parent IsNot Nothing Then
+                _Controlling_Parent = _onew.FindObject(Of Controlling)(CriteriaOperator.Parse("Name=?", _ChartOfAccounts.Parent.Name))
+            End If
+            If _Controlling_Parent IsNot Nothing Then
+                _Controlling.Parent = _Controlling_Parent
+            End If
+            _onew.CommitChanges()
+            Dim _ControllingYear_Collection = New XPCollection(Of ControllingYear)(_onew.Session, CriteriaOperator.Parse("Controlling=?", _Controlling))
+            If _ControllingYear_Collection.Count <= 0 Then
+                _ControllingYear = _onew.CreateObject(Of ControllingYear)()
+                _ControllingYear.Controlling = _Controlling
+                _ControllingYear.AccountYear = Now.Date.Year
+                _ControllingYear.ChartOfAccounts = _ChartOfAccounts
+                _ControllingYear.ChartOfAccounts2 = _ChartOfAccounts
+            End If
+
+            Select Case Mid(_ChartOfAccounts.AccountNumber, 1, 1)
+                Case "5", "8"
+                    _Controlling.Controllingdirection = eControllingDirection.eOut
+                Case "9"
+                    _Controlling.Controllingdirection = eControllingDirection.eIn
+                Case Else
+                    _Controlling.Controllingdirection = eControllingDirection.eNotSet
+            End Select
+            _onew.CommitChanges()
+        Next
+        _onew.CommitChanges()
+        RaiseEvent FinalWork
+    End Sub
+End Class