Reconfigure for GIT

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssets.vb

@@ -0,0 +1,186 @@
+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 eFixedAssetsState
+    eWaitForActivate = 0 ' Aktiválásra vár
+    eReadyForUse = 1 ' Használható, de nincs kiadva
+    eInUse = 2 ' Használatban van valakinél
+    eWaitForOther = 3 ' Egyéb ok miatt a használat felfüggesztve
+    eTerminated = 4 'Kivezetve
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<Appearance("Disable FixedAssets defaults", AppearanceItemType.ViewItem, "1=1", TargetItems:="HRPerson_Using;Customers_Using;CostHolder_Using;CostPlace_Using;ObjectCreated;UserCreated", Enabled:=False)> _
+Public Class FixedAssets
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _UniqueObjects As UniqueObjects
+    Private _FixedAssetsGroup1 As FixedAssetsGroup1
+    Private _ShortName As String
+    Private _Description As String
+
+    Private _DatePurchase As Date ' Vásárlás dátuma
+    Private _DateTerminal As Date ' Kivezetés dátuma
+    Private _FixedAssetsState As eFixedAssetsState
+
+    Private _HRPerson_Using As HRPerson
+    Private _Customers_Using As Customers
+    Private _CostHolder_Using As CostHolder
+    Private _CostPlace_Using As CostPlace
+
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    '<RuleUniqueValue("FixedAssets-UniqueObjects", DefaultContexts.Save, criteriaevaluationbehavior:=PersistentCriteriaEvaluationBehavior.BeforeTransaction, targetcriteria:="")> _
+    <ImmediatePostData(True)> _
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If value.Cars IsNot Nothing Then
+                    Me.ShortName = value.Cars.LicensePlateNumber & ", " & value.Cars.CarMarks.ShortName & " " & value.Cars.CarTypes.ShortName
+                    Me.DatePurchase = value.Cars.DateFirstOnRoad.Date
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("FixedAssets-FixedAssetsGroup1", DefaultContexts.Save)> _
+    Property FixedAssetsGroup1 As FixedAssetsGroup1
+        Get
+            Return _FixedAssetsGroup1
+        End Get
+        Set(value As FixedAssetsGroup1)
+            SetPropertyValue("FixedAssetsGroup1", _FixedAssetsGroup1, 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
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+
+    Property DatePurchase As Date
+        Get
+            Return _DatePurchase
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DatePurchase", _DatePurchase, value)
+        End Set
+    End Property
+    Property DateTerminal As Date
+        Get
+            Return _DateTerminal
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateTerminal", _DateTerminal, value)
+        End Set
+    End Property
+
+    Property FixedAssetsState As eFixedAssetsState
+        Get
+            Return _FixedAssetsState
+        End Get
+        Set(value As eFixedAssetsState)
+            SetPropertyValue("FixedAssetsState", _FixedAssetsState, value)
+        End Set
+    End Property
+
+    Property HRPerson_Using As HRPerson
+        Get
+            Return _HRPerson_Using
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson_Using", _HRPerson_Using, value)
+        End Set
+    End Property
+    Property Customers_Using As Customers
+        Get
+            Return _Customers_Using
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers_Using", _Customers_Using, value)
+        End Set
+    End Property
+    Property CostHolder_Using As CostHolder
+        Get
+            Return _CostHolder_Using
+        End Get
+        Set(value As CostHolder)
+            SetPropertyValue("CostHolder_Using", _CostHolder_Using, value)
+        End Set
+    End Property
+    Property CostPlace_Using As CostPlace
+        Get
+            Return _CostPlace_Using
+        End Get
+        Set(value As CostPlace)
+            SetPropertyValue("CostPlace_Using", _CostPlace_Using, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsCard.vb

@@ -0,0 +1,286 @@
+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 eFixedAssetsTerminalReason
+    eNone = 0
+    eSold = 1
+    eInventoryShortage = 2
+    eDisposal = 3
+End Enum
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+<Appearance("Hide info when IsNew=False", AppearanceItemType:="ViewItem", criteria:="IsNew=True", targetitems:="AmountHUFOpen;DateOpen", visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable UniqueObjects if exists", AppearanceItemType:="ViewItem", criteria:="isnull(UniqueObjects)=False", targetitems:="UniqueObjects", enabled:=False)> _
+<Appearance("Disable FixedAssetsGroup1 if exists", AppearanceItemType:="ViewItem", criteria:="isnull(FixedAssetsGroup1)=False", targetitems:="FixedAssetsGroup1", enabled:=False)> _
+<Appearance("Disable CustomersFrom if exists", AppearanceItemType:="ViewItem", criteria:="isnull(CustomersFrom)=False", targetitems:="CustomersFrom", enabled:=False)> _
+Public Class FixedAssetsCard
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _FixedAssetsGroup1 As FixedAssetsGroup1
+
+    Private _ShortName As String
+    Private _Description As String
+    Private _UniqueObjects As UniqueObjects
+
+    Private _DateFabrication As Date 'Gyártási év
+    Private _DateAcquisition As Date 'Beszerzés dátuma
+    Private _DateActivation As Date 'Aktiválás dátuma
+    Private _DateTerminal As Date 'Kivezetés dátuma
+    Private _DateOpen As Date 'ÉCS Nyitó dátuma
+    Private _IsActivated As Boolean = False
+    Private _AmountHUFBrutto As Double 'Bruttó érték
+    Private _AmountHUFOpen As Double 'Nyitó érték
+    Private _AmountHUFDevelopmentReserve As Double 'Fejlesztési tartalék
+    Private _IsNew As Boolean = True 'Új, vagy másik rendszerbõl átvett
+    Private _IsTerminal As Boolean = False 'Kivezetve ?
+    Private _FixedAssetsTerminalReason As eFixedAssetsTerminalReason
+
+    Private _DCPAccounting As FixedAssetsDecrepationParameter 'Számvitel szrinti ÉCS paraméter
+    Private _AmountHUFSalvage As Double 'Maradványérték
+    Private _DCPTax As FixedAssetsDecrepationParameter 'TA szerinti ÉCS paraméter
+
+    Private _IsEditable As Boolean = True
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+        If UniqueObjects Is Nothing Then
+            Dim _UniqueObject_Name As String
+            Dim _UniqueObjects As UniqueObjects
+
+            _UniqueObject_Name = Me.FixedAssetsGroup1.NumberGenerator.GetNewNumber(Me.FixedAssetsGroup1.NumberGenerator, Me.DateAcquisition.Year.ToString)
+            If _UniqueObject_Name <> "" Then
+                _UniqueObjects = New UniqueObjects(Session)
+                _UniqueObjects.Name = _UniqueObject_Name
+                Me.UniqueObjects = _UniqueObjects
+            End If
+        End If
+    End Sub
+    <RuleRequiredField("FixedAssetsCard-CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("FixedAssetsCard-FixedAssetsGroup1", DefaultContexts.Save)> _
+    Property FixedAssetsGroup1 As FixedAssetsGroup1
+        Get
+            Return _FixedAssetsGroup1
+        End Get
+        Set(value As FixedAssetsGroup1)
+            SetPropertyValue("FixedAssetsGroup1", _FixedAssetsGroup1, value)
+        End Set
+    End Property
+    <RuleRequiredField("FixedAssetsCard-ShortName", DefaultContexts.Save)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    <RuleRequiredField("FixedAssetsCard-Description", DefaultContexts.Save)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+        End Set
+    End Property
+    Property DateFabrication As Date
+        Get
+            Return _DateFabrication
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateFabrication", _DateFabrication, value)
+        End Set
+    End Property
+    Property DateAcquisition As Date
+        Get
+            Return _DateAcquisition
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateAcquisition", _DateAcquisition, value)
+        End Set
+    End Property
+    Property DateActivation As Date
+        Get
+            Return _DateActivation
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateActivation", _DateActivation, value)
+        End Set
+    End Property
+    Property DateTerminal As Date
+        Get
+            Return _DateTerminal
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateTerminal", _DateTerminal, value)
+        End Set
+    End Property
+    Property DateOpen As Date
+        Get
+            Return _DateOpen
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateOpen", _DateOpen, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property IsActivated As Boolean
+        Get
+            Return _IsActivated
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsActivated", _IsActivated, value)
+        End Set
+    End Property
+    Property AmountHUFBrutto As Double
+        Get
+            Return _AmountHUFBrutto
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFBrutto", _AmountHUFBrutto, value)
+        End Set
+    End Property
+    Property AmountHUFOpen As Double
+        Get
+            Return _AmountHUFOpen
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFOpen", _AmountHUFOpen, value)
+        End Set
+    End Property
+    Property AmountHUFDevelopmentReserve As Double
+        Get
+            Return _AmountHUFDevelopmentReserve
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFDevelopmentReserve", _AmountHUFDevelopmentReserve, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <NonCloneable()> _
+    Property IsNew As Boolean
+        Get
+            Return _IsNew
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsNew", _IsNew, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property IsTerminal As Boolean
+        Get
+            Return _IsTerminal
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsTerminal", _IsTerminal, value)
+        End Set
+    End Property
+    Property FixedAssetsTerminalReason As eFixedAssetsTerminalReason
+        Get
+            Return _FixedAssetsTerminalReason
+        End Get
+        Set(value As eFixedAssetsTerminalReason)
+            SetPropertyValue("FixedAssetsTerminalReason", _FixedAssetsTerminalReason, value)
+        End Set
+    End Property
+
+    <RuleRequiredField("FixedAssetsCard-DCPAccounting", DefaultContexts.Save)> _
+    Property DCPAccounting As FixedAssetsDecrepationParameter
+        Get
+            Return _DCPAccounting
+        End Get
+        Set(value As FixedAssetsDecrepationParameter)
+            SetPropertyValue("DCPAccounting", _DCPAccounting, value)
+        End Set
+    End Property
+    Property AmountHUFSalvage As Double
+        Get
+            Return _AmountHUFSalvage
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFSalvage", _AmountHUFSalvage, value)
+        End Set
+    End Property
+    <RuleRequiredField("FixedAssetsCard-DCPTax", DefaultContexts.Save)> _
+    Property DCPTax As FixedAssetsDecrepationParameter
+        Get
+            Return _DCPTax
+        End Get
+        Set(value As FixedAssetsDecrepationParameter)
+            SetPropertyValue("DCPTax", _DCPTax, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property IsEditable As Boolean
+        Get
+            Return _IsEditable
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsEditable", _IsEditable, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+
+    '//XPCollection
+    <Association("FixedAssetsCard-FixedAssetsCardPlanRows", GetType(FixedAssetsCardPlanRows)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property FixedAssetsCardPlanRows As XPCollection(Of FixedAssetsCardPlanRows)
+        Get
+            Return GetCollection(Of FixedAssetsCardPlanRows)("FixedAssetsCardPlanRows")
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsCardPlanRows.vb

@@ -0,0 +1,255 @@
+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
+
+Public Enum eFixedAssetsCardPlanRowsType
+    eActivated = 0
+    eNormal = 1
+    eKeyChange = 2
+    eExtraDecrepation = 3
+    eExtraActivated = 4
+    eTerminate = 5
+End Enum
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class FixedAssetsCardPlanRows ' 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 _FixedAssetsCard As FixedAssetsCard
+    Private _RowIndex As Long 'Sorindex
+    Private _FixedAssetsCardPlanRowsType As eFixedAssetsCardPlanRowsType
+    Private _FixedAssetsTerminalReason As eFixedAssetsTerminalReason
+    Private _DatedFrom As Date
+    Private _DateTo As Date
+    Private _DateExecution As Date ' Telj. dátuma
+    Private _DayCountACC As Long 'Napok száma ACC
+    Private _DayCountTAX As Long 'Napok száma ACC
+    Private _KeyTax As Double 'Leírási kulcs TA
+    Private _KeyACC As Double 'Leírási kulcs SZV
+    Private _DayDecrepationTAX As Double 'Napi ÉCS TA
+    Private _DayDecrepationACC As Double 'Napi ÉCS SZV
+    Private _SalvageHUF As Double 'Maradvány érték
+    Private _SalvageHUFBallance As Double 'Maradványérték változás
+    Private _BruttoHUF As Double 'Bruttó ért. V.
+    Private _BruttoHUFBallance As Double 'Bruttó ért.
+    Private _DecrepationHUFACC As Double 'ÉCS változás SZV
+    Private _NettoHUFBallanceACC As Double 'Nettó érték SZ
+    Private _DecrepationHUFTAX As Double 'ÉCS változás TA
+    Private _NettoHUFBallanceTAX As Double 'Nettó érték TA
+    Private _BruttoHUFTerminal As Double 'Br. Kivezetés
+    Private _NettoHUFTerminalACC As Double 'Ne SZ kivezetés
+    Private _IsModified As Boolean
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        IsModified = False
+    End Sub
+
+    <Association("FixedAssetsCard-FixedAssetsCardPlanRows", GetType(FixedAssetsCard)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property FixedAssetsCard As FixedAssetsCard
+        Get
+            Return _FixedAssetsCard
+        End Get
+        Set(value As FixedAssetsCard)
+            SetPropertyValue("FixedAssetsCard", _FixedAssetsCard, value)
+        End Set
+    End Property
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    Property FixedAssetsCardPlanRowsType As eFixedAssetsCardPlanRowsType
+        Get
+            Return _FixedAssetsCardPlanRowsType
+        End Get
+        Set(value As eFixedAssetsCardPlanRowsType)
+            SetPropertyValue("FixedAssetsCardPlanRowsType ", _FixedAssetsCardPlanRowsType, value)
+        End Set
+    End Property
+    Property FixedAssetsTerminalReason As eFixedAssetsTerminalReason
+        Get
+            Return _FixedAssetsTerminalReason
+        End Get
+        Set(value As eFixedAssetsTerminalReason)
+            SetPropertyValue("FixedAssetsTerminalReason", _FixedAssetsTerminalReason, value)
+        End Set
+    End Property
+    Property DateFrom As Date
+        Get
+            Return _DatedFrom
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateFrom", _DatedFrom, 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
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property DayCountACC As Long
+        Get
+            Return _DayCountACC
+        End Get
+        Set(value As Long)
+            SetPropertyValue("DayCountACC", _DayCountACC, value)
+        End Set
+    End Property
+    Property DayCountTAX As Long
+        Get
+            Return _DayCountTAX
+        End Get
+        Set(value As Long)
+            SetPropertyValue("DayCountTAX", _DayCountTAX, value)
+        End Set
+    End Property
+    Property KeyTax As Double
+        Get
+            Return _KeyTax
+        End Get
+        Set(value As Double)
+            SetPropertyValue("KeyTax", _KeyTax, value)
+        End Set
+    End Property
+    Property KeyACC As Double
+        Get
+            Return _KeyACC
+        End Get
+        Set(value As Double)
+            SetPropertyValue("KeyACC", _KeyACC, value)
+        End Set
+    End Property
+    Property DayDecrepationTAX As Double
+        Get
+            Return _DayDecrepationTAX
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DayDecrepationTAX", _DayDecrepationTAX, value)
+        End Set
+    End Property
+    Property DayDecrepationACC As Double
+        Get
+            Return _DayDecrepationACC
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DayDecrepationACC", _DayDecrepationACC, value)
+        End Set
+    End Property
+    Property SalvageHUF As Double
+        Get
+            Return _SalvageHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SalvageHUF", _SalvageHUF, value)
+        End Set
+    End Property
+    Property SalvageHUFBallance As Double
+        Get
+            Return _SalvageHUFBallance
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SalvageHUFBallance", _SalvageHUFBallance, value)
+        End Set
+    End Property
+    Property BruttoHUF As Double
+        Get
+            Return _BruttoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("BruttoHUF", _BruttoHUF, value)
+        End Set
+    End Property
+    Property BruttoHUFBallance As Double
+        Get
+            Return _BruttoHUFBallance
+        End Get
+        Set(value As Double)
+            SetPropertyValue("BruttoHUFBallance", _BruttoHUFBallance, value)
+        End Set
+    End Property
+    Property DecrepationHUFACC As Double
+        Get
+            Return _DecrepationHUFACC
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DecrepationHUFACC", _DecrepationHUFACC, value)
+        End Set
+    End Property
+    Property NettoHUFBallanceACC As Double
+        Get
+            Return _NettoHUFBallanceACC
+        End Get
+        Set(value As Double)
+            SetPropertyValue("NettoHUFBallanceACC", _NettoHUFBallanceACC, value)
+        End Set
+    End Property
+    Property DecrepationHUFTAX As Double
+        Get
+            Return _DecrepationHUFTAX
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DecrepationHUFTAX", _DecrepationHUFTAX, value)
+        End Set
+    End Property
+    Property NettoHUFBallanceTAX As Double
+        Get
+            Return _NettoHUFBallanceTAX
+        End Get
+        Set(value As Double)
+            SetPropertyValue("NettoHUFBallanceTAX", _NettoHUFBallanceTAX, value)
+        End Set
+    End Property
+    Property BruttoHUFTerminal As Double
+        Get
+            Return _BruttoHUFTerminal
+        End Get
+        Set(value As Double)
+            SetPropertyValue("BruttoHUFTerminal", _BruttoHUFTerminal, value)
+        End Set
+    End Property
+    Property NettoHUFTerminalACC As Double
+        Get
+            Return _NettoHUFTerminalACC
+        End Get
+        Set(value As Double)
+            SetPropertyValue("NettoHUFTerminalACC", _NettoHUFTerminalACC, value)
+        End Set
+    End Property
+    Property IsModified As Boolean
+        Get
+            Return _IsModified
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsModified", _IsModified, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsDecrepationParameter.vb

@@ -0,0 +1,85 @@
+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 eFixedAssetsPeriod
+    eYear = 0
+    eMonth = 1
+    eQuarter = 2
+End Enum
+Public Enum eFixedAssetsSpecies
+    eFixedAssets = 0 'Tárgyi eszközök
+    eIntangibleAssets = 1 'Immateriális javak
+    eSmallValueOfFixedAssets = 2 'Kisértékû tárgyi eszköz
+End Enum
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class FixedAssetsDecrepationParameter
+    Inherits BaseObject
+
+    Private _ShortName As String 'Megnevezés
+    Private _Description As String 'Leírás
+    Private _DecrepationPercent As Double 'ÉCS %
+    Private _FixedAssetsPeriod As eFixedAssetsPeriod 'Éves, havi
+    Private _FixedAssetsSpecies As eFixedAssetsSpecies 'Fajta
+    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 ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property DecrepationPercent As Double
+        Get
+            Return _DecrepationPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DecrepationPercent", _DecrepationPercent, value)
+        End Set
+    End Property
+    Property FixedAssetsPeriod As eFixedAssetsPeriod
+        Get
+            Return _FixedAssetsPeriod
+        End Get
+        Set(value As eFixedAssetsPeriod)
+            SetPropertyValue("FixedAssetsPeriod", _FixedAssetsPeriod, value)
+        End Set
+    End Property
+    Property FixedAssetsSpecies As eFixedAssetsSpecies
+        Get
+            Return _FixedAssetsSpecies
+        End Get
+        Set(value As eFixedAssetsSpecies)
+            SetPropertyValue("FixedAssetsSpecies", _FixedAssetsSpecies, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsGLParameters.vb

@@ -0,0 +1,125 @@
+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 eFixedAssetsMoveType
+    eActivation = 0 'Aktiválás
+    eExtraActivation = 1 'Ráaktiválás
+    eDisposalBrutto = 2 'Selejtezés brutto
+    eDisposalDepreciation = 3 'Selejtezés ÉCS
+    eDepreciation = 4 'ÉCS
+    eInvestment = 5 'Beruházás
+    eInventoryShortageBrutto = 6 'Leltárhiány brutto
+    eInventoryShortageDepreciation = 7 'Leltárhiány ÉCS
+    eSoldBrutto = 8 'Értékesítés brutto
+    eSoldDepreciation = 9 'Értékesítés ÉCS
+    eExtraDepreciation = 10 'Rendkívüli ÉCS
+End Enum
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class FixedAssetsGLParameters
+    Inherits BaseObject
+
+    Private _FixedAssetsGroup1 As FixedAssetsGroup1
+    Private _FixedAssetsMoveType As eFixedAssetsMoveType
+
+    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
+
+    <Association("FixedAssetsGroup1-FixedAssetsGLParameters", GetType(FixedAssetsGroup1))> _
+    Property FixedAssetsGroup1 As FixedAssetsGroup1
+        Get
+            Return _FixedAssetsGroup1
+        End Get
+        Set(value As FixedAssetsGroup1)
+            SetPropertyValue("FixedAssetsGroup1", _FixedAssetsGroup1, value)
+        End Set
+    End Property
+    Property FixedAssetsMoveType As eFixedAssetsMoveType
+        Get
+            Return _FixedAssetsMoveType
+        End Get
+        Set(value As eFixedAssetsMoveType)
+            SetPropertyValue("FixedAssetsMoveType", _FixedAssetsMoveType, value)
+        End Set
+    End Property
+
+    <Association("FixedAssetsGLParameters-FixedAssetsGLParametersYear", GetType(FixedAssetsGLParametersYear)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property FixedAssetsGLParametersYear As XPCollection(Of FixedAssetsGLParametersYear)
+        Get
+            Return GetCollection(Of FixedAssetsGLParametersYear)("FixedAssetsGLParametersYear")
+        End Get
+    End Property
+End Class
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class FixedAssetsGLParametersYear
+    Inherits BaseObject
+    Private _FixedAssetsGLParameters As FixedAssetsGLParameters
+    Private _AccountYear As Long
+    Private _DebitChartOfAccounts As ChartOfAccounts
+    Private _CreditChartOfAccounts As ChartOfAccounts
+
+    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
+
+    <Association("FixedAssetsGLParameters-FixedAssetsGLParametersYear", GetType(FixedAssetsGLParameters))> _
+    Property FixedAssetsGLParameters As FixedAssetsGLParameters
+        Get
+            Return _FixedAssetsGLParameters
+        End Get
+        Set(value As FixedAssetsGLParameters)
+            SetPropertyValue("FixedAssetsGLParameters", _FixedAssetsGLParameters, 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 DebitChartOfAccounts As ChartOfAccounts
+        Get
+            Return _DebitChartOfAccounts
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("DebitChartOfAccounts", _DebitChartOfAccounts, value)
+        End Set
+    End Property
+    Property CreditChartOfAccounts As ChartOfAccounts
+        Get
+            Return _CreditChartOfAccounts
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("CreditChartOfAccounts", _CreditChartOfAccounts, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsGroup1.vb

@@ -0,0 +1,77 @@
+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(False), CreatableItem(False)> _
+Public Class FixedAssetsGroup1
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom
+    Private _ShortName As String
+    Private _NumberGenerator As NumberGenerator
+    Private _ReportData As ReportData
+
+    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 CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("FixedAssetsGroup1-ShortName", DefaultContexts.Save)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <RuleRequiredField("FixedAssetsGroup1-NumberGenerator", DefaultContexts.Save)> _
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    Property ReportData As ReportData
+        Get
+            Return _ReportData
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData", _ReportData, value)
+        End Set
+    End Property
+
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    <Association("FixedAssetsGroup1-FixedAssetsGLParameters", GetType(FixedAssetsGLParameters))> _
+    ReadOnly Property FixedAssetsGLParameters As XPCollection(Of FixedAssetsGLParameters)
+        Get
+            Return GetCollection(Of FixedAssetsGLParameters)("FixedAssetsGLParameters")
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsNGParameters.vb

@@ -0,0 +1,95 @@
+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(False), CreatableItem(False)> _
+Public Class FixedAssetsNGParameters
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+
+    Private _NumberGenerator_UniqueObjects As NumberGenerator
+    Private _NumberGenerator_Activation As NumberGenerator
+    Private _NumberGenerator_Decrepation As NumberGenerator
+    Private _NumberGenerator_Sold As NumberGenerator
+    Private _NumberGenerator_InventoryShortage As NumberGenerator
+    Private _NumberGenerator_Disposal As NumberGenerator
+
+    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 CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property NumberGenerator_UniqueObjects As NumberGenerator
+        Get
+            Return _NumberGenerator_UniqueObjects
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator_UniqueObjects", _NumberGenerator_UniqueObjects, value)
+        End Set
+    End Property
+    Property NumberGenerator_Activation As NumberGenerator
+        Get
+            Return _NumberGenerator_Activation
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator_Activation", _NumberGenerator_Activation, value)
+        End Set
+    End Property
+    Property NumberGenerator_Decrepation As NumberGenerator
+        Get
+            Return _NumberGenerator_Decrepation
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator_Decrepation", _NumberGenerator_Decrepation, value)
+        End Set
+    End Property
+    Property NumberGenerator_Sold As NumberGenerator
+        Get
+            Return _NumberGenerator_Sold
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator_Sold", _NumberGenerator_Sold, value)
+        End Set
+    End Property
+    Property NumberGenerator_InventoryShortage As NumberGenerator
+        Get
+            Return _NumberGenerator_InventoryShortage
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator_InventoryShortage", _NumberGenerator_InventoryShortage, value)
+        End Set
+    End Property
+    Property NumberGenerator_Disposal As NumberGenerator
+        Get
+            Return _NumberGenerator_Disposal
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator_Disposal", _NumberGenerator_Disposal, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryHeader.vb

@@ -0,0 +1,84 @@
+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(False), CreatableItem(False)> _
+Public Class FixedAssetsQueryHeader
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _DateClose As Date
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+
+    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
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property DateClose As Date
+        Get
+            Return _DateClose
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateClose", _DateClose, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+
+    '//XPCollection
+    <Association("FixedAssetsQueryHeader-FixedAssetsQueryRows", GetType(FixedAssetsQueryRows))> _
+    ReadOnly Property FixedAssetsQueryRows As XPCollection(Of FixedAssetsQueryRows)
+        Get
+            Return GetCollection(Of FixedAssetsQueryRows)("FixedAssetsQueryRows")
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryRows.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
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DeferredDeletion(False)> _
+Public Class FixedAssetsQueryRows
+    Inherits BaseObject
+
+
+    Private _FixedAssetsQueryHeader As FixedAssetsQueryHeader
+    Private _FixedAssetsCard As FixedAssetsCard
+    Private _AmountHUFBrutto As Double
+    Private _AmountHUFBruttoTerminal As Double
+    Private _AmountHUFDecrepationA As Double
+    Private _AmountHUFDecrepationTerminalA As Double
+    Private _AmountHUFNettoA As Double
+    Private _AmountHUFDecrepationT As Double
+    Private _AmountHUFDecrepationTerminalT As Double
+    Private _AmountHUFNettoT As Double
+    Private _AmountHUFDevelopmentReserve As Double
+
+    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
+
+    <Association("FixedAssetsQueryHeader-FixedAssetsQueryRows", GetType(FixedAssetsQueryHeader))> _
+    Property FixedAssetsQueryHeader As FixedAssetsQueryHeader
+        Get
+            Return _FixedAssetsQueryHeader
+        End Get
+        Set(value As FixedAssetsQueryHeader)
+            SetPropertyValue("FixedAssetsQueryHeader", _FixedAssetsQueryHeader, value)
+        End Set
+    End Property
+    Property FixedAssetsCard As FixedAssetsCard
+        Get
+            Return _FixedAssetsCard
+        End Get
+        Set(value As FixedAssetsCard)
+            SetPropertyValue("FixedAssetsCard", _FixedAssetsCard, value)
+        End Set
+    End Property
+    Property AmountHUFBrutto As Double
+        Get
+            Return _AmountHUFBrutto
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFBrutto", _AmountHUFBrutto, value)
+        End Set
+    End Property
+    Property AmountHUFBruttoTerminal As Double
+        Get
+            Return _AmountHUFBruttoTerminal
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFBruttoTerminal", _AmountHUFBruttoTerminal, value)
+        End Set
+    End Property
+    Property AmountHUFDecrepationA As Double
+        Get
+            Return _AmountHUFDecrepationA
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFDecrepationA", _AmountHUFDecrepationA, value)
+        End Set
+    End Property
+    Property AmountHUFDecrepationTerminalA As Double
+        Get
+            Return _AmountHUFDecrepationTerminalA
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFDecrepationTerminalA", _AmountHUFDecrepationTerminalA, value)
+        End Set
+    End Property
+    Property AmountHUFNettoA As Double
+        Get
+            Return _AmountHUFNettoA
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFNettoA", _AmountHUFNettoA, value)
+        End Set
+    End Property
+    Property AmountHUFDecrepationT As Double
+        Get
+            Return _AmountHUFDecrepationT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFDecrepationT", _AmountHUFDecrepationT, value)
+        End Set
+    End Property
+    Property AmountHUFDecrepationTerminalT As Double
+        Get
+            Return _AmountHUFDecrepationTerminalT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFDecrepationTerminalT", _AmountHUFDecrepationTerminalT, value)
+        End Set
+    End Property
+    Property AmountHUFNettoT As Double
+        Get
+            Return _AmountHUFNettoT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFNettoT", _AmountHUFNettoT, value)
+        End Set
+    End Property
+    Property AmountHUFDevelopmentReserve As Double
+        Get
+            Return _AmountHUFDevelopmentReserve
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFDevelopmentReserve", _AmountHUFDevelopmentReserve, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryVC.Designer.vb

@@ -0,0 +1,50 @@
+Partial Class FixedAssetsQueryVC
+
+	<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.aGenerateFixedAssetsQuery = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aGenerateFixedAssetsQuery
+        '
+        Me.aGenerateFixedAssetsQuery.Caption = "aGenerate Fixed Assets Query"
+        Me.aGenerateFixedAssetsQuery.ConfirmationMessage = Nothing
+        Me.aGenerateFixedAssetsQuery.Id = "aGenerateFixedAssetsQuery"
+        Me.aGenerateFixedAssetsQuery.ImageName = Nothing
+        Me.aGenerateFixedAssetsQuery.Shortcut = Nothing
+        Me.aGenerateFixedAssetsQuery.Tag = Nothing
+        Me.aGenerateFixedAssetsQuery.TargetObjectsCriteria = Nothing
+        Me.aGenerateFixedAssetsQuery.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsQueryHeader)
+        Me.aGenerateFixedAssetsQuery.TargetViewId = Nothing
+        Me.aGenerateFixedAssetsQuery.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aGenerateFixedAssetsQuery.ToolTip = Nothing
+        Me.aGenerateFixedAssetsQuery.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+
+    End Sub
+    Friend WithEvents aGenerateFixedAssetsQuery As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryVC.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="aGenerateFixedAssetsQuery.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/FinancialTransactions/Fixed Assets/FixedAssetsQueryVC.vb

@@ -0,0 +1,70 @@
+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
+
+Public Class FixedAssetsQueryVC
+    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 aGenerateFixedAssetsQuery_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateFixedAssetsQuery.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _FixedAssetsQueryHeader As FixedAssetsQueryHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), FixedAssetsQueryHeader))
+        Dim _FixedAssetsCard_Collection As XPCollection(Of FixedAssetsCard)
+        Dim _FixedAssetsCard As FixedAssetsCard = Nothing
+        Dim _FixedAssetsQueryRows As FixedAssetsQueryRows = Nothing
+
+        _onew.Delete(_FixedAssetsQueryHeader.FixedAssetsQueryRows)
+
+        _FixedAssetsCard_Collection = New XPCollection(Of FixedAssetsCard)(_onew.Session, CriteriaOperator.Parse("IsEditable=False and IsActivated=True and CustomersFrom=?", _FixedAssetsQueryHeader.CustomersFrom))
+
+        For Each _FixedAssetsCard In _FixedAssetsCard_Collection
+            _FixedAssetsQueryRows = _onew.CreateObject(Of FixedAssetsQueryRows)()
+            _FixedAssetsQueryRows.FixedAssetsQueryHeader = _FixedAssetsQueryHeader
+            _FixedAssetsQueryRows.FixedAssetsCard = _FixedAssetsCard
+
+            '// ÉCS
+            Dim _FixedAssetsCardPlanRows_Collection As New XPCollection(Of FixedAssetsCardPlanRows)(_onew.Session, CriteriaOperator.Parse("FixedAssetsCard=? and FixedAssetsCardPlanRowsType in (1,3) and DateTo<?", _FixedAssetsCard, _FixedAssetsQueryHeader.DateClose.AddDays(1)))
+            Dim _FixedAssetsCardPlanRows As FixedAssetsCardPlanRows
+
+            _FixedAssetsCardPlanRows_Collection.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Descending))
+            For Each _FixedAssetsCardPlanRows In _FixedAssetsCardPlanRows_Collection
+                _FixedAssetsQueryRows.AmountHUFBrutto = _FixedAssetsCardPlanRows.BruttoHUFBallance
+                _FixedAssetsQueryRows.AmountHUFNettoA = _FixedAssetsCardPlanRows.NettoHUFBallanceACC
+                _FixedAssetsQueryRows.AmountHUFNettoT = _FixedAssetsCardPlanRows.NettoHUFBallanceTAX
+
+                _FixedAssetsQueryRows.AmountHUFDecrepationA = _FixedAssetsQueryRows.AmountHUFBrutto - _FixedAssetsQueryRows.AmountHUFDecrepationA
+                _FixedAssetsQueryRows.AmountHUFDecrepationT = _FixedAssetsQueryRows.AmountHUFBrutto - _FixedAssetsQueryRows.AmountHUFDecrepationT
+                Exit For
+            Next
+
+            '// Ha van kivezetési sor akkor módosul pár dolog
+            _FixedAssetsCardPlanRows = _onew.FindObject(Of FixedAssetsCardPlanRows)(CriteriaOperator.Parse("FixedAssetsCard=? and FixedAssetsCardPlanRowsType in (5) and DateTo<?", _FixedAssetsCard, _FixedAssetsQueryHeader.DateClose.AddDays(1)))
+            If _FixedAssetsCardPlanRows IsNot Nothing Then
+
+            End If
+        Next
+        _onew.CommitChanges()
+        View.Refresh()
+
+
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsTransactions.vb

@@ -0,0 +1,163 @@
+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 eFixedAssestsTransactionType
+    eActivation = 0 'Aktiválás
+    eReactivation = 1 'Ráaktiválás
+End Enum
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+Public Class FixedAssetsTransactions
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom
+    Private _FixedAssetsCard As FixedAssetsCard
+    Private _RowIndex As Long = 0
+    Private _FixedAssets As FixedAssets
+    Private _DateExecution As Date
+    Private _DateOpen As Date
+    Private _FixedAssestsTransactionType As eFixedAssestsTransactionType
+    Private _AmountHUF As Double = 0 'Összeg
+    Private _AmountHUFSalvage As Double = 0 'Maradványérték
+    Private _AmountHUFDevelopmentReserve As Double = 0 'Fejlesztési tartalék
+    Private _Description As String 'Megjegyzés
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+
+    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
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property FixedAssetsCard As FixedAssetsCard
+        Get
+            Return _FixedAssetsCard
+        End Get
+        Set(value As FixedAssetsCard)
+            SetPropertyValue("FixedAssetsCard", _FixedAssetsCard, value)
+        End Set
+    End Property
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    Property FixedAssets As FixedAssets
+        Get
+            Return _FixedAssets
+        End Get
+        Set(value As FixedAssets)
+            SetPropertyValue("FixedAssets", _FixedAssets, value)
+        End Set
+    End Property
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property DateOpen As Date
+        Get
+            Return _DateOpen
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateOpen", _DateOpen, value)
+        End Set
+    End Property
+    Property FixedAssestsTransactionType As eFixedAssestsTransactionType
+        Get
+            Return _FixedAssestsTransactionType
+        End Get
+        Set(value As eFixedAssestsTransactionType)
+            SetPropertyValue("FixedAssestsTransactionType", _FixedAssestsTransactionType, value)
+        End Set
+    End Property
+    Property AmountHUF As Double
+        Get
+            Return _AmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUF", _AmountHUF, value)
+        End Set
+    End Property
+    Property AmountHUFSalvage As Double
+        Get
+            Return _AmountHUFSalvage
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFSalvage", _AmountHUFSalvage, value)
+        End Set
+    End Property
+    Property AmountHUFDevelopmentReserve As Double
+        Get
+            Return _AmountHUFDevelopmentReserve
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFDevelopmentReserve", _AmountHUFDevelopmentReserve, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsUsingHeader.vb

@@ -0,0 +1,168 @@
+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 eFixedAssetsUsingMoveType
+    eIn = 0
+    eOut = 1
+End Enum
+Public Enum eFixedAssetsUsingType
+    eCustomers = 0
+    eHRPerson = 1
+    eCostHolder = 2
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+Public Class FixedAssetsUsingHeader
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom
+    Private _FixedAssetsUsingParameters As FixedAssetsUsingParameters
+    Private _FixedAssetsUsingType As eFixedAssetsUsingType
+    Private _HRPerson As HRPerson
+    Private _Customers As Customers
+    Private _CostHolder As CostHolder
+    Private _CostPlace As CostPlace
+    Private _DocumentNumber As String
+    Private _DateExecution As Date
+    Private _FixedAssetsUsingMoveType As eFixedAssetsUsingMoveType
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+
+    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
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+            DocumentNumber = Me.FixedAssetsUsingParameters.NumberGenerator.GetNewNumber(Me.FixedAssetsUsingParameters.NumberGenerator, Year(DateExecution).ToString)
+        End If
+    End Sub
+
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property FixedAssetsUsingParameters As FixedAssetsUsingParameters
+        Get
+            Return _FixedAssetsUsingParameters
+        End Get
+        Set(value As FixedAssetsUsingParameters)
+            SetPropertyValue("FixedAssetsUsingParameters", _FixedAssetsUsingParameters, value)
+        End Set
+    End Property
+    Property FixedAssetsUsingType As eFixedAssetsUsingType
+        Get
+            Return _FixedAssetsUsingType
+        End Get
+        Set(value As eFixedAssetsUsingType)
+            SetPropertyValue("FixedAssetsUsingType", _FixedAssetsUsingType, 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 Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, 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 CostPalce As CostPlace
+        Get
+            Return _CostPlace
+        End Get
+        Set(value As CostPlace)
+            SetPropertyValue("CostPalce", _CostPlace, value)
+        End Set
+    End Property
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property FixedAssetsUsingMoveType As eFixedAssetsUsingMoveType
+        Get
+            Return _FixedAssetsUsingMoveType
+        End Get
+        Set(value As eFixedAssetsUsingMoveType)
+            SetPropertyValue("FixedAssetsUsingMoveType", _FixedAssetsUsingMoveType, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+
+    '-- XPCollection ---------------------------------------------------------------------------------
+    <Association("FixedAssetsUsingHeader-FixedAssetsUsingRows", GetType(FixedAssetsUsingRows))> _
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property FixedAssetsUsingRows As XPCollection(Of FixedAssetsUsingRows)
+        Get
+            Return GetCollection(Of FixedAssetsUsingRows)("FixedAssetsUsingRows")
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsUsingParameters.vb

@@ -0,0 +1,60 @@
+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(False), CreatableItem(False)> _
+Public Class FixedAssetsUsingParameters
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _ShortName As String
+    Private _NumberGenerator As NumberGenerator
+    Private _ReportData As ReportData
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, 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 NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    Property ReportData As ReportData
+        Get
+            Return _ReportData
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData", _ReportData, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsUsingRows.vb

@@ -0,0 +1,78 @@
+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(False)> _
+<CreatableItem(False)> _
+Public Class FixedAssetsUsingRows
+    Inherits BaseObject
+    Private _FixedAssetsUsingHeader As FixedAssetsUsingHeader
+    Private _FixedAssets As FixedAssets
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+
+    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
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    <Association("FixedAssetsUsingHeader-FixedAssetsUsingRows", GetType(FixedAssetsUsingHeader))> _
+    Property FixedAssetsUsingHeader As FixedAssetsUsingHeader
+        Get
+            Return _FixedAssetsUsingHeader
+        End Get
+        Set(value As FixedAssetsUsingHeader)
+            SetPropertyValue("FixedAssetsUsingHeader", _FixedAssetsUsingHeader, value)
+        End Set
+    End Property
+    Property FixedAssets As FixedAssets
+        Get
+            Return _FixedAssets
+        End Get
+        Set(value As FixedAssets)
+            SetPropertyValue("FixedAssets", _FixedAssets, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsVC.Designer.vb

@@ -0,0 +1,92 @@
+Partial Class FixedAssetsVC
+
+	<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.aToDocuments_FixAssets = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aToDocumentsD_FixAssets = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aPrintFixedAssets = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aToDocuments_FixAssets
+        '
+        Me.aToDocuments_FixAssets.AcceptButtonCaption = Nothing
+        Me.aToDocuments_FixAssets.CancelButtonCaption = Nothing
+        Me.aToDocuments_FixAssets.Caption = "aToDocuments_FixAssets"
+        Me.aToDocuments_FixAssets.ConfirmationMessage = Nothing
+        Me.aToDocuments_FixAssets.Id = "aToDocuments_FixAssets"
+        Me.aToDocuments_FixAssets.ImageName = Nothing
+        Me.aToDocuments_FixAssets.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aToDocuments_FixAssets.Shortcut = Nothing
+        Me.aToDocuments_FixAssets.Tag = Nothing
+        Me.aToDocuments_FixAssets.TargetObjectsCriteria = Nothing
+        Me.aToDocuments_FixAssets.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll
+        Me.aToDocuments_FixAssets.TargetObjectType = GetType(SISBusiness.[Module].FixedAssets)
+        Me.aToDocuments_FixAssets.TargetViewId = Nothing
+        Me.aToDocuments_FixAssets.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aToDocuments_FixAssets.ToolTip = Nothing
+        Me.aToDocuments_FixAssets.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aToDocumentsD_FixAssets
+        '
+        Me.aToDocumentsD_FixAssets.AcceptButtonCaption = Nothing
+        Me.aToDocumentsD_FixAssets.CancelButtonCaption = Nothing
+        Me.aToDocumentsD_FixAssets.Caption = "aToDocumentsD_FixAssets"
+        Me.aToDocumentsD_FixAssets.ConfirmationMessage = Nothing
+        Me.aToDocumentsD_FixAssets.Id = "aToDocumentsD_FixAssets"
+        Me.aToDocumentsD_FixAssets.ImageName = Nothing
+        Me.aToDocumentsD_FixAssets.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aToDocumentsD_FixAssets.Shortcut = Nothing
+        Me.aToDocumentsD_FixAssets.Tag = Nothing
+        Me.aToDocumentsD_FixAssets.TargetObjectsCriteria = Nothing
+        Me.aToDocumentsD_FixAssets.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll
+        Me.aToDocumentsD_FixAssets.TargetObjectType = GetType(SISBusiness.[Module].FixedAssets)
+        Me.aToDocumentsD_FixAssets.TargetViewId = Nothing
+        Me.aToDocumentsD_FixAssets.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aToDocumentsD_FixAssets.ToolTip = Nothing
+        Me.aToDocumentsD_FixAssets.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aPrintFixedAssets
+        '
+        Me.aPrintFixedAssets.Caption = "aPrintFixedAssets"
+        Me.aPrintFixedAssets.ConfirmationMessage = Nothing
+        Me.aPrintFixedAssets.Id = "aPrintFixedAssets"
+        Me.aPrintFixedAssets.ImageName = Nothing
+        Me.aPrintFixedAssets.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aPrintFixedAssets.Shortcut = Nothing
+        Me.aPrintFixedAssets.Tag = Nothing
+        Me.aPrintFixedAssets.TargetObjectsCriteria = Nothing
+        Me.aPrintFixedAssets.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsUsingHeader)
+        Me.aPrintFixedAssets.TargetViewId = Nothing
+        Me.aPrintFixedAssets.ToolTip = Nothing
+        Me.aPrintFixedAssets.TypeOfView = GetType(DevExpress.ExpressApp.View)
+
+    End Sub
+    Friend WithEvents aToDocuments_FixAssets As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aToDocumentsD_FixAssets As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aPrintFixedAssets As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsVC.resx

@@ -0,0 +1,132 @@
+<?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="aToDocuments_FixAssets.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aToDocumentsD_FixAssets.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>205, 17</value>
+  </metadata>
+  <metadata name="aPrintFixedAssets.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>210, 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/FinancialTransactions/Fixed Assets/FixedAssetsVC.vb

@@ -0,0 +1,234 @@
+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.Persistent.Validation
+Imports DevExpress.ExpressApp.Utils
+Imports DevExpress.Persistent.BaseImpl
+
+Public Class FixedAssetsVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Protected _selection As ArrayList
+    Private _noselect As Boolean = False
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+        _selection = New ArrayList()
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        If View.Id Like "FixedAssets_ListView*" Then
+            AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
+        End If
+        If View.Id = "FixedAssetsUsingPopup_DetailView" Then
+            AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf FixedAssetsUsingPopup_DetailViewAcceptAction_Executing
+        End If
+    End Sub
+
+    Private Sub aToDocuments_FixAssets_Cancel(sender As Object, e As System.EventArgs) Handles aToDocuments_FixAssets.Cancel
+        _noselect = False
+    End Sub
+    Private Sub aToDocuments_FixAssets_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aToDocuments_FixAssets.CustomizePopupWindowParams
+        _noselect = True
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _FixedAssetsUsingPopup As FixedAssetsUsingPopup = _onew.CreateObject(Of FixedAssetsUsingPopup)()
+        _FixedAssetsUsingPopup.FixedAssetsUsingMoveType = eFixedAssetsUsingMoveType.eOut
+        e.View = Application.CreateDetailView(_onew, "FixedAssetsUsingPopup_DetailView", True, _FixedAssetsUsingPopup)
+    End Sub
+    Private Sub aToDocuments_FixAssets_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aToDocuments_FixAssets.Execute
+        '// Tárgyieszköz kiadása
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _FixedAssetsUsingPopup As FixedAssetsUsingPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), FixedAssetsUsingPopup)
+        Dim _FixedAssets As FixedAssets
+        Dim I As Long = 0
+        Dim _FixedAssetsUsingHeader As FixedAssetsUsingHeader = Nothing
+        Dim _FixedAssetsUsingRows As FixedAssetsUsingRows = Nothing
+
+        For Each _FixedAssets In _selection
+            If I = 0 Then
+                '--Fejléc ...
+                _FixedAssetsUsingHeader = _ocur.CreateObject(Of FixedAssetsUsingHeader)()
+                _FixedAssetsUsingHeader.CustomersFrom = _ocur.GetObject(_FixedAssets.CustomersFrom)
+                _FixedAssetsUsingHeader.FixedAssetsUsingMoveType = eFixedAssetsUsingMoveType.eOut
+                _FixedAssetsUsingHeader.FixedAssetsUsingType = _FixedAssetsUsingPopup.FixedAssetsUsingType
+                _FixedAssetsUsingHeader.FixedAssetsUsingParameters = _ocur.GetObject(_FixedAssetsUsingPopup.FixedAssetsUsingParameters)
+                _FixedAssetsUsingHeader.DateExecution = _FixedAssetsUsingPopup.DateExecution
+                Select Case _FixedAssetsUsingPopup.FixedAssetsUsingType
+                    Case eFixedAssetsUsingType.eCostHolder
+                        _FixedAssetsUsingHeader.CostHolder = _ocur.GetObject(_FixedAssetsUsingPopup.CostHolder)
+                    Case eFixedAssetsUsingType.eCustomers
+                        _FixedAssetsUsingHeader.Customers = _ocur.GetObject(_FixedAssetsUsingPopup.Customers)
+                    Case eFixedAssetsUsingType.eHRPerson
+                        _FixedAssetsUsingHeader.HRperson = _ocur.GetObject(_FixedAssetsUsingPopup.HRPerson)
+                End Select
+                I += 1
+            End If
+
+            '-- Sorok
+            _FixedAssetsUsingRows = _ocur.CreateObject(Of FixedAssetsUsingRows)()
+            _FixedAssetsUsingRows.FixedAssetsUsingHeader = _FixedAssetsUsingHeader
+            _FixedAssetsUsingRows.FixedAssets = _FixedAssets
+
+            _FixedAssets.CostHolder_Using = Nothing
+            _FixedAssets.HRPerson_Using = Nothing
+            _FixedAssets.Customers_Using = Nothing
+
+            Select Case _FixedAssetsUsingPopup.FixedAssetsUsingType
+                Case eFixedAssetsUsingType.eCostHolder
+                    _FixedAssets.CostHolder_Using = _ocur.GetObject(_FixedAssetsUsingPopup.CostHolder)
+                Case eFixedAssetsUsingType.eCustomers
+                    _FixedAssets.Customers_Using = _ocur.GetObject(_FixedAssetsUsingPopup.Customers)
+                Case eFixedAssetsUsingType.eHRPerson
+                    _FixedAssets.HRPerson_Using = _ocur.GetObject(_FixedAssetsUsingPopup.HRPerson)
+            End Select
+        Next
+        _ocur.CommitChanges()
+        View.Refresh()
+
+        _noselect = False
+
+        Dim _ReportData As ReportData = _FixedAssetsUsingHeader.FixedAssetsUsingParameters.ReportData
+        If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva riport!")
+        Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, DevExpress.Data.Filtering.CriteriaOperator.Parse("FixedAssetsUsingHeader.DocumentNumber =?", _FixedAssetsUsingHeader.DocumentNumber), True)
+    End Sub
+
+    Private Sub view_SelectionChanged(sender As Object, e As EventArgs)
+        Dim i As Long = 0
+        Dim _FixedAssets As FixedAssets
+
+        If View Is Nothing Then Exit Sub
+
+        If View.Id Like "FixedAssets_ListView*" Then
+            If _noselect = False Then
+                _selection.Clear()
+                For Each _FixedAssets In View.SelectedObjects
+                    _selection.Add(_FixedAssets)
+                Next
+            End If
+        End If
+    End Sub
+
+    Private Sub aToDocumentsD_FixAssets_Cancel(sender As Object, e As System.EventArgs) Handles aToDocumentsD_FixAssets.Cancel
+        _noselect = False
+    End Sub
+    Private Sub aToDocumentsD_FixAssets_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aToDocumentsD_FixAssets.CustomizePopupWindowParams
+        _noselect = True
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _FixedAssetsUsingPopup As FixedAssetsUsingPopup = _onew.CreateObject(Of FixedAssetsUsingPopup)()
+        _FixedAssetsUsingPopup.FixedAssetsUsingMoveType = eFixedAssetsUsingMoveType.eIn
+        e.View = Application.CreateDetailView(_onew, "FixedAssetsUsingPopup_DetailView", True, _FixedAssetsUsingPopup)
+    End Sub
+    Private Sub aToDocumentsD_FixAssets_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aToDocumentsD_FixAssets.Execute
+        '// Tárgyieszköz visszavétele
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _FixedAssetsUsingPopup As FixedAssetsUsingPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), FixedAssetsUsingPopup)
+        Dim _FixedAssets As FixedAssets = Nothing
+        Dim _FixedAssets_Base As FixedAssets = Nothing
+        Dim I As Long = 0
+        Dim _FixedAssetsUsingHeader As FixedAssetsUsingHeader = Nothing
+        Dim _FixedAssetsUsingRows As FixedAssetsUsingRows = Nothing
+
+        For Each _FixedAssets In _selection
+            If I = 0 Then
+                '--Fejléc ...
+                _FixedAssets_Base = _FixedAssets
+                _FixedAssetsUsingHeader = _ocur.CreateObject(Of FixedAssetsUsingHeader)()
+                _FixedAssetsUsingHeader.CustomersFrom = _ocur.GetObject(_FixedAssets.CustomersFrom)
+                _FixedAssetsUsingHeader.FixedAssetsUsingMoveType = eFixedAssetsUsingMoveType.eIn
+
+                _FixedAssetsUsingHeader.FixedAssetsUsingParameters = _ocur.GetObject(_FixedAssetsUsingPopup.FixedAssetsUsingParameters)
+                _FixedAssetsUsingHeader.DateExecution = _FixedAssetsUsingPopup.DateExecution
+                If _FixedAssets.Customers_Using IsNot Nothing Then
+                    _FixedAssetsUsingHeader.FixedAssetsUsingType = eFixedAssetsUsingType.eCustomers
+                    _FixedAssetsUsingHeader.Customers = _ocur.GetObject(_FixedAssets.Customers_Using)
+                End If
+                If _FixedAssets.HRPerson_Using IsNot Nothing Then
+                    _FixedAssetsUsingHeader.FixedAssetsUsingType = eFixedAssetsUsingType.eHRPerson
+                    _FixedAssetsUsingHeader.HRperson = _ocur.GetObject(_FixedAssets.HRPerson_Using)
+                End If
+                If _FixedAssets.CostHolder_Using IsNot Nothing Then
+                    _FixedAssetsUsingHeader.FixedAssetsUsingType = eFixedAssetsUsingType.eCostHolder
+                    _FixedAssetsUsingHeader.CostHolder = _ocur.GetObject(_FixedAssets.CostHolder_Using)
+                End If
+
+
+            End If
+            If I = 0 Then
+                '-- Sorok
+                _FixedAssetsUsingRows = _ocur.CreateObject(Of FixedAssetsUsingRows)()
+                _FixedAssetsUsingRows.FixedAssetsUsingHeader = _FixedAssetsUsingHeader
+                _FixedAssetsUsingRows.FixedAssets = _FixedAssets
+
+                _FixedAssets.CostHolder_Using = Nothing
+                _FixedAssets.HRPerson_Using = Nothing
+                _FixedAssets.Customers_Using = Nothing
+            Else
+                If _FixedAssets.CostHolder_Using Is _FixedAssets_Base.CostHolder_Using And _FixedAssets.CostHolder_Using IsNot Nothing Then
+                    '-- Sorok
+                    _FixedAssetsUsingRows = _ocur.CreateObject(Of FixedAssetsUsingRows)()
+                    _FixedAssetsUsingRows.FixedAssetsUsingHeader = _FixedAssetsUsingHeader
+                    _FixedAssetsUsingRows.FixedAssets = _FixedAssets
+
+                    _FixedAssets.CostHolder_Using = Nothing
+                    _FixedAssets.HRPerson_Using = Nothing
+                    _FixedAssets.Customers_Using = Nothing
+                ElseIf _FixedAssets.Customers_Using Is _FixedAssets_Base.Customers_Using And _FixedAssets.Customers_Using IsNot Nothing Then
+                    '-- Sorok
+                    _FixedAssetsUsingRows = _ocur.CreateObject(Of FixedAssetsUsingRows)()
+                    _FixedAssetsUsingRows.FixedAssetsUsingHeader = _FixedAssetsUsingHeader
+                    _FixedAssetsUsingRows.FixedAssets = _FixedAssets
+
+                    _FixedAssets.CostHolder_Using = Nothing
+                    _FixedAssets.HRPerson_Using = Nothing
+                    _FixedAssets.Customers_Using = Nothing
+                ElseIf _FixedAssets.HRPerson_Using Is _FixedAssets_Base.HRPerson_Using And _FixedAssets.HRPerson_Using IsNot Nothing Then
+                    '-- Sorok
+                    _FixedAssetsUsingRows = _ocur.CreateObject(Of FixedAssetsUsingRows)()
+                    _FixedAssetsUsingRows.FixedAssetsUsingHeader = _FixedAssetsUsingHeader
+                    _FixedAssetsUsingRows.FixedAssets = _FixedAssets
+
+                    _FixedAssets.CostHolder_Using = Nothing
+                    _FixedAssets.HRPerson_Using = Nothing
+                    _FixedAssets.Customers_Using = Nothing
+                End If
+
+            End If
+
+
+            I = 1
+        Next
+        _ocur.CommitChanges()
+        View.Refresh()
+
+        Dim _ReportData As ReportData = _FixedAssetsUsingHeader.FixedAssetsUsingParameters.ReportData
+        If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva riport!")
+        Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, DevExpress.Data.Filtering.CriteriaOperator.Parse("FixedAssetsUsingHeader.DocumentNumber =?", _FixedAssetsUsingHeader.DocumentNumber), True)
+    End Sub
+
+    Private Sub FixedAssetsUsingPopup_DetailViewAcceptAction_Executing(sender As Object, e As CancelEventArgs)
+        Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, "DialogOk_Contexts")
+    End Sub
+
+    Private Sub aPrintFixedAssets_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPrintFixedAssets.Execute
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _FixedAssetsUsingHeader As FixedAssetsUsingHeader = TryCast(View.SelectedObjects(0), FixedAssetsUsingHeader)
+            If _FixedAssetsUsingHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
+            Dim _ReportData As ReportData = _FixedAssetsUsingHeader.FixedAssetsUsingParameters.ReportData
+            If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva riport!")
+            Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, DevExpress.Data.Filtering.CriteriaOperator.Parse("FixedAssetsUsingHeader.DocumentNumber =?", _FixedAssetsUsingHeader.DocumentNumber), True)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedassetsCardVC.Designer.vb

