Reconfigure for GIT

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Controlling.vb

@@ -0,0 +1,435 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Public Enum eControllingDirection
+    eIn = 0
+    eOut = 1
+    eNotSet = -1
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+Public Class Controlling
+    Inherits HCategory
+    Private _ChartOfAccounts As ChartOfAccounts '5 ötös
+    Private _ChartOfAccounts2 As ChartOfAccounts '8 nyócas
+    Private _IsCOCRequired As Boolean = True 'Teljesítési igazolást igényel az adott számra teljesítéshez kötelező az aláírt nyomtatvány
+    Private _COCAboveAmount As Double 'A teljesítési igazolás nyomtatása nem szükséges ezen összeg alatt
+    Private _IsParent As Boolean = False
+    Private _Controllingdirection As eControllingDirection ' Kontrollszám pénzmozgás iránya
+    Private _IsReInvoiceReason As Boolean = False ' Továbbszámlázási jogcímként is használható?
+    Private _ReInvoiceDescription As String ' Ha továbbszámlázási jogcím is akkor mi a jogcím megnevezése
+    Private _TechnicalContractLimit As Double 'Adott CM-re vonatkozó összeghatár ameddig technikai szerződést enged létrehozni
+    Private _Controlling1 As Controlling
+    Private _Controlling2 As Controlling
+    Private _Controlling3 As Controlling
+    Private _Controlling4 As Controlling
+    Private _Controlling5 As Controlling
+    Private _IsAdvancePayment As Boolean 'Előleg, vagy foglaló kontrollszám
+    Private _IsEstateStatistics As Boolean 'Ingatlan értékesítési statisztikába szűrés
+    ' Nonpersistent --------------------------------------------
+    Private _CollectionOfControlling As XPCollection(Of Controlling)
+    Private _RequireCars As Boolean = False
+    Private _RequireHRPerson As Boolean
+    Private _RequirePhones As Boolean = False
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        If session.IsObjectsLoading = False And session.IsObjectsSaving = False Then
+            Me.Controllingdirection = eControllingDirection.eNotSet
+        End If
+    End Sub
+    Protected Overrides Sub OnDeleting()
+        MyBase.OnDeleting()
+        If Me.Parent IsNot Nothing Then
+            If Me.Parent.Children IsNot Nothing Then
+                If Me.Parent.Children.Count = 1 Then
+                    TryCast(Me.Parent, Controlling).IsParent = False
+                End If
+            End If
+        End If
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        Dim _c As New XPCollection(Session, GetType(Controlling), CriteriaOperator.Parse("Children.Count=0 and IsParent=True"))
+        Dim _Controlling As Controlling
+
+        For Each _Controlling In _c
+            If _Controlling.Children.Count = 0 Then
+                _Controlling.IsParent = False
+                _Controlling.Save()
+            End If
+        Next
+        Dim _c1 As New XPCollection(Session, GetType(Controlling), CriteriaOperator.Parse("Children.Count<>0 and IsParent=False"))
+        Dim _Controlling1 As Controlling
+
+        For Each _Controlling1 In _c1
+            If _Controlling1.Children.Count <> 0 Then
+                _Controlling1.IsParent = True
+                _Controlling1.Save()
+            End If
+        Next
+        Me.ReconfigureGroup(Nothing, Me, False)
+    End Sub
+
+    <DataSourceProperty("CollectionOfControlling")> _
+    <NonPersistent>
+    Property ParentObject As Controlling
+        Get
+            Return MyBase.Parent
+        End Get
+        Set(value As Controlling)
+            MyBase.Parent = value
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    <Browsable(False)> _
+    <NonPersistent()> _
+        Private ReadOnly Property CollectionOfControlling As XPCollection(Of Controlling)
+        Get
+            _CollectionOfControlling = New XPCollection(Of Controlling)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid))
+            Return _CollectionOfControlling
+        End Get
+    End Property
+
+    <Browsable(False)>
+    Property ChartOfAccounts As ChartOfAccounts
+        Get
+            Return (_ChartOfAccounts)
+        End Get
+        Set(ByVal value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
+        End Set
+    End Property
+    <Browsable(False)>
+    Property ChartOfAccounts2 As ChartOfAccounts
+        Get
+            Return (_ChartOfAccounts2)
+        End Get
+        Set(ByVal value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts2", _ChartOfAccounts2, value)
+        End Set
+    End Property
+    Property IsCOCRequired As Boolean
+        Get
+            Return _IsCOCRequired
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsCOCRequired", _IsCOCRequired, value)
+        End Set
+    End Property
+    Property COCAboveAmount As Double
+        Get
+            Return _COCAboveAmount
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("COCAboveAmount", _COCAboveAmount, value)
+        End Set
+    End Property
+    Property IsParent As Boolean
+        Get
+            Return _IsParent
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsParent", _IsParent, value)
+        End Set
+    End Property
+    Property Controllingdirection As eControllingDirection
+        Get
+            Return _Controllingdirection
+        End Get
+        Set(ByVal value As eControllingDirection)
+            SetPropertyValue("Controllingdirection", _Controllingdirection, value)
+        End Set
+    End Property
+    Property IsReInvoiceReason As Boolean
+        Get
+            Return _IsReInvoiceReason
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsReInvoiceReason", _IsReInvoiceReason, value)
+        End Set
+    End Property
+    Property ReInvoiceDescription As String
+        Get
+            Return _ReInvoiceDescription
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ReInvoiceDescription", _ReInvoiceDescription, value)
+        End Set
+    End Property
+    Property TechnicalContractLimit As Double
+        Get
+            Return _TechnicalContractLimit
+        End Get
+        Set(value As Double)
+            SetPropertyValue("TechnicalContractLimit", _TechnicalContractLimit, value)
+        End Set
+    End Property
+    Property Controlling1 As Controlling
+        Get
+            Return _Controlling1
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling1", _Controlling1, value)
+        End Set
+    End Property
+    Property Controlling2 As Controlling
+        Get
+            Return _Controlling2
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling2", _Controlling2, value)
+        End Set
+    End Property
+    Property Controlling3 As Controlling
+        Get
+            Return _Controlling3
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling3", _Controlling3, value)
+        End Set
+    End Property
+    Property Controlling4 As Controlling
+        Get
+            Return _Controlling4
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling4", _Controlling4, value)
+        End Set
+    End Property
+    Property Controlling5 As Controlling
+        Get
+            Return _Controlling5
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling5", _Controlling5, value)
+        End Set
+    End Property
+    Property IsAdvancePayment As Boolean
+        Get
+            Return _IsAdvancePayment
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsAdvancePayment", _IsAdvancePayment, value)
+        End Set
+    End Property
+    Property IsEstateStatistics As Boolean
+        Get
+            Return _IsEstateStatistics
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsEstateStatistics", _IsEstateStatistics, value)
+        End Set
+    End Property
+    Property RequireCars As Boolean
+        Get
+            Return _RequireCars
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("RequireCars", _RequireCars, value)
+        End Set
+    End Property
+    Property RequireHRPerson As Boolean
+        Get
+            Return _RequireHRPerson
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("RequireHRPerson", _RequireHRPerson, value)
+        End Set
+    End Property
+    Property RequirePhones As Boolean
+        Get
+            Return _RequirePhones
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("RequirePhones", _RequirePhones, value)
+        End Set
+    End Property
+
+    
+    Sub ReconfigureGroup(_ObjectSpace As Xpo.XPObjectSpace, _Controlling As Controlling, _WithCommit As Boolean)
+        Dim _Controlling5 As Controlling = Nothing
+        Dim _Controlling4 As Controlling = Nothing
+        Dim _Controlling3 As Controlling = Nothing
+        Dim _Controlling2 As Controlling = Nothing
+        Dim _Controlling1 As Controlling = Nothing
+
+        _Controlling1 = _Controlling.Parent
+        If _Controlling1 IsNot Nothing Then
+            _Controlling2 = _Controlling1.Parent
+            If _Controlling2 IsNot Nothing Then
+                _Controlling3 = _Controlling2.Parent
+                If _Controlling3 IsNot Nothing Then
+                    _Controlling4 = _Controlling3.Parent
+                    If _Controlling4 IsNot Nothing Then
+                        _Controlling5 = _Controlling4.Parent
+                    End If
+                End If
+            End If
+        End If
+
+        If _Controlling5 IsNot Nothing Then
+            _Controlling._Controlling1 = _Controlling5
+            _Controlling._Controlling2 = _Controlling4
+            _Controlling._Controlling3 = _Controlling3
+            _Controlling._Controlling4 = _Controlling2
+            _Controlling._Controlling5 = _Controlling1
+        ElseIf _Controlling4 IsNot Nothing Then
+            _Controlling._Controlling1 = _Controlling4
+            _Controlling._Controlling2 = _Controlling3
+            _Controlling._Controlling3 = _Controlling2
+            _Controlling._Controlling4 = _Controlling1
+            _Controlling._Controlling5 = _Controlling
+        ElseIf _Controlling3 IsNot Nothing Then
+            _Controlling._Controlling1 = _Controlling3
+            _Controlling._Controlling2 = _Controlling2
+            _Controlling._Controlling3 = _Controlling1
+            _Controlling._Controlling4 = _Controlling
+            _Controlling._Controlling5 = Nothing
+        ElseIf _Controlling2 IsNot Nothing Then
+            _Controlling._Controlling1 = _Controlling2
+            _Controlling._Controlling2 = _Controlling1
+            _Controlling._Controlling3 = _Controlling
+            _Controlling._Controlling4 = Nothing
+            _Controlling._Controlling5 = Nothing
+        ElseIf _Controlling1 IsNot Nothing Then
+            _Controlling._Controlling1 = _Controlling1
+            _Controlling._Controlling2 = _Controlling
+            _Controlling._Controlling3 = Nothing
+            _Controlling._Controlling4 = Nothing
+            _Controlling._Controlling5 = Nothing
+        ElseIf _Controlling1 Is Nothing Then
+            _Controlling._Controlling1 = _Controlling
+            _Controlling._Controlling2 = Nothing
+            _Controlling._Controlling3 = Nothing
+            _Controlling._Controlling4 = Nothing
+            _Controlling._Controlling5 = Nothing
+        End If
+        _Controlling.Save()
+        If _WithCommit Then _ObjectSpace.CommitChanges()
+    End Sub
+    Private Sub InContrlollingSet(ByVal _p_InControlling As Controlling)
+        '----- Rekurzív gráf bejárás az összes gyerekelemnek a BEVÉTEL kontrollszám csoportban --------------
+        _p_InControlling.Controllingdirection = eControllingDirection.eIn ' Gyökér elem beállítása
+        If _p_InControlling.Children.Count = 0 Then ' Szülő elem beállítása
+            _p_InControlling.Controllingdirection = eControllingDirection.eIn
+        Else
+            Dim _Controlling As Controlling
+
+            For Each _Controlling In _p_InControlling.Children
+                _Controlling.Controllingdirection = eControllingDirection.eIn ' Levél elemek beállítása
+                If _Controlling.Children.Count <> 0 Then ' A rekurzió megakasztása
+                    InContrlollingSet(_Controlling)
+                End If
+            Next
+        End If
+        _p_InControlling.Save()
+    End Sub
+    Private Sub OutContrlollingSet(ByVal _p_OutControlling As Controlling)
+        '----- Rekurzív gráf bejárás az összes gyerekelemnek a KIADÁS kontrollszám csoportban --------------
+        _p_OutControlling.Controllingdirection = eControllingDirection.eOut ' Gyökér elem beállítása
+        If _p_OutControlling.Children.Count = 0 Then ' Szülő elem beállítása
+            _p_OutControlling.Controllingdirection = eControllingDirection.eOut
+        Else
+            Dim _Controlling As Controlling
+
+            For Each _Controlling In _p_OutControlling.Children
+                _Controlling.Controllingdirection = eControllingDirection.eOut ' Levél elemek beállítása
+                If _Controlling.Children.Count <> 0 Then ' A rekurzió megakasztása
+                    OutContrlollingSet(_Controlling)
+                End If
+            Next
+        End If
+        _p_OutControlling.Save()
+    End Sub
+
+    <Association("Controlling-ControllingYear", GetType(ControllingYear)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property ControllingYear As XPCollection(Of ControllingYear)
+        Get
+            Return GetCollection(Of ControllingYear)("ControllingYear")
+        End Get
+    End Property
+    Public Function GetChartOfAccounts(_AccountYear As Long, _IsReinvoice As Boolean) As ChartOfAccounts
+        Dim _ChartOfAccounts As ChartOfAccounts = Nothing
+        Dim _ControllingYear As ControllingYear
+        Select Case _IsReinvoice
+            Case False
+                _ChartOfAccounts = Me.ChartOfAccounts
+                For Each _ControllingYear In Me.ControllingYear
+                    If _ControllingYear.AccountYear = _AccountYear Then
+                        _ChartOfAccounts = _ControllingYear.ChartOfAccounts
+                        Exit For
+                    End If
+                Next
+            Case True
+                _ChartOfAccounts = Me.ChartOfAccounts2
+                For Each _ControllingYear In Me.ControllingYear
+                    If _ControllingYear.AccountYear = _AccountYear Then
+                        _ChartOfAccounts = _ControllingYear.ChartOfAccounts2
+                        Exit For
+                    End If
+                Next
+        End Select
+        Return _ChartOfAccounts
+    End Function
+
+End Class 'Kontroll számok
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+<RuleCriteria("RuleCriteria ControllingYear-ChartOfAccounts", DefaultContexts.Save, "ChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
+<RuleCriteria("RuleCriteria ControllingYear-ChartOfAccounts2", DefaultContexts.Save, "ChartOfAccounts2.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
+Public Class ControllingYear
+    Inherits BaseObject
+
+    Private _Controlling As Controlling
+    Private _AccountYear As Long
+    Private _ChartOfAccounts As ChartOfAccounts
+    Private _ChartOfAccounts2 As ChartOfAccounts
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+
+    <Association("Controlling-ControllingYear", GetType(Controlling))> _
+    Property Controlling As Controlling
+        Get
+            Return _Controlling
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling", _Controlling, value)
+        End Set
+    End Property
+    Property AccountYear As Long
+        Get
+            Return _AccountYear
+        End Get
+        Set(value As Long)
+            SetPropertyValue("AccountYear", _AccountYear, value)
+        End Set
+    End Property
+    <DataSourceCriteria("AccountYear='@This.AccountYear'")> _
+    Property ChartOfAccounts As ChartOfAccounts
+        Get
+            Return _ChartOfAccounts
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
+        End Set
+    End Property
+    <DataSourceCriteria("AccountYear='@This.AccountYear'")> _
+    Property ChartOfAccounts2 As ChartOfAccounts
+        Get
+            Return _ChartOfAccounts2
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts2", _ChartOfAccounts2, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.Designer.vb

@@ -0,0 +1,64 @@
+Partial Class ControllingVC
+
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+		MyClass.New()
+
+		'Required for Windows.Forms Class Composition Designer support
+		Container.Add(Me)
+
+	End Sub
+
+	'Component overrides dispose to clean up the component list.
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+		If disposing AndAlso components IsNot Nothing Then
+			components.Dispose()
+		End If
+		MyBase.Dispose(disposing)
+	End Sub
+
+	'Required by the Component Designer
+	Private components As System.ComponentModel.IContainer
+
+	'NOTE: The following procedure is required by the Component Designer
+	'It can be modified using the Component Designer.
+	'Do not modify it using the code editor.
+	<System.Diagnostics.DebuggerStepThrough()> _
+	Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.aReCreateControlling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aGenerateControllingfromChartOfAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aReCreateControlling
+        '
+        Me.aReCreateControlling.Caption = "aRe Create Controlling"
+        Me.aReCreateControlling.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aReCreateControlling.Id = "aReCreateControlling"
+        Me.aReCreateControlling.ImageName = Nothing
+        Me.aReCreateControlling.Shortcut = Nothing
+        Me.aReCreateControlling.Tag = Nothing
+        Me.aReCreateControlling.TargetObjectsCriteria = Nothing
+        Me.aReCreateControlling.TargetViewId = "Controlling_ListView"
+        Me.aReCreateControlling.ToolTip = Nothing
+        Me.aReCreateControlling.TypeOfView = Nothing
+        '
+        'aGenerateControllingfromChartOfAccounts
+        '
+        Me.aGenerateControllingfromChartOfAccounts.Caption = "aGenerate Controllingfrom Chart Of Accounts"
+        Me.aGenerateControllingfromChartOfAccounts.ConfirmationMessage = "Do you want to execute ?"
+        Me.aGenerateControllingfromChartOfAccounts.Id = "aGenerateControllingfromChartOfAccounts"
+        Me.aGenerateControllingfromChartOfAccounts.ImageName = Nothing
+        Me.aGenerateControllingfromChartOfAccounts.Shortcut = Nothing
+        Me.aGenerateControllingfromChartOfAccounts.Tag = Nothing
+        Me.aGenerateControllingfromChartOfAccounts.TargetObjectsCriteria = Nothing
+        Me.aGenerateControllingfromChartOfAccounts.TargetObjectType = GetType(SISBusiness.[Module].Controlling)
+        Me.aGenerateControllingfromChartOfAccounts.TargetViewId = Nothing
+        Me.aGenerateControllingfromChartOfAccounts.ToolTip = Nothing
+        Me.aGenerateControllingfromChartOfAccounts.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aReCreateControlling As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aGenerateControllingfromChartOfAccounts As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.resx

@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="aReCreateControlling.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="aGenerateControllingfromChartOfAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>185, 17</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.vb

@@ -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

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolder.vb

@@ -0,0 +1,48 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+Public Class CostHolder
+    Inherits HCategory
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property HRPersonCostHolder As XPCollection(Of HRPersonCostHolder)
+        Get
+            Return New XPCollection(Of HRPersonCostHolder)(Session, CriteriaOperator.Parse("CostHolder=?", Me))
+        End Get
+    End Property
+
+    <NonPersistent> _
+    <DataSourceProperty("CollectionOfCostHolder")> _
+    Property ParentObject As CostHolder
+        Get
+            Return MyBase.Parent
+        End Get
+        Set(value As CostHolder)
+            MyBase.Parent = value
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    <Browsable(False)> _
+    <NonPersistent()> _
+    Private ReadOnly Property CollectionOfCostHolder As XPCollection(Of CostHolder)
+        Get
+            Dim _CollectionOfCostHolder As New XPCollection(Of CostHolder)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid))
+            Return _CollectionOfCostHolder
+        End Get
+    End Property
+End Class ' Költségviselő
+

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.Designer.vb

@@ -0,0 +1,52 @@
+Partial Class CostHolderVC
+
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+		MyClass.New()
+
+		'Required for Windows.Forms Class Composition Designer support
+		Container.Add(Me)
+
+	End Sub
+
+	'Component overrides dispose to clean up the component list.
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+		If disposing AndAlso components IsNot Nothing Then
+			components.Dispose()
+		End If
+		MyBase.Dispose(disposing)
+	End Sub
+
+	'Required by the Component Designer
+	Private components As System.ComponentModel.IContainer
+
+	'NOTE: The following procedure is required by the Component Designer
+	'It can be modified using the Component Designer.
+	'Do not modify it using the code editor.
+	<System.Diagnostics.DebuggerStepThrough()> _
+	Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.aSetCostHolderToHRPerson = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aSetCostHolderToHRPerson
+        '
+        Me.aSetCostHolderToHRPerson.AcceptButtonCaption = Nothing
+        Me.aSetCostHolderToHRPerson.CancelButtonCaption = Nothing
+        Me.aSetCostHolderToHRPerson.Caption = "aSet Cost Holder To HRPerson"
+        Me.aSetCostHolderToHRPerson.ConfirmationMessage = Nothing
+        Me.aSetCostHolderToHRPerson.Id = "aSetCostHolderToHRPerson"
+        Me.aSetCostHolderToHRPerson.ImageName = Nothing
+        Me.aSetCostHolderToHRPerson.Shortcut = Nothing
+        Me.aSetCostHolderToHRPerson.Tag = Nothing
+        Me.aSetCostHolderToHRPerson.TargetObjectsCriteria = Nothing
+        Me.aSetCostHolderToHRPerson.TargetObjectType = GetType(SISBusiness.[Module].HRPersonCostHolder)
+        Me.aSetCostHolderToHRPerson.TargetViewId = Nothing
+        Me.aSetCostHolderToHRPerson.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aSetCostHolderToHRPerson.ToolTip = Nothing
+        Me.aSetCostHolderToHRPerson.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+
+    End Sub
+    Friend WithEvents aSetCostHolderToHRPerson As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="aSetCostHolderToHRPerson.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>220, 17</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.vb

@@ -0,0 +1,201 @@
+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
+Imports DevExpress.ExpressApp.SystemModule
+Imports System.Linq
+Imports System.Linq.Expressions
+
+Public Class CostHolderVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    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 = "SetHRPersonToCostHolder_SetHRPersonToCostHolderCostHolder_ListView" Or View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderHRPerson_ListView" Then
+            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)
+        End If
+    End Sub
+
+    Private Sub aSetCostHolderToHRPerson_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSetCostHolderToHRPerson.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _SetHRPersonToCostHolder As SetHRPersonToCostHolder = _onew.CreateObject(Of SetHRPersonToCostHolder)()
+
+        Dim _CostHolder As CostHolder = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CostHolder)
+        Dim _HRPerson As HRPerson = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, HRPerson)
+
+        If _HRPerson IsNot Nothing Then
+            _SetHRPersonToCostHolder.Mode = 1
+            _SetHRPersonToCostHolder.HRPerson = _onew.GetObject(_HRPerson)
+            If View.CurrentObject Is Nothing Then
+                _SetHRPersonToCostHolder.DateFrom = FirstDayOfYear(GetSQLTime(_onew.Session))
+                _SetHRPersonToCostHolder.DateTo = LastDayOfYear(GetSQLTime(_onew.Session))
+
+            Else
+                _SetHRPersonToCostHolder.DateFrom = TryCast(View.CurrentObject, HRPersonCostHolder).DateFrom
+                _SetHRPersonToCostHolder.DateTo = TryCast(View.CurrentObject, HRPersonCostHolder).DateTo
+            End If
+            e.View = Application.CreateDetailView(_onew, "SetHRPersonToCostHolder_DetailView", False, _SetHRPersonToCostHolder)
+        ElseIf _CostHolder IsNot Nothing Then
+            _SetHRPersonToCostHolder.Mode = 0
+            _SetHRPersonToCostHolder.CostHolder = _onew.GetObject(_CostHolder)
+            If View.CurrentObject Is Nothing Then
+                _SetHRPersonToCostHolder.DateFrom = FirstDayOfYear(GetSQLTime(_onew.Session))
+                _SetHRPersonToCostHolder.DateTo = LastDayOfYear(GetSQLTime(_onew.Session))
+
+            Else
+                _SetHRPersonToCostHolder.DateFrom = TryCast(View.CurrentObject, HRPersonCostHolder).DateFrom
+                _SetHRPersonToCostHolder.DateTo = TryCast(View.CurrentObject, HRPersonCostHolder).DateTo
+            End If
+            e.View = Application.CreateDetailView(_onew, "SetHRPersonToCostHolder_DetailView", False, _SetHRPersonToCostHolder)
+        End If
+
+    End Sub
+
+    Private Sub aSetCostHolderToHRPerson_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSetCostHolderToHRPerson.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _SetHRPersonToCostHolder As SetHRPersonToCostHolder = TryCast(e.PopupWindow.View.SelectedObjects(0), SetHRPersonToCostHolder)
+        Dim _HRPersonCostHolder As HRPersonCostHolder
+        Dim _HRPersonCostHolder_Collection As XPCollection(Of HRPersonCostHolder)
+        Dim _SumWorkPercent As Double = 0
+        Dim IsValid As Boolean = False
+        Dim LastItemDate As Date
+
+        Dim _HRPersonCostHolder_Query As New XPQuery(Of HRPersonCostHolder)(_ocur.Session)
+        Dim query = From s In _HRPersonCostHolder_Query
+                    Where s.HRPerson.Oid = _SetHRPersonToCostHolder.HRPerson.Oid And
+                        s.WorkPercent > 0
+                    Group s By s.DateFrom, s.DateTo Into g = Group
+                    Order By DateFrom, DateTo
+                    Select New With {.DateFrom = DateFrom, .DateTo = DateTo}
+
+        For Each item In query
+            If item.DateFrom = _SetHRPersonToCostHolder.DateFrom And item.DateTo = _SetHRPersonToCostHolder.DateTo Then
+                IsValid = True
+                Exit For
+            End If
+            LastItemDate = item.DateTo
+        Next
+        If query.Count = 0 Then
+            IsValid = True
+        End If
+
+        If IsValid = False Then
+            If DateDiff(DateInterval.Day, LastItemDate.Date, _SetHRPersonToCostHolder.DateFrom.Date) <> 1 Then
+                Throw New UserFriendlyException("A beállított dátumoknak meg kell egyezniük egy már létezõ idõszak dátumaival, vagy folytonosan kell követniük az utolsó idõszakot!")
+            End If
+        End If
+
+        If _SetHRPersonToCostHolder.Mode = 1 Then
+            Dim _ListPropertyEditor As DevExpress.ExpressApp.Editors.ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("SetHRPersonToCostHolderCostHolder")
+
+            For Each _SetHRPersonToCostHolderCostHolder In _ListPropertyEditor.ListView.CollectionSource.Collection
+                If _SetHRPersonToCostHolderCostHolder.WorkPercent < 0 Or _SetHRPersonToCostHolderCostHolder.WorkPercent > 100 Then
+                    Throw New UserFriendlyException("Az beállított százalékos érték nem lehet nagyobb 100-nál és nem lehet negatív!")
+                End If
+
+                _SumWorkPercent = _SumWorkPercent + _SetHRPersonToCostHolderCostHolder.WorkPercent
+            Next
+
+            If _SumWorkPercent <> 100 Then
+                Throw New UserFriendlyException("A beállított százalékos értékek összege csak 100 lehet!")
+            Else
+                For Each _SetHRPersonToCostHolderCostHolder In _ListPropertyEditor.ListView.CollectionSource.Collection
+
+                    _HRPersonCostHolder = _ocur.FindObject(Of HRPersonCostHolder)(CriteriaOperator.Parse("CostHolder.Oid=? And HRPerson.Oid=? And DateFrom=? And DateTo=?", _SetHRPersonToCostHolderCostHolder.CostHolder.Oid, _SetHRPersonToCostHolder.HRPerson.Oid, _SetHRPersonToCostHolder.DateFrom, _SetHRPersonToCostHolder.DateTo))
+
+                    If _HRPersonCostHolder Is Nothing Then
+                        If _SetHRPersonToCostHolderCostHolder.WorkPercent > 0 Then
+                            _HRPersonCostHolder = _ocur.CreateObject(Of HRPersonCostHolder)()
+
+                            _HRPersonCostHolder.CostHolder = _ocur.GetObjectByKey(Of CostHolder)(_SetHRPersonToCostHolderCostHolder.CostHolder.Oid)
+                            _HRPersonCostHolder.HRPerson = _ocur.GetObjectByKey(Of HRPerson)(_SetHRPersonToCostHolder.HRPerson.Oid)
+                            _HRPersonCostHolder.DateFrom = _SetHRPersonToCostHolder.DateFrom
+                            _HRPersonCostHolder.DateTo = _SetHRPersonToCostHolder.DateTo
+                            _HRPersonCostHolder.WorkPercent = _SetHRPersonToCostHolderCostHolder.WorkPercent
+                        End If
+                    Else
+                        If _SetHRPersonToCostHolderCostHolder.WorkPercent >= 0 Then
+                            _HRPersonCostHolder.WorkPercent = _SetHRPersonToCostHolderCostHolder.WorkPercent
+                        End If
+                    End If
+                Next
+                _ocur.CommitChanges()
+
+            End If
+        End If
+
+        If _SetHRPersonToCostHolder.Mode = 0 Then
+            Dim _ListPropertyEditor As DevExpress.ExpressApp.Editors.ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("SetHRPersonToCostHolderHRPerson")
+
+            For Each _SetHRPersonToCostHolderHRPerson In _ListPropertyEditor.ListView.CollectionSource.Collection
+                _SumWorkPercent = 0
+
+                If _SetHRPersonToCostHolderHRPerson.WorkPercent < 0 Or _SetHRPersonToCostHolderHRPerson.WorkPercent > 100 Then
+                    Throw New UserFriendlyException("Az beállított százalékos érték nem lehet nagyobb 100-nál és nem lehet negatív!")
+                End If
+
+                _HRPersonCostHolder_Collection = New XPCollection(Of HRPersonCostHolder)(_ocur.Session, CriteriaOperator.Parse("HRPerson.Oid=? And DateFrom=? And DateTo=?", _SetHRPersonToCostHolderHRPerson.HRPerson.Oid, _SetHRPersonToCostHolder.DateFrom, _SetHRPersonToCostHolder.DateTo))
+
+                For Each _HRPersonCostHolder_Member In _HRPersonCostHolder_Collection
+                    If _HRPersonCostHolder_Member.CostHolder.Oid = _SetHRPersonToCostHolder.CostHolder.Oid Then
+                        _SumWorkPercent = _SumWorkPercent + _SetHRPersonToCostHolderHRPerson.WorkPercent
+                    Else
+                        _SumWorkPercent = _SumWorkPercent + _HRPersonCostHolder_Member.WorkPercent
+                    End If
+                Next
+
+                If _SumWorkPercent <> 100 And _SumWorkPercent <> 0 Then
+                    Dim _WrongUserName As String = _SetHRPersonToCostHolderHRPerson.HRPerson.displayname
+                    Throw New UserFriendlyException("A következõ munkavállaló foglaltsága nagyobb 100 százaléknál: " & _WrongUserName)
+                End If
+            Next
+
+            For Each _SetHRPersonToCostHolderHRPerson In _ListPropertyEditor.ListView.CollectionSource.Collection
+
+                _HRPersonCostHolder = _ocur.FindObject(Of HRPersonCostHolder)(CriteriaOperator.Parse("CostHolder.Oid=? And HRPerson.Oid=? And DateFrom=? And DateTo=?", _SetHRPersonToCostHolder.CostHolder.Oid, _SetHRPersonToCostHolderHRPerson.HRPerson.Oid, _SetHRPersonToCostHolder.DateFrom, _SetHRPersonToCostHolder.DateTo))
+
+                If _HRPersonCostHolder Is Nothing Then
+                    If _SetHRPersonToCostHolderHRPerson.WorkPercent > 0 Then
+                        _HRPersonCostHolder = _ocur.CreateObject(Of HRPersonCostHolder)()
+
+                        _HRPersonCostHolder.CostHolder = _ocur.GetObjectByKey(Of CostHolder)(_SetHRPersonToCostHolder.CostHolder.Oid)
+                        _HRPersonCostHolder.HRPerson = _ocur.GetObjectByKey(Of HRPerson)(_SetHRPersonToCostHolderHRPerson.HRPerson.Oid)
+                        _HRPersonCostHolder.DateFrom = _SetHRPersonToCostHolder.DateFrom
+                        _HRPersonCostHolder.DateTo = _SetHRPersonToCostHolder.DateTo
+                        _HRPersonCostHolder.WorkPercent = _SetHRPersonToCostHolderHRPerson.WorkPercent
+                    End If
+                Else
+                    If _SetHRPersonToCostHolderHRPerson.WorkPercent > 0 Then
+                        _HRPersonCostHolder.WorkPercent = _SetHRPersonToCostHolderHRPerson.WorkPercent
+                    End If
+                End If
+            Next
+            _ocur.CommitChanges()
+
+
+        End If
+
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostPlace.vb

