Reconfigure for GIT

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Apartments.vb

@@ -0,0 +1,346 @@
+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.Xpo.Metadata
+Imports System.Drawing
+<DefaultClassOptions()> _
+<NavigationItem("RealEstateStocks")> _
+Public Class Apartments
+    Inherits Immovables
+    Private _Floor As Floors 'Emelet
+    Private _Stairway As Stairways 'Lépcsőház
+    Private _RoomString As String 'Szoba szövegesen
+    Private _WindowDirection As eWindowDirection 'Ablak tájolás
+    Private _AreaPriceNettoHUF As Double 'Netto négyzetméter ár (HUF)
+    Private _AreaPriceNettoDEV As Double '
+    Private _PriceBruttoHUF As Double 'Bruttó listaár számoltatni a nettó vételárból (HUF)
+    Private _PriceNettoHUF As Double 'Nettó vételár (HUF)
+    Private _PriceBruttoDEV As Double
+    Private _PriceNettoDEV As Double 'Nettó vételár
+    Private _AreaNetto As Double = 0 'Nettó négyzetméter
+    Private _AreaNettoUnder190 As Double = 0 'Nettó négyzetméter 1.90 alatt
+    Private _AreaNettoForSale As Double = 0 'Nettó eladható négyzetméter
+    Private _AreaNettoForCostRecord As Double = 0 'Költség számító négyzetméter
+    Private _Direction As eIDirection 'Tájolás
+    Private _IsTerrace As Boolean 'Terasz van-e hozzá
+    Private _AreaTerrace As Double = 0 ' Összes terasz négyzetmétere
+    Private _Note As String 'Megjegyzés
+    Private _UniqueTag As String 'Egyedi tag
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        If Session.IsNewObject(Me) Then
+            If UniqueTag <> "*" Then Me.MakeUniqueObjects_Apartments()
+        End If
+
+        MyBase.OnSaving()
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.ImmovablesTypes = eImmovablesTypes.eApartment
+    End Sub
+    Protected Sub RecalculatePrice()
+        PriceNettoHUF = Math.Round(AreaNettoForSale * AreaPriceNettoHUF, 0, MidpointRounding.AwayFromZero)
+        PriceNettoDEV = Math.Round(AreaNettoForSale * AreaPriceNettoDEV, 0, MidpointRounding.AwayFromZero)
+    End Sub
+    Protected Sub RecalculatePriceBrutto()
+        PriceBruttoHUF = Math.Round(PriceNettoHUF * 1.25, 0, MidpointRounding.AwayFromZero)
+        PriceBruttoDEV = Math.Round(PriceNettoDEV * 1.25, 0, MidpointRounding.AwayFromZero)
+    End Sub
+    Protected Sub RecalculateAreaNettoForSale()
+        AreaNettoForSale = Math.Round((AreaNetto + (AreaNettoUnder190 / 2) + (AreaTerrace / 2)), 2, MidpointRounding.AwayFromZero)
+    End Sub
+    <RuleRequiredField("Apartments-Floors", DefaultContexts.Save)> _
+    Property Floor() As Floors
+        Get
+            Return _Floor
+        End Get
+        Set(ByVal value As Floors)
+            SetPropertyValue("Floor", _Floor, value)
+        End Set
+    End Property
+    <RuleRequiredField("Apartments-Stairway", DefaultContexts.Save)> _
+    Property Stairway() As Stairways
+        Get
+            Return _Stairway
+        End Get
+        Set(ByVal value As Stairways)
+            SetPropertyValue("Stairway", _Stairway, value)
+        End Set
+    End Property
+
+    <VisibleInListView(False)> _
+    <Association("Apartments-LocalityLists", GetType(LocalityLists))> _
+    Public ReadOnly Property LocalityLists() As XPCollection(Of LocalityLists)
+        Get
+            Return GetCollection(Of LocalityLists)("LocalityLists")
+        End Get
+    End Property
+
+    Property WindowDirection() As eWindowDirection
+        Get
+            Return _WindowDirection
+        End Get
+        Set(ByVal value As eWindowDirection)
+            SetPropertyValue("WindowDirection", _WindowDirection, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property AreaPriceNettoHUF() As Double
+        Get
+            Return _AreaPriceNettoHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaPriceNettoHUF", _AreaPriceNettoHUF, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                RecalculatePrice()
+            End If
+        End Set
+    End Property
+    Property AreaPriceNettoDEV() As Double
+        Get
+            Return _AreaPriceNettoDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaPriceNettoDEV", _AreaPriceNettoDEV, value)
+        End Set
+    End Property
+    Property Direction() As eIDirection
+        Get
+            Return _Direction
+        End Get
+        Set(ByVal value As eIDirection)
+            SetPropertyValue("Direction", _Direction, value)
+        End Set
+    End Property
+    Property PriceBruttoHUF() As Double
+        Get
+            Return _PriceBruttoHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceBruttoHUF", _PriceBruttoHUF, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property PriceNettoHUF As Double
+        Get
+            Return _PriceNettoHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceNettoHUF", _PriceNettoHUF, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Me.RecalculatePriceBrutto()
+            End If
+        End Set
+    End Property
+    Property PriceBruttoDEV() As Double
+        Get
+            Return _PriceBruttoDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceBruttoDEV", _PriceBruttoDEV, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property PriceNettoDEV As Double
+        Get
+            Return _PriceNettoDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceNettoDEV", _PriceNettoDEV, value)
+            If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
+                RecalculatePriceBrutto()
+            End If
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    <Description("Terület négyzetméterben")> _
+    Property AreaNetto() As Double
+        Get
+            Return _AreaNetto
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaNetto", _AreaNetto, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                RecalculateAreaNettoForSale()
+            End If
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property AreaNettoUnder190() As Double
+        Get
+            Return _AreaNettoUnder190
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaNettoUnder190", _AreaNettoUnder190, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                RecalculateAreaNettoForSale()
+            End If
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property AreaNettoForSale As Double
+        Get
+            Return _AreaNettoForSale
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaNettoForSale", _AreaNettoForSale, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                RecalculatePrice()
+                MyBase.RecalculatePriceRent()
+            End If
+        End Set
+    End Property
+    Property AreaNettoForCostRecord As Double
+        Get
+            Return _AreaNettoForCostRecord
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AreaNettoForCostRecord", _AreaNettoForCostRecord, value)
+        End Set
+    End Property
+    Property IsTerrace() As Boolean
+        Get
+            Return _IsTerrace
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsTerrace", _IsTerrace, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property AreaTerrace As Double
+        Get
+            Return _AreaTerrace
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaTerrace", _AreaTerrace, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                RecalculateAreaNettoForSale()
+            End If
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Note() As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Note", _Note, value)
+        End Set
+    End Property
+    Property RoomString() As String
+        Get
+            Return _RoomString
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("RoomString", _RoomString, value)
+        End Set
+    End Property
+    <RuleRequiredField("Apartments-UniqueTag", DefaultContexts.Save)> _
+    Property UniqueTag() As String
+        Get
+            Return _UniqueTag
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("UniqueTag", _UniqueTag, value)
+        End Set
+    End Property
+
+    Public Sub MakeUniqueObjects_Apartments()
+        Dim _Name_ImmovablesGroups As String : Dim _UniqueObjects_ImmovablesGroups As UniqueObjects
+        Dim _Name_ImmovablesGroups_X As String : Dim _UniqueObjects_ImmovablesGroups_X As UniqueObjects
+        Dim _Name_Stairway As String : Dim _UniqueObjects_Stairway As UniqueObjects
+        Dim _Name_Stairway_X As String : Dim _UniqueObjects_Stairway_X As UniqueObjects
+        Dim _Name_Floor As String : Dim _UniqueObjects_Floor As UniqueObjects
+        Dim _Name_Floor_X As String : Dim _UniqueObjects_Floor_X As UniqueObjects
+        Dim _Name_Apartments As String : Dim _UniqueObjects_Apartments As UniqueObjects
+
+
+        _Name_ImmovablesGroups = Me.ImmovableGroups.UniqueTag
+        _Name_ImmovablesGroups_X = Me.ImmovableGroups.UniqueTag & "-X"
+
+        _UniqueObjects_ImmovablesGroups = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups))
+        If _UniqueObjects_ImmovablesGroups Is Nothing Then
+            _UniqueObjects_ImmovablesGroups = New UniqueObjects(Session)
+            _UniqueObjects_ImmovablesGroups.Name = _Name_ImmovablesGroups
+            _UniqueObjects_ImmovablesGroups.Save()
+        End If
+        _UniqueObjects_ImmovablesGroups_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups_X))
+        If _UniqueObjects_ImmovablesGroups_X Is Nothing Then
+            _UniqueObjects_ImmovablesGroups_X = New UniqueObjects(Session)
+            _UniqueObjects_ImmovablesGroups_X.Name = _Name_ImmovablesGroups_X
+            _UniqueObjects_ImmovablesGroups_X.Parent = _UniqueObjects_ImmovablesGroups
+            _UniqueObjects_ImmovablesGroups_X.Save()
+        End If
+
+        _Name_Stairway = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag
+        _Name_Stairway_X = _Name_ImmovablesGroups & "-" & Stairway.UniqueTag & "-X"
+
+        _UniqueObjects_Stairway = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Stairway))
+        If _UniqueObjects_Stairway Is Nothing Then
+            _UniqueObjects_Stairway = New UniqueObjects(Session)
+            _UniqueObjects_Stairway.Name = _Name_Stairway
+            _UniqueObjects_Stairway.Parent = _UniqueObjects_ImmovablesGroups
+            _UniqueObjects_Stairway.Save()
+        End If
+        _UniqueObjects_Stairway_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Stairway_X))
+        If _UniqueObjects_Stairway_X Is Nothing Then
+            _UniqueObjects_Stairway_X = New UniqueObjects(Session)
+            _UniqueObjects_Stairway_X.Name = _Name_Stairway_X
+            _UniqueObjects_Stairway_X.Parent = _UniqueObjects_Stairway
+            _UniqueObjects_Stairway_X.Save()
+        End If
+
+        _Name_Floor = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag & "-" & Me.Floor.UniqueTag
+        _Name_Floor_X = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag & "-" & Me.Floor.UniqueTag & "-X"
+
+        _UniqueObjects_Floor = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor))
+        If _UniqueObjects_Floor Is Nothing Then
+            _UniqueObjects_Floor = New UniqueObjects(Session)
+            _UniqueObjects_Floor.Name = _Name_Floor
+            _UniqueObjects_Floor.Parent = _UniqueObjects_Stairway
+            _UniqueObjects_Floor.Save()
+        End If
+        _UniqueObjects_Floor_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor_X))
+        If _UniqueObjects_Floor_X Is Nothing Then
+            _UniqueObjects_Floor_X = New UniqueObjects(Session)
+            _UniqueObjects_Floor_X.Name = _Name_Floor_X
+            _UniqueObjects_Floor_X.Parent = _UniqueObjects_Floor
+            _UniqueObjects_Floor_X.Save()
+        End If
+
+        _Name_Apartments = Me.ImmovableGroups.UniqueTag & "-" & Me.Stairway.UniqueTag & "-" & Me.Floor.UniqueTag & _UniqueTag
+
+        _UniqueObjects_Apartments = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Apartments))
+        If _UniqueObjects_Apartments Is Nothing Then
+            _UniqueObjects_Apartments = New UniqueObjects(Session)
+            _UniqueObjects_Apartments.Name = _Name_Apartments
+            _UniqueObjects_Apartments.Parent = _UniqueObjects_Floor
+            _UniqueObjects_Apartments.Save()
+            Me.UniqueObjects = _UniqueObjects_Apartments
+        End If
+    End Sub
+
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property Immovables_Oid As String
+        Get
+            Return Me.Oid.ToString
+        End Get
+    End Property
+    '-----NonPersistes-----
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceNettoHUF As Double = 0
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceNettoHUFRent As Double = 0
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceBruttoHUF As Double = 0
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceBruttoHUFRent As Double = 0
+End Class ' Lakások

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Container.vb

@@ -0,0 +1,199 @@
+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.Xpo.Metadata
+Imports System.Drawing
+<DefaultClassOptions()> _
+<NavigationItem("RealEstateStocks")> _
+Public Class Container
+    Inherits Immovables
+    Private _Garages As Garages
+    Private _Floor As Floors
+    Private _AreaNetto As Double
+    Private _AreaNettoForCostRecord As Double = 0 'Költség számító négyzetméter
+    Private _PriceBruttoHUF As Double
+    Private _PriceNettoHUF As Double
+    Private _PriceBruttoDEV As Double
+    Private _PriceNettoDEV As Double
+    Private _Note As String
+    Private _UniqueTag As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.ImmovablesTypes = eImmovablesTypes.eContainer
+    End Sub
+    Protected Overrides Sub OnSaving()
+        If Session.IsNewObject(Me) Then
+            If UniqueTag <> "*" Then Me.MakeUniqueObjects_Container()
+        End If
+        MyBase.OnSaving()
+    End Sub
+    Protected Sub RecalculatePriceBrutto()
+        PriceBruttoHUF = Math.Round(PriceNettoHUF * 1.25, 0, MidpointRounding.AwayFromZero)
+        PriceBruttoDEV = Math.Round(PriceNettoDEV * 1.25, 0, MidpointRounding.AwayFromZero)
+    End Sub
+    <Association("Garages-Container", GetType(Garages))> _
+    Property Garages() As Garages
+        Get
+            Return _Garages
+        End Get
+        Set(ByVal value As Garages)
+            SetPropertyValue("Garages", _Garages, value)
+        End Set
+    End Property
+    Property Floor() As Floors
+        Get
+            Return _Floor
+        End Get
+        Set(ByVal value As Floors)
+            SetPropertyValue("Floor", _Floor, value)
+        End Set
+    End Property
+    Property AreaNetto() As Double
+        Get
+            Return _AreaNetto
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaNetto", _AreaNetto, value)
+        End Set
+    End Property
+    Property AreaNettoForCostRecord As Double
+        Get
+            Return _AreaNettoForCostRecord
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AreaNettoForCostRecord", _AreaNettoForCostRecord, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property PriceBruttoHUF() As Double
+        Get
+            Return _PriceBruttoHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceBruttoHUF", _PriceBruttoHUF, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property PriceNettoHUF As Double
+        Get
+            Return _PriceNettoHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceNettoHUF", _PriceNettoHUF, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Me.RecalculatePriceBrutto()
+            End If
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property PriceBruttoDEV() As Double
+        Get
+            Return _PriceBruttoDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceBruttoDEV", _PriceBruttoDEV, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property PriceNettoDEV As Double
+        Get
+            Return _PriceNettoDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceNettoDEV", _PriceNettoDEV, value)
+            If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
+                RecalculatePriceBrutto()
+            End If
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Note() As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Note", _Note, value)
+        End Set
+    End Property
+    <RuleRequiredField("Container-UniqueTag", DefaultContexts.Save)> _
+    Property UniqueTag() As String
+        Get
+            Return _UniqueTag
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("UniqueTag", _UniqueTag, value)
+        End Set
+    End Property
+    Public Sub MakeUniqueObjects_Container()
+        Dim _Name_ImmovablesGroups As String : Dim _UniqueObjects_ImmovablesGroups As UniqueObjects
+        Dim _Name_ImmovablesGroups_X As String : Dim _UniqueObjects_ImmovablesGroups_X As UniqueObjects
+        Dim _Name_Floor As String : Dim _UniqueObjects_Floor As UniqueObjects
+        Dim _Name_Floor_X As String : Dim _UniqueObjects_Floor_X As UniqueObjects
+        Dim _Name_Container As String : Dim _UniqueObjects_Container As UniqueObjects
+
+        _Name_ImmovablesGroups = Me.ImmovableGroups.UniqueTag
+        _Name_ImmovablesGroups_X = Me.ImmovableGroups.UniqueTag & "-X"
+
+        _UniqueObjects_ImmovablesGroups = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups))
+        If _UniqueObjects_ImmovablesGroups Is Nothing Then
+            _UniqueObjects_ImmovablesGroups = New UniqueObjects(Session)
+            _UniqueObjects_ImmovablesGroups.Name = _Name_ImmovablesGroups
+            _UniqueObjects_ImmovablesGroups.Save()
+        End If
+        _UniqueObjects_ImmovablesGroups_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups_X))
+        If _UniqueObjects_ImmovablesGroups_X Is Nothing Then
+            _UniqueObjects_ImmovablesGroups_X = New UniqueObjects(Session)
+            _UniqueObjects_ImmovablesGroups_X.Name = _Name_ImmovablesGroups_X
+            _UniqueObjects_ImmovablesGroups_X.Parent = _UniqueObjects_ImmovablesGroups
+            _UniqueObjects_ImmovablesGroups_X.Save()
+        End If
+
+        _Name_Floor = _Name_ImmovablesGroups & "-" & "-" & Me.Floor.UniqueTag
+        _Name_Floor_X = _Name_ImmovablesGroups & "-" & "-" & Me.Floor.UniqueTag & "-X"
+
+        _UniqueObjects_Floor = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor))
+        If _UniqueObjects_Floor Is Nothing Then
+            _UniqueObjects_Floor = New UniqueObjects(Session)
+            _UniqueObjects_Floor.Name = _Name_Floor
+            _UniqueObjects_Floor.Parent = _UniqueObjects_ImmovablesGroups
+            _UniqueObjects_Floor.Save()
+        End If
+        _UniqueObjects_Floor_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor_X))
+        If _UniqueObjects_Floor_X Is Nothing Then
+            _UniqueObjects_Floor_X = New UniqueObjects(Session)
+            _UniqueObjects_Floor_X.Name = _Name_Floor_X
+            _UniqueObjects_Floor_X.Parent = _UniqueObjects_Floor
+            _UniqueObjects_Floor_X.Save()
+        End If
+
+        _Name_Container = Me.ImmovableGroups.UniqueTag & "-" & Me.Floor.UniqueTag & _UniqueTag
+
+        _UniqueObjects_Container = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Container))
+        If _UniqueObjects_Container Is Nothing Then
+            _UniqueObjects_Container = New UniqueObjects(Session)
+            _UniqueObjects_Container.Name = _Name_Container
+            _UniqueObjects_Container.Parent = _UniqueObjects_Floor
+            _UniqueObjects_Container.Save()
+            Me.UniqueObjects = _UniqueObjects_Container
+        End If
+    End Sub
+
+    '-----NonPersistes-----
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceNettoHUF As Double = 0
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceNettoHUFRent As Double = 0
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceBruttoHUF As Double = 0
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceBruttoHUFRent As Double = 0
+End Class 'Tárolók

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecord.vb