@@ -0,0 +1,123 @@
+Partial Class FixedassetsCardVC
+
+	<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.aFinalize_FixedAssetsCard = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFixedAssetsCard_Terminate = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aFixedAssetsCard_ReActivate = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aFixedAssetsCard_Activate_Storno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFixedAssetsCard_Terminate_Storno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFixedAssetsCard_Activate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFixedAssetsCard_OpenYear = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aFinalize_FixedAssetsCard
+        '
+        Me.aFinalize_FixedAssetsCard.Caption = "aFinalize_FixedAssetsCard"
+        Me.aFinalize_FixedAssetsCard.ConfirmationMessage = Nothing
+        Me.aFinalize_FixedAssetsCard.Id = "aFinalize_FixedAssetsCard"
+        Me.aFinalize_FixedAssetsCard.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aFinalize_FixedAssetsCard.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsCard)
+        Me.aFinalize_FixedAssetsCard.ToolTip = Nothing
+        Me.aFinalize_FixedAssetsCard.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aFixedAssetsCard_Terminate
+        '
+        Me.aFixedAssetsCard_Terminate.AcceptButtonCaption = Nothing
+        Me.aFixedAssetsCard_Terminate.CancelButtonCaption = Nothing
+        Me.aFixedAssetsCard_Terminate.Caption = "aFixedAssetsCard_Terminate"
+        Me.aFixedAssetsCard_Terminate.ConfirmationMessage = Nothing
+        Me.aFixedAssetsCard_Terminate.Id = "aFixedAssetsCard_Terminate"
+        Me.aFixedAssetsCard_Terminate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aFixedAssetsCard_Terminate.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsCard)
+        Me.aFixedAssetsCard_Terminate.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aFixedAssetsCard_Terminate.ToolTip = Nothing
+        Me.aFixedAssetsCard_Terminate.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aFixedAssetsCard_ReActivate
+        '
+        Me.aFixedAssetsCard_ReActivate.AcceptButtonCaption = Nothing
+        Me.aFixedAssetsCard_ReActivate.CancelButtonCaption = Nothing
+        Me.aFixedAssetsCard_ReActivate.Caption = "aFixedAssetsCard_ReActivate"
+        Me.aFixedAssetsCard_ReActivate.ConfirmationMessage = Nothing
+        Me.aFixedAssetsCard_ReActivate.Id = "aFixedAssetsCard_ReActivate"
+        Me.aFixedAssetsCard_ReActivate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aFixedAssetsCard_ReActivate.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsCard)
+        Me.aFixedAssetsCard_ReActivate.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aFixedAssetsCard_ReActivate.ToolTip = Nothing
+        Me.aFixedAssetsCard_ReActivate.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aFixedAssetsCard_Activate_Storno
+        '
+        Me.aFixedAssetsCard_Activate_Storno.Caption = "aFixedAssetsCard_Activate_Storno"
+        Me.aFixedAssetsCard_Activate_Storno.ConfirmationMessage = "Are you sure ?"
+        Me.aFixedAssetsCard_Activate_Storno.Id = "aFixedAssetsCard_Activate_Storno"
+        Me.aFixedAssetsCard_Activate_Storno.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aFixedAssetsCard_Activate_Storno.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsCard)
+        Me.aFixedAssetsCard_Activate_Storno.ToolTip = Nothing
+        Me.aFixedAssetsCard_Activate_Storno.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aFixedAssetsCard_Terminate_Storno
+        '
+        Me.aFixedAssetsCard_Terminate_Storno.Caption = "aFixedAssetsCard_Terminate_Storno"
+        Me.aFixedAssetsCard_Terminate_Storno.ConfirmationMessage = "Are you sure ?"
+        Me.aFixedAssetsCard_Terminate_Storno.Id = "aFixedAssetsCard_Terminate_Storno"
+        Me.aFixedAssetsCard_Terminate_Storno.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aFixedAssetsCard_Terminate_Storno.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsCard)
+        Me.aFixedAssetsCard_Terminate_Storno.ToolTip = Nothing
+        Me.aFixedAssetsCard_Terminate_Storno.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aFixedAssetsCard_Activate
+        '
+        Me.aFixedAssetsCard_Activate.Caption = "aFixedAssetsCard_Activate"
+        Me.aFixedAssetsCard_Activate.ConfirmationMessage = "Are you sure ?"
+        Me.aFixedAssetsCard_Activate.Id = "aFixedAssetsCard_Activate"
+        Me.aFixedAssetsCard_Activate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aFixedAssetsCard_Activate.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsCard)
+        Me.aFixedAssetsCard_Activate.ToolTip = Nothing
+        Me.aFixedAssetsCard_Activate.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aFixedAssetsCard_OpenYear
+        '
+        Me.aFixedAssetsCard_OpenYear.AcceptButtonCaption = Nothing
+        Me.aFixedAssetsCard_OpenYear.CancelButtonCaption = Nothing
+        Me.aFixedAssetsCard_OpenYear.Caption = "aFixedAssetsCard_OpenYear"
+        Me.aFixedAssetsCard_OpenYear.ConfirmationMessage = Nothing
+        Me.aFixedAssetsCard_OpenYear.Id = "aFixedAssetsCard_OpenYear"
+        Me.aFixedAssetsCard_OpenYear.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsCard)
+        Me.aFixedAssetsCard_OpenYear.ToolTip = Nothing
+
+    End Sub
+    Friend WithEvents aFinalize_FixedAssetsCard As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFixedAssetsCard_Terminate As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aFixedAssetsCard_ReActivate As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aFixedAssetsCard_Activate_Storno As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFixedAssetsCard_Terminate_Storno As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFixedAssetsCard_Activate As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFixedAssetsCard_OpenYear As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedassetsCardVC.resx