@@ -0,0 +1,39 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+Public Class CostPlace
+    Inherits HCategory
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <NonPersistent> _
+    <DataSourceProperty("CollectionOfCostPlace")> _
+    Property ParentObject As CostPlace
+        Get
+            Return MyBase.Parent
+        End Get
+        Set(value As CostPlace)
+            MyBase.Parent = value
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    <Browsable(False)> _
+    <NonPersistent()> _
+    Private ReadOnly Property CollectionOfCostPlace As XPCollection(Of CostPlace)
+        Get
+            Dim _CollectionOfCostPlace As New XPCollection(Of CostPlace)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid))
+            Return _CollectionOfCostPlace
+        End Get
+    End Property
+End Class 'Költséghely
+

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/JobNumberObjects.vb

@@ -0,0 +1,40 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+Public Class JobNumberObjects
+    Inherits HCategory
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+
+    <NonPersistent> _
+    <DataSourceProperty("CollectionOfJobNumberObjects")> _
+    Property ParentObject As JobNumberObjects
+        Get
+            Return MyBase.Parent
+        End Get
+        Set(value As JobNumberObjects)
+            MyBase.Parent = value
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    <Browsable(False)> _
+    <NonPersistent()> _
+    Private ReadOnly Property CollectionOfJobNumberObjects As XPCollection(Of JobNumberObjects)
+        Get
+            Dim _CollectionOfJobNumberObjects As New XPCollection(Of JobNumberObjects)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid))
+            Return _CollectionOfJobNumberObjects
+        End Get
+    End Property
+End Class 'Munkaszámok, projectek
+

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Popup/SetHRPersonToCostHolder.vb

@@ -0,0 +1,132 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+'<Appearance("Disable DateTo - SetHRPersonToCostHolder", AppearanceItemType:="ViewItem", Criteria:="1=1", TargetItems:="DateTo", Enabled:=False)> _
+'<Appearance("Disable DateFrom - SetHRPersonToCostHolder", AppearanceItemType:="ViewItem", Criteria:="1=1", TargetItems:="DateFrom", Enabled:=False)> _
+
+<DefaultClassOptions(), NonPersistent(), NavigationItem(False), CreatableItem(False)> _
+<Appearance("Hide SetHRPersonToCostHolderHRPerson when Mode=1", AppearanceItemType:="ViewItem", Criteria:="Mode=1", targetitems:="SetHRPersonToCostHolderHRPerson", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide SetHRPersonToCostHolderCostHolder when Mode=0", AppearanceItemType:="ViewItem", Criteria:="Mode=0", targetitems:="SetHRPersonToCostHolderCostHolder", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class SetHRPersonToCostHolder
+    Inherits BaseObject
+
+    Private _Mode As Long
+    Private _HRPerson As HRPerson
+    Private _CostHolder As CostHolder
+    Private _DateFrom As Date
+    Private _DateTo As Date
+    Private _MasterKey As Guid
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <Browsable(False)> Property Mode As Long
+        Get
+            Return _Mode
+        End Get
+        Set(value As Long)
+            SetPropertyValue("Mode", _Mode, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property MasterKey As Guid
+        Get
+            Return _MasterKey
+        End Get
+        Set(value As Guid)
+            SetPropertyValue("MasterKey", _MasterKey, value)
+        End Set
+    End Property
+    <Browsable(False)> Property HRPerson As HRPerson
+        Get
+            Return _HRPerson
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson", _HRPerson, value)
+        End Set
+    End Property
+    <Browsable(False)> Property CostHolder As CostHolder
+        Get
+            Return _CostHolder
+        End Get
+        Set(value As CostHolder)
+            SetPropertyValue("CostHolder", _CostHolder, value)
+        End Set
+    End Property
+    Property DateFrom As Date
+        Get
+            Return _DateFrom
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateFrom", _DateFrom, value)
+        End Set
+    End Property
+    Property DateTo As Date
+        Get
+            Return _DateTo
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateTo", _DateTo, value)
+        End Set
+    End Property
+
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    <Appearance("Disable OpeneObject - SetHRPersonToCostHolder", AppearanceItemType.Action, "1=1", TargetItems:="OpenObject", visibility:=Editors.ViewItemVisibility.Hide)> _
+    ReadOnly Property SetHRPersonToCostHolderHRPerson As XPCollection(Of SetHRPersonToCostHolderHRPerson)
+        Get
+            Dim _SetHRPersonToCostHolderHRPerson_Collection As New XPCollection(Of SetHRPersonToCostHolderHRPerson)(Session, CriteriaOperator.Parse("1=2"))
+            Dim _HRPerson_Collection = New XPCollection(Of HRPerson)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, CriteriaOperator.Parse("1=1"))
+            Dim _HRPerson As HRPerson
+            Dim _HRPersonCostHolder As HRPersonCostHolder
+            Dim _SetHRPersonToCostHolderHRPerson As SetHRPersonToCostHolderHRPerson
+            For Each _HRPerson In _HRPerson_Collection
+                _SetHRPersonToCostHolderHRPerson = New SetHRPersonToCostHolderHRPerson(Session)
+                _SetHRPersonToCostHolderHRPerson.MasterKey = Me._MasterKey
+                _SetHRPersonToCostHolderHRPerson.HRPerson = _HRPerson
+
+                _HRPersonCostHolder = Session.FindObject(Of HRPersonCostHolder)(CriteriaOperator.Parse("CostHolder=? And HRPerson=? And DateFrom=? And DateTo=?", Me.CostHolder, _HRPerson, Me.DateFrom, Me.DateTo))
+                If _HRPersonCostHolder IsNot Nothing Then
+                    _SetHRPersonToCostHolderHRPerson.WorkPercent = _HRPersonCostHolder.WorkPercent
+                End If
+
+                _SetHRPersonToCostHolderHRPerson_Collection.Add(_SetHRPersonToCostHolderHRPerson)
+            Next
+            Return _SetHRPersonToCostHolderHRPerson_Collection
+        End Get
+    End Property
+
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property SetHRPersonToCostHolderCostHolder As XPCollection(Of SetHRPersonToCostHolderCostHolder)
+        Get
+            Dim _SetHRPersonToCostHolderCostHolder_Collection As New XPCollection(Of SetHRPersonToCostHolderCostHolder)(Session, CriteriaOperator.Parse("1=2"))
+            Dim _CostHolder_Collection = New XPCollection(Of CostHolder)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, CriteriaOperator.Parse("1=1"))
+            Dim _CostHolder As CostHolder
+            Dim _HRPersonCostHolder As HRPersonCostHolder
+            Dim _SetHRPersonToCostHolderCostHolder As SetHRPersonToCostHolderCostHolder
+            For Each _CostHolder In _CostHolder_Collection
+                _SetHRPersonToCostHolderCostHolder = New SetHRPersonToCostHolderCostHolder(Session)
+                _SetHRPersonToCostHolderCostHolder.MasterKey = Me._MasterKey
+                _SetHRPersonToCostHolderCostHolder.CostHolder = _CostHolder
+
+                _HRPersonCostHolder = Session.FindObject(Of HRPersonCostHolder)(CriteriaOperator.Parse("CostHolder=? And HRPerson=? And DateFrom=? And DateTo=?", _CostHolder, Me.HRPerson, Me.DateFrom, Me.DateTo))
+                If _HRPersonCostHolder IsNot Nothing Then
+                    _SetHRPersonToCostHolderCostHolder.WorkPercent = _HRPersonCostHolder.WorkPercent
+                End If
+
+                _SetHRPersonToCostHolderCostHolder_Collection.Add(_SetHRPersonToCostHolderCostHolder)
+            Next
+            Return _SetHRPersonToCostHolderCostHolder_Collection
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Popup/SetHRPersonToCostHolderCostHolder.vb