@@ -0,0 +1,93 @@
+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 eSIDChild
+    SID_NONE = 0
+    SID_WH = 1
+    SID_QM1 = 2
+    SID_QM2 = 3
+    SID_ARAM = 4
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("RealEstateStocks")> _
+Public Class ImmovablesCostRecord
+    Inherits BaseObject
+    Private _Immovables As Immovables 'Melyik ingatlanhoz tartozik
+    Private _ShortName As String 'Megnevezés
+    Private _SID As String 'Egyedi azonosítója a mérõórának
+    Private _SIDChild As eSIDChild
+    Private _ImmovablesCostRecordGroup As ImmovablesCostRecordGroup
+    Private _Description_ContactRows As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property Immovables As Immovables
+        Get
+            Return _Immovables
+        End Get
+        Set(value As Immovables)
+            SetPropertyValue("Immovables", _Immovables, 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 SID As String
+        Get
+            Return _SID
+        End Get
+        Set(value As String)
+            SetPropertyValue("SID", _SID, value)
+        End Set
+    End Property
+    Property SIDChild As eSIDChild
+        Get
+            Return _SIDChild
+        End Get
+        Set(value As eSIDChild)
+            SetPropertyValue("SIDChild", _SIDChild, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description_ContactRows As String
+        Get
+            Return _Description_ContactRows
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description_ContactRows", _Description_ContactRows, value)
+        End Set
+    End Property
+
+    Property ImmovablesCostRecordGroup As ImmovablesCostRecordGroup
+        Get
+            Return _ImmovablesCostRecordGroup
+        End Get
+        Set(value As ImmovablesCostRecordGroup)
+            SetPropertyValue("ImmovablesCostRecordGroup", _ImmovablesCostRecordGroup, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    <Association("ImmovablesCostRecord-ImmovablesCostRecordEvents", GetType(ImmovablesCostRecordEvents))> _
+    ReadOnly Property ImmovablesCostRecordEvents As XPCollection(Of ImmovablesCostRecordEvents)
+        Get
+            Return GetCollection(Of ImmovablesCostRecordEvents)("ImmovablesCostRecordEvents")
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordContactRow.vb

@@ -0,0 +1,42 @@
+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), NonPersistent()> _
+Public Class ImmovablesCostRecordContactRow
+    Inherits BaseObject
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    ReadOnly Property Contracts As XPCollection(Of Contracts)
+        Get
+            If UniqueObjects IsNot Nothing Then
+                Return New XPCollection(Of Contracts)(Session, Session.ParseCriteria("State in ('Ready','Signed') and UniqueObjects=?", UniqueObjects))
+            Else
+                Return Nothing
+            End If
+        End Get
+    End Property
+    <Browsable(False)> Property UniqueObjects As UniqueObjects
+    Property Controlling As Controlling
+    Property CostHolder As CostHolder
+    Property CostPlace As CostPlace
+    Property JobNumberObjects As JobNumberObjects
+    Property ShortName As String
+    Property DateExecution As Date
+    Property PaymentOption As PaymentOption
+    Property InvoicePeriod As String
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordDescriptionPopup.vb

@@ -0,0 +1,29 @@
+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), NonPersistent()> _
+Public Class ImmovablesCostRecordDescriptionPopup
+    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
+    <Size(-1)> Property Description As String
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordEvents.vb

@@ -0,0 +1,229 @@
+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 eReadState
+    eSimpleRead = 0 'Mormál leolvasás
+    eTransferOutRead = 1 'Átadási leolvasás
+    eTransferInRead = 2 'Átvételi leolvasás
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Red if no price", AppearanceItemType:="ViewItem", criteria:="ReadedValueSumPrice<=0", FontColor:="Red", targetitems:="*")> _
+Public Class ImmovablesCostRecordEvents
+    Inherits BaseObject
+    Private _ImmovablesCostRecord As ImmovablesCostRecord
+    Private _ReadedValue As Double
+    Private _ReadState As eReadState
+    Private _ReadDate As Date  'Mikor történt a leolvasás
+
+    Private _ReadIndex As Long 'Hányadik leolvasás ?
+    Private _UserCreated As User
+    Private _DateCreated As Date
+    Private _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel
+    Private _ReadedValuePrev As Double 'Elõzõ esemény értéke EVENT állása
+    Private _ReadedValueDiff As Double
+    Private _ReadedValuePrice As Double
+    Private _ReadedValueSumPrice As Double
+
+    Private _ContractRows As ContractRows
+    Private _InvoicePeriod As String
+    Private _IsReader As Boolean = False
+    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
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            If Not SecuritySystem.CurrentUser Is Nothing Then
+                Dim currentUser As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+                UserCreated = currentUser
+            End If
+            DateCreated = GetSQLTime(Session)
+        End If
+    End Sub
+    <Association("ImmovablesCostRecord-ImmovablesCostRecordEvents", GetType(ImmovablesCostRecord))> _
+    <RuleRequiredField("ImmovablesCostRecordEvents-ImmovablesCostRecord", DefaultContexts.Save)> _
+    Property ImmovablesCostRecord As ImmovablesCostRecord
+        Get
+            Return _ImmovablesCostRecord
+        End Get
+        Set(value As ImmovablesCostRecord)
+            SetPropertyValue("ImmovablesCostRecord", _ImmovablesCostRecord, value)
+        End Set
+    End Property
+    Property ReadedValue As Double
+        Get
+            Return _ReadedValue
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ReadedValue", _ReadedValue, value)
+        End Set
+    End Property
+    Property ReadState As eReadState
+        Get
+            Return _ReadState
+        End Get
+        Set(value As eReadState)
+
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property ReadDate As Date
+        Get
+            Return _ReadDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ReadDate", _ReadDate, value)
+            OnChanged(ReadDateYear)
+            OnChanged(ReadDateMonth)
+            OnChanged(ReadDateQuarter)
+        End Set
+    End Property
+    Property ReadDateYear As String
+        Get
+            Return AlignStr(DatePart(DateInterval.Year, ReadDate).ToString, eDirection.Left, "0", 4)
+        End Get
+        Set(value As String)
+            SetPropertyValue("ReadDateYear", AlignStr(DatePart(DateInterval.Year, ReadDate).ToString, eDirection.Left, "0", 4), value)
+        End Set
+    End Property
+    Property ReadDateQuarter As String
+        Get
+            Return AlignStr(DatePart(DateInterval.Quarter, ReadDate).ToString, eDirection.Left, "0", 2)
+        End Get
+        Set(value As String)
+            SetPropertyValue("ReadDateQuarter", AlignStr(DatePart(DateInterval.Quarter, ReadDate).ToString, eDirection.Left, "0", 2), value)
+        End Set
+    End Property
+    Property ReadDateMonth As String
+        Get
+            Return AlignStr(DatePart(DateInterval.Month, ReadDate).ToString, eDirection.Left, "0", 2)
+        End Get
+        Set(value As String)
+            SetPropertyValue("ReadDateMonth", AlignStr(DatePart(DateInterval.Month, ReadDate).ToString, eDirection.Left, "0", 2), value)
+        End Set
+    End Property
+
+    Property ReadIndex As Long
+        Get
+            Return _ReadIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("ReadIndex", _ReadIndex, 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
+    <NonCloneable()> _
+    Property DateCreated As Date
+        Get
+            Return _DateCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateCreated", _DateCreated, value)
+        End Set
+    End Property
+    Property ImmovablesCostRecordExcel As ImmovablesCostRecordExcel
+        Get
+            Return _ImmovablesCostRecordExcel
+        End Get
+        Set(value As ImmovablesCostRecordExcel)
+            SetPropertyValue("ImmovablesCostRecordExcel", _ImmovablesCostRecordExcel, value)
+        End Set
+    End Property
+    Property ReadedValuePrev As Double
+        Get
+            Return Math.Round(_ReadedValuePrev, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("_ReadedValuePrev", _ReadedValuePrev, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+        End Set
+    End Property
+    Property ReadedValueDiff As Double
+        Get
+            Return Math.Round(_ReadedValueDiff, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ReadedValueDiff", _ReadedValueDiff, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+        End Set
+    End Property
+    Property ReadedValuePrice As Double
+        Get
+            Return Math.Round(_ReadedValuePrice, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ReadedValuePrice", _ReadedValuePrice, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+        End Set
+    End Property
+    Property ReadedValueSumPrice As Double
+        Get
+            Return _ReadedValueSumPrice
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ReadedValueSumPrice", _ReadedValueSumPrice, value)
+        End Set
+    End Property
+
+    <VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    Property ContractRows As ContractRows
+        Get
+            Return _ContractRows
+        End Get
+        Set(value As ContractRows)
+            SetPropertyValue("ContractRows", _ContractRows, value)
+        End Set
+    End Property
+    Property InvoicePeriod As String
+        Get
+            Return _InvoicePeriod
+        End Get
+        Set(value As String)
+            SetPropertyValue("InvoicePeriod", _InvoicePeriod, value)
+        End Set
+    End Property
+    Property IsReader As Boolean
+        Get
+            Return _IsReader
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsReader", _IsReader, value)
+        End Set
+    End Property
+
+    ReadOnly Property Description_ContractRows As String
+        Get
+            If ImmovablesCostRecord IsNot Nothing Then
+                If ImmovablesCostRecord.Description_ContactRows Is Nothing Then
+                    Return ""
+                Else
+                    Return String.Format(ImmovablesCostRecord.Description_ContactRows, Math.Round(ReadedValuePrev, 4, MidpointRounding.AwayFromZero), _
+                                                                                       Math.Round(ReadedValue, 4, MidpointRounding.AwayFromZero), _
+                                                                                       Math.Round(ReadedValueDiff, 4, MidpointRounding.AwayFromZero))
+                End If
+            Else
+                Return ""
+            End If
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcel.vb

@@ -0,0 +1,143 @@
+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), DefaultProperty("ShortName")> _
+<FileAttachment("ExcelFile")> _
+Public Class ImmovablesCostRecordExcel
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _UserCreated As User
+    Private _ObjectCreated As Date
+    Private _ExcelProperty As String
+    Private _ExcelFile As FileData
+    Private _ImportExcelFile As FileData
+    Private _DateExecution As Date
+    Private _IsEditable As Boolean = True
+    Private _IsStorno As Boolean = False
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Dim _ImmovablesCostRecordMainGroup_Collection As New XPCollection(Of ImmovablesCostRecordMainGroup)(Session, CriteriaOperator.Parse("1=1"))
+
+        For Each _ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup In _ImmovablesCostRecordMainGroup_Collection
+            Dim _ImmovablesCostRecordExcelMainGroup As New ImmovablesCostRecordExcelMainGroup(Session)
+            _ImmovablesCostRecordExcelMainGroup.ImmovablesCostRecordExcel = Me
+            _ImmovablesCostRecordExcelMainGroup.IsUseInExcel = True
+            _ImmovablesCostRecordExcelMainGroup.ImmovablesCostRecordMainGroup = _ImmovablesCostRecordMainGroup
+        Next
+        Me.DateExecution = GetSQLTime(Session)
+    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
+
+    <RuleRequiredField("ImmovablesCostRecordExcel-ShortName", DefaultContexts.Save)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, 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
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property ExcelProperty As String
+        Get
+            Return _ExcelProperty
+        End Get
+        Set(value As String)
+            SetPropertyValue("ExcelProperty", _ExcelProperty, value)
+        End Set
+    End Property
+    <Aggregated(), ExpandObjectMembers(ExpandObjectMembers.Never)> _
+    Property ExcelFile As FileData
+        Get
+            Return _ExcelFile
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("ExcelFile", _ExcelFile, value)
+        End Set
+    End Property
+    <Aggregated(), ExpandObjectMembers(ExpandObjectMembers.Never)> _
+    Property ImportExcelFile As FileData
+        Get
+            Return _ImportExcelFile
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("ImportExcelFile", _ImportExcelFile, value)
+        End Set
+    End Property
+    Property DateExecution As Date
+        Get
+            Return _DateExecution.Date
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value.Date)
+        End Set
+    End Property
+    Property IsEditable As Boolean
+        Get
+            Return _IsEditable
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsEditable", _IsEditable, value)
+        End Set
+    End Property
+    Property IsStorno As Boolean
+        Get
+            Return _IsStorno
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsStorno", _IsStorno, value)
+        End Set
+    End Property
+
+    '-------------------------ReadOnly ----------------
+    <Association("ImmovablesCostRecordMainGroup-ImmovablesCostRecordExcel", GetType(ImmovablesCostRecordExcelMainGroup)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property ImmovablesCostRecordExcelMainGroup As XPCollection(Of ImmovablesCostRecordExcelMainGroup)
+        Get
+            Return GetCollection(Of ImmovablesCostRecordExcelMainGroup)("ImmovablesCostRecordExcelMainGroup")
+        End Get
+    End Property
+    <Association("ImmovablesCostRecordExcel-ImmovablesCostRecordExcelImmovables", GetType(ImmovablesCostRecordExcelImmovables)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property ImmovablesCostRecordExcelImmovables As XPCollection(Of ImmovablesCostRecordExcelImmovables)
+        Get
+            Return GetCollection(Of ImmovablesCostRecordExcelImmovables)("ImmovablesCostRecordExcelImmovables")
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelImmovables.vb

@@ -0,0 +1,49 @@
+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 ImmovablesCostRecordExcelImmovables
+    Inherits BaseObject
+
+    Private _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel
+    Private _Immovables As Immovables
+    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("ImmovablesCostRecordExcel-ImmovablesCostRecordExcelImmovables", GetType(ImmovablesCostRecordExcel))> _
+    Property ImmovablesCostRecordExcel As ImmovablesCostRecordExcel
+        Get
+            Return _ImmovablesCostRecordExcel
+        End Get
+        Set(value As ImmovablesCostRecordExcel)
+            SetPropertyValue("ImmovablesCostRecordExcel", _ImmovablesCostRecordExcel, value)
+        End Set
+    End Property
+    Property Immovables As Immovables
+        Get
+            Return _Immovables
+        End Get
+        Set(value As Immovables)
+            SetPropertyValue("Immovables", _Immovables, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelMainGroup.vb

@@ -0,0 +1,54 @@
+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 ImmovablesCostRecordExcelMainGroup
+    Inherits BaseObject
+
+    Private _ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup
+    Private _IsUseInExcel As Boolean
+    Private _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        IsUseInExcel = True
+    End Sub
+
+    <Association("ImmovablesCostRecordMainGroup-ImmovablesCostRecordExcel", GetType(ImmovablesCostRecordExcel))> _
+    Property ImmovablesCostRecordExcel As ImmovablesCostRecordExcel
+        Get
+            Return _ImmovablesCostRecordExcel
+        End Get
+        Set(value As ImmovablesCostRecordExcel)
+            SetPropertyValue("ImmovablesCostRecordExcel", _ImmovablesCostRecordExcel, value)
+        End Set
+    End Property
+    Property ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup
+        Get
+            Return _ImmovablesCostRecordMainGroup
+        End Get
+        Set(value As ImmovablesCostRecordMainGroup)
+            SetPropertyValue("ImmovablesCostRecordMainGroup", _ImmovablesCostRecordMainGroup, value)
+        End Set
+    End Property
+    Property IsUseInExcel As Boolean
+        Get
+            Return _IsUseInExcel
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsUseInExcel", _IsUseInExcel, value)
+        End Set
+    End Property
+End Class
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.Designer.vb

@@ -0,0 +1,105 @@
+Partial Class ImmovablesCostRecordExcelVC
+
+	<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.aCreateContractRows_Costs = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aRemoveContractRows_Costs = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aImportImmovables = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCreateContractRows_Costs_FromContract = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aCreateContractRows_Costs
+        '
+        Me.aCreateContractRows_Costs.Caption = "aCreateContractRows_Costs"
+        Me.aCreateContractRows_Costs.ConfirmationMessage = Nothing
+        Me.aCreateContractRows_Costs.Id = "aCreateContractRows_Costs"
+        Me.aCreateContractRows_Costs.ImageName = Nothing
+        Me.aCreateContractRows_Costs.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aCreateContractRows_Costs.Shortcut = Nothing
+        Me.aCreateContractRows_Costs.Tag = Nothing
+        Me.aCreateContractRows_Costs.TargetObjectsCriteria = Nothing
+        Me.aCreateContractRows_Costs.TargetObjectType = GetType(SISBusiness.[Module].ImmovablesCostRecordEvents)
+        Me.aCreateContractRows_Costs.TargetViewId = ""
+        Me.aCreateContractRows_Costs.ToolTip = Nothing
+        Me.aCreateContractRows_Costs.TypeOfView = Nothing
+        '
+        'aRemoveContractRows_Costs
+        '
+        Me.aRemoveContractRows_Costs.Caption = "aRemoveContractRows_Costs"
+        Me.aRemoveContractRows_Costs.ConfirmationMessage = Nothing
+        Me.aRemoveContractRows_Costs.Id = "aRemoveContractRows_Costs"
+        Me.aRemoveContractRows_Costs.ImageName = Nothing
+        Me.aRemoveContractRows_Costs.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aRemoveContractRows_Costs.Shortcut = Nothing
+        Me.aRemoveContractRows_Costs.Tag = Nothing
+        Me.aRemoveContractRows_Costs.TargetObjectsCriteria = Nothing
+        Me.aRemoveContractRows_Costs.TargetObjectType = GetType(SISBusiness.[Module].ImmovablesCostRecordEvents)
+        Me.aRemoveContractRows_Costs.TargetViewId = ""
+        Me.aRemoveContractRows_Costs.ToolTip = Nothing
+        Me.aRemoveContractRows_Costs.TypeOfView = Nothing
+        '
+        'aImportImmovables
+        '
+        Me.aImportImmovables.AcceptButtonCaption = Nothing
+        Me.aImportImmovables.CancelButtonCaption = Nothing
+        Me.aImportImmovables.Caption = "aImport Immovables"
+        Me.aImportImmovables.ConfirmationMessage = Nothing
+        Me.aImportImmovables.Id = "aImportImmovables"
+        Me.aImportImmovables.ImageName = Nothing
+        Me.aImportImmovables.Shortcut = Nothing
+        Me.aImportImmovables.Tag = Nothing
+        Me.aImportImmovables.TargetObjectsCriteria = Nothing
+        Me.aImportImmovables.TargetObjectType = GetType(SISBusiness.[Module].ImmovablesCostRecordExcelImmovables)
+        Me.aImportImmovables.TargetViewId = Nothing
+        Me.aImportImmovables.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aImportImmovables.ToolTip = Nothing
+        Me.aImportImmovables.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aCreateContractRows_Costs_FromContract
+        '
+        Me.aCreateContractRows_Costs_FromContract.AcceptButtonCaption = Nothing
+        Me.aCreateContractRows_Costs_FromContract.CancelButtonCaption = Nothing
+        Me.aCreateContractRows_Costs_FromContract.Caption = "aCreateContractRows_Costs_FromContract"
+        Me.aCreateContractRows_Costs_FromContract.ConfirmationMessage = Nothing
+        Me.aCreateContractRows_Costs_FromContract.Id = "aCreateContractRows_Costs_FromContract"
+        Me.aCreateContractRows_Costs_FromContract.ImageName = Nothing
+        Me.aCreateContractRows_Costs_FromContract.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCreateContractRows_Costs_FromContract.Shortcut = Nothing
+        Me.aCreateContractRows_Costs_FromContract.Tag = Nothing
+        Me.aCreateContractRows_Costs_FromContract.TargetObjectsCriteria = Nothing
+        Me.aCreateContractRows_Costs_FromContract.TargetObjectType = GetType(SISBusiness.[Module].ImmovablesCostRecordEvents)
+        Me.aCreateContractRows_Costs_FromContract.TargetViewId = Nothing
+        Me.aCreateContractRows_Costs_FromContract.ToolTip = Nothing
+        Me.aCreateContractRows_Costs_FromContract.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aCreateContractRows_Costs As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aRemoveContractRows_Costs As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aImportImmovables As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCreateContractRows_Costs_FromContract As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.resx

@@ -0,0 +1,135 @@
+<?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="aCreateContractRows_Costs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aRemoveContractRows_Costs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aImportImmovables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>432, 56</value>
+  </metadata>
+  <metadata name="aCreateContractRows_Costs_FromContract.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>434, 93</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/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.vb

@@ -0,0 +1,375 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.CloneObject
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.Editors
+
+Public Class ImmovablesCostRecordExcelVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        Frame.GetController(Of ImmovablesCostRecordExcelVC).aCreateContractRows_Costs.Active.SetItemValue("", False)
+        Frame.GetController(Of ImmovablesCostRecordExcelVC).aRemoveContractRows_Costs.Active.SetItemValue("", False)
+
+        If View.Id = "ImmovablesCostRecordEvents_ListView" Then
+            Frame.GetController(Of ImmovablesCostRecordExcelVC).aCreateContractRows_Costs.Active.SetItemValue("", True)
+            Frame.GetController(Of ImmovablesCostRecordExcelVC).aRemoveContractRows_Costs.Active.SetItemValue("", True)
+        End If
+
+        If View.Id = "ImmovablesCostRecordExcel_ListView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+        End If
+
+        If View.Id = "ImmovablesCostRecordExcel_DetailView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then
+            Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelImmovables_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+        End If
+    End Sub
+
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "ImmovablesCostRecordExcel_ListView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+        End If
+
+        If View.Id = "ImmovablesCostRecordExcel_DetailView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+        End If
+
+        If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then
+            Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+        End If
+
+    End Sub
+
+    Private Sub aCreateContractRows_Costs_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateContractRows_Costs.Execute
+        '// Szerzõdési sor ImmovablesCostRecordEvents-bõl
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ImmovablesCostRecordEvents As ImmovablesCostRecordEvents
+        Dim _ContractRows_Collection As XPCollection(Of ContractRows)
+        Dim _ContractRows_New As ContractRows
+
+        For Each _ImmovablesCostRecordEvents In View.SelectedObjects
+            If _ImmovablesCostRecordEvents.ContractRows Is Nothing Then
+
+                _ContractRows_Collection = New XPCollection(Of ContractRows)(_ocur.Session, _
+                    CriteriaOperator.Parse("Controlling=? and UniqueObjects=? and Contracts.State in ('Ready','Signed')", _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.Controlling, _
+                                           _ImmovablesCostRecordEvents.ImmovablesCostRecord.Immovables.UniqueObjects))
+                _ContractRows_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Descending))
+
+                'Dim _ContractRows As ContractRows = _ocur.FindObject(Of ContractRows)(CriteriaOperator.Parse("Controlling=? and UniqueObjects=? and CostHolder=?", _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.Controlling, _
+                '                           _ImmovablesCostRecordEvents.ImmovablesCostRecord.Immovables.UniqueObjects, _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.CostHolder))
+                If _ContractRows_Collection.Count > 0 Then
+
+
+                    _ContractRows_New = _ocur.CreateObject(Of ContractRows)()
+                    _ContractRows_New.Contracts = _ContractRows_Collection(0).Contracts
+                    _ContractRows_New.ContractRowsType = _ContractRows_Collection(0).ContractRowsType
+                    _ContractRows_New.Controlling = _ContractRows_Collection(0).Controlling
+                    _ContractRows_New.CostHolder = _ContractRows_Collection(0).CostHolder
+                    _ContractRows_New.CostPlace = _ContractRows_Collection(0).CostPlace
+                    _ContractRows_New.CurrencyName = _ContractRows_Collection(0).CurrencyName
+                    _ContractRows_New.CurrencyRate = _ContractRows_Collection(0).CurrencyRate
+                    _ContractRows_New.DateExecution = _ImmovablesCostRecordEvents.ReadDate
+                    _ContractRows_New.Description = _ImmovablesCostRecordEvents.Description_ContractRows
+                    _ContractRows_New.MileStone = _ContractRows_Collection(0).MileStone
+                    _ContractRows_New.NettoPriceDEV = 0
+                    _ContractRows_New.NettoPriceHUF = _ImmovablesCostRecordEvents.ReadedValueSumPrice
+                    _ContractRows_New.PaymentOption = _ContractRows_Collection(0).PaymentOption
+                    _ContractRows_New.QTT = _ContractRows_Collection(0).QTT
+                    _ContractRows_New.QualityOption = _ContractRows_Collection(0).QualityOption
+                    _ContractRows_New.ShipmentOption = _ContractRows_Collection(0).ShipmentOption
+                    _ContractRows_New.ShortName = _ContractRows_Collection(0).ShortName
+                    _ContractRows_New.UniqueObjects = _ContractRows_Collection(0).UniqueObjects
+                    _ContractRows_New.Units = _ContractRows_Collection(0).Units
+                    _ContractRows_New.VAT = _ContractRows_Collection(0).VAT
+                    _ContractRows_New.JobNumberObjects = _ContractRows_Collection(0).JobNumberObjects
+                    _ContractRows_New.InvoicePeriod = _ImmovablesCostRecordEvents.InvoicePeriod
+
+                    _ContractRows_New.ImmovablesCostRecordEvents = _ImmovablesCostRecordEvents
+
+                    _ImmovablesCostRecordEvents.ContractRows = _ContractRows_New
+                    _ImmovablesCostRecordEvents.Save()
+                    _ocur.CommitChanges()
+                End If
+
+
+            End If
+
+        Next
+
+        View.Refresh()
+
+    End Sub
+
+    Private Sub aRemoveContractRows_Costs_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRemoveContractRows_Costs.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ImmovablesCostRecordEvents As ImmovablesCostRecordEvents
+
+        For Each _ImmovablesCostRecordEvents In View.SelectedObjects
+            If _ImmovablesCostRecordEvents.ContractRows IsNot Nothing Then
+                If _ImmovablesCostRecordEvents.ContractRows.InvoiceRows Is Nothing Then
+                    _ImmovablesCostRecordEvents.ContractRows.ImmovablesCostRecordEvents = Nothing
+                    _ImmovablesCostRecordEvents.ContractRows.Save()
+                    _ImmovablesCostRecordEvents.ContractRows = Nothing
+                    _ImmovablesCostRecordEvents.Save()
+                    _ocur.CommitChanges()
+                End If
+            End If
+        Next
+    End Sub
+
+    Private Sub aImportImmovables_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImportImmovables.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _ImmovablesPriceListHeader As ImmovablesPriceListHeader
+        Dim _ImmovablesPriceListRowsA As ImmovablesPriceListRowsA
+        Dim _ImmovablesPriceListRowsG As ImmovablesPriceListRowsG
+        Dim _ImmovablesPriceListRowsO As ImmovablesPriceListRowsO
+        Dim _ImmovablesPriceListRowsC As ImmovablesPriceListRowsC
+
+
+        Dim _Apartments_Collection As New XPCollection(Of Apartments)(_onew.Session)
+        Dim _Apartments As Apartments
+
+        Dim _Garages_Collection As New XPCollection(Of Garages)(_onew.Session)
+        Dim _Garages As Garages
+
+        Dim _Container_Collection As New XPCollection(Of Container)(_onew.Session)
+        Dim _Container As Container
+
+        Dim _Offices_Collection As New XPCollection(Of Offices)(_onew.Session)
+        Dim _Offices As Offices
+
+        _ImmovablesPriceListHeader = _onew.CreateObject(Of ImmovablesPriceListHeader)()
+        For Each _Apartments In _Apartments_Collection
+            _ImmovablesPriceListRowsA = _onew.CreateObject(Of ImmovablesPriceListRowsA)()
+            _ImmovablesPriceListRowsA.ImmovablesPriceListHeader = _ImmovablesPriceListHeader
+            _ImmovablesPriceListRowsA.Apartments = _Apartments
+            _ImmovablesPriceListHeader.ImmovablesPriceListRowsA.Add(_ImmovablesPriceListRowsA)
+        Next
+
+        For Each _Garages In _Garages_Collection
+            _ImmovablesPriceListRowsG = _onew.CreateObject(Of ImmovablesPriceListRowsG)()
+            _ImmovablesPriceListRowsG.ImmovablesPriceListHeader = _ImmovablesPriceListHeader
+            _ImmovablesPriceListRowsG.Garages = _Garages
+            _ImmovablesPriceListHeader.ImmovablesPriceListRowsG.Add(_ImmovablesPriceListRowsG)
+        Next
+
+        For Each _Offices In _Offices_Collection
+            _ImmovablesPriceListRowsO = _onew.CreateObject(Of ImmovablesPriceListRowsO)()
+            _ImmovablesPriceListRowsO.ImmovablesPriceListHeader = _ImmovablesPriceListHeader
+            _ImmovablesPriceListRowsO.Offices = _Offices
+            _ImmovablesPriceListHeader.ImmovablesPriceListRowsO.Add(_ImmovablesPriceListRowsO)
+        Next
+
+        For Each _Container In _Container_Collection
+            _ImmovablesPriceListRowsC = _onew.CreateObject(Of ImmovablesPriceListRowsC)()
+            _ImmovablesPriceListRowsC.ImmovablesPriceListHeader = _ImmovablesPriceListHeader
+            _ImmovablesPriceListRowsC.Container = _Container
+            _ImmovablesPriceListHeader.ImmovablesPriceListRowsC.Add(_ImmovablesPriceListRowsC)
+        Next
+
+
+        e.View = Application.CreateDetailView(_onew, "ImmovablesPriceListHeader_DetailView_Finder", False, _ImmovablesPriceListHeader)
+    End Sub
+
+    Private Sub aImportImmovables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImportImmovables.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, ImmovablesCostRecordExcel)
+        Dim _ImmovablesCostRecordExcelImmovables As ImmovablesCostRecordExcelImmovables
+        Dim _DetailView As DetailView = TryCast(e.PopupWindow.View, DetailView)
+        Dim _ListView As ListView = Nothing
+        Dim _ListPropertyEditor As ListPropertyEditor
+
+        Dim _ImmovablesPriceListRowsA As ImmovablesPriceListRowsA
+        Dim _ImmovablesPriceListRowsG As ImmovablesPriceListRowsG
+        Dim _ImmovablesPriceListRowsO As ImmovablesPriceListRowsO
+        Dim _ImmovablesPriceListRowsC As ImmovablesPriceListRowsC
+
+        If _ImmovablesCostRecordExcel IsNot Nothing Then
+            If _DetailView IsNot Nothing Then
+                _ListPropertyEditor = _DetailView.FindItem("ImmovablesPriceListRowsA")
+                If _ListPropertyEditor IsNot Nothing Then
+                    _ListView = TryCast(_ListPropertyEditor.ListView, ListView)
+                    If _ListView IsNot Nothing Then
+                        For Each _ImmovablesPriceListRowsA In _ListView.SelectedObjects
+                            _ImmovablesCostRecordExcelImmovables = _ocur.CreateObject(Of ImmovablesCostRecordExcelImmovables)()
+                            _ImmovablesCostRecordExcelImmovables.ImmovablesCostRecordExcel = _ImmovablesCostRecordExcel
+                            _ImmovablesCostRecordExcelImmovables.Immovables = TryCast(_ocur.GetObjectByKey(Of Immovables)(_ImmovablesPriceListRowsA.Apartments.Oid), Immovables)
+                            _ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Add(_ImmovablesCostRecordExcelImmovables)
+                        Next
+                    End If
+                End If
+
+                _ListPropertyEditor = _DetailView.FindItem("ImmovablesPriceListRowsG")
+                If _ListPropertyEditor IsNot Nothing Then
+                    _ListView = TryCast(_ListPropertyEditor.ListView, ListView)
+                    If _ListView IsNot Nothing Then
+                        For Each _ImmovablesPriceListRowsG In _ListView.SelectedObjects
+                            _ImmovablesCostRecordExcelImmovables = _ocur.CreateObject(Of ImmovablesCostRecordExcelImmovables)()
+                            _ImmovablesCostRecordExcelImmovables.ImmovablesCostRecordExcel = _ImmovablesCostRecordExcel
+                            _ImmovablesCostRecordExcelImmovables.Immovables = TryCast(_ocur.GetObjectByKey(Of Immovables)(_ImmovablesPriceListRowsG.Garages.Oid), Immovables)
+                            _ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Add(_ImmovablesCostRecordExcelImmovables)
+                        Next
+                    End If
+                End If
+
+                _ListPropertyEditor = _DetailView.FindItem("ImmovablesPriceListRowsO")
+                If _ListPropertyEditor IsNot Nothing Then
+                    _ListView = TryCast(_ListPropertyEditor.ListView, ListView)
+                    If _ListView IsNot Nothing Then
+                        For Each _ImmovablesPriceListRowsO In _ListView.SelectedObjects
+                            _ImmovablesCostRecordExcelImmovables = _ocur.CreateObject(Of ImmovablesCostRecordExcelImmovables)()
+                            _ImmovablesCostRecordExcelImmovables.ImmovablesCostRecordExcel = _ImmovablesCostRecordExcel
+                            _ImmovablesCostRecordExcelImmovables.Immovables = TryCast(_ocur.GetObjectByKey(Of Immovables)(_ImmovablesPriceListRowsO.Offices.Oid), Immovables)
+                            _ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Add(_ImmovablesCostRecordExcelImmovables)
+                        Next
+                    End If
+                End If
+                _ListPropertyEditor = _DetailView.FindItem("ImmovablesPriceListRowsC")
+                If _ListPropertyEditor IsNot Nothing Then
+                    _ListView = TryCast(_ListPropertyEditor.ListView, ListView)
+                    If _ListView IsNot Nothing Then
+                        For Each _ImmovablesPriceListRowsC In _ListView.SelectedObjects
+                            _ImmovablesCostRecordExcelImmovables = _ocur.CreateObject(Of ImmovablesCostRecordExcelImmovables)()
+                            _ImmovablesCostRecordExcelImmovables.ImmovablesCostRecordExcel = _ImmovablesCostRecordExcel
+                            _ImmovablesCostRecordExcelImmovables.Immovables = TryCast(_ocur.GetObjectByKey(Of Immovables)(_ImmovablesPriceListRowsC.Container.Oid), Immovables)
+                            _ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Add(_ImmovablesCostRecordExcelImmovables)
+                        Next
+                    End If
+                End If
+            End If
+        End If
+        e.PopupWindow.View.ObjectSpace.Rollback()
+
+        _ocur.CommitChanges()
+
+    End Sub
+
+    Private Sub aCreateContractRows_Costs_FromContract_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateContractRows_Costs_FromContract.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _ImmovablesCostRecordContactRow As ImmovablesCostRecordContactRow
+        Dim _ImmovablesCostRecordEvents As ImmovablesCostRecordEvents = TryCast(View.SelectedObjects(0), ImmovablesCostRecordEvents)
+
+        If _ImmovablesCostRecordEvents IsNot Nothing Then
+            If _ImmovablesCostRecordEvents.ImmovablesCostRecord IsNot Nothing Then
+                If _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup IsNot Nothing Then
+
+                    _ImmovablesCostRecordContactRow = _onew.CreateObject(Of ImmovablesCostRecordContactRow)()
+
+                    If _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.Controlling IsNot Nothing Then
+                        _ImmovablesCostRecordContactRow.Controlling = _onew.GetObjectByKey(Of Controlling)(_ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.Controlling.Oid)
+                    End If
+                    If _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.CostHolder IsNot Nothing Then
+                        _ImmovablesCostRecordContactRow.CostHolder = _onew.GetObjectByKey(Of CostHolder)(_ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.CostHolder.Oid)
+                    End If
+                    If _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.CostPlace IsNot Nothing Then
+                        _ImmovablesCostRecordContactRow.CostPlace = _onew.GetObjectByKey(Of CostPlace)(_ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.CostPlace.Oid)
+                    End If
+
+                    If _ImmovablesCostRecordEvents.ImmovablesCostRecord.Immovables.UniqueObjects IsNot Nothing Then
+                        _ImmovablesCostRecordContactRow.UniqueObjects = _onew.GetObjectByKey(Of UniqueObjects)(_ImmovablesCostRecordEvents.ImmovablesCostRecord.Immovables.UniqueObjects.Oid)
+                    End If
+
+                    e.View = Application.CreateDetailView(_onew, "ImmovablesCostRecordContactRow_DetailView", True, _ImmovablesCostRecordContactRow)
+
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub aCreateContractRows_Costs_FromContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateContractRows_Costs_FromContract.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ImmovablesCostRecordContactRow As ImmovablesCostRecordContactRow = TryCast(e.PopupWindow.View.CurrentObject, ImmovablesCostRecordContactRow)
+        Dim _ImmovablesCostRecordEvents As ImmovablesCostRecordEvents = View.SelectedObjects(0)
+        Dim _ContractRows_New As ContractRows
+        Dim _CurrencyName As CurrencyName = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
+        Dim _Units As Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes=True"))
+        Dim _VAT As VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes=True"))
+
+        Dim _Contracts_ListEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("Contracts")
+        If _Contracts_ListEditor.ListView.SelectedObjects.Count > 0 Then
+            If _Contracts_ListEditor.ListView.SelectedObjects(0) IsNot Nothing Then
+                Dim _Contracts As Contracts = _ocur.GetObjectByKey(Of Contracts)(TryCast(_Contracts_ListEditor.ListView.SelectedObjects(0), Contracts).Oid)
+
+                _ContractRows_New = _ocur.CreateObject(Of ContractRows)()
+                _ContractRows_New.Contracts = _Contracts
+                _ContractRows_New.ContractRowsType = eContractRowsType.eFix
+                If _ImmovablesCostRecordContactRow.Controlling IsNot Nothing Then
+                    _ContractRows_New.Controlling = _ocur.GetObjectByKey(Of Controlling)(_ImmovablesCostRecordContactRow.Controlling.Oid)
+                End If
+                If _ImmovablesCostRecordContactRow.CostHolder IsNot Nothing Then
+                    _ContractRows_New.CostHolder = _ocur.GetObjectByKey(Of CostHolder)(_ImmovablesCostRecordContactRow.CostHolder.Oid)
+                End If
+                If _ImmovablesCostRecordContactRow.CostPlace IsNot Nothing Then
+                    _ContractRows_New.CostPlace = _ocur.GetObjectByKey(Of CostPlace)(_ImmovablesCostRecordContactRow.CostPlace.Oid)
+                End If
+                If _ImmovablesCostRecordContactRow.JobNumberObjects IsNot Nothing Then
+                    _ContractRows_New.JobNumberObjects = _ocur.GetObjectByKey(Of JobNumberObjects)(_ImmovablesCostRecordContactRow.JobNumberObjects.Oid)
+                End If
+                If _ImmovablesCostRecordContactRow.PaymentOption IsNot Nothing Then
+                    _ContractRows_New.PaymentOption = _ocur.GetObjectByKey(Of PaymentOption)(_ImmovablesCostRecordContactRow.PaymentOption.Oid)
+                End If
+                _ContractRows_New.CurrencyName = _CurrencyName
+                _ContractRows_New.CurrencyRate = 1
+                _ContractRows_New.DateExecution = _ImmovablesCostRecordEvents.ReadDate
+                _ContractRows_New.NettoPriceDEV = 0
+                _ContractRows_New.NettoPriceHUF = _ImmovablesCostRecordEvents.ReadedValueSumPrice
+                _ContractRows_New.QTT = 1
+                _ContractRows_New.ShortName = _ImmovablesCostRecordContactRow.ShortName
+                _ContractRows_New.UniqueObjects = _ImmovablesCostRecordEvents.ImmovablesCostRecord.Immovables.UniqueObjects
+                _ContractRows_New.Units = _Units
+                _ContractRows_New.VAT = _VAT
+                _ContractRows_New.InvoicePeriod = _ImmovablesCostRecordContactRow.InvoicePeriod
+
+                _ContractRows_New.ImmovablesCostRecordEvents = _ImmovablesCostRecordEvents
+
+                _ImmovablesCostRecordEvents.ContractRows = _ContractRows_New
+                _ImmovablesCostRecordEvents.Save()
+                _ocur.CommitChanges()
+
+            End If
+        End If
+
+    End Sub
+
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordGroup.vb

@@ -0,0 +1,147 @@
+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 eCostRecordMode
+    eNormal = 0 'Mérés alapján (elõzõ és aktuálsi)
+    eQuarter = 1 'Állandó szám m2 alapon
+End Enum
+Public Enum eCostRecordBaseMode
+    eFix = 0 'Fix díjas
+    eCosuption = 1 'Fogyasztás
+End Enum
+
+<DefaultClassOptions()> _
+<NavigationItem("RealEstateStocks")> _
+<CreatableItem(False)> _
+Public Class ImmovablesCostRecordGroup
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    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
+
+    Private _ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup
+    Private _ShortName As String
+    Private _Description As String
+    Private _eCostRecordMode As eCostRecordMode
+    Private _CostRecordBaseMode As eCostRecordBaseMode
+
+    Private _CostPlace As CostPlace
+    Private _CostHolder As CostHolder
+    Private _Controlling As Controlling
+
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _DecimalPlace As Integer = 2
+
+    <Association("ImmovablesCostRecordMainGroup-ImmovablesCostRecordGroup", GetType(ImmovablesCostRecordMainGroup))> _
+    Property ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup
+        Get
+            Return _ImmovablesCostRecordMainGroup
+        End Get
+        Set(value As ImmovablesCostRecordMainGroup)
+            SetPropertyValue("ImmovablesCostRecordMainGroup", _ImmovablesCostRecordMainGroup, 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 Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property eCostRecordMode As eCostRecordMode
+        Get
+            Return _eCostRecordMode
+        End Get
+        Set(value As eCostRecordMode)
+            SetPropertyValue("eCostRecordMode", _eCostRecordMode, value)
+        End Set
+    End Property
+    Property CostRecordBaseMode As eCostRecordBaseMode
+        Get
+            Return _CostRecordBaseMode
+        End Get
+        Set(value As eCostRecordBaseMode)
+            SetPropertyValue("CostRecordBaseMode", _CostRecordBaseMode, value)
+        End Set
+    End Property
+    Property CostPlace As CostPlace
+        Get
+            Return _CostPlace
+        End Get
+        Set(value As CostPlace)
+            SetPropertyValue("CostPlace", _CostPlace, 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 Controlling As Controlling
+        Get
+            Return _Controlling
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling", _Controlling, 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
+    Property DecimalPlace As Integer
+        Get
+            Return _DecimalPlace
+        End Get
+        Set(value As Integer)
+            SetPropertyValue("DecimalPlace", _DecimalPlace, value)
+        End Set
+    End Property
+End Class
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordMainGroup.vb

@@ -0,0 +1,42 @@
+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 ImmovablesCostRecordMainGroup
+    Inherits BaseObject
+
+    Private _GroupName As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property GroupName As String
+        Get
+            Return _GroupName
+        End Get
+        Set(value As String)
+            SetPropertyValue("GroupName", _GroupName, value)
+        End Set
+    End Property
+
+    '------------------ReadOnly-----------------------
+    <VisibleInListView(False)> _
+    <Association("ImmovablesCostRecordMainGroup-ImmovablesCostRecordGroup", GetType(ImmovablesCostRecordGroup))> _
+    ReadOnly Property ImmovablesCostRecordGroup As XPCollection(Of ImmovablesCostRecordGroup)
+        Get
+            Return GetCollection(Of ImmovablesCostRecordGroup)("ImmovablesCostRecordGroup")
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordVC.Designer.vb

@@ -0,0 +1,56 @@
+Partial Class ImmovablesCostRecordVC
+
+	<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.aDescription_Change_ImmovablesCostRecord = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aDescription_Change_ImmovablesCostRecord
+        '
+        Me.aDescription_Change_ImmovablesCostRecord.AcceptButtonCaption = Nothing
+        Me.aDescription_Change_ImmovablesCostRecord.CancelButtonCaption = Nothing
+        Me.aDescription_Change_ImmovablesCostRecord.Caption = "aDescription_Change_ImmovablesCostRecord"
+        Me.aDescription_Change_ImmovablesCostRecord.ConfirmationMessage = Nothing
+        Me.aDescription_Change_ImmovablesCostRecord.Id = "aDescription_Change_ImmovablesCostRecord"
+        Me.aDescription_Change_ImmovablesCostRecord.ImageName = Nothing
+        Me.aDescription_Change_ImmovablesCostRecord.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aDescription_Change_ImmovablesCostRecord.Shortcut = Nothing
+        Me.aDescription_Change_ImmovablesCostRecord.Tag = Nothing
+        Me.aDescription_Change_ImmovablesCostRecord.TargetObjectsCriteria = Nothing
+        Me.aDescription_Change_ImmovablesCostRecord.TargetObjectType = GetType(SISBusiness.[Module].ImmovablesCostRecord)
+        Me.aDescription_Change_ImmovablesCostRecord.TargetViewId = Nothing
+        Me.aDescription_Change_ImmovablesCostRecord.ToolTip = Nothing
+        Me.aDescription_Change_ImmovablesCostRecord.TypeOfView = Nothing
+        '
+        'ImmovablesCostRecordVC
+        '
+        Me.TargetObjectType = GetType(SISBusiness.[Module].ImmovablesCostRecord)
+
+    End Sub
+    Friend WithEvents aDescription_Change_ImmovablesCostRecord As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordVC.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="aDescription_Change_ImmovablesCostRecord.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/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordVC.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.ExpressApp.SystemModule
+
+Public Class ImmovablesCostRecordVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Protected selection As ArrayList
+    Protected noselect As Boolean = False
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+        selection = New ArrayList()
+        Me.TargetObjectType = GetType(SISBusiness.Module.ImmovablesCostRecord)
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
+
+    End Sub
+    Private Sub aDescription_Change_ImmovablesCostRecord_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDescription_Change_ImmovablesCostRecord.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _ImmovablesCostRecord As ImmovablesCostRecord = TryCast(View.SelectedObjects(0), ImmovablesCostRecord)
+        Dim _ImmovablesCostRecordDescriptionPopup As ImmovablesCostRecordDescriptionPopup = _onew.CreateObject(Of ImmovablesCostRecordDescriptionPopup)()
+
+        _ImmovablesCostRecordDescriptionPopup.Description = _ImmovablesCostRecord.Description_ContactRows
+
+        e.View = Application.CreateDetailView(_onew, "ImmovablesCostRecordDescriptionPopup_DetailView", False, _ImmovablesCostRecordDescriptionPopup)
+
+
+    End Sub
+
+    Private Sub aDescription_Change_ImmovablesCostRecord_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDescription_Change_ImmovablesCostRecord.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ImmovablesCostRecordDescriptionPopup As ImmovablesCostRecordDescriptionPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), ImmovablesCostRecordDescriptionPopup)
+        Dim _ImmovablesCostRecord As ImmovablesCostRecord
+
+        For Each _ImmovablesCostRecord In selection
+            _ImmovablesCostRecord.Description_ContactRows = _ImmovablesCostRecordDescriptionPopup.Description
+        Next
+        _ocur.CommitChanges()
+
+        Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+
+    End Sub
+
+    Private Sub view_SelectionChanged(sender As Object, e As EventArgs)
+        Dim _ImmovablesCostRecord As ImmovablesCostRecord
+        If View Is Nothing Then Exit Sub
+        If noselect = False Then
+            selection.Clear()
+            For Each _ImmovablesCostRecord In View.SelectedObjects
+                selection.Add(_ImmovablesCostRecord)
+            Next
+        End If
+    End Sub
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/DocumentAttachments.vb

@@ -0,0 +1,48 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.Xpo.Metadata
+Imports System.Drawing
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class DocumentAttachments
+    Inherits FileAttachmentBase
+    Private _DocumentAttachmentsType As DocumentAttachmentsType
+    Private _Immovables As Immovables
+    Private _ImmovablesGroups As ImmovablesGroups
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property DocumentAttachementType() As DocumentAttachmentsType
+        Get
+            Return _DocumentAttachmentsType
+        End Get
+        Set(ByVal value As DocumentAttachmentsType)
+            SetPropertyValue("DocumentAttachmentsType", _DocumentAttachmentsType, value)
+        End Set
+    End Property
+    <Association("Immovables-DocumentAttachments", GetType(Immovables))> _
+    Property Immovables() As Immovables
+        Get
+            Return _Immovables
+        End Get
+        Set(ByVal value As Immovables)
+            SetPropertyValue("Immovables", _Immovables, value)
+        End Set
+    End Property
+    <Association("ImmovablesGroups-DocumentAttachments", GetType(ImmovablesGroups))> _
+    Property ImmovablesGroups() As ImmovablesGroups
+        Get
+            Return _ImmovablesGroups
+        End Get
+        Set(ByVal value As ImmovablesGroups)
+            SetPropertyValue("ImmovablesGroups", _ImmovablesGroups, value)
+        End Set
+    End Property
+End Class ' Csatolt dokumentumok

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/DocumentAttachmentsType.vb

@@ -0,0 +1,37 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.Xpo.Metadata
+Imports System.Drawing
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class DocumentAttachmentsType
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _Description As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class ' Csatolt dokumentum tipusok

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Enums.vb

@@ -0,0 +1,57 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.Xpo.Metadata
+Imports System.Drawing
+Public Enum eWindowDirection
+    NotSet = -1
+    ToStreet = 0
+    ToCourtyard = 1
+End Enum
+Public Enum eIDirection
+    NotSet = -1
+    North = 0
+    East = 1
+    South = 2
+    West = 3
+    NorthEast = 4
+    SouthEast = 5
+    SouthWest = 6
+    NorthWest = 7
+End Enum
+Public Enum eRoomCount
+    eNone = 0
+    eHalf = 1
+    eNormal = 2
+End Enum
+Public Enum eImmovablesTypes
+    eApartment = 0
+    eOffice = 1
+    eContainer = 2
+    eGarage = 3
+    eStudentHostel = 4
+End Enum
+Public Enum eImmovableSoldState
+    eFree = 0 'Szabad
+    eAdvanceMoney = 1 'Opciós foglalás
+    eMemorandum = 2 'Szándéknyilatkozat
+    ePreliminary = 3 'Előszerződés
+    eSold = 4 ' Eladva, végszerződés aláírva
+    ePossession = 5 'Birtokbaadva
+    eOutOfOrder = 6 'Nem értékesíthető
+End Enum
+Public Enum eImmovablesRentState
+    eFree = 0 'Szabad bérelhető
+    eAdvancedMoney = 1 'Opciós foglalva
+    eLease = 2 'Bérleti szerződés alatt
+    eRentPassing = 3 'Bérbeadva
+    eLeaseBack = 4 'Bérbeadásból visszavonás alatt
+    eOutOfOrder = 5 'Nem adható bérbe
+End Enum
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.Designer.vb

@@ -0,0 +1,90 @@
+Partial Class EstateVC
+
+	<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.aImmovables_ContractRows_Info = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aImmovables_InvoiceRows_Info = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aImmovables_ChangeGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aImmovables_ContractRows_Info
+        '
+        Me.aImmovables_ContractRows_Info.AcceptButtonCaption = Nothing
+        Me.aImmovables_ContractRows_Info.CancelButtonCaption = Nothing
+        Me.aImmovables_ContractRows_Info.Caption = "aImmovables_ContractRows_Info"
+        Me.aImmovables_ContractRows_Info.ConfirmationMessage = Nothing
+        Me.aImmovables_ContractRows_Info.Id = "aImmovables_ContractRows_Info"
+        Me.aImmovables_ContractRows_Info.ImageName = Nothing
+        Me.aImmovables_ContractRows_Info.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aImmovables_ContractRows_Info.Shortcut = Nothing
+        Me.aImmovables_ContractRows_Info.Tag = Nothing
+        Me.aImmovables_ContractRows_Info.TargetObjectsCriteria = Nothing
+        Me.aImmovables_ContractRows_Info.TargetObjectType = GetType(SISBusiness.[Module].Immovables)
+        Me.aImmovables_ContractRows_Info.TargetViewId = Nothing
+        Me.aImmovables_ContractRows_Info.ToolTip = Nothing
+        Me.aImmovables_ContractRows_Info.TypeOfView = Nothing
+        '
+        'aImmovables_InvoiceRows_Info
+        '
+        Me.aImmovables_InvoiceRows_Info.AcceptButtonCaption = Nothing
+        Me.aImmovables_InvoiceRows_Info.CancelButtonCaption = Nothing
+        Me.aImmovables_InvoiceRows_Info.Caption = "aImmovables_InvoiceRows_Info"
+        Me.aImmovables_InvoiceRows_Info.ConfirmationMessage = Nothing
+        Me.aImmovables_InvoiceRows_Info.Id = "aImmovables_InvoiceRows_Info"
+        Me.aImmovables_InvoiceRows_Info.ImageName = Nothing
+        Me.aImmovables_InvoiceRows_Info.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aImmovables_InvoiceRows_Info.Shortcut = Nothing
+        Me.aImmovables_InvoiceRows_Info.Tag = Nothing
+        Me.aImmovables_InvoiceRows_Info.TargetObjectsCriteria = Nothing
+        Me.aImmovables_InvoiceRows_Info.TargetObjectType = GetType(SISBusiness.[Module].Immovables)
+        Me.aImmovables_InvoiceRows_Info.TargetViewId = Nothing
+        Me.aImmovables_InvoiceRows_Info.ToolTip = Nothing
+        Me.aImmovables_InvoiceRows_Info.TypeOfView = Nothing
+        '
+        'aImmovables_ChangeGroup
+        '
+        Me.aImmovables_ChangeGroup.AcceptButtonCaption = Nothing
+        Me.aImmovables_ChangeGroup.CancelButtonCaption = Nothing
+        Me.aImmovables_ChangeGroup.Caption = "aImmovables_ChangeGroup"
+        Me.aImmovables_ChangeGroup.ConfirmationMessage = Nothing
+        Me.aImmovables_ChangeGroup.Id = "aImmovables_ChangeGroup"
+        Me.aImmovables_ChangeGroup.ImageName = Nothing
+        Me.aImmovables_ChangeGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aImmovables_ChangeGroup.Shortcut = Nothing
+        Me.aImmovables_ChangeGroup.Tag = Nothing
+        Me.aImmovables_ChangeGroup.TargetObjectsCriteria = Nothing
+        Me.aImmovables_ChangeGroup.TargetObjectType = GetType(SISBusiness.[Module].Immovables)
+        Me.aImmovables_ChangeGroup.TargetViewId = Nothing
+        Me.aImmovables_ChangeGroup.ToolTip = Nothing
+        Me.aImmovables_ChangeGroup.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aImmovables_ContractRows_Info As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aImmovables_InvoiceRows_Info As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aImmovables_ChangeGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.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="aImmovables_ContractRows_Info.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aImmovables_InvoiceRows_Info.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aImmovables_ChangeGroup.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>473, 56</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/Business/BusinessTransactions/Estate/Stocks/EstateVC.vb

@@ -0,0 +1,152 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Data.Filtering
+
+Public Class EstateVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        If View.Id = "Immovables_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "Immovables_ChangeGroup_PopUp_DetailView" Then
+            AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "Immovables_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
+        End If
+        If View.Id = "Immovables_ChangeGroup_PopUp_DetailView" Then
+            RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing
+        End If
+    End Sub
+
+    Private Sub aImmovables_ContractRows_Info_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImmovables_ContractRows_Info.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _Immovables As Immovables = TryCast(View.SelectedObjects(0), Immovables)
+            If _Immovables Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
+
+            Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(ContractRows))
+
+            _CollectionSource.BeginUpdateCriteria()
+
+            _CollectionSource.Criteria("1") = CriteriaOperator.Parse("UniqueObjects.Oid=?", _Immovables.UniqueObjects.Oid)
+
+            _CollectionSource.EndUpdateCriteria()
+
+            e.View = Application.CreateListView("ContractRows_ListView_Immovables", _CollectionSource, True)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+    Private Sub aImmovables_ContractRows_Info_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImmovables_ContractRows_Info.Execute
+        Try
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+    Private Sub aImmovables_InvoiceRows_Info_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImmovables_InvoiceRows_Info.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _Immovables As Immovables = TryCast(View.SelectedObjects(0), Immovables)
+            If _Immovables Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
+
+            Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(InvoiceRows))
+
+            _CollectionSource.BeginUpdateCriteria()
+            _CollectionSource.Criteria("1") = CriteriaOperator.Parse("UniqueObjects.Oid=? OR ContractRows.UniqueObjects.Oid=?", _Immovables.UniqueObjects.Oid, _Immovables.UniqueObjects.Oid)
+            _CollectionSource.EndUpdateCriteria()
+
+            e.View = Application.CreateListView("InvoiceRows_ListView_Immovables", _CollectionSource, True)
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+    Private Sub aImmovables_InvoiceRows_Info_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImmovables_InvoiceRows_Info.Execute
+        Try
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+    Private Sub aImmovables_ChangeGroup_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImmovables_ChangeGroup.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _Immovables_ChangeGroup_PopUp As Immovables_ChangeGroup_PopUp = _onew.CreateObject(Of Immovables_ChangeGroup_PopUp)()
+
+            e.View = Application.CreateDetailView(_onew, "Immovables_ChangeGroup_PopUp_DetailView", True, _Immovables_ChangeGroup_PopUp)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+    Private Sub aImmovables_ChangeGroup_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImmovables_ChangeGroup.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _Immovables_ChangeGroup_PopUp As Immovables_ChangeGroup_PopUp = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), Immovables_ChangeGroup_PopUp))
+
+            If _Immovables_ChangeGroup_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
+
+            For Each _Immovables As Immovables In View.SelectedObjects
+                If _Immovables_ChangeGroup_PopUp.IsChange_CanForRent Then
+                    _Immovables.CanForRent = _Immovables_ChangeGroup_PopUp.CanForRent
+                End If
+                If _Immovables_ChangeGroup_PopUp.IsChange_CanforSale Then
+                    _Immovables.CanForSale = _Immovables_ChangeGroup_PopUp.CanForSale
+                End If
+                If _Immovables_ChangeGroup_PopUp.IsChange_CustomersLessor Then
+                    _Immovables.CustomersLessor = _ocur.GetObjectByKey(Of Customers)(_Immovables_ChangeGroup_PopUp.CustomersLessor.Oid)
+                End If
+                If _Immovables_ChangeGroup_PopUp.IsChange_CustomersOwner Then
+                    _Immovables.CustomersOwner = _ocur.GetObjectByKey(Of Customers)(_Immovables_ChangeGroup_PopUp.CustomersOwner.Oid)
+                End If
+                If _Immovables_ChangeGroup_PopUp.IsChange_ImmovableSoldState Then
+                    _Immovables.ImmovableSoldState = _Immovables_ChangeGroup_PopUp.ImmovableSoldState
+                End If
+                If _Immovables_ChangeGroup_PopUp.IsChange_ImmovablesRentState Then
+                    _Immovables.ImmovablesRentState = _Immovables_ChangeGroup_PopUp.ImmovablesRentState
+                End If
+            Next
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+    Private Sub Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing(sender As Object, e As CancelEventArgs)
+        Try
+            Dim _Immovables_ChangeGroup_PopUp As Immovables_ChangeGroup_PopUp = TryCast(View.SelectedObjects(0), Immovables_ChangeGroup_PopUp)
+
+            If _Immovables_ChangeGroup_PopUp.IsChange_CanForRent Then Exit Sub
+            If _Immovables_ChangeGroup_PopUp.IsChange_CanforSale Then Exit Sub
+            If _Immovables_ChangeGroup_PopUp.IsChange_CustomersLessor Then Exit Sub
+            If _Immovables_ChangeGroup_PopUp.IsChange_CustomersOwner Then Exit Sub
+            If _Immovables_ChangeGroup_PopUp.IsChange_ImmovableSoldState Then Exit Sub
+            If _Immovables_ChangeGroup_PopUp.IsChange_ImmovablesRentState Then Exit Sub
+
+            Throw New Exception("*Nincs beállítva egyetlen változtatás sem!")
+        Catch ex As Exception
+            e.Cancel = True
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Floors.vb