@@ -0,0 +1,144 @@
+<?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="aFinalize_FixedAssetsCard.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aFixedAssetsCard_Terminate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aFixedAssetsCard_ReActivate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aFixedAssetsCard_Activate_Storno.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aFixedAssetsCard_Terminate_Storno.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aFixedAssetsCard_Activate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aFixedAssetsCard_OpenYear.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>250, 251</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/FinancialTransactions/Fixed Assets/Popup/FixedAssetsCard_OpenYear_PopUp.vb

@@ -0,0 +1,39 @@
+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
+
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent> _
+Public Class FixedAssetsCard_OpenYear_PopUp
+    Inherits BaseObject
+
+    Private _TargetYear As Long
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        TargetYear = GetSQLTime(Session).Year + 1
+    End Sub
+
+    Property TargetYear As Long
+        Get
+            Return _TargetYear
+        End Get
+        Set(value As Long)
+            SetPropertyValue("TargetYear", _TargetYear, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/Popup/FixedAssetsReactivationPopup.vb

@@ -0,0 +1,33 @@
+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 FixedAssetsReactivationPopup
+    Inherits BaseObject
+    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 DateExecution As Date
+    Property AmountHUFBrutto As Double
+    Property AmountHUFDevelopmentReserve As Double
+    <Size(-1)> Property Description As String
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/Popup/FixedAssetsTerminatePopup.vb

@@ -0,0 +1,32 @@
+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 FixedAssetsTerminatePopup
+    Inherits BaseObject
+    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 DateExecution As Date
+    Property FixedAssetsTerminalReason As eFixedAssetsTerminalReason = eFixedAssetsTerminalReason.eNone
+    <Size(-1)> Property Description As String
+End Class

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/Popup/FixedAssetsUsingPopup.vb

@@ -0,0 +1,47 @@
+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("FixedAssetsUsingPopup - Hide HRPerson", AppearanceItemType:="ViewItem", criteria:="FixedAssetsUsingType in ('eCustomers','eCostHolder')", TargetItems:="HRPerson", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("FixedAssetsUsingPopup - Hide Customers", AppearanceItemType:="ViewItem", criteria:="FixedAssetsUsingType in ('eHRPerson','eCostHolder')", TargetItems:="Customers", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("FixedAssetsUsingPopup - Hide CostHolder", AppearanceItemType:="ViewItem", criteria:="FixedAssetsUsingType in ('eCustomers','eHRPerson')", TargetItems:="CostHolder", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("FixedAssetsUsingPopup - Hide when eIn", AppearanceItemType:="ViewItem", criteria:="FixedAssetsUsingMoveType='eIn'", TargetItems:="CostHolder;Customers;HRPerson;FixedAssetsUsingType", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class FixedAssetsUsingPopup
+    Inherits BaseObject
+    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()
+        DateExecution = GetSQLTime(Session)
+        ' Place here your initialization code.
+    End Sub
+    <ImmediatePostData()> _
+    Property FixedAssetsUsingType As eFixedAssetsUsingType
+    <RuleRequiredField("FixedAssetsUsingPopup", "DialogOk_Contexts")> _
+    Property FixedAssetsUsingParameters As FixedAssetsUsingParameters
+    <RuleRequiredField("FixedAssetsUsingPopup-HRPerson", "FixedAssetsUsingPopup", targetcriteria:="FixedAssetsUsingType='eHRPerson' and FixedAssetsUsingMoveType='eOut'")> _
+    Property HRPerson As HRPerson
+    <RuleRequiredField("FixedAssetsUsingPopup-Customers", "FixedAssetsUsingPopup", targetcriteria:="FixedAssetsUsingType='Customers' and FixedAssetsUsingMoveType='eOut'")> _
+    Property Customers As Customers
+    <RuleRequiredField("FixedAssetsUsingPopup-CostHolder", "FixedAssetsUsingPopup", targetcriteria:="FixedAssetsUsingType='CostHolder' and FixedAssetsUsingMoveType='eOut'")> _
+    Property CostHolder As CostHolder
+    Property DateExecution As Date
+    <Browsable(False)> Property FixedAssetsUsingMoveType As eFixedAssetsUsingMoveType
+End Class