@@ -0,0 +1,53 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions(), NonPersistent(), NavigationItem(False), CreatableItem(False)> _
+  <Appearance("Disable OpeneObject - SetHRPersonToCostHolderCostHolder", AppearanceItemType.Action, "1=1", TargetItems:="OpenObject", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class SetHRPersonToCostHolderCostHolder
+    Inherits BaseObject
+
+    Private _MasterKey As Guid
+    Private _CostHolder As CostHolder
+    Private _WorkPercent As Double
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <Browsable(False)> _
+    Property MasterKey As Guid
+        Get
+            Return _MasterKey
+        End Get
+        Set(value As Guid)
+            SetPropertyValue("MasterKey", _MasterKey, value)
+        End Set
+    End Property
+    Property CostHolder As CostHolder
+        Get
+            Return _CostHolder
+        End Get
+        Set(value As CostHolder)
+            SetPropertyValue("CostHolder", _CostHolder, value)
+        End Set
+    End Property
+    Property WorkPercent As Double
+        Get
+            Return _WorkPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("WorkPercent", _WorkPercent, value)
+        End Set
+    End Property
+
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Popup/SetHRPersonToCostHolderHRPerson.vb

@@ -0,0 +1,53 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions(), NonPersistent(), NavigationItem(False), CreatableItem(False)> _
+<Appearance("Disable OpeneObject - SetHRPersonToCostHolderHRPerson", AppearanceItemType.Action, "1=1", TargetItems:="OpenObject", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class SetHRPersonToCostHolderHRPerson
+    Inherits BaseObject
+
+    Private _MasterKey As Guid
+    Private _HRPerson As HRPerson
+    Private _WorkPercent As Double
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <Browsable(False)> _
+    Property MasterKey As Guid
+        Get
+            Return _MasterKey
+        End Get
+        Set(value As Guid)
+            SetPropertyValue("MasterKey", _MasterKey, value)
+        End Set
+    End Property
+    Property HRPerson As HRPerson
+        Get
+            Return _HRPerson
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson", _HRPerson, value)
+        End Set
+    End Property
+    Property WorkPercent As Double
+        Get
+            Return _WorkPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("WorkPercent", _WorkPercent, value)
+        End Set
+    End Property
+
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Rule5DMatrix.vb

@@ -0,0 +1,192 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+<CreatableItem(False)> _
+Public Class Rule5DMatrix
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _RequireUniqueObjects As Boolean
+    Private _RequireJobNumberObjects As Boolean
+    Private _RequireControlling As Boolean
+    Private _RequireCostHolder As Boolean
+    Private _RequireCostPlace As Boolean
+
+    Private _VisibleUniqueObjects As Boolean
+    Private _VisibleJobNumberObjects As Boolean
+    Private _VisibleControlling As Boolean
+    Private _VisibleCostHolder As Boolean
+    Private _VisibleCostPlace As Boolean
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+        If Session.IsNewObject(Me) Then
+            VisibleControlling = True
+            VisibleCostHolder = True
+            VisibleCostPlace = True
+            VisibleJobNumberObjects = True
+            VisibleUniqueObjects = True
+        End If
+    End Sub
+
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+
+    Property RequireUniqueObjects As Boolean
+        Get
+            Return _RequireUniqueObjects
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("RequireUniqueObjects", _RequireUniqueObjects, value)
+            If value = True Then
+                If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                    VisibleUniqueObjects = True
+                End If
+            End If
+        End Set
+    End Property
+    Property RequireJobNumberObjects As Boolean
+        Get
+            Return _RequireJobNumberObjects
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("RequireJobNumberObjects", _RequireJobNumberObjects, value)
+            If value = True Then
+                If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                    VisibleJobNumberObjects = True
+                End If
+            End If
+        End Set
+    End Property
+    Property RequireControlling As Boolean
+        Get
+            Return _RequireControlling
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("RequireControlling", _RequireControlling, value)
+            If value = True Then
+                If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                    VisibleControlling = True
+                End If
+            End If
+        End Set
+    End Property
+    Property RequireCostHolder As Boolean
+        Get
+            Return _RequireCostHolder
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("RequireCostHolder", _RequireCostHolder, value)
+            If value = True Then
+                If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                    VisibleCostHolder = True
+                End If
+            End If
+        End Set
+    End Property
+    Property RequireCostPlace As Boolean
+        Get
+            Return _RequireCostPlace
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("RequireCostPlace", _RequireCostPlace, value)
+            If value = True Then
+                If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                    VisibleCostPlace = True
+                End If
+            End If
+        End Set
+    End Property
+
+    Property VisibleUniqueObjects As Boolean
+        Get
+            Return _VisibleUniqueObjects
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("VisibleUniqueObjects", _VisibleUniqueObjects, value)
+            If value = False Then
+                If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                    RequireUniqueObjects = False
+                End If
+            End If
+        End Set
+    End Property
+    Property VisibleJobNumberObjects As Boolean
+        Get
+            Return _VisibleJobNumberObjects
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("VisibleJobNumberObjects", _VisibleJobNumberObjects, value)
+            If value = False Then
+                If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                    RequireJobNumberObjects = False
+                End If
+            End If
+        End Set
+    End Property
+    Property VisibleControlling As Boolean
+        Get
+            Return _VisibleControlling
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("VisibleControlling", _VisibleControlling, value)
+            If value = False Then
+                If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                    RequireControlling = False
+                End If
+            End If
+        End Set
+    End Property
+    Property VisibleCostHolder As Boolean
+        Get
+            Return _VisibleCostHolder
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("VisibleCostHolder", _VisibleCostHolder, value)
+            If value = False Then
+                If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                    RequireCostHolder = False
+                End If
+            End If
+        End Set
+    End Property
+    Property VisibleCostPlace As Boolean
+        Get
+            Return _VisibleCostPlace
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("VisibleCostPlace", _VisibleCostPlace, value)
+            If value = False Then
+                If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                    RequireCostPlace = False
+                End If
+            End If
+        End Set
+    End Property
+
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Rule5DforGL.vb

@@ -0,0 +1,48 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+<CreatableItem(False)> _
+Public Class Rule5DforGL
+    Inherits BaseObject
+    Private _GLDocumentType As eGLDocumentType
+    Private _Rule5DMatrix As Rule5DMatrix
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+    Property Rule5DMatrix As Rule5DMatrix
+        Get
+            Return _Rule5DMatrix
+        End Get
+        Set(value As Rule5DMatrix)
+            SetPropertyValue("Rule5DMatrix", _Rule5DMatrix, value)
+        End Set
+    End Property
+    Property GLDocumentType As eGLDocumentType
+        Get
+            Return _GLDocumentType
+        End Get
+        Set(value As eGLDocumentType)
+            SetPropertyValue("GLDocumentType", _GLDocumentType, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects.vb

@@ -0,0 +1,73 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+Public Class UniqueObjects
+    Inherits HCategory
+
+    Private _Cars As Cars
+    Private _Phones As Phones
+    Private _HRPerson As HRPerson
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+
+    <Browsable(False)> _
+    Property Cars As Cars
+        Get
+            Return _Cars
+        End Get
+        Set(value As Cars)
+            SetPropertyValue("Cars", _Cars, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property Phones As Phones
+        Get
+            Return _Phones
+        End Get
+        Set(value As Phones)
+            SetPropertyValue("Phones", _Phones, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property HRPerson As HRPerson
+        Get
+            Return _HRPerson
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson", _HRPerson, value)
+        End Set
+    End Property
+
+    <NonPersistent> _
+    <DataSourceProperty("CollectionOfUniqueObjects")> _
+    Property ParentObject As UniqueObjects
+        Get
+            Return MyBase.Parent
+        End Get
+        Set(value As UniqueObjects)
+            MyBase.Parent = value
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    <Browsable(False)> _
+    <NonPersistent()> _
+    Private ReadOnly Property CollectionOfUniqueObjects As XPCollection(Of UniqueObjects)
+        Get
+            Dim _CollectionOfUniqueObjects As New XPCollection(Of UniqueObjects)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid))
+            Return _CollectionOfUniqueObjects
+        End Get
+    End Property
+End Class 'Egyedi azonosítók
+

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.Designer.vb

@@ -0,0 +1,51 @@
+Partial Class UniqueObjects_VC
+
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+		MyClass.New()
+
+		'Required for Windows.Forms Class Composition Designer support
+		Container.Add(Me)
+
+	End Sub
+
+	'Component overrides dispose to clean up the component list.
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+		If disposing AndAlso components IsNot Nothing Then
+			components.Dispose()
+		End If
+		MyBase.Dispose(disposing)
+	End Sub
+
+	'Required by the Component Designer
+	Private components As System.ComponentModel.IContainer
+
+	'NOTE: The following procedure is required by the Component Designer
+	'It can be modified using the Component Designer.
+	'Do not modify it using the code editor.
+	<System.Diagnostics.DebuggerStepThrough()> _
+	Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.aMergeUniqueObjects = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aMergeUniqueObjects
+        '
+        Me.aMergeUniqueObjects.Caption = "aMergeUniqueObjects"
+        Me.aMergeUniqueObjects.Category = "ObjectsCreation"
+        Me.aMergeUniqueObjects.ConfirmationMessage = "Do you want to execute?"
+        Me.aMergeUniqueObjects.Id = "aMergeUniqueObjects"
+        Me.aMergeUniqueObjects.ImageName = Nothing
+        Me.aMergeUniqueObjects.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aMergeUniqueObjects.Shortcut = Nothing
+        Me.aMergeUniqueObjects.Tag = Nothing
+        Me.aMergeUniqueObjects.TargetObjectsCriteria = Nothing
+        Me.aMergeUniqueObjects.TargetViewId = "UniqueObjects_ListView_Deleted"
+        Me.aMergeUniqueObjects.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aMergeUniqueObjects.ToolTip = Nothing
+        Me.aMergeUniqueObjects.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+
+    End Sub
+    Friend WithEvents aMergeUniqueObjects As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="aMergeUniqueObjects.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.vb

@@ -0,0 +1,75 @@
+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.Data.Filtering
+Imports System.Reflection
+
+Public Class UniqueObjects_VC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    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 = "UniqueObjects_ListView_Deleted" Then
+            If TryCast(View, ListView) IsNot Nothing Then
+                If TryCast(View, ListView).CollectionSource IsNot Nothing Then
+                    If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then
+                        If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection) IsNot Nothing Then
+                            If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection IsNot Nothing Then
+                                If TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, DevExpress.Xpo.XPCollection) IsNot Nothing Then
+                                    TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, DevExpress.Xpo.XPCollection).SelectDeleted = True
+                                End If
+                            End If
+                        End If
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub aMergeUniqueObjects_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aMergeUniqueObjects.Execute
+        Try
+            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _Object As Object
+            Dim _UniqueObjects As UniqueObjects
+            Dim _UniqueObjectsActive As UniqueObjects
+
+            For Each _UniqueObjects In View.SelectedObjects
+
+                _UniqueObjectsActive = _onew.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _UniqueObjects.Name))
+                If _UniqueObjectsActive IsNot Nothing Then
+                    For Each _Object In _onew.Session.CollectReferencingObjects(_onew.GetObjectByKey(Of UniqueObjects)(_UniqueObjects.Oid))
+                        Try
+                            For Each _PropertyInfo As PropertyInfo In _Object.GetType.GetProperties
+                                If _PropertyInfo.PropertyType.Name = "UniqueObjects" Then
+                                    _PropertyInfo.SetValue(_Object, _onew.GetObjectByKey(Of UniqueObjects)(_UniqueObjectsActive.Oid), Nothing)
+                                End If
+                            Next
+                        Catch ex As Exception
+                            Throw New Exception(ex.Message)
+                        End Try
+                    Next
+                End If
+            Next
+            _onew.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        Finally
+            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        End Try
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccounts.vb

@@ -0,0 +1,221 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+<Appearance("ChartOfAccounts 1", AppearanceItemType:="ViewItem", criteria:="AccountNumber in ('1','2','3','4','5','8','9')", Fontstyle:=Drawing.FontStyle.Bold, targetitems:="*", context:="*")> _
+Public Class ChartOfAccounts
+    Inherits HCategory
+    Private _AccountYear As Long
+    Private _AccountNumber As String
+    Private _IsParent As Boolean = False
+    Private _ChartOfAccounts1 As ChartOfAccounts
+    Private _ChartOfAccounts2 As ChartOfAccounts
+    Private _ChartOfAccounts3 As ChartOfAccounts
+    Private _ChartOfAccounts4 As ChartOfAccounts
+    Private _ChartOfAccounts5 As ChartOfAccounts
+    Private _ChartOfAccounts6 As ChartOfAccounts
+    Private _ChartOfAccounts7 As ChartOfAccounts
+    Private _ChartOfAccounts8 As ChartOfAccounts
+
+    Private _ChartOfAccounts_Parent As ChartOfAccounts
+    Private _RecordCount As Long = 0 'Az erre a számlára könyvelt tételek száma
+
+    Private _DebitAmountHUF As Double
+    Private _CreditAmountHUF As Double
+
+    Protected Overrides Sub OnDeleting()
+        MyBase.OnDeleting()
+        If Me.Parent IsNot Nothing Then
+            If Me.Parent.Children.Count = 1 Then
+                TryCast(Me.Parent, ChartOfAccounts).IsParent = False
+            End If
+        End If
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If IsDeleted = False Then
+
+            Dim _c As New XPCollection(PersistentCriteriaEvaluationBehavior.InTransaction, Session, GetType(ChartOfAccounts), CriteriaOperator.Parse("Children.Count=0 and IsParent=True"))
+            Dim _ChartOfAccounts As ChartOfAccounts
+
+            For Each _ChartOfAccounts In _c
+                If _ChartOfAccounts.Children.Count = 0 Then
+                    _ChartOfAccounts.IsParent = False
+                    _ChartOfAccounts.Save()
+                End If
+            Next
+            Dim _c1 As New XPCollection(PersistentCriteriaEvaluationBehavior.InTransaction, Session, GetType(ChartOfAccounts), CriteriaOperator.Parse("Children.Count<>0 and IsParent=False"))
+            Dim _ChartOfAccountsX As ChartOfAccounts
+
+            For Each _ChartOfAccountsX In _c1
+                If _ChartOfAccountsX.Children.Count <> 0 Then
+                    _ChartOfAccountsX.IsParent = True
+                    _ChartOfAccountsX.Save()
+                End If
+            Next
+
+            ' -- A szülő számlák begyűjtése a gyökérig
+            Me.ChartOfAccounts1 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 1), Me.AccountYear))
+            Me.ChartOfAccounts2 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 2), Me.AccountYear))
+            Me.ChartOfAccounts3 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 3), Me.AccountYear))
+            Me.ChartOfAccounts4 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 4), Me.AccountYear))
+            Me.ChartOfAccounts5 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 5), Me.AccountYear))
+            Me.ChartOfAccounts6 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 6), Me.AccountYear))
+            Me.ChartOfAccounts7 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 7), Me.AccountYear))
+            Me.ChartOfAccounts8 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 8), Me.AccountYear))
+        End If
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        AccountYear = Year(Now)
+    End Sub
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+
+    <RuleRequiredField("ChartOfAccounts-AccountYear", DefaultContexts.Save)> _
+    Property AccountYear As Long
+        Get
+            Return _AccountYear
+        End Get
+        Set(value As Long)
+            SetPropertyValue("AccountYear", _AccountYear, value)
+        End Set
+    End Property
+    Property AccountNumber() As String
+        Get
+            'If Session.IsNewObject(Me) And Not Session.IsObjectsSaving And Me.Name IsNot Nothing Then
+            If Not Session.IsObjectsSaving Then
+                If Name IsNot Nothing Then
+                    _AccountNumber = Me.Name.Split(" ")(0)
+                End If
+            End If
+            Return _AccountNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("AccountNumber", _AccountNumber, value)
+        End Set
+    End Property
+    Property IsParent() As Boolean
+        Get
+            Return _IsParent
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsParent", _IsParent, value)
+        End Set
+    End Property
+    <DataSourceCriteria("AccountYear='@This.AccountYear'")> _
+    Property ChartOfAccounts_Parent As ChartOfAccounts
+        Get
+            Return TryCast(Me.Parent, ChartOfAccounts)
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts_Parent", _ChartOfAccounts_Parent, value)
+            Me.Parent = TryCast(value, HCategory)
+        End Set
+    End Property
+
+    Property ChartOfAccounts1 As ChartOfAccounts
+        Get
+            Return _ChartOfAccounts1
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts1", _ChartOfAccounts1, value)
+        End Set
+    End Property
+    Property ChartOfAccounts2 As ChartOfAccounts
+        Get
+            Return _ChartOfAccounts2
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts2", _ChartOfAccounts2, value)
+        End Set
+    End Property
+    Property ChartOfAccounts3 As ChartOfAccounts
+        Get
+            Return _ChartOfAccounts3
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts3", _ChartOfAccounts3, value)
+        End Set
+    End Property
+    Property ChartOfAccounts4 As ChartOfAccounts
+        Get
+            Return _ChartOfAccounts4
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts4", _ChartOfAccounts4, value)
+        End Set
+    End Property
+    Property ChartOfAccounts5 As ChartOfAccounts
+        Get
+            Return _ChartOfAccounts5
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts5", _ChartOfAccounts5, value)
+        End Set
+    End Property
+    Property ChartOfAccounts6 As ChartOfAccounts
+        Get
+            Return _ChartOfAccounts6
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts6", _ChartOfAccounts6, value)
+        End Set
+    End Property
+    Property ChartOfAccounts7 As ChartOfAccounts
+        Get
+            Return _ChartOfAccounts7
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts7", _ChartOfAccounts7, value)
+        End Set
+    End Property
+    Property ChartOfAccounts8 As ChartOfAccounts
+        Get
+            Return _ChartOfAccounts8
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts8", _ChartOfAccounts8, value)
+        End Set
+    End Property
+
+    Property RecordCount As Long
+        Get
+            Return _RecordCount
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("RecordCount", _RecordCount, value)
+        End Set
+    End Property
+
+    Sub Reconfigure_ChartOfAccounts(ByVal _ObjectSpace As Xpo.XPObjectSpace) 'Az eljárás beállítja a szülő paramétereket
+        Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_ObjectSpace.Session, CriteriaOperator.Parse(""))
+        Dim _COA As ChartOfAccounts
+
+        For Each _COA In _ChartOfAccounts_Collection
+            _COA.ChartOfAccounts1 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 1), _COA.AccountYear))
+            _COA.ChartOfAccounts2 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 2), _COA.AccountYear))
+            _COA.ChartOfAccounts3 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 3), _COA.AccountYear))
+            _COA.ChartOfAccounts4 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 4), _COA.AccountYear))
+            _COA.ChartOfAccounts5 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 5), _COA.AccountYear))
+            _COA.ChartOfAccounts6 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 6), _COA.AccountYear))
+            _COA.ChartOfAccounts7 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 7), _COA.AccountYear))
+            _COA.ChartOfAccounts8 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 8), _COA.AccountYear))
+            _COA.Save()
+        Next
+        _ObjectSpace.CommitChanges()
+    End Sub
+
+End Class 'Főkönyvi számlaszámok
+

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance.vb