@@ -0,0 +1,48 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.Xpo.Metadata
+Imports System.Drawing
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class Floors
+    Inherits BaseObject
+    Private _ImmovablesGroups As ImmovablesGroups
+    Private _ShortName As String
+    Private _UniqueTag As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <RuleRequiredField("Floors-UniqueTag", DefaultContexts.Save)> _
+    Property UniqueTag() As String
+        Get
+            Return _UniqueTag
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("UniqueTag", _UniqueTag, value)
+        End Set
+    End Property
+    <Association("ImmovablesGroups-Floors", GetType(ImmovablesGroups))> _
+    Property ImmovablesGroups() As ImmovablesGroups
+        Get
+            Return _ImmovablesGroups
+        End Get
+        Set(ByVal value As ImmovablesGroups)
+            SetPropertyValue("ImmovablesGroups", _ImmovablesGroups, value)
+        End Set
+    End Property
+End Class ' Emeletek

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Garages.vb

@@ -0,0 +1,203 @@
+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.Xpo.Metadata
+Imports System.Drawing
+<DefaultClassOptions()> _
+<NavigationItem("RealEstateStocks")> _
+Public Class Garages
+    Inherits Immovables
+    Private _Floor As Floors
+    Private _GarageType As String
+    Private _AreaNetto As Double
+    Private _AreaNettoForCostRecord As Double = 0 'Költség számító négyzetméter
+    Private _PriceBruttoHUF As Double 'Bruttó listaár számoltatni a nettó vételárból (HUF)
+    Private _PriceNettoHUF As Double 'Nettó vételár (HUF)
+    Private _PriceBruttoDEV As Double
+    Private _PriceNettoDEV As Double 'Nettó vételár
+    Private _Note As String
+    Private _UniqueTag As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.ImmovablesTypes = eImmovablesTypes.eGarage
+    End Sub
+    Protected Overrides Sub OnSaving()
+        If Session.IsNewObject(Me) Then
+            If UniqueTag <> "*" Then Me.MakeUniqueObjects_Garages()
+        End If
+        MyBase.OnSaving()
+    End Sub
+    Protected Sub RecalculatePriceBrutto()
+        PriceBruttoHUF = Math.Round(PriceNettoHUF * 1.25, 0, MidpointRounding.AwayFromZero)
+        PriceBruttoDEV = Math.Round(PriceNettoDEV * 1.25, 0, MidpointRounding.AwayFromZero)
+    End Sub
+    Property Floor() As Floors
+        Get
+            Return _Floor
+        End Get
+        Set(ByVal value As Floors)
+            SetPropertyValue("Floor", _Floor, value)
+        End Set
+    End Property
+    Property GarageType() As String
+        Get
+            Return _GarageType
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("GarageType", _GarageType, value)
+        End Set
+    End Property
+    Property AreaNetto() As Double
+        Get
+            Return _AreaNetto
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaNetto", _AreaNetto, value)
+        End Set
+    End Property
+    Property AreaNettoForCostRecord As Double
+        Get
+            Return _AreaNettoForCostRecord
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AreaNettoForCostRecord", _AreaNettoForCostRecord, value)
+        End Set
+    End Property
+    Property PriceBruttoHUF() As Double
+        Get
+            Return _PriceBruttoHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceBruttoHUF", _PriceBruttoHUF, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property PriceNettoHUF As Double
+        Get
+            Return _PriceNettoHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceNettoHUF", _PriceNettoHUF, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Me.RecalculatePriceBrutto()
+            End If
+        End Set
+    End Property
+    Property PriceBruttoDEV() As Double
+        Get
+            Return _PriceBruttoDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceBruttoDEV", _PriceBruttoDEV, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property PriceNettoDEV As Double
+        Get
+            Return _PriceNettoDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceNettoDEV", _PriceNettoDEV, value)
+            If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
+                RecalculatePriceBrutto()
+            End If
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Note() As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Note", _Note, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    <Association("Garages-Container", GetType(Container))> _
+    ReadOnly Property Container() As XPCollection(Of Container)
+        Get
+            Return GetCollection(Of Container)("Container")
+        End Get
+    End Property
+    <RuleRequiredField("Garages-UniqueTag", DefaultContexts.Save)> _
+    Property UniqueTag() As String
+        Get
+            Return _UniqueTag
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("UniqueTag", _UniqueTag, value)
+        End Set
+    End Property
+    Public Sub MakeUniqueObjects_Garages()
+        Dim _Name_ImmovablesGroups As String : Dim _UniqueObjects_ImmovablesGroups As UniqueObjects
+        Dim _Name_ImmovablesGroups_X As String : Dim _UniqueObjects_ImmovablesGroups_X As UniqueObjects
+        Dim _Name_Floor As String : Dim _UniqueObjects_Floor As UniqueObjects
+        Dim _Name_Floor_X As String : Dim _UniqueObjects_Floor_X As UniqueObjects
+        Dim _Name_Garages As String : Dim _UniqueObjects_Garages As UniqueObjects
+
+        _Name_ImmovablesGroups = Me.ImmovableGroups.UniqueTag
+        _Name_ImmovablesGroups_X = Me.ImmovableGroups.UniqueTag & "-X"
+
+        _UniqueObjects_ImmovablesGroups = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups))
+        If _UniqueObjects_ImmovablesGroups Is Nothing Then
+            _UniqueObjects_ImmovablesGroups = New UniqueObjects(Session)
+            _UniqueObjects_ImmovablesGroups.Name = _Name_ImmovablesGroups
+            _UniqueObjects_ImmovablesGroups.Save()
+        End If
+        _UniqueObjects_ImmovablesGroups_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups_X))
+        If _UniqueObjects_ImmovablesGroups_X Is Nothing Then
+            _UniqueObjects_ImmovablesGroups_X = New UniqueObjects(Session)
+            _UniqueObjects_ImmovablesGroups_X.Name = _Name_ImmovablesGroups_X
+            _UniqueObjects_ImmovablesGroups_X.Parent = _UniqueObjects_ImmovablesGroups
+            _UniqueObjects_ImmovablesGroups_X.Save()
+        End If
+
+        _Name_Floor = _Name_ImmovablesGroups & "-" & "-" & Me.Floor.UniqueTag
+        _Name_Floor_X = _Name_ImmovablesGroups & "-" & "-" & Me.Floor.UniqueTag & "-X"
+
+        _UniqueObjects_Floor = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor))
+        If _UniqueObjects_Floor Is Nothing Then
+            _UniqueObjects_Floor = New UniqueObjects(Session)
+            _UniqueObjects_Floor.Name = _Name_Floor
+            _UniqueObjects_Floor.Parent = _UniqueObjects_ImmovablesGroups
+            _UniqueObjects_Floor.Save()
+        End If
+        _UniqueObjects_Floor_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor_X))
+        If _UniqueObjects_Floor_X Is Nothing Then
+            _UniqueObjects_Floor_X = New UniqueObjects(Session)
+            _UniqueObjects_Floor_X.Name = _Name_Floor_X
+            _UniqueObjects_Floor_X.Parent = _UniqueObjects_Floor
+            _UniqueObjects_Floor_X.Save()
+        End If
+
+        _Name_Garages = Me.ImmovableGroups.UniqueTag & "-" & Me.Floor.UniqueTag & UniqueTag
+
+        _UniqueObjects_Garages = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Garages))
+        If _UniqueObjects_Garages Is Nothing Then
+            _UniqueObjects_Garages = New UniqueObjects(Session)
+            _UniqueObjects_Garages.Name = _Name_Garages
+            _UniqueObjects_Garages.Parent = _UniqueObjects_Floor
+            _UniqueObjects_Garages.Save()
+            Me.UniqueObjects = _UniqueObjects_Garages
+        End If
+    End Sub
+
+    '-----NonPersistes-----
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceNettoHUF As Double = 0
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceNettoHUFRent As Double = 0
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceBruttoHUF As Double = 0
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceBruttoHUFRent As Double = 0
+End Class 'Garázsok

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovableStatus.vb