@@ -0,0 +1,113 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.Linq
+Imports System.Text
+Imports DevExpress.Xpo
+Imports DevExpress.ExpressApp
+Imports System.ComponentModel
+Imports DevExpress.ExpressApp.DC
+Imports DevExpress.Data.Filtering
+Imports DevExpress.Persistent.Base
+Imports System.Collections.Generic
+Imports DevExpress.ExpressApp.Model
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+'<ImageName("BO_Contact")> _
+'<DefaultProperty("DisplayMemberNameForLookupEditorsOfThisType")> _
+'<DefaultListViewOptions(MasterDetailMode.ListViewOnly, False, NewItemRowPosition.None)> _
+'<Persistent("DatabaseTableName")> _
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class ChartOfAccountsBallance ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701).
+    Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146).
+
+    Private _CustomersFrom As CustomersFrom
+    Private _AccountYear As Long
+    Private _AccountNumber As String
+    Private _ShortName As String
+    Private _DebitAmountHUF As Double
+    Private _CreditAmountHUF As Double
+    Private _BallanceHUF As Double
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834).
+    End Sub
+
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property AccountYear As Long
+        Get
+            Return _AccountYear
+        End Get
+        Set(value As Long)
+            SetPropertyValue("AccountYear", _AccountYear, value)
+        End Set
+    End Property
+    Property AccountNumber As String
+        Get
+            Return _AccountNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("AccountNumber", _AccountNumber, value)
+        End Set
+    End Property
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property DebitAmountHUF As Double
+        Get
+            Return _DebitAmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DebitAmountHUF", _DebitAmountHUF, value)
+        End Set
+    End Property
+    Property CreditAmountHUF As Double
+        Get
+            Return _CreditAmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CreditAmountHUF", _CreditAmountHUF, value)
+        End Set
+    End Property
+    Property BallanceHUF As Double
+        Get
+            Return _BallanceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("BallanceHUF", _BallanceHUF, value)
+        End Set
+    End Property
+    'Private _PersistentProperty As String
+    '<XafDisplayName("My display name"), ToolTip("My hint message")> _
+    '<ModelDefault("EditMask", "(000)-00"), Index(0), VisibleInListView(False)> _
+    '<Persistent("DatabaseColumnName"), RuleRequiredField(DefaultContexts.Save)> _
+    'Public Property PersistentProperty() As String
+    '    Get
+    '        Return _PersistentProperty
+    '    End Get
+    '    Set(ByVal value As String)
+    '        SetPropertyValue("PersistentProperty", _PersistentProperty, value)
+    '    End Set
+    'End Property
+
+    '<Action(Caption:="My UI Action", ConfirmationMessage:="Are you sure?", ImageName:="Attention", AutoCommit:=True)> _
+    'Public Sub ActionMethod()
+    '    ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619).
+    '    Me.PersistentProperty = "Paid"
+    'End Sub
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance_VC.Designer.vb

@@ -0,0 +1,49 @@
+Partial Class ChartOfAccountsBallance_VC
+
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+		MyClass.New()
+
+		'Required for Windows.Forms Class Composition Designer support
+		Container.Add(Me)
+
+	End Sub
+
+	'Component overrides dispose to clean up the component list.
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+		If disposing AndAlso components IsNot Nothing Then
+			components.Dispose()
+		End If
+		MyBase.Dispose(disposing)
+	End Sub
+
+	'Required by the Component Designer
+	Private components As System.ComponentModel.IContainer
+
+	'NOTE: The following procedure is required by the Component Designer
+	'It can be modified using the Component Designer.
+	'Do not modify it using the code editor.
+	<System.Diagnostics.DebuggerStepThrough()> _
+	Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.aCreateChartOfAccountsBallance = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aCreateChartOfAccountsBallance
+        '
+        Me.aCreateChartOfAccountsBallance.Caption = "aCreate Chart Of Accounts Ballance"
+        Me.aCreateChartOfAccountsBallance.ConfirmationMessage = Nothing
+        Me.aCreateChartOfAccountsBallance.Id = "aCreateChartOfAccountsBallance"
+        Me.aCreateChartOfAccountsBallance.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccountsBallance)
+        Me.aCreateChartOfAccountsBallance.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aCreateChartOfAccountsBallance.ToolTip = Nothing
+        Me.aCreateChartOfAccountsBallance.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'ChartOfAccountsBallance_VC
+        '
+        Me.TypeOfView = GetType(DevExpress.ExpressApp.View)
+
+    End Sub
+    Friend WithEvents aCreateChartOfAccountsBallance As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance_VC.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="aCreateChartOfAccountsBallance.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance_VC.vb

@@ -0,0 +1,42 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.Linq
+Imports System.Text
+Imports DevExpress.ExpressApp
+Imports DevExpress.Data.Filtering
+Imports System.Collections.Generic
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.Utils
+Imports DevExpress.ExpressApp.Layout
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.ExpressApp.Templates
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.Model.NodeGenerators
+
+' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic.
+Partial Public Class ChartOfAccountsBallance_VC
+    Inherits ViewController
+    Public Sub New()
+        InitializeComponent()
+        RegisterActions(components)
+        ' Target required Views (via the TargetXXX properties) and create their Actions.
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        ' Perform various tasks depending on the target View.
+    End Sub
+    Protected Overrides Sub OnViewControlsCreated()
+        MyBase.OnViewControlsCreated()
+        ' Access and customize the target View control.
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        ' Unsubscribe from previously subscribed events and release other references and resources.
+        MyBase.OnDeactivated()
+    End Sub
+
+    Private Sub aCreateChartOfAccountsBallance_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCreateChartOfAccountsBallance.Execute
+
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.Designer.vb

@@ -0,0 +1,178 @@
+Partial Class ChartOfAccountsVC
+
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+		MyClass.New()
+
+		'Required for Windows.Forms Class Composition Designer support
+		Container.Add(Me)
+
+	End Sub
+
+	'Component overrides dispose to clean up the component list.
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+		If disposing AndAlso components IsNot Nothing Then
+			components.Dispose()
+		End If
+		MyBase.Dispose(disposing)
+	End Sub
+
+	'Required by the Component Designer
+	Private components As System.ComponentModel.IContainer
+
+	'NOTE: The following procedure is required by the Component Designer
+	'It can be modified using the Component Designer.
+	'Do not modify it using the code editor.
+	<System.Diagnostics.DebuggerStepThrough()> _
+	Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.aReCreateChartOfAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateChartOfAccountsYear = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aReCreateChartOfAccountsParent = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aReCreateChartOfAccountsCount = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewGLRowsfromChartOfAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCloseChartOfAccountsYear = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateCartOfAccountsYearAny = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCloseChartOfAccountsYearBack = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aReCreateChartOfAccounts
+        '
+        Me.aReCreateChartOfAccounts.Caption = "aRe Create Chart Of Accounts"
+        Me.aReCreateChartOfAccounts.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aReCreateChartOfAccounts.Id = "aReCreateChartOfAccounts"
+        Me.aReCreateChartOfAccounts.ImageName = Nothing
+        Me.aReCreateChartOfAccounts.Shortcut = Nothing
+        Me.aReCreateChartOfAccounts.Tag = Nothing
+        Me.aReCreateChartOfAccounts.TargetObjectsCriteria = Nothing
+        Me.aReCreateChartOfAccounts.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccounts)
+        Me.aReCreateChartOfAccounts.TargetViewId = ""
+        Me.aReCreateChartOfAccounts.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aReCreateChartOfAccounts.ToolTip = Nothing
+        Me.aReCreateChartOfAccounts.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aCreateChartOfAccountsYear
+        '
+        Me.aCreateChartOfAccountsYear.Caption = "aCreate Chart Of Accounts Year"
+        Me.aCreateChartOfAccountsYear.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aCreateChartOfAccountsYear.Id = "aCreateChartOfAccountsYear"
+        Me.aCreateChartOfAccountsYear.ImageName = Nothing
+        Me.aCreateChartOfAccountsYear.Shortcut = Nothing
+        Me.aCreateChartOfAccountsYear.Tag = Nothing
+        Me.aCreateChartOfAccountsYear.TargetObjectsCriteria = Nothing
+        Me.aCreateChartOfAccountsYear.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccountsYear)
+        Me.aCreateChartOfAccountsYear.TargetViewId = Nothing
+        Me.aCreateChartOfAccountsYear.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aCreateChartOfAccountsYear.ToolTip = Nothing
+        Me.aCreateChartOfAccountsYear.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aReCreateChartOfAccountsParent
+        '
+        Me.aReCreateChartOfAccountsParent.Caption = "aRe Create Chart Of Accounts Parent"
+        Me.aReCreateChartOfAccountsParent.ConfirmationMessage = Nothing
+        Me.aReCreateChartOfAccountsParent.Id = "aReCreateChartOfAccountsParent"
+        Me.aReCreateChartOfAccountsParent.ImageName = Nothing
+        Me.aReCreateChartOfAccountsParent.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aReCreateChartOfAccountsParent.Shortcut = Nothing
+        Me.aReCreateChartOfAccountsParent.Tag = Nothing
+        Me.aReCreateChartOfAccountsParent.TargetObjectsCriteria = Nothing
+        Me.aReCreateChartOfAccountsParent.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccounts)
+        Me.aReCreateChartOfAccountsParent.TargetViewId = Nothing
+        Me.aReCreateChartOfAccountsParent.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aReCreateChartOfAccountsParent.ToolTip = Nothing
+        Me.aReCreateChartOfAccountsParent.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aReCreateChartOfAccountsCount
+        '
+        Me.aReCreateChartOfAccountsCount.Caption = "aRe Create Chart Of Accounts Count"
+        Me.aReCreateChartOfAccountsCount.ConfirmationMessage = Nothing
+        Me.aReCreateChartOfAccountsCount.Id = "aReCreateChartOfAccountsCount"
+        Me.aReCreateChartOfAccountsCount.ImageName = Nothing
+        Me.aReCreateChartOfAccountsCount.Shortcut = Nothing
+        Me.aReCreateChartOfAccountsCount.Tag = Nothing
+        Me.aReCreateChartOfAccountsCount.TargetObjectsCriteria = Nothing
+        Me.aReCreateChartOfAccountsCount.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccounts)
+        Me.aReCreateChartOfAccountsCount.TargetViewId = Nothing
+        Me.aReCreateChartOfAccountsCount.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aReCreateChartOfAccountsCount.ToolTip = Nothing
+        Me.aReCreateChartOfAccountsCount.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aViewGLRowsfromChartOfAccounts
+        '
+        Me.aViewGLRowsfromChartOfAccounts.Caption = "aView GLRowsfrom Chart Of Accounts"
+        Me.aViewGLRowsfromChartOfAccounts.ConfirmationMessage = Nothing
+        Me.aViewGLRowsfromChartOfAccounts.Id = "aViewGLRowsfromChartOfAccounts"
+        Me.aViewGLRowsfromChartOfAccounts.ImageName = Nothing
+        Me.aViewGLRowsfromChartOfAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewGLRowsfromChartOfAccounts.Shortcut = Nothing
+        Me.aViewGLRowsfromChartOfAccounts.Tag = Nothing
+        Me.aViewGLRowsfromChartOfAccounts.TargetObjectsCriteria = Nothing
+        Me.aViewGLRowsfromChartOfAccounts.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccounts)
+        Me.aViewGLRowsfromChartOfAccounts.TargetViewId = Nothing
+        Me.aViewGLRowsfromChartOfAccounts.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aViewGLRowsfromChartOfAccounts.ToolTip = Nothing
+        Me.aViewGLRowsfromChartOfAccounts.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aCloseChartOfAccountsYear
+        '
+        Me.aCloseChartOfAccountsYear.Caption = "aClose Chart Of Accounts Year"
+        Me.aCloseChartOfAccountsYear.ConfirmationMessage = "Are you sure ?"
+        Me.aCloseChartOfAccountsYear.Id = "aCloseChartOfAccountsYear"
+        Me.aCloseChartOfAccountsYear.ImageName = Nothing
+        Me.aCloseChartOfAccountsYear.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCloseChartOfAccountsYear.Shortcut = Nothing
+        Me.aCloseChartOfAccountsYear.Tag = Nothing
+        Me.aCloseChartOfAccountsYear.TargetObjectsCriteria = Nothing
+        Me.aCloseChartOfAccountsYear.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccountsYear)
+        Me.aCloseChartOfAccountsYear.TargetViewId = Nothing
+        Me.aCloseChartOfAccountsYear.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
+        Me.aCloseChartOfAccountsYear.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aCloseChartOfAccountsYear.ToolTip = Nothing
+        Me.aCloseChartOfAccountsYear.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aCreateCartOfAccountsYearAny
+        '
+        Me.aCreateCartOfAccountsYearAny.AcceptButtonCaption = Nothing
+        Me.aCreateCartOfAccountsYearAny.CancelButtonCaption = Nothing
+        Me.aCreateCartOfAccountsYearAny.Caption = "aCreate Cart Of Accounts Year Any"
+        Me.aCreateCartOfAccountsYearAny.ConfirmationMessage = Nothing
+        Me.aCreateCartOfAccountsYearAny.Id = "aCreateCartOfAccountsYearAny"
+        Me.aCreateCartOfAccountsYearAny.ImageName = Nothing
+        Me.aCreateCartOfAccountsYearAny.Shortcut = Nothing
+        Me.aCreateCartOfAccountsYearAny.Tag = Nothing
+        Me.aCreateCartOfAccountsYearAny.TargetObjectsCriteria = Nothing
+        Me.aCreateCartOfAccountsYearAny.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccountsYear)
+        Me.aCreateCartOfAccountsYearAny.TargetViewId = Nothing
+        Me.aCreateCartOfAccountsYearAny.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
+        Me.aCreateCartOfAccountsYearAny.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aCreateCartOfAccountsYearAny.ToolTip = Nothing
+        Me.aCreateCartOfAccountsYearAny.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aCloseChartOfAccountsYearBack
+        '
+        Me.aCloseChartOfAccountsYearBack.Caption = "aClose Chart Of Accounts Year Back"
+        Me.aCloseChartOfAccountsYearBack.ConfirmationMessage = "Are you sure ?"
+        Me.aCloseChartOfAccountsYearBack.Id = "aCloseChartOfAccountsYearBack"
+        Me.aCloseChartOfAccountsYearBack.ImageName = Nothing
+        Me.aCloseChartOfAccountsYearBack.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCloseChartOfAccountsYearBack.Shortcut = Nothing
+        Me.aCloseChartOfAccountsYearBack.Tag = Nothing
+        Me.aCloseChartOfAccountsYearBack.TargetObjectsCriteria = Nothing
+        Me.aCloseChartOfAccountsYearBack.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccountsYear)
+        Me.aCloseChartOfAccountsYearBack.TargetViewId = Nothing
+        Me.aCloseChartOfAccountsYearBack.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
+        Me.aCloseChartOfAccountsYearBack.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aCloseChartOfAccountsYearBack.ToolTip = Nothing
+        Me.aCloseChartOfAccountsYearBack.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+
+    End Sub
+    Friend WithEvents aReCreateChartOfAccounts As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateChartOfAccountsYear As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aReCreateChartOfAccountsParent As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aReCreateChartOfAccountsCount As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewGLRowsfromChartOfAccounts As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCloseChartOfAccountsYear As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateCartOfAccountsYearAny As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCloseChartOfAccountsYearBack As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.resx

@@ -0,0 +1,147 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="aReCreateChartOfAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 276</value>
+  </metadata>
+  <metadata name="aCreateChartOfAccountsYear.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 128</value>
+  </metadata>
+  <metadata name="aReCreateChartOfAccountsParent.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 239</value>
+  </metadata>
+  <metadata name="aReCreateChartOfAccountsCount.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 202</value>
+  </metadata>
+  <metadata name="aViewGLRowsfromChartOfAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 165</value>
+  </metadata>
+  <metadata name="aCloseChartOfAccountsYear.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 91</value>
+  </metadata>
+  <metadata name="aCreateCartOfAccountsYearAny.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 54</value>
+  </metadata>
+  <metadata name="aCloseChartOfAccountsYearBack.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>462, 54</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.vb

@@ -0,0 +1,747 @@
+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
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.CloneObject
+
+Imports System.Linq
+Imports System.Linq.Expressions
+
+Public Class ChartOfAccountsVC
+    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()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    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)
+        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)
+        End If
+        If View.Id = "ChartOfAccountsYear_ChartOfAccounts_ListView" Then
+            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)
+        End If
+    End Sub
+    Private Sub aReCreateChartOfAccounts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCreateChartOfAccounts.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
+        Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_uow)
+        Dim _ChartOfAccounts As ChartOfAccounts
+
+        Dim _AccountNumber As String = ""
+        Dim _AccountNumber_Parent As String = ""
+
+        RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count)
+        For Each _ChartOfAccounts In _ChartOfAccounts_Collection
+            RaiseEvent DoWork()
+
+            RecursiveSetParent(_uow, _ChartOfAccounts.AccountYear, _ChartOfAccounts.AccountNumber, _ChartOfAccounts)
+
+            _ChartOfAccounts.ChartOfAccounts1 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 1), _ChartOfAccounts.AccountYear))
+            _ChartOfAccounts.ChartOfAccounts2 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 2), _ChartOfAccounts.AccountYear))
+            _ChartOfAccounts.ChartOfAccounts3 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 3), _ChartOfAccounts.AccountYear))
+            _ChartOfAccounts.ChartOfAccounts4 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 4), _ChartOfAccounts.AccountYear))
+            _ChartOfAccounts.ChartOfAccounts5 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 5), _ChartOfAccounts.AccountYear))
+            _ChartOfAccounts.ChartOfAccounts6 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 6), _ChartOfAccounts.AccountYear))
+            _ChartOfAccounts.ChartOfAccounts7 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 7), _ChartOfAccounts.AccountYear))
+            _ChartOfAccounts.ChartOfAccounts8 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 8), _ChartOfAccounts.AccountYear))
+        Next
+        _uow.CommitChanges()
+        RaiseEvent FinalWork
+    End Sub
+    Sub RecursiveSetParent(_uow As UnitOfWork, _Year As Long, _AccountNumber As String, _ChartOfAccount_Set As ChartOfAccounts)
+
+        Dim _AccountNumber_Parent As String = LTrim(RTrim(Mid(_AccountNumber, 1, Len(_AccountNumber) - 1)))
+        Dim _ChartOfAccounts_Parent As ChartOfAccounts
+
+        If _AccountNumber_Parent = "" Then
+        Else
+            _ChartOfAccounts_Parent = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _Year, _AccountNumber_Parent))
+            If _ChartOfAccounts_Parent Is Nothing Then
+                RecursiveSetParent(_uow, _Year, _AccountNumber_Parent, _ChartOfAccount_Set)
+            Else
+                _ChartOfAccount_Set.Parent = _ChartOfAccounts_Parent
+                _uow.CommitChanges()
+
+            End If
+        End If
+    End Sub
+
+    Private Sub aCreateChartOfAccountsYear_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateChartOfAccountsYear.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+
+        Dim _ChartOfAccountsYear As ChartOfAccountsYear
+        Dim _ChartOfAccounts_New As ChartOfAccounts
+
+        Dim _CurrentYear As Long = GetSQLTime(_ocur.Session).Year
+        Dim _PrevYear As Long = GetSQLTime(_ocur.Session).Year - 1
+        Dim _FirstDayOfYear = GeneralFunction.FirstDayOfYear(GetSQLTime(_ocur.Session))
+        Dim _LastDayOfYear = GeneralFunction.LastDayOfYear(GetSQLTime(_ocur.Session))
+
+        _ChartOfAccountsYear = _ocur.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_ocur.Session).Year))
+
+        If _ChartOfAccountsYear Is Nothing Then
+            _ChartOfAccountsYear = _ocur.CreateObject(Of ChartOfAccountsYear)()
+            _ChartOfAccountsYear.AccountYear = GetSQLTime(_ocur.Session).Year
+
+            Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
+            Dim _ChartOfAccounts As ChartOfAccounts
+
+            RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count)
+            For Each _ChartOfAccounts In _ChartOfAccounts_Collection
+                RaiseEvent DoWork()
+                _ChartOfAccounts_New = _ocur.CreateObject(Of ChartOfAccounts)()
+                _ChartOfAccounts_New.Name = _ChartOfAccounts.Name
+                _ChartOfAccounts_New.Parent = Nothing
+                _ChartOfAccounts_New.AccountNumber = _ChartOfAccounts.AccountNumber
+                _ChartOfAccounts_New.AccountYear = _ChartOfAccountsYear.AccountYear
+                _ocur.CommitChanges()
+            Next
+            _ocur.CommitChanges()
+            RaiseEvent FinalWork
+
+            _ChartOfAccounts_Collection = New XPCollection(Of ChartOfAccounts)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
+            RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count)
+            For Each _ChartOfAccounts In _ChartOfAccounts_Collection
+                RaiseEvent DoWork()
+                Me.RecursiveSetParent(_ocur.Session, _CurrentYear, _ChartOfAccounts.AccountNumber, _ChartOfAccounts)
+                _ocur.CommitChanges()
+            Next
+            _ocur.CommitChanges()
+            RaiseEvent FinalWork
+
+        End If
+        '// VAT -> ÁFA megnyitása, paraméterek átmásolása
+        Dim _VATYear_Collection_CurrentYear As New XPCollection(Of VATYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
+        Dim _VATYear_Collection_PrevYear As New XPCollection(Of VATYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
+        Dim _VATYear_PrevYear As VATYear
+        Dim _VATYear_CurrentYear As VATYear
+        If _VATYear_Collection_CurrentYear.Count <= 0 Then
+            RaiseEvent InitWork(1, 1, _VATYear_Collection_PrevYear.Count)
+            For Each _VATYear_PrevYear In _VATYear_Collection_PrevYear
+                RaiseEvent DoWork()
+                _VATYear_CurrentYear = _ocur.FindObject(Of VATYear)(CriteriaOperator.Parse("AccountYear=? and VAT=?", _CurrentYear, _VATYear_PrevYear.VAT))
+                If _VATYear_CurrentYear Is Nothing Then
+                    _VATYear_CurrentYear = _ocur.CreateObject(Of VATYear)()
+                    _VATYear_CurrentYear.VAT = _VATYear_PrevYear.VAT
+                    _VATYear_CurrentYear.AccountYear = _CurrentYear
+                    If _VATYear_PrevYear.ChartOfAccountsIn IsNot Nothing Then
+                        _VATYear_CurrentYear.ChartOfAccountsIn = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _VATYear_PrevYear.ChartOfAccountsIn.AccountNumber, _CurrentYear))
+                    End If
+                    If _VATYear_PrevYear.ChartOfAccountsOut IsNot Nothing Then
+                        _VATYear_CurrentYear.ChartOfAccountsOut = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _VATYear_PrevYear.ChartOfAccountsOut.AccountNumber, _CurrentYear))
+                    End If
+                End If
+            Next
+            _ocur.CommitChanges()
+            RaiseEvent FinalWork
+        End If
+
+        '// Controlling -> Kontrollszámok megnyitása, paraméterek átmásolása
+        Dim _ControllingYear_Collection_CurrentYear As New XPCollection(Of ControllingYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
+        Dim _ControllingYear_Collection_PrevYear As New XPCollection(Of ControllingYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
+        Dim _ControllingYear_PrevYear As ControllingYear
+        Dim _ControllingYear_CurrentYear As ControllingYear
+        If _ControllingYear_Collection_CurrentYear.Count <= 0 Then
+            RaiseEvent InitWork(1, 1, _ControllingYear_Collection_PrevYear.Count)
+            For Each _ControllingYear_PrevYear In _ControllingYear_Collection_PrevYear
+                RaiseEvent DoWork()
+                _ControllingYear_CurrentYear = _ocur.FindObject(Of ControllingYear)(CriteriaOperator.Parse("AccountYear=? and Controlling=?", _CurrentYear, _ControllingYear_PrevYear.Controlling))
+                If _ControllingYear_CurrentYear Is Nothing Then
+                    _ControllingYear_CurrentYear = _ocur.CreateObject(Of ControllingYear)()
+                    _ControllingYear_CurrentYear.Controlling = _ControllingYear_PrevYear.Controlling
+                    _ControllingYear_CurrentYear.AccountYear = _CurrentYear
+                    If _ControllingYear_PrevYear.ChartOfAccounts IsNot Nothing Then
+                        _ControllingYear_CurrentYear.ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts) _
+                            (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ControllingYear_PrevYear.ChartOfAccounts.AccountNumber, _CurrentYear))
+                    End If
+                    If _ControllingYear_PrevYear.ChartOfAccounts2 IsNot Nothing Then
+                        _ControllingYear_CurrentYear.ChartOfAccounts2 = _ocur.FindObject(Of ChartOfAccounts) _
+                            (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ControllingYear_PrevYear.ChartOfAccounts2.AccountNumber, _CurrentYear))
+                    End If
+                End If
+            Next
+            _ocur.CommitChanges()
+            RaiseEvent FinalWork
+        End If
+        '// CustomersGLParameters -> Ügyfél fõkönyvi kategória megnyitása
+        Dim _CustomersGLParametersYear_Collection_CurrentYear As New XPCollection(Of CustomersGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
+        Dim _CustomersGLParametersYear_Collection_PrevYear As New XPCollection(Of CustomersGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
+        Dim _CustomersGLParametersYear_PrevYear As CustomersGLParametersYear
+        Dim _CustomersGLParametersYear_CurrentYear As CustomersGLParametersYear
+        If _CustomersGLParametersYear_Collection_CurrentYear.Count <= 0 Then
+            RaiseEvent InitWork(1, 1, _CustomersGLParametersYear_Collection_PrevYear.Count)
+            For Each _CustomersGLParametersYear_PrevYear In _CustomersGLParametersYear_Collection_PrevYear
+                RaiseEvent DoWork()
+                _CustomersGLParametersYear_CurrentYear = _ocur.FindObject(Of CustomersGLParametersYear)(CriteriaOperator.Parse("AccountYear=? and CustomersGLParameters=?", _CurrentYear, _CustomersGLParametersYear_PrevYear.CustomersGLParameters))
+                If _CustomersGLParametersYear_CurrentYear Is Nothing Then
+                    _CustomersGLParametersYear_CurrentYear = _ocur.CreateObject(Of CustomersGLParametersYear)()
+                    _CustomersGLParametersYear_CurrentYear.CustomersGLParameters = _CustomersGLParametersYear_PrevYear.CustomersGLParameters
+                    _CustomersGLParametersYear_CurrentYear.AccountYear = _CurrentYear
+
+                    If _CustomersGLParametersYear_PrevYear.ChartOfAccountsIn IsNot Nothing Then
+                        _CustomersGLParametersYear_CurrentYear.ChartOfAccountsIn = _ocur.FindObject(Of ChartOfAccounts) _
+                                                    (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _
+                                                    _CustomersGLParametersYear_PrevYear.ChartOfAccountsIn.AccountNumber, _CurrentYear))
+                    End If
+                    If _CustomersGLParametersYear_PrevYear.ChartOfAccountsOut IsNot Nothing Then
+                        _CustomersGLParametersYear_CurrentYear.ChartOfAccountsOut = _ocur.FindObject(Of ChartOfAccounts) _
+                                                    (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _
+                                                    _CustomersGLParametersYear_PrevYear.ChartOfAccountsOut.AccountNumber, _CurrentYear))
+                    End If
+                    If _CustomersGLParametersYear_PrevYear.ChartOfAccountsNo IsNot Nothing Then
+                        _CustomersGLParametersYear_CurrentYear.ChartOfAccountsNo = _ocur.FindObject(Of ChartOfAccounts) _
+                                                    (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _
+                                                    _CustomersGLParametersYear_PrevYear.ChartOfAccountsNo.AccountNumber, _CurrentYear))
+                    End If
+
+                End If
+            Next
+            _ocur.CommitChanges()
+            RaiseEvent FinalWork
+        End If
+
+        '// GLHeader_RateDiffParameter -> Árfolyamelszámolás, kerekítés
+        Dim _GLHeader_RateDiffParameterYear_Collection_CurrentYear As New XPCollection(Of GLHeader_RateDiffParameterYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
+        Dim _GLHeader_RateDiffParameterYear_Collection_PrevYear As New XPCollection(Of GLHeader_RateDiffParameterYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
+        Dim _GLHeader_RateDiffParameterYear_PrevYear As GLHeader_RateDiffParameterYear
+        Dim _GLHeader_RateDiffParameterYear_CurrentYear As GLHeader_RateDiffParameterYear
+        If _GLHeader_RateDiffParameterYear_Collection_CurrentYear.Count <= 0 Then
+            RaiseEvent InitWork(1, 1, _GLHeader_RateDiffParameterYear_Collection_PrevYear.Count)
+            For Each _GLHeader_RateDiffParameterYear_PrevYear In _GLHeader_RateDiffParameterYear_Collection_PrevYear
+                RaiseEvent DoWork()
+                _GLHeader_RateDiffParameterYear_CurrentYear = _ocur.FindObject(Of GLHeader_RateDiffParameterYear)(CriteriaOperator.Parse("AccountYear=? and GLHeader_RateDiffParameter=?", _CurrentYear, _GLHeader_RateDiffParameterYear_PrevYear.GLHeader_RateDiffParameter))
+                If _GLHeader_RateDiffParameterYear_CurrentYear Is Nothing Then
+                    _GLHeader_RateDiffParameterYear_CurrentYear = _ocur.CreateObject(Of GLHeader_RateDiffParameterYear)()
+                    _GLHeader_RateDiffParameterYear_CurrentYear.GLHeader_RateDiffParameter = _GLHeader_RateDiffParameterYear_PrevYear.GLHeader_RateDiffParameter
+                    _GLHeader_RateDiffParameterYear_CurrentYear.AccountYear = _CurrentYear
+                    _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_RateDiff_Loss = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_RateDiff_Loss.AccountNumber, _CurrentYear))
+                    _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_RateDiff_Win = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_RateDiff_Win.AccountNumber, _CurrentYear))
+                    If _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Loss IsNot Nothing Then
+                        _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_Rounding_Loss = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Loss.AccountNumber, _CurrentYear))
+                    End If
+                    If _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Win IsNot Nothing Then
+                        _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_Rounding_Win = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Win.AccountNumber, _CurrentYear))
+                    End If
+                End If
+            Next
+            _ocur.CommitChanges()
+            RaiseEvent FinalWork
+        End If
+
+        '// LiquidAssets -> Pénzeszközök megnyitása
+        Dim _LiquidAssetsYear_Collection_CurrentYear As New XPCollection(Of LiquidAssetsYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
+        Dim _LiquidAssetsYear_Collection_PrevYear As New XPCollection(Of LiquidAssetsYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
+        Dim _LiquidAssetsYear_PrevYear As LiquidAssetsYear
+        Dim _LiquidAssetsYear_CurrentYear As LiquidAssetsYear
+        If _LiquidAssetsYear_Collection_CurrentYear.Count <= 0 Then
+            RaiseEvent InitWork(1, 1, _LiquidAssetsYear_Collection_PrevYear.Count)
+            For Each _LiquidAssetsYear_PrevYear In _LiquidAssetsYear_Collection_PrevYear
+                RaiseEvent DoWork()
+                _LiquidAssetsYear_CurrentYear = _ocur.FindObject(Of LiquidAssetsYear)(CriteriaOperator.Parse("AccountYear=? and LiquidAssets=?", _CurrentYear, _LiquidAssetsYear_PrevYear.LiquidAssets))
+                If _LiquidAssetsYear_CurrentYear Is Nothing Then
+                    _LiquidAssetsYear_CurrentYear = _ocur.CreateObject(Of LiquidAssetsYear)()
+                    _LiquidAssetsYear_CurrentYear.LiquidAssets = _LiquidAssetsYear_PrevYear.LiquidAssets
+                    _LiquidAssetsYear_CurrentYear.AccountYear = _CurrentYear
+                    If _LiquidAssetsYear_PrevYear.ChartOfAccounts IsNot Nothing Then
+                        _LiquidAssetsYear_CurrentYear.ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccounts.AccountNumber, _CurrentYear))
+                    End If
+                    If _LiquidAssetsYear_PrevYear.ChartOfAccountsPlus IsNot Nothing Then
+                        _LiquidAssetsYear_CurrentYear.ChartOfAccountsPlus = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccountsPlus.AccountNumber, _CurrentYear))
+                    End If
+                    If _LiquidAssetsYear_PrevYear.ChartOfAccountsMinus IsNot Nothing Then
+                        _LiquidAssetsYear_CurrentYear.ChartOfAccountsMinus = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccountsMinus.AccountNumber, _CurrentYear))
+                    End If
+                End If
+            Next
+            _ocur.CommitChanges()
+            RaiseEvent FinalWork
+        End If
+
+        '// Tárgyiesköz paraméterek beállítása
+        '// LiquidAssets -> Pénzeszközök megnyitása
+        Dim _FixedAssetsGLParametersYear_Collection_CurrentYear As New XPCollection(Of FixedAssetsGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
+        Dim _FixedAssetsGLParametersYear_Collection_PrevYear As New XPCollection(Of FixedAssetsGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
+        Dim _FixedAssetsGLParametersYear_PrevYear As FixedAssetsGLParametersYear
+        Dim _FixedAssetsGLParametersYear_CurrentYear As FixedAssetsGLParametersYear
+        If _FixedAssetsGLParametersYear_Collection_CurrentYear.Count <= 0 Then
+            RaiseEvent InitWork(1, 1, _FixedAssetsGLParametersYear_Collection_PrevYear.Count)
+            For Each _FixedAssetsGLParametersYear_PrevYear In _FixedAssetsGLParametersYear_Collection_PrevYear
+                RaiseEvent DoWork()
+                _FixedAssetsGLParametersYear_CurrentYear = _ocur.FindObject(Of FixedAssetsGLParametersYear)(CriteriaOperator.Parse("AccountYear=? and FixedAssetsGLParameters=?", _CurrentYear, _FixedAssetsGLParametersYear_PrevYear.FixedAssetsGLParameters))
+                If _FixedAssetsGLParametersYear_CurrentYear Is Nothing Then
+                    _FixedAssetsGLParametersYear_CurrentYear = _ocur.CreateObject(Of FixedAssetsGLParametersYear)()
+                    _FixedAssetsGLParametersYear_CurrentYear.FixedAssetsGLParameters = _FixedAssetsGLParametersYear_PrevYear.FixedAssetsGLParameters
+                    _FixedAssetsGLParametersYear_CurrentYear.AccountYear = _CurrentYear
+                    If _FixedAssetsGLParametersYear_PrevYear.CreditChartOfAccounts IsNot Nothing Then
+                        _FixedAssetsGLParametersYear_CurrentYear.CreditChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _FixedAssetsGLParametersYear_PrevYear.CreditChartOfAccounts.AccountNumber, _CurrentYear))
+                    End If
+                    If _FixedAssetsGLParametersYear_PrevYear.DebitChartOfAccounts IsNot Nothing Then
+                        _FixedAssetsGLParametersYear_CurrentYear.DebitChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _FixedAssetsGLParametersYear_PrevYear.DebitChartOfAccounts.AccountNumber, _CurrentYear))
+                    End If
+                End If
+            Next
+            _ocur.CommitChanges()
+            RaiseEvent FinalWork
+        End If
+
+        '//GLRows-ban átkönyvelni a tételeket az új év fõkönyvi számláira
+        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)
+        For Each _GLRows In _GLRows_Collection
+            RaiseEvent DoWork()
+            If _GLRows.DebitChartOfAccounts IsNot Nothing Then
+                Dim _ChartOfAccounts As ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _CurrentYear, _GLRows.DebitChartOfAccounts.AccountNumber))
+                If _ChartOfAccounts IsNot Nothing Then
+                    _GLRows.DebitChartOfAccounts = _ChartOfAccounts
+                End If
+            End If
+        Next
+        _ocur.CommitChanges()
+        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)
+        For Each _GLRows In _GLRows_Collection
+            RaiseEvent DoWork()
+            If _GLRows.DebitChartOfAccounts IsNot Nothing Then
+                Dim _ChartOfAccounts As ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _CurrentYear, _GLRows.CreditChartOfAccounts.AccountNumber))
+                If _ChartOfAccounts IsNot Nothing Then
+                    _GLRows.CreditChartOfAccounts = _ChartOfAccounts
+                End If
+            End If
+        Next
+        _ocur.CommitChanges()
+        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        RaiseEvent FinalWork
+
+    End Sub
+    Private Sub aReCreateChartOfAccountsParent_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCreateChartOfAccountsParent.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
+        Dim _ChartOfAccounts As ChartOfAccounts
+
+        For Each _ChartOfAccounts In View.SelectedObjects
+            Me.RecursiveSetParent(_uow, _ChartOfAccounts.AccountYear, _ChartOfAccounts.AccountNumber, _uow.GetObjectByKey(Of ChartOfAccounts)(_ChartOfAccounts.Oid))
+        Next
+        _uow.CommitChanges()
+        _ocur.CommitChanges()
+
+    End Sub
+
+    Private Sub ChartOfAccountsYear_ChartOfAccounts_ListView_DeleteAction_Executing(sender As Object, e As CancelEventArgs)
+        '// Fk. számlaszám törlése !
+        '// Nem lehet paraméter, és nem lehet könyvelve rá !
+        '// Paraméterek:
+        '// LiquidAssetsYear
+        '// CustomersGLParametersYear
+        '// GLHeader_ratediffparametersYear
+        '// ControllingYear
+        '// VATYear
+        '// Nem lehet szülõ
+    End Sub
+
+    Private Sub aReCreateChartOfAccountsCount_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCreateChartOfAccountsCount.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
+        Dim _ChartOfAccounts As ChartOfAccounts
+
+        Dim _ListView As ListView = TryCast(View, ListView)
+
+        If _ListView IsNot Nothing Then
+            If _ListView.SelectedObjects.Count > 0 Then
+                RaiseEvent InitWork(1, 1, _ListView.SelectedObjects.Count)
+                For Each _ChartOfAccounts In _ListView.SelectedObjects
+                    Dim _GLRows_xpquery As New XPQuery(Of GLRows)(_uow)
+                    Dim _Count = Aggregate _GLRows In _GLRows_xpquery
+                                Where _GLRows.GLHeader.IsEditable = False And
+                                    (_GLRows.DebitChartOfAccounts.Oid = _ChartOfAccounts.Oid Or
+                                     _GLRows.CreditChartOfAccounts.Oid = _ChartOfAccounts.Oid)
+                                Into Count()
+                    _ChartOfAccounts.RecordCount = _Count
+                    RaiseEvent DoWork()
+                Next
+            Else
+                RaiseEvent InitWork(1, 1, _ListView.CollectionSource.List.Count)
+                For Each _ChartOfAccounts In _ListView.CollectionSource.List
+                    Dim _GLRows_xpquery As New XPQuery(Of GLRows)(_uow)
+                    Dim _Count = Aggregate _GLRows In _GLRows_xpquery
+                                Where _GLRows.GLHeader.IsEditable = False And
+                                    (_GLRows.DebitChartOfAccounts.Oid = _ChartOfAccounts.Oid Or
+                                     _GLRows.CreditChartOfAccounts.Oid = _ChartOfAccounts.Oid)
+                                Into Count()
+                    _ChartOfAccounts.RecordCount = _Count
+                    RaiseEvent DoWork()
+                Next
+            End If
+        End If
+
+        _ocur.CommitChanges()
+        RaiseEvent FinalWork
+        View.Refresh()
+    End Sub
+
+    Private Sub aViewGLRowsfromChartOfAccounts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewGLRowsfromChartOfAccounts.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLRows))
+        Dim _ChartOfAccounts As ChartOfAccounts = TryCast(View.SelectedObjects(0), ChartOfAccounts)
+        Dim _Criteria As String = "(DebitChartOfAccounts.Oid=? or CreditChartOfAccounts.Oid=?) and GLHeader.IsEditable=False"
+
+        If _ChartOfAccounts Is Nothing Then Exit Sub
+
+
+        If LTrim(RTrim(_Criteria <> "")) Then
+            _CS.BeginUpdateCriteria()
+            _CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria, _ChartOfAccounts.Oid, _ChartOfAccounts.Oid)
+            _CS.EndUpdateCriteria()
+
+            e.ShowViewParameters.CreatedView = Application.CreateListView("GLRows_ListView_All", _CS, True)
+
+        End If
+
+    End Sub
+
+    Private Sub aCloseChartOfAccountsYear_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloseChartOfAccountsYear.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ChartOfAccountsYear As ChartOfAccountsYear = TryCast(View.SelectedObjects(0), ChartOfAccountsYear)
+
+        If _ChartOfAccountsYear IsNot Nothing Then
+            _ChartOfAccountsYear.IsClosed = True
+            _ocur.CommitChanges()
+        End If
+    End Sub
+
+    Private Sub aCloseChartOfAccountsYearBack_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloseChartOfAccountsYearBack.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ChartOfAccountsYear As ChartOfAccountsYear = TryCast(View.SelectedObjects(0), ChartOfAccountsYear)
+
+        If _ChartOfAccountsYear IsNot Nothing Then
+            _ChartOfAccountsYear.IsClosed = False
+            _ocur.CommitChanges()
+        End If
+    End Sub
+
+    Private Sub aCreateCartOfAccountsYearAny_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateCartOfAccountsYearAny.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _ChartOfAccountsYearPopup As ChartOfAccountsYearPopup = _onew.CreateObject(Of ChartOfAccountsYearPopup)()
+
+        e.View = Application.CreateDetailView(_onew, "ChartOfAccountsYearPopup_DetailView", False, _ChartOfAccountsYearPopup)
+    End Sub
+
+    Private Sub aCreateCartOfAccountsYearAny_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateCartOfAccountsYearAny.Execute
+        Try
+
+            GLOBAL_HAS_Audit = False
+            Dim _ocur As Xpo.XPObjectSpace = Application.CreateObjectSpace 'TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            'Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+
+            Dim i As Long = 0
+            Dim _ChartOfAccountsYear As ChartOfAccountsYear
+            Dim _ChartOfAccounts_New As ChartOfAccounts
+
+            Dim _CurrentYear As Long = TryCast(e.PopupWindow.View.SelectedObjects(0), ChartOfAccountsYearPopup).AccountYear
+            Dim _CurrentYearDate As Date = CDate(_CurrentYear.ToString & "/01/01")
+            Dim _PrevYear As Long = TryCast(e.PopupWindow.View.SelectedObjects(0), ChartOfAccountsYearPopup).AccountYearPrev
+            Dim _FirstDayOfYear = GeneralFunction.FirstDayOfYear(_CurrentYearDate)
+            Dim _LastDayOfYear = GeneralFunction.LastDayOfYear(_CurrentYearDate)
+
+            _ChartOfAccountsYear = _ocur.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _CurrentYearDate.Year))
+
+            If _ChartOfAccountsYear Is Nothing Then
+                _ChartOfAccountsYear = _ocur.CreateObject(Of ChartOfAccountsYear)()
+                _ChartOfAccountsYear.AccountYear = _CurrentYearDate.Year
+
+                Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
+                Dim _ChartOfAccounts As ChartOfAccounts
+
+                RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count)
+                For Each _ChartOfAccounts In _ChartOfAccounts_Collection
+                    RaiseEvent DoWork()
+                    _ChartOfAccounts_New = _ocur.CreateObject(Of ChartOfAccounts)()
+                    _ChartOfAccounts_New.Name = _ChartOfAccounts.Name
+                    _ChartOfAccounts_New.Parent = Nothing
+                    _ChartOfAccounts_New.AccountNumber = _ChartOfAccounts.AccountNumber
+                    _ChartOfAccounts_New.AccountYear = _ChartOfAccountsYear.AccountYear
+                    i += 1
+                    If i Mod 50 = 0 Then _ocur.CommitChanges()
+                    '_ocur.CommitChanges()
+                Next
+                _ocur.CommitChanges()
+                RaiseEvent FinalWork
+
+                _ChartOfAccounts_Collection = New XPCollection(Of ChartOfAccounts)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
+                RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count)
+                i = 0
+                For Each _ChartOfAccounts In _ChartOfAccounts_Collection
+                    RaiseEvent DoWork()
+                    Me.RecursiveSetParent(_ocur.Session, _CurrentYear, _ChartOfAccounts.AccountNumber, _ChartOfAccounts)
+                    i += 1
+                    If i Mod 50 = 0 Then _ocur.CommitChanges()
+                Next
+                _ocur.CommitChanges()
+                RaiseEvent FinalWork
+
+            End If
+            '// VAT -> ÁFA megnyitása, paraméterek átmásolása
+            Dim _VATYear_Collection_CurrentYear As New XPCollection(Of VATYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
+            Dim _VATYear_Collection_PrevYear As New XPCollection(Of VATYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
+            Dim _VATYear_PrevYear As VATYear
+            Dim _VATYear_CurrentYear As VATYear
+            If _VATYear_Collection_CurrentYear.Count <= 0 Then
+                RaiseEvent InitWork(1, 1, _VATYear_Collection_PrevYear.Count)
+                i = 0
+                For Each _VATYear_PrevYear In _VATYear_Collection_PrevYear
+                    RaiseEvent DoWork()
+                    _VATYear_CurrentYear = _ocur.FindObject(Of VATYear)(CriteriaOperator.Parse("AccountYear=? and VAT=?", _CurrentYear, _VATYear_PrevYear.VAT))
+                    If _VATYear_CurrentYear Is Nothing Then
+                        _VATYear_CurrentYear = _ocur.CreateObject(Of VATYear)()
+                        _VATYear_CurrentYear.VAT = _VATYear_PrevYear.VAT
+                        _VATYear_CurrentYear.AccountYear = _CurrentYear
+                        If _VATYear_PrevYear.ChartOfAccountsIn IsNot Nothing Then
+                            _VATYear_CurrentYear.ChartOfAccountsIn = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _VATYear_PrevYear.ChartOfAccountsIn.AccountNumber, _CurrentYear))
+                        End If
+                        If _VATYear_PrevYear.ChartOfAccountsOut IsNot Nothing Then
+                            _VATYear_CurrentYear.ChartOfAccountsOut = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _VATYear_PrevYear.ChartOfAccountsOut.AccountNumber, _CurrentYear))
+                        End If
+                    End If
+                Next
+                _ocur.CommitChanges()
+                RaiseEvent FinalWork
+            End If
+
+            '// Controlling -> Kontrollszámok megnyitása, paraméterek átmásolása
+            Dim _ControllingYear_Collection_CurrentYear As New XPCollection(Of ControllingYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
+            Dim _ControllingYear_Collection_PrevYear As New XPCollection(Of ControllingYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
+            Dim _ControllingYear_PrevYear As ControllingYear
+            Dim _ControllingYear_CurrentYear As ControllingYear
+            If _ControllingYear_Collection_CurrentYear.Count <= 0 Then
+                RaiseEvent InitWork(1, 1, _ControllingYear_Collection_PrevYear.Count)
+                i = 0
+                For Each _ControllingYear_PrevYear In _ControllingYear_Collection_PrevYear
+                    RaiseEvent DoWork()
+                    _ControllingYear_CurrentYear = _ocur.FindObject(Of ControllingYear)(CriteriaOperator.Parse("AccountYear=? and Controlling=?", _CurrentYear, _ControllingYear_PrevYear.Controlling))
+                    If _ControllingYear_CurrentYear Is Nothing Then
+                        _ControllingYear_CurrentYear = _ocur.CreateObject(Of ControllingYear)()
+                        _ControllingYear_CurrentYear.Controlling = _ControllingYear_PrevYear.Controlling
+                        _ControllingYear_CurrentYear.AccountYear = _CurrentYear
+                        If _ControllingYear_PrevYear.ChartOfAccounts IsNot Nothing Then
+                            _ControllingYear_CurrentYear.ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts) _
+                                (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ControllingYear_PrevYear.ChartOfAccounts.AccountNumber, _CurrentYear))
+                        End If
+                        If _ControllingYear_PrevYear.ChartOfAccounts2 IsNot Nothing Then
+                            _ControllingYear_CurrentYear.ChartOfAccounts2 = _ocur.FindObject(Of ChartOfAccounts) _
+                                (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ControllingYear_PrevYear.ChartOfAccounts2.AccountNumber, _CurrentYear))
+                        End If
+                    End If
+                    i += 1
+                    If i Mod 50 = 0 Then _ocur.CommitChanges()
+                Next
+                _ocur.CommitChanges()
+                RaiseEvent FinalWork
+            End If
+            '// CustomersGLParameters -> Ügyfél fõkönyvi kategória megnyitása
+            Dim _CustomersGLParametersYear_Collection_CurrentYear As New XPCollection(Of CustomersGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
+            Dim _CustomersGLParametersYear_Collection_PrevYear As New XPCollection(Of CustomersGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
+            Dim _CustomersGLParametersYear_PrevYear As CustomersGLParametersYear
+            Dim _CustomersGLParametersYear_CurrentYear As CustomersGLParametersYear
+            If _CustomersGLParametersYear_Collection_CurrentYear.Count <= 0 Then
+                RaiseEvent InitWork(1, 1, _CustomersGLParametersYear_Collection_PrevYear.Count)
+                i = 0
+                For Each _CustomersGLParametersYear_PrevYear In _CustomersGLParametersYear_Collection_PrevYear
+                    RaiseEvent DoWork()
+                    _CustomersGLParametersYear_CurrentYear = _ocur.FindObject(Of CustomersGLParametersYear)(CriteriaOperator.Parse("AccountYear=? and CustomersGLParameters=?", _CurrentYear, _CustomersGLParametersYear_PrevYear.CustomersGLParameters))
+                    If _CustomersGLParametersYear_CurrentYear Is Nothing Then
+                        _CustomersGLParametersYear_CurrentYear = _ocur.CreateObject(Of CustomersGLParametersYear)()
+                        _CustomersGLParametersYear_CurrentYear.CustomersGLParameters = _CustomersGLParametersYear_PrevYear.CustomersGLParameters
+                        _CustomersGLParametersYear_CurrentYear.AccountYear = _CurrentYear
+
+                        If _CustomersGLParametersYear_PrevYear.ChartOfAccountsIn IsNot Nothing Then
+                            _CustomersGLParametersYear_CurrentYear.ChartOfAccountsIn = _ocur.FindObject(Of ChartOfAccounts) _
+                                                        (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _
+                                                        _CustomersGLParametersYear_PrevYear.ChartOfAccountsIn.AccountNumber, _CurrentYear))
+                        End If
+                        If _CustomersGLParametersYear_PrevYear.ChartOfAccountsOut IsNot Nothing Then
+                            _CustomersGLParametersYear_CurrentYear.ChartOfAccountsOut = _ocur.FindObject(Of ChartOfAccounts) _
+                                                        (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _
+                                                        _CustomersGLParametersYear_PrevYear.ChartOfAccountsOut.AccountNumber, _CurrentYear))
+                        End If
+                        If _CustomersGLParametersYear_PrevYear.ChartOfAccountsNo IsNot Nothing Then
+                            _CustomersGLParametersYear_CurrentYear.ChartOfAccountsNo = _ocur.FindObject(Of ChartOfAccounts) _
+                                                        (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _
+                                                        _CustomersGLParametersYear_PrevYear.ChartOfAccountsNo.AccountNumber, _CurrentYear))
+                        End If
+
+                    End If
+                    i += 1
+                    If i Mod 50 = 0 Then _ocur.CommitChanges()
+                Next
+                _ocur.CommitChanges()
+                RaiseEvent FinalWork
+            End If
+
+            '// GLHeader_RateDiffParameter -> Árfolyamelszámolás, kerekítés
+            Dim _GLHeader_RateDiffParameterYear_Collection_CurrentYear As New XPCollection(Of GLHeader_RateDiffParameterYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
+            Dim _GLHeader_RateDiffParameterYear_Collection_PrevYear As New XPCollection(Of GLHeader_RateDiffParameterYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
+            Dim _GLHeader_RateDiffParameterYear_PrevYear As GLHeader_RateDiffParameterYear
+            Dim _GLHeader_RateDiffParameterYear_CurrentYear As GLHeader_RateDiffParameterYear
+            If _GLHeader_RateDiffParameterYear_Collection_CurrentYear.Count <= 0 Then
+                RaiseEvent InitWork(1, 1, _GLHeader_RateDiffParameterYear_Collection_PrevYear.Count)
+                For Each _GLHeader_RateDiffParameterYear_PrevYear In _GLHeader_RateDiffParameterYear_Collection_PrevYear
+                    RaiseEvent DoWork()
+                    _GLHeader_RateDiffParameterYear_CurrentYear = _ocur.FindObject(Of GLHeader_RateDiffParameterYear)(CriteriaOperator.Parse("AccountYear=? and GLHeader_RateDiffParameter=?", _CurrentYear, _GLHeader_RateDiffParameterYear_PrevYear.GLHeader_RateDiffParameter))
+                    If _GLHeader_RateDiffParameterYear_CurrentYear Is Nothing Then
+                        _GLHeader_RateDiffParameterYear_CurrentYear = _ocur.CreateObject(Of GLHeader_RateDiffParameterYear)()
+                        _GLHeader_RateDiffParameterYear_CurrentYear.GLHeader_RateDiffParameter = _GLHeader_RateDiffParameterYear_PrevYear.GLHeader_RateDiffParameter
+                        _GLHeader_RateDiffParameterYear_CurrentYear.AccountYear = _CurrentYear
+                        _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_RateDiff_Loss = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_RateDiff_Loss.AccountNumber, _CurrentYear))
+                        _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_RateDiff_Win = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_RateDiff_Win.AccountNumber, _CurrentYear))
+                        If _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Loss IsNot Nothing Then
+                            _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_Rounding_Loss = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Loss.AccountNumber, _CurrentYear))
+                        End If
+                        If _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Win IsNot Nothing Then
+                            _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_Rounding_Win = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Win.AccountNumber, _CurrentYear))
+                        End If
+                    End If
+                Next
+                _ocur.CommitChanges()
+                RaiseEvent FinalWork
+            End If
+
+            '// LiquidAssets -> Pénzeszközök megnyitása
+            Dim _LiquidAssetsYear_Collection_CurrentYear As New XPCollection(Of LiquidAssetsYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
+            Dim _LiquidAssetsYear_Collection_PrevYear As New XPCollection(Of LiquidAssetsYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
+            Dim _LiquidAssetsYear_PrevYear As LiquidAssetsYear
+            Dim _LiquidAssetsYear_CurrentYear As LiquidAssetsYear
+            If _LiquidAssetsYear_Collection_CurrentYear.Count <= 0 Then
+                RaiseEvent InitWork(1, 1, _LiquidAssetsYear_Collection_PrevYear.Count)
+                For Each _LiquidAssetsYear_PrevYear In _LiquidAssetsYear_Collection_PrevYear
+                    RaiseEvent DoWork()
+                    _LiquidAssetsYear_CurrentYear = _ocur.FindObject(Of LiquidAssetsYear)(CriteriaOperator.Parse("AccountYear=? and LiquidAssets=?", _CurrentYear, _LiquidAssetsYear_PrevYear.LiquidAssets))
+                    If _LiquidAssetsYear_CurrentYear Is Nothing Then
+                        _LiquidAssetsYear_CurrentYear = _ocur.CreateObject(Of LiquidAssetsYear)()
+                        _LiquidAssetsYear_CurrentYear.LiquidAssets = _LiquidAssetsYear_PrevYear.LiquidAssets
+                        _LiquidAssetsYear_CurrentYear.AccountYear = _CurrentYear
+                        If _LiquidAssetsYear_PrevYear.ChartOfAccounts IsNot Nothing Then
+                            _LiquidAssetsYear_CurrentYear.ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccounts.AccountNumber, _CurrentYear))
+                        End If
+                        If _LiquidAssetsYear_PrevYear.ChartOfAccountsPlus IsNot Nothing Then
+                            _LiquidAssetsYear_CurrentYear.ChartOfAccountsPlus = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccountsPlus.AccountNumber, _CurrentYear))
+                        End If
+                        If _LiquidAssetsYear_PrevYear.ChartOfAccountsMinus IsNot Nothing Then
+                            _LiquidAssetsYear_CurrentYear.ChartOfAccountsMinus = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccountsMinus.AccountNumber, _CurrentYear))
+                        End If
+                    End If
+                Next
+                _ocur.CommitChanges()
+                RaiseEvent FinalWork
+            End If
+
+            '// Tárgyiesköz paraméterek beállítása
+            '// LiquidAssets -> Pénzeszközök megnyitása
+            Dim _FixedAssetsGLParametersYear_Collection_CurrentYear As New XPCollection(Of FixedAssetsGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear))
+            Dim _FixedAssetsGLParametersYear_Collection_PrevYear As New XPCollection(Of FixedAssetsGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear))
+            Dim _FixedAssetsGLParametersYear_PrevYear As FixedAssetsGLParametersYear
+            Dim _FixedAssetsGLParametersYear_CurrentYear As FixedAssetsGLParametersYear
+            If _FixedAssetsGLParametersYear_Collection_CurrentYear.Count <= 0 Then
+                RaiseEvent InitWork(1, 1, _FixedAssetsGLParametersYear_Collection_PrevYear.Count)
+                For Each _FixedAssetsGLParametersYear_PrevYear In _FixedAssetsGLParametersYear_Collection_PrevYear
+                    RaiseEvent DoWork()
+                    _FixedAssetsGLParametersYear_CurrentYear = _ocur.FindObject(Of FixedAssetsGLParametersYear)(CriteriaOperator.Parse("AccountYear=? and FixedAssetsGLParameters=?", _CurrentYear, _FixedAssetsGLParametersYear_PrevYear.FixedAssetsGLParameters))
+                    If _FixedAssetsGLParametersYear_CurrentYear Is Nothing Then
+                        _FixedAssetsGLParametersYear_CurrentYear = _ocur.CreateObject(Of FixedAssetsGLParametersYear)()
+                        _FixedAssetsGLParametersYear_CurrentYear.FixedAssetsGLParameters = _FixedAssetsGLParametersYear_PrevYear.FixedAssetsGLParameters
+                        _FixedAssetsGLParametersYear_CurrentYear.AccountYear = _CurrentYear
+                        If _FixedAssetsGLParametersYear_PrevYear.CreditChartOfAccounts IsNot Nothing Then
+                            _FixedAssetsGLParametersYear_CurrentYear.CreditChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _FixedAssetsGLParametersYear_PrevYear.CreditChartOfAccounts.AccountNumber, _CurrentYear))
+                        End If
+                        If _FixedAssetsGLParametersYear_PrevYear.DebitChartOfAccounts IsNot Nothing Then
+                            _FixedAssetsGLParametersYear_CurrentYear.DebitChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _FixedAssetsGLParametersYear_PrevYear.DebitChartOfAccounts.AccountNumber, _CurrentYear))
+                        End If
+                    End If
+                Next
+                _ocur.CommitChanges()
+                RaiseEvent FinalWork
+            End If
+
+            '//GLRows-ban átkönyvelni a tételeket az új év fõkönyvi számláira
+            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)
+            i = 0
+            For Each _GLRows In _GLRows_Collection
+                RaiseEvent DoWork()
+                If _GLRows.DebitChartOfAccounts IsNot Nothing Then
+                    Dim _ChartOfAccounts As ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _CurrentYear, _GLRows.DebitChartOfAccounts.AccountNumber))
+                    If _ChartOfAccounts IsNot Nothing Then
+                        _GLRows.DebitChartOfAccounts = _ChartOfAccounts
+                    End If
+                End If
+                i += 1
+                If i Mod 50 = 0 Then _ocur.CommitChanges()
+            Next
+            _ocur.CommitChanges()
+            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)
+            i = 0
+            For Each _GLRows In _GLRows_Collection
+                RaiseEvent DoWork()
+                If _GLRows.DebitChartOfAccounts IsNot Nothing Then
+                    Dim _ChartOfAccounts As ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _CurrentYear, _GLRows.CreditChartOfAccounts.AccountNumber))
+                    If _ChartOfAccounts IsNot Nothing Then
+                        _GLRows.CreditChartOfAccounts = _ChartOfAccounts
+                    End If
+                End If
+                i += 1
+                If i Mod 50 = 0 Then _ocur.CommitChanges()
+            Next
+            _ocur.CommitChanges()
+            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+            RaiseEvent FinalWork
+        Catch ex As Exception
+        Finally
+            RaiseEvent FinalWork
+            GLOBAL_HAS_Audit = True
+        End Try
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsYear.vb