@@ -0,0 +1,37 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.Xpo.Metadata
+Imports System.Drawing
+<DefaultClassOptions()> _
+<NavigationItem("RealEstateStocks")> _
+Public Class ImmovableStatus
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _Description As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class 'Ingatlan státuszok

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Immovables.vb

@@ -0,0 +1,313 @@
+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.Xpo.Metadata
+Imports System.Drawing
+<DefaultClassOptions()> _
+<NavigationItem("RealEstateStocks")> _
+<DefaultProperty("DisplayName")> _
+Public Class Immovables
+    Inherits BaseObject
+    Private _ImmovableGroups As ImmovablesGroups 'Ingatlan csoport
+    Private _ImmovableSoldState As eImmovableSoldState 'Ingatlan eladható státusz
+    Private _ImmovablesRentState As eImmovablesRentState 'Ingatlan bérelhető státusz
+    Private _ImmovableTypes As eImmovablesTypes 'Ingatlan tipus
+    Private _LotNumber As String 'Helyrajzi szám
+    Private _Address As Address 'Cím
+    Private _ImagePicture1 As Image '1. kép
+    Private _ImagePicture2 As Image '2. kép
+    Private _ImagePicture3 As Image '3. kép
+    Private _CustomersOwner As Customers 'Tulajdonos.
+    Private _CustomersLessor As Customers 'Bérbeadó
+    Private _CanforSale As Boolean 'Eladható
+    Private _CanForRent As Boolean 'Bérelhető
+    Private _UniqueObjects As UniqueObjects 'Egyedi azonosító
+    Private _PriceNettoHUFRent As Double 'Ingatlan bérleti dija / hó bruttó
+    Private _PriceBruttoHUFRent As Double 'Ingatlan bérleti dija / hó nettó
+    Private _PriceNettoDEVRent As Double 'Ingatlan bérleti dija / hó bruttó
+    Private _PriceBruttoDEVRent As Double 'Ingatlan bérleti dija / hó nettó
+    Private _PriceAreaNettoHUFRent As Double 'Netto négyzetméter /hó
+    Private _PriceAreaBruttoHUFRent As Double 'Brutto négyzetméter /hó
+    Private _PriceAreaNettoDEVRent As Double 'Netto bérleti négyzetméter ár 
+    Private _PriceAreaBruttoDEVRent As Double 'Brutto bérleti négyzetméter ár 
+
+    Private _Ownership1 As String 'Tulajdoni hányadot jelölő tört szám pld 715/100.000
+    Private _Ownership2 As String 'Tulajdoni hányadot jelölő tört szám pld 715/100.000
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Sub RecalculatePriceRent()
+
+        'Lakások esetében
+        If TryCast(Me, Apartments) IsNot Nothing Then
+            Dim _Immo As Apartments = TryCast(Me, Apartments)
+            _Immo.PriceNettoHUFRent = Math.Round(_Immo.AreaNettoForSale * _Immo.PriceAreaNettoHUFRent, 0, MidpointRounding.AwayFromZero)
+            _Immo.PriceNettoDEVRent = Math.Round(_Immo.AreaNettoForSale * _Immo.PriceAreaNettoDEVRent, 0, MidpointRounding.AwayFromZero)
+        End If
+
+        'Irodák esetében
+        If TryCast(Me, Offices) IsNot Nothing Then
+            Dim _Immo As Offices = TryCast(Me, Offices)
+            _Immo.PriceNettoHUFRent = Math.Round(_Immo.AreaNettoForSale * _Immo.PriceAreaNettoHUFRent, 0, MidpointRounding.AwayFromZero)
+            _Immo.PriceNettoDEVRent = Math.Round(_Immo.AreaNettoForSale * _Immo.PriceAreaNettoDEVRent, 0, MidpointRounding.AwayFromZero)
+        End If
+
+        Me.PriceAreaBruttoHUFRent = Math.Round(PriceAreaNettoHUFRent * 1.25, 0, MidpointRounding.AwayFromZero)
+        Me.PriceAreaBruttoDEVRent = Math.Round(PriceAreaNettoDEVRent * 1.25, 0, MidpointRounding.AwayFromZero)
+
+    End Sub
+    Private Sub RecalculatePriceBruttoRent()
+        PriceBruttoHUFRent = Math.Round(PriceNettoHUFRent * 1.25, 0, MidpointRounding.AwayFromZero)
+        PriceBruttoDEVRent = Math.Round(PriceNettoDEVRent * 1.25, 0, MidpointRounding.AwayFromZero)
+    End Sub
+    <VisibleInListView(False)> _
+    <Association("Immovables-DocumentAttachments", GetType(DocumentAttachments))> _
+        ReadOnly Property DocumentAttachments() As XPCollection(Of DocumentAttachments)
+        Get
+            Return GetCollection(Of DocumentAttachments)("DocumentAttachments")
+        End Get
+    End Property
+    <RuleRequiredField("Immovables-ImmovableGroups", DefaultContexts.Save)> _
+    Property ImmovableGroups() As ImmovablesGroups
+        Get
+            Return _ImmovableGroups
+        End Get
+        Set(ByVal value As ImmovablesGroups)
+            SetPropertyValue("ImmovableGroups", _ImmovableGroups, value)
+        End Set
+    End Property
+    Property ImmovableSoldState As eImmovableSoldState
+        Get
+            Return _ImmovableSoldState
+        End Get
+        Set(value As eImmovableSoldState)
+            SetPropertyValue("ImmovableSoldState", _ImmovableSoldState, value)
+        End Set
+    End Property
+    Property ImmovablesRentState As eImmovablesRentState
+        Get
+            Return _ImmovablesRentState
+        End Get
+        Set(value As eImmovablesRentState)
+            SetPropertyValue("ImmovablesRentState", _ImmovablesRentState, value)
+        End Set
+    End Property
+    Property ImmovablesTypes() As eImmovablesTypes
+        Get
+            Return _ImmovableTypes
+        End Get
+        Set(ByVal value As eImmovablesTypes)
+            SetPropertyValue("ImmovablesTypes", _ImmovableTypes, value)
+        End Set
+    End Property
+    Property LotNumber() As String
+        Get
+            Return _LotNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("LotNumber", _LotNumber, value)
+        End Set
+    End Property
+    Property Address() As Address
+        Get
+            Return _Address
+        End Get
+        Set(ByVal value As Address)
+            SetPropertyValue("Address", _Address, value)
+        End Set
+    End Property
+    <ValueConverter(GetType(DevExpress.Xpo.Metadata.ImageValueConverter))> _
+    <NonCloneable()> _
+    Property ImagePicture1() As Image
+        Get
+            Return _ImagePicture1
+        End Get
+        Set(ByVal Value As System.Drawing.Image)
+            If Value Is _ImagePicture1 Then Exit Property
+            _ImagePicture1 = Value
+        End Set
+    End Property
+    <ValueConverter(GetType(DevExpress.Xpo.Metadata.ImageValueConverter))> _
+    <NonCloneable()> _
+    Property ImagePicture2() As Image
+        Get
+            Return _ImagePicture2
+        End Get
+        Set(ByVal Value As System.Drawing.Image)
+            If Value Is _ImagePicture2 Then Exit Property
+            _ImagePicture2 = Value
+        End Set
+    End Property
+    <ValueConverter(GetType(DevExpress.Xpo.Metadata.ImageValueConverter))> _
+    <NonCloneable()> _
+    Property ImagePicture3() As Image
+        Get
+            Return _ImagePicture3
+        End Get
+        Set(ByVal Value As System.Drawing.Image)
+            If Value Is _ImagePicture3 Then Exit Property
+            _ImagePicture3 = Value
+        End Set
+    End Property
+    Property CustomersOwner() As Customers
+        Get
+            Return _CustomersOwner
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("CustomersOwner", _CustomersOwner, value)
+        End Set
+    End Property
+    Property CustomersLessor() As Customers
+        Get
+            Return _CustomersLessor
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("CustomersLessor", _CustomersLessor, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property UniqueObjects() As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(ByVal value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property CanForSale As Boolean
+        Get
+            Return _CanforSale
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("CanForSale", _CanforSale, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property CanForRent As Boolean
+        Get
+            Return _CanForRent
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("CanForRent", _CanForRent, value)
+        End Set
+    End Property
+    ReadOnly Property DisplayName As String
+        Get
+            If _UniqueObjects IsNot Nothing Then
+                Return _UniqueObjects.Name
+            Else
+                Return ""
+            End If
+        End Get
+    End Property
+    Property PriceNettoHUFRent As Double
+        Get
+            Return _PriceNettoHUFRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceNettoHUFRent", _PriceNettoHUFRent, value)
+            If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then
+                RecalculatePriceBruttoRent()
+            End If
+        End Set
+    End Property
+    Property PriceBruttoHUFRent As Double
+        Get
+            Return _PriceBruttoHUFRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceBruttoHUFRent", _PriceBruttoHUFRent, value)
+        End Set
+    End Property
+    Property PriceNettoDEVRent As Double
+        Get
+            Return _PriceNettoDEVRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceNettoDEVRent", _PriceNettoDEVRent, value)
+            If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then
+                RecalculatePriceBruttoRent()
+            End If
+        End Set
+    End Property
+    Property PriceBruttoDEVRent As Double
+        Get
+            Return _PriceBruttoDEVRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceBruttoDEVRent", _PriceBruttoDEVRent, value)
+        End Set
+    End Property
+    Property PriceAreaNettoHUFRent As Double
+        Get
+            Return _PriceAreaNettoHUFRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceAreaNettoHUFRent", _PriceAreaNettoHUFRent, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Not value = 0 Then
+                RecalculatePriceRent()
+            End If
+        End Set
+    End Property
+    Property PriceAreaBruttoHUFRent As Double
+        Get
+            Return _PriceAreaBruttoHUFRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceAreaBruttoHUFRent", _PriceAreaBruttoHUFRent, value)
+        End Set
+    End Property
+    Property PriceAreaBruttoDEVRent As Double
+        Get
+            Return _PriceAreaBruttoDEVRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceAreaBruttoDEVRent", _PriceAreaBruttoDEVRent, value)
+        End Set
+    End Property
+    Property PriceAreaNettoDEVRent As Double
+        Get
+            Return _PriceAreaNettoDEVRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceAreaNettoDEVRent", _PriceAreaNettoDEVRent, value)
+        End Set
+    End Property
+
+    Property Ownership1 As String
+        Get
+            Return _Ownership1
+        End Get
+        Set(value As String)
+            SetPropertyValue("Ownership1", _Ownership1, value)
+        End Set
+    End Property
+    Property Ownership2 As String
+        Get
+            Return _Ownership2
+        End Get
+        Set(value As String)
+            SetPropertyValue("Ownership2", _Ownership2, value)
+        End Set
+    End Property
+
+
+    '// Bérleti lekérdezési információk
+    Private _Last_ContractsRows As ContractRows
+    Property Last_ContractsRows As ContractRows
+        Get
+            Return _Last_ContractsRows
+        End Get
+        Set(value As ContractRows)
+            SetPropertyValue("Last_ContractsRows", _Last_ContractsRows, value)
+        End Set
+    End Property
+
+End Class ' Ingatlanok

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesGroups.vb

@@ -0,0 +1,79 @@
+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.Xpo.Metadata
+Imports System.Drawing
+<DefaultClassOptions()> _
+<NavigationItem("RealEstateStocks")> _
+Public Class ImmovablesGroups
+    Inherits BaseObject
+    Private _ShortName As String 'Megnevezés
+    Private _Address As Address 'Cím
+    Private _UniqueTag As String 'Egyedi tag
+    Private _JobNumberObjects As JobNumberObjects 'Project, munkaszám
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Address() As Address
+        Get
+            Return _Address
+        End Get
+        Set(ByVal value As Address)
+            SetPropertyValue("Address", _Address, value)
+        End Set
+    End Property
+    Property JobNumberObjects() As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(ByVal value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+        End Set
+    End Property
+    <RuleRequiredField("ImmovablesGroups-UniqueTag", DefaultContexts.Save)> _
+    Property UniqueTag() As String
+        Get
+            Return _UniqueTag
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("UniqueTag", _UniqueTag, value)
+        End Set
+    End Property
+    '-------------ReadOnly-------------
+    <VisibleInListView(False)> _
+    <Association("ImmovablesGroups-DocumentAttachments", GetType(DocumentAttachments))> _
+    ReadOnly Property DocumentAttachments() As XPCollection(Of DocumentAttachments)
+        Get
+            Return GetCollection(Of DocumentAttachments)("DocumentAttachments")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Association("ImmovablesGroups-Stairways", GetType(Stairways))> _
+    ReadOnly Property Stairways() As XPCollection(Of Stairways)
+        Get
+            Return GetCollection(Of Stairways)("Stairways")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Association("ImmovablesGroups-Floors", GetType(Floors))> _
+    ReadOnly Property Floors() As XPCollection(Of Floors)
+        Get
+            Return GetCollection(Of Floors)("Floors")
+        End Get
+    End Property
+End Class ' Ingatlan csoportok

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesGroupsParameters.vb

@@ -0,0 +1,161 @@
+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 ImmovablesGroupsParameters
+    Inherits BaseObject
+
+    Private _ImmovablesGroups As ImmovablesGroups
+    Private _CustomersFrom As CustomersFrom
+    'Private _ContractTemplateSold As ContractTemplate 'Értékesítési szerzõdés template
+    'Private _ContractTemplateRent As ContractTemplate 'Bérleti szerzõdés template (majd ezek tartalmazzák a számla dolgokat is !)
+    'Private _ContractTemplate_AdvanceMoney As ContractTemplate 'Értékesítési szerzõdés foglaló template
+    Private _VAT As VAT
+    Private _DocumentBody As String 'Dokumentum törzs az árajánlatnak
+    Private _DocumentBodyPriceList As String 'Dokumentum törzs az árlistához
+    Private _ReportData_Contract_Temp As ReportData 'Szerzõdési nyomtatvány az ügyvédnek
+    Private _Controlling_AdvanceMoney As Controlling 'Az ajánlathoz készülõ  elõleg szerzõdési sorok CM-je
+    Private _Controlling_Final As Controlling 'Ingatlan értékesítés kontollja
+    Private _Controlling_Rent As Controlling 'Ingatlan bérlkés kontrollja
+    Private _PaymentOption As PaymentOption 'Ingatlan bérlés alapértelmezett fizetési opciója
+    Private _CostHolder As CostHolder 'Az ajánlathoz készülõ szerzõdési sorok költségviselõje
+    Private _CostPlace As CostPlace 'Az ajánlathoz készülõ szerzõdési sorok költséghelye
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <RuleUniqueValue("ImmovablesGroupsParameters-RuleUniqueValue", DefaultContexts.Save)> _
+    Property ImmovablesGroups As ImmovablesGroups
+        Get
+            Return _ImmovablesGroups
+        End Get
+        Set(value As ImmovablesGroups)
+            SetPropertyValue("ImmovablesGroups", _ImmovablesGroups, value)
+        End Set
+    End Property
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    'Property ContractTemplateSold As ContractTemplate
+    '    Get
+    '        Return _ContractTemplateSold
+    '    End Get
+    '    Set(value As ContractTemplate)
+    '        SetPropertyValue("ContractTemplateSold", _ContractTemplateSold, value)
+    '    End Set
+    'End Property
+    'Property ContractTemplateRent As ContractTemplate
+    '    Get
+    '        Return _ContractTemplateRent
+    '    End Get
+    '    Set(value As ContractTemplate)
+    '        SetPropertyValue("ContractTemplateRent", _ContractTemplateRent, value)
+    '    End Set
+    'End Property
+    'Property ContractTemplate_AdvanceMoney As ContractTemplate
+    '    Get
+    '        Return _ContractTemplate_AdvanceMoney
+    '    End Get
+    '    Set(value As ContractTemplate)
+    '        SetPropertyValue("ContractTemplate_AdvanceMoney", _ContractTemplate_AdvanceMoney, value)
+    '    End Set
+    'End Property
+    Property VAT As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property DocumentBody As String
+        Get
+            Return _DocumentBody
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentBody", _DocumentBody, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property DocumentBodyPriceList As String
+        Get
+            Return _DocumentBodyPriceList
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentBodyPriceList", _DocumentBodyPriceList, value)
+        End Set
+    End Property
+    Property ReportData_Contract_Temp As ReportData
+        Get
+            Return _ReportData_Contract_Temp
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData_Contract_Temp", _ReportData_Contract_Temp, value)
+        End Set
+    End Property
+    Property Controlling_AdvanceMoney As Controlling
+        Get
+            Return _Controlling_AdvanceMoney
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling_AdvanceMoney", _Controlling_AdvanceMoney, value)
+        End Set
+    End Property
+    Property Controlling_Final As Controlling
+        Get
+            Return _Controlling_Final
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling_Final", _Controlling_Final, value)
+        End Set
+    End Property
+    Property Controlling_Rent As Controlling
+        Get
+            Return _Controlling_Rent
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling_Rent", _Controlling_Rent, value)
+        End Set
+    End Property
+    Property PaymentOption As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, 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 CostPlace As CostPlace
+        Get
+            Return _CostPlace
+        End Get
+        Set(value As CostPlace)
+            SetPropertyValue("CostPlace", _CostPlace, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.Designer.vb

@@ -0,0 +1,48 @@
+Partial Class ImmovablesVC
+
+    <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.aIRentGetContracts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aIRentGetContracts
+        '
+        Me.aIRentGetContracts.Caption = "aIRent Get Contracts"
+        Me.aIRentGetContracts.ConfirmationMessage = Nothing
+        Me.aIRentGetContracts.Id = "aIRentGetContracts"
+        Me.aIRentGetContracts.ImageName = Nothing
+        Me.aIRentGetContracts.Shortcut = Nothing
+        Me.aIRentGetContracts.Tag = Nothing
+        Me.aIRentGetContracts.TargetObjectsCriteria = Nothing
+        Me.aIRentGetContracts.TargetViewId = "Immovables_ListView_Rent_Query"
+        Me.aIRentGetContracts.ToolTip = Nothing
+        Me.aIRentGetContracts.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aIRentGetContracts As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.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="aIRentGetContracts.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/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb

@@ -0,0 +1,57 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Data.Filtering
+Imports DevExpress.Xpo
+
+Public Class ImmovablesVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event DoWork()
+    Public Event FinalWork
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+    End Sub
+    Private Sub aIRentGetContracts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIRentGetContracts.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _Immovables As Immovables
+
+        Dim _ContractRows As ContractRows
+        Dim _ContractRows_Collection As XPCollection(Of ContractRows)
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+        RaiseEvent InitWork(1, 1, TryCast(View, ListView).CollectionSource.List.Count)
+        For Each _Immovables In TryCast(View, ListView).CollectionSource.List
+            RaiseEvent DoWork()
+            _Immovables.Last_ContractsRows = Nothing
+            _ContractRows_Collection = New XPCollection(Of ContractRows)(_ocur.Session, CriteriaOperator.Parse("Contracts.State='Signed' and UniqueObjects=? " & _
+                                                                                     " and Contracts.ContractTemplate.PartnerType='eReceivables'",
+                                                                                     _Immovables.UniqueObjects))
+            _ContractRows_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending))
+            For Each _ContractRows In _ContractRows_Collection
+                _Immovables.Last_ContractsRows = _ContractRows
+                Exit For
+            Next
+        Next
+        RaiseEvent FinalWork
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/LocalityLists.vb

@@ -0,0 +1,114 @@
+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.Xpo.Metadata
+Imports System.Drawing
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class LocalityLists
+    Inherits BaseObject
+    Private _Apartments As Apartments
+    Private _Offices As Offices
+    Private _ShortName As String
+    Private _Level As String
+    Private _Dimensions As String
+    Private _DimensionsUnder190 As String
+    Private _AreaNetto As Double = 0
+    Private _AreaUnder190 As Double = 0
+    Private _LocalityType As LocalityType
+    Private _PriceCounter As Double = 1
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+    End Sub
+    <Association("Apartments-LocalityLists", GetType(Apartments))> _
+    Property Apartments() As Apartments
+        Get
+            Return _Apartments
+        End Get
+        Set(ByVal value As Apartments)
+            SetPropertyValue("Apartments", _Apartments, value)
+        End Set
+    End Property
+    <Association("Offices-LocalityLists", GetType(Offices))> _
+    Property Offices() As Offices
+        Get
+            Return _Offices
+        End Get
+        Set(ByVal value As Offices)
+            SetPropertyValue("Offices", _Offices, value)
+        End Set
+    End Property
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Level() As String
+        Get
+            Return _Level
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Level", _Level, value)
+        End Set
+    End Property
+    Property Dimensions() As String
+        Get
+            Return _Dimensions
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Dimensions", _Dimensions, value)
+        End Set
+    End Property
+    Property DimensionsUnder190() As String
+        Get
+            Return _DimensionsUnder190
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DimensionsUnder190", _DimensionsUnder190, value)
+        End Set
+    End Property
+    Property AreaNetto() As Double
+        Get
+            Return _AreaNetto
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaNetto", _AreaNetto, value)
+        End Set
+    End Property
+    Property AreaUnder190() As Double
+        Get
+            Return _AreaUnder190
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaUnder190", _AreaUnder190, value)
+        End Set
+    End Property
+    Property LocalityType() As LocalityType
+        Get
+            Return _LocalityType
+        End Get
+        Set(ByVal value As LocalityType)
+            SetPropertyValue("LocalityType", _LocalityType, value)
+        End Set
+    End Property
+    Property PriceCounter() As Double
+        Get
+            Return _PriceCounter
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceCounter", _PriceCounter, value)
+        End Set
+    End Property
+End Class ' Helység lista

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/LocalityType.vb

@@ -0,0 +1,37 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.Xpo.Metadata
+Imports System.Drawing
+<DefaultClassOptions()> _
+<NavigationItem("RealEstateStocks")> _
+Public Class LocalityType
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _RoomCount As eRoomCount
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property RoomCount() As eRoomCount
+        Get
+            Return _RoomCount
+        End Get
+        Set(ByVal value As eRoomCount)
+            SetPropertyValue("RoomCount", _RoomCount, value)
+        End Set
+    End Property
+End Class 'Helység tipus

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Offices.vb

@@ -0,0 +1,329 @@
+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.Xpo.Metadata
+Imports System.Drawing
+<DefaultClassOptions()> _
+<NavigationItem("RealEstateStocks")> _
+Public Class Offices
+    Inherits Immovables
+    Private _Floor As Floors
+    Private _Stairway As Stairways
+    Private _RoomString As String
+    Private _WindowDirection As eWindowDirection = eWindowDirection.NotSet
+    Private _AreaPriceNettoHUF As Double
+    Private _AreaPriceNettoDEV As Double
+    Private _PriceBruttoHUF As Double
+    Private _PriceBruttoDEV As Double
+    Private _PriceNettoHUF As Double 'Nettó vételár (HUF)
+    Private _PriceNettoDEV As Double
+    Private _AreaNetto As Double = 0
+    Private _AreaNettoUnder190 As Double = 0
+    Private _AreaNettoForSale As Double = 0
+    Private _AreaNettoForCostRecord As Double = 0 'Költség számító négyzetméter
+    Private _Direction As eIDirection = eIDirection.NotSet
+    Private _IsTerrace As Boolean
+    Private _AreaTerrace As Double = 0
+    Private _Note As String
+    Private _UniqueTag As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        _AreaNetto = 0
+        _AreaNettoUnder190 = 0
+        _PriceBruttoHUF = 0
+        Dim _LL As LocalityLists
+        For Each _LL In LocalityLists
+            _AreaNetto += _LL.AreaNetto
+            _AreaNettoUnder190 += _LL.AreaUnder190
+            _PriceBruttoHUF += PriceBruttoHUF + (_LL.AreaNetto * _AreaPriceNettoHUF)
+        Next
+        If Session.IsNewObject(Me) Then
+            If UniqueTag <> "*" Then Me.MakeUniqueObjects_Offices()
+        End If
+        MyBase.OnSaving()
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.ImmovablesTypes = eImmovablesTypes.eOffice
+    End Sub
+    Protected Sub RecalculatePrice()
+        PriceNettoHUF = Math.Round(AreaNettoForSale * AreaPriceNettoHUF, 0, MidpointRounding.AwayFromZero)
+        PriceNettoDEV = Math.Round(AreaNettoForSale * AreaPriceNettoDEV, 0, MidpointRounding.AwayFromZero)
+    End Sub
+    Protected Sub RecalculatePriceBrutto()
+        PriceBruttoHUF = Math.Round(PriceNettoHUF * 1.25, 0, MidpointRounding.AwayFromZero)
+        PriceBruttoDEV = Math.Round(PriceNettoDEV * 1.25, 0, MidpointRounding.AwayFromZero)
+    End Sub
+    Protected Sub RecalculateAreaNettoForSale()
+        AreaNettoForSale = Math.Round((AreaNetto + (AreaNettoUnder190 / 2) + (AreaTerrace / 2)), 2, MidpointRounding.AwayFromZero)
+    End Sub
+    <DataSourceCriteria("ImmovablesGroups = '@This.ImmovableGroups'")> _
+    Property Floor() As Floors
+        Get
+            Return _Floor
+        End Get
+        Set(ByVal value As Floors)
+            SetPropertyValue("Floor", _Floor, value)
+        End Set
+    End Property
+    <DataSourceCriteria("ImmovablesGroups = '@This.ImmovableGroups'")> _
+    Property Stairway() As Stairways
+        Get
+            Return _Stairway
+        End Get
+        Set(ByVal value As Stairways)
+            SetPropertyValue("Stairway", _Stairway, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    <Association("Offices-LocalityLists", GetType(LocalityLists))> _
+    Public ReadOnly Property LocalityLists() As XPCollection(Of LocalityLists)
+        Get
+            Return GetCollection(Of LocalityLists)("LocalityLists")
+        End Get
+    End Property
+    Property WindowDirection() As eWindowDirection
+        Get
+            Return _WindowDirection
+        End Get
+        Set(ByVal value As eWindowDirection)
+            SetPropertyValue("WindowDirection", _WindowDirection, value)
+        End Set
+    End Property
+    Property AreaPriceNettoHUF() As Double
+        Get
+            Return _AreaPriceNettoHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaPriceNettoHUF", _AreaPriceNettoHUF, value)
+        End Set
+    End Property
+    Property AreaPriceNettoDEV() As Double
+        Get
+            Return _AreaPriceNettoDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaPriceNettoDEV", _AreaPriceNettoDEV, value)
+        End Set
+    End Property
+    Property Direction() As eIDirection
+        Get
+            Return _Direction
+        End Get
+        Set(ByVal value As eIDirection)
+            SetPropertyValue("Direction", _Direction, value)
+        End Set
+    End Property
+    Property PriceBruttoHUF() As Double
+        Get
+            Return _PriceBruttoHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceBruttoHUF", _PriceBruttoHUF, value)
+        End Set
+    End Property
+    Property PriceBruttoDEV() As Double
+        Get
+            Return _PriceBruttoDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceBruttoDEV", _PriceBruttoDEV, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property PriceNettoDEV As Double
+        Get
+            Return _PriceNettoDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceNettoDEV", _PriceNettoDEV, value)
+            If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
+                RecalculatePriceBrutto()
+            End If
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property PriceNettoHUF As Double
+        Get
+            Return _PriceNettoHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceNettoHUF", _PriceNettoHUF, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Me.RecalculatePriceBrutto()
+            End If
+        End Set
+    End Property
+    Property AreaNetto() As Double
+        Get
+            Return _AreaNetto
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaNetto", _AreaNetto, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                RecalculateAreaNettoForSale()
+            End If
+        End Set
+    End Property
+    Property AreaNettoUnder190() As Double
+        Get
+            Return _AreaNettoUnder190
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaNettoUnder190", _AreaNettoUnder190, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                RecalculateAreaNettoForSale()
+            End If
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property AreaNettoForSale As Double
+        Get
+            Return _AreaNettoForSale
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaNettoForSale", _AreaNettoForSale, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                MyBase.RecalculatePriceRent()
+                RecalculatePrice()
+            End If
+        End Set
+    End Property
+    Property AreaNettoForCostRecord As Double
+        Get
+            Return _AreaNettoForCostRecord
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AreaNettoForCostRecord", _AreaNettoForCostRecord, value)
+        End Set
+    End Property
+    Property IsTerrace() As Boolean
+        Get
+            Return _IsTerrace
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsTerrace", _IsTerrace, value)
+        End Set
+    End Property
+    Property AreaTerrace As Double
+        Get
+            Return _AreaTerrace
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AreaTerrace", _AreaTerrace, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                RecalculateAreaNettoForSale()
+            End If
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Note() As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Note", _Note, value)
+        End Set
+    End Property
+    <RuleRequiredField("Offices-UniqueTag", DefaultContexts.Save)> _
+    Property UniqueTag() As String
+        Get
+            Return _UniqueTag
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("UniqueTag", _UniqueTag, value)
+        End Set
+    End Property
+    Public Sub MakeUniqueObjects_Offices()
+        Dim _Name_ImmovablesGroups As String : Dim _UniqueObjects_ImmovablesGroups As UniqueObjects
+        Dim _Name_ImmovablesGroups_X As String : Dim _UniqueObjects_ImmovablesGroups_X As UniqueObjects
+        Dim _Name_Stairway As String : Dim _UniqueObjects_Stairway As UniqueObjects
+        Dim _Name_Stairway_X As String : Dim _UniqueObjects_Stairway_X As UniqueObjects
+        Dim _Name_Floor As String : Dim _UniqueObjects_Floor As UniqueObjects
+        Dim _Name_Floor_X As String : Dim _UniqueObjects_Floor_X As UniqueObjects
+        Dim _Name_Offices As String : Dim _UniqueObjects_Offices As UniqueObjects
+
+
+        _Name_ImmovablesGroups = Me.ImmovableGroups.UniqueTag
+        _Name_ImmovablesGroups_X = Me.ImmovableGroups.UniqueTag & "-X"
+
+        _UniqueObjects_ImmovablesGroups = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups))
+        If _UniqueObjects_ImmovablesGroups Is Nothing Then
+            _UniqueObjects_ImmovablesGroups = New UniqueObjects(Session)
+            _UniqueObjects_ImmovablesGroups.Name = _Name_ImmovablesGroups
+            _UniqueObjects_ImmovablesGroups.Save()
+        End If
+        _UniqueObjects_ImmovablesGroups_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups_X))
+        If _UniqueObjects_ImmovablesGroups_X Is Nothing Then
+            _UniqueObjects_ImmovablesGroups_X = New UniqueObjects(Session)
+            _UniqueObjects_ImmovablesGroups_X.Name = _Name_ImmovablesGroups_X
+            _UniqueObjects_ImmovablesGroups_X.Parent = _UniqueObjects_ImmovablesGroups
+            _UniqueObjects_ImmovablesGroups_X.Save()
+        End If
+
+        _Name_Stairway = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag
+        _Name_Stairway_X = _Name_ImmovablesGroups & "-" & Stairway.UniqueTag & "-X"
+
+        _UniqueObjects_Stairway = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Stairway))
+        If _UniqueObjects_Stairway Is Nothing Then
+            _UniqueObjects_Stairway = New UniqueObjects(Session)
+            _UniqueObjects_Stairway.Name = _Name_Stairway
+            _UniqueObjects_Stairway.Parent = _UniqueObjects_ImmovablesGroups
+            _UniqueObjects_Stairway.Save()
+        End If
+        _UniqueObjects_Stairway_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Stairway_X))
+        If _UniqueObjects_Stairway_X Is Nothing Then
+            _UniqueObjects_Stairway_X = New UniqueObjects(Session)
+            _UniqueObjects_Stairway_X.Name = _Name_Stairway_X
+            _UniqueObjects_Stairway_X.Parent = _UniqueObjects_Stairway
+            _UniqueObjects_Stairway_X.Save()
+        End If
+
+        _Name_Floor = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag & "-" & Me.Floor.UniqueTag
+        _Name_Floor_X = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag & "-" & Me.Floor.UniqueTag & "-X"
+
+        _UniqueObjects_Floor = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor))
+        If _UniqueObjects_Floor Is Nothing Then
+            _UniqueObjects_Floor = New UniqueObjects(Session)
+            _UniqueObjects_Floor.Name = _Name_Floor
+            _UniqueObjects_Floor.Parent = _UniqueObjects_Stairway
+            _UniqueObjects_Floor.Save()
+        End If
+        _UniqueObjects_Floor_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor_X))
+        If _UniqueObjects_Floor_X Is Nothing Then
+            _UniqueObjects_Floor_X = New UniqueObjects(Session)
+            _UniqueObjects_Floor_X.Name = _Name_Floor_X
+            _UniqueObjects_Floor_X.Parent = _UniqueObjects_Floor
+            _UniqueObjects_Floor_X.Save()
+        End If
+
+        _Name_Offices = Me.ImmovableGroups.UniqueTag & "-" & Me.Stairway.UniqueTag & "-" & Me.Floor.UniqueTag & _UniqueTag
+
+        _UniqueObjects_Offices = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Offices))
+        If _UniqueObjects_Offices Is Nothing Then
+            _UniqueObjects_Offices = New UniqueObjects(Session)
+            _UniqueObjects_Offices.Name = _Name_Offices
+            _UniqueObjects_Offices.Parent = _UniqueObjects_Floor
+            _UniqueObjects_Offices.Save()
+            Me.UniqueObjects = _UniqueObjects_Offices
+        End If
+    End Sub
+
+    '-----NonPersistes-----
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceNettoHUF As Double = 0
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceNettoHUFRent As Double = 0
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceBruttoHUF As Double = 0
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property OfferListPriceBruttoHUFRent As Double = 0
+End Class ' Irodák, üzletek

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/PopUp/Immovables_ChangeGroup_PopUp.vb