@@ -0,0 +1,51 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports System.Linq
+Imports System.Linq.Expressions
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DefaultProperty("AccountYear")> _
+Public Class ChartOfAccountsYear
+    Inherits BaseObject
+    Private _AccountYear As Long
+    Private _IsClosed As Boolean = False
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <RuleValueComparison("RuleValueComparison ChartOfAccountsYear-AccountYear", DefaultContexts.Save, ValueComparisonType.GreaterThan, "2000")> _
+    <RuleUniqueValue("RuleUniqueValue ChartOfAccountsYear-AccountYear", PersistentCriteriaEvaluationBehavior.InTransaction)> _
+    Property AccountYear As Long
+        Get
+            Return _AccountYear
+        End Get
+        Set(value As Long)
+            SetPropertyValue("AccountYear", _AccountYear, value)
+        End Set
+    End Property
+    Property IsClosed As Boolean
+        Get
+            Return _IsClosed
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsClosed", _IsClosed, value)
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)>
+    ReadOnly Property ChartOfAccounts As XPCollection(Of ChartOfAccounts)
+        Get
+            Return New XPCollection(Of ChartOfAccounts)(Session, CriteriaOperator.Parse("AccountYear=?", AccountYear))
+        End Get
+    End Property
+
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsYearPopup.vb

@@ -0,0 +1,51 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions(), NonPersistent(), NavigationItem(False), CreatableItem(False)> _
+Public Class ChartOfAccountsYearPopup
+    Inherits BaseObject
+
+    Private _AccountYear As Long
+    Private _AccountYearPrev As Long
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+        AccountYear = Year(Now)
+    End Sub
+
+    <RuleRange("ChartOfAccountYearPopup-AccountYear", DefaultContexts.Save, 2001, 2020)> _
+    Property AccountYear As Long
+        Get
+            Return _AccountYear
+        End Get
+        Set(value As Long)
+            SetPropertyValue("AccountYear", _AccountYear, value)
+        End Set
+    End Property
+    <RuleRange("ChartOfAccountYearPopup-AccountYearPrev", DefaultContexts.Save, 2001, 2020)> _
+    Property AccountYearPrev As Long
+        Get
+            Return _AccountYearPrev
+        End Get
+        Set(value As Long)
+            SetPropertyValue("AccountYearPrev", _AccountYearPrev, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyName.vb

@@ -0,0 +1,52 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+
+Public Enum ePayMode
+    NotSet = -1 'Nincs beállítva
+    InCash = 0 'Készpénz
+    InTransfer = 1 'Átutalás
+    InOther = 2 'Egyéb
+    InBarter = 3 'Barter
+    InContinuous = 4 'Folyamatos teljesítés esetén
+End Enum
+
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+<DefaultProperty("ShortName")> _
+Public Class CurrencyName
+    Inherits BaseObject
+    Private _ShortName As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property MNBCurrencyRate As XPCollection(Of CurrencyRate)
+        Get
+            If Me IsNot Nothing Then
+                Return New XPCollection(Of CurrencyRate)(Session, CriteriaOperator.Parse("CurrencyName=? and IsMNB=True", Me))
+            Else
+                Return Nothing
+            End If
+        End Get
+    End Property
+End Class 'Devizanem
+

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRate.vb

@@ -0,0 +1,99 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports System.Xml
+Imports DevExpress.ExpressApp.SystemModule
+
+<DefaultClassOptions()> _
+<ListViewFilter("Összes", "", True)> _
+<ListViewFilter("Mai", "[DateValid] = '@CurrentDate'")> _
+<ListViewFilter("Elmúlt hét", "[DateValid] >= '@LastWorkWeekStart' AND [DateValid] < '@LastWorkWeekEnd'")> _
+<ListViewFilter("Elmúlt hónap", " IsOutlookIntervalEarlierThisMonth(DateValid)=True")> _
+<NavigationItem("FinancialStock")> _
+Public Class CurrencyRate
+    Inherits BaseObject
+    Private _CurrencyName As CurrencyName
+    Private _LiquidAssets As LiquidAssets
+    Private _DateValid As Date
+    Private _RateAverage As Double
+    Private _RatePurchase As Double
+    Private _RateSelling As Double
+    Private _Active As Boolean
+    Private _IsMNB As Boolean = False
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property CurrencyName() As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    Property LiquidAssets() As LiquidAssets
+        Get
+            Return _LiquidAssets
+        End Get
+        Set(ByVal value As LiquidAssets)
+            SetPropertyValue("LiquidAssets", _LiquidAssets, value)
+        End Set
+    End Property
+    Property DateValid() As Date
+        Get
+            Return _DateValid
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateValid", _DateValid, value)
+        End Set
+    End Property
+    Property RateAverage() As Double
+        Get
+            Return _RateAverage
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("RateAverage", _RateAverage, value)
+        End Set
+    End Property
+    Property RatePurchase() As Double
+        Get
+            Return _RatePurchase
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("RatePurchase", _RatePurchase, value)
+        End Set
+    End Property
+    Property RateSelling() As Double
+        Get
+            Return _RateSelling
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("RateSelling", _RateSelling, value)
+        End Set
+    End Property
+    Property Active() As Boolean
+        Get
+            Return _Active
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("Active", _Active, value)
+        End Set
+    End Property
+    Property IsMNB As Boolean
+        Get
+            Return _IsMNB
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsMNB", _IsMNB, value)
+        End Set
+    End Property
+
+End Class ' Devizaárfolyam
+

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRateVC.Designer.vb

@@ -0,0 +1,50 @@
+Partial Class CurrencyRateVC
+
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+		MyClass.New()
+
+		'Required for Windows.Forms Class Composition Designer support
+		Container.Add(Me)
+
+	End Sub
+
+	'Component overrides dispose to clean up the component list.
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+		If disposing AndAlso components IsNot Nothing Then
+			components.Dispose()
+		End If
+		MyBase.Dispose(disposing)
+	End Sub
+
+	'Required by the Component Designer
+	Private components As System.ComponentModel.IContainer
+
+	'NOTE: The following procedure is required by the Component Designer
+	'It can be modified using the Component Designer.
+	'Do not modify it using the code editor.
+	<System.Diagnostics.DebuggerStepThrough()> _
+	Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.aSyncroniseMNBCurrencyRate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aSyncroniseMNBCurrencyRate
+        '
+        Me.aSyncroniseMNBCurrencyRate.Caption = "aSyncronise MNBCurrency Rate"
+        Me.aSyncroniseMNBCurrencyRate.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aSyncroniseMNBCurrencyRate.Id = "aSyncroniseMNBCurrencyRate"
+        Me.aSyncroniseMNBCurrencyRate.ImageName = Nothing
+        Me.aSyncroniseMNBCurrencyRate.Shortcut = Nothing
+        Me.aSyncroniseMNBCurrencyRate.Tag = Nothing
+        Me.aSyncroniseMNBCurrencyRate.TargetObjectsCriteria = Nothing
+        Me.aSyncroniseMNBCurrencyRate.TargetObjectType = GetType(SISBusiness.[Module].CurrencyRate)
+        Me.aSyncroniseMNBCurrencyRate.TargetViewId = Nothing
+        Me.aSyncroniseMNBCurrencyRate.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aSyncroniseMNBCurrencyRate.ToolTip = Nothing
+        Me.aSyncroniseMNBCurrencyRate.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+
+    End Sub
+    Friend WithEvents aSyncroniseMNBCurrencyRate As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRateVC.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="aSyncroniseMNBCurrencyRate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRateVC.vb

@@ -0,0 +1,145 @@
+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
+Imports System.Xml
+
+Public Class CurrencyRateVC
+    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()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+
+    Private Sub aSyncroniseMNBCurrencyRate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSyncroniseMNBCurrencyRate.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
+        SyncroniseMNBCurrencyRate(_uow)
+
+    End Sub
+    Sub SyncroniseMNBCurrencyRate(_uow As UnitOfWork)
+        Dim _XML As String
+        Dim _MNBArfolyamService As New MNBArfolyamService.MNBArfolyamServiceSoapClient
+        Dim _CurrencyName_Collection As XPCollection(Of CurrencyName) = New XPCollection(Of CurrencyName)(_uow, CriteriaOperator.Parse("1=1"))
+        Dim _CurrencyRate_Collection As XPCollection(Of CurrencyRate) = New XPCollection(Of CurrencyRate)(_uow, CriteriaOperator.Parse("Active=True"))
+        Dim _CurrencyRate As CurrencyRate
+
+        Dim _BeginDate As Date = "2011-01-01"
+        Dim _StartDate As Date
+        Dim _EndDate As Date = String.Format("{0}-{1}-{2}", Now.Year, Now.Month, Now.Day)
+
+        Dim _XMLDocument As New XmlDocument
+        Dim _XmlNode1 As Xml.XmlNode
+        Dim _XmlNode2 As Xml.XmlNode
+
+        Dim _DateValid As Date
+        Dim _RateAverage As Double
+
+
+        If _MNBArfolyamService IsNot Nothing Then
+
+            If _CurrencyRate_Collection.Count > 0 Then 'Kitöröljük az Active beállítást
+                For Each _CurrencyRate In _CurrencyRate_Collection
+                    _CurrencyRate.Active = False
+                Next
+                _uow.CommitChanges()
+            End If
+
+            For Each _CurrencyName In _CurrencyName_Collection
+
+                If _CurrencyName.ShortName = "HUF" Then  'A HUF árfolyam nem értelmezett
+                    Continue For
+                End If
+
+                _CurrencyRate_Collection = New XPCollection(Of CurrencyRate)(_uow, CriteriaOperator.Parse("CurrencyName.ShortName=?", _CurrencyName.ShortName))
+                If _CurrencyRate_Collection.Count > 0 Then
+                    _CurrencyRate_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending))
+                    _StartDate = DateAdd(DateInterval.Day, 1, _CurrencyRate_Collection(0).DateValid)
+                Else
+                    _StartDate = _BeginDate
+                End If
+
+                _EndDate = DateAdd(DateInterval.Day, 30, _StartDate)
+                If _EndDate > Now.Date Then
+                    _EndDate = Now.Date
+                End If
+
+                Do While _StartDate <= Now.Date
+
+                    '_XML = _MNBArfolyamService.GetExchangeRates(_StartDate, _EndDate, _CurrencyName.ToString)
+                    Dim _GetExchangeRatesRequestBody As New MNBArfolyamService.GetExchangeRatesRequestBody
+                    Dim _GetExchangeRatesResponseBody As MNBArfolyamService.GetExchangeRatesResponseBody
+
+                    _GetExchangeRatesRequestBody.startDate = _StartDate
+                    _GetExchangeRatesRequestBody.endDate = _EndDate
+                    _GetExchangeRatesRequestBody.currencyNames = _CurrencyName.ToString
+
+                    _GetExchangeRatesResponseBody = _MNBArfolyamService.GetExchangeRates(_GetExchangeRatesRequestBody)
+
+                    _XML = _GetExchangeRatesResponseBody.GetExchangeRatesResult
+
+                    _XMLDocument.LoadXml(_XML.ToString)
+
+                    For Each _XmlNode1 In _XMLDocument.SelectNodes("MNBExchangeRates")
+
+                        For Each _XmlNode2 In _XmlNode1.SelectNodes("Day")
+
+                            _RateAverage = _XmlNode2.InnerText
+                            _DateValid = _XmlNode2.Attributes("date").Value
+
+                            _CurrencyRate = _uow.FindObject(Of CurrencyRate)(CriteriaOperator.Parse("CurrencyName.ShortName=? And DateValid=?", _CurrencyName.ShortName, _DateValid))
+
+                            If _CurrencyRate Is Nothing Then
+                                _CurrencyRate = New CurrencyRate(_uow)
+                                _CurrencyRate.CurrencyName = _CurrencyName
+                                _CurrencyRate.DateValid = _DateValid
+                                _CurrencyRate.RateAverage = _RateAverage
+                                _CurrencyRate.IsMNB = True
+
+                                _CurrencyRate.Save()
+                            End If
+                          
+                        Next
+                    Next
+
+                    _StartDate = DateAdd(DateInterval.Day, 1, _EndDate.Date)
+                    _EndDate = DateAdd(DateInterval.Day, 30, _StartDate)
+                    If _EndDate > Now.Date Then
+                        _EndDate = Now.Date
+                    End If
+                Loop
+
+                _CurrencyRate_Collection = New XPCollection(Of CurrencyRate)(_uow, CriteriaOperator.Parse("CurrencyName.ShortName=?", _CurrencyName.ShortName))
+                If _CurrencyRate_Collection.Count > 0 Then
+                    _CurrencyRate_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending))
+                    _StartDate = DateAdd(DateInterval.Day, 1, _CurrencyRate_Collection(0).DateValid)
+                    _CurrencyRate_Collection(0).Active = True
+                    _CurrencyRate_Collection(0).Save()
+                End If
+            Next
+
+        End If
+
+        _uow.CommitChanges()
+    End Sub
+
+    ''// Az összes CurrencyName XPCollection-ra ! (aktuális évet megelõzõ év -> mai napig
+    '_XML = _MNBArfolyamService.GetExchangeRates("2012-03-02", "2012-03-05", "EUR")
+    '_XML = _MNBArfolyamService.GetExchangeRates("2012-03-02", "2012-03-05", "USD")
+    '_XML = _MNBArfolyamService.GetExchangeRates("2012-03-02", "2012-03-05", "CHF")
+    '_XML = _MNBArfolyamService.GetExchangeRates("2012-03-02", "2012-03-05", "GBP")
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/GLRegister.vb