@@ -0,0 +1,135 @@
+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()> _
+<CreatableItem(False)> _
+<NavigationItem(False)> _
+Public Class Immovables_ChangeGroup_PopUp
+    Inherits BaseObject
+
+    Private _IsChange_CanforSale As Boolean
+    Private _CanforSale As Boolean 'Eladható
+    Private _IsChange_CanForRent As Boolean
+    Private _CanForRent As Boolean 'Bérelhetõ
+    Private _IsChange_CustomersOwner As Boolean
+    Private _CustomersOwner As Customers 'Tulajdonos.
+    Private _IsChange_CustomersLessor As Boolean
+    Private _CustomersLessor As Customers 'Bérbeadó
+    Private _IsChange_ImmovableSoldState As Boolean
+    Private _ImmovableSoldState As eImmovableSoldState 'Ingatlan eladható státusz
+    Private _IsChange_ImmovablesRentState As Boolean
+    Private _ImmovablesRentState As eImmovablesRentState 'Ingatlan bérelhetõ státusz
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property IsChange_CanforSale As Boolean
+        Get
+            Return _IsChange_CanforSale
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsChange_CanforSale", _IsChange_CanforSale, value)
+        End Set
+    End Property
+    Property CanForSale As Boolean
+        Get
+            Return _CanforSale
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("CanForSale", _CanforSale, value)
+        End Set
+    End Property
+    Property IsChange_CanForRent As Boolean
+        Get
+            Return _IsChange_CanForRent
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsChange_CanForRent", _IsChange_CanForRent, value)
+        End Set
+    End Property
+    Property CanForRent As Boolean
+        Get
+            Return _CanForRent
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("CanForRent", _CanForRent, value)
+        End Set
+    End Property
+    Property IsChange_CustomersOwner As Boolean
+        Get
+            Return _IsChange_CustomersOwner
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsChange_CustomersOwner", _IsChange_CustomersOwner, value)
+        End Set
+    End Property
+    Property CustomersOwner() As Customers
+        Get
+            Return _CustomersOwner
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("CustomersOwner", _CustomersOwner, value)
+        End Set
+    End Property
+    Property IsChange_CustomersLessor As Boolean
+        Get
+            Return _IsChange_CustomersLessor
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsChange_CustomersLessor", _IsChange_CustomersLessor, value)
+        End Set
+    End Property
+    Property CustomersLessor() As Customers
+        Get
+            Return _CustomersLessor
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("CustomersLessor", _CustomersLessor, value)
+        End Set
+    End Property
+    Property IsChange_ImmovableSoldState As Boolean
+        Get
+            Return _IsChange_ImmovableSoldState
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsChange_ImmovableSoldState", _IsChange_ImmovableSoldState, value)
+        End Set
+    End Property
+    Property ImmovableSoldState As eImmovableSoldState
+        Get
+            Return _ImmovableSoldState
+        End Get
+        Set(value As eImmovableSoldState)
+            SetPropertyValue("ImmovableSoldState", _ImmovableSoldState, value)
+        End Set
+    End Property
+    Property IsChange_ImmovablesRentState As Boolean
+        Get
+            Return _IsChange_ImmovablesRentState
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsChange_ImmovablesRentState", _IsChange_ImmovablesRentState, value)
+        End Set
+    End Property
+    Property ImmovablesRentState As eImmovablesRentState
+        Get
+            Return _ImmovablesRentState
+        End Get
+        Set(value As eImmovablesRentState)
+            SetPropertyValue("ImmovablesRentState", _ImmovablesRentState, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Stairways.vb

@@ -0,0 +1,48 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.Xpo.Metadata
+Imports System.Drawing
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class Stairways
+    Inherits BaseObject
+    Private _ImmovablesGroups As ImmovablesGroups
+    Private _ShortName As String
+    Private _UniqueTag As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <RuleRequiredField("Stairways-UniqueTag", DefaultContexts.Save)> _
+    Property UniqueTag() As String
+        Get
+            Return _UniqueTag
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("UniqueTag", _UniqueTag, value)
+        End Set
+    End Property
+    <Association("ImmovablesGroups-Stairways", GetType(ImmovablesGroups))> _
+    Property ImmovablesGroups() As ImmovablesGroups
+        Get
+            Return _ImmovablesGroups
+        End Get
+        Set(ByVal value As ImmovablesGroups)
+            SetPropertyValue("ImmovablesGroups", _ImmovablesGroups, value)
+        End Set
+    End Property
+End Class 'Lépcsőházak

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/StudentHostel.vb

@@ -0,0 +1,114 @@
+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.Xpo.Metadata
+Imports System.Drawing
+<DefaultClassOptions()> _
+<NavigationItem("RealEstateStocks")> _
+Public Class StudentHostel
+    Inherits Immovables
+    Private _Apartments As Apartments
+    Private _PriceBruttoHUF As Double
+    Private _PriceNettoHUF As Double 'Nettó vételár (HUF)
+    Private _PriceBruttoDEV As Double
+    Private _PriceNettoDEV As Double 'Nettó vételár
+    Private _Note As String
+    Private _UniqueTag As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.ImmovablesTypes = eImmovablesTypes.eStudentHostel
+    End Sub
+    Protected Overrides Sub OnSaving()
+        If Session.IsNewObject(Me) Then
+            If UniqueTag <> "*" Then Me.MakeUniqueObjects_StudentHostel()
+        End If
+        MyBase.OnSaving()
+    End Sub
+    Property Apartments() As Apartments
+        Get
+            Return _Apartments
+        End Get
+        Set(ByVal value As Apartments)
+            SetPropertyValue("Apartments", _Apartments, value)
+        End Set
+    End Property
+    Property PriceBruttoHUF() As Double
+        Get
+            Return _PriceBruttoHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceBruttoHUF", _PriceBruttoHUF, value)
+        End Set
+    End Property
+
+    Property PriceBruttoDEV() As Double
+        Get
+            Return _PriceBruttoDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("PriceBruttoDEV", _PriceBruttoDEV, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Note() As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Note", _Note, value)
+        End Set
+    End Property
+    <RuleRequiredField("StudentHostel-UniqueTag", DefaultContexts.Save)> _
+    Property UniqueTag() As String
+        Get
+            Return _UniqueTag
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("UniqueTag", _UniqueTag, value)
+        End Set
+    End Property
+    Public Sub MakeUniqueObjects_StudentHostel()
+        Dim _Name_Apartments As String : Dim _UniqueObjects_Apartments As UniqueObjects
+        Dim _Name_Apartments_X As String : Dim _UniqueObjects_Apartments_X As UniqueObjects
+        Dim _Name_StudentHostel As String : Dim _UniqueObjects_StudentHostel As UniqueObjects
+        'Dim _Name_StudentHostel_X As String : Dim _UniqueObjects_StudentHostel_X As UniqueObjects
+
+        _Name_Apartments = Me._Apartments.UniqueObjects.ToString
+        _Name_Apartments_X = Me.Apartments.UniqueObjects.ToString & "-X"
+
+        _UniqueObjects_Apartments = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Apartments))
+        If _UniqueObjects_Apartments Is Nothing Then
+            _UniqueObjects_Apartments = New UniqueObjects(Session)
+            _UniqueObjects_Apartments.Name = _Name_Apartments
+            _UniqueObjects_Apartments.Save()
+        End If
+        _UniqueObjects_Apartments_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Apartments_X))
+        If _UniqueObjects_Apartments_X Is Nothing Then
+            _UniqueObjects_Apartments_X = New UniqueObjects(Session)
+            _UniqueObjects_Apartments_X.Name = _Name_Apartments_X
+            _UniqueObjects_Apartments_X.Parent = _UniqueObjects_Apartments
+            _UniqueObjects_Apartments_X.Save()
+        End If
+
+        _Name_StudentHostel = Me._Apartments.UniqueObjects.ToString & "-" & _UniqueTag
+
+        _UniqueObjects_StudentHostel = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_StudentHostel))
+        If _UniqueObjects_StudentHostel Is Nothing Then
+            _UniqueObjects_StudentHostel = New UniqueObjects(Session)
+            _UniqueObjects_StudentHostel.Name = _Name_StudentHostel
+            _UniqueObjects_StudentHostel.Parent = _UniqueObjects_Apartments
+            _UniqueObjects_StudentHostel.Save()
+            Me.UniqueObjects = _UniqueObjects_StudentHostel
+        End If
+
+    End Sub
+End Class 'Bérlemények (kollégiumi férőhelyek