@@ -0,0 +1,39 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+Public Class GLRegister '-- Főkönyvi napló
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _Description As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class ' Főkönyvi napló
+

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/MoneyRate.vb

@@ -0,0 +1,76 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+Public Class MoneyRate
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _Description As String
+    Private _KeyValue As Double
+    Private _DateFrom As Date
+    Private _DateTo As Date
+    Private _Active As Boolean
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property KeyValue() As Double
+        Get
+            Return _KeyValue
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("KeyValue", _KeyValue, value)
+        End Set
+    End Property
+    Property DateFrom() As Date
+        Get
+            Return _DateFrom
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateFrom", _DateFrom, value)
+        End Set
+    End Property
+    Property DateTo() As Date
+        Get
+            Return _DateTo
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateTo", _DateTo, value)
+        End Set
+    End Property
+    Property Active() As Boolean
+        Get
+            Return _Active
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("Active", _Active, value)
+        End Set
+    End Property
+
+End Class ' Kamatláb
+

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/PaymentOption.vb

@@ -0,0 +1,118 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+Public Class PaymentOption
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _ShortName_GB As String 'Angol megnevezés
+    Private _Description As String
+    Private _Description_GB As String 'Angol leírás
+    Private _PayMode As ePayMode
+    Private _PayDay As Long
+    Private _DefaultForBusinnes As Boolean = False 'Üzleti alapértelmezés
+    Private _DatePaymentMode As eDatePaymentMode 'Fiz hat. nap számítás módja
+    Private _IsControlling_InCash As Boolean 'Készpénzes rögzítés esetén csináljon-e 
+    Private _Controlling_InCash As Controlling 'Készpénz esetén GLAccounts rögzítéskor a kifizetés mire menjen (automatikus sor beszúrás) !
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        DatePaymentMode = eDatePaymentMode.eDateCreated
+    End Sub
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property PayMode() As ePayMode
+        Get
+            Return _PayMode
+        End Get
+        Set(ByVal value As ePayMode)
+            SetPropertyValue("PayMode", _PayMode, value)
+        End Set
+    End Property
+    Property PayDay() As Long
+        Get
+            Return _PayDay
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("PayDay", _PayDay, value)
+        End Set
+    End Property
+    Property DefaultForBusinnes As Boolean
+        Get
+            Return _DefaultForBusinnes
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("DefaultForBusinnes", _DefaultForBusinnes, value)
+        End Set
+    End Property
+    Property ShortName_GB As String
+        Get
+            Return _ShortName_GB
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName_GB", _ShortName_GB, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description_GB() As String
+        Get
+            Return _Description_GB
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description_GB", _Description_GB, value)
+        End Set
+    End Property
+    Property DatePaymentMode As eDatePaymentMode
+        Get
+            Return _DatePaymentMode
+        End Get
+        Set(value As eDatePaymentMode)
+            SetPropertyValue("DatePaymentMode", _DatePaymentMode, value)
+        End Set
+    End Property
+    Property IsControlling_InCash As Boolean
+        Get
+            Return _IsControlling_InCash
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsControlling_InCash", _IsControlling_InCash, value)
+        End Set
+    End Property
+
+    Property Controlling_InCash As Controlling
+        Get
+            Return _Controlling_InCash
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling_InCash", _Controlling_InCash, value)
+        End Set
+    End Property
+End Class 'Fizetési mód
+

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/QualityOption.vb

@@ -0,0 +1,57 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+Public Class QualityOption
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _Description As String
+    Private _ShortName_GB As String
+    Private _Description_GB As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property ShortName_GB As String
+        Get
+            Return _ShortName_GB
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName_GB", _ShortName_GB, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description_GB() As String
+        Get
+            Return _Description_GB
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description_GB", _Description_GB, value)
+        End Set
+    End Property
+
+End Class 'Minőségbiztosítási mód
+

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ShipmentOption.vb

@@ -0,0 +1,57 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+Public Class ShipmentOption
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _Description As String
+    Private _ShortName_GB As String
+    Private _Description_GB As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property ShortName_GB As String
+        Get
+            Return _ShortName_GB
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName_GB", _ShortName_GB, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description_GB() As String
+        Get
+            Return _Description_GB
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description_GB", _Description_GB, value)
+        End Set
+    End Property
+End Class 'Szállítási mód
+

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/UrgentOption.vb

@@ -0,0 +1,37 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+Public Class UrgentOption
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _Description As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class 'Sürgősségi mód
+

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/VAT.vb

@@ -0,0 +1,326 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Public Enum eVATMode
+    eIn = 1
+    eOut = 0
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+<Appearance("Hide KeyValue if InverState=True", AppearanceItemType:="ViewItem", criteria:="InversState=True", targetitems:="KeyValue", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide InversKeyValue if InverState=False", AppearanceItemType:="ViewItem", criteria:="InversState=False", targetitems:="InversKeyValue", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class VAT
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _Description As String
+    Private _KeyValue As Double
+    Private _ChartOfAccountsOut As ChartOfAccounts
+    Private _ChartOfAccountsIn As ChartOfAccounts
+    Private _ClaimState As Boolean 'Levonható ?
+    Private _Active As Boolean 'Aktív ?
+    Private _InversState As Boolean = False 'Fordított ÁFA ?
+    Private _InverskeyValue As Double 'Fordított kulcs
+    Private _DefaultForBusinnes As Boolean = False 'Alapértelmezett az üzleti tranzakciók miatt
+    Private _DefaultForExternalEUNoVAT As Boolean = False 'EU-n belüli ÁFA kód (erre gyűjt majd !)
+    Private _DefaultForExternalOther As Boolean = False 'EU-n kívüli ÁFA kód ? (erre gyűjt majd !)
+    Private _DefaultForInversVAT As Boolean = False 'Fordított adózás alapértelmezett kódja
+
+    '65A bevalláshoz mező azonosítás
+    Private _XML65AFieldIDBaseValueIn As String '65A bevallás melyik mezőkódjára tegye az ÁFA alapjának értékét levonható! 
+    Private _XML65AFieldIDValueIn As String '65A bevallás melyik mezőkódjára tegye az ÁFA értékét levonható!
+    Private _XML65AFieldIDBaseValueOut As String '65A bevallás melyik mezőkódjára tegye az ÁFA alapjának értékét fizetendő!
+    Private _XML65AFieldIDValueOut As String '65A bevallás melyik mezőkódjára tegye az ÁFA értékét fizetendő!
+
+    Private _XML65AFieldIDBaseValueInSum As String '65A bevallás melyik mezőkódjára tegye az ÁFA alapjának értékét levonható! 
+    Private _XML65AFieldIDValueInSum As String '65A bevallás melyik mezőkódjára tegye az ÁFA értékét levonható!
+    Private _XML65AFieldIDBaseValueOutSum As String '65A bevallás melyik mezőkódjára tegye az ÁFA alapjának értékét fizetendő!
+    Private _XML65AFieldIDValueOutSum As String '65A bevallás melyik mezőkódjára tegye az ÁFA értékét fizetendő!
+
+    Private _VATBag As String 'Áfa csomag, például pénztárgéphez
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+    ReadOnly Property KeyValuePercent() As Double
+        Get
+            Return _KeyValue * 100
+        End Get
+    End Property
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property KeyValue() As Double
+        Get
+            Return _KeyValue
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("KeyValue", _KeyValue, value)
+        End Set
+    End Property
+    <Browsable(False)>
+    Property ChartOfAccountsOut() As ChartOfAccounts
+        Get
+            Return _ChartOfAccountsOut
+        End Get
+        Set(ByVal value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccountsOut", _ChartOfAccountsOut, value)
+        End Set
+    End Property
+    <Browsable(False)>
+    Property ChartOfAccountsIn() As ChartOfAccounts
+        Get
+            Return _ChartOfAccountsIn
+        End Get
+        Set(ByVal value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccountsIn", _ChartOfAccountsIn, value)
+        End Set
+    End Property
+    Property ClaimState() As Boolean
+        Get
+            Return _ClaimState
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("ClaimState", _ClaimState, value)
+        End Set
+    End Property
+    Property Active() As Boolean
+        Get
+            Return _Active
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("Active", _Active, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property InversState() As Boolean
+        Get
+            Return _InversState
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("InversState", _InversState, value)
+            If Session.IsObjectsLoading = False AndAlso Session.IsObjectsSaving = False Then
+                If value = True Then
+                    KeyValue = 0
+                Else
+                    InversKeyValue = 0
+                End If
+            End If
+        End Set
+    End Property
+    Property InversKeyValue() As Double
+        Get
+            Return _InverskeyValue
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("InversKeyValue", _InverskeyValue, value)
+        End Set
+    End Property
+    Property DefaultForBusinnes As Boolean
+        Get
+            Return _DefaultForBusinnes
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("DefaultForBusinnes", _DefaultForBusinnes, value)
+        End Set
+    End Property
+    Property DefaultForExternalEUNoVAT As Boolean
+        Get
+            Return _DefaultForExternalEUNoVAT
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("DefaultForExternalEUNoVAT", _DefaultForExternalEUNoVAT, value)
+        End Set
+    End Property
+    Property DefaultForExternalOther As Boolean
+        Get
+            Return _DefaultForExternalOther
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("DefaultForExternalOther", _DefaultForExternalOther, value)
+        End Set
+    End Property
+    Property DefaultForInversVAT As Boolean
+        Get
+            Return _DefaultForInversVAT
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("DefaultForInversVAT", _DefaultForInversVAT, value)
+        End Set
+    End Property
+    Property XML65AFieldIDBaseValueIn As String
+        Get
+            Return _XML65AFieldIDBaseValueIn
+        End Get
+        Set(value As String)
+            SetPropertyValue("XML65AFieldIDBaseValueIn", _XML65AFieldIDBaseValueIn, value)
+        End Set
+    End Property
+    Property XML65AFieldIDValueIn As String
+        Get
+            Return _XML65AFieldIDValueIn
+        End Get
+        Set(value As String)
+            SetPropertyValue("XML65AFieldIDValueIn", _XML65AFieldIDValueIn, value)
+        End Set
+    End Property
+    Property XML65AFieldIDBaseValueOut As String
+        Get
+            Return _XML65AFieldIDBaseValueOut
+        End Get
+        Set(value As String)
+            SetPropertyValue("XML65AFieldIDBaseValueOut", _XML65AFieldIDBaseValueOut, value)
+        End Set
+    End Property
+    Property XML65AFieldIDValueOut As String
+        Get
+            Return _XML65AFieldIDValueOut
+        End Get
+        Set(value As String)
+            SetPropertyValue("XML65AFieldIDValueOut", _XML65AFieldIDValueOut, value)
+        End Set
+    End Property
+    Property XML65AFieldIDBaseValueInSum As String
+        Get
+            Return _XML65AFieldIDBaseValueInSum
+        End Get
+        Set(value As String)
+            SetPropertyValue("XML65AFieldIDBaseValueInSum", _XML65AFieldIDBaseValueInSum, value)
+        End Set
+    End Property
+    Property XML65AFieldIDValueInSum As String
+        Get
+            Return _XML65AFieldIDValueInSum
+        End Get
+        Set(value As String)
+            SetPropertyValue("XML65AFieldIDValueInSum", _XML65AFieldIDValueInSum, value)
+        End Set
+    End Property
+    Property XML65AFieldIDBaseValueOutSum As String
+        Get
+            Return _XML65AFieldIDBaseValueOutSum
+        End Get
+        Set(value As String)
+            SetPropertyValue("XML65AFieldIDBaseValueOutSum", _XML65AFieldIDBaseValueOutSum, value)
+        End Set
+    End Property
+    Property XML65AFieldIDValueOutSum As String
+        Get
+            Return _XML65AFieldIDValueOutSum
+        End Get
+        Set(value As String)
+            SetPropertyValue("XML65AFieldIDValueOutSum", _XML65AFieldIDValueOutSum, value)
+        End Set
+    End Property
+    Property VATBag As String
+        Get
+            Return _VATBag
+        End Get
+        Set(value As String)
+            SetPropertyValue("VATBag", _VATBag, value)
+        End Set
+    End Property
+
+
+    <Association("VAT-VATYear", GetType(VATYear)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property VATYear As XPCollection(Of VATYear)
+        Get
+            Return GetCollection(Of VATYear)("VATYear")
+        End Get
+    End Property
+    Public Function GetChartOfAccounts(_AccountYear As Long, _VATMode As eVATMode) As ChartOfAccounts
+        Dim _ChartOfAccounts As ChartOfAccounts = Nothing
+        Dim _VATYear As VATYear
+        Select Case _VATMode
+            Case eVATMode.eIn
+                _ChartOfAccounts = Me.ChartOfAccountsIn
+                For Each _VATYear In Me.VATYear
+                    If _VATYear.AccountYear = _AccountYear Then
+                        _ChartOfAccounts = _VATYear.ChartOfAccountsIn
+                        Exit For
+                    End If
+                Next
+            Case eVATMode.eOut
+                _ChartOfAccounts = Me.ChartOfAccountsOut
+                For Each _VATYear In Me.VATYear
+                    If _VATYear.AccountYear = _AccountYear Then
+                        _ChartOfAccounts = _VATYear.ChartOfAccountsOut
+                        Exit For
+                    End If
+                Next
+        End Select
+        Return _ChartOfAccounts
+    End Function
+End Class 'ÁFA kódok
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+<RuleCriteria("RuleCriteria VATYear-ChartOfAccountsOut", DefaultContexts.Save, "ChartOfAccountsOut.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
+<RuleCriteria("RuleCriteria VATYear-ChartOfAccountsIn", DefaultContexts.Save, "ChartOfAccountsIn.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
+Public Class VATYear
+    Inherits BaseObject
+
+    Private _VAT As VAT
+    Private _AccountYear As Long
+    Private _ChartOfAccountsOut As ChartOfAccounts
+    Private _ChartOfAccountsIn As ChartOfAccounts
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+
+    <Association("VAT-VATYear", GetType(VAT))> _
+    Property VAT As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+    Property AccountYear As Long
+        Get
+            Return _AccountYear
+        End Get
+        Set(value As Long)
+            SetPropertyValue("AccountYear", _AccountYear, value)
+        End Set
+    End Property
+    <DataSourceCriteria("AccountYear='@This.AccountYear'")> _
+    Property ChartOfAccountsOut As ChartOfAccounts
+        Get
+            Return _ChartOfAccountsOut
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccountsOut", _ChartOfAccountsOut, value)
+        End Set
+    End Property
+    <DataSourceCriteria("AccountYear='@This.AccountYear'")> _
+    Property ChartOfAccountsIn As ChartOfAccounts
+        Get
+            Return _ChartOfAccountsIn
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccountsIn", _ChartOfAccountsIn, value)
+        End Set
+    End Property
+End Class