Reconfigure for GIT

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCParameters.vb

@@ -0,0 +1,100 @@
+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 APCParameters 'Agricultural Production Contracts paraméterek
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _ShortName As String
+    Private _NumberGenerator As NumberGenerator
+    Private _ReportData As ReportData 'Termeltetési adatlap nyomtatvány
+    Private _ReportDataReviewSheet As ReportData 'Betakarítás elõtti szemle nyomtatvány
+    Private _InterestValue As Double 'Kamat % 15,6 !!!
+    Private _NumberGenaratorSalesPolicy As NumberGenerator 'Értékesítési nyilatkozat sorszámok (APCSheetByProductsSalesPolicyH)
+    Private _ReportDataSalesPolicy As ReportData
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <RuleRequiredField("APCParameters - CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("APCParameters - ShortName", DefaultContexts.Save)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <RuleRequiredField("APCParameters - NumberGenerator", DefaultContexts.Save)> _
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    <RuleRequiredField("APCParameters - ReportData", DefaultContexts.Save)> _
+    Property ReportData As ReportData
+        Get
+            Return _ReportData
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData", _ReportData, value)
+        End Set
+    End Property
+    Property ReportDataReviewSheet As ReportData
+        Get
+            Return _ReportDataReviewSheet
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportDataReviewSheet", _ReportDataReviewSheet, value)
+        End Set
+    End Property
+    Property InterestValue As Double
+        Get
+            Return _InterestValue
+        End Get
+        Set(value As Double)
+            SetPropertyValue("InterestValue", _InterestValue, value)
+        End Set
+    End Property
+    Property NumberGenaratorSalesPolicy As NumberGenerator
+        Get
+            Return _NumberGenaratorSalesPolicy
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenaratorSalesPolicy", _NumberGenaratorSalesPolicy, value)
+        End Set
+    End Property
+    Property ReportDataSalesPolicy As ReportData
+        Get
+            Return _ReportDataSalesPolicy
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportDataSalesPolicy", _ReportDataSalesPolicy, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByProducts.vb

@@ -0,0 +1,278 @@
+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 eInsuranceState
+    eNothing = 0
+    eByCustomers = 1
+    eByCustomersFrom = 2
+End Enum
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+<DefaultProperty("DisplayName")> _
+Public Class APCSheetByProducts 'Agricultural Production Contracts termék sorok 
+    Inherits BaseObject
+
+    Private _RowIndex As Long
+    Private _APCSheetHeader As APCSheetHeader
+    Private _Products As Products 'Termék
+    Private _InsuranceState As eInsuranceState 'Ki fizeti a biztosítást
+    Private _ContractQuantity As Double 'Adott termékre szerzõdött terület ha
+    Private _MaxContractQuantity As Double 'Max szerzõdhetõ mennyiség hektáronként
+    Private _FundingHatoHUF As Double 'Egységre jutó finanszírozás /ha /tonna
+    Private _FundingHaHUF As Double 'Egységre jutó finanszírozás /ha
+    Private _FundingAmountHUF As Double 'Finanszírozás összesen
+    Private _FundingAmountUsedHUF As Double 'Ebbõl felhasználva összesen
+    Private _FundingAmountAvailableHUF As Double 'Még felhasználható összesen
+    Private _ColleteralHatoHUF As Double 'Egységre jutó fedezeti érték /ha /tonna
+    Private _CollateralhaHUF As Double 'Egységre jutó fedezeti érték /ha
+    Private _CollateralAmountHUF As Double 'Fedezeti érték összesen
+    Private _FundingDate As Date 'Fizetési határidõ az elvitt termékre vonatkozólag
+    Private _ProductExpirationDate As Date 'Lejárati dátum
+    Private _Contracts As Contracts 'Szerzõdés
+    Private _ContractsSignatureDate As Date 'Szerzõdés aláírásásnak dátuma
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    <Association("APCSheetHeader-APCSheetByProducts", GetType(APCSheetHeader)), VisibleInListView(False)> _
+    Property APCSheetHeader As APCSheetHeader
+        Get
+            Return _APCSheetHeader
+        End Get
+        Set(value As APCSheetHeader)
+            SetPropertyValue("APCSheetHeader", _APCSheetHeader, value)
+        End Set
+    End Property
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property InsuranceState As eInsuranceState
+        Get
+            Return _InsuranceState
+        End Get
+        Set(value As eInsuranceState)
+            SetPropertyValue("InsuranceState", _InsuranceState, value)
+        End Set
+    End Property
+    Property ContractQuantity As Double
+        Get
+            Return _ContractQuantity
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ContractQuantity", _ContractQuantity, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                FundingAmountHUF = value * FundingHaHUF
+                CollateralAmountHUF = value * MaxContractQuantity * ColleteralHatoHUF
+                FundingAmountAvailableHUF = FundingAmountHUF - FundingAmountUsedHUF
+            End If
+        End Set
+    End Property
+    Property MaxContractQuantity As Double
+        Get
+            Return _MaxContractQuantity
+        End Get
+        Set(value As Double)
+            SetPropertyValue("MaxContractQuantity", _MaxContractQuantity, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                FundingHaHUF = value * FundingHatoHUF
+                CollateralAmountHUF = value * ContractQuantity * ColleteralHatoHUF
+            End If
+        End Set
+    End Property
+    Property FundingHatoHUF As Double
+        Get
+            Return _FundingHatoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FundingHatoHUF", _FundingHatoHUF, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                FundingHaHUF = value * MaxContractQuantity
+            End If
+        End Set
+    End Property
+    Property FundingHaHUF As Double
+        Get
+            Return _FundingHaHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FundingHaHUF", _FundingHaHUF, value)
+        End Set
+    End Property
+    Property FundingAmountHUF As Double
+        Get
+            Return _FundingAmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FundingAmountHUF", _FundingAmountHUF, value)
+        End Set
+    End Property
+    Property FundingAmountUsedHUF As Double
+        Get
+            Return _FundingAmountUsedHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FundingAmountUsedHUF", _FundingAmountUsedHUF, value)
+        End Set
+    End Property
+    Property FundingAmountAvailableHUF As Double
+        Get
+            Return _FundingAmountAvailableHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FundingAmountAvailableHUF", _FundingAmountAvailableHUF, value)
+        End Set
+    End Property
+    Property ColleteralHatoHUF As Double
+        Get
+            Return _ColleteralHatoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ColleteralHatoHUF", _ColleteralHatoHUF, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                CollateralAmountHUF = value * MaxContractQuantity * ContractQuantity
+                CollateralhaHUF = value * MaxContractQuantity
+            End If
+        End Set
+    End Property
+    Property CollateralhaHUF As Double
+        Get
+            Return _CollateralhaHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CollateralhaHUF", _CollateralhaHUF, value)
+        End Set
+    End Property
+    Property CollateralAmountHUF As Double
+        Get
+            Return _CollateralAmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CollateralAmountHUF", _CollateralAmountHUF, value)
+        End Set
+    End Property
+    Property FundingDate As Date
+        Get
+            Return _FundingDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("FundingDate", _FundingDate, value)
+        End Set
+    End Property
+    Property ProductExpirationDate As Date
+        Get
+            Return _ProductExpirationDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ProductExpirationDate", _ProductExpirationDate, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    Property Contracts As Contracts
+        Get
+            Return _Contracts
+        End Get
+        Set(value As Contracts)
+            SetPropertyValue("Contracts", _Contracts, value)
+        End Set
+    End Property
+    Property ContractsSignatureDate As Date
+        Get
+            Return _ContractsSignatureDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ContractsSignatureDate", _ContractsSignatureDate, value)
+        End Set
+    End Property
+
+    ReadOnly Property DisplayName As String
+        Get
+            If APCSheetHeader IsNot Nothing Then
+                If _Products IsNot Nothing Then
+                    Return Me.APCSheetHeader.DocumentNumber & ", " & Me.Products.ShortName & ", " & Format(Me.FundingAmountHUF, "#,##0")
+                Else
+                    Return Me.APCSheetHeader.DocumentNumber & ", " & Format(Me.FundingAmountHUF, "#,##0")
+                End If
+            Else
+                Return Nothing
+            End If
+        End Get
+    End Property
+
+    <VisibleInListView(False), VisibleInDetailView(False)> _
+    ReadOnly Property SumContractQuantity As Double 'Összes szerzõdött mennyiség
+        Get
+            Return Math.Round(ContractQuantity * MaxContractQuantity, 2, MidpointRounding.AwayFromZero)
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False)> _
+    ReadOnly Property FundingHaHUF_Text_HUF As String 'Egységre jutó finanszírozás /ha szövegesen magyarul
+        Get
+            Return GeneralFunction.GetHUNumberToText(Math.Round(FundingHaHUF, 0, MidpointRounding.AwayFromZero))
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False)> _
+    ReadOnly Property FundingAmountHUF_Text_HUF As String 'Finanszírozás összesen szövegesen magyarul
+        Get
+            Return GeneralFunction.GetHUNumberToText(Math.Round(FundingAmountHUF, 0, MidpointRounding.AwayFromZero))
+        End Get
+    End Property
+    '//XPCollection a felhasznált tételekrõl
+    <VisibleInListView(False), VisibleInLookupListView(False), VisibleInDetailView(False)> _
+    ReadOnly Property OrderInRows As XPCollection(Of OrderInRows)
+        Get
+            Return New XPCollection(Of OrderInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, Session,
+                                                    CriteriaOperator.Parse("APCSheetByProducts=? and IsNull(GCRecord)=True and IsNull(OrderInHeader)=False", Me))
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False), VisibleInDetailView(False)> _
+    ReadOnly Property OrderInRowsOther As XPCollection(Of OrderInRowsOther)
+        Get
+            Return New XPCollection(Of OrderInRowsOther)(PersistentCriteriaEvaluationBehavior.InTransaction, Session,
+                                                         CriteriaOperator.Parse("APCSheetByProducts=? and IsNull(GCRecord)=True and IsNull(OrderInHeader)=False", Me))
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False), VisibleInDetailView(False)> _
+    ReadOnly Property InvoiceRows As XPCollection(Of InvoiceRows)
+        Get
+            Return New XPCollection(Of InvoiceRows)(PersistentCriteriaEvaluationBehavior.InTransaction, Session,
+                                                    CriteriaOperator.Parse("(OrderInRows.APCSheetByProducts=? or OrderInRowsOther.APCSheetByProducts=?) and IsNull(GCRecord)=True and IsNull(InvoiceHeader)=False and InvoiceHeader.IsEditable=False and InvoiceHeader.DocumentNumber !=''", Me, Me))
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False), VisibleInDetailView(False)> _
+    ReadOnly Property DeliveryNoteOutRows As XPCollection(Of DeliveryNoteOutRows)
+        Get
+            Return New XPCollection(Of DeliveryNoteOutRows)(PersistentCriteriaEvaluationBehavior.InTransaction, Session,
+                                                            CriteriaOperator.Parse("StorageOutRowsInRows.StorageOutRows.OrderInRows.APCSheetByProducts=? and IsNull(GCRecord)=True and IsNull(DeliveryNoteOutHeader)=False and DeliveryNoteOutHeader.IsEditable=False", Me))
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False), VisibleInDetailView(False)> _
+    ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows)
+        Get
+            Return New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, Session,
+                                                             CriteriaOperator.Parse("StorageOutRows.OrderInRows.APCSheetByProducts=? and IsNull(GCRecord)=True and IsNull(StorageOutRows.OrderInRows.OrderInHeader)=False and IsNull(StorageOutRows.StorageOutHeader)=False", Me))
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByProductsSalesPolicyH.vb

@@ -0,0 +1,145 @@
+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 eSalesPolicyDocumentState
+    eDeleted = -1
+    eReadyforSign = 0
+    eSigned = 2
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<DefaultProperty("DocumentNumber")> _
+<Appearance("APCSheetByProductsSalesPolicyH - Disable DocumentNumber all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="DocumentNumber", Enabled:=False)> _
+<Appearance("APCSheetByProductsSalesPolicyH - Disable ObjectCreated all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("APCSheetByProductsSalesPolicyH - Disable UserCreated all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
+<Appearance("APCSheetByProductsSalesPolicyH - Disable APCSheetHeader", AppearanceItemType.ViewItem, "IsNull(DocumentNumber)=False", TargetItems:="APCSheetHeader", Enabled:=False)> _
+Public Class APCSheetByProductsSalesPolicyH 'Értékesítési szándéknyilatkozat fejléc termeltetési szerzõdéshez
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _APCSheetHeader As APCSheetHeader 'Termeltetési szerz.
+    Private _DocumentNumber As String 'Sorszám
+    Private _Customers As Customers 'Vevõ
+    Private _DateCreated As Date 'Dátum
+    Private _SalesPolicyDocumentState As eSalesPolicyDocumentState
+    Private _FileData As FileData 'Az aláírt szkennelt file
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        ' Dim _APCParameters As APCParameters = Session.FindObject(Of APCParameters)(CriteriaOperator.Parse("CustomersFrom=? AND NumberGenaratorSalesPolicy<>?", CustomersFrom, Nothing))
+        Dim _APCParameters As APCParameters = Me._APCSheetHeader.APCParameters
+        If _APCParameters IsNot Nothing Then
+            If _APCParameters.NumberGenaratorSalesPolicy IsNot Nothing Then
+                If String.IsNullOrEmpty(DocumentNumber) Then DocumentNumber = _APCParameters.NumberGenaratorSalesPolicy.GetNewNumber(_APCParameters.NumberGenaratorSalesPolicy)
+            End If
+        End If
+
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    <RuleRequiredField("APCSheetByProductsSalesPolicyH - CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("APCSheetByProductsSalesPolicyH - APCSheetHeader", DefaultContexts.Save)> _
+    Property APCSheetHeader As APCSheetHeader
+        Get
+            Return _APCSheetHeader
+        End Get
+        Set(value As APCSheetHeader)
+            SetPropertyValue("APCSheetHeader", _APCSheetHeader, value)
+        End Set
+    End Property
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property DateCreated As Date
+        Get
+            Return _DateCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateCreated", _DateCreated, value)
+        End Set
+    End Property
+    Property SalesPolicyDocumentState As eSalesPolicyDocumentState
+        Get
+            Return _SalesPolicyDocumentState
+        End Get
+        Set(value As eSalesPolicyDocumentState)
+            SetPropertyValue("SalesPolicyDocumentState", _SalesPolicyDocumentState, value)
+        End Set
+    End Property
+    Property FileData As FileData
+        Get
+            Return _FileData
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("FileData", _FileData, 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
+
+    <VisibleInListView(False)> _
+    <Association("APCSheetByProductsSalesPolicyH - APCSheetByProductsSalesPolicyR", GetType(APCSheetByProductsSalesPolicyR))> _
+    ReadOnly Property APCSheetByProductsSalesPolicyR As XPCollection(Of APCSheetByProductsSalesPolicyR)
+        Get
+            Return GetCollection(Of APCSheetByProductsSalesPolicyR)("APCSheetByProductsSalesPolicyR")
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByProductsSalesPolicyR.vb

@@ -0,0 +1,55 @@
+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 APCSheetByProductsSalesPolicyR 'Értékesítési szándéknyilatkozat sor termeltetési szerzõdéshez
+    Inherits BaseObject
+
+    Private _APCSheetByProductsSalesPolicyH As APCSheetByProductsSalesPolicyH
+    Private _APCSheetByProducts As APCSheetByProducts
+    Private _ContractQuantityForSales As Double 'Eladási mennyiség
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("APCSheetByProductsSalesPolicyH - APCSheetByProductsSalesPolicyR", GetType(APCSheetByProductsSalesPolicyH)), VisibleInListView(False)> _
+    Property APCSheetByProductsSalesPolicyH As APCSheetByProductsSalesPolicyH
+        Get
+            Return _APCSheetByProductsSalesPolicyH
+        End Get
+        Set(value As APCSheetByProductsSalesPolicyH)
+            SetPropertyValue("APCSheetByProductsSalesPolicyH", _APCSheetByProductsSalesPolicyH, value)
+        End Set
+    End Property
+    <RuleRequiredField("APCSheetByProductsSalesPolicyR - APCSheetByProducts", DefaultContexts.Save)> _
+      <DataSourceCriteria("APCSheetHeader = '@This.APCSheetByProductsSalesPolicyH.APCSheetHeader'")> _
+    Property APCSheetByProducts As APCSheetByProducts
+        Get
+            Return _APCSheetByProducts
+        End Get
+        Set(value As APCSheetByProducts)
+            SetPropertyValue("APCSheetByProducts", _APCSheetByProducts, value)
+        End Set
+    End Property
+    <RuleRequiredField("APCSheetByProductsSalesPolicyR - ContractQuantityForSales", DefaultContexts.Save)> _
+    Property ContractQuantityForSales As Double
+        Get
+            Return _ContractQuantityForSales
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ContractQuantityForSales", _ContractQuantityForSales, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByTerritorial.vb

@@ -0,0 +1,144 @@
+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 eOwnerState
+    eOwner = 0
+    eRenter = 1
+    eCourtesyUse = 2
+End Enum
+<DefaultClassOptions(), CreatableItem(False), NavigationItem(False), DefaultProperty("LotNumber")> _
+Public Class APCSheetByTerritorial
+    Inherits BaseObject
+    Private _APCSheetHeader As APCSheetHeader
+    Private _RowIndex As Long
+    Private _Involved As Boolean 'Termelésbe bevont terület ?
+    Private _City As String 'település
+    Private _LotNumber As String 'Helyrajzi szám
+    Private _BlockNumber As String 'Termõterülethez tartozó blokkszám
+    Private _Area As Double 'termõterület mérete ha
+    Private _Products As Products
+    Private _OwnerState As eOwnerState 'Bérlõ, tulajdonos vagy szívességi földhasználó
+    Private _DueDateRent As Date 'Bérlet lejárta dátuma
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Involved = True
+    End Sub
+
+    <Association("APCSheetHeader-APCSheetByTerritorial", GetType(APCSheetHeader)), VisibleInListView(False)> _
+    Property APCSheetHeader As APCSheetHeader
+        Get
+            Return _APCSheetHeader
+        End Get
+        Set(value As APCSheetHeader)
+            SetPropertyValue("APCSheetHeader", _APCSheetHeader, value)
+        End Set
+    End Property
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    Property Involved As Boolean
+        Get
+            Return _Involved
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Involved", _Involved, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property City As String
+        Get
+            Return _City
+        End Get
+        Set(value As String)
+            SetPropertyValue("City", _City, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property LotNumber As String
+        Get
+            Return _LotNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("LotNumber", _LotNumber, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property BlockNumber As String
+        Get
+            Return _BlockNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("BlockNumber", _BlockNumber, value)
+        End Set
+    End Property
+    Property Area As Double
+        Get
+            Return _Area
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Area", _Area, value)
+        End Set
+    End Property
+    <DataSourceProperty("TerritorialProducts")> _
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property OwnerState As eOwnerState
+        Get
+            Return _OwnerState
+        End Get
+        Set(value As eOwnerState)
+            SetPropertyValue("OwnerState", _OwnerState, value)
+        End Set
+    End Property
+    Property DueDateRent As Date
+        Get
+            Return _DueDateRent
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DueDateRent", _DueDateRent, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    ReadOnly Property TerritorialProducts As XPCollection(Of Products)
+        Get
+            Dim _ProductsCoollection As XPCollection(Of Products) = Nothing
+
+            If APCSheetHeader IsNot Nothing Then
+                If APCSheetHeader.APCSheetByProducts.Count > 0 Then
+                    Dim _Filter As String = "Oid in("
+
+                    For Each _APCSheetByProducts As APCSheetByProducts In APCSheetHeader.APCSheetByProducts
+                        _Filter += "'" + _APCSheetByProducts.Products.Oid.ToString + "',"
+                    Next
+                    _Filter = _Filter.Remove(_Filter.Length - 1, 1)
+                    _Filter += ")"
+                    _ProductsCoollection = New XPCollection(Of Products)(Session, CriteriaOperator.Parse(_Filter))
+                End If
+            End If
+
+            Return _ProductsCoollection
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetContractHandlingPlace.vb

@@ -0,0 +1,37 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<DefaultProperty("ContractHandlingPlace")> _
+Public Class APCSheetContractHandlingPlace
+    Inherits BaseObject
+
+    Private _ContractHandlingPlace As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <RuleRequiredField("APCSheetContractHandlingPlace - ContractHandlingPlace", DefaultContexts.Save)> _
+    Property ContractHandlingPlace As String
+        Get
+            Return _ContractHandlingPlace
+        End Get
+        Set(value As String)
+            SetPropertyValue("ContractHandlingPlace", _ContractHandlingPlace, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetCreditClassificationAnimalRows.vb

@@ -0,0 +1,71 @@
+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 APCSheetCreditClassificationAnimalRows
+    Inherits BaseObject
+
+    Private _APCSheetHeader As APCSheetHeader
+    Private _RowIndex As Long
+    Private _ShortName As String 'Állat fajta megnevezése
+    Private _QTT As Long 'Mmennyiség
+    Private _EstimatedWeight As Double 'átlagos becsült súlya az adott állatnak (kg)
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("APCSheetHeader-APCSheetCreditClassificationAnimalRows", GetType(APCSheetHeader)), VisibleInListView(False)> _
+    Property APCSheetHeader As APCSheetHeader
+        Get
+            Return _APCSheetHeader
+        End Get
+        Set(value As APCSheetHeader)
+            SetPropertyValue("APCSheetHeader", _APCSheetHeader, value)
+        End Set
+    End Property
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property QTT As Long
+        Get
+            Return _QTT
+        End Get
+        Set(value As Long)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property EstimatedWeight As Double
+        Get
+            Return _EstimatedWeight
+        End Get
+        Set(value As Double)
+            SetPropertyValue("EstimatedWeight", _EstimatedWeight, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetCreditClassificationFinancialRows.vb

@@ -0,0 +1,71 @@
+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 APCSheetCreditClassificationFinancialRows
+    Inherits BaseObject
+
+    Private _APCSheetHeader As APCSheetHeader
+    Private _RowIndex As Long
+    Private _ShortName As String
+    Private _AmountHUF1 As Double
+    Private _AmountHUF2 As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("APCSheetHeader-APCSheetCreditClassificationFinancialRows", GetType(APCSheetHeader)), VisibleInListView(False)> _
+    Property APCSheetHeader As APCSheetHeader
+        Get
+            Return _APCSheetHeader
+        End Get
+        Set(value As APCSheetHeader)
+            SetPropertyValue("APCSheetHeader", _APCSheetHeader, value)
+        End Set
+    End Property
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property AmountHUF1 As Double
+        Get
+            Return _AmountHUF1
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUF1", _AmountHUF1, value)
+        End Set
+    End Property
+    Property AmountHUF2 As Double
+        Get
+            Return _AmountHUF2
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUF2", _AmountHUF2, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetHeader.vb

@@ -0,0 +1,905 @@
+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 eAPCStatus
+    eRegistered = 0
+    eSigned = 1
+    eSendToBank = 2
+    eSendToInsurrance = 3
+    eAccepted = 4
+    eReject = 5
+End Enum
+Public Enum ePaymentDiscipline
+    eNotSet = 0
+    eGood = 1
+    eDay0_15 = 2
+    eDay30_60 = 3
+    eDay60to = 4
+End Enum
+Public Enum eIsNewContactNoWhy
+    eNotSet = 0
+    eDidNotKnow = 1 'Nem ismert minket
+    eDidNotFund = 2 'Nem finanszírozott
+    eOther = 3 'Egyéb
+End Enum
+Public Enum eBankPreQualificationState
+    eNotSet = 0
+    eAccept = 1
+    aReject = 2
+End Enum
+Public Enum eSalespersonsProposal
+    eSuggest = 0    'Javaslom
+    eNotRecommended = 1 'Nem javaslom
+End Enum
+Public Enum eManagementAcceptType
+    eNotSet = 0 'Nincs beállítva    
+    eHRPerson = 1 'Saját cég
+    eManagement = 2 'Banki engedély
+End Enum
+Public Enum eManagementQualificationState
+    eNotSet = 0 'Nincs beállítva
+    eCreditental = 1 'Hitelezhetõ
+    eNotCreditental = 2 'Nem hitelezhetõ
+End Enum
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<Appearance("APCSheetHeader - Disable DocumentNumber all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="DocumentNumber", Enabled:=False)> _
+<Appearance("APCSheetHeader - Disable TerritorialArea all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="TerritorialArea", Enabled:=False)> _
+<Appearance("APCSheetHeader - Disable ManagementDeferredPaymentDay all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="ManagementDeferredPaymentDay", Enabled:=False)> _
+<Appearance("APCSheetHeader - Disable ManagementTerritorialArea all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="ManagementTerritorialArea", Enabled:=False)> _
+<Appearance("APCSheetHeader - Disable SalesDeferredPaymentHUF all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="SalesDeferredPaymentHUF", Enabled:=False)> _
+<Appearance("APCSheetHeader - Disable APCStatus all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="APCStatus", Enabled:=False)> _
+<Appearance("APCSheetHeader - Disable ObjectCreated all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("APCSheetHeader - Disable UserCreated all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
+<Appearance("APCSheetHeader - Disable EconomyArea all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="EconomyArea", Enabled:=False)> _
+<Appearance("APCSheetHeader - Disable DeferredPaymentHUF all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="DeferredPaymentHUF", Enabled:=False)> _
+<Appearance("APCSheetHeader - Disable DeferredPaymentDay all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="DeferredPaymentDay", Enabled:=False)> _
+<Appearance("APCSheetHeader - Disable DateSigned if APCStatus in (2,3,4)", AppearanceItemType.ViewItem, "APCStatus in (2,3,4)", TargetItems:="DateSigned", Enabled:=False)> _
+<Appearance("APCSheetHeader - Hide Description_Reject if  APCStatus <> 5", AppearanceItemType.ViewItem, "APCStatus <> 5", TargetItems:="Description_Reject", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("APCSheetHeader - Hide ManagementAcceptPerson if  ManagementAcceptType <> 1", AppearanceItemType.ViewItem, "ManagementAcceptType <> 1", TargetItems:="ManagementAcceptPerson", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("APCSheetHeader - Disable all properties, when APCStatus=4", AppearanceItemType.ViewItem, "APCStatus=4", TargetItems:="*", Enabled:=False)> _
+Public Class APCSheetHeader
+    Inherits BaseObject
+    Private _DocumentNumber As String
+    Private _APCParameters As APCParameters
+    Private _HRPerson As HRPerson
+    Private _Customers As Customers
+    Private _Contacts As Contacts 'Kapcsolat
+    Private _ContactsWithFullRight As Contacts 'Tulajdonos / cégjegyzésre jogosult személy
+    Private _CustomersFrom As CustomersFrom
+    Private _CropProtectionSpecialist As Contacts 'Növényvédelmi szakember
+    Private _ShortName As String
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _APCStatus As eAPCStatus
+    Private _PDFOriginal As FileData
+    Private _PDFSigned As FileData
+
+    Private _IsNewContact As Boolean = True
+    Private _IsNewContactNoWhy As eIsNewContactNoWhy 'Új kontakt miért
+    Private _IsNewContactNoReason As String 'Új kontakt miért egyéb ok
+    Private _PaymentDiscipline As ePaymentDiscipline 'Fizetési fegyelem
+    Private _CleanerDryerMachinetype As String 'Tisztító szárító gép tipusa
+    Private _CleanerDryerMachineCapacity As Double 'Kapacitása tonna / nap
+    Private _ShipmentCapacityMachine As Long 'Szállítási kapacitás gép száma
+    Private _ShipmentCapacityAmount As Double 'Szállítási kapacitás /tonna
+    Private _StorageCapacitybyFlat As Double 'Sík tárolás /tonna
+    Private _StorageCapacitybySilo As Double 'Siló tárolás /tonna
+
+    '------------------------------------------------
+    Private _MachineryTractors As Long 'Traktorok szám
+    Private _MachineryTillage As Long 'Talajmûvelõ gépek száma
+    Private _MachineryHarvesting As Long 'Betakarító gép
+    Private _MachineryFighting As Long 'Nõvényvédelmi gép
+    Private _MachinerySeedDrill As Long 'Vetõgép 
+    Private _MachinerySpecial As Long ' Egyéb speciális gép
+
+    '------------------------------------------------
+    Private _EconomyArea As Double 'Gazdaság nagysága
+    Private _EconomyMajorCropsGrown As String 'Termesztett fõbb növények
+    Private _EconomyAreaOwner As Double 'Saját tulajdon ebbõl
+    Private _EconomyAreaRent As Double 'Bérelt ebbõl
+    Private _EconomyActualYear As Long 'Gazdaság bemutatásához akutási év
+    Private _EconomyPreviousYear As Long 'Gazdaság bemutatásához elõzõ év
+
+    '------------------------------------------------
+    Private _MainCustomers As String 'Fõbb beszállítók
+    Private _Description As String 'Egyéb megjegyzések
+
+    '------------------------------------------------
+    Private _TerritorialArea As Double 'Üzletkötõ által javasolt terület
+    Private _DeferredPaymentDay As Long 'Halasztott fizetés napra
+    Private _DeferredPaymentHUF As Double 'Halasztott fizetés HUF ig
+    Private _SalespersonsProposal As eSalespersonsProposal 'Üzletkötõ javaslata
+    Private _SalesDeferredPaymentHUF As Double 'Creditmanager által engedélyezett fizetés HUF
+
+    '------------------------------------------------
+    Private _BankPreQualificationState As eBankPreQualificationState 'Elõminõsítés
+    Private _ManagementQualificationState As eManagementQualificationState 'Bank általi jóváhagyás
+    Private _ManagementDeferredPaymentDay As Long 'Bank által engedélyezett halasztott fizetés napra
+    Private _ManagementDeferredPaymentHUF As Double 'Bank által engedélyezett Halasztott fizetés HUF ig
+    Private _ManagementTerritorialArea As Double 'Bank által engedélyezett Üzletkötõ által javasolt terület
+    Private _ManagementAcceptDocument As FileData 'Engedélyezési okirat
+    Private _SendToBankDate As Date 'Bankba küldés dátuma
+    Private _ManagementAcceptType As eManagementAcceptType 'Ki engedélyezte Cofas vagy HRPerson
+    Private _ManagementAcceptPerson As HRPerson 'Ha HRPerson engedélyezte, akkor kötelezõ beállítani és csak akkor látszik
+
+    Private _Activity As String 'Partner tevékenysége
+    Private _ActivityStartDate As Date 'Tevékenység kezdete
+    Private _IsPrivateCredit As Boolean 'Van-e magánszemélyként hiteltartozása
+    Private _IsPrivateCreditAmountHUF As Double 'Hiteltartozás összege
+    Private _OtherCompanyInfo As String 'Egyéb vállalkozásnak tagja-e és hol ?
+
+    Private _DateSigned As Date 'Aláírás Dátuma
+    Private _Description_Reject As String ' Miért lett elutasítva?
+    Private _APCSheetAdministrator As HRPerson 'Termeltetési szerzõdés ügyintézõje
+    Private _APCSheetContractHandlingPlace As APCSheetContractHandlingPlace
+    '-------------------------------------------
+    'Reporthoz
+    Private _MaxExpirationDate As Date
+    Private _IsActive As Boolean
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+
+        APCStatus = eAPCStatus.eRegistered
+        IsActive = True
+
+        If Session.IsNewObject(Me) Then
+            Dim _APCSheetCreditClassificationFinancialRows As APCSheetCreditClassificationFinancialRows
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 1
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Pénzeszközök (összes bevétel-összes kiadás)"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 2
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Tárgyi eszközök nettó értéke"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 3
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Folyamatban lévõ beruházások értéke"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 4
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Forgóeszközök"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 5
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Készletek leltár szerinti értéke"
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 6
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Vevõkkel szembeni követelések"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 7
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Egyéb követelések"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 8
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Határidõn túli követelések"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 9
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Hosszú lejáratú kötelezettségek"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 10
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Szállítókkal szembeni kötelezettségek"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 11
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Adó és TB tartozás"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 12
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Egyéb rövid lejáratú kötelezettségek"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 13
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Hosszúlejáratú hitelek tárgyidõszaki törlesztése"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 14
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Nettó árbevétel"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 15
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Egyéb bevétel"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 16
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Adózás elõtti eredmény"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 17
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Adózott eredmény"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 18
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Fennálló összes hitel tipusú tartozás éves törlesztõ részlete"
+
+            _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
+            _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
+            _APCSheetCreditClassificationFinancialRows.RowIndex = 19
+            _APCSheetCreditClassificationFinancialRows.ShortName = "Terv szerinti ÉCS leírás"
+        End If
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If String.IsNullOrEmpty(DocumentNumber) Then DocumentNumber = APCParameters.NumberGenerator.GetNewNumber(APCParameters.NumberGenerator)
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+        'DeferredPaymentHUF = 0
+
+        'For Each _APCSheetByProducts As APCSheetByProducts In APCSheetByProducts
+        '    DeferredPaymentHUF += _APCSheetByProducts.FundingAmountHUF
+        'Next
+
+        'SalesDeferredPaymentHUF = DeferredPaymentHUF
+
+        'EconomyArea = 0
+        'TerritorialArea = 0
+        'For Each _APCSheetPresentation As APCSheetPresentation In APCSheetPresentation
+        '    EconomyArea += _APCSheetPresentation.Area
+        '    TerritorialArea += _APCSheetPresentation.Area
+        'Next
+        'EconomyAreaOwner = 0
+        'Dim _APCSheetByTerritorialOwner_Collection As New XPCollection(Of APCSheetByTerritorial)(Session, CriteriaOperator.Parse("APCSheetHeader=? AND OwnerState=0", Me))
+        'If _APCSheetByTerritorialOwner_Collection.Count > 0 Then
+        '    For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialOwner_Collection
+        '        EconomyAreaOwner += _APCSheetByTerritorial.Area
+        '    Next
+        'End If
+        'EconomyAreaRent = 0
+        'Dim _APCSheetByTerritorialRent_Collection As New XPCollection(Of APCSheetByTerritorial)(Session, CriteriaOperator.Parse("APCSheetHeader=? AND (OwnerState=1 OR OwnerState=2)", Me))
+        'If _APCSheetByTerritorialRent_Collection.Count > 0 Then
+        '    For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialRent_Collection
+        '        EconomyAreaRent += _APCSheetByTerritorial.Area
+        '    Next
+        'End If
+
+        'If DateSigned.Year = GetSQLTime(Session).Year Then
+        '    APCSheetByProducts.Sorting.Add(New SortProperty("ProductExpirationDate", DB.SortingDirection.Descending))
+        '    If Me.APCSheetByProducts.Count > 0 Then
+        '        Dim _MaxDate As Date = Me.APCSheetByProducts(0).ProductExpirationDate
+        '        Me.DeferredPaymentDay = CType((_MaxDate - DateSigned).Days, Long)
+        '    Else
+        '        Me.DeferredPaymentDay = 0
+        '    End If
+        'End If
+        'ManagementDeferredPaymentDay = DeferredPaymentDay
+    End Sub
+
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    <RuleRequiredField("APCSheetHeader - APCParameters", DefaultContexts.Save)> _
+    Property APCParameters As APCParameters
+        Get
+            Return _APCParameters
+        End Get
+        Set(value As APCParameters)
+            SetPropertyValue("APCParameters", _APCParameters, value)
+        End Set
+    End Property
+    <RuleRequiredField("APCSheetHeader - HRPerson", DefaultContexts.Save)> _
+    Property HRPerson As HRPerson
+        Get
+            Return _HRPerson
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson", _HRPerson, value)
+        End Set
+    End Property
+    <RuleRequiredField("APCSheetHeader - Customers", DefaultContexts.Save)> _
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    <DataSourceCriteria("Customers='@This.Customers'")> _
+    Property Contacts As Contacts
+        Get
+            Return _Contacts
+        End Get
+        Set(value As Contacts)
+            SetPropertyValue("Contacts", _Contacts, value)
+        End Set
+    End Property
+    <RuleRequiredField("APCSheetHeader - ContactsWithFullRight", DefaultContexts.Save)> _
+    <DataSourceCriteria("Customers='@This.Customers'")> _
+    Property ContactsWithFullRight As Contacts
+        Get
+            Return _ContactsWithFullRight
+        End Get
+        Set(value As Contacts)
+            SetPropertyValue("ContactsWithFullRight", _ContactsWithFullRight, 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
+    <RuleRequiredField("APCSheetHeader - CropProtectionSpecialist", DefaultContexts.Save)> _
+    <DataSourceProperty("CropProtectionSpecialistList")> _
+    Property CropProtectionSpecialist As Contacts
+        Get
+            Return _CropProtectionSpecialist
+        End Get
+        Set(value As Contacts)
+            SetPropertyValue("CropProtectionSpecialist", _CropProtectionSpecialist, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, 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
+    <ImmediatePostData(True)> _
+    Property APCStatus As eAPCStatus
+        Get
+            Return _APCStatus
+        End Get
+        Set(value As eAPCStatus)
+            SetPropertyValue("APCStatus", _APCStatus, value)
+        End Set
+    End Property
+    Property PDFOriginal As FileData
+        Get
+            Return _PDFOriginal
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("PDFOriginal", _PDFOriginal, value)
+        End Set
+    End Property
+    Property PDFSigned As FileData
+        Get
+            Return _PDFSigned
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("PDFSigned", _PDFSigned, value)
+        End Set
+    End Property
+
+    Property IsNewContact As Boolean
+        Get
+            Return _IsNewContact
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsNewContact", _IsNewContact, value)
+        End Set
+    End Property
+    Property IsNewContactNoWhy As eIsNewContactNoWhy
+        Get
+            Return _IsNewContactNoWhy
+        End Get
+        Set(value As eIsNewContactNoWhy)
+            SetPropertyValue("IsNewContactNoWhy", _IsNewContactNoWhy, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property IsNewContactNoReason As String
+        Get
+            Return _IsNewContactNoReason
+        End Get
+        Set(value As String)
+            SetPropertyValue("IsNewContactNoReason", _IsNewContactNoReason, value)
+        End Set
+    End Property
+    Property PaymentDiscipline As ePaymentDiscipline
+        Get
+            Return _PaymentDiscipline
+        End Get
+        Set(value As ePaymentDiscipline)
+            SetPropertyValue("PaymentDiscipline", _PaymentDiscipline, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property CleanerDryerMachinetype As String
+        Get
+            Return _CleanerDryerMachinetype
+        End Get
+        Set(value As String)
+            SetPropertyValue("CleanerDryerMachinetype", _CleanerDryerMachinetype, value)
+        End Set
+    End Property
+    Property CleanerDryerMachineCapacity As Double
+        Get
+            Return _CleanerDryerMachineCapacity
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CleanerDryerMachineCapacity", _CleanerDryerMachineCapacity, value)
+        End Set
+    End Property
+    Property ShipmentCapacityMachine As Long
+        Get
+            Return _ShipmentCapacityMachine
+        End Get
+        Set(value As Long)
+            SetPropertyValue("ShipmentCapacityMachine", _ShipmentCapacityMachine, value)
+        End Set
+    End Property
+    Property ShipmentCapacityAmount As Double
+        Get
+            Return _ShipmentCapacityAmount
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ShipmentCapacityAmount", _ShipmentCapacityAmount, value)
+        End Set
+    End Property
+    Property StorageCapacitybyFlat As Double
+        Get
+            Return _StorageCapacitybyFlat
+        End Get
+        Set(value As Double)
+            SetPropertyValue("StorageCapacitybyFlat", _StorageCapacitybyFlat, value)
+        End Set
+    End Property
+    Property StorageCapacitybySilo As Double
+        Get
+            Return _StorageCapacitybySilo
+        End Get
+        Set(value As Double)
+            SetPropertyValue("StorageCapacitybySilo", _StorageCapacitybySilo, value)
+        End Set
+    End Property
+
+    '------------------------------------------------
+    Property MachineryTractors As Long
+        Get
+            Return _MachineryTractors
+        End Get
+        Set(value As Long)
+            SetPropertyValue("MachineryTractors", _MachineryTractors, value)
+        End Set
+    End Property
+    Property MachineryTillage As Long
+        Get
+            Return _MachineryTillage
+        End Get
+        Set(value As Long)
+            SetPropertyValue("MachineryTillage", _MachineryTillage, value)
+        End Set
+    End Property
+    Property MachineryHarvesting As Long
+        Get
+            Return _MachineryHarvesting
+        End Get
+        Set(value As Long)
+            SetPropertyValue("MachineryHarvesting", _MachineryHarvesting, value)
+        End Set
+    End Property
+    Property MachineryFighting As Long
+        Get
+            Return _MachineryFighting
+        End Get
+        Set(value As Long)
+            SetPropertyValue("MachineryFighting", _MachineryFighting, value)
+        End Set
+    End Property
+    Property MachinerySeedDrill As Long
+        Get
+            Return _MachinerySeedDrill
+        End Get
+        Set(value As Long)
+            SetPropertyValue("MachinerySeedDrill", _MachinerySeedDrill, value)
+        End Set
+    End Property
+    Property MachinerySpecial As Long
+        Get
+            Return _MachinerySpecial
+        End Get
+        Set(value As Long)
+            SetPropertyValue("MachinerySpecial", _MachinerySpecial, value)
+        End Set
+    End Property
+
+    '------------------------------------------------
+    <RuleRequiredField("APCSheetHeader - EconomyArea", DefaultContexts.Save)> _
+    Property EconomyArea As Double
+        Get
+            Return _EconomyArea
+        End Get
+        Set(value As Double)
+            SetPropertyValue("EconomyArea", _EconomyArea, value)
+        End Set
+    End Property
+    <Size(800)> _
+    Property EconomyMajorCropsGrown As String
+        Get
+            Return _EconomyMajorCropsGrown
+        End Get
+        Set(value As String)
+            SetPropertyValue("EconomyMajorCropsGrown", _EconomyMajorCropsGrown, value)
+        End Set
+    End Property
+    Property EconomyAreaOwner As Double
+        Get
+            Return _EconomyAreaOwner
+        End Get
+        Set(value As Double)
+            SetPropertyValue("EconomyAreaOwner", _EconomyAreaOwner, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                Me.EconomyArea = Me.EconomyAreaRent + value
+            End If
+        End Set
+    End Property
+    Property EconomyAreaRent As Double
+        Get
+            Return _EconomyAreaRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("EconomyAreaRent", _EconomyAreaRent, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                Me.EconomyArea = Me.EconomyAreaOwner + value
+            End If
+        End Set
+    End Property
+    Property EconomyActualYear As Long
+        Get
+            Return _EconomyActualYear
+        End Get
+        Set(value As Long)
+            SetPropertyValue("EconomyActualYear", _EconomyActualYear, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                EconomyPreviousYear = value - 1
+            End If
+        End Set
+    End Property
+    Property EconomyPreviousYear As Long
+        Get
+            Return _EconomyPreviousYear
+        End Get
+        Set(value As Long)
+            SetPropertyValue("EconomyPreviousYear", _EconomyPreviousYear, value)
+        End Set
+    End Property
+    '------------------------------------------------
+    <Size(255)> _
+    Property MainCustomers As String
+        Get
+            Return _MainCustomers
+        End Get
+        Set(value As String)
+            SetPropertyValue("MainCustomers", _MainCustomers, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+
+    '------------------------------------------------
+    Property TerritorialArea As Double
+        Get
+            Return _TerritorialArea
+        End Get
+        Set(value As Double)
+            SetPropertyValue("TerritorialArea", _TerritorialArea, value)
+        End Set
+    End Property
+    Property DeferredPaymentDay As Long
+        Get
+            Return _DeferredPaymentDay
+        End Get
+        Set(value As Long)
+            SetPropertyValue("DeferredPaymentDay", _DeferredPaymentDay, value)
+        End Set
+    End Property
+    Property DeferredPaymentHUF As Double
+        Get
+            Return _DeferredPaymentHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DeferredPaymentHUF", _DeferredPaymentHUF, value)
+        End Set
+    End Property
+    Public Property SalespersonsProposal() As eSalespersonsProposal
+        Get
+            Return _SalespersonsProposal
+        End Get
+        Set(ByVal value As eSalespersonsProposal)
+            SetPropertyValue("SalespersonsProposal", _SalespersonsProposal, value)
+        End Set
+    End Property
+    Property SalesDeferredPaymentHUF As Double
+        Get
+            Return _SalesDeferredPaymentHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SalesDeferredPaymentHUF", _SalesDeferredPaymentHUF, value)
+        End Set
+    End Property
+
+    '------------------------------------------------
+    Property BankPreQualificationState As eBankPreQualificationState
+        Get
+            Return _BankPreQualificationState
+        End Get
+        Set(value As eBankPreQualificationState)
+            SetPropertyValue("BankPreQualificationState", _BankPreQualificationState, value)
+        End Set
+    End Property
+    Property ManagementQualificationState As eManagementQualificationState
+        Get
+            Return _ManagementQualificationState
+        End Get
+        Set(value As eManagementQualificationState)
+            SetPropertyValue("ManagementQualificationState", _ManagementQualificationState, value)
+        End Set
+    End Property
+    Property ManagementDeferredPaymentDay As Long
+        Get
+            Return _ManagementDeferredPaymentDay
+        End Get
+        Set(value As Long)
+            SetPropertyValue("ManagementDeferredPaymentDay", _ManagementDeferredPaymentDay, value)
+        End Set
+    End Property
+    Property ManagementDeferredPaymentHUF As Double
+        Get
+            Return _ManagementDeferredPaymentHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ManagementDeferredPaymentHUF", _ManagementDeferredPaymentHUF, value)
+        End Set
+    End Property
+    Property ManagementTerritorialArea As Double
+        Get
+            Return _ManagementTerritorialArea
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ManagementTerritorialArea", _ManagementTerritorialArea, value)
+        End Set
+    End Property
+    Property ManagementAcceptDocument As FileData
+        Get
+            Return _ManagementAcceptDocument
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("ManagementAcceptDocument", _ManagementAcceptDocument, value)
+        End Set
+    End Property
+    Property SendToBankDate As Date
+        Get
+            Return _SendToBankDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("SendToBankDate", _SendToBankDate, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property ManagementAcceptType As eManagementAcceptType
+        Get
+            Return _ManagementAcceptType
+        End Get
+        Set(value As eManagementAcceptType)
+            SetPropertyValue("ManagementAcceptType", _ManagementAcceptType, value)
+        End Set
+    End Property
+    <RuleRequiredField("APCSheetHeader - ManagementAcceptPerson", DefaultContexts.Save, TargetCriteria:="ManagementAcceptType = 1")> _
+    Property ManagementAcceptPerson As HRPerson
+        Get
+            Return _ManagementAcceptPerson
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("ManagementAcceptPerson", _ManagementAcceptPerson, value)
+        End Set
+    End Property
+
+    Property Activity As String
+        Get
+            Return _Activity
+        End Get
+        Set(value As String)
+            SetPropertyValue("Activity", _Activity, value)
+        End Set
+    End Property
+    Property ActivityStartDate As Date
+        Get
+            Return _ActivityStartDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ActivityStartDate", _ActivityStartDate, value)
+        End Set
+    End Property
+    Property IsPrivateCredit As Boolean
+        Get
+            Return _IsPrivateCredit
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsPrivateCredit", _IsPrivateCredit, value)
+        End Set
+    End Property
+    Property IsPrivateCreditAmountHUF As Double
+        Get
+            Return _IsPrivateCreditAmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("IsPrivateCreditAmountHUF", _IsPrivateCreditAmountHUF, value)
+        End Set
+    End Property
+    Property OtherCompanyInfo As String
+        Get
+            Return _OtherCompanyInfo
+        End Get
+        Set(value As String)
+            SetPropertyValue("OtherCompanyInfo", _OtherCompanyInfo, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <RuleRequiredField("APCSheetHeader - DateSigned", DefaultContexts.Save, TargetCriteria:="APCStatus <> 0")> _
+    Property DateSigned() As Date
+        Get
+            Return _DateSigned
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateSigned", _DateSigned, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description_Reject As String
+        Get
+            Return _Description_Reject
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description_Reject", _Description_Reject, value)
+        End Set
+    End Property
+    Property APCSheetAdministrator As HRPerson
+        Get
+            Return _APCSheetAdministrator
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("APCSheetAdministrator", _APCSheetAdministrator, value)
+        End Set
+    End Property
+    Property APCSheetContractHandlingPlace As APCSheetContractHandlingPlace
+        Get
+            Return _APCSheetContractHandlingPlace
+        End Get
+        Set(value As APCSheetContractHandlingPlace)
+            SetPropertyValue("APCSheetContractHandlingPlace", _APCSheetContractHandlingPlace, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False)> _
+    <VisibleInListView(False)> _
+    <VisibleInLookupListView(False)> _
+    Property MaxExpirationDate As Date
+        Get
+            Return _MaxExpirationDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("MaxExpirationDate", _MaxExpirationDate, value)
+        End Set
+    End Property
+    Property IsActive As Boolean
+        Get
+            Return _IsActive
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsActive", _IsActive, value)
+        End Set
+    End Property
+
+    '-- Nonpersistent propertyk
+
+
+    '--------------ReadOnly---------------
+    <Association("APCSheetHeader-APCSheetByProducts", GetType(APCSheetByProducts)), VisibleInListView(False)> _
+    <ImmediatePostData()> _
+    ReadOnly Property APCSheetByProducts As XPCollection(Of APCSheetByProducts)
+        Get
+            Return GetCollection(Of APCSheetByProducts)("APCSheetByProducts")
+        End Get
+    End Property
+    <Association("APCSheetHeader-APCSheetPresentation", GetType(APCSheetPresentation)), VisibleInListView(False)> _
+    ReadOnly Property APCSheetPresentation As XPCollection(Of APCSheetPresentation)
+        Get
+            Return GetCollection(Of APCSheetPresentation)("APCSheetPresentation")
+        End Get
+    End Property
+    <Association("APCSheetHeader-APCSheetByTerritorial", GetType(APCSheetByTerritorial)), VisibleInListView(False)> _
+    ReadOnly Property APCSheetByTerritorial As XPCollection(Of APCSheetByTerritorial)
+        Get
+            Return GetCollection(Of APCSheetByTerritorial)("APCSheetByTerritorial")
+        End Get
+    End Property
+    <Association("APCSheetHeader-APCSheetCreditClassificationAnimalRows", GetType(APCSheetCreditClassificationAnimalRows)), VisibleInListView(False)> _
+    ReadOnly Property APCSheetCreditClassificationAnimalRows As XPCollection(Of APCSheetCreditClassificationAnimalRows)
+        Get
+            Return GetCollection(Of APCSheetCreditClassificationAnimalRows)("APCSheetCreditClassificationAnimalRows")
+        End Get
+    End Property
+    <Association("APCSheetHeader-APCSheetCreditClassificationFinancialRows", GetType(APCSheetCreditClassificationFinancialRows)), VisibleInListView(False)> _
+    ReadOnly Property APCSheetCreditClassificationFinancialRows As XPCollection(Of APCSheetCreditClassificationFinancialRows)
+        Get
+            Return GetCollection(Of APCSheetCreditClassificationFinancialRows)("APCSheetCreditClassificationFinancialRows")
+        End Get
+    End Property
+    <Browsable(False)> _
+    Private ReadOnly Property CropProtectionSpecialistList As XPCollection(Of Contacts)
+        Get
+            Dim _CropProtectionSpecialistList_Collection As New XPCollection(Of Contacts)(Session, CriteriaOperator.Parse("IsNull(CropProtectionRegistrationNumber)=False"))
+
+            Return _CropProtectionSpecialistList_Collection
+        End Get
+    End Property
+    ReadOnly Property APCSheetReviewHeader As XPCollection(Of APCSheetReviewHeader)
+        Get
+            Return New XPCollection(Of APCSheetReviewHeader)(Session, CriteriaOperator.Parse("APCSheetByProducts.APCSheetHeader=?", Me))
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetPresentation.vb

@@ -0,0 +1,70 @@
+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 APCSheetPresentation
+    Inherits BaseObject
+
+    Private _APCSheetHeader As APCSheetHeader
+    Private _RowIndex As Long
+    Private _Products As Products
+    Private _PresentationYear As Long 'Év
+    Private _Area As Double 'Tervezett megmûvelt terület
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("APCSheetHeader-APCSheetPresentation", GetType(APCSheetHeader)), VisibleInListView(False)> _
+    Property APCSheetHeader As APCSheetHeader
+        Get
+            Return _APCSheetHeader
+        End Get
+        Set(value As APCSheetHeader)
+            SetPropertyValue("APCSheetHeader", _APCSheetHeader, value)
+        End Set
+    End Property
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property PresentationYear As Long
+        Get
+            Return _PresentationYear
+        End Get
+        Set(value As Long)
+            SetPropertyValue("PresentationYear", _PresentationYear, value)
+        End Set
+    End Property
+    Property Area As Double
+        Get
+            Return _Area
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Area", _Area, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader.vb

@@ -0,0 +1,111 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DefaultProperty("Description")> _
+<Appearance("APCSheetHeader - Disable ObjectCreated all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("APCSheetHeader - Disable UserCreated all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
+Public Class APCSheetReviewHeader 'Betakarítás elõtti jegyzõkönyv
+    Inherits BaseObject
+    Private _APCSheetByProducts As APCSheetByProducts
+    Private _Description As String
+    Private _FileData As FileData
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _ReportData As ReportData
+    Private _ReviewDate As Date
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        'If Me.ReportData Is Nothing Then
+        '    Me.ReportData = Session.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid = '43'"))
+        'End If
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    Property APCSheetByProducts As APCSheetByProducts
+        Get
+            Return _APCSheetByProducts
+        End Get
+        Set(value As APCSheetByProducts)
+            SetPropertyValue("APCSheetByProducts", _APCSheetByProducts, value)
+        End Set
+    End Property
+    <Size(-1)>
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property FileData As FileData
+        Get
+            Return _FileData
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("FileData", _FileData, 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 ReportData As ReportData
+        Get
+            Return _ReportData
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData", _ReportData, value)
+        End Set
+    End Property
+    Property ReviewDate As Date
+        Get
+            Return _ReviewDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ReviewDate", _ReviewDate, value)
+        End Set
+    End Property
+
+    ReadOnly Property APCSheetReviewRows As XPCollection(Of APCSheetReviewRows)
+        Get
+            Return New XPCollection(Of APCSheetReviewRows)(Session, CriteriaOperator.Parse("APCSheetReviewHeader=?", Me))
+        End Get
+    End Property
+    ReadOnly Property APCSheetReviewHeaderPhotos As XPCollection(Of APCSheetReviewHeaderPhotos)
+        Get
+            Return New XPCollection(Of APCSheetReviewHeaderPhotos)(Session, CriteriaOperator.Parse("APCSheetReviewHeader=?", Me))
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeaderPhotos.vb

@@ -0,0 +1,46 @@
+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()> _
+<CreatableItem(False)> _
+<NavigationItem(False)> _
+Public Class APCSheetReviewHeaderPhotos
+    Inherits BaseObject
+
+    Private _APCSheetReviewHeader As APCSheetReviewHeader
+    Private _PhotoFile As FileData
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <RuleRequiredField("APCSheetReviewHeaderPhotos - APCSheetReviewHeader", DefaultContexts.Save)> _
+    Property APCSheetReviewHeader As APCSheetReviewHeader
+        Get
+            Return _APCSheetReviewHeader
+        End Get
+        Set(value As APCSheetReviewHeader)
+            SetPropertyValue("APCSheetReviewHeader", _APCSheetReviewHeader, value)
+        End Set
+    End Property
+    <RuleRequiredField("APCSheetReviewHeaderPhotos - PhotoFile", DefaultContexts.Save)> _
+    Property PhotoFile As FileData
+        Get
+            Return _PhotoFile
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("PhotoFile", _PhotoFile, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.Designer.vb

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

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.resx

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

@@ -0,0 +1,113 @@
+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
+Imports DevExpress.ExpressApp.CloneObject
+Imports DevExpress.ExpressApp.Utils
+Imports DevExpress.Persistent.BaseImpl
+Imports System.IO
+
+Public Class APCSheetReviewHeader_VC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event DoWork()
+    Public Event FinalWork
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+
+#Region "Overrides"
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        If View.Id = "APCSheetReviewHeader_APCSheetReviewHeaderPhotos_ListView" Then
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "APCSheetReviewHeader_APCSheetReviewRows_ListView" Then
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "APCSheetReviewHeader_APCSheetReviewHeaderPhotos_ListView" Then
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+        End If
+        If View.Id = "APCSheetReviewHeader_APCSheetReviewRows_ListView" Then
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+        End If
+    End Sub
+#End Region
+   
+    Private Sub aAPCSheetReviewHeaderPhotos_AddPhotos_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheetReviewHeaderPhotos_AddPhotos.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _APCSheetReviewHeader As APCSheetReviewHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetReviewHeader)
+        If _APCSheetReviewHeader IsNot Nothing Then
+            Try
+                Dim _OpenFileDialog As New System.Windows.Forms.OpenFileDialog
+                _OpenFileDialog.Filter = "JPG file (.jpg)|*.jpg|BMP file (.bmp)|*.bmp|GIF file (.gif)|*.gif|All Files (*.*)|*.*"
+                _OpenFileDialog.Multiselect = True
+
+                If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
+                    RaiseEvent InitWork(1, 1, _OpenFileDialog.FileNames.Length)
+                    For Each _FileName As String In _OpenFileDialog.FileNames
+                        RaiseEvent DoWork()
+                        Dim _APCSheetReviewHeaderPhotos As New APCSheetReviewHeaderPhotos(_ocur.Session)
+                        With _APCSheetReviewHeaderPhotos
+                            .APCSheetReviewHeader = _APCSheetReviewHeader
+                            .PhotoFile = LoadOtherFile(_FileName, New FileData(_ocur.Session))
+                        End With
+                    Next
+                End If
+
+                _ocur.CommitChanges()
+
+            Catch ex As Exception
+                MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+            Finally
+                RaiseEvent FinalWork
+            End Try
+        End If
+    End Sub
+    Private Sub aAPCSheetReviewHeaderPhotos_OpenPhoto_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheetReviewHeaderPhotos_OpenPhoto.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _APCSheetReviewHeaderPhotos As APCSheetReviewHeaderPhotos = TryCast(View.SelectedObjects(0), APCSheetReviewHeaderPhotos)
+        If _APCSheetReviewHeaderPhotos IsNot Nothing Then
+            Dim _FilePath As String = Path.Combine(Path.GetTempPath(), _APCSheetReviewHeaderPhotos.PhotoFile.FileName)
+            Dim _Stream As Stream = New FileStream(_FilePath, FileMode.Create)
+            _APCSheetReviewHeaderPhotos.PhotoFile.SaveToStream(_Stream)
+            _Stream.Close()
+            Process.Start(_FilePath)
+        End If
+    End Sub
+#Region "Subs and Functions"
+    Private Function LoadOtherFile(ByVal _ActFile As String, _FileData As FileData) As FileData
+        Dim _StreamFile = New System.IO.FileStream(_ActFile, System.IO.FileMode.Open, System.IO.FileAccess.Read)
+        Dim _StreamReader As New System.IO.StreamReader(_StreamFile)
+        _StreamFile.Seek(0, System.IO.SeekOrigin.Begin)
+
+        _FileData.LoadFromStream(_ActFile, _StreamFile)
+        _FileData.FileName = System.IO.Path.GetFileName(_ActFile)
+        _StreamReader.Close()
+        _StreamFile.Close()
+
+        Return _FileData
+    End Function
+#End Region
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewRows.vb

@@ -0,0 +1,78 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class APCSheetReviewRows 'Betakarítás elõtti jegyzõkönyv sorok
+    Inherits BaseObject
+    Private _APCSheetReviewHeader As APCSheetReviewHeader
+    Private _APCSheetByTerritorial As APCSheetByTerritorial
+    Private _EstimatedHato As Double 'Becsült termés ha /to
+    Private _Estimatedto As Double 'Becsült termés to
+    Private _EstimatedDateExecution As Date 'Várható betakarítás dátuma
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    Property APCSheetReviewHeader As APCSheetReviewHeader
+        Get
+            Return _APCSheetReviewHeader
+        End Get
+        Set(value As APCSheetReviewHeader)
+            SetPropertyValue("APCSheetReviewHeader", _APCSheetReviewHeader, value)
+        End Set
+    End Property
+    Property APCSheetByTerritorial As APCSheetByTerritorial
+        Get
+            Return _APCSheetByTerritorial
+        End Get
+        Set(value As APCSheetByTerritorial)
+            SetPropertyValue("APCSheetByTerritorial", _APCSheetByTerritorial, value)
+        End Set
+    End Property
+    Property EstimatedHato As Double
+        Get
+            Return _EstimatedHato
+        End Get
+        Set(value As Double)
+            SetPropertyValue("EstimatedHato", _EstimatedHato, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                Estimatedto = value * APCSheetByTerritorial.Area
+            End If
+        End Set
+    End Property
+    Property Estimatedto As Double
+        Get
+            Return _Estimatedto
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Estimatedto", _Estimatedto, value)
+        End Set
+    End Property
+    Property EstimatedDateExecution As Date
+        Get
+            Return _EstimatedDateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("EstimatedDateExecution", _EstimatedDateExecution, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReview_VC.Designer.vb

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

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReview_VC.resx

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

@@ -0,0 +1,38 @@
+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.Persistent.BaseImpl
+
+Public Class APCSheetReview_VC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+
+    Private Sub aAPCSheetReviewHeader_Print_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheetReviewHeader_Print.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _APCSheetReviewHeader As APCSheetReviewHeader = TryCast(View.SelectedObjects(0), APCSheetReviewHeader)
+        Try
+            If _APCSheetReviewHeader.ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!")
+            Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _APCSheetReviewHeader.ReportData.Oid), True)
+            If _APCSheetReviewHeader IsNot Nothing Then
+                If _APCSheetReviewHeader.ReportData IsNot Nothing Then
+                    Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, DevExpress.Data.Filtering.CriteriaOperator.Parse("APCSheetReviewHeader.Oid =?", _APCSheetReviewHeader.Oid), True)
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetVC.Designer.vb

@@ -0,0 +1,470 @@
+Partial Class APCSheetVC
+
+	<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.aAPCSheetHeaderSetAPCStatus = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCloneAPCSheet = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aPrintAPCSheet = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAPCSheet_GeneratePDFOriginal = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAPCSheetByProducts_New = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aAPCSheetByTerritorial_New = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aAPCSheetByProducts_Delete = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAPCSheetByTerritorial_Delete = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAPCSheetPresentation_New = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aAPCSheetByTerritorialNo_New = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aAPCSheetByTerritorialNo_Delete = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAPCSheetHeaderCreate_Contracts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAPCSheetByTerritorial_ChangeNo = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aAPCSheetByTerritorial_Change = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aAPCSheetByTerritorial_InvolvedOUT = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAPCSheetByTerritorial_InvolvedIN = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aAPCSheetHeader_ReCalculate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAPCSheetHeader_CreateReviewSheet = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aAPCSheetHeader_OpenContract = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAPCSheetHeader_CreateAPCSheetreviewHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAPCSheetHeader_OpenAPCSheetReviewHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAPCSheet_PSPH_Print = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAPCSheet_PSPH_GeneratePDFFile = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAPCSheetHeader_Clones = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aAPCSheetHeaderSetAPCStatus
+        '
+        Me.aAPCSheetHeaderSetAPCStatus.AcceptButtonCaption = Nothing
+        Me.aAPCSheetHeaderSetAPCStatus.CancelButtonCaption = Nothing
+        Me.aAPCSheetHeaderSetAPCStatus.Caption = "aAPCSheet Header Set APCStatus"
+        Me.aAPCSheetHeaderSetAPCStatus.ConfirmationMessage = Nothing
+        Me.aAPCSheetHeaderSetAPCStatus.Id = "aAPCSheetHeaderSetAPCStatus"
+        Me.aAPCSheetHeaderSetAPCStatus.ImageName = Nothing
+        Me.aAPCSheetHeaderSetAPCStatus.Shortcut = Nothing
+        Me.aAPCSheetHeaderSetAPCStatus.Tag = Nothing
+        Me.aAPCSheetHeaderSetAPCStatus.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetHeaderSetAPCStatus.TargetViewId = "APCSheetHeader_DetailView"
+        Me.aAPCSheetHeaderSetAPCStatus.ToolTip = Nothing
+        Me.aAPCSheetHeaderSetAPCStatus.TypeOfView = Nothing
+        '
+        'aCloneAPCSheet
+        '
+        Me.aCloneAPCSheet.Caption = "aClone APCSheet"
+        Me.aCloneAPCSheet.Category = "ObjectsCreation"
+        Me.aCloneAPCSheet.ConfirmationMessage = Nothing
+        Me.aCloneAPCSheet.Id = "aCloneAPCSheet"
+        Me.aCloneAPCSheet.ImageName = Nothing
+        Me.aCloneAPCSheet.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCloneAPCSheet.Shortcut = Nothing
+        Me.aCloneAPCSheet.Tag = Nothing
+        Me.aCloneAPCSheet.TargetObjectsCriteria = Nothing
+        Me.aCloneAPCSheet.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader)
+        Me.aCloneAPCSheet.TargetViewId = Nothing
+        Me.aCloneAPCSheet.ToolTip = Nothing
+        Me.aCloneAPCSheet.TypeOfView = Nothing
+        '
+        'aPrintAPCSheet
+        '
+        Me.aPrintAPCSheet.Caption = "aPrint APCSheet"
+        Me.aPrintAPCSheet.Category = "View"
+        Me.aPrintAPCSheet.ConfirmationMessage = Nothing
+        Me.aPrintAPCSheet.Id = "aPrintAPCSheet"
+        Me.aPrintAPCSheet.ImageName = Nothing
+        Me.aPrintAPCSheet.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aPrintAPCSheet.Shortcut = Nothing
+        Me.aPrintAPCSheet.Tag = Nothing
+        Me.aPrintAPCSheet.TargetObjectsCriteria = Nothing
+        Me.aPrintAPCSheet.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader)
+        Me.aPrintAPCSheet.TargetViewId = Nothing
+        Me.aPrintAPCSheet.ToolTip = Nothing
+        Me.aPrintAPCSheet.TypeOfView = Nothing
+        '
+        'aAPCSheet_GeneratePDFOriginal
+        '
+        Me.aAPCSheet_GeneratePDFOriginal.Caption = "aAPCSheet_GeneratePDFOriginal"
+        Me.aAPCSheet_GeneratePDFOriginal.Category = "View"
+        Me.aAPCSheet_GeneratePDFOriginal.ConfirmationMessage = Nothing
+        Me.aAPCSheet_GeneratePDFOriginal.Id = "aAPCSheet_GeneratePDFOriginal"
+        Me.aAPCSheet_GeneratePDFOriginal.ImageName = Nothing
+        Me.aAPCSheet_GeneratePDFOriginal.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aAPCSheet_GeneratePDFOriginal.Shortcut = Nothing
+        Me.aAPCSheet_GeneratePDFOriginal.Tag = Nothing
+        Me.aAPCSheet_GeneratePDFOriginal.TargetObjectsCriteria = Nothing
+        Me.aAPCSheet_GeneratePDFOriginal.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader)
+        Me.aAPCSheet_GeneratePDFOriginal.TargetViewId = Nothing
+        Me.aAPCSheet_GeneratePDFOriginal.ToolTip = Nothing
+        Me.aAPCSheet_GeneratePDFOriginal.TypeOfView = Nothing
+        '
+        'aAPCSheetByProducts_New
+        '
+        Me.aAPCSheetByProducts_New.AcceptButtonCaption = Nothing
+        Me.aAPCSheetByProducts_New.CancelButtonCaption = Nothing
+        Me.aAPCSheetByProducts_New.Caption = "aAPCSheetByProducts_New"
+        Me.aAPCSheetByProducts_New.Category = "ObjectsCreation"
+        Me.aAPCSheetByProducts_New.ConfirmationMessage = Nothing
+        Me.aAPCSheetByProducts_New.Id = "aAPCSheetByProducts_New"
+        Me.aAPCSheetByProducts_New.ImageName = Nothing
+        Me.aAPCSheetByProducts_New.Shortcut = Nothing
+        Me.aAPCSheetByProducts_New.Tag = Nothing
+        Me.aAPCSheetByProducts_New.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetByProducts_New.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByProducts)
+        Me.aAPCSheetByProducts_New.TargetViewId = "APCSheetHeader_APCSheetByProducts_ListView"
+        Me.aAPCSheetByProducts_New.ToolTip = Nothing
+        Me.aAPCSheetByProducts_New.TypeOfView = Nothing
+        '
+        'aAPCSheetByTerritorial_New
+        '
+        Me.aAPCSheetByTerritorial_New.AcceptButtonCaption = Nothing
+        Me.aAPCSheetByTerritorial_New.CancelButtonCaption = Nothing
+        Me.aAPCSheetByTerritorial_New.Caption = "aAPCSheetByTerritorial_New"
+        Me.aAPCSheetByTerritorial_New.Category = "ObjectsCreation"
+        Me.aAPCSheetByTerritorial_New.ConfirmationMessage = Nothing
+        Me.aAPCSheetByTerritorial_New.Id = "aAPCSheetByTerritorial_New"
+        Me.aAPCSheetByTerritorial_New.ImageName = Nothing
+        Me.aAPCSheetByTerritorial_New.Shortcut = Nothing
+        Me.aAPCSheetByTerritorial_New.Tag = Nothing
+        Me.aAPCSheetByTerritorial_New.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetByTerritorial_New.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial)
+        Me.aAPCSheetByTerritorial_New.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView"
+        Me.aAPCSheetByTerritorial_New.ToolTip = Nothing
+        Me.aAPCSheetByTerritorial_New.TypeOfView = Nothing
+        '
+        'aAPCSheetByProducts_Delete
+        '
+        Me.aAPCSheetByProducts_Delete.Caption = "aAPCSheetByProducts_Delete"
+        Me.aAPCSheetByProducts_Delete.Category = "Edit"
+        Me.aAPCSheetByProducts_Delete.ConfirmationMessage = Nothing
+        Me.aAPCSheetByProducts_Delete.Id = "aAPCSheetByProducts_Delete"
+        Me.aAPCSheetByProducts_Delete.ImageName = Nothing
+        Me.aAPCSheetByProducts_Delete.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aAPCSheetByProducts_Delete.Shortcut = Nothing
+        Me.aAPCSheetByProducts_Delete.Tag = Nothing
+        Me.aAPCSheetByProducts_Delete.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetByProducts_Delete.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByProducts)
+        Me.aAPCSheetByProducts_Delete.TargetViewId = "APCSheetHeader_APCSheetByProducts_ListView"
+        Me.aAPCSheetByProducts_Delete.ToolTip = Nothing
+        Me.aAPCSheetByProducts_Delete.TypeOfView = Nothing
+        '
+        'aAPCSheetByTerritorial_Delete
+        '
+        Me.aAPCSheetByTerritorial_Delete.Caption = "aAPCSheetByTerritorial_Delete"
+        Me.aAPCSheetByTerritorial_Delete.Category = "Edit"
+        Me.aAPCSheetByTerritorial_Delete.ConfirmationMessage = Nothing
+        Me.aAPCSheetByTerritorial_Delete.Id = "aAPCSheetByTerritorial_Delete"
+        Me.aAPCSheetByTerritorial_Delete.ImageName = Nothing
+        Me.aAPCSheetByTerritorial_Delete.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aAPCSheetByTerritorial_Delete.Shortcut = Nothing
+        Me.aAPCSheetByTerritorial_Delete.Tag = Nothing
+        Me.aAPCSheetByTerritorial_Delete.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetByTerritorial_Delete.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial)
+        Me.aAPCSheetByTerritorial_Delete.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView"
+        Me.aAPCSheetByTerritorial_Delete.ToolTip = Nothing
+        Me.aAPCSheetByTerritorial_Delete.TypeOfView = Nothing
+        '
+        'aAPCSheetPresentation_New
+        '
+        Me.aAPCSheetPresentation_New.AcceptButtonCaption = Nothing
+        Me.aAPCSheetPresentation_New.CancelButtonCaption = Nothing
+        Me.aAPCSheetPresentation_New.Caption = "aAPCSheetPresentation_New"
+        Me.aAPCSheetPresentation_New.Category = "ObjectsCreation"
+        Me.aAPCSheetPresentation_New.ConfirmationMessage = Nothing
+        Me.aAPCSheetPresentation_New.Id = "aAPCSheetPresentation_New"
+        Me.aAPCSheetPresentation_New.ImageName = Nothing
+        Me.aAPCSheetPresentation_New.Shortcut = Nothing
+        Me.aAPCSheetPresentation_New.Tag = Nothing
+        Me.aAPCSheetPresentation_New.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetPresentation_New.TargetObjectType = GetType(SISBusiness.[Module].APCSheetPresentation)
+        Me.aAPCSheetPresentation_New.TargetViewId = "APCSheetHeader_APCSheetPresentation_ListView"
+        Me.aAPCSheetPresentation_New.ToolTip = Nothing
+        Me.aAPCSheetPresentation_New.TypeOfView = Nothing
+        '
+        'aAPCSheetByTerritorialNo_New
+        '
+        Me.aAPCSheetByTerritorialNo_New.AcceptButtonCaption = Nothing
+        Me.aAPCSheetByTerritorialNo_New.CancelButtonCaption = Nothing
+        Me.aAPCSheetByTerritorialNo_New.Caption = "aAPCSheetByTerritorialNo_New"
+        Me.aAPCSheetByTerritorialNo_New.Category = "ObjectsCreation"
+        Me.aAPCSheetByTerritorialNo_New.ConfirmationMessage = Nothing
+        Me.aAPCSheetByTerritorialNo_New.Id = "aAPCSheetByTerritorialNo_New"
+        Me.aAPCSheetByTerritorialNo_New.ImageName = Nothing
+        Me.aAPCSheetByTerritorialNo_New.Shortcut = Nothing
+        Me.aAPCSheetByTerritorialNo_New.Tag = Nothing
+        Me.aAPCSheetByTerritorialNo_New.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetByTerritorialNo_New.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial)
+        Me.aAPCSheetByTerritorialNo_New.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView_No"
+        Me.aAPCSheetByTerritorialNo_New.ToolTip = Nothing
+        Me.aAPCSheetByTerritorialNo_New.TypeOfView = Nothing
+        '
+        'aAPCSheetByTerritorialNo_Delete
+        '
+        Me.aAPCSheetByTerritorialNo_Delete.Caption = "aAPCSheetByTerritorialNo_Delete"
+        Me.aAPCSheetByTerritorialNo_Delete.Category = "Edit"
+        Me.aAPCSheetByTerritorialNo_Delete.ConfirmationMessage = Nothing
+        Me.aAPCSheetByTerritorialNo_Delete.Id = "aAPCSheetByTerritorialNo_Delete"
+        Me.aAPCSheetByTerritorialNo_Delete.ImageName = Nothing
+        Me.aAPCSheetByTerritorialNo_Delete.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aAPCSheetByTerritorialNo_Delete.Shortcut = Nothing
+        Me.aAPCSheetByTerritorialNo_Delete.Tag = Nothing
+        Me.aAPCSheetByTerritorialNo_Delete.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetByTerritorialNo_Delete.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial)
+        Me.aAPCSheetByTerritorialNo_Delete.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView_No"
+        Me.aAPCSheetByTerritorialNo_Delete.ToolTip = Nothing
+        Me.aAPCSheetByTerritorialNo_Delete.TypeOfView = Nothing
+        '
+        'aAPCSheetHeaderCreate_Contracts
+        '
+        Me.aAPCSheetHeaderCreate_Contracts.Caption = "aAPCSheetHeaderCreate_Contracts"
+        Me.aAPCSheetHeaderCreate_Contracts.ConfirmationMessage = Nothing
+        Me.aAPCSheetHeaderCreate_Contracts.Id = "aAPCSheetHeaderCreate_Contracts"
+        Me.aAPCSheetHeaderCreate_Contracts.ImageName = Nothing
+        Me.aAPCSheetHeaderCreate_Contracts.Shortcut = Nothing
+        Me.aAPCSheetHeaderCreate_Contracts.Tag = Nothing
+        Me.aAPCSheetHeaderCreate_Contracts.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetHeaderCreate_Contracts.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader)
+        Me.aAPCSheetHeaderCreate_Contracts.TargetViewId = "APCSheetHeader_DetailView"
+        Me.aAPCSheetHeaderCreate_Contracts.ToolTip = Nothing
+        Me.aAPCSheetHeaderCreate_Contracts.TypeOfView = Nothing
+        '
+        'aAPCSheetByTerritorial_ChangeNo
+        '
+        Me.aAPCSheetByTerritorial_ChangeNo.AcceptButtonCaption = Nothing
+        Me.aAPCSheetByTerritorial_ChangeNo.CancelButtonCaption = Nothing
+        Me.aAPCSheetByTerritorial_ChangeNo.Caption = "aAPCSheetByTerritorial_ChangeNo"
+        Me.aAPCSheetByTerritorial_ChangeNo.Category = "Edit"
+        Me.aAPCSheetByTerritorial_ChangeNo.ConfirmationMessage = Nothing
+        Me.aAPCSheetByTerritorial_ChangeNo.Id = "aAPCSheetByTerritorial_ChangeNo"
+        Me.aAPCSheetByTerritorial_ChangeNo.ImageName = Nothing
+        Me.aAPCSheetByTerritorial_ChangeNo.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aAPCSheetByTerritorial_ChangeNo.Shortcut = Nothing
+        Me.aAPCSheetByTerritorial_ChangeNo.Tag = Nothing
+        Me.aAPCSheetByTerritorial_ChangeNo.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetByTerritorial_ChangeNo.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial)
+        Me.aAPCSheetByTerritorial_ChangeNo.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView_No"
+        Me.aAPCSheetByTerritorial_ChangeNo.ToolTip = Nothing
+        Me.aAPCSheetByTerritorial_ChangeNo.TypeOfView = Nothing
+        '
+        'aAPCSheetByTerritorial_Change
+        '
+        Me.aAPCSheetByTerritorial_Change.AcceptButtonCaption = Nothing
+        Me.aAPCSheetByTerritorial_Change.CancelButtonCaption = Nothing
+        Me.aAPCSheetByTerritorial_Change.Caption = "aAPCSheetByTerritorial_Change"
+        Me.aAPCSheetByTerritorial_Change.Category = "Edit"
+        Me.aAPCSheetByTerritorial_Change.ConfirmationMessage = Nothing
+        Me.aAPCSheetByTerritorial_Change.Id = "aAPCSheetByTerritorial_Change"
+        Me.aAPCSheetByTerritorial_Change.ImageName = Nothing
+        Me.aAPCSheetByTerritorial_Change.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aAPCSheetByTerritorial_Change.Shortcut = Nothing
+        Me.aAPCSheetByTerritorial_Change.Tag = Nothing
+        Me.aAPCSheetByTerritorial_Change.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetByTerritorial_Change.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial)
+        Me.aAPCSheetByTerritorial_Change.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView"
+        Me.aAPCSheetByTerritorial_Change.ToolTip = Nothing
+        Me.aAPCSheetByTerritorial_Change.TypeOfView = Nothing
+        '
+        'aAPCSheetByTerritorial_InvolvedOUT
+        '
+        Me.aAPCSheetByTerritorial_InvolvedOUT.Caption = "aAPCSheetByTerritorial_InvolvedOUT"
+        Me.aAPCSheetByTerritorial_InvolvedOUT.Category = "Edit"
+        Me.aAPCSheetByTerritorial_InvolvedOUT.ConfirmationMessage = Nothing
+        Me.aAPCSheetByTerritorial_InvolvedOUT.Id = "aAPCSheetByTerritorial_InvolvedOUT"
+        Me.aAPCSheetByTerritorial_InvolvedOUT.ImageName = Nothing
+        Me.aAPCSheetByTerritorial_InvolvedOUT.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aAPCSheetByTerritorial_InvolvedOUT.Shortcut = Nothing
+        Me.aAPCSheetByTerritorial_InvolvedOUT.Tag = Nothing
+        Me.aAPCSheetByTerritorial_InvolvedOUT.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetByTerritorial_InvolvedOUT.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial)
+        Me.aAPCSheetByTerritorial_InvolvedOUT.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView"
+        Me.aAPCSheetByTerritorial_InvolvedOUT.ToolTip = Nothing
+        Me.aAPCSheetByTerritorial_InvolvedOUT.TypeOfView = Nothing
+        '
+        'aAPCSheetByTerritorial_InvolvedIN
+        '
+        Me.aAPCSheetByTerritorial_InvolvedIN.AcceptButtonCaption = Nothing
+        Me.aAPCSheetByTerritorial_InvolvedIN.CancelButtonCaption = Nothing
+        Me.aAPCSheetByTerritorial_InvolvedIN.Caption = "aAPCSheetByTerritorial_InvolvedIN"
+        Me.aAPCSheetByTerritorial_InvolvedIN.Category = "Edit"
+        Me.aAPCSheetByTerritorial_InvolvedIN.ConfirmationMessage = Nothing
+        Me.aAPCSheetByTerritorial_InvolvedIN.Id = "aAPCSheetByTerritorial_InvolvedIN"
+        Me.aAPCSheetByTerritorial_InvolvedIN.ImageName = Nothing
+        Me.aAPCSheetByTerritorial_InvolvedIN.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aAPCSheetByTerritorial_InvolvedIN.Shortcut = Nothing
+        Me.aAPCSheetByTerritorial_InvolvedIN.Tag = Nothing
+        Me.aAPCSheetByTerritorial_InvolvedIN.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetByTerritorial_InvolvedIN.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial)
+        Me.aAPCSheetByTerritorial_InvolvedIN.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView_No"
+        Me.aAPCSheetByTerritorial_InvolvedIN.ToolTip = Nothing
+        Me.aAPCSheetByTerritorial_InvolvedIN.TypeOfView = Nothing
+        '
+        'aAPCSheetHeader_ReCalculate
+        '
+        Me.aAPCSheetHeader_ReCalculate.Caption = "aAPCSheetHeader_ReCalculate"
+        Me.aAPCSheetHeader_ReCalculate.Category = "Edit"
+        Me.aAPCSheetHeader_ReCalculate.ConfirmationMessage = Nothing
+        Me.aAPCSheetHeader_ReCalculate.Id = "aAPCSheetHeader_ReCalculate"
+        Me.aAPCSheetHeader_ReCalculate.ImageName = Nothing
+        Me.aAPCSheetHeader_ReCalculate.Shortcut = Nothing
+        Me.aAPCSheetHeader_ReCalculate.Tag = Nothing
+        Me.aAPCSheetHeader_ReCalculate.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetHeader_ReCalculate.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader)
+        Me.aAPCSheetHeader_ReCalculate.TargetViewId = "APCSheetHeader_DetailView"
+        Me.aAPCSheetHeader_ReCalculate.ToolTip = Nothing
+        Me.aAPCSheetHeader_ReCalculate.TypeOfView = Nothing
+        '
+        'aAPCSheetHeader_CreateReviewSheet
+        '
+        Me.aAPCSheetHeader_CreateReviewSheet.AcceptButtonCaption = Nothing
+        Me.aAPCSheetHeader_CreateReviewSheet.CancelButtonCaption = Nothing
+        Me.aAPCSheetHeader_CreateReviewSheet.Caption = "aAPCSheetHeader_CreateReviewSheet"
+        Me.aAPCSheetHeader_CreateReviewSheet.ConfirmationMessage = Nothing
+        Me.aAPCSheetHeader_CreateReviewSheet.Id = "aAPCSheetHeader_CreateReviewSheet"
+        Me.aAPCSheetHeader_CreateReviewSheet.ImageName = Nothing
+        Me.aAPCSheetHeader_CreateReviewSheet.Shortcut = Nothing
+        Me.aAPCSheetHeader_CreateReviewSheet.Tag = Nothing
+        Me.aAPCSheetHeader_CreateReviewSheet.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetHeader_CreateReviewSheet.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader)
+        Me.aAPCSheetHeader_CreateReviewSheet.TargetViewId = Nothing
+        Me.aAPCSheetHeader_CreateReviewSheet.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aAPCSheetHeader_CreateReviewSheet.ToolTip = Nothing
+        Me.aAPCSheetHeader_CreateReviewSheet.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aAPCSheetHeader_OpenContract
+        '
+        Me.aAPCSheetHeader_OpenContract.Caption = "aAPCSheetHeader_OpenContract"
+        Me.aAPCSheetHeader_OpenContract.ConfirmationMessage = Nothing
+        Me.aAPCSheetHeader_OpenContract.Id = "aAPCSheetHeader_OpenContract"
+        Me.aAPCSheetHeader_OpenContract.ImageName = Nothing
+        Me.aAPCSheetHeader_OpenContract.Shortcut = Nothing
+        Me.aAPCSheetHeader_OpenContract.Tag = Nothing
+        Me.aAPCSheetHeader_OpenContract.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetHeader_OpenContract.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader)
+        Me.aAPCSheetHeader_OpenContract.TargetViewId = Nothing
+        Me.aAPCSheetHeader_OpenContract.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aAPCSheetHeader_OpenContract.ToolTip = Nothing
+        Me.aAPCSheetHeader_OpenContract.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aAPCSheetHeader_CreateAPCSheetreviewHeader
+        '
+        Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.Caption = "aAPCSheetHeader_CreateAPCSheetreviewHeader"
+        Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.Category = "ObjectsCreation"
+        Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.ConfirmationMessage = Nothing
+        Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.Id = "aAPCSheetHeader_CreateAPCSheetreviewHeader"
+        Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.ImageName = Nothing
+        Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.Shortcut = Nothing
+        Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.Tag = Nothing
+        Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByProducts)
+        Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.TargetViewId = "APCSheetHeader_APCSheetByProducts_ListView"
+        Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.ToolTip = Nothing
+        Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.TypeOfView = Nothing
+        '
+        'aAPCSheetHeader_OpenAPCSheetReviewHeader
+        '
+        Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.Caption = "aAPCSheetHeader_OpenAPCSheetReviewHeader"
+        Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.ConfirmationMessage = Nothing
+        Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.Id = "aAPCSheetHeader_OpenAPCSheetReviewHeader"
+        Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.ImageName = Nothing
+        Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.Shortcut = Nothing
+        Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.Tag = Nothing
+        Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.TargetObjectType = GetType(SISBusiness.[Module].APCSheetReviewHeader)
+        Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.TargetViewId = "APCSheetHeader_APCSheetReviewHeader_ListView"
+        Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.ToolTip = Nothing
+        Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.TypeOfView = Nothing
+        '
+        'aAPCSheet_PSPH_Print
+        '
+        Me.aAPCSheet_PSPH_Print.Caption = "aAPCSheet_PSPH_Print"
+        Me.aAPCSheet_PSPH_Print.ConfirmationMessage = Nothing
+        Me.aAPCSheet_PSPH_Print.Id = "aAPCSheet_PSPH_Print"
+        Me.aAPCSheet_PSPH_Print.ImageName = Nothing
+        Me.aAPCSheet_PSPH_Print.Shortcut = Nothing
+        Me.aAPCSheet_PSPH_Print.Tag = Nothing
+        Me.aAPCSheet_PSPH_Print.TargetObjectsCriteria = Nothing
+        Me.aAPCSheet_PSPH_Print.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByProductsSalesPolicyH)
+        Me.aAPCSheet_PSPH_Print.TargetViewId = Nothing
+        Me.aAPCSheet_PSPH_Print.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aAPCSheet_PSPH_Print.ToolTip = Nothing
+        Me.aAPCSheet_PSPH_Print.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aAPCSheet_PSPH_GeneratePDFFile
+        '
+        Me.aAPCSheet_PSPH_GeneratePDFFile.Caption = "aAPCSheet_PSPH_GeneratePDFFile"
+        Me.aAPCSheet_PSPH_GeneratePDFFile.ConfirmationMessage = Nothing
+        Me.aAPCSheet_PSPH_GeneratePDFFile.Id = "aAPCSheet_PSPH_GeneratePDFFile"
+        Me.aAPCSheet_PSPH_GeneratePDFFile.ImageName = Nothing
+        Me.aAPCSheet_PSPH_GeneratePDFFile.Shortcut = Nothing
+        Me.aAPCSheet_PSPH_GeneratePDFFile.Tag = Nothing
+        Me.aAPCSheet_PSPH_GeneratePDFFile.TargetObjectsCriteria = Nothing
+        Me.aAPCSheet_PSPH_GeneratePDFFile.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByProductsSalesPolicyH)
+        Me.aAPCSheet_PSPH_GeneratePDFFile.TargetViewId = Nothing
+        Me.aAPCSheet_PSPH_GeneratePDFFile.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aAPCSheet_PSPH_GeneratePDFFile.ToolTip = Nothing
+        Me.aAPCSheet_PSPH_GeneratePDFFile.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aAPCSheetHeader_Clones
+        '
+        Me.aAPCSheetHeader_Clones.AcceptButtonCaption = Nothing
+        Me.aAPCSheetHeader_Clones.CancelButtonCaption = Nothing
+        Me.aAPCSheetHeader_Clones.Caption = "aAPCSheetHeader_Clones"
+        Me.aAPCSheetHeader_Clones.Category = "ObjectsCreation"
+        Me.aAPCSheetHeader_Clones.ConfirmationMessage = Nothing
+        Me.aAPCSheetHeader_Clones.Id = "aAPCSheetHeader_Clones"
+        Me.aAPCSheetHeader_Clones.ImageName = Nothing
+        Me.aAPCSheetHeader_Clones.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aAPCSheetHeader_Clones.Shortcut = Nothing
+        Me.aAPCSheetHeader_Clones.Tag = Nothing
+        Me.aAPCSheetHeader_Clones.TargetObjectsCriteria = Nothing
+        Me.aAPCSheetHeader_Clones.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader)
+        Me.aAPCSheetHeader_Clones.TargetViewId = Nothing
+        Me.aAPCSheetHeader_Clones.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aAPCSheetHeader_Clones.ToolTip = Nothing
+        Me.aAPCSheetHeader_Clones.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+
+    End Sub
+    Friend WithEvents aCloneAPCSheet As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aPrintAPCSheet As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAPCSheet_GeneratePDFOriginal As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAPCSheetByProducts_New As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aAPCSheetHeaderSetAPCStatus As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aAPCSheetByTerritorial_New As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aAPCSheetByProducts_Delete As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAPCSheetByTerritorial_Delete As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAPCSheetPresentation_New As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aAPCSheetByTerritorialNo_New As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aAPCSheetByTerritorialNo_Delete As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAPCSheetHeaderCreate_Contracts As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAPCSheetByTerritorial_ChangeNo As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aAPCSheetByTerritorial_Change As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aAPCSheetByTerritorial_InvolvedOUT As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAPCSheetByTerritorial_InvolvedIN As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aAPCSheetHeader_ReCalculate As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAPCSheetHeader_CreateReviewSheet As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aAPCSheetHeader_OpenContract As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAPCSheetHeader_CreateAPCSheetreviewHeader As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAPCSheetHeader_OpenAPCSheetReviewHeader As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAPCSheet_PSPH_Print As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAPCSheet_PSPH_GeneratePDFFile As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAPCSheetHeader_Clones As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetVC.resx

@@ -0,0 +1,195 @@
+<?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="aAPCSheetHeaderSetAPCStatus.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aCloneAPCSheet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aPrintAPCSheet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aAPCSheet_GeneratePDFOriginal.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aAPCSheetByProducts_New.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 290</value>
+  </metadata>
+  <metadata name="aAPCSheetByTerritorial_New.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 329</value>
+  </metadata>
+  <metadata name="aAPCSheetByProducts_Delete.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 446</value>
+  </metadata>
+  <metadata name="aAPCSheetByTerritorial_Delete.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 485</value>
+  </metadata>
+  <metadata name="aAPCSheetPresentation_New.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 524</value>
+  </metadata>
+  <metadata name="aAPCSheetByTerritorialNo_New.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 641</value>
+  </metadata>
+  <metadata name="aAPCSheetByTerritorialNo_Delete.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 680</value>
+  </metadata>
+  <metadata name="aAPCSheetHeaderCreate_Contracts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 719</value>
+  </metadata>
+  <metadata name="aAPCSheetByTerritorial_ChangeNo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 758</value>
+  </metadata>
+  <metadata name="aAPCSheetByTerritorial_Change.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 836</value>
+  </metadata>
+  <metadata name="aAPCSheetByTerritorial_InvolvedOUT.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 875</value>
+  </metadata>
+  <metadata name="aAPCSheetByTerritorial_InvolvedIN.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 914</value>
+  </metadata>
+  <metadata name="aAPCSheetHeader_ReCalculate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 953</value>
+  </metadata>
+  <metadata name="aAPCSheetHeader_CreateReviewSheet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 797</value>
+  </metadata>
+  <metadata name="aAPCSheetHeader_OpenContract.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 602</value>
+  </metadata>
+  <metadata name="aAPCSheetHeader_CreateAPCSheetreviewHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 368</value>
+  </metadata>
+  <metadata name="aAPCSheetHeader_OpenAPCSheetReviewHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aAPCSheet_PSPH_Print.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 407</value>
+  </metadata>
+  <metadata name="aAPCSheet_PSPH_GeneratePDFFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 563</value>
+  </metadata>
+  <metadata name="aAPCSheetHeader_Clones.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>361, 58</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/Agricultural/Agricultural.cd

@@ -0,0 +1,136 @@
+<?xml version="1.0" encoding="utf-8"?>
+<ClassDiagram MajorVersion="1" MinorVersion="1">
+  <Class Name="SISBusiness.Module.APCSheetHeader">
+    <Position X="0.5" Y="0.5" Width="3" />
+    <Members>
+      <Field Name="_Activity" Hidden="true" />
+      <Field Name="_ActivityStartDate" Hidden="true" />
+      <Field Name="_APCParameters" Hidden="true" />
+      <Field Name="_APCStatus" Hidden="true" />
+      <Field Name="_BankPreQualificationState" Hidden="true" />
+      <Field Name="_CleanerDryerMachineCapacity" Hidden="true" />
+      <Field Name="_CleanerDryerMachinetype" Hidden="true" />
+      <Field Name="_Contacts" Hidden="true" />
+      <Field Name="_ContactsWithFullRight" Hidden="true" />
+      <Field Name="_CropProtectionSpecialist" Hidden="true" />
+      <Field Name="_Customers" Hidden="true" />
+      <Field Name="_CustomersFrom" Hidden="true" />
+      <Field Name="_DeferredPaymentDay" Hidden="true" />
+      <Field Name="_DeferredPaymentHUF" Hidden="true" />
+      <Field Name="_Description" Hidden="true" />
+      <Field Name="_DocumentNumber" Hidden="true" />
+      <Field Name="_EconomyArea" Hidden="true" />
+      <Field Name="_EconomyAreaOwner" Hidden="true" />
+      <Field Name="_EconomyAreaRent" Hidden="true" />
+      <Field Name="_EconomyMajorCropsGrown" Hidden="true" />
+      <Field Name="_HRPerson" Hidden="true" />
+      <Field Name="_IsNewContact" Hidden="true" />
+      <Field Name="_IsNewContactNoReason" Hidden="true" />
+      <Field Name="_IsNewContactNoWhy" Hidden="true" />
+      <Field Name="_IsPrivateCredit" Hidden="true" />
+      <Field Name="_IsPrivateCreditAmountHUF" Hidden="true" />
+      <Field Name="_MachineryFighting" Hidden="true" />
+      <Field Name="_MachineryHarvesting" Hidden="true" />
+      <Field Name="_MachinerySeedDrill" Hidden="true" />
+      <Field Name="_MachinerySpecial" Hidden="true" />
+      <Field Name="_MachineryTillage" Hidden="true" />
+      <Field Name="_MachineryTractors" Hidden="true" />
+      <Field Name="_MainCustomers" Hidden="true" />
+      <Field Name="_ManagementDeferredPaymentDay" Hidden="true" />
+      <Field Name="_ManagementDeferredPaymentHUF" Hidden="true" />
+      <Field Name="_ManagementQualificationState" Hidden="true" />
+      <Field Name="_ManagementTerritorialArea" Hidden="true" />
+      <Field Name="_ObjectCreated" Hidden="true" />
+      <Field Name="_OtherCompanyInfo" Hidden="true" />
+      <Field Name="_PaymentDiscipline" Hidden="true" />
+      <Field Name="_PDFOriginal" Hidden="true" />
+      <Field Name="_PDFSigned" Hidden="true" />
+      <Field Name="_ShipmentCapacityAmount" Hidden="true" />
+      <Field Name="_ShipmentCapacityMachine" Hidden="true" />
+      <Field Name="_ShortName" Hidden="true" />
+      <Field Name="_StorageCapacitybyFlat" Hidden="true" />
+      <Field Name="_StorageCapacitybySilo" Hidden="true" />
+      <Field Name="_TerritorialArea" Hidden="true" />
+      <Field Name="_UserCreated" Hidden="true" />
+      <Method Name="AfterConstruction" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+      <Method Name="OnSaving" Hidden="true" />
+    </Members>
+    <Compartments>
+      <Compartment Name="Fields" Collapsed="true" />
+      <Compartment Name="Methods" Collapsed="true" />
+    </Compartments>
+    <TypeIdentifier>
+      <HashCode>NB9AWIIIBGQuCsJCRqKERMkwBdQQKfJ2CgC4Bm3LwBI=</HashCode>
+      <FileName>BusinessObjects\Business\Agricultural\APCSheetHeader.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Class Name="SISBusiness.Module.APCSheetByProducts">
+    <Position X="3.75" Y="0.5" Width="2.5" />
+    <Members>
+      <Field Name="_APCSheetHeader" Hidden="true" />
+      <Field Name="_CollateralAmountHUF" Hidden="true" />
+      <Field Name="_CollateralhaHUF" Hidden="true" />
+      <Field Name="_ColleteralHatoHUF" Hidden="true" />
+      <Field Name="_ContractQuantity" Hidden="true" />
+      <Field Name="_FundingAmountAvailableHUF" Hidden="true" />
+      <Field Name="_FundingAmountHUF" Hidden="true" />
+      <Field Name="_FundingAmountUsedHUF" Hidden="true" />
+      <Field Name="_FundingDate" Hidden="true" />
+      <Field Name="_FundingHaHUF" Hidden="true" />
+      <Field Name="_FundingHatoHUF" Hidden="true" />
+      <Field Name="_InsuranceState" Hidden="true" />
+      <Field Name="_MaxContractQuantity" Hidden="true" />
+      <Field Name="_Products" Hidden="true" />
+      <Field Name="_RowIndex" Hidden="true" />
+      <Method Name="AfterConstruction" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+    </Members>
+    <Compartments>
+      <Compartment Name="Fields" Collapsed="true" />
+      <Compartment Name="Methods" Collapsed="true" />
+    </Compartments>
+    <TypeIdentifier>
+      <HashCode>CACQECAgEQAAAIQAgABACAIAAgAIBCQgkAgAoYAQAAY=</HashCode>
+      <FileName>BusinessObjects\Business\Agricultural\APCSheetByProducts.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Class Name="SISBusiness.Module.APCSheetByTerritorial">
+    <Position X="3.75" Y="4.75" Width="2.5" />
+    <Members>
+      <Field Name="_APCSheetHeader" Hidden="true" />
+      <Field Name="_Area" Hidden="true" />
+      <Field Name="_BlockNumber" Hidden="true" />
+      <Field Name="_City" Hidden="true" />
+      <Field Name="_DueDateRent" Hidden="true" />
+      <Field Name="_Involved" Hidden="true" />
+      <Field Name="_LotNumber" Hidden="true" />
+      <Field Name="_OwnerState" Hidden="true" />
+      <Field Name="_Products" Hidden="true" />
+      <Field Name="_RowIndex" Hidden="true" />
+      <Method Name="AfterConstruction" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+    </Members>
+    <TypeIdentifier>
+      <HashCode>AABAAQAAAQAAEoAIAAAAgAAIAgAIBQAggAAAAyEQAAQ=</HashCode>
+      <FileName>BusinessObjects\Business\Agricultural\APCSheetByTerritorial.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Class Name="SISBusiness.Module.ProductsFunding">
+    <Position X="6.5" Y="0.5" Width="2.25" />
+    <Members>
+      <Field Name="_CollateralhatoHUF" Hidden="true" />
+      <Field Name="_FundingHatoHUF" Hidden="true" />
+      <Field Name="_MaxContractQuantity" Hidden="true" />
+      <Field Name="_ProductExpirationDate" Hidden="true" />
+      <Field Name="_Products" Hidden="true" />
+      <Method Name="AfterConstruction" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+    </Members>
+    <TypeIdentifier>
+      <HashCode>AAAQAAAAAAQAAIAAAAAAAAAAAgQAAAAgAABAAQAAAAY=</HashCode>
+      <FileName>BusinessObjects\Business\Agricultural\ProductsFunding.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Font Name="Segoe UI" Size="9" />
+</ClassDiagram>

SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetByTerritorial_Change_PopUp.vb

@@ -0,0 +1,106 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+Public Class APCSheetByTerritorial_Change_PopUp
+    Inherits BaseObject
+
+    Private _APCSheetHeader As APCSheetHeader
+    Private _City As String 'település
+    Private _LotNumber As String 'Helyrajzi szám
+    Private _BlockNumber As String 'Termõterülethez tartozó blokkszám
+    Private _OwnerState As eOwnerState 'Bérlõ vagy tulajdonos
+    Private _DueDateRent As Date 'Bérlet lejárta dátuma
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Browsable(False)> _
+    Property APCSheetHeader As APCSheetHeader
+        Get
+            Return _APCSheetHeader
+        End Get
+        Set(value As APCSheetHeader)
+            SetPropertyValue("APCSheetHeader", _APCSheetHeader, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property City As String
+        Get
+            Return _City
+        End Get
+        Set(value As String)
+            SetPropertyValue("City", _City, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property LotNumber As String
+        Get
+            Return _LotNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("LotNumber", _LotNumber, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property BlockNumber As String
+        Get
+            Return _BlockNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("BlockNumber", _BlockNumber, value)
+        End Set
+    End Property
+    Property OwnerState As eOwnerState
+        Get
+            Return _OwnerState
+        End Get
+        Set(value As eOwnerState)
+            SetPropertyValue("OwnerState", _OwnerState, value)
+        End Set
+    End Property
+    Property DueDateRent As Date
+        Get
+            Return _DueDateRent
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DueDateRent", _DueDateRent, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    ReadOnly Property TerritorialProducts As XPCollection(Of Products)
+        Get
+            Dim _ProductsCoollection As XPCollection(Of Products) = Nothing
+
+            If APCSheetHeader IsNot Nothing Then
+                If APCSheetHeader.APCSheetByProducts.Count > 0 Then
+                    Dim _Filter As String = "Oid in("
+
+                    For Each _APCSheetByProducts As APCSheetByProducts In APCSheetHeader.APCSheetByProducts
+                        _Filter += "'" + _APCSheetByProducts.Products.Oid.ToString + "',"
+                    Next
+                    _Filter = _Filter.Remove(_Filter.Length - 1, 1)
+                    _Filter += ")"
+                    _ProductsCoollection = New XPCollection(Of Products)(Session, CriteriaOperator.Parse(_Filter))
+                End If
+            End If
+
+            Return _ProductsCoollection
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetByTerritorial_InvolvedIN_PopUp.vb

@@ -0,0 +1,36 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+Public Class APCSheetByTerritorial_InvolvedIN_PopUp
+    Inherits BaseObject
+
+    Private _ProductsFunding As ProductsFunding
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property ProductsFunding As ProductsFunding
+        Get
+            Return _ProductsFunding
+        End Get
+        Set(value As ProductsFunding)
+            SetPropertyValue("ProductsFunding", _ProductsFunding, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetByTerritorial_New_PopUp.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.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<Appearance("APCSheetHeader - Hide Products if NeedProducts = False", AppearanceItemType.ViewItem, "NeedProducts = False", TargetItems:="Products", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class APCSheetByTerritorial_New_PopUp
+    Inherits BaseObject
+
+    Private _City As String 'település
+    Private _LotNumber As String 'Helyrajzi szám
+    Private _BlockNumber As String 'Termõterülethez tartozó blokkszám
+    Private _Area As Double 'termõterület mérete ha
+    Private _Products As ProductsFunding
+    Private _OwnerState As eOwnerState 'Bérlõ vagy tulajdonos
+    Private _DueDateRent As Date 'Bérlet lejárta dátuma
+    Private _NeedProducts As Boolean
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        NeedProducts = True
+    End Sub
+
+    <Size(255)> _
+    Property City As String
+        Get
+            Return _City
+        End Get
+        Set(value As String)
+            SetPropertyValue("City", _City, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property LotNumber As String
+        Get
+            Return _LotNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("LotNumber", _LotNumber, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property BlockNumber As String
+        Get
+            Return _BlockNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("BlockNumber", _BlockNumber, value)
+        End Set
+    End Property
+    Property Area As Double
+        Get
+            Return _Area
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Area", _Area, value)
+        End Set
+    End Property
+    <DataSourceProperty("TerritorialProducts")> _
+    Property Products As ProductsFunding
+        Get
+            Return _Products
+        End Get
+        Set(value As ProductsFunding)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property OwnerState As eOwnerState
+        Get
+            Return _OwnerState
+        End Get
+        Set(value As eOwnerState)
+            SetPropertyValue("OwnerState", _OwnerState, value)
+        End Set
+    End Property
+    Property DueDateRent As Date
+        Get
+            Return _DueDateRent
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DueDateRent", _DueDateRent, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property NeedProducts As Boolean
+        Get
+            Return _NeedProducts
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("NeedProducts", _NeedProducts, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    ReadOnly Property TerritorialProducts As XPCollection(Of ProductsFunding)
+        Get
+            Dim _ProductsCoollection As New XPCollection(Of ProductsFunding)(Session)
+            Return _ProductsCoollection
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetHeaderSetAPCParameters_PopUp.vb

@@ -0,0 +1,37 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+Public Class APCSheetHeaderSetAPCParameters_PopUp
+    Inherits BaseObject
+
+    Private _APCParameter As APCParameters
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    ' <RuleRequiredField("APCSheetHeaderSetAPCParameters_PopUp - APCParameter", DefaultContexts.Save)> _
+    Property APCParameter As APCParameters
+        Get
+            Return _APCParameter
+        End Get
+        Set(value As APCParameters)
+            SetPropertyValue("APCParameter", _APCParameter, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetHeaderSetAPCStatus_PopUp.vb

@@ -0,0 +1,36 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+Public Class APCSheetHeaderSetAPCStatus_PopUp
+    Inherits BaseObject
+
+    Private _APCStatus As eAPCStatus
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property APCStatus As eAPCStatus
+        Get
+            Return _APCStatus
+        End Get
+        Set(value As eAPCStatus)
+            SetPropertyValue("APCStatus", _APCStatus, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetPresentation_New_PopUp.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()> _
+<NonPersistent()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+Public Class APCSheetPresentation_New_PopUp
+    Inherits BaseObject
+
+    Private _Products As Products
+    Private _PresentationYear As Long 'Év
+    Private _Area As Double 'Tervezett megmûvelt terület
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property PresentationYear As Long
+        Get
+            Return _PresentationYear
+        End Get
+        Set(value As Long)
+            SetPropertyValue("PresentationYear", _PresentationYear, value)
+        End Set
+    End Property
+    Property Area As Double
+        Get
+            Return _Area
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Area", _Area, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Agricultural/ProductsFunding.vb

@@ -0,0 +1,102 @@
+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 eMonths
+    eJanuary = 1
+    eFebruary = 2
+    eMarch = 3
+    eApril = 4
+    eMay = 5
+    eJune = 6
+    eJuly = 7
+    eAugust = 8
+    eSeptember = 9
+    eOctober = 10
+    eNovember = 11
+    eDecember = 12
+End Enum
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<DefaultProperty("Products.ShortName")> _
+Public Class ProductsFunding
+    Inherits BaseObject
+
+    Private _Products As Products 'Termék
+    Private _MaxContractQuantity As Double 'Max szerzõdhetõ mennyiség hektáronként
+    Private _FundingHatoHUF As Double 'Egységre jutó finanszírozás /ha /tonna
+    Private _CollateralhatoHUF As Double 'Egységre jutó fedezeti érték /ha
+    Private _ProductExpirationDate As eMonths 'Lejárati dátum
+    Private _ContractTemplate As ContractTemplate
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <RuleRequiredField("ProductsFunding - Products", DefaultContexts.Save)> _
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    <RuleRequiredField("ProductsFunding - MaxContractQuantity", DefaultContexts.Save)> _
+    Property MaxContractQuantity As Double
+        Get
+            Return _MaxContractQuantity
+        End Get
+        Set(value As Double)
+            SetPropertyValue("MaxContractQuantity", _MaxContractQuantity, value)
+        End Set
+    End Property
+    <RuleRequiredField("ProductsFunding - FundingHatoHUF", DefaultContexts.Save)> _
+    Property FundingHatoHUF As Double
+        Get
+            Return _FundingHatoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FundingHatoHUF", _FundingHatoHUF, value)
+        End Set
+    End Property
+    <RuleRequiredField("ProductsFunding - CollateralhatoHUF", DefaultContexts.Save)> _
+    Property CollateralhatoHUF As Double
+        Get
+            Return _CollateralhatoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CollateralhatoHUF", _CollateralhatoHUF, value)
+        End Set
+    End Property
+    <RuleRequiredField("ProductsFunding - ProductExpirationDate", DefaultContexts.Save)> _
+    Property ProductExpirationDate As eMonths
+        Get
+            Return _ProductExpirationDate
+        End Get
+        Set(value As eMonths)
+            SetPropertyValue("ProductExpirationDate", _ProductExpirationDate, value)
+        End Set
+    End Property
+    <RuleRequiredField("ProductsFunding - ContractTemplate", DefaultContexts.Save)> _
+    Property ContractTemplate As ContractTemplate
+        Get
+            Return _ContractTemplate
+        End Get
+        Set(value As ContractTemplate)
+            SetPropertyValue("ContractTemplate", _ContractTemplate, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.Designer.vb

@@ -0,0 +1,144 @@
+Partial Class CertificateOfContractVC
+
+	<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.aFinalCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aPrintCertificateOfContract = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aStornoCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aMakeEditableCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewRegistry_COC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewAttachments_COC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aRecalculateCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aFinalCOC
+        '
+        Me.aFinalCOC.Caption = "Final COC"
+        Me.aFinalCOC.Category = "ObjectsCreation"
+        Me.aFinalCOC.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aFinalCOC.Id = "aFinalCOC"
+        Me.aFinalCOC.ImageName = "MenuBar_SaveAndClose"
+        Me.aFinalCOC.Shortcut = Nothing
+        Me.aFinalCOC.Tag = Nothing
+        Me.aFinalCOC.TargetObjectsCriteria = Nothing
+        Me.aFinalCOC.TargetViewId = Nothing
+        Me.aFinalCOC.ToolTip = Nothing
+        Me.aFinalCOC.TypeOfView = Nothing
+        '
+        'aPrintCertificateOfContract
+        '
+        Me.aPrintCertificateOfContract.Caption = "aPrint Certificate Of Contract"
+        Me.aPrintCertificateOfContract.Category = "View"
+        Me.aPrintCertificateOfContract.ConfirmationMessage = "Do you want to execute command?"
+        Me.aPrintCertificateOfContract.Id = "aPrintCertificateOfContract"
+        Me.aPrintCertificateOfContract.ImageName = Nothing
+        Me.aPrintCertificateOfContract.Shortcut = Nothing
+        Me.aPrintCertificateOfContract.Tag = Nothing
+        Me.aPrintCertificateOfContract.TargetObjectsCriteria = Nothing
+        Me.aPrintCertificateOfContract.TargetViewId = ""
+        Me.aPrintCertificateOfContract.ToolTip = Nothing
+        Me.aPrintCertificateOfContract.TypeOfView = Nothing
+        '
+        'aStornoCOC
+        '
+        Me.aStornoCOC.Caption = "Storno COC"
+        Me.aStornoCOC.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aStornoCOC.Id = "aStornoCOC"
+        Me.aStornoCOC.ImageName = Nothing
+        Me.aStornoCOC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aStornoCOC.Shortcut = Nothing
+        Me.aStornoCOC.Tag = Nothing
+        Me.aStornoCOC.TargetObjectsCriteria = Nothing
+        Me.aStornoCOC.TargetViewId = Nothing
+        Me.aStornoCOC.ToolTip = Nothing
+        Me.aStornoCOC.TypeOfView = Nothing
+        '
+        'aMakeEditableCOC
+        '
+        Me.aMakeEditableCOC.Caption = "Make editable COC"
+        Me.aMakeEditableCOC.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aMakeEditableCOC.Id = "aMakeEditableCOC"
+        Me.aMakeEditableCOC.ImageName = Nothing
+        Me.aMakeEditableCOC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aMakeEditableCOC.Shortcut = Nothing
+        Me.aMakeEditableCOC.Tag = Nothing
+        Me.aMakeEditableCOC.TargetObjectsCriteria = Nothing
+        Me.aMakeEditableCOC.TargetViewId = Nothing
+        Me.aMakeEditableCOC.ToolTip = Nothing
+        Me.aMakeEditableCOC.TypeOfView = Nothing
+        '
+        'aViewRegistry_COC
+        '
+        Me.aViewRegistry_COC.Caption = "View registry"
+        Me.aViewRegistry_COC.ConfirmationMessage = Nothing
+        Me.aViewRegistry_COC.Id = "aViewRegistry_COC"
+        Me.aViewRegistry_COC.ImageName = "document_pinned"
+        Me.aViewRegistry_COC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewRegistry_COC.Shortcut = Nothing
+        Me.aViewRegistry_COC.Tag = Nothing
+        Me.aViewRegistry_COC.TargetObjectsCriteria = Nothing
+        Me.aViewRegistry_COC.TargetViewId = ""
+        Me.aViewRegistry_COC.ToolTip = Nothing
+        Me.aViewRegistry_COC.TypeOfView = Nothing
+        '
+        'aViewAttachments_COC
+        '
+        Me.aViewAttachments_COC.Caption = "View attachments"
+        Me.aViewAttachments_COC.ConfirmationMessage = Nothing
+        Me.aViewAttachments_COC.Id = "aViewAttachments_COC"
+        Me.aViewAttachments_COC.ImageName = "printer_view"
+        Me.aViewAttachments_COC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewAttachments_COC.Shortcut = Nothing
+        Me.aViewAttachments_COC.Tag = Nothing
+        Me.aViewAttachments_COC.TargetObjectsCriteria = Nothing
+        Me.aViewAttachments_COC.TargetViewId = ""
+        Me.aViewAttachments_COC.ToolTip = Nothing
+        Me.aViewAttachments_COC.TypeOfView = Nothing
+        '
+        'aRecalculateCOC
+        '
+        Me.aRecalculateCOC.Caption = "Recalculate COC"
+        Me.aRecalculateCOC.Category = "ObjectsCreation"
+        Me.aRecalculateCOC.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aRecalculateCOC.Id = "aRecalculateCOC"
+        Me.aRecalculateCOC.Shortcut = Nothing
+        Me.aRecalculateCOC.Tag = Nothing
+        Me.aRecalculateCOC.TargetObjectsCriteria = Nothing
+        Me.aRecalculateCOC.TargetViewId = Nothing
+        Me.aRecalculateCOC.ToolTip = Nothing
+        Me.aRecalculateCOC.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aFinalCOC As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aPrintCertificateOfContract As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aStornoCOC As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aMakeEditableCOC As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewRegistry_COC As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewAttachments_COC As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aRecalculateCOC As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.resx

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

@@ -0,0 +1,227 @@
+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.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.CloneObject
+Imports DevExpress.Xpo
+Imports DevExpress.Persistent.BaseImpl
+
+Public Class CertificateOfContractVC
+    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()
+        Dim _CertificateofContractHeader As CertificateofContractHeader
+        MyBase.OnActivated()
+        '-- Általános letiltás --------------------------------------------------------------------------------------------------------------------------
+        Frame.GetController(Of CertificateOfContractVC).aFinalCOC.Active.SetItemValue("", False)
+        Frame.GetController(Of CertificateOfContractVC).aPrintCertificateOfContract.Active.SetItemValue("", False) ' -- Teljesítési igazolás nyomtatása
+        Frame.GetController(Of CertificateOfContractVC).aMakeEditableCOC.Active.SetItemValue("", False)
+        Frame.GetController(Of CertificateOfContractVC).aStornoCOC.Active.SetItemValue("", False)
+        Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", False)
+        Frame.GetController(Of CertificateOfContractVC).aViewRegistry_COC.Active.SetItemValue("", False)
+        Frame.GetController(Of CertificateOfContractVC).aRecalculateCOC.Active.SetItemValue("", False)
+        '------------------------------------------------------------------------------------------------------------------------------------------------
+
+        If View.Id = "CertificateofContractHeader_ListView_NotEditable" Then
+            Frame.GetController(Of CertificateOfContractVC).aPrintCertificateOfContract.Active.SetItemValue("", True)
+            Frame.GetController(Of CertificateOfContractVC).aMakeEditableCOC.Active.SetItemValue("", True)
+            Frame.GetController(Of CertificateOfContractVC).aStornoCOC.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CertificateOfContractVC).aRecalculateCOC.Active.SetItemValue("", True)
+        End If
+        If View.Id = "CertificateofContractHeader_DetailView" Then
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            _CertificateofContractHeader = View.SelectedObjects(0)
+            If _CertificateofContractHeader IsNot Nothing Then
+                If _CertificateofContractHeader.IsEditable = True Then
+                    Frame.GetController(Of CertificateOfContractVC).aFinalCOC.Active.SetItemValue("", True)
+                    Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
+                    Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
+                    Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
+                Else
+                    Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
+                End If
+            End If
+        End If
+        If View.Id = "CertificateofContractHeader_CertificateofContractRows_ListView" Then
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", True)
+            Frame.GetController(Of CertificateOfContractVC).aViewRegistry_COC.Active.SetItemValue("", True)
+
+            If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
+                _CertificateofContractHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CertificateofContractHeader)
+                If _CertificateofContractHeader IsNot Nothing Then
+                    If _CertificateofContractHeader.IsEditable = False Then
+                        Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+                        Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+                        Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+                    Else
+                        Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+                        Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+                        Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
+                    End If
+                End If
+            End If
+        End If
+        If View.Id = "Contracts_LookupListView" Then
+            'Frame.GetController(Of NewObjectViewController).NewObjectAction.Active.SetItemValue("", False)
+        End If
+        If View.Id = "CertificateofContractRows_DetailView" Then
+            Dim _CertificateofContractRows As CertificateofContractRows = TryCast(View.SelectedObjects(0), CertificateofContractRows)
+            If _CertificateofContractRows.CertificateofContractHeader.IsEditable = False Then
+                Frame.GetController(Of NewItemRowListViewController).Active.SetItemValue("", False)
+                Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+                Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+                Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+            Else
+                Frame.GetController(Of NewItemRowListViewController).Active.SetItemValue("", True)
+                Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+                Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+                Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
+            End If
+            Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", True)
+            Frame.GetController(Of CertificateOfContractVC).aViewRegistry_COC.Active.SetItemValue("", True)
+            If _CertificateofContractRows.CertificateofContractHeader IsNot Nothing Then
+                If _CertificateofContractRows.CertificateofContractHeader.IsEditable = False Then
+                    Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
+                Else
+                    Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
+                    Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
+                    Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
+                End If
+            End If
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+        Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+        Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
+    End Sub
+    Private Sub aPrintCertificateOfContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintCertificateOfContract.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _CertificateofContractHeader As CertificateofContractHeader
+
+        Dim _ReportData As ReportData
+        If e.SelectedObjects.Count > 0 Then
+            _CertificateofContractHeader = e.SelectedObjects.Item(0)
+            _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _CertificateofContractHeader.Contracts.ContractTemplate.COC_ReportData.Oid), True)
+            If _ReportData Is Nothing Or _CertificateofContractHeader Is Nothing Then
+            Else
+                Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("CertificateofContractHeader.DocumentNumber =?", _CertificateofContractHeader.DocumentNumber), True)
+            End If
+        End If
+    End Sub
+
+    Private Sub aFinalCOC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalCOC.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _CertificateofContractHeader As CertificateofContractHeader = TryCast(View.SelectedObjects(0), CertificateofContractHeader)
+
+        If _CertificateofContractHeader IsNot Nothing Then
+            _CertificateofContractHeader.IsEditable = False
+            _CertificateofContractHeader.IsStorno = False
+            _ocur.CommitChanges()
+            View.Close()
+        End If
+
+    End Sub
+
+    Private Sub aMakeEditableCOC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMakeEditableCOC.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _CertificateofContractHeader As CertificateofContractHeader = TryCast(View.SelectedObjects(0), CertificateofContractHeader)
+
+        If _CertificateofContractHeader IsNot Nothing Then
+            If _CertificateofContractHeader.IsEditable = False And _CertificateofContractHeader.IsStorno = False Then
+                _CertificateofContractHeader.IsEditable = True
+                _ocur.CommitChanges()
+                View.Refresh()
+            End If
+        End If
+    End Sub
+
+    Private Sub aStornoCOC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStornoCOC.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _CertificateofContractHeader As CertificateofContractHeader = TryCast(View.SelectedObjects(0), CertificateofContractHeader)
+        Dim _CertificateofContractRows As CertificateofContractRows
+
+
+        If _CertificateofContractHeader IsNot Nothing Then
+            If _CertificateofContractHeader.IsEditable = False And _CertificateofContractHeader.IsStorno = False Then
+                For Each _CertificateofContractRows In _CertificateofContractHeader.CertificateofContractRows
+                    _CertificateofContractRows.ContractRows = Nothing
+                Next
+                _CertificateofContractHeader.IsStorno = True
+                _CertificateofContractHeader.IsEditable = False
+            End If
+            _ocur.CommitChanges()
+            View.Refresh()
+        End If
+    End Sub
+
+    Private Sub aViewRegistry_COC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_COC.Execute
+        Dim _CertificateofContractRows As CertificateofContractRows = TryCast(View.SelectedObjects(0), CertificateofContractRows)
+
+        If _CertificateofContractRows IsNot Nothing Then
+            If _CertificateofContractRows.ContractRows IsNot Nothing Then
+                If _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling IsNot Nothing Then
+                    Dim _CustomersFrom As CustomersFrom = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
+                    Dim _Customers As Customers = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.Customers
+                    Dim _DocumentNumber As String = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.DocumentNumber
+                    ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber)
+                End If
+            End If
+        End If
+
+    End Sub
+
+    Private Sub aViewAttachments_COC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_COC.Execute
+        Dim _CertificateofContractRows As CertificateofContractRows = TryCast(View.SelectedObjects(0), CertificateofContractRows)
+        If _CertificateofContractRows IsNot Nothing Then
+            If _CertificateofContractRows.ContractRows IsNot Nothing Then
+                If _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling IsNot Nothing Then
+                    Dim _CustomersFrom As CustomersFrom = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
+                    Dim _Customers As Customers = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.Customers
+                    Dim _DocumentNumber As String = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.DocumentNumber
+                    ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "")
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub aRecalculateCOC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRecalculateCOC.Execute
+        Dim _CertificateofContractHeader As CertificateofContractHeader
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
+
+        RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+        For Each _CertificateofContractHeader In View.SelectedObjects
+            RaiseEvent DoWork()
+            _CertificateofContractHeader.Recalculate(_uow, _CertificateofContractHeader, False)
+        Next
+        _uow.CommitChanges()
+        RaiseEvent FinalWork
+        View.Refresh()
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateofContractHeader.vb

@@ -0,0 +1,185 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.Security
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+<DefaultClassOptions()> _
+<NavigationItem("Contracts")> _
+<Appearance("Hide ReportHeader in COC when IsEditable=False", AppearanceItemType:="ViewItem", TargetItems:="ReportHeader;ReportFooter", Criteria:="IsEditable=False", Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
+Public Class CertificateofContractHeader
+    Inherits BaseObject
+    Private _Contracts As Contracts
+    Private _DateExecution As Date
+    Private _DocumentNumber As String
+    Private _IsStorno As Boolean = False
+    Private _IsEditable As Boolean = True
+    Private _DateCreated As Date
+    Private _ReportHeader As String
+    Private _ReportFooter As String
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _AmountHUF As Double
+    Private _AmountDEV As Double
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If DocumentNumber Is Nothing Then
+            If _Contracts IsNot Nothing Then
+                If _Contracts.ContractTemplate.COC_NumberGenerator IsNot Nothing Then
+                    _DocumentNumber = _Contracts.ContractTemplate.COC_NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.COC_NumberGenerator)
+                End If
+            End If
+        End If
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    <RuleRequiredField("CertificateofContractHeader-Contracts", DefaultContexts.Save)> _
+    <DataSourceCriteria("ContractTemplate.PartnerType=1 AND ContractTemplate.IsTechnical=False AND (State = 1 OR State = 2)")> _
+    Property Contracts() As Contracts
+        Get
+            Return _Contracts
+
+        End Get
+        Set(ByVal value As Contracts)
+            SetPropertyValue("Contracts", _Contracts, value)
+        End Set
+    End Property
+    <RuleRequiredField("CertificateofContractHeader-DateExecution", DefaultContexts.Save)> _
+    Property DateExecution() As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    Property IsStorno As Boolean
+        Get
+            Return _IsStorno
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsStorno", _IsStorno, value)
+        End Set
+    End Property
+    Property IsEditable As Boolean
+        Get
+            Return _IsEditable
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsEditable", _IsEditable, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property ReportHeader As String
+        Get
+            Return _ReportHeader
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ReportHeader", _ReportHeader, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property ReportFooter As String
+        Get
+            Return _ReportFooter
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ReportFooter", _ReportFooter, 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 AmountHUF As Double
+        Get
+            Return _AmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUF", _AmountHUF, value)
+        End Set
+    End Property
+    Property AmountDEV As Double
+        Get
+            Return _AmountDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountDEV", _AmountDEV, value)
+        End Set
+    End Property
+
+    ReadOnly Property DisplayName As String
+        Get
+            If Contracts IsNot Nothing Then
+                Return DocumentNumber & ", " & Contracts.DisplayName
+            Else
+                Return "<>"
+            End If
+        End Get
+    End Property
+    <Association("CertificateofContractHeader-CertificateofContractRows", GetType(CertificateofContractRows)), VisibleInListView(False)> _
+    ReadOnly Property CertificateofContractRows As XPCollection(Of CertificateofContractRows)
+        Get
+            Return GetCollection(Of CertificateofContractRows)("CertificateofContractRows")
+        End Get
+    End Property
+    Sub Recalculate(_uow As UnitOfWork, _CertificateofContractHeader As CertificateofContractHeader, Optional _WidthCommit As Boolean = False)
+        Dim _CertificateofContractRows As CertificateofContractRows
+        Dim _AmountHUF As Double = 0
+        Dim _AmountDEV As Double = 0
+        On Error GoTo CheckError
+
+        _CertificateofContractHeader.AmountHUF = 0
+        _CertificateofContractHeader.AmountDEV = 0
+        For Each _CertificateofContractRows In _CertificateofContractHeader.CertificateofContractRows
+            _AmountHUF += _CertificateofContractRows.ContractRows.QTT * _CertificateofContractRows.ContractRows.NettoPriceHUF
+            _AmountDEV += _CertificateofContractRows.ContractRows.QTT * _CertificateofContractRows.ContractRows.NettoPriceDEV
+        Next
+        _CertificateofContractHeader.AmountHUF = _AmountHUF
+        _CertificateofContractHeader.AmountDEV = _AmountDEV
+
+        If _WidthCommit Then _uow.CommitChanges()
+        Exit Sub
+
+CheckError:
+
+        If Err.Number = 13 Then Resume Next
+        If Err.Number = 91 Then Resume Next
+    End Sub
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateofContractRows.vb

@@ -0,0 +1,52 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.Security
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<DefaultProperty("DisplayName")> _
+Public Class CertificateofContractRows
+    Inherits BaseObject
+    Private _CertificateofContractHeader As CertificateofContractHeader
+    Private _ContractRows As ContractRows
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <Association("CertificateofContractHeader-CertificateofContractRows", GetType(CertificateofContractHeader))> _
+    Property CertificateofContractHeader() As CertificateofContractHeader
+        Get
+            Return _CertificateofContractHeader
+        End Get
+        Set(ByVal value As CertificateofContractHeader)
+            SetPropertyValue("CertificateofContractHeader", _CertificateofContractHeader, value)
+        End Set
+    End Property
+    <DataSourceCriteria("Contracts='@This.CertificateofContractHeader.Contracts' and isnull(CertificateofContractRows)=True")> _
+    Property ContractRows As ContractRows
+        Get
+            Return _ContractRows
+        End Get
+        Set(ByVal value As ContractRows)
+            SetPropertyValue("ContractRows", _ContractRows, value)
+
+        End Set
+    End Property
+    ReadOnly Property DisplayName
+        Get
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Return _CertificateofContractHeader.Contracts.CustomersFrom.FullName & ", " & _CertificateofContractHeader.DateExecution
+            Else
+                Return ""
+            End If
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractGroup.vb

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

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractPayablesVC.Designer.vb

@@ -0,0 +1,32 @@
+Partial Class ContractPayablesVC
+
+	<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()
+		components = New System.ComponentModel.Container()
+	End Sub
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractPayablesVC.vb

@@ -0,0 +1,33 @@
+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
+Imports DevExpress.ExpressApp.CloneObject
+Public Class ContractPayablesVC
+	Inherits DevExpress.ExpressApp.ViewController
+
+	Public Sub New()
+		MyBase.New()
+
+        'Hello world !
+		'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()
+        
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractProductsCredit.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 ContractProductsCredit
+    Inherits BaseObject
+
+    Private _Contracts As Contracts
+    Private _ProductsCredit As ProductsCredit
+    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("Contracts-ContractProductsCredit", GetType(Contracts))> _
+    Property Contract As Contracts
+        Get
+            Return _Contracts
+        End Get
+        Set(value As Contracts)
+            SetPropertyValue("Contracts", _Contracts, value)
+        End Set
+    End Property
+    Property ProductsCredit As ProductsCredit
+        Get
+            Return _ProductsCredit
+        End Get
+        Set(value As ProductsCredit)
+            SetPropertyValue("ProductsCredit", _ProductsCredit, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.Designer.vb

@@ -0,0 +1,51 @@
+Partial Class ContractReceivablesVC
+
+    <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.aCreateInvoicefromContractRowsReceivables = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aCreateInvoicefromContractRowsReceivables
+        '
+        Me.aCreateInvoicefromContractRowsReceivables.AcceptButtonCaption = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.CancelButtonCaption = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.Caption = "Create Invoicefrom Contract Rows Receivables"
+        Me.aCreateInvoicefromContractRowsReceivables.ConfirmationMessage = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.Id = "aCreateInvoicefromContractRowsReceivables"
+        Me.aCreateInvoicefromContractRowsReceivables.ImageName = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aCreateInvoicefromContractRowsReceivables.Shortcut = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.Tag = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.TargetObjectsCriteria = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.TargetViewId = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.ToolTip = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aCreateInvoicefromContractRowsReceivables As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.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="aCreateInvoicefromContractRowsReceivables.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/Contract/ContractReceivablesVC.vb

@@ -0,0 +1,322 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.CloneObject
+Imports DevExpress.Persistent.BaseImpl
+
+Public Class ContractReceivablesVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Protected _selection As ArrayList
+    Protected _InvoiceRowsSelection As ArrayList = New ArrayList
+    Protected _InvoiceHeaderCreated As ArrayList = New ArrayList
+    Protected _noselect As Boolean = False
+    Public Sub New()
+        MyBase.New()
+
+        _selection = New ArrayList()
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        Frame.GetController(Of ContractReceivablesVC).aCreateInvoicefromContractRowsReceivables.Active.SetItemValue("", False)
+
+        If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Then
+            AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
+            Frame.GetController(Of ContractReceivablesVC).aCreateInvoicefromContractRowsReceivables.Active.SetItemValue("", True)
+        End If
+
+        If View.Id = "ContractRows_ListView_Invoice_IsProforma" Or View.Id = "ContractRows_ListView_Invoice_Finalized" Then
+            Frame.GetController(Of NewObjectViewController).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 = "ContractRows_ListView_Invoice_Not_MileStone" Then
+            RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
+            Frame.GetController(Of ContractReceivablesVC).aCreateInvoicefromContractRowsReceivables.Active.SetItemValue("", False)
+        End If
+    End Sub
+    Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
+        Dim i As Long = 0
+        Dim _ContractRows As ContractRows
+
+        If View Is Nothing Then Exit Sub
+
+        If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Then
+            If _noselect = False Then
+                _selection.Clear()
+                For Each _ContractRows In View.SelectedObjects
+                    If i = 0 Then
+                        _selection.Add(_ContractRows)
+                        Frame.GetController(Of ContractReceivablesVC).aCreateInvoicefromContractRowsReceivables.Enabled.SetItemValue("", True)
+                    Else
+                        If _ContractRows.Contracts.CurrencyName_Invoice.Oid = TryCast(_selection(0), ContractRows).Contracts.CurrencyName_Invoice.Oid Then
+                            _selection.Add(_ContractRows)
+                            i += 1
+                        Else
+                            _selection.Clear()
+                            Frame.GetController(Of ContractReceivablesVC).aCreateInvoicefromContractRowsReceivables.Enabled.SetItemValue("", False)
+                        End If
+                    End If
+                Next
+            End If
+        End If
+    End Sub
+
+    Private Sub aCreateInvoicefromContractRowsReceivables_Cancel(sender As Object, e As System.EventArgs) Handles aCreateInvoicefromContractRowsReceivables.Cancel
+        _noselect = False
+    End Sub
+
+    Private Sub aCreateInvoicefromContractRowsReceivables_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateInvoicefromContractRowsReceivables.CustomizePopupWindowParams
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _ContractsRowsToInvoice As ContractsRowsToInvoice = _ocur.CreateObject(Of ContractsRowsToInvoice)()
+        Dim _ContractsRowsToInvoice_New As ContractsRowsToInvoice
+
+        _ContractsRowsToInvoice.Description = ""
+        _ContractsRowsToInvoice.CurrencyRate = 1
+        _ContractsRowsToInvoice.DateExecution = GetSQLTime(_ocur.Session)
+        _ContractsRowsToInvoice.BankInformation = Nothing
+        _ContractsRowsToInvoice.ContractRows = _selection(0)
+
+        _noselect = True
+        _ContractsRowsToInvoice.Save()
+        _ocur.CommitChanges()
+
+        _ContractsRowsToInvoice_New = _onew.GetObject(_ContractsRowsToInvoice)
+
+        e.View = Application.CreateDetailView(_onew, "ContractsRowsToInvoice_DetailView_Receivables", False, _ContractsRowsToInvoice_New)
+    End Sub
+    Private Sub aCreateInvoicefromContractRowsReceivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateInvoicefromContractRowsReceivables.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractRowsCollection As New XPCollection(Of ContractRows)(_ocur.Session, CriteriaOperator.Parse("1=2"))
+
+        Dim _ContractsRowsToInvoice As ContractsRowsToInvoice = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractsRowsToInvoice)
+
+        Dim _ContractRows As ContractRows
+        Dim _ContractRows_Selection As ContractRows
+        Dim _InvoiceRows_new As InvoiceRows
+        Dim _InvoiceRows_Array As New ArrayList()
+
+        Dim i As Long = 0
+        Dim _IsHeaderCreated As Boolean = False
+        Dim _IsNextWhile As Boolean = True
+        Dim _NG As NumberGenerator
+
+        On Error GoTo CheckError
+
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+        ' -- létrehozunk egy kollekciót a kiválasztott elemek tömbjébol
+        _InvoiceHeaderCreated.Clear()
+
+        For Each _ContractRows_Selection In _selection
+            _ContractRows = _ocur.GetObject(_ContractRows_Selection)
+            _ContractRowsCollection.Add(_ContractRows)
+        Next
+        _InvoiceRows_Array.Clear()
+
+        _noselect = False
+        ' -- rendezési feltételeket adunk a létrehozott kollekciónak
+        Dim sortCollection As SortingCollection = New SortingCollection()
+        sortCollection.Add(New SortProperty("Contracts.CustomersFrom.Name", DB.SortingDirection.Ascending))
+        sortCollection.Add(New SortProperty("Contracts.Customers.Name", DB.SortingDirection.Ascending))
+        sortCollection.Add(New SortProperty("Contracts.BankInformation", DB.SortingDirection.Ascending))
+        sortCollection.Add(New SortProperty("Contracts.CurrencyName_Invoice.ShortName", DB.SortingDirection.Ascending))
+        sortCollection.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending))
+        sortCollection.Add(New SortProperty("PaymentOption.ShortName", DB.SortingDirection.Ascending))
+
+        _ContractRowsCollection.Sorting = sortCollection
+
+        Do While _IsNextWhile
+            Dim _InvoiceHeader As InvoiceHeader
+            Dim _InvoiceRows As InvoiceRows = _ocur.CreateObject(Of InvoiceRows)()
+            _InvoiceHeader = _ocur.CreateObject(GetType(InvoiceHeader))
+
+            _InvoiceHeader.PaymentOption = _ContractRowsCollection(i).PaymentOption
+            _InvoiceHeader.ShipmentOption = _ContractRowsCollection(i).ShipmentOption
+
+            'Ha a sor típusa előleg akkor az előleg számla típusát kell vennünk a szerz.sablonnak egyébként a rendeset
+            If _ContractRowsCollection(i).ContractRowsType = eContractRowsType.eAdvance Then
+                _InvoiceHeader.InvoiceType = _ContractRowsCollection(i).Contracts.ContractTemplate.InvoiceTypeAdvanced
+            Else
+                _InvoiceHeader.InvoiceType = _ContractRowsCollection(i).Contracts.ContractTemplate.InvoiceType
+            End If
+            If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then
+                _NG = _InvoiceHeader.InvoiceType.NumberGeneratorProforma
+                _InvoiceHeader.DocumentNumberProforma = _NG.GetNewNumber(_NG)
+            End If
+
+
+            _InvoiceHeader.IsProforma = _ContractsRowsToInvoice.IsProforma
+            _InvoiceHeader.IsEditable = False
+            _InvoiceHeader.CustomersFrom = _ContractRowsCollection(i).Contracts.CustomersFrom
+            _InvoiceHeader.Customers = _ContractRowsCollection(i).Contracts.Customers
+            _InvoiceHeader.Description = _ocur.GetObject(_ContractsRowsToInvoice.Description)
+            _InvoiceHeader.CurrencyName = _ContractRowsCollection(i).Contracts.CurrencyName_Invoice
+            _InvoiceHeader.CurrencyRate = _ContractsRowsToInvoice.CurrencyRate
+            _InvoiceHeader.BankInformation = _ContractRowsCollection(i).Contracts.BankInformation
+
+            '-- Próbaszámla miatt el kell menteni a tényleges adatokat --------------------------------------------------------
+            _InvoiceHeader.Saved_Customers_Name = _ContractRowsCollection(i).Contracts.Customers.Name.ToString
+            _InvoiceHeader.Saved_Customers_Address_Country = _ContractRowsCollection(i).Contracts.Customers.Address1.Country.ToString
+            _InvoiceHeader.Saved_Customers_Address_ZipPostal = _ContractRowsCollection(i).Contracts.Customers.Address1.ZipPostal.ToString
+            _InvoiceHeader.Saved_Customers_Address_Street = _ContractRowsCollection(i).Contracts.Customers.Address1.Street.ToString
+            _InvoiceHeader.Saved_Customers_Address_City = _ContractRowsCollection(i).Contracts.Customers.Address1.City.ToString
+            _InvoiceHeader.Saved_Customers_Address_StateProvince = _ContractRowsCollection(i).Contracts.Customers.Address1.StateProvince.ToString
+            _InvoiceHeader.Saved_Customers_VATNumber = _ContractRowsCollection(i).Contracts.Customers.VATNumber.ToString
+            _InvoiceHeader.Saved_Customers_VATNumberEU = _ContractRowsCollection(i).Contracts.Customers.VATNumberEU.ToString
+
+            _InvoiceHeader.Saved_CustomersFrom_Name = _ContractRowsCollection(i).Contracts.CustomersFrom.Name.ToString
+            _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.ZipPostal.ToString
+            _InvoiceHeader.Saved_CustomersFrom_Address_Street = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.Street.ToString
+            _InvoiceHeader.Saved_CustomersFrom_Address_City = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.City.ToString
+            _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.StateProvince.ToString
+            _InvoiceHeader.Saved_CustomersFrom_VATNumber = _ContractRowsCollection(i).Contracts.CustomersFrom.VATNumber.ToString
+            _InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _ContractRowsCollection(i).Contracts.CustomersFrom.VATNumberEU.ToString
+
+            _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader.BankInformation.FullBankAccount.ToString
+            _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN.ToString
+            _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT.ToString
+            _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber.ToString
+            '------------------------------------------------------------------------------------------------------------------
+            If _ContractRowsCollection(i).ContractRowsType = eContractRowsType.eMileStone Then
+                _InvoiceHeader.DateExecution = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractsRowsToInvoice).DateExecution
+            Else
+                _InvoiceHeader.DateExecution = _ContractRowsCollection(i).DateExecution
+            End If
+            If _InvoiceHeader.PaymentOption.PayMode = ePayMode.InContinuous Then
+                _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution
+            Else
+                _InvoiceHeader.DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay)
+            End If
+            _InvoiceHeader.CurrencyName = _ContractRowsCollection(i).Contracts.CurrencyName_Invoice
+
+            If _InvoiceHeader.IsProforma = False Then
+                _InvoiceHeader.ConnectInfo = _InvoiceHeader.InvoiceType.NumberGenerator.GetNewNumber(_InvoiceHeader.InvoiceType.NumberGenerator)
+            End If
+
+            _InvoiceHeader.DocumentNumber = _InvoiceHeader.ConnectInfo
+            _InvoiceHeader.DateCreated = GetSQLTime(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session)
+
+            ' -- Ha folyamatos teljesítésű számla akkor a fizetési határidő megegyezik a teljesítés dátumával
+            If _InvoiceHeader.PaymentOption.PayMode = ePayMode.InContinuous Then
+                _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution
+            Else
+                ' -- Egyébként számolja ki a fizetési opcióból, hogy hány nap van a kiállítás dátuma és a fizetési határidő között
+                _InvoiceHeader.DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay)
+            End If
+
+            '-- A következő sorok vizsgálata és hozzáadása a fenti fejléchez amíg az ezt engedélyezo feltételek teljesülnek
+            Do
+                _InvoiceRows_new = _ocur.CreateObject(Of InvoiceRows)()
+                _InvoiceRows_new.InvoiceHeader = _InvoiceHeader
+                _InvoiceHeader.InvoicePeriod = _ContractRowsCollection(i).InvoicePeriod
+                _InvoiceRows_new.InvoicePeriod = _ContractRowsCollection(i).InvoicePeriod
+
+                _InvoiceRows_new.CustomsTariffs = _ContractRowsCollection(i).CustomsTariffs
+                _InvoiceRows_new.Description = _ContractRowsCollection(i).Description
+                _InvoiceRows_new.QTT = _ContractRowsCollection(i).QTT
+                _InvoiceRows_new.QualityOption = _ContractRowsCollection(i).QualityOption
+                _InvoiceRows_new.VAT = _ContractRowsCollection(i).VAT
+                _InvoiceRows_new.Units = _ContractRowsCollection(i).Units
+                _InvoiceRows_new.ShortName = _ContractRowsCollection(i).ShortName
+
+                If _ContractRowsCollection(i).Contracts.CurrencyName.ShortName <> "HUF" Then
+                    _InvoiceRows_new.ListPriceHUF = Math.Round(_ContractRowsCollection(i).NettoPriceDEV * _ContractsRowsToInvoice.CurrencyRate, 0, MidpointRounding.AwayFromZero)
+                Else
+                    _InvoiceRows_new.ListPriceHUF = _ContractRowsCollection(i).NettoPriceHUF
+                End If
+                _InvoiceRows_new.ListPriceDEV = _ContractRowsCollection(i).NettoPriceDEV
+                _InvoiceRows_new.ContractRows = _ContractRowsCollection(i)
+
+                _InvoiceRows_new.Save()
+                _InvoiceRows_Array.Add(_InvoiceRows_new)
+                If i = _ContractRowsCollection.Count - 1 Then
+                    _IsNextWhile = False
+                    Exit Do
+                End If
+                i += 1
+            Loop While _ContractRowsCollection(i - 1).Contracts.CustomersFrom Is _ContractRowsCollection(i).Contracts.CustomersFrom And _
+                    _ContractRowsCollection(i - 1).Contracts.Customers Is _ContractRowsCollection(i).Contracts.Customers And _
+                    _ContractRowsCollection(i - 1).Contracts.BankInformation Is _ContractRowsCollection(i).Contracts.BankInformation And _
+                    _ContractRowsCollection(i - 1).DateExecution = _ContractRowsCollection(i).DateExecution And _
+                    _ContractRowsCollection(i - 1).CurrencyName Is _ContractRowsCollection(i).CurrencyName And _
+                    _ContractRowsCollection(i - 1).PaymentOption Is _ContractRowsCollection(i).PaymentOption
+
+            _InvoiceHeader.Save()
+            _ocur.CommitChanges()
+            _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _ocur)
+            _ocur.CommitChanges()
+
+            _InvoiceHeaderCreated.Add(_InvoiceHeader)
+        Loop
+
+        For Each _InvoiceRows_new In _InvoiceRows_Array
+            _ContractRows = _InvoiceRows_new.ContractRows
+            _ContractRows.InvoiceRows = _InvoiceRows_new
+            If _ContractRows.Contracts.CurrencyName.ShortName <> "HUF" Then
+                _ContractRows.NettoPriceHUF = Math.Round(_ContractRows.NettoPriceDEV * _ContractsRowsToInvoice.CurrencyRate, 0, MidpointRounding.AwayFromZero)
+                _ContractRows.CurrencyRate = _ContractsRowsToInvoice.CurrencyRate
+            End If
+
+            _ContractRows.Save()
+        Next
+        _ocur.CommitChanges()
+        _noselect = False
+
+        Me.PrintSelectedInvoices()
+
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+        Exit Sub
+CheckError:
+        If Err.Number = 91 Then Resume Next
+        If Err.Number = 13 Then Resume Next
+
+    End Sub
+
+    Sub PrintSelectedInvoices()
+        'Meg kell állapítani, hogy a vevő belföldi vagy külföldi.
+
+        Dim _ReportData As ReportData
+        Dim _ReportData_DEV As ReportData
+        Dim _ReportData_DEV_EU As ReportData
+        Dim _InvoiceHeader As InvoiceHeader
+        Dim _CurrencyName As CurrencyName
+        If _InvoiceHeaderCreated.Count > 0 Then
+            _InvoiceHeader = TryCast(_InvoiceHeaderCreated(0), InvoiceHeader)
+
+            _CurrencyName = _InvoiceHeader.CurrencyName
+            If _InvoiceHeader IsNot Nothing Then
+                _ReportData = _InvoiceHeader.InvoiceType.ReportData
+                _ReportData_DEV = _InvoiceHeader.InvoiceType.ReportData_DEV
+                _ReportData_DEV_EU = _InvoiceHeader.InvoiceType.ReportData_DEV_EU
+                If _ReportData IsNot Nothing Or _InvoiceHeader Is Nothing Then
+                    Dim _inoperator As New InOperator("InvoiceHeader", _InvoiceHeaderCreated)
+                    If _CurrencyName.ShortName = "HUF" Then
+                        Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, _inoperator, True)
+                    Else
+                        Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData_DEV, _inoperator, True)
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRows.vb

@@ -0,0 +1,542 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.Security
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+'<Appearance("Disable ContractRows-CurrencyName when IsNull(CurrencyName)=False", AppearanceItemType.ViewItem, "IsNull(CurrencyName)=False", TargetItems:="CurrencyName", Enabled:=False)> _
+'<EditorStateRule("Hide DEV when DEV is HUF", "NettoPriceDEV;CurrencyRate", EditorState.Hidden, "CurrencyName.ShortName='HUF'", ViewType.DetailView)> _
+'<EditorStateRule("Hide MileStone when DEV ContractRowsType<>1", "MileStone", EditorState.Hidden, "ContractRowsType<>1", ViewType.DetailView)> _
+'<EditorStateRule("Disable edit when invoicerow not nothing", _
+'    "MileStone;DateExecution;Controlling;UniqueObjects;ShortName;Description;QTT;Units;NettoPriceHUF;NettoPriceDEV;CurrencyName;CurrencyRate;PaymentOption;ShipmentOption;QualityOption;VAT;ContractRowsType;CostHolder;CostPlace;InvoicePeriod", _
+'    EditorState.Disabled, "IsNull(InvoiceRows)=False", DevExpress.ExpressApp.ViewType.Any)> _
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Hide DEV when DEV is HUF", TargetItems:="NettoPriceDEV;CurrencyRate", Criteria:="CurrencyName.ShortName='HUF'", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide MileStone when DEV ContractRowsType<>1", TargetItems:="MileStone", Criteria:="ContractRowsType<>1", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Disable edit when invoicerow not nothing", _
+    TargetItems:="MileStone;DateExecution;Controlling;UniqueObjects;ShortName;Description;QTT;Units;NettoPriceHUF;NettoPriceDEV;CurrencyName;CurrencyRate;PaymentOption;ShipmentOption;QualityOption;VAT;ContractRowsType;CostHolder;CostPlace;InvoicePeriod", _
+    Criteria:="IsNull(InvoiceRows)=False", Enabled:=False, Context:="Any")>
+<Appearance("Disable delete and modifications if Controlled Or Invoiced", AppearanceItemType:="Action", TargetItems:="Delete,aDivideContractRows,aMergeContractRows", Enabled:=False, Criteria:="IsNull(RegistryRowsFinancialControlling)=False OR IsNull(InvoiceRows)=False OR IsNull(InvoiceRowsAdvance)=False", Context:="Any")> _
+<Appearance("Disable open coc if not certificated", AppearanceItemType:="Action", TargetItems:="aOpenCOCFromContractRows", Enabled:=False, Criteria:="IsNull(CertificateofContractRows)", Context:="Any")> _
+<Appearance("Disable open invoice if not invoiced", AppearanceItemType:="Action", TargetItems:="aOpenInvoiceFromContractRows", Enabled:=False, Criteria:="IsNull(InvoiceRows)", Context:="Any")> _
+<Appearance("Disable open registry invoice if not controlled", AppearanceItemType:="Action", TargetItems:="aOpenRegistryInvoiceFromContractRows", Enabled:=False, Criteria:="IsNull(RegistryRowsFinancialControlling)", Context:="Any")> _
+<Appearance("Status in rows in PartnerType=0", AppearanceItemType:="ViewItem", TargetItems:="eContractRowsCOCState;eContractRowsRRFCState", Enabled:=False, Criteria:="Contracts.ContractTemplate.PartnerType=0", Context:="Any")> _
+<Appearance("Status in rows in PartnerType=1", AppearanceItemType:="ViewItem", TargetItems:="eContractRowsInvoiceState", Enabled:=False, Criteria:="Contracts.ContractTemplate.PartnerType=1", Context:="Any")> _
+<Appearance("Disable ContractRows-RowGroup1, RowGroup2 when Contracts.ContractTemplate.IsCRM=False", AppearanceItemType.ViewItem, "Contracts.ContractTemplate.IsCRM=False", TargetItems:="RowGroup1;RowGroup2", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable ContractRows-ShipmentOption, QualityOption when Contracts.ContractTemplate.IsCRM=False", AppearanceItemType.ViewItem, "Contracts.ContractTemplate.IsCRM=False", TargetItems:="ShipmentOption;QualityOption", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable ContractRows-InvoiceRows;eContractRowsInvoiceState;InvoiceRowsAdvance;CustomsTariffs when Contracts.ContractTemplate.PartnerType=1", AppearanceItemType.ViewItem, "Contracts.ContractTemplate.PartnerType=1", TargetItems:="InvoiceRows;eContractRowsInvoiceState;InvoiceRowsAdvance;CustomsTariffs", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable ContractRows-eContractRowsCOCState;eContractRowsRRFCState; when Contracts.ContractTemplate.PartnerType=0", AppearanceItemType.ViewItem, "Contracts.ContractTemplate.PartnerType=0", TargetItems:="eContractRowsCOCState;eContractRowsRRFCState", visibility:=Editors.ViewItemVisibility.Hide)> _
+<DefaultProperty("DisplayName")> _
+<RuleCriteria("RuleCriteria ContactRows-Controlling", DefaultContexts.Save, _
+    "(Controlling.IsParent=False) or (Contracts.ContractTemplate.Rule5DMatrix.RequireControlling=False and isnull(Controlling)=True) or (IsNull(Contracts.ContractTemplate.Rule5DMatrix)=True)", _
+    "Gyüjtõ kontrollszám nem választható ki!", SkipNullOrEmptyValues:=False)> _
+Public Class ContractRows 'Szerzõdési sorok
+    Inherits BaseObject
+    Private _Contracts As Contracts '-- Szerzõdés fejléc
+    Private _MileStone As ContractMileStone '-- Mérföldkõ
+    Private _DateExecution As Date '-- Teljesítési dátum
+    Private _ShortName As String '-- Megnevezés
+    Private _Description As String '-- Leírás
+    Private _QTT As Double '-- Mennyiség
+    Private _Units As Units '-- Mennyiségi egység
+    Private _NettoPriceHUF As Double '-- Nettó egységár (HUF)
+    Private _NettoPriceDEV As Double '-- Nettó egységár (DEV)
+
+    Private _SumNettoPriceHUF As Double '-- Nettó sorérték (HUF)
+    Private _SumNettoPriceDEV As Double '-- Nettó sorérték (DEV)
+    Private _SumBruttoPriceHUF As Double '-- Nettó sorérték (HUF)
+    Private _SumBruttoPriceDEV As Double '-- Nettó sorérték (DEV)
+
+    Private _CurrencyName As CurrencyName '-- Deviza
+    Private _CurrencyRate As Double = 1 '-- Árfolyam
+    Private _PaymentOption As PaymentOption '--Fizetési opció
+    Private _ShipmentOption As ShipmentOption '-- Szállítási opció
+    Private _QualityOption As QualityOption '-- Minõségi opció
+    Private _VAT As VAT 'ÁFA kód
+    Private _InvoiceRows As InvoiceRows '-- Milyen soron lett kiszámlázva<NonCloneable()> _
+    Private _InvoiceRowsAdvance As InvoiceRows ' --Ez a szerzõdés sor, ha ki van állítva számlán akkor milyen számlán lett visszaminuszolva.<NonCloneable()> _
+    Private _ContractRowsType As eContractRowsType ' -- A szerzõdés sorának a típusa
+    '-- Jelölõ adatok -------------------------------------------------------------------------------
+    Private _Controlling As Controlling '-- Controlling szám
+    Private _CostHolder As CostHolder ' -- Költségviselõ
+    Private _CostPlace As CostPlace '-- Költséghely
+    Private _JobNumberObjects As JobNumberObjects '-- Projekt amihez a sor tartozik
+    Private _UniqueObjects As UniqueObjects ' -- Egyedi azonosító
+    '------------------------------------------------------------------------------------------------
+    Private _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling ' -- Iktatási teljesítésre bontás sora (le van e teljesítési igazolva a sor)<NonCloneable()> _
+    Private _RowGroup1 As String
+    Private _RowGroup2 As String
+    Private _CustomsTariffs As CustomsTariffs
+    Private _InvoicePeriod As String 'Számlázási idõszak
+    Private _CertificateofContractRows As CertificateofContractRows '<NonCloneable()> _
+    Private _eContractRowsInvoiceState As eContractRowsInvoiceState 'Ki van-e számlázva az aktuális sor?<NonCloneable()> _
+    Private _eContractRowsCOCState As eContractRowsCOCState 'Le van-e teljesítési igazolva az aktuális sor?<NonCloneable()> _
+    Private _eContractRowsRRFCState As eContractRowsRRFCState 'Le van-e számla igazolva az aktuális sor?<NonCloneable()> _
+    Private _ImmovablesCostRecordEvents As ImmovablesCostRecordEvents
+
+    Private _Apartments As Apartments '-- Lakás
+    Private _Garages As Garages '-- Garázs
+    Private _Container As Container '-- Tároló
+    Private _Offices As Offices '-- Üzletek
+    Private _XLSGuid As String ' XLS sorban lévõ saját guid
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Units = Session.FindObject(Of Units)(1, CriteriaOperator.Parse("ShortName='DB'"))
+        QTT = 1
+        CurrencyName = Session.FindObject(Of CurrencyName)(PersistentCriteriaEvaluationBehavior.InTransaction, Session.ParseCriteria("ShortName='HUF'"))
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If VAT Is Nothing Then
+            SumNettoPriceHUF = Math.Round(QTT * NettoPriceHUF, 0, MidpointRounding.AwayFromZero)
+            SumBruttoPriceHUF = SumNettoPriceHUF
+            SumNettoPriceDEV = Math.Round(QTT * NettoPriceDEV, 2, MidpointRounding.AwayFromZero)
+            SumBruttoPriceDEV = SumNettoPriceDEV
+        Else
+            SumNettoPriceHUF = Math.Round(QTT * NettoPriceHUF, 0, MidpointRounding.AwayFromZero)
+            SumBruttoPriceHUF = Math.Round(SumNettoPriceHUF * (1 + VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
+            SumNettoPriceDEV = Math.Round(QTT * NettoPriceDEV, 2, MidpointRounding.AwayFromZero)
+            SumBruttoPriceDEV = Math.Round(SumNettoPriceDEV * (1 + VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
+        End If
+    End Sub
+    <Association("Contracts-ContractRows", GetType(Contracts))> _
+    Property Contracts() As Contracts
+        Get
+            Return _Contracts
+        End Get
+        Set(ByVal value As Contracts)
+            SetPropertyValue("Contracts", _Contracts, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContractRows-MileStone", DefaultContexts.Save, TargetCriteria:="ContractRowsType=1")> _
+    Property MileStone As ContractMileStone
+        Get
+            Return _MileStone
+        End Get
+        Set(ByVal value As ContractMileStone)
+            SetPropertyValue("MileStone", _MileStone, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContactRows-DateExecution", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.IsProducts=False and ContractRowsType<>1")> _
+    Property DateExecution() As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    ' <DataSourceCriteria("Controlling.Controllingdirection=-1 AND Contracts.ContractTemplate.PartnerType=0")> _
+    <RuleRequiredField("ContactRows-ShortName", DefaultContexts.Save)> _
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property QTT() As Double
+        Get
+            Return _QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContractRows_Units", DefaultContexts.Save)> _
+    Property Units() As Units
+        Get
+            Return _Units
+        End Get
+        Set(ByVal value As Units)
+            SetPropertyValue("Units", _Units, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContractRows_NettoPriceHUF", DefaultContexts.Save, TargetCriteria:="CurrencyName.ShortName='HUF'")> _
+    Property NettoPriceHUF() As Double
+        Get
+            Return _NettoPriceHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("NettoPriceHUF", _NettoPriceHUF, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContractRows_NettoPriceDEV", DefaultContexts.Save, TargetCriteria:="CurrencyName.ShortName<>'HUF'")> _
+    Property NettoPriceDEV() As Double
+        Get
+            Return _NettoPriceDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("NettoPriceDEV", _NettoPriceDEV, value)
+            If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
+                If CurrencyName IsNot Nothing Then
+                    If CurrencyName.ShortName <> "HUF" Then
+                        NettoPriceHUF = Math.Round(CurrencyRate * value, 0, MidpointRounding.AwayFromZero)
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    Property SumNettoPriceHUF As Double
+        Get
+            Return _SumNettoPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumNettoPriceHUF", _SumNettoPriceHUF, value)
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    Property SumNettoPriceDEV As Double
+        Get
+            Return _SumNettoPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumNettoPriceDEV", _SumNettoPriceDEV, value)
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    Property SumBruttoPriceHUF As Double
+        Get
+            Return _SumBruttoPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumBruttoPriceHUF", _SumBruttoPriceHUF, value)
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    Property SumBruttoPriceDEV As Double
+        Get
+            Return _SumBruttoPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumBruttoPriceDEV", _SumBruttoPriceDEV, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property CurrencyName() As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    '<RuleValueComparison("ContractRows-CurrencyRate <>1", DefaultContexts.Save, ValueComparisonType.NotEquals, 1, TargetCriteria:="CurrencyName.ShortName<>'HUF'")> _
+    <RuleValueComparison("ContractRows-CurrencyRate 0<", DefaultContexts.Save, ValueComparisonType.GreaterThan, 0, TargetCriteria:="CurrencyName.ShortName<>'HUF'")> _
+    Property CurrencyRate As Double
+        Get
+            Return _CurrencyRate
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("CurrencyRate", _CurrencyRate, value)
+            If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
+                If CurrencyName IsNot Nothing Then
+                    If CurrencyName.ShortName <> "HUF" Then
+                        NettoPriceHUF = Math.Round(NettoPriceDEV * value, 0, MidpointRounding.AwayFromZero)
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("ContractRows.PaymentOptions", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.PartnerType = 0")> _
+    Property PaymentOption() As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(ByVal value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+        End Set
+    End Property
+    Property ShipmentOption() As ShipmentOption
+        Get
+            Return _ShipmentOption
+        End Get
+        Set(ByVal value As ShipmentOption)
+            SetPropertyValue("ShipmentOption", _ShipmentOption, value)
+        End Set
+    End Property
+    Property QualityOption() As QualityOption
+        Get
+            Return _QualityOption
+        End Get
+        Set(ByVal value As QualityOption)
+            SetPropertyValue("QualityOption", _QualityOption, value)
+        End Set
+    End Property
+    <RuleRequiredField("VAT is required if ContractsTemplate receiveables", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.PartnerType=0")> _
+    Property VAT As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(ByVal value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property InvoiceRows As InvoiceRows
+        Get
+            Return _InvoiceRows
+        End Get
+        Set(ByVal value As InvoiceRows)
+            SetPropertyValue("InvoiceRows", _InvoiceRows, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property InvoiceRowsAdvance As InvoiceRows
+        Get
+            Return _InvoiceRowsAdvance
+        End Get
+        Set(ByVal value As InvoiceRows)
+            SetPropertyValue("InvoiceRowsAdvance", _InvoiceRowsAdvance, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property ContractRowsType As eContractRowsType
+        Get
+            Return _ContractRowsType
+        End Get
+        Set(ByVal value As eContractRowsType)
+            SetPropertyValue("ContractRowsType", _ContractRowsType, 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
+    <Browsable(False)> _
+    Property ImmovablesCostRecordEvents As ImmovablesCostRecordEvents
+        Get
+            Return _ImmovablesCostRecordEvents
+        End Get
+        Set(value As ImmovablesCostRecordEvents)
+            SetPropertyValue("ImmovablesCostRecordEvents", _ImmovablesCostRecordEvents, value)
+        End Set
+    End Property
+
+    'Rule5DMatrix ! ---------------------------------
+    <RuleRequiredField("ContactRows-Controlling", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireControlling=True")> _
+    Property Controlling() As Controlling
+        Get
+            Return _Controlling
+        End Get
+        Set(ByVal value As Controlling)
+            SetPropertyValue("Controlling", _Controlling, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.RegistryRowsFinancialControlling IsNot Nothing Then
+                If Me.RegistryRowsFinancialControlling.Controlling IsNot value Then
+                    _RegistryRowsFinancialControlling.Controlling = value
+                    _RegistryRowsFinancialControlling.Save()
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("ContactRows-CostHolder", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireCostHolder=True")> _
+    Property CostHolder As CostHolder
+        Get
+            Return _CostHolder
+        End Get
+        Set(ByVal value As CostHolder)
+            SetPropertyValue("CostHolder", _CostHolder, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.RegistryRowsFinancialControlling IsNot Nothing Then
+                If Me.RegistryRowsFinancialControlling.CostHolder IsNot value Then
+                    Me.RegistryRowsFinancialControlling.CostHolder = value
+                    Me.RegistryRowsFinancialControlling.Save()
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("ContactRows-CostPlace", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireCostPlace=True")> _
+    Property CostPlace As CostPlace
+        Get
+            Return _CostPlace
+        End Get
+        Set(ByVal value As CostPlace)
+            SetPropertyValue("CostPlace", _CostPlace, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContactRows-JobNumberObjects", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireJobNumberObjects=True")> _
+    Property JobNumberObjects As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(ByVal value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.RegistryRowsFinancialControlling IsNot Nothing Then
+                If Me.RegistryRowsFinancialControlling.JobNumberObjects IsNot value Then
+                    Me.RegistryRowsFinancialControlling.JobNumberObjects = value
+                    Me.RegistryRowsFinancialControlling.Save()
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("ContactRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireUniqueObjects=True")> _
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(ByVal value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.RegistryRowsFinancialControlling IsNot Nothing Then
+                If Me.RegistryRowsFinancialControlling.UniqueObjects IsNot value Then
+                    _RegistryRowsFinancialControlling.UniqueObjects = value
+                    _RegistryRowsFinancialControlling.Save()
+                End If
+            End If
+        End Set
+    End Property
+
+    <NonCloneable()> _
+    Property RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
+        Get
+            Return _RegistryRowsFinancialControlling
+        End Get
+        Set(ByVal value As RegistryRowsFinancialControlling)
+            SetPropertyValue("RegistryRowsFinancialControlling", _RegistryRowsFinancialControlling, value)
+        End Set
+    End Property
+    Property RowGroup1 As String
+        Get
+            Return _RowGroup1
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("RowGroup1", _RowGroup1, value)
+        End Set
+    End Property
+    Property RowGroup2 As String
+        Get
+            Return _RowGroup2
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("RowGroup2", _RowGroup2, value)
+        End Set
+    End Property
+    Property CustomsTariffs As CustomsTariffs
+        Get
+            Return _CustomsTariffs
+        End Get
+        Set(value As CustomsTariffs)
+            SetPropertyValue("CustomsTariffs", _CustomsTariffs, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property CertificateofContractRows As CertificateofContractRows
+        Get
+            Return _CertificateofContractRows
+        End Get
+        Set(value As CertificateofContractRows)
+            SetPropertyValue("CertificateofContractRows", _CertificateofContractRows, value)
+        End Set
+    End Property
+    'Readonly
+    ReadOnly Property DisplayName() As String
+        Get
+            If Me.Contracts Is Nothing Then
+                Return ShortName & ", " & DateExecution
+            ElseIf Me.Contracts.Customers Is Nothing Then
+                Return Contracts.DocumentNumber & ", " & ShortName & ", " & DateExecution
+            Else
+                Return Contracts.DocumentNumber & ", " & ShortName & ", " & DateExecution & ", " & Contracts.Customers.FullName
+            End If
+        End Get
+    End Property
+    ReadOnly Property eContractRowsCOCState As eContractRowsCOCState
+        Get
+            If Me.CertificateofContractRows IsNot Nothing Then
+                Return [Module].eContractRowsCOCState.eCertificated
+            Else
+                Return [Module].eContractRowsCOCState.eNotCertificated
+            End If
+        End Get
+    End Property
+    ReadOnly Property eContractRowsInvoiceState As eContractRowsInvoiceState
+        Get
+            If Me.InvoiceRows IsNot Nothing Or Me.InvoiceRowsAdvance IsNot Nothing Then
+                Return [Module].eContractRowsInvoiceState.eInvoiced
+            Else
+                Return [Module].eContractRowsInvoiceState.eNotInvoiced
+            End If
+        End Get
+    End Property
+    ReadOnly Property eContractRowsRRFCState As eContractRowsRRFCState
+        Get
+            If Me.RegistryRowsFinancialControlling IsNot Nothing Then
+                Return [Module].eContractRowsRRFCState.eControlled
+            Else
+                Return [Module].eContractRowsRRFCState.eNotControlled
+            End If
+        End Get
+    End Property
+
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property Apartments As Apartments
+        Get
+            Return _Apartments
+        End Get
+        Set(value As Apartments)
+            SetPropertyValue("Apartments", _Apartments, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property Garages As Garages
+        Get
+            Return _Garages
+        End Get
+        Set(value As Garages)
+            SetPropertyValue("Garages", _Garages, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property Container As Container
+        Get
+            Return _Container
+        End Get
+        Set(value As Container)
+            SetPropertyValue("Container", _Container, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property Offices As Offices
+        Get
+            Return _Offices
+        End Get
+        Set(value As Offices)
+            SetPropertyValue("Offices", _Offices, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property XLSGuid As String
+        Get
+            Return _XLSGuid
+        End Get
+        Set(value As String)
+            SetPropertyValue("XLSGuid", _XLSGuid, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.Designer.vb

@@ -0,0 +1,106 @@
+Partial Class ContractRowsVC
+
+	<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.aDescriptionChanger_ContractRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aShortNameChanger_ContractRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aModifyContractRowsData = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aConnectContractRowToInvoiceRow = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aDescriptionChanger_ContractRows
+        '
+        Me.aDescriptionChanger_ContractRows.AcceptButtonCaption = Nothing
+        Me.aDescriptionChanger_ContractRows.CancelButtonCaption = Nothing
+        Me.aDescriptionChanger_ContractRows.Caption = "Description Changer"
+        Me.aDescriptionChanger_ContractRows.Category = "aDescriptionChanger_ContractRows"
+        Me.aDescriptionChanger_ContractRows.ConfirmationMessage = Nothing
+        Me.aDescriptionChanger_ContractRows.Id = "aDescriptionChanger_ContractRows"
+        Me.aDescriptionChanger_ContractRows.ImageName = Nothing
+        Me.aDescriptionChanger_ContractRows.Shortcut = Nothing
+        Me.aDescriptionChanger_ContractRows.Tag = Nothing
+        Me.aDescriptionChanger_ContractRows.TargetObjectsCriteria = Nothing
+        Me.aDescriptionChanger_ContractRows.TargetViewId = ""
+        Me.aDescriptionChanger_ContractRows.ToolTip = Nothing
+        Me.aDescriptionChanger_ContractRows.TypeOfView = Nothing
+        '
+        'aShortNameChanger_ContractRows
+        '
+        Me.aShortNameChanger_ContractRows.AcceptButtonCaption = Nothing
+        Me.aShortNameChanger_ContractRows.CancelButtonCaption = Nothing
+        Me.aShortNameChanger_ContractRows.Caption = "Description Changer"
+        Me.aShortNameChanger_ContractRows.Category = "aShortNameChanger_ContractRows"
+        Me.aShortNameChanger_ContractRows.ConfirmationMessage = Nothing
+        Me.aShortNameChanger_ContractRows.Id = "aShortNameChanger_ContractRows"
+        Me.aShortNameChanger_ContractRows.ImageName = Nothing
+        Me.aShortNameChanger_ContractRows.Shortcut = Nothing
+        Me.aShortNameChanger_ContractRows.Tag = Nothing
+        Me.aShortNameChanger_ContractRows.TargetObjectsCriteria = Nothing
+        Me.aShortNameChanger_ContractRows.TargetViewId = ""
+        Me.aShortNameChanger_ContractRows.ToolTip = Nothing
+        Me.aShortNameChanger_ContractRows.TypeOfView = Nothing
+        '
+        'aModifyContractRowsData
+        '
+        Me.aModifyContractRowsData.AcceptButtonCaption = Nothing
+        Me.aModifyContractRowsData.CancelButtonCaption = Nothing
+        Me.aModifyContractRowsData.Caption = "aModify Contract Rows Data"
+        Me.aModifyContractRowsData.ConfirmationMessage = Nothing
+        Me.aModifyContractRowsData.Id = "aModifyContractRowsData"
+        Me.aModifyContractRowsData.ImageName = Nothing
+        Me.aModifyContractRowsData.Shortcut = Nothing
+        Me.aModifyContractRowsData.Tag = Nothing
+        Me.aModifyContractRowsData.TargetObjectsCriteria = Nothing
+        Me.aModifyContractRowsData.TargetObjectType = GetType(SISBusiness.[Module].ContractRows)
+        Me.aModifyContractRowsData.TargetViewId = Nothing
+        Me.aModifyContractRowsData.ToolTip = Nothing
+        Me.aModifyContractRowsData.TypeOfView = Nothing
+        '
+        'aConnectContractRowToInvoiceRow
+        '
+        Me.aConnectContractRowToInvoiceRow.AcceptButtonCaption = Nothing
+        Me.aConnectContractRowToInvoiceRow.CancelButtonCaption = Nothing
+        Me.aConnectContractRowToInvoiceRow.Caption = "aConnect Contract Row To Invoice Row"
+        Me.aConnectContractRowToInvoiceRow.ConfirmationMessage = Nothing
+        Me.aConnectContractRowToInvoiceRow.Id = "aConnectContractRowToInvoiceRow"
+        Me.aConnectContractRowToInvoiceRow.ImageName = Nothing
+        Me.aConnectContractRowToInvoiceRow.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aConnectContractRowToInvoiceRow.Shortcut = Nothing
+        Me.aConnectContractRowToInvoiceRow.Tag = Nothing
+        Me.aConnectContractRowToInvoiceRow.TargetObjectsCriteria = Nothing
+        Me.aConnectContractRowToInvoiceRow.TargetObjectType = GetType(SISBusiness.[Module].ContractRows)
+        Me.aConnectContractRowToInvoiceRow.TargetViewId = ""
+        Me.aConnectContractRowToInvoiceRow.ToolTip = Nothing
+        Me.aConnectContractRowToInvoiceRow.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aDescriptionChanger_ContractRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aShortNameChanger_ContractRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aModifyContractRowsData As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aConnectContractRowToInvoiceRow As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.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="aDescriptionChanger_ContractRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aShortNameChanger_ContractRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aModifyContractRowsData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aConnectContractRowToInvoiceRow.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</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/Contract/ContractRowsVC.vb

@@ -0,0 +1,250 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Xpo
+Imports System.Linq
+Imports System.Linq.Expressions
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.Utils
+
+Public Class ContractRowsVC
+    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()
+
+        Frame.GetController(Of ContractRowsVC).aDescriptionChanger_ContractRows.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractRowsVC).aShortNameChanger_ContractRows.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractRowsVC).aModifyContractRowsData.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractRowsVC).aConnectContractRowToInvoiceRow.Active.SetItemValue("", False)
+        If View.Id = "ContractRows_DetailView" Then
+            Frame.GetController(Of ContractRowsVC).aDescriptionChanger_ContractRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractRowsVC).aShortNameChanger_ContractRows.Active.SetItemValue("", True)
+        End If
+
+        If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Or _
+           View.Id = "ContractRows_ListView_Invoice_MileStone" Or _
+           View.Id = "ContractRows_ListView_Invoice_CustomRate" Or _
+           View.Id = "ContractRows_ListView_Invoice_Advance" Then
+            Frame.GetController(Of ContractRowsVC).aModifyContractRowsData.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractRowsVC).aConnectContractRowToInvoiceRow.Active.SetItemValue("", True)
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        Frame.GetController(Of ContractRowsVC).aDescriptionChanger_ContractRows.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractRowsVC).aShortNameChanger_ContractRows.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractRowsVC).aModifyContractRowsData.Active.SetItemValue("", False)
+    End Sub
+
+    Private Sub aDescriptionChanger_ContractRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDescriptionChanger_ContractRows.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace()
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractRows_DescriptionChanger_PopUp As InvoiceHeader_DescriptionChanger_PopUp
+        Dim _CS_Description As New CollectionSource(_onew, GetType(InvoiceHeader_DescriptionChanger_PopUp))
+
+        Dim _ContractRows_xpquery = New XPQuery(Of ContractRows)(_ocur.Session)
+        Dim query = From _ContractRows In _ContractRows_xpquery _
+                    Where _ContractRows.Description IsNot Nothing _
+        Group _ContractRows By _ContractRows.Description Into g = Group _
+        Select New With {Key .Description = Description}
+        For Each item In query
+            _ContractRows_DescriptionChanger_PopUp = _onew.CreateObject(Of InvoiceHeader_DescriptionChanger_PopUp)()
+            _ContractRows_DescriptionChanger_PopUp.Description = item.Description
+            _CS_Description.Add(_ContractRows_DescriptionChanger_PopUp)
+        Next
+        e.View = Application.CreateListView("InvoiceHeader_DescriptionChanger_PopUp_ListView", _CS_Description, False)
+    End Sub
+    Private Sub aDescriptionChanger_ContractRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDescriptionChanger_ContractRows.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractRows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows)
+        For Each _Description In e.PopupWindow.View.SelectedObjects
+            If _ContractRows.Description Is Nothing Then
+                _ContractRows.Description = TryCast(_Description, InvoiceHeader_DescriptionChanger_PopUp).Description
+            Else
+                _ContractRows.Description += vbNewLine & TryCast(_Description, InvoiceHeader_DescriptionChanger_PopUp).Description
+            End If
+        Next
+    End Sub
+
+    Private Sub aShortNameChanger_ContractRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aShortNameChanger_ContractRows.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace()
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractRows_ShortNameChanger_PopUp As InvoiceHeader_DescriptionChanger_PopUp
+        Dim _CS_ShortName As New CollectionSource(_onew, GetType(InvoiceHeader_DescriptionChanger_PopUp))
+
+        Dim _ContractRows_xpquery = New XPQuery(Of ContractRows)(_ocur.Session)
+        Dim query = From _ContractRows In _ContractRows_xpquery _
+                    Where _ContractRows.Description IsNot Nothing _
+        Group _ContractRows By _ContractRows.ShortName Into g = Group _
+        Select New With {Key .ShortName = ShortName}
+        For Each item In query
+            _ContractRows_ShortNameChanger_PopUp = _onew.CreateObject(Of InvoiceHeader_DescriptionChanger_PopUp)()
+            _ContractRows_ShortNameChanger_PopUp.Description = item.ShortName
+            _CS_ShortName.Add(_ContractRows_ShortNameChanger_PopUp)
+        Next
+        e.View = Application.CreateListView("InvoiceHeader_DescriptionChanger_PopUp_ListView", _CS_ShortName, False)
+    End Sub
+    Private Sub aShortNameChanger_ContractRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aShortNameChanger_ContractRows.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractRows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows)
+        For Each _ShortName In e.PopupWindow.View.SelectedObjects
+            If _ContractRows.ShortName Is Nothing Then
+                _ContractRows.ShortName = TryCast(_ShortName, InvoiceHeader_DescriptionChanger_PopUp).Description
+            Else
+                _ContractRows.ShortName += " " & TryCast(_ShortName, InvoiceHeader_DescriptionChanger_PopUp).Description
+            End If
+        Next
+    End Sub
+
+    Private Sub aModifyContractRowsData_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aModifyContractRowsData.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace()
+        Dim _ContractRowsModifyData As ContractRowsModifyData = _onew.CreateObject(Of ContractRowsModifyData)()
+
+        e.View = Application.CreateDetailView(_onew, "ContractRowsModifyData_DetailView", False, _ContractRowsModifyData)
+    End Sub
+    Private Sub aModifyContractRowsData_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aModifyContractRowsData.Execute
+
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractRowsModifyData As ContractRowsModifyData = e.PopupWindow.View.SelectedObjects(0)
+        Dim _ArrayList As ArrayList = New ArrayList()
+        Dim _uow_lock As New UnitOfWork(_ocur.Session.DataLayer)
+        Dim _User As DevExpress.Persistent.BaseImpl.User = _ocur.GetObject(TryCast(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User))
+        Try
+            Dim _ContractRows As ContractRows
+            For Each _ContractRows In e.SelectedObjects
+                If Not LockingModule.LockObject(_uow_lock, GetType(ContractRows), _ContractRows.Oid.ToString(), _User) Then
+                    Dim _LockingObject As LockingObject = _ocur.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(ContractRows).Name + "-" + _ContractRows.Oid.ToString()))
+                    _ArrayList.Add(_ContractRows)
+                End If
+            Next
+
+            If _ArrayList.Count = 0 Then
+                For Each _ContractRows In e.SelectedObjects
+                    If _ContractRowsModifyData.IsDateExecution Then _ContractRows.DateExecution = _ContractRowsModifyData.DateExecution
+                    If _ContractRowsModifyData.IsPaymentOption Then _ContractRows.PaymentOption = _ocur.GetObjectByKey(Of PaymentOption)(_ContractRowsModifyData.PaymentOption.Oid)
+                    If _ContractRowsModifyData.IsNettoPriceHUF Then _ContractRows.NettoPriceHUF = _ContractRowsModifyData.NettoPriceHUF
+                    If _ContractRowsModifyData.IsNettoPriceDEV Then _ContractRows.NettoPriceDEV = _ContractRowsModifyData.NettoPriceDEV
+                    If _ContractRowsModifyData.IsDescription Then _ContractRows.Description = _ContractRowsModifyData.Description
+                    If _ContractRowsModifyData.IsShortName Then _ContractRows.ShortName = _ContractRowsModifyData.ShortName
+                    If _ContractRowsModifyData.IsInvoicePeriod Then _ContractRows.InvoicePeriod = _ContractRowsModifyData.InvoicePeriod
+                    If _ContractRowsModifyData.IsVAT = True Then _ContractRows.VAT = _ocur.GetObjectByKey(Of VAT)(_ContractRowsModifyData.VAT.Oid)
+                    If _ContractRowsModifyData.IsJobNumberObjects Then _ContractRows.JobNumberObjects = _ocur.GetObjectByKey(Of JobNumberObjects)(_ContractRowsModifyData.JobNumberObjects.Oid)
+                    If _ContractRowsModifyData.IsUniqueObjects Then _ContractRows.UniqueObjects = _ocur.GetObjectByKey(Of UniqueObjects)(_ContractRowsModifyData.UniqueObjects.Oid)
+                    If _ContractRowsModifyData.IsControlling Then _ContractRows.Controlling = _ocur.GetObjectByKey(Of Controlling)(_ContractRowsModifyData.Controlling.Oid)
+                    If _ContractRowsModifyData.IsCostHolder Then _ContractRows.CostHolder = _ocur.GetObjectByKey(Of CostHolder)(_ContractRowsModifyData.CostHolder.Oid)
+                Next
+                _ocur.CommitChanges()
+            End If
+
+            If Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController).RefreshAction.Enabled Then
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController).RefreshAction.DoExecute()
+            End If
+            ' View.Refresh()
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            If _ArrayList.Count > 0 Then
+                Dim ModifyError As String = "Objektum(ok) zárolva van(nak) :" + vbNewLine + vbNewLine
+
+                For Each item As ContractRows In _ArrayList
+                    ModifyError += item.Contracts.DocumentNumber.ToString() + " " + item.ShortName.ToString() + vbNewLine
+                Next
+                ModifyError += vbNewLine + "Ezért a csoportos módosítás nem lett végrehajtva!"
+
+                Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")
+                MsgBox(String.Format(ModifyError), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title)
+
+            End If
+            For Each _ContractRows In e.SelectedObjects
+                LockingModule.UnLockObject(_uow_lock, GetType(ContractRows), _ContractRows.Oid.ToString(), _User)
+            Next
+        End Try
+    End Sub
+
+    Private Sub aConnectContractRowToInvoiceRow_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aConnectContractRowToInvoiceRow.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _ContractRows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows)
+        Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(InvoiceRows))
+
+        _CS.BeginUpdateCriteria()
+        _CS.Criteria.Add("Criteria", CriteriaOperator.Parse("isnull(ContractRows)=True and InvoiceHeader.CustomersFrom.Oid=? and InvoiceHeader.Customers.Oid=? and InvoiceHeader.IsEditable=False and InvoiceHeader.IsStorno=False and InvoiceHeader.IsProforma=False", _
+                                                            _ContractRows.Contracts.CustomersFrom.Oid, _ContractRows.Contracts.Customers.Oid))
+        _CS.EndUpdateCriteria()
+
+        e.View = Application.CreateListView("InvoiceRows_ListView_ContractRows", _CS, False)
+
+    End Sub
+    Private Sub aConnectContractRowToInvoiceRow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aConnectContractRowToInvoiceRow.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractRows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows)
+        Dim _InvoiceRows As InvoiceRows = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceRows))
+
+        If _InvoiceRows IsNot Nothing Then
+            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+            _InvoiceRows.ContractRows = _ContractRows
+            _ContractRows.InvoiceRows = _InvoiceRows
+            _ocur.CommitChanges()
+
+            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        End If
+    End Sub
+
+    Private Sub aSyncImmovables_Execute(sender As Object, e As SimpleActionExecuteEventArgs)
+        'Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        'Dim _ContractRows_Collection As New XPCollection(Of ContractRows)(_onew.Session, CriteriaOperator.Parse("isnull(UniqueObjects)=False"))
+        'Dim _ContractRows As ContractRows
+
+        'Dim _Apartments As Apartments
+        'Dim _Garages As Garages
+        'Dim _Offices As Offices
+        'Dim _Container As Container
+
+        'RaiseEvent InitWork(1, 1, _ContractRows_Collection.Count)
+
+        'For Each _ContractRows In _ContractRows_Collection
+        '    RaiseEvent DoWork()
+        '    _Apartments = _onew.FindObject(Of Apartments)(CriteriaOperator.Parse("UniqueObjects=?", _ContractRows.UniqueObjects))
+        '    If _Apartments IsNot Nothing Then
+        '        _ContractRows.Apartments = _Apartments
+        '    End If
+
+        '    _Garages = _onew.FindObject(Of Garages)(CriteriaOperator.Parse("UniqueObjects=?", _ContractRows.UniqueObjects))
+        '    If _Garages IsNot Nothing Then
+        '        _ContractRows.Garages = _Garages
+        '    End If
+
+        '    _Offices = _onew.FindObject(Of Offices)(CriteriaOperator.Parse("UniqueObjects=?", _ContractRows.UniqueObjects))
+        '    If _Offices IsNot Nothing Then
+        '        _ContractRows.Offices = _Offices
+        '    End If
+
+        '    _Container = _onew.FindObject(Of Container)(CriteriaOperator.Parse("UniqueObjects=?", _ContractRows.UniqueObjects))
+        '    If _Container IsNot Nothing Then
+        '        _ContractRows.Container = _Container
+        '    End If
+        '    _onew.CommitChanges()
+        'Next
+        'RaiseEvent FinalWork
+
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate.vb

@@ -0,0 +1,280 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.Security
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+'<EditorStateRule("Hide COC when PartnerType=0", "COC_ReportHeader;COC_ReportFooter;COC_ReportData;COC_NumberGenerator", EditorState.Hidden, "PartnerType=0", ViewType.DetailView)> _
+'<EditorStateRule("Hide InvoiceType when PartnerType=1", "InvoiceType;InvoiceTypeAdvanced;InvoiceTypeCustomRate", EditorState.Hidden, "PartnerType=1", ViewType.DetailView)> _
+'<Appearance("Hide ContractTemplate-IsCRM;IsProducts;IsImmovables when PartnerType=1", AppearanceItemType.ViewItem, "PartnerType=1", TargetItems:="IsCRM;IsProducts;IsImmovables", visibility:=Editors.ViewItemVisibility.Hide)> _
+
+<DefaultClassOptions()> _
+<NavigationItem("Contracts")> _
+<Appearance("Hide COC when PartnerType=0", TargetItems:="COC_ReportHeader;COC_ReportFooter;COC_ReportData;COC_NumberGenerator", Criteria:="PartnerType=0", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide InvoiceType when PartnerType=1", TargetItems:="InvoiceType;InvoiceTypeAdvanced;InvoiceTypeCustomRate", Criteria:="PartnerType=1", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Disable ContractTemplate-PartnerType when PartnerType<>-1", AppearanceItemType.ViewItem, "PartnerType<>-1", TargetItems:="PartnerType", Enabled:=False)> _
+<Appearance("Disable ContractTemplate-CustomersFrom when IsNull(CustomersFrom)=False", AppearanceItemType.ViewItem, "IsNull(CustomersFrom)=False", TargetItems:="CustomersFrom", Enabled:=False)> _
+<Appearance("Hide ContractTemplate-IsTechnical when PartnerType=0", AppearanceItemType.ViewItem, "PartnerType=0", TargetItems:="IsTechnical", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide ContractTemplate-Controlling when IsProducts=False", AppearanceItemType.ViewItem, "IsProducts=False", TargetItems:="Controlling", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class ContractTemplate 'Szerzõdési sablonok
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom
+    Private _ShortName As String 'Megnevezés
+    Private _CreatedBy As User ' Ki csinálta a szerzõdési sablont
+    Private _PartnerType As ePartnerType = -1 'Szállítói vagy vevõi a szerzõdés
+    Private _DocumentBody As String 'Dokumentum törzs
+    Private _NumberGenerator As NumberGenerator 'Sorszám generálása
+    Private _COC_ReportHeader As String 'Teljesítési igazolás fejléc sablon
+    Private _COC_ReportFooter As String 'Teljesítési igazolás lábléc sablon
+    Private _COC_ReportData As ReportData 'Teljesítési igazolás nyomtatvány
+    Private _COC_NumberGenerator As NumberGenerator 'Teljesítési igazolás szigorú sorszáma
+    Private _InvoiceType As InvoiceType 'Ha vevõi a szerzõdés akkor milyen a kimenõ számla tipusa
+    Private _InvoiceTypeAdvanced As InvoiceType 'Ha vevõi a szerzõdés akkor milyen az elõleg vagy foglaló számla tipusa
+    Private _InvoiceTypeCustomRate As InvoiceType 'Egyéb bekérõ dijakhoz számla szerû dolgok
+    Private _IsTechnical As Boolean = False 'Technikai szerződés
+    Private _IsCRM As Boolean = False 'CRM tipusú szerződés
+    Private _IsProducts As Boolean = False 'Termékes FIFO szerződési sor
+    Private _IsImmovables As Boolean = False 'Ingatlanos szerződési tipus
+    Private _IsAPCSheet As Boolean 'Mezőgazdasági termeltéshez kapcsolódó sablon
+    Private _Rule5DMatrix As Rule5DMatrix
+    Private _Controlling As Controlling
+    Private _ContractsProperties As String
+    Private _APCSheetByProductsProperties As String
+    Private _ReportData As ReportData 'Szerződés nyomtatvány, amit ki lehet nyomtatni.
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        If Not SecuritySystem.CurrentUser Is Nothing Then
+            Dim currentUser As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+            _CreatedBy = currentUser
+        End If
+        IsCRM = False
+        IsProducts = False
+        IsTechnical = False
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Not IsDeleted Then
+            If Me.IsTechnical = True Then
+                Dim _ContractTemplate As ContractTemplate = Session.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("IsTechnical=? AND CustomersFrom=?", True, Me.CustomersFrom))
+
+                If _ContractTemplate.Oid.ToString() <> Me.Oid.ToString() Then
+                    '---------------------------TESZT MIATT---------------------------------------->>>
+                    Throw New Exception("*Adott saját céghez csak egy technikai szerzõdés sablon tartozhat!")
+                    '---------------------------TESZT MIATT----------------------------------------<<<
+                End If
+            End If
+        End If
+    End Sub
+    <RuleRequiredField("RuleRequiredField for CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("RuleRequiredField for ContratctTemplate.ShortName", DefaultContexts.Save)> _
+    Public Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+
+    Public Property CreatedBy() As User
+        Get
+            Return _CreatedBy
+        End Get
+        Set(ByVal value As User)
+            SetPropertyValue("CreatedBy", _CreatedBy, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    <RuleValueComparison("ContractTemplate-ePartnerType <>-1", DefaultContexts.Save, ValueComparisonType.NotEquals, ePartnerType.eNotSet)> _
+    Property PartnerType() As ePartnerType
+        Get
+            Return _PartnerType
+        End Get
+        Set(ByVal value As ePartnerType)
+            SetPropertyValue("PartnerType", _PartnerType, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property DocumentBody() As String
+        Get
+            Return _DocumentBody
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentBody", _DocumentBody, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContractTemplate-NumberGenerator", DefaultContexts.Save)> _
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(ByVal value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property COC_ReportHeader As String
+        Get
+            Return _COC_ReportHeader
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("COC_ReportHeader", _COC_ReportHeader, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property COC_ReportFooter As String
+        Get
+            Return _COC_ReportFooter
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("COC_ReportFooter", _COC_ReportFooter, value)
+        End Set
+    End Property
+    Property COC_ReportData As ReportData
+        Get
+            Return _COC_ReportData
+        End Get
+        Set(ByVal value As ReportData)
+            SetPropertyValue("COC_ReportData", _COC_ReportData, value)
+        End Set
+    End Property
+    Property COC_NumberGenerator As NumberGenerator
+        Get
+            Return _COC_NumberGenerator
+        End Get
+        Set(ByVal value As NumberGenerator)
+            SetPropertyValue("COC_NumberGenerator", _COC_NumberGenerator, value)
+        End Set
+    End Property
+    <RuleRequiredField("InvoiceType", DefaultContexts.Save, targetcriteria:="PartnerType=0")> _
+    Property InvoiceType As InvoiceType
+        Get
+            Return _InvoiceType
+        End Get
+        Set(ByVal value As InvoiceType)
+            SetPropertyValue("InvoiceType", _InvoiceType, value)
+        End Set
+    End Property
+    Property InvoiceTypeAdvanced As InvoiceType
+        Get
+            Return _InvoiceTypeAdvanced
+        End Get
+        Set(ByVal value As InvoiceType)
+            SetPropertyValue("InvoiceTypeAdvanced", _InvoiceTypeAdvanced, value)
+        End Set
+    End Property
+    Property InvoiceTypeCustomRate As InvoiceType
+        Get
+            Return _InvoiceTypeCustomRate
+        End Get
+        Set(ByVal value As InvoiceType)
+            SetPropertyValue("InvoiceTypeCustomRate", _InvoiceTypeCustomRate, value)
+        End Set
+    End Property
+    Property IsTechnical As Boolean
+        Get
+            Return _IsTechnical
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsTechnical", _IsTechnical, value)
+        End Set
+    End Property
+    Property IsCRM As Boolean
+        Get
+            Return _IsCRM
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsCRM", _IsCRM, value)
+        End Set
+    End Property
+    Property IsImmovables As Boolean
+        Get
+            Return _IsImmovables
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsImmovables", _IsImmovables, value)
+        End Set
+    End Property
+    Property IsAPCSheet As Boolean
+        Get
+            Return _IsAPCSheet
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsAPCSheet", _IsAPCSheet, value)
+        End Set
+    End Property
+    Property Rule5DMatrix As Rule5DMatrix
+        Get
+            Return _Rule5DMatrix
+        End Get
+        Set(value As Rule5DMatrix)
+            SetPropertyValue("Rule5DMatrix", _Rule5DMatrix, value)
+        End Set
+    End Property
+    Property IsProducts As Boolean
+        Get
+            Return _IsProducts
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsProducts", _IsProducts, 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
+    <NonPersistent()> _
+    <VisibleInLookupListView(False)> _
+    <VisibleInListView(False)> _
+    Property ContractsProperties As String
+        Get
+            Return _ContractsProperties
+        End Get
+        Set(value As String)
+            SetPropertyValue("ContractsProperties", _ContractsProperties, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInLookupListView(False)> _
+    <VisibleInListView(False)> _
+    Property APCSheetByProductsProperties As String
+        Get
+            Return _APCSheetByProductsProperties
+        End Get
+        Set(value As String)
+            SetPropertyValue("APCSheetByProductsProperties", _APCSheetByProductsProperties, value)
+        End Set
+    End Property
+    Property ReportData As ReportData
+        Get
+            Return _ReportData
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData", _ReportData, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate_VC.Designer.vb

@@ -0,0 +1,32 @@
+Partial Class ContractTemplate_VC
+
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+		MyClass.New()
+
+		'Required for Windows.Forms Class Composition Designer support
+		Container.Add(Me)
+
+	End Sub
+
+	'Component overrides dispose to clean up the component list.
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+		If disposing AndAlso components IsNot Nothing Then
+			components.Dispose()
+		End If
+		MyBase.Dispose(disposing)
+	End Sub
+
+	'Required by the Component Designer
+	Private components As System.ComponentModel.IContainer
+
+	'NOTE: The following procedure is required by the Component Designer
+	'It can be modified using the Component Designer.
+	'Do not modify it using the code editor.
+	<System.Diagnostics.DebuggerStepThrough()> _
+	Private Sub InitializeComponent()
+
+    End Sub
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate_VC.resx

@@ -0,0 +1,123 @@
+<?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="$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/Contract/ContractTemplate_VC.vb

@@ -0,0 +1,20 @@
+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
+
+Public Class ContractTemplate_VC
+	Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Contracts.vb

@@ -0,0 +1,519 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.Security
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+Public Enum State
+    <ImageName("certificate_add")> Preparation = 0 'Előkészítés alatt
+    <ImageName("certificate_new")> Ready = 1 'Aláírásra kész
+    <ImageName("certificate_ok")> Signed = 2 'Aláírt
+    <ImageName("certificate_delete")> Terminating = 3 'Felmondás alatt
+    <ImageName("certificate_broken")> Closed = 4 'Lezárt szerződés
+    <ImageName("certificate_warning")> Waiting = 5 'Felfüggesztett, várakozik valamire
+End Enum
+Public Enum eDayOfWeek
+    eMonday = 1
+    eTuesday = 2
+    eWednesday = 3
+    eThursday = 4
+    eFriday = 5
+    eSaturday = 6
+    eSunday = 7
+End Enum
+Public Enum eDayOfMonth
+    eLastDay = -1
+    e1 = 1
+    e2 = 2
+    e3 = 3
+    e4 = 4
+    e5 = 5
+    e6 = 6
+    e7 = 7
+    e8 = 8
+    e9 = 9
+    e10 = 10
+    e11 = 11
+    e12 = 12
+    e13 = 13
+    e14 = 14
+    e15 = 15
+    e16 = 16
+    e17 = 17
+    e18 = 18
+    e19 = 19
+    e20 = 20
+    e21 = 21
+    e22 = 22
+    e23 = 23
+    e24 = 24
+    e25 = 25
+    e26 = 26
+    e27 = 27
+    e28 = 28
+    e29 = 29
+    e30 = 30
+    e31 = 31
+End Enum
+Public Enum eActionFrequency
+    eDaily = 0 'Minden nap
+    eWeekly = 1 '-- Minden héten
+    eTwoWeekly = 5 '-- Minen második héten
+    eMonthly = 2 ' -- Minden hónapban
+    eQuarter = 3 '-- Minden negyedévben
+    eYear = 4 '-- Minden évben
+End Enum
+Public Enum eContractRowsType
+    <ImageName("")> eFix = 0 'Fix számlázandó sor
+    <ImageName("")> eMileStone = 1 'Fix számlázandó, de meg kell adni számlázáskor a teljesítés dátumát
+    <ImageName("")> eVariable = 2 ' Változó érték, a számlázás előtt meg kell adni és lehet kézileg módosítani
+    <ImageName("")> eAdvance = 3 ' Előleg sortípus, előleg számla kiállításához
+    <ImageName("")> eCustomRate = 4 'Dijbekérő !!!
+End Enum
+Public Enum eDefinite
+    eFixedTerm = 0 'Határozott időtartamú
+    eIndefinite = 1 'Határozatlan időtartamú
+End Enum
+
+'<EditorStateRuleAttribute("Disable ContractTemplate", "ContractTemplate", EditorState.Disabled, "(IsNull(ContractTemplate))=False", ViewType.DetailView)> _
+'<EditorStateRuleAttribute("Hide DateClosed", "DateClosed", EditorState.Hidden, "State != 4", ViewType.DetailView)> _
+'<EditorStateRuleAttribute("Hide DateWaiting", "DateWaiting", EditorState.Hidden, "State != 5", ViewType.DetailView)> _
+'<EditorStateRuleAttribute("Hide DateTerminating", "DateTerminating", EditorState.Hidden, "State != 3", ViewType.DetailView)> _
+
+<DefaultClassOptions()> _
+<NavigationItem("Contracts")> _
+<DefaultProperty("DisplayName")> _
+<FileAttachment("File")> _
+<Appearance("Disable ContractTemplate", TargetItems:="ContractTemplate", Criteria:="(IsNull(ContractTemplate))=False", Enabled:=False, Context:="DetailView")> _
+<Appearance("Hide DateClosed", TargetItems:="DateClosed", Criteria:="State != 4", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide DateWaiting", TargetItems:="DateWaiting", Criteria:="State != 5", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide DateTerminating", TargetItems:="DateTerminating", Criteria:="State != 3", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide BankInformation, CurrencyName_Invoice when ContractTemplate.PartnerType=1", AppearanceItemType.ViewItem, "ContractTemplate.PartnerType=1", TargetItems:="BankInformation;CurrencyName_Invoice", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide ContractRows;AuditTrail property when DocumentNumber is nothing", AppearanceItemType.ViewItem, "IsNull(DocumentNumber)=True", TargetItems:="ContractRows;AuditTrail", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable Contracts-DocumentBody when IsNull(DocumentNumber)=True", AppearanceItemType.ViewItem, "IsNull(DocumentNumber)=True", TargetItems:="DocumentNumber", Enabled:=False)> _
+<Appearance("Disable Contracts-CustomersFrom when is not nothing", AppearanceItemType.ViewItem, "IsNull(CustomersFrom)=False", TargetItems:="CustomersFrom", Enabled:=False)> _
+<Appearance("Disable Contracts-Customers when is not nothing", AppearanceItemType.ViewItem, "IsNull(Customers)=False", TargetItems:="Customers", Enabled:=False)> _
+<Appearance("Disable CRM_Opportunities,OrderInAcknowledgementHeader, OfferInHeader when ContractTemplate.IsCRM=False", AppearanceItemType.ViewItem, "ContractTemplate.IsCRM=False", TargetItems:="CRM_Opportunities;OrderInAcknowledgementHeader;OfferInHeader", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable CRMEstate_Opportunity_Immovables, DatePreContractSigned, DateWaiting, DateTerminating when ContractTemplate.IsImmovables=False", AppearanceItemType.ViewItem, "ContractTemplate.IsImmovables=False", TargetItems:="CRMEstate_Opportunity_Immovables;DatePreContractSigned;DateWaiting;DateTerminating", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable Contract any property when State<>0", AppearanceItemType.ViewItem, "State<>0", TargetItems:="CustomersFrom;Customers;DateCreated;" & _
+    "DatePreContractSigned;DateClosed;DateWaiting;DateExecution;DateExpectClose;ContractTemplate;State;DocumentNumber;ObjectCreated;" & _
+    "UserCreated;CurrencyName;CurrencyName_Invoice;BankInformation;JobNumberObjects;UniqueObjects;ShortName;HRResponsible;CRMEstate_Opportunity_Immovables;" & _
+    "CRM_Opportunities;OfferInHeader;OrderInAcknowledgementHeader;Definite;TerminateDay", Enabled:=False)> _
+<Appearance("Disable Contracts-File when State<>0 and State<>1", AppearanceItemType.ViewItem, "State<>0 AND State<>1", TargetItems:="File", Enabled:=False)> _
+Public Class Contracts 'Szerződések
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom 'Saját cég
+    Private _Customers As Customers 'Partner
+    Private _ContractGroup As ContractGroup
+    Private _DateCreated As Date 'Aláírás dátuma
+    Private _DatePreContractSigned As Date 'Előszerződés aláírásának dátuma
+    Private _DateClosed As Date 'Szerződés lezárás dátuma
+    Private _DateWaiting As Date 'Felfüggesztés dátuma
+    Private _DateTerminating As Date 'Felmondás dátuma
+    Private _DateExecution As Date 'Hatálybalépés dátuma
+    Private _DateExpectClose As Date 'Várható lezárás dátuma
+    Private _ContractTemplate As ContractTemplate 'Szerződési sablon
+    Private _File As FileData ' Csatolt fájl
+    Private _State As State = State.Preparation
+    Private _DocumentNumber As String
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _CurrencyName As CurrencyName 'A szerződés deviza neme
+    Private _CurrencyName_Invoice As CurrencyName 'A vevői szerződéshez kapcsolódó számla deviza nem
+    Private _BankInformation As BankInformation 'A vevői szerződéshez kapcsolódó számlára felkerülő bankszámlaszám SAJÁT CÉG!!!
+    Private _CustomerBankAccounts As CustomerBankAccounts 'ÜGYFÉL bankszámla
+    Private _DocumentBody As String
+    Private _JobNumberObjects As JobNumberObjects 'Munkaszám, project
+    Private _UniqueObjects As UniqueObjects 'Egyedi azonosító
+    Private _ShortName As String ' A szerződés tárgya
+    Private _HRResponsible As HRPerson 'A szerződés felelőse
+    Private _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables 'Milyen ingatlanértékesítéshez tartozik
+    Private _CRM_Opportunities As CRM_Opportunities 'Milyen CRM ügyhöz tartozik a szerződés
+    Private _OfferInHeader As OfferInHeader 'Bejövő  ajánlat
+    Private _OfferOutHeader As OfferOutHeader
+    Private _OrderInAcknowledgementHeader As OrderInAcknowledgementHeader 'Kimenő rendelés visszaigazolása
+
+    Private _Definite As eDefinite 'Határozott vagy határozatlan időtartamú
+    Private _TerminateDay As Long 'Felmondási nap, ha határozatlan
+
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If String.IsNullOrEmpty(DocumentNumber) Then
+            If ContractTemplate IsNot Nothing Then
+                If ContractTemplate.NumberGenerator IsNot Nothing Then
+                    _DocumentNumber = ContractTemplate.NumberGenerator.GetNewNumber(ContractTemplate.NumberGenerator)
+                End If
+            End If
+        End If
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        CurrencyName = Session.FindObject(Of CurrencyName)(1, CriteriaOperator.Parse("ShortName='HUF'"))
+    End Sub
+    <RuleRequiredField("Contracts-CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom() As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("Contracts-Customers", DefaultContexts.Save)> _
+    Property Customers() As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    
+    Property ContractGroup As ContractGroup
+        Get
+            Return _ContractGroup
+        End Get
+        Set(value As ContractGroup)
+            SetPropertyValue("ContractGroup", _ContractGroup, value)
+        End Set
+    End Property
+    Property DateCreated() As Date
+        Get
+            Return _DateCreated
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateCreated", _DateCreated, value)
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property DateCreated_ShortDate As String
+        Get
+            Return String.Format(DateCreated, "Short Date")
+        End Get
+    End Property
+    Property DatePreContractSigned As Date
+        Get
+            Return _DatePreContractSigned
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DatePreContractSigned", _DatePreContractSigned, value)
+        End Set
+    End Property
+    Property DateClosed As Date
+        Get
+            Return _DateClosed
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateClosed", _DateClosed, value)
+        End Set
+    End Property
+    Property DateWaiting As Date
+        Get
+            Return _DateWaiting
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateWaiting", _DateWaiting, value)
+        End Set
+    End Property
+    Property DateTerminating As Date
+        Get
+            Return _DateTerminating
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateTerminating", _DateTerminating, value)
+        End Set
+    End Property
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property DateExpectClose As Date
+        Get
+            Return _DateExpectClose
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExpectClose", _DateExpectClose, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    <RuleRequiredField("Contracts.ContractTemplate", "aMarkAsReady_Context")> _
+    <DataSourceCriteria("CustomersFrom='@This.CustomersFrom' And IsTechnical = False")> _
+    Property ContractTemplate() As ContractTemplate
+        Get
+            Return _ContractTemplate
+        End Get
+        Set(ByVal value As ContractTemplate)
+            SetPropertyValue("ContractTemplate", _ContractTemplate, value)
+        End Set
+    End Property
+    <Aggregated()> _
+    <ExpandObjectMembers(ExpandObjectMembers.Never)>
+    Property File() As FileData
+        Get
+            Return _File
+        End Get
+        Set(ByVal value As FileData)
+            SetPropertyValue("File", _File, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property DocumentNumber() As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, 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
+    <ImmediatePostData(True)> _
+    <RuleRequiredField("Contracts.CurrencyName", DefaultContexts.Save, TargetCriteria:="ContractTemplate.PartnerType = 1")> _
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property CurrencyName_Invoice As CurrencyName
+        Get
+            Return _CurrencyName_Invoice
+        End Get
+        Set(value As CurrencyName)
+            SetPropertyValue("CurrencyName_Invoice", _CurrencyName_Invoice, value)
+        End Set
+    End Property
+    <DataSourceProperty("ContractsBankInformation")> _
+    Property BankInformation As BankInformation
+        Get
+            Return _BankInformation
+        End Get
+        Set(ByVal value As BankInformation)
+            SetPropertyValue("CustomerBankAccounts", _BankInformation, value)
+        End Set
+    End Property
+    <DataSourceCriteria("Customers='@This.Customers'")> _
+    Property CustomerBankAccounts As CustomerBankAccounts
+        Get
+            Return _CustomerBankAccounts
+        End Get
+        Set(value As CustomerBankAccounts)
+            SetPropertyValue("CustomerBankAccounts", _CustomerBankAccounts, value)
+        End Set
+    End Property
+    Property State() As State
+        Get
+            Return _State
+        End Get
+        Set(ByVal value As State)
+            SetPropertyValue("State", _State, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property DocumentBody() As String
+        Get
+            If Session.IsNewObject(Me) = True Then
+                If Not _ContractTemplate Is Nothing Then
+                    _DocumentBody = _ContractTemplate.DocumentBody
+                End If
+            End If
+            Return _DocumentBody
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentBody", _DocumentBody, 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
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+        End Set
+    End Property
+    <RuleRequiredField("Contract-ShortName", DefaultContexts.Save)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property HRResponsible As HRPerson
+        Get
+            Return _HRResponsible
+        End Get
+        Set(ByVal value As HRPerson)
+            SetPropertyValue("HRResponsible", _HRResponsible, value)
+        End Set
+    End Property
+    Property CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
+        Get
+            Return _CRMEstate_Opportunity_Immovables
+        End Get
+        Set(value As CRMEstate_Opportunity_Immovables)
+            SetPropertyValue("CRMEstate_Opportunity_Immovables", _CRMEstate_Opportunity_Immovables, value)
+        End Set
+    End Property
+    <Association("CRM_Opportunities-Contract", GetType(CRM_Opportunities))> _
+    <DataSourceCriteria("CRM_Opportunities.CustomersFrom='@This.CustomersFrom' AND Customers='@This.Customers'")> _
+    Property CRM_Opportunities As CRM_Opportunities
+        Get
+            Return _CRM_Opportunities
+        End Get
+        Set(value As CRM_Opportunities)
+            SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value)
+        End Set
+    End Property
+    Property OfferInHeader As OfferInHeader
+        Get
+            Return _OfferInHeader
+        End Get
+        Set(value As OfferInHeader)
+            SetPropertyValue("OfferInHeader", _OfferInHeader, value)
+        End Set
+    End Property
+    Property OfferOutHeader As OfferOutHeader
+        Get
+            Return _OfferOutHeader
+        End Get
+        Set(value As OfferOutHeader)
+            SetPropertyValue("OfferOutHeader", _OfferOutHeader, value)
+        End Set
+    End Property
+    Property OrderInAcknowledgementHeader As OrderInAcknowledgementHeader
+        Get
+            Return _OrderInAcknowledgementHeader
+        End Get
+        Set(value As OrderInAcknowledgementHeader)
+            SetPropertyValue("OrderInAcknowledgementHeader", _OrderInAcknowledgementHeader, value)
+        End Set
+    End Property
+
+    Property Definite As eDefinite
+        Get
+            Return _Definite
+        End Get
+        Set(value As eDefinite)
+            SetPropertyValue("Definite", _Definite, value)
+        End Set
+    End Property
+
+    Property TerminateDay As Long
+        Get
+            Return _TerminateDay
+        End Get
+        Set(value As Long)
+            SetPropertyValue("TerminateDay", _TerminateDay, value)
+        End Set
+    End Property
+    ReadOnly Property DateEstimatedTermination As Date
+        Get
+            Return DateAdd(DateInterval.Day, TerminateDay, Now)
+        End Get
+    End Property
+    'Readonly
+    ReadOnly Property DisplayName() As String
+        Get
+            If Customers Is Nothing Then
+                Return DocumentNumber & ", " & ShortName
+            Else
+                Return DocumentNumber & ", " & Customers.FullName & ", " & ShortName
+            End If
+        End Get
+    End Property
+    <Aggregated(), Association("Contracts-DocumentFileData", GetType(DocumentFileData)), VisibleInListView(False)> _
+    ReadOnly Property DocumentFile() As XPCollection(Of DocumentFileData)
+        Get
+            Return GetCollection(Of DocumentFileData)("DocumentFile")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property AuditTrail() As XPCollection(Of AuditDataItemPersistent)
+        Get
+            Return AuditedObjectWeakReference.GetAuditTrail(Session, Me)
+        End Get
+    End Property
+    <Association("Contracts-ContractRows", GetType(ContractRows)), VisibleInListView(False)> _
+    ReadOnly Property ContractRows() As XPCollection(Of ContractRows)
+        Get
+            Return GetCollection(Of ContractRows)("ContractRows")
+        End Get
+    End Property
+    ReadOnly Property ContractsBankInformation As XPCollection(Of BankInformation)
+        Get
+            If Me.CustomersFrom IsNot Nothing Then
+                Dim _BankInformation_Collection As New XPCollection(Of BankInformation)(Session, CriteriaOperator.Parse("1=2"))
+
+                Dim _LiquidAssets_Collection As New XPCollection(Of LiquidAssets)(Session, CriteriaOperator.Parse("CustomerFrom=? AND LiquidAssetsType=1", Me.CustomersFrom))
+
+                For Each _LiquidAssets As LiquidAssets In _LiquidAssets_Collection
+                    Dim _BankInformation As BankInformation = Session.FindObject(Of BankInformation)(CriteriaOperator.Parse("LiquidAssests=?", _LiquidAssets))
+                    If _BankInformation IsNot Nothing Then
+                        _BankInformation_Collection.Add(_BankInformation)
+                    End If
+                Next
+
+                Return _BankInformation_Collection
+            Else
+                Return Nothing
+            End If
+        End Get
+    End Property
+    <Association("Contracts-ContractProductsCredit", GetType(ContractProductsCredit)), VisibleInListView(False), VisibleInLookupListView(False)> _
+       ReadOnly Property ContractProductsCredit As XPCollection(Of ContractProductsCredit)
+        Get
+            Return GetCollection(Of ContractProductsCredit)("ContractProductsCredit")
+        End Get
+    End Property
+End Class
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsRTF.vb

@@ -0,0 +1,20 @@
+Public Class ContractsRTF
+
+    Property [Sajátcég_Teljesnév] As String
+    Property [Sajátcég_Irányítószám] As String
+    Property [Sajátcég_Város] As String
+    Property [Sajátcég_Utca] As String
+    Property [Sajátcég_Ország] As String
+    Property [Sajátcég_Adószám] As String
+    Property [Sajátcég_Adószám_EU] As String
+
+    Property [Partner_Teljesnév] As String
+    Property [Partner_Irányítószám] As String
+    Property [Partner_Város] As String
+    Property [Partner_Utca] As String
+    Property [Partner_Ország] As String
+    Property [Partner_Adószám] As String
+    Property [Partner_Adószám_EU] As String
+
+    Property [Szerződés_Dokumentum_Sorszám] As String
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.Designer.vb

@@ -0,0 +1,416 @@
+Partial Class ContractsVC
+
+	<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.aCloneContractsRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aGenerateInvoicefromContractsRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCloneSelectedContracts = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aGenerateInvoicefromContractsRowsCustomRate = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aMarkAsReady = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aSendBackToEdit = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aMarkAsSigned = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aMarkAsClosed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aMarkAsWaiting = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aMarkAsTerminating_Old = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateFinalInvoiceFromContract = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aMergeContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aNewContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDivideContractRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aOpenCOCFromContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aOpenInvoiceFromContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aOpenRegistryInvoiceFromContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBackToEditableSignedContract = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aModifyContractData = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aDescriptionSelect = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aMarkAsTerminating = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aCloneContractsRows
+        '
+        Me.aCloneContractsRows.AcceptButtonCaption = Nothing
+        Me.aCloneContractsRows.CancelButtonCaption = Nothing
+        Me.aCloneContractsRows.Caption = "aClone Contracts Rows"
+        Me.aCloneContractsRows.Category = "ObjectsCreation"
+        Me.aCloneContractsRows.ConfirmationMessage = Nothing
+        Me.aCloneContractsRows.Id = "aCloneContractsRows"
+        Me.aCloneContractsRows.ImageName = Nothing
+        Me.aCloneContractsRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aCloneContractsRows.Shortcut = Nothing
+        Me.aCloneContractsRows.Tag = Nothing
+        Me.aCloneContractsRows.TargetObjectsCriteria = Nothing
+        Me.aCloneContractsRows.TargetViewId = ""
+        Me.aCloneContractsRows.ToolTip = Nothing
+        Me.aCloneContractsRows.TypeOfView = Nothing
+        '
+        'aGenerateInvoicefromContractsRows
+        '
+        Me.aGenerateInvoicefromContractsRows.AcceptButtonCaption = Nothing
+        Me.aGenerateInvoicefromContractsRows.CancelButtonCaption = Nothing
+        Me.aGenerateInvoicefromContractsRows.Caption = "Make invoices"
+        Me.aGenerateInvoicefromContractsRows.Category = "ObjectsCreation"
+        Me.aGenerateInvoicefromContractsRows.ConfirmationMessage = Nothing
+        Me.aGenerateInvoicefromContractsRows.Id = "aGenerateInvoicefromContractsRows"
+        Me.aGenerateInvoicefromContractsRows.ImageName = Nothing
+        Me.aGenerateInvoicefromContractsRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aGenerateInvoicefromContractsRows.Shortcut = Nothing
+        Me.aGenerateInvoicefromContractsRows.Tag = Nothing
+        Me.aGenerateInvoicefromContractsRows.TargetObjectsCriteria = Nothing
+        Me.aGenerateInvoicefromContractsRows.TargetViewId = ""
+        Me.aGenerateInvoicefromContractsRows.ToolTip = Nothing
+        Me.aGenerateInvoicefromContractsRows.TypeOfView = Nothing
+        '
+        'aCloneSelectedContracts
+        '
+        Me.aCloneSelectedContracts.AcceptButtonCaption = Nothing
+        Me.aCloneSelectedContracts.CancelButtonCaption = Nothing
+        Me.aCloneSelectedContracts.Caption = "aClone Selected Contracts"
+        Me.aCloneSelectedContracts.Category = "ObjectsCreation"
+        Me.aCloneSelectedContracts.ConfirmationMessage = Nothing
+        Me.aCloneSelectedContracts.Id = "aCloneSelectedContracts"
+        Me.aCloneSelectedContracts.ImageName = "Images.paragraph_clone"
+        Me.aCloneSelectedContracts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCloneSelectedContracts.Shortcut = Nothing
+        Me.aCloneSelectedContracts.Tag = Nothing
+        Me.aCloneSelectedContracts.TargetObjectsCriteria = Nothing
+        Me.aCloneSelectedContracts.TargetViewId = Nothing
+        Me.aCloneSelectedContracts.ToolTip = Nothing
+        Me.aCloneSelectedContracts.TypeOfView = Nothing
+        '
+        'aGenerateInvoicefromContractsRowsCustomRate
+        '
+        Me.aGenerateInvoicefromContractsRowsCustomRate.AcceptButtonCaption = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.CancelButtonCaption = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.Caption = "Make custom rate"
+        Me.aGenerateInvoicefromContractsRowsCustomRate.Category = "ObjectsCreation"
+        Me.aGenerateInvoicefromContractsRowsCustomRate.ConfirmationMessage = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.Id = "aGenerateInvoicefromContractsRowsCustomRate"
+        Me.aGenerateInvoicefromContractsRowsCustomRate.ImageName = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aGenerateInvoicefromContractsRowsCustomRate.Shortcut = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.Tag = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.TargetObjectsCriteria = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.TargetViewId = ""
+        Me.aGenerateInvoicefromContractsRowsCustomRate.ToolTip = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.TypeOfView = Nothing
+        '
+        'aMarkAsReady
+        '
+        Me.aMarkAsReady.Caption = "Mark As Ready"
+        Me.aMarkAsReady.Category = "RecordEdit"
+        Me.aMarkAsReady.ConfirmationMessage = "Do you really mark as ready this contract?"
+        Me.aMarkAsReady.Id = "aMarks as ready"
+        Me.aMarkAsReady.ImageName = Nothing
+        Me.aMarkAsReady.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aMarkAsReady.Shortcut = Nothing
+        Me.aMarkAsReady.Tag = Nothing
+        Me.aMarkAsReady.TargetObjectsCriteria = Nothing
+        Me.aMarkAsReady.TargetViewId = "Contracts_DetailView"
+        Me.aMarkAsReady.ToolTip = Nothing
+        Me.aMarkAsReady.TypeOfView = Nothing
+        '
+        'aSendBackToEdit
+        '
+        Me.aSendBackToEdit.Caption = "aSend Back To Edit"
+        Me.aSendBackToEdit.Category = "RecordEdit"
+        Me.aSendBackToEdit.ConfirmationMessage = "Do you really send back to edit this contract?"
+        Me.aSendBackToEdit.Id = "aSendBackToEdit"
+        Me.aSendBackToEdit.ImageName = Nothing
+        Me.aSendBackToEdit.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aSendBackToEdit.Shortcut = Nothing
+        Me.aSendBackToEdit.Tag = Nothing
+        Me.aSendBackToEdit.TargetObjectsCriteria = Nothing
+        Me.aSendBackToEdit.TargetViewId = "Contracts_DetailView"
+        Me.aSendBackToEdit.ToolTip = Nothing
+        Me.aSendBackToEdit.TypeOfView = Nothing
+        '
+        'aMarkAsSigned
+        '
+        Me.aMarkAsSigned.Caption = "aMark As Signed"
+        Me.aMarkAsSigned.Category = "RecordEdit"
+        Me.aMarkAsSigned.ConfirmationMessage = "Do you really mark as signed this contract?"
+        Me.aMarkAsSigned.Id = "aMarkAsSigned"
+        Me.aMarkAsSigned.ImageName = Nothing
+        Me.aMarkAsSigned.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aMarkAsSigned.Shortcut = Nothing
+        Me.aMarkAsSigned.Tag = Nothing
+        Me.aMarkAsSigned.TargetObjectsCriteria = Nothing
+        Me.aMarkAsSigned.TargetViewId = "Contracts_DetailView"
+        Me.aMarkAsSigned.ToolTip = Nothing
+        Me.aMarkAsSigned.TypeOfView = Nothing
+        '
+        'aMarkAsClosed
+        '
+        Me.aMarkAsClosed.Caption = "aMark As Closed"
+        Me.aMarkAsClosed.Category = "RecordEdit"
+        Me.aMarkAsClosed.ConfirmationMessage = "Do you really mark as closed this contract?"
+        Me.aMarkAsClosed.Id = "aMarkAsClosed"
+        Me.aMarkAsClosed.ImageName = Nothing
+        Me.aMarkAsClosed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aMarkAsClosed.Shortcut = Nothing
+        Me.aMarkAsClosed.Tag = Nothing
+        Me.aMarkAsClosed.TargetObjectsCriteria = Nothing
+        Me.aMarkAsClosed.TargetViewId = "Contracts_DetailView"
+        Me.aMarkAsClosed.ToolTip = Nothing
+        Me.aMarkAsClosed.TypeOfView = Nothing
+        '
+        'aMarkAsWaiting
+        '
+        Me.aMarkAsWaiting.Caption = "aMark As Waiting"
+        Me.aMarkAsWaiting.Category = "RecordEdit"
+        Me.aMarkAsWaiting.ConfirmationMessage = "Do you really mark as waiting this contract?"
+        Me.aMarkAsWaiting.Id = "aMarkAsWaiting"
+        Me.aMarkAsWaiting.ImageName = Nothing
+        Me.aMarkAsWaiting.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aMarkAsWaiting.Shortcut = Nothing
+        Me.aMarkAsWaiting.Tag = Nothing
+        Me.aMarkAsWaiting.TargetObjectsCriteria = Nothing
+        Me.aMarkAsWaiting.TargetViewId = "Contracts_DetailView"
+        Me.aMarkAsWaiting.ToolTip = Nothing
+        Me.aMarkAsWaiting.TypeOfView = Nothing
+        '
+        'aMarkAsTerminating_Old
+        '
+        Me.aMarkAsTerminating_Old.Caption = "aMarkAsTerminating_Old"
+        Me.aMarkAsTerminating_Old.Category = "RecordEdit"
+        Me.aMarkAsTerminating_Old.ConfirmationMessage = "Do you really terminating this contract?"
+        Me.aMarkAsTerminating_Old.Id = "aMarkAsTerminating_Old"
+        Me.aMarkAsTerminating_Old.ImageName = Nothing
+        Me.aMarkAsTerminating_Old.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aMarkAsTerminating_Old.Shortcut = Nothing
+        Me.aMarkAsTerminating_Old.Tag = Nothing
+        Me.aMarkAsTerminating_Old.TargetObjectsCriteria = Nothing
+        Me.aMarkAsTerminating_Old.TargetViewId = "Contracts_DetailView"
+        Me.aMarkAsTerminating_Old.ToolTip = Nothing
+        Me.aMarkAsTerminating_Old.TypeOfView = Nothing
+        '
+        'aCreateFinalInvoiceFromContract
+        '
+        Me.aCreateFinalInvoiceFromContract.AcceptButtonCaption = Nothing
+        Me.aCreateFinalInvoiceFromContract.CancelButtonCaption = Nothing
+        Me.aCreateFinalInvoiceFromContract.Caption = "aCreateFinalInvoice"
+        Me.aCreateFinalInvoiceFromContract.Category = "ObjectsCreation"
+        Me.aCreateFinalInvoiceFromContract.ConfirmationMessage = Nothing
+        Me.aCreateFinalInvoiceFromContract.Id = "aCreateFinalInvoiceFromContract"
+        Me.aCreateFinalInvoiceFromContract.ImageName = Nothing
+        Me.aCreateFinalInvoiceFromContract.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCreateFinalInvoiceFromContract.Shortcut = Nothing
+        Me.aCreateFinalInvoiceFromContract.Tag = Nothing
+        Me.aCreateFinalInvoiceFromContract.TargetObjectsCriteria = Nothing
+        Me.aCreateFinalInvoiceFromContract.TargetViewId = Nothing
+        Me.aCreateFinalInvoiceFromContract.ToolTip = Nothing
+        Me.aCreateFinalInvoiceFromContract.TypeOfView = Nothing
+        '
+        'aMergeContractRows
+        '
+        Me.aMergeContractRows.Caption = "Merge Contract Rows"
+        Me.aMergeContractRows.Category = "ObjectsCreation"
+        Me.aMergeContractRows.ConfirmationMessage = Nothing
+        Me.aMergeContractRows.Id = "aMergeContractRows"
+        Me.aMergeContractRows.ImageName = Nothing
+        Me.aMergeContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aMergeContractRows.Shortcut = Nothing
+        Me.aMergeContractRows.Tag = Nothing
+        Me.aMergeContractRows.TargetObjectsCriteria = Nothing
+        Me.aMergeContractRows.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll
+        Me.aMergeContractRows.TargetViewId = Nothing
+        Me.aMergeContractRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aMergeContractRows.ToolTip = Nothing
+        Me.aMergeContractRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aNewContractRows
+        '
+        Me.aNewContractRows.Caption = "aNewContractRows"
+        Me.aNewContractRows.Category = "ObjectsCreation"
+        Me.aNewContractRows.ConfirmationMessage = Nothing
+        Me.aNewContractRows.Id = "aNewContractRows"
+        Me.aNewContractRows.ImageName = Nothing
+        Me.aNewContractRows.Shortcut = Nothing
+        Me.aNewContractRows.Tag = Nothing
+        Me.aNewContractRows.TargetObjectsCriteria = Nothing
+        Me.aNewContractRows.TargetViewId = ""
+        Me.aNewContractRows.ToolTip = Nothing
+        Me.aNewContractRows.TypeOfView = Nothing
+        '
+        'aDivideContractRows
+        '
+        Me.aDivideContractRows.AcceptButtonCaption = Nothing
+        Me.aDivideContractRows.CancelButtonCaption = Nothing
+        Me.aDivideContractRows.Caption = "Divide Contract Rows"
+        Me.aDivideContractRows.Category = "ObjectsCreation"
+        Me.aDivideContractRows.ConfirmationMessage = Nothing
+        Me.aDivideContractRows.Id = "aDivideContractRows"
+        Me.aDivideContractRows.ImageName = Nothing
+        Me.aDivideContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aDivideContractRows.Shortcut = Nothing
+        Me.aDivideContractRows.Tag = Nothing
+        Me.aDivideContractRows.TargetObjectsCriteria = Nothing
+        Me.aDivideContractRows.TargetViewId = Nothing
+        Me.aDivideContractRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aDivideContractRows.ToolTip = Nothing
+        Me.aDivideContractRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aOpenCOCFromContractRows
+        '
+        Me.aOpenCOCFromContractRows.Caption = "Open COCFrom Contract Rows"
+        Me.aOpenCOCFromContractRows.Category = "View"
+        Me.aOpenCOCFromContractRows.ConfirmationMessage = Nothing
+        Me.aOpenCOCFromContractRows.Id = "aOpenCOCFromContractRows"
+        Me.aOpenCOCFromContractRows.ImageName = Nothing
+        Me.aOpenCOCFromContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aOpenCOCFromContractRows.Shortcut = Nothing
+        Me.aOpenCOCFromContractRows.Tag = Nothing
+        Me.aOpenCOCFromContractRows.TargetObjectsCriteria = Nothing
+        Me.aOpenCOCFromContractRows.TargetObjectType = GetType(SISBusiness.[Module].ContractRows)
+        Me.aOpenCOCFromContractRows.TargetViewId = Nothing
+        Me.aOpenCOCFromContractRows.ToolTip = Nothing
+        Me.aOpenCOCFromContractRows.TypeOfView = Nothing
+        '
+        'aOpenInvoiceFromContractRows
+        '
+        Me.aOpenInvoiceFromContractRows.Caption = "Open Invoice From Contract Rows"
+        Me.aOpenInvoiceFromContractRows.Category = "View"
+        Me.aOpenInvoiceFromContractRows.ConfirmationMessage = Nothing
+        Me.aOpenInvoiceFromContractRows.Id = "aOpenInvoiceFromContractRows"
+        Me.aOpenInvoiceFromContractRows.ImageName = Nothing
+        Me.aOpenInvoiceFromContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aOpenInvoiceFromContractRows.Shortcut = Nothing
+        Me.aOpenInvoiceFromContractRows.Tag = Nothing
+        Me.aOpenInvoiceFromContractRows.TargetObjectsCriteria = Nothing
+        Me.aOpenInvoiceFromContractRows.TargetObjectType = GetType(SISBusiness.[Module].ContractRows)
+        Me.aOpenInvoiceFromContractRows.TargetViewId = Nothing
+        Me.aOpenInvoiceFromContractRows.ToolTip = Nothing
+        Me.aOpenInvoiceFromContractRows.TypeOfView = Nothing
+        '
+        'aOpenRegistryInvoiceFromContractRows
+        '
+        Me.aOpenRegistryInvoiceFromContractRows.Caption = "Open Registry Invoice From Contract Rows"
+        Me.aOpenRegistryInvoiceFromContractRows.Category = "View"
+        Me.aOpenRegistryInvoiceFromContractRows.ConfirmationMessage = Nothing
+        Me.aOpenRegistryInvoiceFromContractRows.Id = "aOpenRegistryInvoiceFromContractRows"
+        Me.aOpenRegistryInvoiceFromContractRows.ImageName = Nothing
+        Me.aOpenRegistryInvoiceFromContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aOpenRegistryInvoiceFromContractRows.Shortcut = Nothing
+        Me.aOpenRegistryInvoiceFromContractRows.Tag = Nothing
+        Me.aOpenRegistryInvoiceFromContractRows.TargetObjectsCriteria = Nothing
+        Me.aOpenRegistryInvoiceFromContractRows.TargetObjectType = GetType(SISBusiness.[Module].ContractRows)
+        Me.aOpenRegistryInvoiceFromContractRows.TargetViewId = Nothing
+        Me.aOpenRegistryInvoiceFromContractRows.ToolTip = Nothing
+        Me.aOpenRegistryInvoiceFromContractRows.TypeOfView = Nothing
+        '
+        'aBackToEditableSignedContract
+        '
+        Me.aBackToEditableSignedContract.Caption = "aBackToEditableSignedContract"
+        Me.aBackToEditableSignedContract.Category = "RecordEdit"
+        Me.aBackToEditableSignedContract.ConfirmationMessage = Nothing
+        Me.aBackToEditableSignedContract.Id = "aBackToEditableSignedContract"
+        Me.aBackToEditableSignedContract.ImageName = Nothing
+        Me.aBackToEditableSignedContract.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBackToEditableSignedContract.Shortcut = Nothing
+        Me.aBackToEditableSignedContract.Tag = Nothing
+        Me.aBackToEditableSignedContract.TargetObjectsCriteria = Nothing
+        Me.aBackToEditableSignedContract.TargetObjectType = GetType(SISBusiness.[Module].Contracts)
+        Me.aBackToEditableSignedContract.TargetViewId = ""
+        Me.aBackToEditableSignedContract.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aBackToEditableSignedContract.ToolTip = Nothing
+        Me.aBackToEditableSignedContract.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aModifyContractData
+        '
+        Me.aModifyContractData.AcceptButtonCaption = Nothing
+        Me.aModifyContractData.CancelButtonCaption = Nothing
+        Me.aModifyContractData.Caption = "aModify Contract Data"
+        Me.aModifyContractData.ConfirmationMessage = Nothing
+        Me.aModifyContractData.Id = "aModifyContractData"
+        Me.aModifyContractData.ImageName = Nothing
+        Me.aModifyContractData.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aModifyContractData.Shortcut = Nothing
+        Me.aModifyContractData.Tag = Nothing
+        Me.aModifyContractData.TargetObjectsCriteria = Nothing
+        Me.aModifyContractData.TargetObjectType = GetType(SISBusiness.[Module].Contracts)
+        Me.aModifyContractData.TargetViewId = Nothing
+        Me.aModifyContractData.ToolTip = Nothing
+        Me.aModifyContractData.TypeOfView = Nothing
+        '
+        'aDescriptionSelect
+        '
+        Me.aDescriptionSelect.AcceptButtonCaption = Nothing
+        Me.aDescriptionSelect.CancelButtonCaption = Nothing
+        Me.aDescriptionSelect.Caption = "aDescription Select"
+        Me.aDescriptionSelect.Category = "aDescriptionSelect"
+        Me.aDescriptionSelect.ConfirmationMessage = Nothing
+        Me.aDescriptionSelect.Id = "aDescriptionSelect"
+        Me.aDescriptionSelect.ImageName = Nothing
+        Me.aDescriptionSelect.Shortcut = Nothing
+        Me.aDescriptionSelect.Tag = Nothing
+        Me.aDescriptionSelect.TargetObjectsCriteria = Nothing
+        Me.aDescriptionSelect.TargetObjectType = GetType(SISBusiness.[Module].ContractsRowsToInvoice)
+        Me.aDescriptionSelect.TargetViewId = Nothing
+        Me.aDescriptionSelect.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aDescriptionSelect.ToolTip = Nothing
+        Me.aDescriptionSelect.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aMarkAsTerminating
+        '
+        Me.aMarkAsTerminating.AcceptButtonCaption = Nothing
+        Me.aMarkAsTerminating.CancelButtonCaption = Nothing
+        Me.aMarkAsTerminating.Caption = "aMark As Terminating"
+        Me.aMarkAsTerminating.ConfirmationMessage = Nothing
+        Me.aMarkAsTerminating.Id = "aMarkAsTerminating"
+        Me.aMarkAsTerminating.ImageName = Nothing
+        Me.aMarkAsTerminating.Shortcut = Nothing
+        Me.aMarkAsTerminating.Tag = Nothing
+        Me.aMarkAsTerminating.TargetObjectsCriteria = Nothing
+        Me.aMarkAsTerminating.TargetObjectType = GetType(SISBusiness.[Module].Contracts)
+        Me.aMarkAsTerminating.TargetViewId = Nothing
+        Me.aMarkAsTerminating.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aMarkAsTerminating.ToolTip = Nothing
+        Me.aMarkAsTerminating.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+
+    End Sub
+    Friend WithEvents aCloneContractsRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aGenerateInvoicefromContractsRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCloneSelectedContracts As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aGenerateInvoicefromContractsRowsCustomRate As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aMarkAsReady As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aSendBackToEdit As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aMarkAsSigned As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aMarkAsClosed As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aMarkAsWaiting As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aMarkAsTerminating_Old As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateFinalInvoiceFromContract As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aDivideContractRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aMergeContractRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aOpenCOCFromContractRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aOpenInvoiceFromContractRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aOpenRegistryInvoiceFromContractRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aNewContractRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aBackToEditableSignedContract As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aModifyContractData As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aDescriptionSelect As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aMarkAsTerminating As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.resx

@@ -0,0 +1,186 @@
+<?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="aCloneContractsRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 758</value>
+  </metadata>
+  <metadata name="aGenerateInvoicefromContractsRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 719</value>
+  </metadata>
+  <metadata name="aCloneSelectedContracts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 680</value>
+  </metadata>
+  <metadata name="aGenerateInvoicefromContractsRowsCustomRate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aMarkAsReady.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 641</value>
+  </metadata>
+  <metadata name="aSendBackToEdit.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aMarkAsSigned.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 602</value>
+  </metadata>
+  <metadata name="aMarkAsClosed.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 563</value>
+  </metadata>
+  <metadata name="aMarkAsWaiting.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 524</value>
+  </metadata>
+  <metadata name="aMarkAsTerminating_Old.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 485</value>
+  </metadata>
+  <metadata name="aCreateFinalInvoiceFromContract.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 329</value>
+  </metadata>
+  <metadata name="aMergeContractRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 446</value>
+  </metadata>
+  <metadata name="aNewContractRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 407</value>
+  </metadata>
+  <metadata name="aDivideContractRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 368</value>
+  </metadata>
+  <metadata name="aOpenCOCFromContractRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 290</value>
+  </metadata>
+  <metadata name="aOpenInvoiceFromContractRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aOpenRegistryInvoiceFromContractRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aBackToEditableSignedContract.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aModifyContractData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aDescriptionSelect.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>665, 17</value>
+  </metadata>
+  <metadata name="aMarkAsTerminating.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>187, 758</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/Contract/DocumentFileData.vb

@@ -0,0 +1,33 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.Security
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class DocumentFileData
+    Inherits FileAttachmentBase
+    Protected _Contracts As Contracts
+    Private _DocumentFileData As DocumentFileData
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <Persistent(), Association("Contracts-DocumentFileData")> _
+    Public Property Contracts() As Contracts
+        Get
+            Return _Contracts
+        End Get
+        Set(ByVal value As Contracts)
+            SetPropertyValue("Contracts", _Contracts, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Enum/eContractRowsCOCState.vb

@@ -0,0 +1,17 @@
+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 eContractRowsCOCState
+    <ImageName("")> _
+    eNotCertificated = 0 'Nem teljesítési igazolt sor
+    <ImageName("document_certificate")> _
+    eCertificated = 1 'Teljesítési igazolt sor
+End Enum

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Enum/eContractRowsInvoiceState.vb

@@ -0,0 +1,18 @@
+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 eContractRowsInvoiceState
+    <ImageName("")> _
+    eNotInvoiced = 0 'Még ki nem számlázott sor
+    <ImageName("document_lock")> _
+    eInvoiced = 1 'Kiszámlázott sor
+End Enum

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Enum/eContractRowsRRFCState.vb

@@ -0,0 +1,17 @@
+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 eContractRowsRRFCState
+    <ImageName("")> _
+    eNotControlled = 0 'Nincs számla bontáshoz rendelve
+    <ImageName("books")> _
+    eControlled = 1 'Számla bontáshoz rendelve
+End Enum

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractCloneView.vb

@@ -0,0 +1,72 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.Security
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+<Appearance("Hide Customers when IsMultipleSelection = True", AppearanceItemType:="ViewItem", criteria:="IsMultipleSelection = True", targetitems:="Customers", Context:="DetailView", Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ContractsCloneView
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom ' Saját cég
+    Private _Customers As Customers ' Ügyfél
+    Private _ContractTemplate As ContractTemplate ' Szerződés sablon
+    Private _AreContractRowsClone As Boolean = False ' 
+    Private _IsMultipleSelection As Boolean = False
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <ImmediatePostData()> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    <DataSourceCriteria("CustomersFrom='@This.CustomersFrom'")> _
+    Property ContractTemplate As ContractTemplate
+        Get
+            Return _ContractTemplate
+        End Get
+        Set(ByVal value As ContractTemplate)
+            SetPropertyValue("ContractTemplate", _ContractTemplate, value)
+        End Set
+    End Property
+    Property AreContractRowsClone As Boolean
+        Get
+            Return _AreContractRowsClone
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("AreContractRowsClone", _AreContractRowsClone, value)
+        End Set
+    End Property
+    Property IsMultipleSelection As Boolean
+        Get
+            Return _IsMultipleSelection
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsMultipleSelection", _IsMultipleSelection, value)
+        End Set
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractDatePopup.vb

@@ -0,0 +1,30 @@
+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 ContractDatePopup
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    Property DateTerminating As Date
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractMileStone.vb

@@ -0,0 +1,33 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.Security
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ContractMileStone
+    Inherits BaseObject
+    Private _ShortName As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <RuleRequiredField("ContractMileStone.ShortName", DefaultContexts.Save)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractModifyData.vb

@@ -0,0 +1,61 @@
+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 ContractModifyData
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    Property IsContractGroup As Boolean = False
+    Property ContractGroup As ContractGroup
+
+    Property IsDateCreated As Boolean = False
+    Property DateCreated As Date
+
+    Property IsDateClosed As Boolean = False
+    Property DateClosed As Date
+
+    Property IsState As Boolean = False
+    Property State As State
+
+    Property IsCurrencyName As Boolean = False
+    Property CurrencyName As CurrencyName
+
+    Property IsCurrencyName_Invoice As Boolean = False
+    Property CurrencyName_Invoice As CurrencyName
+
+    Property IsJobNumberObjects As Boolean = False
+    Property JobNumberObjects As JobNumberObjects
+
+    Property IsUniqueObjects As Boolean = False
+    Property UniqueObjects As UniqueObjects
+
+    Property IsHRResponsible As Boolean = False
+    Property HRResponsible As HRPerson
+
+    Property IsDefinite As Boolean
+    Property Definite As eDefinite
+
+    Property IsTerminateDay As Boolean
+    Property TerminateDay As Long
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsCloneView.vb

@@ -0,0 +1,65 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.Security
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+'<EditorStateRule("Hide DayOfExecutionInWeek", "DayOfExecutionInWeek", DevExpress.ExpressApp.ViewType.Any, criteria:="ActionFrequency In(0,2,3,4)", Description:="Des", EditorState:=ConditionalEditorState.EditorState.Hidden)> _
+'<EditorStateRule("Hide DayOfExecution", "DayOfExecution", DevExpress.ExpressApp.ViewType.Any, criteria:="ActionFrequency In(0,1,3,4,5)", Description:="Des", EditorState:=ConditionalEditorState.EditorState.Hidden)> _
+
+<Appearance("Hide DayOfExecutionInWeek", TargetItems:="DayOfExecutionInWeek", Criteria:="ActionFrequency In(0,2,3,4)", Visibility:=Editors.ViewItemVisibility.Hide, Context:="Any")> _
+<Appearance("Hide DayOfExecution", TargetItems:="DayOfExecution", Criteria:="ActionFrequency In(0,1,3,4,5)", Visibility:=Editors.ViewItemVisibility.Hide, Context:="Any")> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ContractRowsCloneView
+    Inherits BaseObject
+    Private _DayOfExecutionInWeek As eDayOfWeek ' A hét valamelyik napja (1..7) Forduló nap, ezen a napon lesz a szerződési sor teljesítési dátuma
+    Private _DayOfExecution As eDayOfMonth ' A hónap valamelyik napja (1..31) Forduló nap, ezen a napon lesz a szerződési sor teljesítési dátuma
+    Private _ActionCount As Long ' Hányszor csinálja meg
+    Private _ActionFrequency As eActionFrequency ' A forduló időpontok intervalluma
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property DayOfExecutionInWeek As eDayOfWeek
+        Get
+            Return _DayOfExecutionInWeek
+        End Get
+        Set(ByVal value As eDayOfWeek)
+            SetPropertyValue("DayOfExecutionInWeek", _DayOfExecutionInWeek, value)
+        End Set
+    End Property
+    Property DayOfExecution As eDayOfMonth
+        Get
+            Return _DayOfExecution
+        End Get
+        Set(ByVal value As eDayOfMonth)
+            SetPropertyValue("DayOfExecution", _DayOfExecution, value)
+        End Set
+    End Property
+    Property ActionCount As Long
+        Get
+            Return _ActionCount
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("ActionCount", _ActionCount, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property ActionFrequency As eActionFrequency
+        Get
+            Return _ActionFrequency
+        End Get
+        Set(ByVal value As eActionFrequency)
+            SetPropertyValue("ActionFrequency", _ActionFrequency, value)
+        End Set
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsDividePopup.vb

@@ -0,0 +1,71 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Hide DEV parameters if Currency is HUF", AppearanceItemType:="ViewItem", Criteria:="ContractRows.CurrencyName.ShortName = 'HUF'", TargetItems:="AmountDEV", Context:="Any", Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide DEV parameters if Currency is not HUF", AppearanceItemType:="ViewItem", Criteria:="ContractRows.CurrencyName.ShortName != 'HUF'", TargetItems:="AmountHUF", Context:="Any", Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
+Public Class ContractRowsDividePopup
+    Inherits BaseObject
+    Private _Percent As Double
+    Private _AmountHUF As Double
+    Private _AmountDEV As Double
+    Private _ContractRows As ContractRows
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    Property Percent As Double
+        Get
+            Return _Percent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Percent", _Percent, value)
+        End Set
+    End Property
+    Property AmountHUF As Double
+        Get
+            Return _AmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUF", _AmountHUF, value)
+        End Set
+    End Property
+    Property AmountDEV As Double
+        Get
+            Return _AmountDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountDEV", _AmountDEV, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property ContractRows As ContractRows
+        Get
+            Return _ContractRows
+        End Get
+        Set(value As ContractRows)
+            SetPropertyValue("ContractRows", _ContractRows, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsModifyData.vb

@@ -0,0 +1,239 @@
+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 ContractRowsModifyData
+    Inherits BaseObject
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+
+    Private _DateExecution As Date
+    Private _IsDateExecution As Boolean = False
+    Private _PaymentOption As PaymentOption
+    Private _IsPaymentOption As Boolean = False
+    Private _NettoPriceHUF As Double
+    Private _IsNettoPriceHUF As Boolean = False
+    Private _NettoPriceDEV As Double
+    Private _IsNettoPriceDEV As Boolean = False
+    Private _InvoicePeriod As String
+    Private _IsInvoicePeriod As Boolean = False
+    Private _Description As String
+    Private _IsDescription As Boolean = False
+    Private _ShortName As String
+    Private _IsShortName As Boolean = False
+    Private _VAT As VAT
+    Private _IsVAT As Boolean = False
+    Private _JobNumberObjects As JobNumberObjects
+    Private _IsJobNumberObjects As Boolean = False
+    Private _UniqueObjects As UniqueObjects
+    Private _IsUniqueObjects As Boolean = False
+    Private _Controlling As Controlling
+    Private _IsControlling As Boolean = False
+    Private _CostHolder As CostHolder
+    Private _IsCostHolder As Boolean = False
+
+
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property IsDateExecution As Boolean
+        Get
+            Return _IsDateExecution
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsDateExecution", _IsDateExecution, 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 IsPaymentOption As Boolean
+        Get
+            Return _IsPaymentOption
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsPaymentOption", _IsPaymentOption, value)
+        End Set
+    End Property
+    Property NettoPriceHUF As Double
+        Get
+            Return _NettoPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("NettoPriceHUF", _NettoPriceHUF, value)
+        End Set
+    End Property
+    Property IsNettoPriceHUF As Boolean
+        Get
+            Return _IsNettoPriceHUF
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsNettoPriceHUF", _IsNettoPriceHUF, value)
+        End Set
+    End Property
+    Property NettoPriceDEV As Double
+        Get
+            Return _NettoPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("NettoPriceDEV", _NettoPriceDEV, value)
+        End Set
+    End Property
+    Property IsNettoPriceDEV As Boolean
+        Get
+            Return _IsNettoPriceDEV
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsNettoPriceDEV", _IsNettoPriceDEV, 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 IsInvoicePeriod As Boolean
+        Get
+            Return _IsInvoicePeriod
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsInvoicePeriod", _IsInvoicePeriod, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property IsDescription As Boolean
+        Get
+            Return _IsDescription
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsDescription", _IsDescription, 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 IsShortName As Boolean
+        Get
+            Return _IsShortName
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsShortName", _IsShortName, 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
+    Property IsVAT As Boolean
+        Get
+            Return _IsVAT
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsVAT", _IsVAT, value)
+        End Set
+    End Property
+    Property JobNumberObjects As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+        End Set
+    End Property
+    Property IsJobNumberObjects As Boolean
+        Get
+            Return _IsJobNumberObjects
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsJobNumberObjects", _IsJobNumberObjects, value)
+        End Set
+    End Property
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+        End Set
+    End Property
+    Property IsUniqueObjects As Boolean
+        Get
+            Return _IsUniqueObjects
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsUniqueObjects", _IsUniqueObjects, 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
+    Property IsControlling As Boolean
+        Get
+            Return _IsControlling
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsControlling", _IsControlling, 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 IsCostHolder As Boolean
+        Get
+            Return _IsCostHolder
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsCostHolder", _IsCostHolder, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsToInvoice.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
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.Security
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+'<EditorStateRuleAttribute("Show CurrencyRate when CurrencyName != HUF", "CurrencyRate", EditorState.Hidden, "ContractRows.CurrencyName.ShortName = 'HUF'", ViewType.DetailView)> _
+'<EditorStateRuleAttribute("Hide DateExecution when ContractRowsType != 1", "DateExecution", EditorState.Hidden, "ContractRows.ContractRowsType In(0,2)", ViewType.DetailView)> _
+'<EditorStateRule("Hide DateCreated when ContractRowsType = 3", "DateCreated", EditorState.Hidden, "ContractRows.ContractRowsType = 3", ViewType.DetailView)> _
+
+<Appearance("Show CurrencyRate when CurrencyName != HUF", TargetItems:="CurrencyRate", Criteria:="ContractRows.CurrencyName.ShortName = 'HUF'", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide DateExecution when ContractRowsType != 1", TargetItems:="DateExecution", Criteria:="ContractRows.ContractRowsType In(0,2)", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide DateCreated when ContractRowsType = 3", TargetItems:="DateCreated", Criteria:="ContractRows.ContractRowsType = 3", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ContractsRowsToInvoice
+    Inherits BaseObject
+    Private _DateCreated As Date = Now ' A számla kiállításának dátuma
+    Private _DateExecution As Date 'Teljesítés dátuma
+    Private _Description As String ' Megjegyzés
+    Private _CurrencyRate As Double = 1 ' Árfolyam
+    Private _ContractRows As ContractRows ' A Deviza típusához kell
+    Private _BankInformation As BankInformation
+    Private _IsProforma As Boolean = False
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    ReadOnly Property DateCreated As Date
+        Get
+            Return _DateCreated
+        End Get
+    End Property
+    <RuleRequiredField("ContractsRowsToInvoice.DateExecution", DefaultContexts.Save, TargetCriteria:="ContractRows.ContractRowsType = 1")> _
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property CurrencyRate As Double
+        Get
+            Return _CurrencyRate
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("CurrencyRate", _CurrencyRate, value)
+        End Set
+    End Property
+    Property ContractRows As ContractRows
+        Get
+            Return _ContractRows
+        End Get
+        Set(ByVal value As ContractRows)
+            SetPropertyValue("ContractRows", _ContractRows, value)
+        End Set
+    End Property
+    <DataSourceCriteria("LiquidAssests.CustomerFrom = '@This.ContractRows.Contracts.CustomersFrom' AND LiquidAssests.LiquidAssetsType = 1")> _
+    Property BankInformation As BankInformation
+        Get
+            Return (_BankInformation)
+        End Get
+        Set(ByVal value As BankInformation)
+            SetPropertyValue("CustomerBankAccounts", _BankInformation, value)
+        End Set
+    End Property
+    Property IsProforma As Boolean
+        Get
+            Return _IsProforma
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsProforma", _IsProforma, value)
+        End Set
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractToFinalInvoice.vb

@@ -0,0 +1,94 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.Security
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+'<EditorStateRuleAttribute("Show CurrencyRate when CurrencyName != HUF in FINAL", "CurrencyRate", EditorState.Hidden, "ContractRows.CurrencyName.ShortName = 'HUF'", ViewType.DetailView)> _
+'<EditorStateRuleAttribute("Hide DateExecution when ContractRowsType != 1 in FINAL", "DateExecution", EditorState.Hidden, "ContractRows.ContractRowsType In(0,2)", ViewType.DetailView)> _
+'<EditorStateRule("Hide DateCreated when ContractRowsType = 3 in FINAL", "DateCreated", EditorState.Hidden, "ContractRows.ContractRowsType = 3", ViewType.DetailView)> _
+
+<Appearance("Show CurrencyRate when CurrencyName != HUF in FINAL", TargetItems:="CurrencyRate", Criteria:="ContractRows.CurrencyName.ShortName = 'HUF'", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide DateExecution when ContractRowsType != 1 in FINAL", TargetItems:="DateExecution", Criteria:="ContractRows.ContractRowsType In(0,2)", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide DateCreated when ContractRowsType = 3 in FINAL", TargetItems:="DateCreated", Criteria:="ContractRows.ContractRowsType = 3", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ContractRowsToFinalInvoice
+    Inherits BaseObject
+    Private _DateCreated As Date = Now ' A számla kiállításának dátuma
+    Private _DateExecution As Date 'Teljesítés dátuma
+    Private _Description As String ' Megjegyzés
+    Private _CurrencyRate As Double = 1 ' Árfolyam
+    Private _ContractRows As ContractRows ' A Deviza típusához kell
+    Private _BankInformation As BankInformation
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    ReadOnly Property DateCreated As Date
+        Get
+            Return _DateCreated
+        End Get
+    End Property
+    <RuleRequiredField("ContractsRowsToFinalInvoice.DateExecution", DefaultContexts.Save, TargetCriteria:="ContractRows.ContractRowsType = 1")> _
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property CurrencyRate As Double
+        Get
+            Return _CurrencyRate
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("CurrencyRate", _CurrencyRate, value)
+        End Set
+    End Property
+    Property ContractRows As ContractRows
+        Get
+            Return _ContractRows
+        End Get
+        Set(ByVal value As ContractRows)
+            SetPropertyValue("ContractRows", _ContractRows, value)
+        End Set
+    End Property
+    <DataSourceCriteria("LiquidAssests.CustomerFrom = '@This.ContractRows.Contracts.CustomersFrom' AND LiquidAssests.LiquidAssetsType = 1")> _
+    Property BankInformation As BankInformation
+        Get
+            Return (_BankInformation)
+        End Get
+        Set(ByVal value As BankInformation)
+            SetPropertyValue("CustomerBankAccounts", _BankInformation, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property InvoiceRows As XPCollection(Of InvoiceRows)
+        Get
+            Dim _InvoiceRowsCollection As XPCollection(Of InvoiceRows) = New XPCollection(Of InvoiceRows) _
+                (Session, CriteriaOperator.Parse("InvoiceHeader.Customers=? And InvoiceHeader.CustomersFrom=? And InvoiceHeader.InvoiceType.InvoiceTypeBase in (0,1) " & _
+                                                 "And IsNull(InvoiceRowsAdvance)=True And InvoiceHeader.IsEditable=False And InvoiceHeader.IsStorno=False And InvoiceHeader.IsProforma=False AND ContractRows.Contracts=?", Me.ContractRows.Contracts.Customers, Me.ContractRows.Contracts.CustomersFrom, Me.ContractRows.Contracts))
+
+            Return _InvoiceRowsCollection
+        End Get
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductHeader.vb

@@ -0,0 +1,240 @@
+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
+
+
+'<EditorStateRuleAttribute("Disable Customers when is not empty in invoice ContractProductHeader", "Customers", ViewType.DetailView, "IsNull(Customers) = False", EditorState.Disabled)> _
+'<EditorStateRuleAttribute("Disable CustomersFrom when is not empty in invoice ContractProductHeader", "CustomersFrom", ViewType.DetailView, "IsNull(CustomersFrom) = False", EditorState.Disabled)> _
+'<EditorStateRuleAttribute("Disable CurrencyName when is not empty in invoice CurrencyName", "CurrencyName", ViewType.DetailView, "IsNull(CurrencyName) = False", EditorState.Disabled)> _
+
+<DefaultClassOptions()> _
+<NavigationItem("Contracts")> _
+<DefaultProperty("DisplayName")> _
+<FileAttachment("File")> _
+<Appearance("Hide row_NettoPriceDEV when DEV is HUF", AppearanceItemType.ViewItem, "CurrencyName.ShortName = 'HUF'", TargetItems:="row_NettoPriceDEV", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide row_NettoPriceHUF when DEV isnot HUF", AppearanceItemType.ViewItem, "CurrencyName.ShortName <> 'HUF'", TargetItems:="row_NettoPriceHUF", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide row_ContractProductRows when ContractTemplate.PartnerType=ePayabels", AppearanceItemType.ViewItem, "ContractTemplate.PartnerType=1", TargetItems:="row_ContractProductRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide row_Products when ContractTemplate.PartnerType= eReceivables", AppearanceItemType.ViewItem, "ContractTemplate.PartnerType=0", TargetItems:="row_Products", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide ContractProductRows when CurrencyName is nothing", AppearanceItemType.LayoutItem, "IsNull(CurrencyName) = True", TargetItems:="ContractProductRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide ContractProductRows when CurrencyName is nothingViewItem", AppearanceItemType.ViewItem, "IsNull(CurrencyName) = True", TargetItems:="ContractProductRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable ALL property when State = State.Ready", AppearanceItemType.ViewItem, "State = 1", TargetItems:="*", Enabled:=False)> _
+<Appearance("Disable Customers when is not empty in invoice ContractProductHeader", TargetItems:="Customers", Criteria:="IsNull(Customers) = False", Enabled:=False, Context:="DetailView")> _
+<Appearance("Disable CustomersFrom when is not empty in invoice ContractProductHeader", TargetItems:="CustomersFrom", Criteria:="IsNull(CustomersFrom) = False", Enabled:=False, Context:="DetailView")> _
+<Appearance("Disable CurrencyName when is not empty in invoice CurrencyName", TargetItems:="CurrencyName", Criteria:="IsNull(CurrencyName) = False", Enabled:=False, Context:="DetailView")> _
+<Appearance("Disable aTotable_ConProd_Payabels when State = State.Ready", AppearanceItemType.Action, "State = 1", TargetItems:="aTotable_ConProd_Payabels", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable aTotableD_ConProd when State = State.Ready", AppearanceItemType.Action, "State = 1", TargetItems:="aTotableD_ConProd_Payabels", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable aBackToRowEdit_ConProd_Payabels when State = State.Ready", AppearanceItemType.Action, "State = 1", TargetItems:="aBackToRowEdit_ConProd_Payabels", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class ContractProductHeader
+    Inherits Contracts
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.row_VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
+        Me.row_Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
+        Me.HRResponsible = Session.FindObject(Of HRPerson) _
+            (CriteriaOperator.Parse("User=?", Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))))
+    End Sub
+    Private _CustomersStoreHouse As Customers 'Tároló tulajdonosa ha contract product-ról van szó
+    Private _AddressStoreHouse As Address 'Tárolási cím !
+    Private _Customers2 As Customers 'Az adásvétel vevõje, ha szállító, eladója ha vevõ
+    '---------------NonPersistent Propertys-----------------
+    Private _row_Products As Products
+    Private _row_ContractProductRows As ContractProductRows
+    Private _row_QTT As Double
+    Private _row_NettoPriceHUF As Double '-- Nettó egységár (HUF)
+    Private _row_NettoPriceDEV As Double '-- Nettó egységár (DEV)
+    Private _row_VAT As VAT 'ÁFA kód
+    Private _row_Units As Units '-- Mennyiségi egység
+    Private _row_RowGroup1 As String 'Csoportosító sor1
+    Private _row_RowGroup2 As String 'Csoportosító sor2
+    Private _row_PaymentOption As PaymentOption
+    Private _row_APCSheetByProducts As APCSheetByProducts 'Termeltetési szerzõdés
+    <RuleRequiredField("ContractProductHeader.CustomersStoreHouse", DefaultContexts.Save, TargetCriteria:="ContractTemplate.PartnerType = 1")> _
+    Property CustomersStoreHouse As Customers
+        Get
+            Return _CustomersStoreHouse
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("CustomersStoreHouse", _CustomersStoreHouse, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContractProductHeader.Customers2", DefaultContexts.Save, TargetCriteria:="ContractTemplate.PartnerType='ePayabels'")> _
+    Property Customers2 As Customers
+        Get
+            Return _Customers2
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers2", _Customers2, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContractProductHeader.AddressStoreHouse", DefaultContexts.Save, TargetCriteria:="ContractTemplate.PartnerType='ePayabels'")> _
+    Property AddressStoreHouse As Address
+        Get
+            Return _AddressStoreHouse
+        End Get
+        Set(value As Address)
+            SetPropertyValue("AddressStoreHouse", _AddressStoreHouse, value)
+        End Set
+    End Property
+    <Aggregated()> _
+    <Association("ContractProductHeader-ContractProductRows", GetType(ContractProductRows)), VisibleInListView(False)> _
+        ReadOnly Property ContractProductRows() As XPCollection(Of ContractProductRows)
+        Get
+            Return GetCollection(Of ContractProductRows)("ContractProductRows")
+        End Get
+    End Property
+
+    '---------------NonPersistent Propertys-----------------
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <VisibleInListView(False)> _
+    Property row_Products As Products
+        Get
+            Return _row_Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("row_Products", _row_Products, value)
+            If value IsNot Nothing Then
+                Me.row_Units = value.Units
+                Me.row_VAT = value.VAT
+            End If
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <VisibleInListView(False)> _
+    <DataSourceCriteria("(QTT-QTT_Out)>0 AND ContractProductHeader.ContractTemplate.PartnerType=1")> _
+    Property row_ContractProductRows As ContractProductRows
+        Get
+            Return _row_ContractProductRows
+        End Get
+        Set(value As ContractProductRows)
+            SetPropertyValue("row_ContractProductRows", _row_ContractProductRows, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If value IsNot Nothing Then
+                    Me.row_Units = value.Units
+                    Me.row_VAT = value.VAT
+                End If
+            End If
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <VisibleInListView(False)> _
+    Property row_QTT As Double
+        Get
+            Return _row_QTT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_QTT", _row_QTT, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <VisibleInListView(False)> _
+    Property row_NettoPriceHUF As Double
+        Get
+            Return _row_NettoPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_NettoPriceHUF", _row_NettoPriceHUF, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <VisibleInListView(False)> _
+    Property row_NettoPriceDEV As Double
+        Get
+            Return _row_NettoPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_NettoPriceDEV", _row_NettoPriceDEV, value)
+        End Set
+    End Property
+    '<RuleRequiredField("ContractProductHeader-row_Customers", "aTotable_ConProd_Payabels_Contexts", TargetCriteria:="IsNull(row_VAT)=True")> _
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <VisibleInListView(False)> _
+    Property row_VAT As VAT
+        Get
+            Return _row_VAT
+        End Get
+        Set(value As VAT)
+            SetPropertyValue("row_VAT", _row_VAT, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+   <ImmediatePostData()> _
+   <VisibleInListView(False)> _
+    Property row_Units As Units
+        Get
+            Return _row_Units
+        End Get
+        Set(value As Units)
+            SetPropertyValue("row_Units", _row_Units, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+   <ImmediatePostData()> _
+   <VisibleInListView(False)> _
+    Property row_RowGroup1 As String
+        Get
+            Return _row_RowGroup1
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_RowGroup1", _row_RowGroup1, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+  <ImmediatePostData()> _
+  <VisibleInListView(False)> _
+    Property row_RowGroup2 As String
+        Get
+            Return _row_RowGroup2
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_RowGroup2", _row_RowGroup2, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+<ImmediatePostData()> _
+<VisibleInListView(False)> _
+    Property row_PaymentOption As PaymentOption
+        Get
+            Return _row_PaymentOption
+        End Get
+        Set(value As PaymentOption)
+            SetPropertyValue("row_PaymentOption", _row_PaymentOption, value)
+        End Set
+    End Property
+    '<RuleRequiredField("ContractProductHeader-row_APCSheetByProducts", "aToTable_OrderIn", targetcriteria:="OrderInParameters.IsAPCSheet=True")> _
+    <NonPersistent> _
+    <DataSourceCriteria("APCSheetHeader.Customers='@This.Customers' and APCSheetHeader.CustomersFrom='@This.CustomersFrom'")> _
+    Property row_APCSheetByProducts As APCSheetByProducts
+        Get
+            Return _row_APCSheetByProducts
+        End Get
+        Set(value As APCSheetByProducts)
+            SetPropertyValue("row_APCSheetByProducts", _row_APCSheetByProducts, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If value.Products IsNot Nothing Then
+                    row_Products = value.Products
+                    row_QTT = value.SumContractQuantity
+                    row_Units = value.Products.Units
+                End If
+            End If
+        End Set
+    End Property
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductLINQ.vb

@@ -0,0 +1,59 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Imports System.Linq
+Imports SISBusiness.Module.Dennis.Linq
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ContractProductLINQ
+    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
+    <CustomQueryProperties("DisplayableProperties", "ProductNumber;ShortName;Unit;QTT_Free")> _
+    Public Shared Function ContractProductsRowsGroup(ByVal s As Session) As IQueryable
+        Dim _ContractProductsRowsGroup As New XPQuery(Of ContractProductRows)(s)
+        Dim query = _
+         From e In _ContractProductsRowsGroup _
+         Where e.ContractProductHeader.ContractTemplate.PartnerType = ePartnerType.ePayabels _
+         Group e By e.Products.Oid, e.Products.ProductNumber, e.Products.ShortName, UnitShortName = e.Products.Units.ShortName Into gg = Group _
+         Select New With {Key .ProductNumber = ProductNumber, _
+                          Key .ShortName = ShortName, _
+                          Key .Unit = UnitShortName, _
+                          Key .QTT_Free = gg.Sum(Function(inv) inv.QTT) - gg.Sum(Function(inv) inv.QTT_Out)}
+        Return query
+    End Function
+    <CustomQueryProperties("DisplayableProperties", "FullName;ProductNumber;ShortName;Unit;QTT_Free")> _
+    Public Shared Function ContractProductsRowsCustomersGroup(ByVal s As Session) As IQueryable
+        Dim _ContractProductsRowsGroup As New XPQuery(Of ContractProductRows)(s)
+        Dim query = _
+         From e In _ContractProductsRowsGroup _
+         Where e.ContractProductHeader.ContractTemplate.PartnerType = ePartnerType.ePayabels _
+         Group e By e.ContractProductHeader.Customers.FullName, e.Products.ProductNumber, e.Products.ShortName, UnitShortName = e.Products.Units.ShortName Into gg = Group _
+         Select New With {Key .FullName = FullName, _
+                          Key .ProductNumber = ProductNumber, _
+                          Key .ShortName = ShortName, _
+                          Key .Unit = UnitShortName, _
+                          Key .QTT_Free = gg.Sum(Function(inv) inv.QTT) - gg.Sum(Function(inv) inv.QTT_Out)}
+        Return query
+    End Function
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductRows.vb

@@ -0,0 +1,119 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Imports System.Linq
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ContractProductRows
+    Inherits ContractRows
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Private _Products As Products
+    Private _QTT_Out As Double
+    Private _ContractProductHeader As ContractProductHeader
+    Private _RowIndex As Long 'Sor index (mozgathatónak kell lennie !)
+    Private _APCSheetByProducts As APCSheetByProducts 'Termeltetési szerzõdési sor
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property QTT_Out As Double
+        Get
+            Return _QTT_Out
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Out", _QTT_Out, value)
+        End Set
+    End Property
+    <Association("ContractProductHeader-ContractProductRows", GetType(ContractProductHeader))> _
+    Property ContractProductHeader() As ContractProductHeader
+        Get
+            Return _ContractProductHeader
+        End Get
+        Set(ByVal value As ContractProductHeader)
+            SetPropertyValue("ContractProductHeader", _ContractProductHeader, value)
+        End Set
+    End Property
+    Property RowIndex() As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    Property APCSheetByProducts As APCSheetByProducts
+        Get
+            Return _APCSheetByProducts
+        End Get
+        Set(value As APCSheetByProducts)
+            SetPropertyValue("APCSheetByProducts", _APCSheetByProducts, value)
+        End Set
+    End Property
+
+
+    Public Sub AddRows(ByVal _p_ContractProductHeader As ContractProductHeader)
+        ' Sor hozzáadása
+        Me.ContractProductHeader = _p_ContractProductHeader
+        If _p_ContractProductHeader.row_Products IsNot Nothing Then
+            Me.Products = _p_ContractProductHeader.row_Products
+        Else
+            Me.Products = _p_ContractProductHeader.row_ContractProductRows.Products
+        End If
+        Me.QTT = _p_ContractProductHeader.row_QTT
+        Me.Units = _p_ContractProductHeader.row_Units
+        Me.VAT = _p_ContractProductHeader.row_VAT
+        Me.RowGroup1 = _p_ContractProductHeader.row_RowGroup1
+        Me.RowGroup2 = _p_ContractProductHeader.row_RowGroup2
+        Me.NettoPriceDEV = _p_ContractProductHeader.row_NettoPriceDEV
+        Me.NettoPriceHUF = _p_ContractProductHeader.row_NettoPriceHUF
+        Me.DateExecution = _p_ContractProductHeader.DateExecution
+        Me.ContractRowsType = eContractRowsType.eFix
+        Me.Controlling = _ContractProductHeader.ContractTemplate.Controlling
+
+        Dim _PaymentOption As PaymentOption = Session.FindObject(Of PaymentOption)(CriteriaOperator.Parse("DefaultForBusinnes=True"))
+        Me.Contracts = TryCast(_p_ContractProductHeader, Contracts)
+        If _p_ContractProductHeader.row_PaymentOption IsNot Nothing Then
+            Me.PaymentOption = _p_ContractProductHeader.row_PaymentOption
+        Else
+            If _PaymentOption IsNot Nothing Then
+                Me.PaymentOption = _PaymentOption
+            End If
+        End If
+        'Me.Controlling = _p_ContractProductHeader.row_Controlling
+        If _p_ContractProductHeader.row_Products IsNot Nothing Then
+            Me.ShortName = _p_ContractProductHeader.row_Products.ShortName
+        Else
+            Me.ShortName = _p_ContractProductHeader.row_ContractProductRows.ShortName
+        End If
+        ' Indexelés
+        If _p_ContractProductHeader.ContractProductRows.Count = 0 Then
+            Me.RowIndex = 0
+        Else
+            Me.RowIndex = _p_ContractProductHeader.ContractProductRows.Count - 1
+        End If
+        Me.APCSheetByProducts = _p_ContractProductHeader.row_APCSheetByProducts
+        Me.Contracts.ContractRows.Add(TryCast(Me, ContractRows))
+    End Sub
+    Public Sub RemoveRows()
+        Me.Delete()
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductRowsEvent.vb

@@ -0,0 +1,97 @@
+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 ContractProductRowsEvent
+    Inherits BaseObject
+
+    Private _ContractProductRowsIn As ContractProductRows
+    Private _ContractProductRowsOut As ContractProductRows
+    Private _DateExecution As Date
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _QTT_Out As Double
+    Private _QTT_In As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+      
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    Property ContractProductRowsIn As ContractProductRows
+        Get
+            Return _ContractProductRowsIn
+        End Get
+        Set(value As ContractProductRows)
+            SetPropertyValue("ContractProductRowsIn", _ContractProductRowsIn, value)
+        End Set
+    End Property
+    Property ContractProductRowsOut As ContractProductRows
+        Get
+            Return _ContractProductRowsOut
+        End Get
+        Set(value As ContractProductRows)
+            SetPropertyValue("ContractProductRowsOut", _ContractProductRowsOut, value)
+        End Set
+    End Property
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    <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 QTT_Out As Double
+        Get
+            Return _QTT_Out
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Out", _QTT_Out, value)
+        End Set
+    End Property
+    Property QTT_In As Double
+        Get
+            Return _QTT_In
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_In", _QTT_In, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductRowsInOut.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 ContractProductRowsInOut
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Private _QTT As Double
+    Private _ContractProductRowsIn As ContractProductRows
+    Private _ContractProductRowsOut As ContractProductRows
+
+    Property QTT As Double
+        Get
+            Return _QTT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property ContractProductRowsIn As ContractProductRows
+        Get
+            Return _ContractProductRowsIn
+        End Get
+        Set(value As ContractProductRows)
+            SetPropertyValue("ContractProductRowsIn", _ContractProductRowsIn, value)
+        End Set
+    End Property
+    Property ContractProductRowsOut As ContractProductRows
+        Get
+            Return _ContractProductRowsOut
+        End Get
+        Set(value As ContractProductRows)
+            SetPropertyValue("ContractProductRowsOut", _ContractProductRowsOut, value)
+        End Set
+    End Property
+    Public Sub RemoveRows()
+        Me.Delete()
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.Designer.vb

@@ -0,0 +1,238 @@
+Partial Class ContractProduct_VC
+
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+		MyClass.New()
+
+		'Required for Windows.Forms Class Composition Designer support
+		Container.Add(Me)
+
+	End Sub
+
+	'Component overrides dispose to clean up the component list.
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+		If disposing AndAlso components IsNot Nothing Then
+			components.Dispose()
+		End If
+		MyBase.Dispose(disposing)
+	End Sub
+
+	'Required by the Component Designer
+	Private components As System.ComponentModel.IContainer
+
+	'NOTE: The following procedure is required by the Component Designer
+	'It can be modified using the Component Designer.
+	'Do not modify it using the code editor.
+	<System.Diagnostics.DebuggerStepThrough()> _
+	Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.aTotable_ConProd_Receivables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aTotable_ConProd_Payabels = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBackToRowEdit_ConProd_Receivables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBackToRowEdit_ConProd_Payabels = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aTotableD_ConProd_Payabels = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDown_ContractProductRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aUp_ContractProductRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aNewContractProductHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aFinalizeContractProduct = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aSendBackToEditContractProduct = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aTotableD_ConProd_Receivables = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aPrintContractProduct = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aTotable_ConProd_Receivables
+        '
+        Me.aTotable_ConProd_Receivables.Caption = "Add row"
+        Me.aTotable_ConProd_Receivables.Category = "aTotable_ConProd_Receivables"
+        Me.aTotable_ConProd_Receivables.ConfirmationMessage = Nothing
+        Me.aTotable_ConProd_Receivables.Id = "aTotable_ConProd_Receivables"
+        Me.aTotable_ConProd_Receivables.ImageName = "table_add"
+        Me.aTotable_ConProd_Receivables.Shortcut = Nothing
+        Me.aTotable_ConProd_Receivables.Tag = Nothing
+        Me.aTotable_ConProd_Receivables.TargetObjectsCriteria = Nothing
+        Me.aTotable_ConProd_Receivables.TargetViewId = ""
+        Me.aTotable_ConProd_Receivables.ToolTip = Nothing
+        Me.aTotable_ConProd_Receivables.TypeOfView = Nothing
+        '
+        'aTotable_ConProd_Payabels
+        '
+        Me.aTotable_ConProd_Payabels.Caption = "Add row"
+        Me.aTotable_ConProd_Payabels.Category = "aTotable_ConProd_Payabels"
+        Me.aTotable_ConProd_Payabels.ConfirmationMessage = Nothing
+        Me.aTotable_ConProd_Payabels.Id = "aTotable_ConProd_Payabels"
+        Me.aTotable_ConProd_Payabels.ImageName = "table_add"
+        Me.aTotable_ConProd_Payabels.Shortcut = Nothing
+        Me.aTotable_ConProd_Payabels.Tag = Nothing
+        Me.aTotable_ConProd_Payabels.TargetObjectsCriteria = Nothing
+        Me.aTotable_ConProd_Payabels.TargetViewId = ""
+        Me.aTotable_ConProd_Payabels.ToolTip = Nothing
+        Me.aTotable_ConProd_Payabels.TypeOfView = Nothing
+        '
+        'aBackToRowEdit_ConProd_Receivables
+        '
+        Me.aBackToRowEdit_ConProd_Receivables.Caption = "Edit row"
+        Me.aBackToRowEdit_ConProd_Receivables.Category = "aBackToRowEdit_ConProd_Receivables"
+        Me.aBackToRowEdit_ConProd_Receivables.ConfirmationMessage = Nothing
+        Me.aBackToRowEdit_ConProd_Receivables.Id = "aBackToRowEdit_ConProd_Receivables"
+        Me.aBackToRowEdit_ConProd_Receivables.ImageName = "table_refresh"
+        Me.aBackToRowEdit_ConProd_Receivables.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBackToRowEdit_ConProd_Receivables.Shortcut = Nothing
+        Me.aBackToRowEdit_ConProd_Receivables.Tag = Nothing
+        Me.aBackToRowEdit_ConProd_Receivables.TargetObjectsCriteria = Nothing
+        Me.aBackToRowEdit_ConProd_Receivables.TargetViewId = ""
+        Me.aBackToRowEdit_ConProd_Receivables.ToolTip = Nothing
+        Me.aBackToRowEdit_ConProd_Receivables.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aBackToRowEdit_ConProd_Payabels
+        '
+        Me.aBackToRowEdit_ConProd_Payabels.Caption = "Edit row"
+        Me.aBackToRowEdit_ConProd_Payabels.Category = "aBackToRowEdit_ConProd_Payabels"
+        Me.aBackToRowEdit_ConProd_Payabels.ConfirmationMessage = Nothing
+        Me.aBackToRowEdit_ConProd_Payabels.Id = "aBackToRowEdit_ConProd_Payabels"
+        Me.aBackToRowEdit_ConProd_Payabels.ImageName = "table_refresh"
+        Me.aBackToRowEdit_ConProd_Payabels.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBackToRowEdit_ConProd_Payabels.Shortcut = Nothing
+        Me.aBackToRowEdit_ConProd_Payabels.Tag = Nothing
+        Me.aBackToRowEdit_ConProd_Payabels.TargetObjectsCriteria = Nothing
+        Me.aBackToRowEdit_ConProd_Payabels.TargetViewId = ""
+        Me.aBackToRowEdit_ConProd_Payabels.ToolTip = Nothing
+        Me.aBackToRowEdit_ConProd_Payabels.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aTotableD_ConProd_Payabels
+        '
+        Me.aTotableD_ConProd_Payabels.Caption = "Delete row"
+        Me.aTotableD_ConProd_Payabels.Category = "aTotableD_ConProd_Payabels"
+        Me.aTotableD_ConProd_Payabels.ConfirmationMessage = Nothing
+        Me.aTotableD_ConProd_Payabels.Id = "aTotableD_ConProd_Payabels"
+        Me.aTotableD_ConProd_Payabels.ImageName = "table_delete"
+        Me.aTotableD_ConProd_Payabels.Shortcut = Nothing
+        Me.aTotableD_ConProd_Payabels.Tag = Nothing
+        Me.aTotableD_ConProd_Payabels.TargetObjectsCriteria = Nothing
+        Me.aTotableD_ConProd_Payabels.TargetViewId = ""
+        Me.aTotableD_ConProd_Payabels.ToolTip = Nothing
+        Me.aTotableD_ConProd_Payabels.TypeOfView = Nothing
+        '
+        'aDown_ContractProductRows
+        '
+        Me.aDown_ContractProductRows.Caption = "Down"
+        Me.aDown_ContractProductRows.Category = "RecordsNavigation"
+        Me.aDown_ContractProductRows.ConfirmationMessage = Nothing
+        Me.aDown_ContractProductRows.Id = "aDown_ContractProductRows"
+        Me.aDown_ContractProductRows.ImageName = "arrow_down_green"
+        Me.aDown_ContractProductRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aDown_ContractProductRows.Shortcut = Nothing
+        Me.aDown_ContractProductRows.Tag = Nothing
+        Me.aDown_ContractProductRows.TargetObjectsCriteria = Nothing
+        Me.aDown_ContractProductRows.TargetViewId = Nothing
+        Me.aDown_ContractProductRows.ToolTip = Nothing
+        Me.aDown_ContractProductRows.TypeOfView = Nothing
+        '
+        'aUp_ContractProductRows
+        '
+        Me.aUp_ContractProductRows.Caption = "Up"
+        Me.aUp_ContractProductRows.Category = "RecordsNavigation"
+        Me.aUp_ContractProductRows.ConfirmationMessage = Nothing
+        Me.aUp_ContractProductRows.Id = "aUp_ContractProductRows"
+        Me.aUp_ContractProductRows.ImageName = "arrow_up_green"
+        Me.aUp_ContractProductRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aUp_ContractProductRows.Shortcut = Nothing
+        Me.aUp_ContractProductRows.Tag = Nothing
+        Me.aUp_ContractProductRows.TargetObjectsCriteria = Nothing
+        Me.aUp_ContractProductRows.TargetViewId = Nothing
+        Me.aUp_ContractProductRows.ToolTip = Nothing
+        Me.aUp_ContractProductRows.TypeOfView = Nothing
+        '
+        'aNewContractProductHeader
+        '
+        Me.aNewContractProductHeader.AcceptButtonCaption = Nothing
+        Me.aNewContractProductHeader.CancelButtonCaption = Nothing
+        Me.aNewContractProductHeader.Caption = "New Contract Product Header"
+        Me.aNewContractProductHeader.Category = "ObjectsCreation"
+        Me.aNewContractProductHeader.ConfirmationMessage = Nothing
+        Me.aNewContractProductHeader.Id = "aNewContractProductHeader"
+        Me.aNewContractProductHeader.ImageName = Nothing
+        Me.aNewContractProductHeader.Shortcut = Nothing
+        Me.aNewContractProductHeader.Tag = Nothing
+        Me.aNewContractProductHeader.TargetObjectsCriteria = Nothing
+        Me.aNewContractProductHeader.TargetViewId = Nothing
+        Me.aNewContractProductHeader.ToolTip = Nothing
+        Me.aNewContractProductHeader.TypeOfView = Nothing
+        '
+        'aFinalizeContractProduct
+        '
+        Me.aFinalizeContractProduct.Caption = "Finalize Contract Product"
+        Me.aFinalizeContractProduct.Category = "Edit"
+        Me.aFinalizeContractProduct.ConfirmationMessage = Nothing
+        Me.aFinalizeContractProduct.Id = "aFinalizeContractProduct"
+        Me.aFinalizeContractProduct.ImageName = Nothing
+        Me.aFinalizeContractProduct.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aFinalizeContractProduct.Shortcut = Nothing
+        Me.aFinalizeContractProduct.Tag = Nothing
+        Me.aFinalizeContractProduct.TargetObjectsCriteria = "State in (0)"
+        Me.aFinalizeContractProduct.TargetViewId = Nothing
+        Me.aFinalizeContractProduct.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aFinalizeContractProduct.ToolTip = Nothing
+        Me.aFinalizeContractProduct.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aSendBackToEditContractProduct
+        '
+        Me.aSendBackToEditContractProduct.Caption = "SendBackToEditContractProduct"
+        Me.aSendBackToEditContractProduct.Category = "Edit"
+        Me.aSendBackToEditContractProduct.ConfirmationMessage = Nothing
+        Me.aSendBackToEditContractProduct.Id = "aSendBackToEditContractProduct"
+        Me.aSendBackToEditContractProduct.ImageName = Nothing
+        Me.aSendBackToEditContractProduct.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aSendBackToEditContractProduct.Shortcut = Nothing
+        Me.aSendBackToEditContractProduct.Tag = Nothing
+        Me.aSendBackToEditContractProduct.TargetObjectsCriteria = "State in (1)"
+        Me.aSendBackToEditContractProduct.TargetViewId = Nothing
+        Me.aSendBackToEditContractProduct.ToolTip = Nothing
+        Me.aSendBackToEditContractProduct.TypeOfView = Nothing
+        '
+        'aTotableD_ConProd_Receivables
+        '
+        Me.aTotableD_ConProd_Receivables.AcceptButtonCaption = Nothing
+        Me.aTotableD_ConProd_Receivables.CancelButtonCaption = Nothing
+        Me.aTotableD_ConProd_Receivables.Caption = "aTotableD_ConProd_Receivables"
+        Me.aTotableD_ConProd_Receivables.Category = "aTotableD_ConProd_Receivables"
+        Me.aTotableD_ConProd_Receivables.ConfirmationMessage = Nothing
+        Me.aTotableD_ConProd_Receivables.Id = "aTotableD_ConProd_Receivables"
+        Me.aTotableD_ConProd_Receivables.ImageName = "table_delete"
+        Me.aTotableD_ConProd_Receivables.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aTotableD_ConProd_Receivables.Shortcut = Nothing
+        Me.aTotableD_ConProd_Receivables.Tag = Nothing
+        Me.aTotableD_ConProd_Receivables.TargetObjectsCriteria = Nothing
+        Me.aTotableD_ConProd_Receivables.TargetViewId = Nothing
+        Me.aTotableD_ConProd_Receivables.ToolTip = Nothing
+        Me.aTotableD_ConProd_Receivables.TypeOfView = Nothing
+        '
+        'aPrintContractProduct
+        '
+        Me.aPrintContractProduct.Caption = "aPrint Contract Product"
+        Me.aPrintContractProduct.ConfirmationMessage = Nothing
+        Me.aPrintContractProduct.Id = "aPrintContractProduct"
+        Me.aPrintContractProduct.ImageName = Nothing
+        Me.aPrintContractProduct.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aPrintContractProduct.Shortcut = Nothing
+        Me.aPrintContractProduct.Tag = Nothing
+        Me.aPrintContractProduct.TargetObjectsCriteria = Nothing
+        Me.aPrintContractProduct.TargetObjectType = GetType(SISBusiness.[Module].ContractProductHeader)
+        Me.aPrintContractProduct.TargetViewId = Nothing
+        Me.aPrintContractProduct.ToolTip = Nothing
+        Me.aPrintContractProduct.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aTotable_ConProd_Receivables As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aTotable_ConProd_Payabels As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aBackToRowEdit_ConProd_Receivables As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aBackToRowEdit_ConProd_Payabels As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aTotableD_ConProd_Payabels As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aDown_ContractProductRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aUp_ContractProductRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aNewContractProductHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aFinalizeContractProduct As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aSendBackToEditContractProduct As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aTotableD_ConProd_Receivables As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aPrintContractProduct As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.resx

@@ -0,0 +1,159 @@
+<?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="aTotable_ConProd_Receivables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aTotable_ConProd_Payabels.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aBackToRowEdit_ConProd_Receivables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 446</value>
+  </metadata>
+  <metadata name="aBackToRowEdit_ConProd_Payabels.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aTotableD_ConProd_Payabels.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 407</value>
+  </metadata>
+  <metadata name="aDown_ContractProductRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 368</value>
+  </metadata>
+  <metadata name="aUp_ContractProductRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 329</value>
+  </metadata>
+  <metadata name="aNewContractProductHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 290</value>
+  </metadata>
+  <metadata name="aFinalizeContractProduct.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aSendBackToEditContractProduct.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aTotableD_ConProd_Receivables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aPrintContractProduct.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>221, 95</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/Contract/Product/ContractProduct_VC.vb

@@ -0,0 +1,591 @@
+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.ExpressApp.Editors
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Xpo
+
+Public Class ContractProduct_VC
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        Frame.GetController(Of ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
+
+        If View.Id Like "ContractProductHeader_ListView*" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().DeleteAction.TargetObjectsCriteria = "State=0 AND (DocumentNumber = '' OR IsNull(DocumentNumber)=True)"
+            Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", True)
+        End If
+
+        If View.Id Like "ContractProductHeader_DetailView*" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", True)
+        End If
+
+        If View.Id = "ContractProductHeader_ContractProductRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "ContractTemplate_ListView_PopUp" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "ContractProductRowsInOut_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsCustomersGroup_Linq" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsGroup_Linq" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "ContractProductRows_ListView_Invoice" Then
+            Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False)
+        End If
+        If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then
+            Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False) 'Iktatás betekintése
+            Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False)
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "ContractProductHeader_ContractProductRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+        End If
+        If View.Id Like "ContractProductHeader_ListView*" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
+        End If
+
+        If View.Id Like "ContractProductHeader_DetailView*" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
+        End If
+        If View.Id = "ContractTemplate_ListView_PopUp" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "ContractProductRowsInOut_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsCustomersGroup_Linq" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsGroup_Linq" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "ContractProductRows_ListView_Invoice" Then
+            Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", True)
+        End If
+        If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then
+            Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True) 'Iktatás betekintése
+            Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", True)
+        End If
+    End Sub
+    Private Sub aContractProductHeaderNew_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs)
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _DetailViewName As String = ""
+        Dim _ContractProductHeader As ContractProductHeader = _onew.CreateObject(Of ContractProductHeader)()
+        _ContractProductHeader.CustomersFrom = _onew.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("IsDefault=?", True))
+        If View.Id = "ContractProductHeader_ListView_Receivables" Then
+            _DetailViewName = "ContractProductHeader_DetailView_Receivables"
+            _ContractProductHeader.ContractTemplate = _onew.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? AND PartnerType=? AND IsProducts=True", _ContractProductHeader.CustomersFrom, ePartnerType.eReceivables))
+        End If
+        If View.Id = "ContractProductHeader_ListView_Payabels" Then
+            _DetailViewName = "ContractProductHeader_DetailView_Payables"
+            _ContractProductHeader.ContractTemplate = _onew.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? AND PartnerType=?  AND IsProducts=True", _ContractProductHeader.CustomersFrom, ePartnerType.ePayabels))
+        End If
+        If _DetailViewName <> "" Then
+            e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _DetailViewName, True, _ContractProductHeader)
+        Else
+            _onew.Rollback()
+            '--------------------------------- TESZT MIATT ------------------------------->>
+            Throw New Exception("*Az eladni kívánt mennyiség meghaladja maximálisan eladható mennyiséget!")
+            '--------------------------------- TESZT MIATT -------------------------------<<
+        End If
+    End Sub
+    Private Sub aTotable_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_ConProd_Payabels.Execute
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+        Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+        Dim _ContractProductHeader As ContractProductHeader = CType(View.SelectedObjects(0), ContractProductHeader)
+        Dim _ContractProductRows As ContractProductRows = _ocur.CreateObject(Of ContractProductRows)()
+        Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)()
+
+        _ContractProductRows.ContractProductHeader = _ContractProductHeader
+
+        Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products")
+        If ItemToFocus IsNot Nothing Then
+            Dim ItemControl As Object
+            ItemControl = ItemToFocus.Control
+            ItemControl.Focus()
+        End If
+
+
+        _ContractProductRows.AddRows(_ContractProductHeader)
+
+        _ContractProductRowsEvent.ContractProductRowsIn = _ContractProductRows
+        _ContractProductRowsEvent.QTT_In = _ContractProductHeader.row_QTT
+        _ContractProductRowsEvent.DateExecution = _ContractProductRows.DateExecution
+
+
+        _ocur.CommitChanges()
+
+        _ContractProductHeader.row_ContractProductRows = Nothing
+        _ContractProductHeader.row_NettoPriceDEV = 0
+        _ContractProductHeader.row_NettoPriceHUF = 0
+        _ContractProductHeader.row_Products = Nothing
+        _ContractProductHeader.row_QTT = 0
+        _ContractProductHeader.row_RowGroup1 = ""
+        _ContractProductHeader.row_RowGroup2 = ""
+        _ContractProductHeader.row_Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
+        _ContractProductHeader.row_VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
+
+
+        If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
+            Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+        End If
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+    End Sub
+    Private Sub aTotableD_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_ConProd_Payabels.Execute
+        Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+        Dim _ContractProductHeader As ContractProductHeader = View.SelectedObjects(0)
+        Dim _ContractProductHeader_ListEditor As ListPropertyEditor
+
+
+        _ContractProductHeader_ListEditor = TryCast(View, DetailView).FindItem("ContractProductRows")
+        For Each _ContractProductRows As ContractProductRows In _ContractProductHeader_ListEditor.ListView.SelectedObjects
+            Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)()
+            _ContractProductRowsEvent.ContractProductRowsIn = _ContractProductRows
+            _ContractProductRowsEvent.QTT_In = _ContractProductRows.QTT * (-1)
+            _ContractProductRowsEvent.DateExecution = _ContractProductRows.DateExecution
+
+            _ContractProductRows.RemoveRows()
+        Next
+
+        _ocur.CommitChanges()
+        View.Refresh()
+    End Sub
+    Private Sub aBackToRowEdit_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_ConProd_Payabels.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractProductHeader As ContractProductHeader = View.SelectedObjects(0) 'Kijelölt elem fejlécének betöltése
+
+        Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows") 'Sorok összeszedése
+        If _ListView.ListView.SelectedObjects.Count > 0 Then
+
+            Dim _ContractProductRows As ContractProductRows = _ListView.ListView.SelectedObjects(0)  'Régi sor változóba töltése
+
+            _ContractProductHeader.row_Products = _ContractProductRows.Products
+            _ContractProductHeader.row_NettoPriceDEV = _ContractProductRows.NettoPriceDEV
+            _ContractProductHeader.row_NettoPriceHUF = _ContractProductRows.NettoPriceHUF
+            _ContractProductHeader.row_QTT = _ContractProductRows.QTT
+            _ContractProductHeader.row_RowGroup1 = _ContractProductRows.RowGroup1
+            _ContractProductHeader.row_RowGroup2 = _ContractProductRows.RowGroup2
+            _ContractProductHeader.row_Units = _ContractProductRows.Units
+            _ContractProductHeader.row_VAT = _ContractProductRows.VAT
+            _ContractProductHeader.row_APCSheetByProducts = _ContractProductRows.APCSheetByProducts
+
+        End If
+    End Sub
+    Private Sub aTotable_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_ConProd_Receivables.Execute
+        '    Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+        Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+        Dim _ContractProductHeader As ContractProductHeader = CType(View.SelectedObjects(0), ContractProductHeader)
+        Dim _ContractProductRows_IN As ContractProductRows = _ocur.FindObject(Of ContractProductRows)(CriteriaOperator.Parse("Oid=?", _ContractProductHeader.row_ContractProductRows.Oid))
+        Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows") 'Sorok összeszedése
+        Dim _ContractProductRowsCollection As XPCollection = _ListView.ListView.ObjectSpace.CreateCollection(GetType(ContractProductRows), CriteriaOperator.Parse("ContractProductHeader=?", _ContractProductHeader))
+        Dim _ContractProductRows As ContractProductRows
+        Dim _MatchLine As Boolean = False
+
+        If _ContractProductHeader.row_QTT <= (_ContractProductRows_IN.QTT - _ContractProductRows_IN.QTT_Out) Then
+            For Each _ContractProductRows_List As ContractProductRows In _ContractProductRowsCollection
+                If _ContractProductRows_List.Products.Oid = _ContractProductHeader.row_ContractProductRows.Products.Oid Then
+                    If _ContractProductHeader.CurrencyName.ShortName = "HUF" Then
+                        If _ContractProductRows_List.NettoPriceHUF = _ContractProductHeader.row_NettoPriceHUF Then
+                            _MatchLine = True
+                        End If
+                    Else
+                        If _ContractProductRows_List.NettoPriceDEV = _ContractProductHeader.row_NettoPriceDEV Then
+                            _MatchLine = True
+                        End If
+                    End If
+                End If
+            Next
+            If _MatchLine Then
+                _ContractProductRows = _ocur.FindObject(Of ContractProductRows)(CriteriaOperator.Parse("ContractProductHeader=? AND Products=? AND NettoPriceHUF=? AND NettoPriceDEV=?", _
+                                                            _ContractProductHeader, _ContractProductHeader.row_ContractProductRows.Products, _ContractProductHeader.row_NettoPriceHUF, _ContractProductHeader.row_NettoPriceDEV))
+                _ContractProductRows.QTT += _ContractProductHeader.row_QTT
+                _ContractProductRows_IN.QTT_Out += _ContractProductHeader.row_QTT
+            Else
+                _ContractProductRows = _ocur.CreateObject(Of ContractProductRows)()
+
+                _ContractProductRows.ContractProductHeader = _ContractProductHeader
+                _ContractProductRows.AddRows(_ContractProductHeader)
+                _ContractProductRows_IN.QTT_Out += _ContractProductRows.QTT
+
+            End If
+
+            Dim _ContractProductRowsInOut As ContractProductRowsInOut = _ocur.CreateObject(Of ContractProductRowsInOut)()
+            Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)()
+
+            Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products")
+            If ItemToFocus IsNot Nothing Then
+                Dim ItemControl As Object
+                ItemControl = ItemToFocus.Control
+                If ItemControl IsNot Nothing Then
+                    ItemControl.Focus()
+                End If
+            End If
+
+
+            _ContractProductRowsInOut.QTT = _ContractProductHeader.row_QTT
+            _ContractProductRowsInOut.ContractProductRowsIn = _ContractProductRows_IN
+            _ContractProductRowsInOut.ContractProductRowsOut = _ContractProductRows
+
+            _ContractProductRowsEvent.ContractProductRowsOut = _ContractProductRows
+            _ContractProductRowsEvent.ContractProductRowsIn = _ContractProductHeader.row_ContractProductRows
+            _ContractProductRowsEvent.QTT_Out = _ContractProductHeader.row_QTT
+            _ContractProductRowsEvent.QTT_In = 0
+            _ContractProductRowsEvent.DateExecution = _ContractProductRows.DateExecution
+
+            _ContractProductHeader.row_ContractProductRows = Nothing
+            _ContractProductHeader.row_NettoPriceDEV = 0
+            _ContractProductHeader.row_NettoPriceHUF = 0
+            _ContractProductHeader.row_Products = Nothing
+            _ContractProductHeader.row_QTT = 0
+            _ContractProductHeader.row_RowGroup1 = ""
+            _ContractProductHeader.row_RowGroup2 = ""
+            _ContractProductHeader.row_Units = Nothing
+            _ContractProductHeader.row_VAT = Nothing
+
+            _ocur.CommitChanges()
+
+            If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
+                Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+            End If
+        Else
+            _ContractProductHeader.row_QTT = _ContractProductHeader.row_ContractProductRows.QTT - _ContractProductHeader.row_ContractProductRows.QTT_Out
+            '--------------------------------- TESZT MIATT ------------------------------->>
+            Throw New Exception("*Az eladni kívánt mennyiség meghaladja maximálisan eladható mennyiséget!")
+            '--------------------------------- TESZT MIATT -------------------------------<<
+        End If
+
+        '   Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+    End Sub
+    Private Sub aBackToRowEdit_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_ConProd_Receivables.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractProductHeader As ContractProductHeader = View.SelectedObjects(0) 'Kijelölt elem fejlécének betöltése
+
+        Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows") 'Sorok összeszedése
+        If _ListView.ListView.SelectedObjects.Count > 0 Then
+
+            Dim _ContractProductRows As ContractProductRows = _ListView.ListView.SelectedObjects(0)  'Régi sor változóba töltése
+
+            _ContractProductHeader.row_Products = _ContractProductRows.Products
+            _ContractProductHeader.row_ContractProductRows = TryCast(_ocur.FindObject(Of ContractProductRowsInOut)(CriteriaOperator.Parse("ContractProductRowsOut=?", _ContractProductRows)), ContractProductRowsInOut).ContractProductRowsIn
+            _ContractProductHeader.row_NettoPriceDEV = _ContractProductRows.NettoPriceDEV
+            _ContractProductHeader.row_NettoPriceHUF = _ContractProductRows.NettoPriceHUF
+            _ContractProductHeader.row_QTT = _ContractProductRows.QTT
+            _ContractProductHeader.row_RowGroup1 = _ContractProductRows.RowGroup1
+            _ContractProductHeader.row_RowGroup2 = _ContractProductRows.RowGroup2
+            _ContractProductHeader.row_Units = _ContractProductRows.Units
+            _ContractProductHeader.row_VAT = _ContractProductRows.VAT
+
+            View.Refresh()
+        End If
+    End Sub
+    Private Sub aDown_ContractProductRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_ContractProductRows.Execute
+        ' A kiválaszott sort egy sorral lejebb helyezi
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractProductHeader As ContractProductHeader = TryCast(View.CurrentObject, ContractProductRows).ContractProductHeader
+        Dim _ContractProductRowsSelected As ContractProductRows = Nothing
+        Dim _ContractProductRowsPlus As ContractProductRows = Nothing
+        Dim _ContractProductRows As ContractProductRows = Nothing
+
+        Try
+            _ContractProductRowsSelected = TryCast(View.SelectedObjects(0), ContractProductRows) ' Kiveszi a kijelölt sorok közül az elsõt
+        Catch
+            '--------------------------------- TESZT MIATT ------------------------------->>
+            Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
+            '--------------------------------- TESZT MIATT -------------------------------<<
+        End Try
+
+        If _ContractProductRowsSelected.RowIndex < _ContractProductHeader.ContractProductRows.Count - 1 Then
+            For Each _ContractProductRows In _ContractProductHeader.ContractProductRows
+                If _ContractProductRows.RowIndex = _ContractProductRowsSelected.RowIndex + 1 Then
+                    _ContractProductRowsPlus = _ContractProductRows
+                    Exit For
+                End If
+            Next
+
+            If _ContractProductRowsPlus IsNot Nothing Then
+                _ContractProductRowsSelected.RowIndex += 1
+                _ContractProductRowsPlus.RowIndex -= 1
+            End If
+
+            _ocur.CommitChanges()
+            View.Refresh()
+        End If
+    End Sub
+    Private Sub aUp_ContractProductRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_ContractProductRows.Execute
+        ' A kiválaszott sort egy sorral feljebb helyezi
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductRows).ContractProductHeader
+        Dim _ContractProductRowsSelected As ContractProductRows = Nothing
+        Dim _ContractProductRowsMinus As ContractProductRows = Nothing
+        Dim _ContractProductRows As ContractProductRows = Nothing
+
+        Try
+            _ContractProductRowsSelected = TryCast(View.SelectedObjects(0), ContractProductRows) ' Kiveszi a kijelölt sorok közül az elsõt
+        Catch
+            ' TESZT MIATT!!!! ----------------------------------------------------------------
+            Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
+        End Try
+
+        If _ContractProductRowsSelected.RowIndex > 0 Then
+            For Each _ContractProductRows In _ContractProductHeader.ContractProductRows
+                If _ContractProductRows.RowIndex = _ContractProductRowsSelected.RowIndex - 1 Then
+                    _ContractProductRowsMinus = _ContractProductRows
+                    Exit For
+                End If
+            Next
+
+            If _ContractProductRowsMinus IsNot Nothing Then
+                _ContractProductRowsSelected.RowIndex -= 1
+                _ContractProductRowsMinus.RowIndex += 1
+            End If
+
+            _ocur.CommitChanges()
+            View.Refresh()
+        End If
+    End Sub
+    Private Sub aNewContractProductHeader_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aNewContractProductHeader.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _CS As New CollectionSource(_onew, GetType(ContractTemplate))
+
+        _CS.BeginUpdateCriteria()
+        _CS.Criteria.Clear()
+        _CS.Criteria("First") = CriteriaOperator.Parse("IsProducts=True")
+        _CS.EndUpdateCriteria()
+
+        e.View = Application.CreateListView("ContractTemplate_ListView_PopUp", _CS, False)
+
+    End Sub
+    Private Sub aNewContractProductHeader_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aNewContractProductHeader.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        If e.PopupWindow.View.SelectedObjects.Count > 0 Then
+            Dim _ContractTemplate As ContractTemplate = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractTemplate)
+
+            Dim _DetailViewName As String = ""
+
+            If _ContractTemplate IsNot Nothing Or e.PopupWindow.View.SelectedObjects.Count = 1 Then
+                Dim _ContractProductHeader As ContractProductHeader = _onew.CreateObject(Of ContractProductHeader)()
+                _ContractProductHeader.CustomersFrom = _onew.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("IsDefault=?", True))
+                _ContractProductHeader.ContractTemplate = _onew.GetObjectByKey(Of ContractTemplate)(_ContractTemplate.Oid)
+
+                If _ContractTemplate.PartnerType = ePartnerType.eReceivables Then
+                    _DetailViewName = "ContractProductHeader_DetailView_Receivables"
+                End If
+                If _ContractTemplate.PartnerType = ePartnerType.ePayabels Then
+                    _DetailViewName = "ContractProductHeader_DetailView_Payables"
+                End If
+                If _DetailViewName <> "" Then
+                    e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _DetailViewName, True, _ContractProductHeader)
+                    e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow
+                Else
+                    _onew.Rollback()
+                    ' --------------------------------- TESZT MIATT ------------------------------->>
+                    Throw New Exception("*Váratlan hiba történt! A mûvelet megszakadt! " & vbNewLine & _
+                                        "Valószínüleg hibásan került be a rendszerbe egy vagy több szerzõdési sablon!" & vbNewLine & _
+                                        "Kérem ellenõrizze a szerzõdési sablonokat!")
+                    '    --------------------------------- TESZT MIATT -------------------------------<<
+                End If
+            Else
+                _onew.Rollback()
+                '   --------------------------------- TESZT MIATT ------------------------------->>
+                Throw New Exception("*Egynél több sor van kiválasztva!")
+                '    --------------------------------- TESZT MIATT -------------------------------<<
+            End If
+        Else
+            _onew.Rollback()
+            '   --------------------------------- TESZT MIATT ------------------------------->>
+            Throw New Exception("*Nincs sor kiválasztva!")
+            '    --------------------------------- TESZT MIATT -------------------------------<<
+        End If
+    End Sub
+    Private Sub aFinalizeContractProduct_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalizeContractProduct.Execute
+        Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+        Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader)
+        If _ContractProductHeader IsNot Nothing Then
+            Dim _CustomersNGCollection As CustomersNGCollection = Nothing
+
+            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+            If _ContractProductHeader.ContractTemplate.PartnerType = ePartnerType.eReceivables Then
+                _CustomersNGCollection = _ocur.FindObject(Of CustomersNGCollection)(CriteriaOperator.Parse("Customers=? AND ContractTemplate=?", _
+                                                        _ContractProductHeader.Customers, _ContractProductHeader.ContractTemplate))
+            End If
+
+            _ContractProductHeader.State = State.Ready
+
+            If _ContractProductHeader.DocumentNumber = "" Then
+                If _CustomersNGCollection IsNot Nothing Then
+                    _ContractProductHeader.DocumentNumber = _CustomersNGCollection.NumberGenerator.GetNewNumber(_CustomersNGCollection.NumberGenerator)
+                Else
+                    _ContractProductHeader.DocumentNumber = _ContractProductHeader.ContractTemplate.NumberGenerator.GetNewNumber(_ContractProductHeader.ContractTemplate.NumberGenerator)
+                End If
+            End If
+
+            _ocur.CommitChanges()
+            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+        End If
+    End Sub
+    Private Sub aSendBackToEditContractProduct_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSendBackToEditContractProduct.Execute
+        Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+        Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader)
+        If _ContractProductHeader IsNot Nothing Then
+            _ContractProductHeader.State = State.Preparation
+            _ocur.CommitChanges()
+        End If
+    End Sub
+    Private Sub aTotableD_ConProd_Receivables_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aTotableD_ConProd_Receivables.CustomizePopupWindowParams
+        Dim _ContractProductHeader_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows")
+        If _ContractProductHeader_ListEditor.ListView.SelectedObjects.Count > 0 Then
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _CS As New CollectionSource(_onew, GetType(ContractProductRowsInOut))
+            _CS.BeginUpdateCriteria()
+            _CS.Criteria.Clear()
+            _CS.Criteria("First") = CriteriaOperator.Parse("1=2") 'CriteriaOperator.Parse("ContractProductRowsOut=?", _ContractProductRows)
+            _CS.EndUpdateCriteria()
+
+            Dim _ContractProductRows As ContractProductRows = _ContractProductHeader_ListEditor.ListView.SelectedObjects(0)
+            Dim _ContractProductRowsInOut_List As XPCollection = _onew.CreateCollection(GetType(ContractProductRowsInOut), CriteriaOperator.Parse("ContractProductRowsOut=?", _onew.GetObject(_ContractProductRows)))
+
+            For Each _ContractProductRowsInOut As ContractProductRowsInOut In _ContractProductRowsInOut_List
+
+                _CS.Add(_ContractProductRowsInOut)
+            Next
+
+            e.View = Application.CreateListView("ContractProductRowsInOut_ListView", _CS, False)
+        Else
+            '--------------------------------- TESZT MIATT ------------------------------->>
+            Throw New Exception("*Nincs kiválasztva egy sor sem!")
+            '--------------------------------- TESZT MIATT -------------------------------<<
+        End If
+    End Sub
+    Private Sub aTotableD_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aTotableD_ConProd_Receivables.Execute
+        If e.PopupWindow.View.SelectedObjects.Count > 0 Then
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader)
+            Dim _ContractProductHeader_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows")
+            Dim _ContractProductRows As ContractProductRows = _ContractProductHeader_ListEditor.ListView.SelectedObjects(0)
+
+            For Each _ContractProductRowsInOut In e.PopupWindow.View.SelectedObjects
+                Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)()
+                Dim _ContractProductRowsInOut_Ocur As ContractProductRowsInOut = _ocur.GetObjectByKey(Of ContractProductRowsInOut)(TryCast(_ContractProductRowsInOut, ContractProductRowsInOut).Oid)
+                _ContractProductRowsInOut_Ocur.ContractProductRowsIn.QTT_Out -= _ContractProductRowsInOut_Ocur.QTT
+                _ContractProductRows.QTT -= _ContractProductRowsInOut_Ocur.QTT
+
+                _ContractProductRowsEvent.ContractProductRowsIn = _ContractProductRowsInOut_Ocur.ContractProductRowsIn
+                _ContractProductRowsEvent.ContractProductRowsOut = _ContractProductRows
+                _ContractProductRowsEvent.QTT_In = 0
+                _ContractProductRowsEvent.QTT_Out = _ContractProductRows.QTT
+
+                _ContractProductRowsInOut_Ocur.RemoveRows()
+                If _ContractProductRows.QTT = 0 Then
+                    _ContractProductRows.RemoveRows()
+                End If
+            Next
+
+            _ocur.CommitChanges()
+        Else
+            '--------------------------------- TESZT MIATT ------------------------------->>
+            Throw New Exception("*Nincs kiválasztva egy sor sem! A törlés nem hajtahtó végre!")
+            '--------------------------------- TESZT MIATT -------------------------------<<
+        End If
+        View.Refresh()
+    End Sub
+
+    Private Sub aPrintContractProduct_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPrintContractProduct.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader)
+        Try
+            If _ContractProductHeader IsNot Nothing Then
+                Dim _ReportData As DevExpress.Persistent.BaseImpl.ReportData = _ContractProductHeader.ContractTemplate.ReportData
+
+                If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!")
+
+                Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("ContractProductHeader.Oid=?", _ContractProductHeader.Oid), True)
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNote.cd

@@ -0,0 +1,139 @@
+<?xml version="1.0" encoding="utf-8"?>
+<ClassDiagram MajorVersion="1" MinorVersion="1">
+  <Class Name="SISBusiness.Module.DeliveryNoteInHeader">
+    <Position X="0.5" Y="0.5" Width="2.25" />
+    <Members>
+      <Field Name="_CurrencyName" Hidden="true" />
+      <Field Name="_CurrencyRate" Hidden="true" />
+      <Field Name="_Customers" Hidden="true" />
+      <Field Name="_CustomersFrom" Hidden="true" />
+      <Field Name="_DateCreated" Hidden="true" />
+      <Field Name="_DateExecution" Hidden="true" />
+      <Field Name="_DatePayment" Hidden="true" />
+      <Field Name="_DeliveryNoteInType" Hidden="true" />
+      <Field Name="_DocumentNumber" Hidden="true" />
+      <Field Name="_DocumentNumberIn" Hidden="true" />
+      <Field Name="_IsEditable" Hidden="true" />
+      <Field Name="_IsStorno" Hidden="true" />
+      <Field Name="_Note" Hidden="true" />
+      <Field Name="_ObjectCreated" Hidden="true" />
+      <Field Name="_PaymentOption" Hidden="true" />
+      <Field Name="_QualityOption" Hidden="true" />
+      <Field Name="_row_DiscountPercent" Hidden="true" />
+      <Field Name="_row_ListPriceDEV" Hidden="true" />
+      <Field Name="_row_ListPriceHUF" Hidden="true" />
+      <Field Name="_row_NoteRows" Hidden="true" />
+      <Field Name="_row_Products" Hidden="true" />
+      <Field Name="_row_QTT" Hidden="true" />
+      <Field Name="_ShipmentOption" Hidden="true" />
+      <Field Name="_UserCreated" Hidden="true" />
+      <Method Name="AfterConstruction" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+    </Members>
+    <TypeIdentifier>
+      <HashCode>mAFQAAhGCEAEAJIIJCKYIAkABAQIQVCADQgEkCECiTA=</HashCode>
+      <FileName>BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteIn\DeliveryNoteInHeader.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Class Name="SISBusiness.Module.DeliveryNoteInRows">
+    <Position X="3" Y="0.5" Width="2.25" />
+    <Members>
+      <Field Name="_DeliveryNoteInHeader" Hidden="true" />
+      <Field Name="_DiscountPriceDEV" Hidden="true" />
+      <Field Name="_DiscountPriceHUF" Hidden="true" />
+      <Field Name="_Installation" Hidden="true" />
+      <Field Name="_ListPriceDEV" Hidden="true" />
+      <Field Name="_ListPriceHUF" Hidden="true" />
+      <Field Name="_NoteRows" Hidden="true" />
+      <Field Name="_OrderOutRows" Hidden="true" />
+      <Field Name="_Products" Hidden="true" />
+      <Field Name="_QTT" Hidden="true" />
+      <Field Name="_QTT_Process" Hidden="true" />
+      <Field Name="_RowIndex" Hidden="true" />
+      <Field Name="_Units" Hidden="true" />
+      <Field Name="_VAT" Hidden="true" />
+      <Method Name="AddRows" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+    </Members>
+    <TypeIdentifier>
+      <HashCode>AAggAgEAMQAAYAAAwAAjJABAGgAAAABAkAAGIAAAgAU=</HashCode>
+      <FileName>BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteIn\DeliveryNoteInRows.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Class Name="SISBusiness.Module.DeliveryNoteInType">
+    <Position X="3" Y="5.5" Width="2.25" />
+    <Members>
+      <Field Name="_Description" Hidden="true" />
+      <Field Name="_ImportMode" Hidden="true" />
+      <Field Name="_IsPrice" Hidden="true" />
+      <Field Name="_NumberGenerator" Hidden="true" />
+      <Field Name="_ShortName" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+    </Members>
+    <TypeIdentifier>
+      <HashCode>AQAAAAAgAAAgAEAAAAAAAAAAAQAAEIIEAAAAAAACAAA=</HashCode>
+      <FileName>BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteIn\DeliveryNoteInType.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Class Name="SISBusiness.Module.DeliveryNoteOutHeader">
+    <Position X="7" Y="0.5" Width="2.25" />
+    <Members>
+      <Field Name="_CurrencyName" Hidden="true" />
+      <Field Name="_Customers" Hidden="true" />
+      <Field Name="_CustomersFrom" Hidden="true" />
+      <Field Name="_DateCreated" Hidden="true" />
+      <Field Name="_DateExecution" Hidden="true" />
+      <Field Name="_DeliveryNoteOutType" Hidden="true" />
+      <Field Name="_DocumentNumber" Hidden="true" />
+      <Field Name="_IsEditable" Hidden="true" />
+      <Field Name="_IsStorno" Hidden="true" />
+      <Field Name="_Note" Hidden="true" />
+      <Field Name="_ObjectCreated" Hidden="true" />
+      <Field Name="_QualityOption" Hidden="true" />
+      <Field Name="_row_NoteRows" Hidden="true" />
+      <Field Name="_row_QTT" Hidden="true" />
+      <Field Name="_row_StorageOutRowsInRows" Hidden="true" />
+      <Field Name="_ShipmentOption" Hidden="true" />
+      <Field Name="_TransportAddress" Hidden="true" />
+      <Field Name="_UserCreated" Hidden="true" />
+      <Method Name="AfterConstruction" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+      <Method Name="OnSaving" Hidden="true" />
+    </Members>
+    <TypeIdentifier>
+      <HashCode>GQFAAA1GAEAEAIIIICCYIIAABCQIAACBCAAMECEAgDA=</HashCode>
+      <FileName>BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteOut\DeliveryNoteOutHeader.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Class Name="SISBusiness.Module.DeliveryNoteOutRows">
+    <Position X="9.5" Y="0.5" Width="2.25" />
+    <Members>
+      <Field Name="_DeliveryNoteOutHeader" Hidden="true" />
+      <Field Name="_Note" Hidden="true" />
+      <Field Name="_QTT" Hidden="true" />
+      <Field Name="_RowIndex" Hidden="true" />
+      <Field Name="_StorageOutRowsInRows" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+    </Members>
+    <TypeIdentifier>
+      <HashCode>AAAAAAAAAQAAQAAAAAAQAAAAABAAAEAAgAgAAAEggAA=</HashCode>
+      <FileName>BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteOut\DeliveryNoteOutRows.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Class Name="SISBusiness.Module.DeliveryNoteOutType">
+    <Position X="9.5" Y="2.75" Width="2.25" />
+    <Members>
+      <Field Name="_Description" Hidden="true" />
+      <Field Name="_ExportMode" Hidden="true" />
+      <Field Name="_IsPrice" Hidden="true" />
+      <Field Name="_NumberGenerator" Hidden="true" />
+      <Field Name="_ShortName" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+    </Members>
+    <TypeIdentifier>
+      <HashCode>AQAAAAAgAAAgAEAACAAAAgAAAQAAAIAEAAAAAAACAAA=</HashCode>
+      <FileName>BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteOut\DeliveryNoteOutType.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Font Name="Segoe UI" Size="9" />
+</ClassDiagram>

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInHeader.vb

@@ -0,0 +1,531 @@
+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 eWeightMode
+    eTotalWeightperQuantity = 0 'Össz súly
+    eUnitWeightperQuantity = 1 'Egység súly
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("BusinessTransactions")> _
+<DefaultProperty("DisplayName")> _
+<Appearance("DeliveryNoteInHeader - Disable IsStorno and IsEditable_DeliveryNoteIn", AppearanceItemType.ViewItem, "1=1", TargetItems:="IsStorno;IsEditable", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable all properties on DetailNoteInHeader when IsEditable = False",
+    AppearanceItemType.ViewItem,
+    "IsEditable = False",
+    TargetItems:="DeliveryNoteInType;DocumentNumber;CustomersFrom;DateCreated;CurrencyName;" +
+                 "CurrencyRate;IsEditable;IsStorno;ObjectCreated;UserCreated;IsControlled;IsStoraged", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Hide payment properties if DeliveryNoteInType.IsPrice = False", AppearanceItemType.ViewItem, "DeliveryNoteInType.IsPrice=False", TargetItems:="PaymentOption;DatePayment;row_ListPriceDEV;row_ListPriceHUF;CurrencyName;CurrencyRate;row_DiscountPercent", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Hide DeliveryNoteInHeader-CurrencyRate", AppearanceItemType.ViewItem, "CurrencyName.ShortName='HUF'", TargetItems:="CurrencyRate", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Hide _row_ListPriceDEV if CurrencyName is HUF", AppearanceItemType.ViewItem, "CurrencyName.ShortName='HUF' Or IsNull(DeliveryNoteInType)=True", TargetItems:="row_ListPriceDEV", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Hide _row_ListPriceHUF if CurrencyName is not HUF", AppearanceItemType.ViewItem, "(CurrencyName.ShortName<>'HUF' And IsNull(CurrencyName)=False) Or IsNull(DeliveryNoteInType)=True", TargetItems:="row_ListPriceHUF", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Disable aToTable_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aTotable_DeliveryNoteIn", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Disable aToTableD_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aTotableD_DeliveryNoteIn", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Disable aFinalize_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aFinalize_DeliveryNoteIn;aFinalize_And_Storage_DeliveryNoteIn", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Enable aFinalize_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = True", TargetItems:="aFinalize_DeliveryNoteIn", Enabled:=True)> _
+<Appearance("DeliveryNoteInHeader - Disable aGenerateStorageIn_From_DeliveryNoteInRows", AppearanceItemType.Action, "IsStorno = True", TargetItems:="aGenerateStorageIn_From_DeliveryNoteInRows", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable aStorno_DeliveryNoteIn", AppearanceItemType.Action, "IsStorno = True Or IsEditable = True", TargetItems:="aStorno_DeliveryNoteIn", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Enable aStorno_DeliveryNoteIn", AppearanceItemType.Action, "IsStorno = False And IsEditable = False", TargetItems:="aStorno_DeliveryNoteIn", Enabled:=True)> _
+<Appearance("DeliveryNoteInHeader - Disable OpeneObject_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="OpenObject", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable Delete_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="Delete", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable Save_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="Save", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable SaveAndNew_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="SaveAndNew", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable SaveAndClose_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="SaveAndClose", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable ShowAllContexts_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="ShowAllContexts", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable DeliveryNoteInHeader-CustomersFrom", AppearanceItemType.ViewItem, "IsNull(CustomersFrom)=False", TargetItems:="CustomersFrom", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable DeliveryNoteInHeader-DeliveryNoteInType", AppearanceItemType.ViewItem, "IsNull(DeliveryNoteInType)=False", TargetItems:="DeliveryNoteInType", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable DeliveryNoteInHeader-CurrencyName", AppearanceItemType.ViewItem, "IsNull(DocumentNumber)=False", TargetItems:="CurrencyName", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable DeliveryNoteInHeader-Customers", AppearanceItemType.ViewItem, "IsNull(Customers)=False", TargetItems:="Customers", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable DocumentNumber", AppearanceItemType.ViewItem, "1=1", TargetItems:="DocumentNumber", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Set line to red if IsStorno=True", AppearanceItemType:="ViewItem", TargetItems:="*", FontColor:="Red", Criteria:="IsStorno=True", Context:="ListView")> _
+<Appearance("DeliveryNoteInHeader - Disable ObjectCreated DeliveryNoteInHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable UserCreated DeliveryNoteInHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Hide Tab_DeliveryNoteInRows", AppearanceItemType.LayoutItem, "IsNull(DeliveryNoteInType) Or IsNull(DocumentNumber) Or IsNull(Customers) Or IsNull(CustomersFrom)", TargetItems:="Tab_DeliveryNoteInRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Hide Tab_StorageInRows", AppearanceItemType.LayoutItem, "IsNull(DeliveryNoteInType) Or IsNull(DocumentNumber) Or IsNull(Customers) Or IsNull(CustomersFrom)", TargetItems:="Tab_StorageInRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Hide Tab_StorageOutRowsInRows", AppearanceItemType.LayoutItem, "IsNull(DeliveryNoteInType) Or IsNull(DocumentNumber) Or IsNull(Customers) Or IsNull(CustomersFrom)", TargetItems:="Tab_StorageOutRowsInRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Hide all row_ properties, when IsEditable = False",
+             AppearanceItemType.ViewItem,
+             "IsEditable = False",
+             TargetItems:="row_PacketNumber;row_CountryFrom;row_Weight;row_OrderOutRows;row_Products;row_QTT;" +
+                          "row_ListPriceHUF;row_ListPriceDEV;row_DiscountPercent;row_NoteRows;row_WeightMode;", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Disable DatePayment", AppearanceItemType.ViewItem, "1=1", TargetItems:="DatePayment", Enabled:=False)> _
+Public Class DeliveryNoteInHeader 'Bejövő szállítólevél fejléc
+    Inherits BaseObject
+    Private _DeliveryNoteInType As DeliveryNoteInType 'Bejövő szállítólevél tipusa
+    Private _DocumentNumber As String 'Bizonylat száma
+    Private _DocumentNumberIn As String 'Belső sorszám (véglegesítéskor kapja)
+    Private _CustomersFrom As CustomersFrom 'Saját cég
+    Private _Customers As Customers 'Beszállító
+    Private _DateCreated As Date 'Kiáll. dátuma
+    Private _DateExecution As Date 'Teljesítés dátuma
+    Private _DatePayment As Date 'Fizetési határidő
+    Private _PaymentOption As PaymentOption 'Fizetési opció
+    Private _ShipmentOption As ShipmentOption 'Szállítási opció
+    Private _QualityOption As QualityOption 'Minőségi opció
+    Private _CurrencyName As CurrencyName 'Deviza
+    Private _CurrencyRate As Double 'Deviza árfolyam
+    Private _Note As String 'Fejléc megjegyzés
+    Private _IsEditable As Boolean = True 'Szerkeszthető
+    Private _IsStorno As Boolean = False 'Végleges
+    Private _ObjectCreated As Date 'Objektum keletkezésének dátuma
+    Private _UserCreated As User
+    Private _IsControlled As Boolean 'Akkor lesz True, ha a szállítólevélen lévő összes sor össze van pontozva számlával
+    Private _IsStoraged As Boolean 'Akkor lesz True, ha minden tétele be lett vételezve
+    Private _DocumentFile As FileData 'A beszkennelt szállítólevél
+    '-- Non persistent
+    Private _row_OrderOutRows As OrderOutRows 'Kimenő megrendelési sorok
+    Private _row_Products As Products 'Termék, ami a szállítólevelen van
+    Private _row_QTT As Double 'Termék szállított mennyisége
+    Private _row_ListPriceHUF As Double 'Termék listaára HUF
+    Private _row_ListPriceDEV As Double 'Termék listaára DEV
+    Private _row_DiscountPercent As Double 'Termék ár kedvezmény %-ban
+    Private _row_NoteRows As String 'Sor megjegyzés
+    Private _row_PacketNumber As String 'Kötegszám, Fémzárszám
+    Private _row_Weight As Double
+    Private _row_WeightMode As eWeightMode
+    Private _row_CountryFrom As Country 'Származási ország !
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+
+        IsEditable = True
+        IsStorno = False
+        IsControlled = False
+        IsStoraged = False
+        CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If _DocumentNumber = "" Then
+            _DocumentNumber = DeliveryNoteInType.NumberGenerator.GetNewNumber(DeliveryNoteInType.NumberGenerator)
+        End If
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    <ImmediatePostData()> _
+    <RuleRequiredField("DeliveryNoteInHeader.DeliveryNoteInType", DefaultContexts.Save)> _
+    Property DeliveryNoteInType As DeliveryNoteInType
+        Get
+            Return _DeliveryNoteInType
+        End Get
+        Set(value As DeliveryNoteInType)
+            SetPropertyValue("DeliveryNoteInType", _DeliveryNoteInType, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property DocumentNumber() As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    <RuleRequiredField("DeliveryNoteInHeaderDocumentNumberIn-1", "aFinalize_DeliveryNoteIn_Contexts")> _
+    <RuleRequiredField("DeliveryNoteInHeaderDocumentNumberIn-2", "aFinalize_And_Storage_DeliveryNoteIn_Contexts")> _
+    Property DocumentNumberIn() As String
+        Get
+            Return _DocumentNumberIn
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentNumberIn", _DocumentNumberIn, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteInHeader.Customers", DefaultContexts.Save)> _
+    Property Customers() As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteInHeader.CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom() As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property DateCreated() As Date
+        Get
+            Return _DateCreated
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateCreated", _DateCreated, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property DateExecution() As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+            If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then
+                If Me.PaymentOption IsNot Nothing Then
+                    Me.DatePayment = Nothing
+                    If PaymentOption.DatePaymentMode = eDatePaymentMode.eDateCreated Then
+                    Else
+                        Me.DatePayment = value.AddDays(PaymentOption.PayDay)
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property DatePayment() As Date
+        Get
+            Return _DatePayment
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DatePayment", _DatePayment, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property PaymentOption As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+            If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then
+                If Me.DateExecution <> Nothing And value IsNot Nothing Then
+                    Me.DatePayment = Nothing
+                    Me.DatePayment = DateExecution.AddDays(value.PayDay)
+                End If
+            End If
+        End Set
+    End Property
+    Property ShipmentOption() As ShipmentOption
+        Get
+            Return _ShipmentOption
+        End Get
+        Set(ByVal value As ShipmentOption)
+            SetPropertyValue("ShipmentOption", _ShipmentOption, value)
+        End Set
+    End Property
+    Property QualityOption() As QualityOption
+        Get
+            Return _QualityOption
+        End Get
+        Set(ByVal value As QualityOption)
+            SetPropertyValue("QualityOption", _QualityOption, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <RuleRequiredField("DeliveryNoteInHeader.CurrencyName", DefaultContexts.Save, TargetCriteria:="DeliveryNoteInType.IsPrice=True")> _
+    Property CurrencyName() As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    <RuleRange("DeliveryNoteInHeader.CurrencyRate", DefaultContexts.Save, 0.001, 999999999, TargetCriteria:="CurrencyName.ShortName<>'HUF' And IsNull(CurrencyName)=False And DeliveryNoteInType.IsPrice=True")> _
+    Property CurrencyRate As Double
+        Get
+            Return _CurrencyRate
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CurrencyRate", _CurrencyRate, 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
+    <NonCloneable()>
+    Property IsEditable() As Boolean
+        Get
+            Return _IsEditable
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsEditable", _IsEditable, value)
+        End Set
+    End Property
+    <NonCloneable()>
+    Property IsStorno() As Boolean
+        Get
+            Return _IsStorno
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsStorno", _IsStorno, 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 IsControlled As Boolean
+        Get
+            Return _IsControlled
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsControlled", _IsControlled, value)
+        End Set
+    End Property
+    Property IsStoraged As Boolean
+        Get
+            Return _IsStoraged
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsStoraged", _IsStoraged, value)
+        End Set
+    End Property
+    <Aggregated(), ExpandObjectMembers(ExpandObjectMembers.Never)> _
+    Property DocumentFile() As FileData
+        Get
+            Return _DocumentFile
+        End Get
+        Set(ByVal value As FileData)
+            SetPropertyValue("DocumentFile", _DocumentFile, value)
+        End Set
+    End Property
+
+    '-- NON persistent propertyk-------------------------------
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    <DataSourceProperty("OrderOutRows")> _
+    <ImmediatePostData()> _
+    Property row_OrderOutRows As OrderOutRows
+        Get
+            Return _row_OrderOutRows
+        End Get
+        Set(value As OrderOutRows)
+            SetPropertyValue("row_OrderOutRows", _row_OrderOutRows, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If value IsNot Nothing Then
+                    Me.row_Products = value.Products
+                    Me.row_QTT = value.QTT - value.QTT_DeliveryNoteIn
+                    Me.row_ListPriceHUF = value.ListPriceHUF
+                    Me.row_ListPriceDEV = value.ListPriceDEV
+                    Me.row_DiscountPercent = value.DiscountPercent
+                End If
+            End If
+        End Set
+    End Property
+    <NonPersistent()> _
+    <RuleRequiredField("DeliveryNoteInHeader.row_Products", "aToTableDeliveryNoteIn_Context")> _
+    <VisibleInListView(False)> _
+    <ImmediatePostData()> _
+    Property row_Products As Products
+        Get
+            Return _row_Products
+        End Get
+        Set(ByVal value As Products)
+            SetPropertyValue("row_Products", _row_Products, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If row_Products IsNot Nothing Then
+                    Me.row_ListPriceHUF = Me.row_Products.ListPriceInHUF
+                    Me.row_ListPriceDEV = Me.row_Products.ListPriceInDEV
+                End If
+            End If
+        End Set
+    End Property
+    <NonPersistent()> _
+    <RuleRange("DeliveryNoteInHeader.row_QTT", "aToTableDeliveryNoteIn_Context", 0.001, 999999999)> _
+    <VisibleInListView(False)> _
+    Property row_QTT As Double
+        Get
+            Return _row_QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("row_QTT", _row_QTT, value)
+        End Set
+    End Property
+    <NonPersistent()>
+    <RuleRange("DeliveryNoteInHeader.row_ListPriceHUF", "aToTableDeliveryNoteIn_Context", 0.001, 999999999, TargetCriteria:="CurrencyName.ShortName='HUF' And DeliveryNoteInType.IsPrice=True")> _
+    <VisibleInListView(False)> _
+    Property row_ListPriceHUF As Double
+        Get
+            Return _row_ListPriceHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("row_ListPriceHUF", _row_ListPriceHUF, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <RuleRange("DeliveryNoteInHeader.row_ListPriceDEV", "aToTableDeliveryNoteIn_Context", 0.001, 999999999, TargetCriteria:="CurrencyName.ShortName<>'HUF' And IsNull(CurrencyName)=False And DeliveryNoteInType.IsPrice=True")> _
+    <VisibleInListView(False)> _
+    Property row_ListPriceDEV As Double
+        Get
+            Return _row_ListPriceDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("row_ListPriceDEV", _row_ListPriceDEV, value)
+        End Set
+    End Property
+    <RuleRange("DeliveryNoteInHeader.row_DiscountPercent", "aToTableDeliveryNoteIn_Context", 0, 99)> _
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_DiscountPercent As Double
+        Get
+            Return _row_DiscountPercent
+        End Get
+        Set(ByVal value As Double)
+            'If value < 0 Or value > 99 Then
+            '    Throw New Exception("*A kedvemény mértékének 1 és 99 között kell lennie.")
+            'End If
+            SetPropertyValue("row_DiscountPercent", _row_DiscountPercent, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_NoteRows As String
+        Get
+            Return _row_NoteRows
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_NoteRows", _row_NoteRows, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_PacketNumber As String
+        Get
+            Return _row_PacketNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_PacketNumber", _row_PacketNumber, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_Weight As Double
+        Get
+            Return _row_Weight
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_Weight", _row_Weight, value)
+        End Set
+    End Property
+    <NonPersistent>
+    Property row_WeightMode As eWeightMode
+        Get
+            Return _row_WeightMode
+        End Get
+        Set(value As eWeightMode)
+            SetPropertyValue("row_WeightMode", _row_WeightMode, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+   <VisibleInListView(False)> _
+    Property row_CountryFrom As Country
+        Get
+            Return _row_CountryFrom
+        End Get
+        Set(value As Country)
+            SetPropertyValue("row_CountryFrom", _row_CountryFrom, value)
+        End Set
+    End Property
+
+
+    <VisibleInListView(False)> _
+    <Browsable(False)> _
+    Private ReadOnly Property OrderOutRows As XPCollection(Of OrderOutRows)
+        Get
+            'Dim _OrderOutRows As OrderOutRows
+            Dim _OrderOutRows_Collection As XPCollection(Of OrderOutRows)
+            Dim _Criteria As String
+
+
+            _Criteria = "OrderOutHeader.IsEditable = False and OrderOutHeader.IsStorno = False and OrderOutHeader.CustomersFrom.Oid=? "
+            _Criteria += " and OrderOutHeader.CustomersOrder.Oid=? and QTT_DeliveryNoteIn<QTT"
+
+            _OrderOutRows_Collection = New XPCollection(Of OrderOutRows)(Session, CriteriaOperator.Parse(_Criteria, Me.CustomersFrom.Oid, Me.Customers.Oid))
+            Return _OrderOutRows_Collection
+        End Get
+    End Property
+    <Association("DeliveryNoteInHeader-DeliveryNoteInRows", GetType(DeliveryNoteInRows)), VisibleInListView(False)> _
+    ReadOnly Property DeliveryNoteInrows As XPCollection(Of DeliveryNoteInRows)
+        Get
+            Return GetCollection(Of DeliveryNoteInRows)("DeliveryNoteInrows")
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows)
+        Get
+            Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("StorageInRows.DeliveryNoteInRows.DeliveryNoteInHeader=?", Me))
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property StorageInRows As XPCollection(Of StorageInRows)
+        Get
+            Return New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse("DeliveryNoteInRows.DeliveryNoteInHeader=?", Me))
+        End Get
+    End Property
+
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property DeliveryNoteInRRFC As XPCollection(Of DeliveryNoteInRRFC)
+        Get
+            Return New XPCollection(Of DeliveryNoteInRRFC)(Session, CriteriaOperator.Parse("DeliveryNoteInRows.DeliveryNoteInHeader=?", Me))
+        End Get
+    End Property
+
+    <VisibleInDetailView(False)> _
+        <VisibleInListView(False)> _
+        <VisibleInLookupListView(False)> _
+    ReadOnly Property DisplayName As String
+        Get
+            Return Me.DocumentNumber & ", " & Me.DocumentNumberIn & ", " & Me.DateExecution
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property OrderInTo As XPCollection(Of OrderInTo)
+        Get
+            Dim _OrderInTo_Collection As New XPCollection(Of OrderInTo)(Session, CriteriaOperator.Parse("1=2"))
+            Dim _OrderInTo As OrderInTo
+            Dim _DeliveryNoteInRows As DeliveryNoteInRows
+
+            For Each _DeliveryNoteInRows In Me.DeliveryNoteInrows
+                If _DeliveryNoteInRows.OrderOutRows IsNot Nothing Then
+                    Dim _OrderInTo_Collection_1 As New XPCollection(Of OrderInTo)(Session, CriteriaOperator.Parse("OrderOutRows=?", _DeliveryNoteInRows.OrderOutRows))
+                    For Each _OrderInTo In _OrderInTo_Collection_1
+                        _OrderInTo_Collection.Add(_OrderInTo)
+                    Next
+                End If
+            Next
+            Return _OrderInTo_Collection
+        End Get
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInRRFC.vb

@@ -0,0 +1,86 @@
+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 DeliveryNoteInRRFC 'Szállítói számla igazolási sora és bejövõ szállítólevél sora kapcsolat
+    Inherits BaseObject
+
+    Private _DeliveryNoteInRows As DeliveryNoteInRows 'Szállítólevél sor
+    Private _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling 'Számla igazolási sor
+    Private _QTT_Controlled As Double 'Leigazolt mennyiség adott sorra vonatkozólag
+    Private _BonusHUF As Double ' Bónusz erre a sorra vonatkozólag ! Ez csökkenti, vagy növeli a beszerzési értéket !
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+    Protected Overrides Sub OnSaved()
+        MyBase.OnSaved()
+        Dim _DeliveryNoteInRRFC_Collection As New XPCollection(Of DeliveryNoteInRRFC)(Session, CriteriaOperator.Parse("DeliveryNoteInRows=?", DeliveryNoteInRows))
+        Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC
+        Dim _QTT_Controlled As Double = 0
+        For Each _DeliveryNoteInRRFC In _DeliveryNoteInRRFC_Collection
+            _QTT_Controlled += _DeliveryNoteInRRFC._QTT_Controlled
+        Next
+        DeliveryNoteInRows.QTT_Controlled = _QTT_Controlled
+        DeliveryNoteInRows.Save()
+        DeliveryNoteInRows.DeliveryNoteInHeader.IsControlled = True
+        For Each _DeliveryNoteInRows As DeliveryNoteInRows In DeliveryNoteInRows.DeliveryNoteInHeader.DeliveryNoteInrows
+            If _DeliveryNoteInRows.QTT <> _DeliveryNoteInRows.QTT_Controlled Then
+                DeliveryNoteInRows.DeliveryNoteInHeader.IsControlled = False
+                Exit For
+            End If
+        Next
+        DeliveryNoteInRows.DeliveryNoteInHeader.Save()
+        Session.CommitTransaction()
+    End Sub
+   
+    Property DeliveryNoteInRows As DeliveryNoteInRows
+        Get
+            Return _DeliveryNoteInRows
+        End Get
+        Set(value As DeliveryNoteInRows)
+            SetPropertyValue("DeliveryNoteInRows", _DeliveryNoteInRows, value)
+        End Set
+    End Property
+    Property RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
+        Get
+            Return _RegistryRowsFinancialControlling
+        End Get
+        Set(value As RegistryRowsFinancialControlling)
+            SetPropertyValue("RegistryRowsFinancialControlling", _RegistryRowsFinancialControlling, value)
+        End Set
+    End Property
+    Property QTT_Controlled As Double
+        Get
+            Return _QTT_Controlled
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Controlled", _QTT_Controlled, value)
+        End Set
+    End Property
+    Property BonusHUF As Double
+        Get
+            Return _BonusHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("BonusHUF", _BonusHUF, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInRows.vb

@@ -0,0 +1,355 @@
+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 DeliveryNoteInRows 'Bejövő szállítólevél sorok
+    Inherits BaseObject
+    Private _DeliveryNoteInHeader As DeliveryNoteInHeader
+    Private _RowIndex As Long = 0 'Sor index
+    Private _Products As Products 'Termék vagy szolgáltatás
+    Private _Installation As Installation 'Gyártmány
+    Private _ListPriceHUF As Double = 0 ' Egységár HUF (nettó !)
+    Private _ListPriceDEV As Double = 0 ' Egységár DEV (Nettó !)
+    Private _DiscountPriceHUF As Double = 0 'Kedvezmény összege HUF
+    Private _DiscountPriceDEV As Double = 0 'Kedvezmény összege DEV
+    Private _QTT As Double = 0 'Mennyiség
+    Private _QTT_Process As Double 'Mennyiségi szándék, kézzel beírható 
+    Private _QTT_Controlled As Double 'Erre a sorra vonatkozólag ? lett leigazolva szállítói számlán
+    Private _QTT_Returned As Double ' Visszárúzott mennyiség
+    Private _Units As Units ' Mennyiségi egység
+    Private _VAT As VAT 'ÁFA
+    Private _OrderOutRows As OrderOutRows 'Kimenő rendelési sor
+    Private _OfferInRows As OfferInRows
+    Private _NoteRows As String 'Sor megjegyzés
+    Private _PacketNumber As String 'Kötegszám
+    Private _Weight As Double 'Súly (összes mennyiség súlya)
+    Private _WeightMode As eWeightMode 'Súly értelmezése, egységsúly vagy öszsúly
+    Private _Area As Double 'Négyzetméter
+    Private _ITransactionNumber As String 'INRASTAT tranzakciós azonosító
+    Private _ShipingCode As String 'INTRASTAT szállítási azonosító
+
+    Private _row_ListPrice As Double
+    Private _row_DiscountPercent As Double
+    Private _row_SumPrice As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        QTT = 0
+        QTT_Controlled = 0
+        QTT_Process = 0
+        QTT_Returned = 0
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+
+    End Sub
+    <Association("DeliveryNoteInHeader-DeliveryNoteInRows", GetType(DeliveryNoteInHeader))> _
+    Property DeliveryNoteInHeader As DeliveryNoteInHeader
+        Get
+            Return _DeliveryNoteInHeader
+        End Get
+        Set(ByVal value As DeliveryNoteInHeader)
+            SetPropertyValue("DeliveryNoteInHeader", _DeliveryNoteInHeader, value)
+        End Set
+    End Property
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property Installation As Installation
+        Get
+            Return _Installation
+        End Get
+        Set(value As Installation)
+            SetPropertyValue("Installation", _Installation, value)
+        End Set
+    End Property
+    ReadOnly Property SumPriceHUF() As Double
+        Get
+            Return Math.Round(_QTT * (_ListPriceHUF - _DiscountPriceHUF), 0, MidpointRounding.AwayFromZero)
+        End Get
+    End Property
+    ReadOnly Property SumPriceDEV() As Double
+        Get
+            Return Math.Round(_QTT * (_ListPriceDEV - _DiscountPriceDEV), 2, MidpointRounding.AwayFromZero)
+        End Get
+    End Property
+    ReadOnly Property SumPriceVATHUF As Double
+        Get
+            If VAT Is Nothing Then
+                Return 0
+            Else
+                Return Math.Round(SumPriceHUF * VAT.KeyValue, 0, MidpointRounding.AwayFromZero)
+            End If
+
+        End Get
+    End Property
+    ReadOnly Property SumPriceVATDEV As Double
+        Get
+            If VAT Is Nothing Then
+                Return 0
+            Else
+                Return Math.Round(SumPriceDEV * VAT.KeyValue, 2, MidpointRounding.AwayFromZero)
+            End If
+
+        End Get
+    End Property
+    ReadOnly Property SumPriceBruttoHUF As Double
+        Get
+            Return SumPriceHUF + SumPriceVATHUF
+        End Get
+    End Property
+    ReadOnly Property SumPriceBruttoDEV As Double
+        Get
+            Return SumPriceDEV + SumPriceVATDEV
+        End Get
+    End Property
+    Property ListPriceHUF() As Double
+        Get
+            Return _ListPriceHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("ListPriceHUF", _ListPriceHUF, value)
+        End Set
+    End Property
+    Property ListPriceDEV() As Double
+        Get
+            Return _ListPriceDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("ListPriceDEV", _ListPriceDEV, value)
+        End Set
+    End Property
+    Property DiscountPriceHUF() As Double
+        Get
+            Return _DiscountPriceHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("DiscountPriceHUF", _DiscountPriceHUF, value)
+        End Set
+    End Property
+    Property DiscountPriceDEV() As Double
+        Get
+            Return _DiscountPriceDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("DiscountPriceDEV", _DiscountPriceDEV, value)
+        End Set
+    End Property
+    <RuleRequiredField("RuleRequiredField for DeliveryNoteInRows.QTT", DefaultContexts.Save)> _
+    Property QTT() As Double
+        Get
+            Return _QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property QTT_Process As Double
+        Get
+            Return _QTT_Process
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Process", _QTT_Process, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                controlled_SumPrice = SetRowSumPrice(value, controlled_ListPrice, controlled_DiscountPercent)
+            End If
+        End Set
+    End Property
+    Property QTT_Controlled As Double
+        Get
+            Return _QTT_Controlled
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Controlled", _QTT_Controlled, value)
+        End Set
+    End Property
+    Property QTT_Returned As Double
+        Get
+            Return _QTT_Returned
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Returned", _QTT_Returned, value)
+        End Set
+    End Property
+    <RuleRequiredField("RuleRequiredField for DeliveryNoteInRows.Units", DefaultContexts.Save)> _
+    Property Units() As Units
+        Get
+            Return _Units
+        End Get
+        Set(ByVal value As Units)
+            SetPropertyValue("Units", _Units, value)
+        End Set
+    End Property
+    <RuleRequiredField("RuleRequiredField for DeliveryNoteInRows.VAT", DefaultContexts.Save)> _
+    Property VAT() As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(ByVal value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+    Property OrderOutRows As OrderOutRows
+        Get
+            Return _OrderOutRows
+        End Get
+        Set(value As OrderOutRows)
+            SetPropertyValue("OrderOutRows", _OrderOutRows, value)
+        End Set
+    End Property
+    Property OfferInRows As OfferInRows
+        Get
+            Return _OfferInRows
+        End Get
+        Set(value As OfferInRows)
+            SetPropertyValue("OfferInRows", _OfferInRows, value)
+        End Set
+    End Property
+    Property NoteRows As String
+        Get
+            Return _NoteRows
+        End Get
+        Set(value As String)
+            SetPropertyValue("NoteRows", _NoteRows, value)
+        End Set
+    End Property
+    Property PacketNumber As String
+        Get
+            Return _PacketNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("PacketNumber", _PacketNumber, value)
+        End Set
+    End Property
+    Property Weight As Double
+        Get
+            Return _Weight
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Weight", _Weight, value)
+        End Set
+    End Property
+    Property WeightMode As eWeightMode
+        Get
+            Return _WeightMode
+        End Get
+        Set(value As eWeightMode)
+            SetPropertyValue("WeightMode", _WeightMode, value)
+        End Set
+    End Property
+    Property Area As Double
+        Get
+            Return _Area
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Area", _Area, value)
+        End Set
+    End Property
+    Property ITransactionNumber As String
+        Get
+            Return _ITransactionNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("ITransactionNumber", _ITransactionNumber, value)
+        End Set
+    End Property
+    Property ShipingCode As String
+        Get
+            Return _ShipingCode
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShipingCode", _ShipingCode, value)
+        End Set
+    End Property
+    '-----------Nonpersistent------------
+    <NonPersistent>
+    Property controlled_ListPrice As Double
+        Get
+            Return _row_ListPrice
+        End Get
+        Set(value As Double)
+            SetPropertyValue("controlled_ListPrice", _row_ListPrice, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                controlled_SumPrice = SetRowSumPrice(QTT_Process, value, controlled_DiscountPercent)
+            End If
+        End Set
+    End Property
+    <NonPersistent>
+    Property controlled_DiscountPercent As Double
+        Get
+            Return _row_DiscountPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("controlled_DiscountPercent", _row_DiscountPercent, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                controlled_SumPrice = SetRowSumPrice(QTT_Process, controlled_ListPrice, value)
+            End If
+        End Set
+    End Property
+    <NonPersistent>
+    Property controlled_SumPrice As Double
+        Get
+            Return _row_SumPrice
+        End Get
+        Set(value As Double)
+            SetPropertyValue("controlled_SumPrice", _row_SumPrice, value)
+        End Set
+    End Property
+
+    '----------Sub----------------
+    Public Sub AddRows(ByVal _p_DeliveryNoteInHeader As DeliveryNoteInHeader)
+        ' Sor hozzáadása
+        Me.DeliveryNoteInHeader = _p_DeliveryNoteInHeader
+        Me.Products = _p_DeliveryNoteInHeader.row_Products
+        Me.Units = _p_DeliveryNoteInHeader.row_Products.Units
+        Me.VAT = _p_DeliveryNoteInHeader.row_Products.VAT
+        Me.QTT = _p_DeliveryNoteInHeader.row_QTT
+        Me.ListPriceHUF = _p_DeliveryNoteInHeader.row_ListPriceHUF
+        Me.ListPriceDEV = _p_DeliveryNoteInHeader.row_ListPriceDEV
+        Me.DiscountPriceDEV = _p_DeliveryNoteInHeader.row_ListPriceDEV * (_p_DeliveryNoteInHeader.row_DiscountPercent / 100)
+        Me.DiscountPriceHUF = _p_DeliveryNoteInHeader.row_ListPriceHUF * (_p_DeliveryNoteInHeader.row_DiscountPercent / 100)
+        Me.OrderOutRows = _p_DeliveryNoteInHeader.row_OrderOutRows
+        Me.RowIndex = _p_DeliveryNoteInHeader.DeliveryNoteInrows.Count
+        Me.PacketNumber = _p_DeliveryNoteInHeader.row_PacketNumber
+        Me.Weight = _p_DeliveryNoteInHeader.row_Weight
+        Me.WeightMode = _p_DeliveryNoteInHeader.row_WeightMode
+    End Sub
+    Private Function SetRowSumPrice(pQTT_Process As Double, prow_ListPrice As Double, prow_DiscountPercent As Double) As Double
+        Return (pQTT_Process * prow_ListPrice) - (pQTT_Process * prow_ListPrice * (prow_DiscountPercent / 100))
+    End Function
+
+    '//XPCollections
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property DeliveryNoteInRRFC As XPCollection(Of DeliveryNoteInRRFC)
+        Get
+            Return New XPCollection(Of DeliveryNoteInRRFC)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, CriteriaOperator.Parse("DeliveryNoteInRows=?", Me))
+        End Get
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInType.vb

@@ -0,0 +1,155 @@
+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 eImportMode
+    eInternalwithVAT = 0 'Belföldi ÁFÁ-s
+    eExternalEUwithVAT = 1 'EU-ból ÁFÁ-s
+    eExternalEUNoVAT = 2 'EU-ból nem ÁFÁs
+    eExternalOther = 3 ' EU-n kívüli nem ÁFÁS
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("BusinessStocks")> _
+<Appearance("DeliveryNoteInType - Hide RegistryType if  IsPrice=False", AppearanceItemType.ViewItem, "IsPrice=False", TargetItems:="RegistryType", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class DeliveryNoteInType 'Bejövő szállítólevél  tipusok
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom 'Saját cég
+    Private _ImportMode As eImportMode '
+    Private _IsPrice As Boolean = True 'Van-e ár
+    Private _IsOrderOut As Boolean = False 'Van-e rendeléssel ütköztetés
+    Private _ShortName As String 'Megnevezés
+    Private _Description As String 'Leírás
+    Private _NumberGenerator As NumberGenerator 'Sorszám generátor
+    Private _ReportData As ReportData
+    Private _RegistryType As RegistryType 'Iktatás tipus kiválasztása számlás bevételezés esetán !!!
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ImportMode = eImportMode.eInternalwithVAT
+        IsPrice = True
+        IsOrderOut = True
+    End Sub
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property ImportMode As eImportMode
+        Get
+            Return _ImportMode
+        End Get
+        Set(value As eImportMode)
+            SetPropertyValue("ImportMode", _ImportMode, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <RuleRequiredField("DeliveryNoteInType.IsPrice", DefaultContexts.Save)> _
+    Property IsPrice As Boolean
+        Get
+            Return _IsPrice
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsPrice", _IsPrice, value)
+        End Set
+    End Property
+    Property IsOrderOut As Boolean
+        Get
+            Return _IsOrderOut
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsOrderOut", _IsOrderOut, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteInType.ShortName", DefaultContexts.Save)> _
+    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
+    <RuleRequiredField("DeliveryNoteInType.NumberGenerator", DefaultContexts.Save)> _
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    Property ReportData As ReportData
+        Get
+            Return _ReportData
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData", _ReportData, value)
+        End Set
+    End Property
+    <DataSourceProperty("RegistryTypeCollection")> _
+    <RuleRequiredField("DeliveryNoteInType-RegistryType", DefaultContexts.Save, targetcriteria:="IsPrice=True")> _
+    Property RegistryType As RegistryType
+        Get
+            Return _RegistryType
+        End Get
+        Set(value As RegistryType)
+            SetPropertyValue("RegistryType", _RegistryType, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    ReadOnly Property RegistryTypeCollection As XPCollection(Of RegistryType)
+        Get
+            Dim _RegistryTypeReturnCollection As XPCollection(Of RegistryType) = Nothing
+            Dim _RegistryType_Collection As New XPCollection(Of RegistryType)(Session, CriteriaOperator.Parse("RegistryMainType=0 and CustomersFrom=?", CustomersFrom))
+            Dim Ok As Boolean = False
+            If _RegistryType_Collection.Count > 0 Then
+                Dim _Filter As String = "Oid in("
+
+                For Each _RegistryType As RegistryType In _RegistryType_Collection
+                    For Each _WorkflowSystemSteps As WorkflowSystemSteps In _RegistryType.WorkflowSystem.WorkflowSystemSteps
+                        If _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Or _
+                            _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT Then
+                            _Filter += "'" + _RegistryType.Oid.ToString + "',"
+                            Ok = True
+                            Exit For
+                        End If
+                    Next
+
+                Next
+                _Filter = _Filter.Remove(_Filter.Length - 1, 1)
+                _Filter += ")"
+                If Ok Then
+                    _RegistryTypeReturnCollection = New XPCollection(Of RegistryType)(Session, CriteriaOperator.Parse(_Filter))
+                Else
+
+                End If
+            End If
+
+                Return _RegistryTypeReturnCollection
+        End Get
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.Designer.vb

@@ -0,0 +1,186 @@
+Partial Class DeliveryNoteInVC
+
+    <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.aTotable_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aTotableD_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDown_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aUp_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFinalize_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aStorno_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aFinalize_And_Storage_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aRecalculateDeliveryNoteInRowsSumPrice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aTotable_DeliveryNoteIn
+        '
+        Me.aTotable_DeliveryNoteIn.Caption = "Add row"
+        Me.aTotable_DeliveryNoteIn.Category = "aTotable_DeliveryNoteIn"
+        Me.aTotable_DeliveryNoteIn.ConfirmationMessage = Nothing
+        Me.aTotable_DeliveryNoteIn.Id = "aTotable_DeliveryNoteIn"
+        Me.aTotable_DeliveryNoteIn.ImageName = "table_add"
+        Me.aTotable_DeliveryNoteIn.Shortcut = Nothing
+        Me.aTotable_DeliveryNoteIn.Tag = Nothing
+        Me.aTotable_DeliveryNoteIn.TargetObjectsCriteria = Nothing
+        Me.aTotable_DeliveryNoteIn.TargetViewId = ""
+        Me.aTotable_DeliveryNoteIn.ToolTip = Nothing
+        Me.aTotable_DeliveryNoteIn.TypeOfView = Nothing
+        '
+        'aTotableD_DeliveryNoteIn
+        '
+        Me.aTotableD_DeliveryNoteIn.Caption = "Delete row"
+        Me.aTotableD_DeliveryNoteIn.Category = "aTotableD_DeliveryNoteIn"
+        Me.aTotableD_DeliveryNoteIn.ConfirmationMessage = Nothing
+        Me.aTotableD_DeliveryNoteIn.Id = "aTotableD_DeliveryNoteIn"
+        Me.aTotableD_DeliveryNoteIn.ImageName = "table_delete"
+        Me.aTotableD_DeliveryNoteIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aTotableD_DeliveryNoteIn.Shortcut = Nothing
+        Me.aTotableD_DeliveryNoteIn.Tag = Nothing
+        Me.aTotableD_DeliveryNoteIn.TargetObjectsCriteria = Nothing
+        Me.aTotableD_DeliveryNoteIn.TargetViewId = ""
+        Me.aTotableD_DeliveryNoteIn.ToolTip = Nothing
+        Me.aTotableD_DeliveryNoteIn.TypeOfView = Nothing
+        '
+        'aDown_DeliveryNoteIn
+        '
+        Me.aDown_DeliveryNoteIn.Caption = "Down"
+        Me.aDown_DeliveryNoteIn.Category = "RecordsNavigation"
+        Me.aDown_DeliveryNoteIn.ConfirmationMessage = Nothing
+        Me.aDown_DeliveryNoteIn.Id = "aDown_DeliveryNoteIn"
+        Me.aDown_DeliveryNoteIn.ImageName = "arrow_down_green"
+        Me.aDown_DeliveryNoteIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aDown_DeliveryNoteIn.Shortcut = Nothing
+        Me.aDown_DeliveryNoteIn.Tag = Nothing
+        Me.aDown_DeliveryNoteIn.TargetObjectsCriteria = Nothing
+        Me.aDown_DeliveryNoteIn.TargetViewId = Nothing
+        Me.aDown_DeliveryNoteIn.ToolTip = Nothing
+        Me.aDown_DeliveryNoteIn.TypeOfView = Nothing
+        '
+        'aUp_DeliveryNoteIn
+        '
+        Me.aUp_DeliveryNoteIn.Caption = "Up"
+        Me.aUp_DeliveryNoteIn.Category = "RecordsNavigation"
+        Me.aUp_DeliveryNoteIn.ConfirmationMessage = Nothing
+        Me.aUp_DeliveryNoteIn.Id = "aUp_DeliveryNoteIn"
+        Me.aUp_DeliveryNoteIn.ImageName = "arrow_up_green"
+        Me.aUp_DeliveryNoteIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aUp_DeliveryNoteIn.Shortcut = Nothing
+        Me.aUp_DeliveryNoteIn.Tag = Nothing
+        Me.aUp_DeliveryNoteIn.TargetObjectsCriteria = Nothing
+        Me.aUp_DeliveryNoteIn.TargetViewId = Nothing
+        Me.aUp_DeliveryNoteIn.ToolTip = Nothing
+        Me.aUp_DeliveryNoteIn.TypeOfView = Nothing
+        '
+        'aFinalize_DeliveryNoteIn
+        '
+        Me.aFinalize_DeliveryNoteIn.Caption = "aFinalize_DeliveryNoteIn"
+        Me.aFinalize_DeliveryNoteIn.Category = "Save"
+        Me.aFinalize_DeliveryNoteIn.ConfirmationMessage = Nothing
+        Me.aFinalize_DeliveryNoteIn.Id = "aFinalize_DeliveryNoteIn"
+        Me.aFinalize_DeliveryNoteIn.ImageName = Nothing
+        Me.aFinalize_DeliveryNoteIn.Shortcut = Nothing
+        Me.aFinalize_DeliveryNoteIn.Tag = Nothing
+        Me.aFinalize_DeliveryNoteIn.TargetObjectsCriteria = Nothing
+        Me.aFinalize_DeliveryNoteIn.TargetViewId = ""
+        Me.aFinalize_DeliveryNoteIn.ToolTip = Nothing
+        Me.aFinalize_DeliveryNoteIn.TypeOfView = Nothing
+        '
+        'aStorno_DeliveryNoteIn
+        '
+        Me.aStorno_DeliveryNoteIn.Caption = "aStorno_DeliveryNoteIn"
+        Me.aStorno_DeliveryNoteIn.ConfirmationMessage = Nothing
+        Me.aStorno_DeliveryNoteIn.Id = "aStorno_DeliveryNoteIn"
+        Me.aStorno_DeliveryNoteIn.ImageName = Nothing
+        Me.aStorno_DeliveryNoteIn.Shortcut = Nothing
+        Me.aStorno_DeliveryNoteIn.Tag = Nothing
+        Me.aStorno_DeliveryNoteIn.TargetObjectsCriteria = Nothing
+        Me.aStorno_DeliveryNoteIn.TargetViewId = ""
+        Me.aStorno_DeliveryNoteIn.ToolTip = Nothing
+        Me.aStorno_DeliveryNoteIn.TypeOfView = Nothing
+        '
+        'aGenerateStorageIn_From_DeliveryNoteInRows
+        '
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.AcceptButtonCaption = Nothing
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.CancelButtonCaption = Nothing
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.Caption = "Create document"
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.Category = "ObjectsCreation"
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.ConfirmationMessage = Nothing
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.Id = "aGenerateStorageIn_From_DeliveryNoteInRows"
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.ImageName = "document_into"
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.Shortcut = Nothing
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.Tag = Nothing
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.TargetObjectsCriteria = Nothing
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.TargetViewId = ""
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.ToolTip = Nothing
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.TypeOfView = Nothing
+        '
+        'aFinalize_And_Storage_DeliveryNoteIn
+        '
+        Me.aFinalize_And_Storage_DeliveryNoteIn.AcceptButtonCaption = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.CancelButtonCaption = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.Caption = "aFinalize_And_Storage_DeliveryNoteIn"
+        Me.aFinalize_And_Storage_DeliveryNoteIn.Category = "Save"
+        Me.aFinalize_And_Storage_DeliveryNoteIn.ConfirmationMessage = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.Id = "aFinalize_And_Storage_DeliveryNoteIn"
+        Me.aFinalize_And_Storage_DeliveryNoteIn.ImageName = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.Shortcut = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.Tag = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.TargetObjectsCriteria = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.TargetViewId = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.ToolTip = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.TypeOfView = Nothing
+        '
+        'aRecalculateDeliveryNoteInRowsSumPrice
+        '
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.Caption = "aRecalculate Delivery Note In Rows Sum Price"
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.ConfirmationMessage = Nothing
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.Id = "aRecalculateDeliveryNoteInRowsSumPrice"
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.ImageName = Nothing
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.Shortcut = Nothing
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.Tag = Nothing
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.TargetObjectsCriteria = Nothing
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.TargetObjectType = GetType(SISBusiness.[Module].DeliveryNoteInRRFC)
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.TargetViewId = Nothing
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.ToolTip = Nothing
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+
+    End Sub
+    Friend WithEvents aTotable_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aTotableD_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aDown_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aUp_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFinalize_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aStorno_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aGenerateStorageIn_From_DeliveryNoteInRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aFinalize_And_Storage_DeliveryNoteIn As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aRecalculateDeliveryNoteInRowsSumPrice As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.resx

@@ -0,0 +1,150 @@
+<?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="aTotable_DeliveryNoteIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>276, 17</value>
+  </metadata>
+  <metadata name="aTotableD_DeliveryNoteIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>741, 17</value>
+  </metadata>
+  <metadata name="aDown_DeliveryNoteIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>935, 17</value>
+  </metadata>
+  <metadata name="aUp_DeliveryNoteIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1111, 17</value>
+  </metadata>
+  <metadata name="aFinalize_DeliveryNoteIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>326, 56</value>
+  </metadata>
+  <metadata name="aStorno_DeliveryNoteIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>510, 56</value>
+  </metadata>
+  <metadata name="aGenerateStorageIn_From_DeliveryNoteInRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aFinalize_And_Storage_DeliveryNoteIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="aRecalculateDeliveryNoteInRowsSumPrice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>461, 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/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.vb

@@ -0,0 +1,707 @@
+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.Editors
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports System.Linq
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.ExpressApp.Utils
+
+Public Class DeliveryNoteInVC
+    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()
+
+        Frame.GetController(Of DeliveryNoteInVC).aTotable_DeliveryNoteIn.Active.SetItemValue("", False) ' -- Sor hozzáadása (DeliveryNoteInHeader_DeliveryNoteInRows_ListView)
+        Frame.GetController(Of DeliveryNoteInVC).aTotableD_DeliveryNoteIn.Active.SetItemValue("", False) ' -- Sor törlése (DeliveryNoteInHeader_DeliveryNoteInRows_ListView)
+        Frame.GetController(Of DeliveryNoteInVC).aUp_DeliveryNoteIn.Active.SetItemValue("", False) ' kiválasztott sor fel
+        Frame.GetController(Of DeliveryNoteInVC).aDown_DeliveryNoteIn.Active.SetItemValue("", False) ' kiválasztott sor le
+        Frame.GetController(Of DeliveryNoteInVC).aFinalize_DeliveryNoteIn.Active.SetItemValue("", False) ' véglegesítés letiltása
+        Frame.GetController(Of DeliveryNoteInVC).aStorno_DeliveryNoteIn.Active.SetItemValue("", False) ' sztorno letiltása
+        Frame.GetController(Of DeliveryNoteInVC).aGenerateStorageIn_From_DeliveryNoteInRows.Active.SetItemValue("", False) ' Betárolás bejövő szállítólevél sorokból
+        Frame.GetController(Of DeliveryNoteInVC).aFinalize_And_Storage_DeliveryNoteIn.Active.SetItemValue("", False)
+        '------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
+
+        If View.Id = "DeliveryNoteInHeader_DeliveryNoteInrows_ListView" Then ' -- A beágyazott ListView feletti toolbar
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeliveryNoteInVC).aUp_DeliveryNoteIn.Active.SetItemValue("", True)
+            Frame.GetController(Of DeliveryNoteInVC).aDown_DeliveryNoteIn.Active.SetItemValue("", True)
+        End If
+        If View.Id = "DeliveryNoteInHeader_ListView" Then
+            Frame.GetController(Of DeliveryNoteInVC).aGenerateStorageIn_From_DeliveryNoteInRows.Active.SetItemValue("", True)
+        End If
+        If View.Id = "StorageInfromDeliveryNoteInRowsHeader_StorageInfromDeliveryNoteInRowsRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DeliveryNoteInFromOrderOutRowsRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+        End If
+        '------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
+        If View.Id = "DeliveryNoteInHeader_DetailView" Then
+            Frame.GetController(Of DeliveryNoteInVC).aFinalize_DeliveryNoteIn.Active.SetItemValue("", True)
+            Frame.GetController(Of DeliveryNoteInVC).aStorno_DeliveryNoteIn.Active.SetItemValue("", True)
+            Frame.GetController(Of DeliveryNoteInVC).aFinalize_And_Storage_DeliveryNoteIn.Active.SetItemValue("", True)
+            Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInHeader)
+            If _DeliveryNoteInHeader IsNot Nothing Then
+                Frame.GetController(Of DeliveryNoteInVC).aTotable_DeliveryNoteIn.Active.SetItemValue("", True)
+                Frame.GetController(Of DeliveryNoteInVC).aTotableD_DeliveryNoteIn.Active.SetItemValue("", True)
+            End If
+        End If
+        If View.Id = "StorageInfromDeliveryNoteInRowsHeader_DetailView" Or View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DetailView" Then ' Előleg bekérő készítő view
+            AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
+        End If
+        If View.Id = "DeliveryNoteInHeader_ListView_Deleted" Then
+            If TryCast(View, ListView) IsNot Nothing Then
+                If TryCast(View, ListView).CollectionSource IsNot Nothing Then
+                    If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then
+                        If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection) IsNot Nothing Then
+                            If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection IsNot Nothing Then
+                                If TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection) IsNot Nothing Then
+                                    TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection).SelectDeleted = True
+                                End If
+                            End If
+                        End If
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+
+        '------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
+        If View.Id = "DeliveryNoteInHeader_DeliveryNoteInRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "StorageInfromDeliveryNoteInRowsHeader_StorageInfromDeliveryNoteInRowsRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DeliveryNoteInFromOrderOutRowsRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+        End If
+        '------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
+        If View.Id = "DeliveryNoteInHeader_DeatilView" Then
+            Frame.GetController(Of DeliveryNoteInVC).aTotable_DeliveryNoteIn.Active.SetItemValue("", False)
+            Frame.GetController(Of DeliveryNoteInVC).aTotableD_DeliveryNoteIn.Active.SetItemValue("", False)
+        End If
+        If View.Id = "StorageInfromDeliveryNoteInRowsHeader_DetailView" Or View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DetailView" Then
+            RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
+        End If
+    End Sub
+    Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
+        Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save)
+    End Sub
+    Private Sub aTotable_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_DeliveryNoteIn.Execute
+        ' hozzáad egy új sort a fejléchez ------------------------
+
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = CType(e.SelectedObjects(0), DeliveryNoteInHeader)
+        Dim _DeliveryNoteInRows As DeliveryNoteInRows = New DeliveryNoteInRows(_ocur.Session)
+        Dim _OrderOutRows As OrderOutRows = _ocur.GetObject(_DeliveryNoteInHeader.row_OrderOutRows)
+        Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products")
+        Try
+            If ItemToFocus IsNot Nothing Then
+                Dim ItemControl As Object
+                ItemControl = ItemToFocus.Control
+                ItemControl.Focus()
+            End If
+
+            If _OrderOutRows IsNot Nothing Then
+                If _DeliveryNoteInHeader.row_QTT + _OrderOutRows.QTT_DeliveryNoteIn > _OrderOutRows.QTT Then
+                    Throw New Exception("*Nem volt ennyi megrendelve ebből a tételből !")
+                Else
+                    _OrderOutRows.QTT_DeliveryNoteIn += _DeliveryNoteInHeader.row_QTT
+                End If
+            End If
+
+            _DeliveryNoteInRows.AddRows(_DeliveryNoteInHeader)
+
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            _DeliveryNoteInHeader.row_Products = Nothing
+            _DeliveryNoteInHeader.row_QTT = 0
+            _DeliveryNoteInHeader.row_ListPriceHUF = 0
+            _DeliveryNoteInHeader.row_ListPriceDEV = 0
+            _DeliveryNoteInHeader.row_DiscountPercent = 0
+            _DeliveryNoteInHeader.row_OrderOutRows = Nothing
+            _DeliveryNoteInHeader.row_PacketNumber = ""
+            _DeliveryNoteInHeader.row_Weight = 0
+            _DeliveryNoteInHeader.row_CountryFrom = Nothing
+
+            View.Refresh()
+        End Try
+    End Sub
+    Private Sub aTotableD_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_DeliveryNoteIn.Execute
+        ' a kiválasztott sorokat törli -----------------------------------------------
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(e.SelectedObjects(0), DeliveryNoteInHeader)
+        Dim _DeliveryNoteInRows_Collection As ArrayList = New ArrayList
+        Dim _DeliveryNoteInRows_ListEditor As ListPropertyEditor
+
+        _DeliveryNoteInRows_ListEditor = TryCast(View, DetailView).FindItem("DeliveryNoteInrows")
+        For Each _DeliveryNoteInRows As DeliveryNoteInRows In _DeliveryNoteInRows_ListEditor.ListView.SelectedObjects
+            Dim _DelivNoteInRows As DeliveryNoteInRows = _DeliveryNoteInRows
+            For Each _DeliveryNoteInRows2 As DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows
+                If _DeliveryNoteInRows2.RowIndex > _DelivNoteInRows.RowIndex Then
+                    _DeliveryNoteInRows2.RowIndex -= 1
+                End If
+            Next
+        Next
+
+        For Each _DeliveryNoteInRows As DeliveryNoteInRows In _DeliveryNoteInRows_ListEditor.ListView.SelectedObjects
+            If _DeliveryNoteInRows.OrderOutRows IsNot Nothing Then
+                _DeliveryNoteInRows.OrderOutRows.QTT_DeliveryNoteIn -= _DeliveryNoteInRows.QTT
+                _DeliveryNoteInRows.OrderOutRows.Save()
+            End If
+            _DeliveryNoteInRows_Collection.Add(_DeliveryNoteInRows)
+        Next
+
+        _ocur.Delete(_DeliveryNoteInRows_Collection)
+        _ocur.CommitChanges()
+        View.Refresh()
+    End Sub
+    Private Sub aUp_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_DeliveryNoteIn.Execute
+        ' A kiválaszott sort egy sorral feljebb helyezi
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInRows).DeliveryNoteInHeader
+        Dim _DeliveryNoteInRowsSelected As DeliveryNoteInRows = Nothing
+        Dim _DeliveryNoteInRowsMinus As DeliveryNoteInRows = Nothing
+        Dim _DeliveryNoteInRows As DeliveryNoteInRows = Nothing
+
+        Try
+            _DeliveryNoteInRowsSelected = TryCast(View.SelectedObjects(0), DeliveryNoteInRows) ' Az editor egy listview, kiveszi az első kijelölt sorát
+        Catch
+            ' TESZT MIATT!!!! ----------------------------------------------------------------
+            Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
+        End Try
+
+        If _DeliveryNoteInRowsSelected.RowIndex > 0 Then
+            For Each _DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows
+                If _DeliveryNoteInRows.RowIndex = _DeliveryNoteInRowsSelected.RowIndex - 1 Then
+                    _DeliveryNoteInRowsMinus = _DeliveryNoteInRows
+                    Exit For
+                End If
+            Next
+
+            If _DeliveryNoteInRowsMinus IsNot Nothing Then
+                _DeliveryNoteInRowsSelected.RowIndex -= 1
+                _DeliveryNoteInRowsMinus.RowIndex += 1
+            End If
+            _DeliveryNoteInRowsMinus.Save()
+            _DeliveryNoteInRowsSelected.Save()
+            _ocur.CommitChanges()
+            View.Refresh()
+        End If
+    End Sub
+    Private Sub aDown_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_DeliveryNoteIn.Execute
+        ' A kiválaszott sort egy sorral lejebb helyezi
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInRows).DeliveryNoteInHeader
+        Dim _DeliveryNoteInRowsSelected As DeliveryNoteInRows
+        Dim _DeliveryNoteInRowsPlus As DeliveryNoteInRows = Nothing
+        Dim _DeliveryNoteInRows As DeliveryNoteInRows
+
+        Try
+            _DeliveryNoteInRowsSelected = TryCast(View.SelectedObjects(0), DeliveryNoteInRows) ' Kiveszi a kijelölt sorok közül az elsőt
+        Catch
+            ' TESZT MIATT!!!! ----------------------------------------------------------------
+            Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
+        End Try
+
+        If _DeliveryNoteInRowsSelected.RowIndex < _DeliveryNoteInHeader.DeliveryNoteInrows.Count - 1 Then
+            For Each _DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows
+                If _DeliveryNoteInRows.RowIndex = _DeliveryNoteInRowsSelected.RowIndex + 1 Then
+                    _DeliveryNoteInRowsPlus = _DeliveryNoteInRows
+                    Exit For
+                End If
+            Next
+
+            If _DeliveryNoteInRowsPlus IsNot Nothing Then
+                _DeliveryNoteInRowsSelected.RowIndex += 1
+                _DeliveryNoteInRowsPlus.RowIndex -= 1
+            End If
+            _DeliveryNoteInRowsPlus.Save()
+            _DeliveryNoteInRowsSelected.Save()
+            _ocur.CommitChanges()
+            View.Refresh()
+        End If
+    End Sub
+    Private Sub aFinalizeDeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalize_DeliveryNoteIn.Execute
+        '---Az akció véglegesít egy bejövõ szállítólevelet------------------------------------------------
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInHeader)
+
+        If _DeliveryNoteInHeader.DeliveryNoteInrows.Count <= 0 Then
+            Throw New Exception("*Nincs mit betárolni !")
+        End If
+
+        _DeliveryNoteInHeader.IsEditable = False
+
+        If _DeliveryNoteInHeader.DocumentNumber = "" Then
+            _DeliveryNoteInHeader.DocumentNumber = _DeliveryNoteInHeader.DeliveryNoteInType.NumberGenerator.GetNewNumber(_DeliveryNoteInHeader.DeliveryNoteInType.NumberGenerator)
+        End If
+
+        _DeliveryNoteInHeader.Save()
+        _ocur.CommitChanges()
+        View.Close()
+    End Sub
+    Private Sub aStorno_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorno_DeliveryNoteIn.Execute
+        '---Az akció sztornóz egy bejövõ szállítólevelet------------------------------------------------
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInHeader)
+        Dim _IsFound As Boolean = False
+
+        Dim _StorageInRows_XPQuery As New XPQuery(Of StorageInRows)(_ocur.Session)
+        Dim query = From _SIR In _StorageInRows_XPQuery
+                       Where _SIR.DeliveryNoteInRows.DeliveryNoteInHeader Is _DeliveryNoteInHeader
+                           Group _SIR By _SIR.DeliveryNoteInRows Into g = Group _
+           Select New With {Key .DeliveryNoteInRows = DeliveryNoteInRows,
+                            Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)}
+
+
+        For Each _DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows
+            _DeliveryNoteInRows.OrderOutRows.QTT_DeliveryNoteIn -= _DeliveryNoteInRows.QTT
+            _DeliveryNoteInRows.OrderOutRows = Nothing
+
+
+            For Each item In query
+                If item.DeliveryNoteInRows.Oid = _DeliveryNoteInRows.Oid And item.QTT_Sum <> 0 Then ' Ha talál olyan sort aminek azonos a szállítólevél sora az aktuálissal, akkor kiszállunk
+                    _IsFound = True
+                    Exit For
+                End If
+            Next
+        Next
+
+        If _IsFound = False Then
+
+            _DeliveryNoteInHeader.IsStorno = True
+
+            _DeliveryNoteInHeader.Save()
+            _ocur.CommitChanges()
+            View.Close()
+        Else
+            ThrowNewException("Erről a széllítólevélről már készült betárolás.") 'Teszt
+        End If
+    End Sub
+    Private Sub aGenerateStorageIn_From_DeliveryNoteInRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGenerateStorageIn_From_DeliveryNoteInRows.CustomizePopupWindowParams
+        ' Egy kiválaszott végleges szállítólevél azon sorait hozza fel egy listában, ahol a mennyiség még több mint a már erről a betárolt össz mennyiség
+        Dim _NOStorageInRows As New ArrayList
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace()
+            Dim _DeliveryNoteInRows As DeliveryNoteInRows
+            Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), DeliveryNoteInHeader))
+            Dim _StorageInfromDeliveryNoteInRowsHeader As New StorageInfromDeliveryNoteInRowsHeader(_onew.Session)
+            Dim _QTT_Sum As Double = 0
+
+
+            _StorageInfromDeliveryNoteInRowsHeader.DeliveryNoteInHeader = _DeliveryNoteInHeader
+            _StorageInfromDeliveryNoteInRowsHeader.DateCreation = GetSQLTime(_onew.Session)
+
+            ' Az összes olyan betárolási sor keresése adott termékre, ami szállítólevéllről jött
+            Dim _StorageInRows_XPQuery As New XPQuery(Of StorageInRows)(_onew.Session)
+            Dim query = From _SIR In _StorageInRows_XPQuery
+                            Where _SIR.DeliveryNoteInRows.DeliveryNoteInHeader Is _DeliveryNoteInHeader
+                                Group _SIR By _SIR.DeliveryNoteInRows Into g = Group _
+                Select New With {Key .DeliveryNoteInRows = DeliveryNoteInRows,
+                                 Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)}
+
+            For Each _DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows
+                _QTT_Sum = 0
+                For Each item In query
+                    If item.DeliveryNoteInRows.Oid = _DeliveryNoteInRows.Oid Then ' Ha talál olyan sort aminek azonos a szállítólevél sora az aktuálissal, akkor számolja hogy összesen mennyi van betárolva
+                        _QTT_Sum = item.QTT_Sum
+                    End If
+                Next
+                If _DeliveryNoteInRows.QTT > _QTT_Sum Then ' Csak azokat a sorokat hozza fel a ListView-ba amikre még lehet betárolást csinálni
+                    Dim _StorageInfromDeliveryNoteInRowsRows As New StorageInfromDeliveryNoteInRowsRows(_onew.Session)
+
+                    _StorageInfromDeliveryNoteInRowsRows.DeliveryNoteInRows = _DeliveryNoteInRows
+                    _StorageInfromDeliveryNoteInRowsRows.StorageInfromDeliveryNoteInRowsHeader = _StorageInfromDeliveryNoteInRowsHeader
+                    _StorageInfromDeliveryNoteInRowsRows.QTT_Process = _DeliveryNoteInRows.QTT - _QTT_Sum
+                    _StorageInfromDeliveryNoteInRowsRows.QTT_Max = _StorageInfromDeliveryNoteInRowsRows.QTT_Process
+                    If _StorageInfromDeliveryNoteInRowsRows.DeliveryNoteInRows.Products.Units.ShortName = "zsák" And _StorageInfromDeliveryNoteInRowsRows.DeliveryNoteInRows.Products.ProductGroups.Parent.Name = "VETŐ" Then
+                        If _DeliveryNoteInRows.Weight = 0 Or String.IsNullOrEmpty(_DeliveryNoteInRows.PacketNumber) Then
+                            _NOStorageInRows.Add(_DeliveryNoteInRows.Products)
+                        End If
+                    End If
+                End If
+            Next
+
+            _onew.CommitChanges()
+
+            e.View = Application.CreateDetailView(_onew, _StorageInfromDeliveryNoteInRowsHeader, False)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            If _NOStorageInRows.Count > 0 Then
+                Dim _ErrorMessage As String = "A következő szállítólevélről az alábbi sorok nem tárolhatóak be :" + vbNewLine
+
+                For Each _NOSIR As Products In _NOStorageInRows
+                    _ErrorMessage += vbNewLine + _NOSIR.ProductNumber + "    /    " + _NOSIR.ShortName + vbNewLine
+                Next
+
+                _ErrorMessage += vbNewLine + "mert NINCS megadva a KÖTEGSZÁM vagy a SÚLY!"
+                'MsgBox(_ErrorMessage, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+                Throw New UserFriendlyException(_ErrorMessage)
+                View.Close()
+            End If
+        End Try
+    End Sub
+    Private Sub aGenerateStorageIn_From_DeliveryNoteInRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGenerateStorageIn_From_DeliveryNoteInRows.Execute
+        ' A popup-on kiválasztott bej. szállítólevél sorokból a kézzel megadott szándékkal végleges bet. bizonylatot hoz létre (Sorokkal)
+
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer)
+        Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User))
+        Try
+            Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), DeliveryNoteInHeader))
+
+            If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then
+                Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-"))
+
+                Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking")
+                Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError")
+                MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title)
+
+                Exit Sub
+            Else
+                Dim _StorageInfromDeliveryNoteInRowsHeader As StorageInfromDeliveryNoteInRowsHeader = _onew.GetObjectByKey(Of StorageInfromDeliveryNoteInRowsHeader)(TryCast(e.PopupWindow.View.SelectedObjects(0), StorageInfromDeliveryNoteInRowsHeader).Oid)
+                _StorageInfromDeliveryNoteInRowsHeader.Storage = _onew.GetObjectByKey(Of Storage)(TryCast(e.PopupWindow.View.SelectedObjects(0), StorageInfromDeliveryNoteInRowsHeader).Storage.Oid)
+                Dim _StorageInfromDeliveryNoteInRowsRows_ListEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("StorageInfromDeliveryNoteInRowsRows") ' Bekeresi az összes bejövõ megrendelési sort
+                Dim _StorageInfromDeliveryNoteInRowsRows As StorageInfromDeliveryNoteInRowsRows
+                Dim _MSGBoxNeed As Boolean = False
+
+                For Each _StorageInfromDeliveryNoteInRowsRows In _StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects
+                    If _StorageInfromDeliveryNoteInRowsRows.QTT_Process > _StorageInfromDeliveryNoteInRowsRows.QTT_Max Then
+                        _StorageInfromDeliveryNoteInRowsRows.QTT_Process = _StorageInfromDeliveryNoteInRowsRows.QTT_Max
+                        _MSGBoxNeed = True
+                        Exit For
+                    End If
+                Next
+
+                If _MSGBoxNeed = True Then Throw New Exception("*Volt olyan szándék megadva ami több mint amit be lehet tárolni, így az értéke visszaállítódott a maximális értékre!")
+
+                ' --- Létrehozzuk a bet. fejlécet ----
+                Dim _StorageInHeader_New As New StorageInHeader(_onew.Session)
+                With _StorageInHeader_New
+                    .IsEditable = False
+                    .Storage = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), StorageInfromDeliveryNoteInRowsHeader).Storage)
+                    .ObjectCreated = GetSQLTime(_onew.Session)
+                    .StorageMoveType = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), StorageInfromDeliveryNoteInRowsHeader).StorageMoveType)
+                    .DocumentNumber = _StorageInHeader_New.Storage.NumberGeneratorIn.GetNewNumber(_StorageInHeader_New.Storage.NumberGeneratorIn)
+                End With
+
+                ' Létrehozzuk a bet. sorokat, minden kiválasztott bejövő szállítólevél sorokhoz ----------------------------------------------------------------------------------------------
+                For i = 0 To _StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects.Count - 1 ' A kiválasztott sorokon végigmegyünk és létrehozzuk a bet. sorokat.
+                    Dim _StorageComputed As StorageComputed = _onew.Session.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _
+                                _onew.GetObject(_StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects(i).DeliveryNoteInRows.Products), _onew.GetObject(_StorageInfromDeliveryNoteInRowsHeader.Storage)))
+                    Dim _QTT_Process As Double = 0
+                    _QTT_Process = TryCast(_StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects(i), StorageInfromDeliveryNoteInRowsRows).QTT_Process ' Kinyerjük az adott sorhoz tartozó szándékot
+
+                    If _StorageComputed Is Nothing Then
+                        _StorageComputed = _onew.CreateObject(Of StorageComputed)()
+                        With _StorageComputed
+                            .Storage = _StorageInfromDeliveryNoteInRowsHeader.Storage
+                            .Products = _onew.GetObject(_StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects(i).DeliveryNoteInRows.Products)
+                        End With
+                    End If
+
+                    ' Új betárolási sorok létrehozása --------------------------------------------
+                    Dim _StorageInRows_New As StorageInRows = _onew.CreateObject(Of StorageInRows)()
+                    With _StorageInRows_New
+                        .DeliveryNoteInRows = _onew.GetObject(_StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects(i).DeliveryNoteInRows)
+                        .StorageInHeader = _StorageInHeader_New
+                        .Products = _onew.GetObject(_StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects(i).DeliveryNoteInRows.Products)
+                        .QTT_Will = _QTT_Process
+                        .RowIndex = i + 1 ' Sorindexelés
+                    End With
+                    _StorageComputed.QTTReservedIn += _QTT_Process
+                Next
+                '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+
+                For Each _StorageInRows In _StorageInHeader_New.StorageInRows
+                    Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _StorageInRows.Products, _StorageInHeader_New.Storage))
+                    Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session)
+                    If _StorageInRows.QTT_Will > 0 Then
+                        _StorageInRows.QTT = _StorageInRows.QTT_Will
+                        _StorageComputed.QTTFree += _StorageInRows.QTT_Will
+                        _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will
+
+                        _StorageMoveEvents.StorageInRows = _StorageInRows
+                        _StorageMoveEvents.QTT = _StorageInRows.QTT
+                        _StorageMoveEvents.QTT_Free_After = _StorageComputed.QTTFree
+                        _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents.QTT_Free_After - _StorageMoveEvents.QTT
+                        _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageInFinal
+                        _StorageMoveEvents.ExecutionDate = _StorageInRows.StorageInHeader.CreateDate
+
+                        _StorageInRows.QTT_Will = 0
+                    End If
+                Next
+
+                _StorageInHeader_New.IsEditable = False
+                _StorageInHeader_New.IsFinalized = True
+                _DeliveryNoteInHeader.IsEditable = False
+                _onew.CommitChanges()
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User)
+        End Try
+    End Sub
+    Private Sub aFinalize_And_Storage_DeliveryNoteIn_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aFinalize_And_Storage_DeliveryNoteIn.CustomizePopupWindowParams
+        '---Létrehoz egy ListView-t ahol a raktárat kell kiválasztani a rendelésből kitárolási akcióhoz
+        Dim _NOStorageInRows As New ArrayList
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _DeliveryNoteInToStorageInHeader As DeliveryNoteInToStorageInHeader = _onew.CreateObject(Of DeliveryNoteInToStorageInHeader)()
+
+            Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), DeliveryNoteInHeader))
+            For Each _DeliveryNoteInRows As DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows
+                If _DeliveryNoteInRows.Products.Units.ShortName = "zsák" And _DeliveryNoteInRows.Products.ProductGroups.Parent.Name = "VETŐ" Then
+                    If _DeliveryNoteInRows.Weight = 0 Or String.IsNullOrEmpty(_DeliveryNoteInRows.PacketNumber) Then
+                        _NOStorageInRows.Add(_DeliveryNoteInRows.Products)
+                    End If
+                End If
+            Next
+
+
+            e.View = Application.CreateDetailView(_onew, "DeliveryNoteInToStorageInHeader_DetailView", False, _DeliveryNoteInToStorageInHeader)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            If _NOStorageInRows.Count > 0 Then
+                Dim _ErrorMessage As String = "A következő szállítólevélről az alábbi sor(ok) nem tárolhatóak be :" + vbNewLine
+
+                For Each _NOSIR As Products In _NOStorageInRows
+                    _ErrorMessage += vbNewLine + _NOSIR.ProductNumber + "    /    " + _NOSIR.ShortName + vbNewLine
+                Next
+
+                _ErrorMessage += vbNewLine + "mert NINCS megadva a KÖTEGSZÁM vagy a SÚLY!"
+                'MsgBox(_ErrorMessage, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+                Throw New UserFriendlyException(_ErrorMessage)
+                View.Close()
+            End If
+        End Try
+    End Sub
+    Private Sub aFinalize_And_Storage_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aFinalize_And_Storage_DeliveryNoteIn.Execute
+        '---Az akció véglegesít egy bejövő szállítólevelet------------------------------------------------
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer)
+        Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User))
+        Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInHeader)
+        Dim _StorageInHeader As StorageInHeader
+        Try
+            Dim _DeliveryNoteInRows As DeliveryNoteInRows
+            Dim _DeliveryNoteInToStorageInHeader As DeliveryNoteInToStorageInHeader = TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteInToStorageInHeader)
+
+            Dim _StorageInRows As StorageInRows
+
+            If _DeliveryNoteInHeader.DeliveryNoteInrows.Count <= 0 Then Throw New Exception("*A szállítólevélnek nincs egyetlen sora sem!")
+            Dim _DeliveryNoteInRows_Collection As New ArrayList
+            For Each _DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows
+                If _DeliveryNoteInRows.OrderOutRows IsNot Nothing Then
+                    If _DeliveryNoteInRows.QTT > 0 And _DeliveryNoteInRows.QTT <= _DeliveryNoteInRows.OrderOutRows.QTT Then
+                        _DeliveryNoteInRows_Collection.Add(_DeliveryNoteInRows)
+                    End If
+                Else
+                    _DeliveryNoteInRows_Collection.Add(_DeliveryNoteInRows)
+                End If
+            Next
+
+            If _DeliveryNoteInRows_Collection.Count = 0 Then Throw New Exception("*A szállítólevélnek nincs egyetlen olyan sora sem, melyet be lehetne tárolni!")
+
+            'zárolás
+            If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then
+                Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-"))
+
+                Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking")
+                Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError")
+                MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title)
+
+                Exit Sub
+            Else
+
+                _StorageInHeader = _ocur.CreateObject(Of StorageInHeader)()
+                _StorageInHeader.Active = True
+                _StorageInHeader.CreateDate = GetSQLTime(_ocur.Session)
+                _StorageInHeader.Storage = _ocur.GetObjectByKey(Of Storage)(_DeliveryNoteInToStorageInHeader.Storage.Oid)
+                _StorageInHeader.StorageMoveType = _ocur.GetObjectByKey(Of StorageMoveType)(_DeliveryNoteInToStorageInHeader.StorageMoveType.Oid)
+
+                For Each _DeliveryNoteInRows In _DeliveryNoteInRows_Collection
+                    _StorageInRows = _ocur.CreateObject(Of StorageInRows)()
+                    With _StorageInRows
+                        .Active = True
+                        .DeliveryNoteInRows = _DeliveryNoteInRows
+                        .PacketNumber = _DeliveryNoteInRows.PacketNumber
+                        .Products = _DeliveryNoteInRows.Products
+                        .QTT_Will = _DeliveryNoteInRows.QTT
+                        .RowIndex = _StorageInHeader.StorageInRows.Count + 1
+                        .SerialNumber = ""
+                        .StorageInHeader = _StorageInHeader
+                        .Storage = _StorageInHeader.Storage
+                        .Weight = _DeliveryNoteInRows.Weight
+                        .WeightMode = _DeliveryNoteInRows.WeightMode
+
+                    End With
+
+                    Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _
+                                                                                                        _StorageInRows.Products, _StorageInHeader.Storage))
+                    If _StorageComputed Is Nothing Then
+                        _StorageComputed = _ocur.CreateObject(Of StorageComputed)()
+                        With _StorageComputed
+                            .Storage = _StorageInHeader.Storage
+                            .Products = _DeliveryNoteInRows.Products
+                            .QTTReservedIn = _DeliveryNoteInRows.QTT
+                        End With
+                    Else
+                        _StorageComputed.QTTReservedIn += _DeliveryNoteInRows.QTT
+                    End If
+                Next
+
+                '--------- Véglegesítjük a betárolást !
+                For Each _StorageInRows In _StorageInHeader.StorageInRows
+                    Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _StorageInRows.Products, _StorageInHeader.Storage))
+                    Dim _StorageMoveEvents As New StorageMoveEvents(_ocur.Session)
+                    If _StorageInRows.QTT_Will > 0 Then
+                        _StorageInRows.QTT = _StorageInRows.QTT_Will
+                        _StorageComputed.QTTFree += _StorageInRows.QTT_Will
+                        _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will
+
+                        _StorageMoveEvents.StorageInRows = _StorageInRows
+                        _StorageMoveEvents.QTT = _StorageInRows.QTT
+                        _StorageMoveEvents.QTT_Free_After = _StorageComputed.QTTFree
+                        _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents.QTT_Free_After - _StorageMoveEvents.QTT
+                        _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageInFinal
+                        _StorageMoveEvents.ExecutionDate = _StorageInRows.StorageInHeader.CreateDate
+
+
+                        _StorageInRows.QTT_Will = 0
+                    End If
+                Next
+                _StorageInHeader.IsEditable = False
+                _StorageInHeader.IsFinalized = True
+                _DeliveryNoteInHeader.IsEditable = False
+                _ocur.CommitChanges()
+
+                If _DeliveryNoteInToStorageInHeader.IsRegistry Then
+                    Dim _RegistryHeader As New RegistryHeader(_ocur.Session)
+                    With _RegistryHeader
+                        .CustomersFrom = _DeliveryNoteInHeader.CustomersFrom
+                        .Customers = _DeliveryNoteInHeader.Customers
+                        .RegistryType = _DeliveryNoteInHeader.DeliveryNoteInType.RegistryType
+
+
+
+                    End With
+
+                    Dim _orenew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+                    Dim _ShowViewParameters As New ShowViewParameters
+                    Dim _ShowViewSource As New ShowViewSource(Frame, Nothing)
+
+                    _ShowViewParameters.CreatedView = Application.CreateDetailView(_orenew, "RegistryHeader_DetailView", True, _orenew.GetObject(_RegistryHeader))
+                    _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild
+                    _ShowViewParameters.TargetWindow = TargetWindow.NewWindow
+                    Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource)
+
+                    e.ShowViewParameters.CreatedView = Application.CreateDetailView(_orenew, _RegistryHeader)
+                End If
+
+                Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageInHeader.Storage.ReportIn.Oid), True)
+                If _ReportData Is Nothing Or _StorageInHeader Is Nothing Then
+                Else
+                    Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageInHeader.DocumentNumber =?", _StorageInHeader.DocumentNumber), True)
+                End If
+                View.Close()
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            LockingModule.ReleaseAllLocking(_uow_lock, _User)
+        End Try
+    End Sub
+
+    Private Sub aRecalculateDeliveryNoteInRowsSumPrice_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRecalculateDeliveryNoteInRowsSumPrice.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC
+        Dim _StorageComputed As StorageComputed
+
+        RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+        For Each _DeliveryNoteInRRFC In View.SelectedObjects
+            RaiseEvent DoWork()
+            If _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then
+                If _DeliveryNoteInRRFC.DeliveryNoteInRows.QTT <> 0 Then
+                    _DeliveryNoteInRRFC.DeliveryNoteInRows.ListPriceHUF = Math.Round(_DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount / _DeliveryNoteInRRFC.DeliveryNoteInRows.QTT, 2, MidpointRounding.AwayFromZero)
+                    _DeliveryNoteInRRFC.DeliveryNoteInRows.ListPriceDEV = 0
+                    _DeliveryNoteInRRFC.DeliveryNoteInRows.DiscountPriceDEV = 0
+                    _DeliveryNoteInRRFC.DeliveryNoteInRows.DiscountPriceHUF = 0
+                End If
+            Else
+                If _DeliveryNoteInRRFC.DeliveryNoteInRows.QTT <> 0 Then
+                    If _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyRate <> 0 Then
+                        _DeliveryNoteInRRFC.DeliveryNoteInRows.ListPriceHUF = Math.Round(_DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount / _DeliveryNoteInRRFC.DeliveryNoteInRows.QTT, 2, MidpointRounding.AwayFromZero)
+                        _DeliveryNoteInRRFC.DeliveryNoteInRows.ListPriceDEV = Math.Round(_DeliveryNoteInRRFC.DeliveryNoteInRows.ListPriceHUF / _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyRate, 2, MidpointRounding.AwayFromZero)
+                        _DeliveryNoteInRRFC.DeliveryNoteInRows.DiscountPriceDEV = 0
+                        _DeliveryNoteInRRFC.DeliveryNoteInRows.DiscountPriceHUF = 0
+                    End If
+                End If
+            End If
+
+            Dim _StorageComputed_Collection As New XPCollection(Of StorageComputed)(_ocur.Session, CriteriaOperator.Parse("Products=?", _DeliveryNoteInRRFC.DeliveryNoteInRows.Products))
+            For Each _StorageComputed In _StorageComputed_Collection
+                _StorageComputed.RecalculateAveragePrice()
+                _StorageComputed.RecalculateMinimumPrice()
+            Next
+
+        Next
+        _ocur.CommitChanges()
+        RaiseEvent FinalWork
+    End Sub
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader.vb

@@ -0,0 +1,104 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<Appearance("IntrastatHeader - Disable DocumentNumber", AppearanceItemType.ViewItem, "1=1", TargetItems:="DocumentNumber", Enabled:=False)> _
+<Appearance("IntrastatHeader - Disable ObjectCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("IntrastatHeader - Disable UserCreate", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreate", Enabled:=False)> _
+Public Class IntrastatHeader
+    Inherits BaseObject
+
+    Private _IntrastatParameters As IntrastatParameters
+    Private _UserCreated As User
+    Private _ObjectCreated As Date
+    Private _DateExecution As Date 'Idõszak Év, hónap
+    Private _DocumentNumber As String
+    Private _DocumentFile As FileData
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+        If String.IsNullOrEmpty(DocumentNumber) Then DocumentNumber = IntrastatParameters.NumberGenerator.GetNewNumber(IntrastatParameters.NumberGenerator)
+    End Sub
+
+    <RuleRequiredField("IntrastatHeader - IntrastatParameters", DefaultContexts.Save)> _
+    Property IntrastatParameters As IntrastatParameters
+        Get
+            Return _IntrastatParameters
+        End Get
+        Set(value As IntrastatParameters)
+            SetPropertyValue("IntrastatParameters", _IntrastatParameters, 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
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    Property DocumentFile As FileData
+        Get
+            Return _DocumentFile
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("DocumentFile", _DocumentFile, value)
+        End Set
+    End Property
+
+    '-------ReadONLY-------
+    <Association("IntrastatHeader - IntrastatRows", GetType(IntrastatRows)), VisibleInListView(False)> _
+    ReadOnly Property IntrastatRows As XPCollection(Of IntrastatRows)
+        Get
+            Return GetCollection(Of IntrastatRows)("IntrastatRows")
+        End Get
+    End Property
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader_VC.Designer.vb

@@ -0,0 +1,102 @@
+Partial Class IntrastatHeader_VC
+
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+		MyClass.New()
+
+		'Required for Windows.Forms Class Composition Designer support
+		Container.Add(Me)
+
+	End Sub
+
+	'Component overrides dispose to clean up the component list.
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+		If disposing AndAlso components IsNot Nothing Then
+			components.Dispose()
+		End If
+		MyBase.Dispose(disposing)
+	End Sub
+
+	'Required by the Component Designer
+	Private components As System.ComponentModel.IContainer
+
+	'NOTE: The following procedure is required by the Component Designer
+	'It can be modified using the Component Designer.
+	'Do not modify it using the code editor.
+	<System.Diagnostics.DebuggerStepThrough()> _
+	Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.aIntrastatHeader_GenerateIntrastatRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aIntrastatCheckPrice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aIntrastatCheckWeight = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aPrintIntrastat = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aIntrastatHeader_GenerateIntrastatRows
+        '
+        Me.aIntrastatHeader_GenerateIntrastatRows.Caption = "aIntrastatHeader_GenerateIntrastatRows"
+        Me.aIntrastatHeader_GenerateIntrastatRows.Category = "RecordEdit"
+        Me.aIntrastatHeader_GenerateIntrastatRows.ConfirmationMessage = "Are you sure ? All data will lost !"
+        Me.aIntrastatHeader_GenerateIntrastatRows.Id = "aIntrastatHeader_GenerateIntrastatRows"
+        Me.aIntrastatHeader_GenerateIntrastatRows.ImageName = Nothing
+        Me.aIntrastatHeader_GenerateIntrastatRows.Shortcut = Nothing
+        Me.aIntrastatHeader_GenerateIntrastatRows.Tag = Nothing
+        Me.aIntrastatHeader_GenerateIntrastatRows.TargetObjectsCriteria = Nothing
+        Me.aIntrastatHeader_GenerateIntrastatRows.TargetObjectType = GetType(SISBusiness.[Module].IntrastatHeader)
+        Me.aIntrastatHeader_GenerateIntrastatRows.TargetViewId = Nothing
+        Me.aIntrastatHeader_GenerateIntrastatRows.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aIntrastatHeader_GenerateIntrastatRows.ToolTip = Nothing
+        Me.aIntrastatHeader_GenerateIntrastatRows.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aIntrastatCheckPrice
+        '
+        Me.aIntrastatCheckPrice.Caption = "aIntrastat Check Price"
+        Me.aIntrastatCheckPrice.ConfirmationMessage = Nothing
+        Me.aIntrastatCheckPrice.Id = "aIntrastatCheckPrice"
+        Me.aIntrastatCheckPrice.ImageName = Nothing
+        Me.aIntrastatCheckPrice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aIntrastatCheckPrice.Shortcut = Nothing
+        Me.aIntrastatCheckPrice.Tag = Nothing
+        Me.aIntrastatCheckPrice.TargetObjectsCriteria = Nothing
+        Me.aIntrastatCheckPrice.TargetObjectType = GetType(SISBusiness.[Module].DeliveryNoteInRows)
+        Me.aIntrastatCheckPrice.TargetViewId = "DeliveryNoteInRows_ListView_INTRASTAT"
+        Me.aIntrastatCheckPrice.ToolTip = Nothing
+        Me.aIntrastatCheckPrice.TypeOfView = Nothing
+        '
+        'aIntrastatCheckWeight
+        '
+        Me.aIntrastatCheckWeight.Caption = "aIntrastat Check Weight"
+        Me.aIntrastatCheckWeight.ConfirmationMessage = Nothing
+        Me.aIntrastatCheckWeight.Id = "aIntrastatCheckWeight"
+        Me.aIntrastatCheckWeight.ImageName = Nothing
+        Me.aIntrastatCheckWeight.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aIntrastatCheckWeight.Shortcut = Nothing
+        Me.aIntrastatCheckWeight.Tag = Nothing
+        Me.aIntrastatCheckWeight.TargetObjectsCriteria = Nothing
+        Me.aIntrastatCheckWeight.TargetObjectType = GetType(SISBusiness.[Module].DeliveryNoteInRows)
+        Me.aIntrastatCheckWeight.TargetViewId = Nothing
+        Me.aIntrastatCheckWeight.ToolTip = Nothing
+        Me.aIntrastatCheckWeight.TypeOfView = Nothing
+        '
+        'aPrintIntrastat
+        '
+        Me.aPrintIntrastat.Caption = "aPrint Intrastat"
+        Me.aPrintIntrastat.ConfirmationMessage = Nothing
+        Me.aPrintIntrastat.Id = "aPrintIntrastat"
+        Me.aPrintIntrastat.ImageName = "Action_Printing_Print"
+        Me.aPrintIntrastat.Shortcut = Nothing
+        Me.aPrintIntrastat.Tag = Nothing
+        Me.aPrintIntrastat.TargetObjectsCriteria = Nothing
+        Me.aPrintIntrastat.TargetObjectType = GetType(SISBusiness.[Module].IntrastatHeader)
+        Me.aPrintIntrastat.TargetViewId = Nothing
+        Me.aPrintIntrastat.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aPrintIntrastat.ToolTip = Nothing
+        Me.aPrintIntrastat.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+
+    End Sub
+    Friend WithEvents aIntrastatHeader_GenerateIntrastatRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aIntrastatCheckPrice As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aIntrastatCheckWeight As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aPrintIntrastat As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader_VC.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="aIntrastatHeader_GenerateIntrastatRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aIntrastatCheckPrice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aIntrastatCheckWeight.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>288, 56</value>
+  </metadata>
+  <metadata name="aPrintIntrastat.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>288, 95</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/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader_VC.vb

@@ -0,0 +1,187 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Xpo
+Imports System.Linq
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.Utils
+
+Public Class IntrastatHeader_VC
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event DoWork()
+    Public Event FinalWork
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+
+    Private Sub aIntrastatHeader_GenerateIntrastatRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIntrastatHeader_GenerateIntrastatRows.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _IntrastatHeader As IntrastatHeader = TryCast(View.SelectedObjects(0), IntrastatHeader)
+            Dim _IntrastatRows_DELCollection As New XPCollection(Of IntrastatRows)(_ocur.Session, DevExpress.Data.Filtering.CriteriaOperator.Parse("IntrastatHeader=?", _IntrastatHeader))
+
+
+            '// Nullás súlyok terméktörzsbõl update
+
+
+
+
+            _ocur.Delete(_IntrastatRows_DELCollection)
+            _ocur.CommitChanges()
+
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+
+
+            Dim _DeliveryNoteInRows_XPQuery = New XPQuery(Of DeliveryNoteInRows)(_onew.Session)
+            Dim query = From _DeliveryNoteInRows In _DeliveryNoteInRows_XPQuery _
+                        Where _DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution.Year = _IntrastatHeader.DateExecution.Year And
+                                _DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution.Month = _IntrastatHeader.DateExecution.Month
+                        Group _DeliveryNoteInRows By _DeliveryNoteInRows.DeliveryNoteInHeader.ShipmentOption,
+                              _DeliveryNoteInRows.Products.CustomsTariff,
+                              _DeliveryNoteInRows.DeliveryNoteInHeader.Customers.Address1.Country,
+                              _DeliveryNoteInRows.Products.CountryFrom,
+                              _DeliveryNoteInRows.ShipingCode,
+                              _DeliveryNoteInRows.ITransactionNumber,
+                              _DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution Into g = Group _
+                       Select New With {Key .ShipmentOption = ShipmentOption, _
+                                        Key .CustomTariffs = CustomsTariff, _
+                                        Key .ITransactionNumber = ITransactionNumber, _
+                                        Key .CountryFrom = CountryFrom, _
+                                        Key .ShipingCode = ShipingCode, _
+                                        Key .CountrySender = Country, _
+                                        Key .DateExecution = DateExecution, _
+                                        Key .AmountHUF_Sum = g.Sum(Function(inv) (inv.ListPriceHUF - inv.DiscountPriceHUF) * inv.QTT), _
+                                        Key .Area_Sum = g.Sum(Function(inv) inv.Area), _
+                                        Key .Weight_Sum = g.Sum(Function(inv) inv.Weight)}
+
+
+            Dim _RowIndex As Long = 1
+            RaiseEvent InitWork(1, 1, query.Count)
+            For Each item In query
+                RaiseEvent DoWork()
+                If GLOBAL_EUMemberStates.Contains(item.CountrySender.GetMemberValue("ShortName")) Then
+                    Dim _IntrastatRows As New IntrastatRows(_onew.Session)
+                    With _IntrastatRows
+                        .IntrastatHeader = _onew.GetObject(_IntrastatHeader)
+                        .RowIndex = _RowIndex
+                        .ITransactionNumber = item.ITransactionNumber
+                        .ShipmentOption = item.ShipmentOption
+                        .CustomsTariffs = item.CustomTariffs
+                        .CountrySender = item.CountrySender
+                        .ShipingCode = item.ShipingCode
+                        .CountryFrom = item.CountryFrom
+                        .AmountHUF = item.AmountHUF_Sum
+                        .Area = item.Area_Sum
+                        .Weight = item.Weight_Sum
+                    End With
+                    _RowIndex += 1
+                End If
+            Next
+
+            _onew.CommitChanges()
+
+            If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
+                Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")
+        Finally
+            RaiseEvent FinalWork
+        End Try
+    End Sub
+
+    Private Sub aIntrastatCheckPrice_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIntrastatCheckPrice.Execute
+        '// számlaigazolásból árak ellenõrzése
+        Dim _DeliveryNoteInRows As DeliveryNoteInRows
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+        For Each _DeliveryNoteInRows In View.SelectedObjects
+            RaiseEvent DoWork()
+            If _DeliveryNoteInRows.DeliveryNoteInHeader.CurrencyName.ShortName <> "HUF" Then
+                If _DeliveryNoteInRows.DeliveryNoteInRRFC.Count > 0 Then
+                    _DeliveryNoteInRows.ListPriceHUF = Math.Round(_DeliveryNoteInRows.ListPriceDEV * _DeliveryNoteInRows.DeliveryNoteInHeader.CurrencyRate, 0, MidpointRounding.AwayFromZero)
+                    If _DeliveryNoteInRows.Weight <= 0 Then
+                        _DeliveryNoteInRows.WeightMode = eWeightMode.eTotalWeightperQuantity
+                        If _DeliveryNoteInRows.Products.NettoWeight <> 0 Then
+                            _DeliveryNoteInRows.Weight = Math.Round(_DeliveryNoteInRows.QTT * _DeliveryNoteInRows.Products.NettoWeight, 4, 0)
+                        End If
+                    End If
+                End If
+            End If
+        Next
+        _ocur.CommitChanges()
+        RaiseEvent FinalWork
+    End Sub
+
+    Private Sub SimpleAction1_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIntrastatCheckWeight.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInRows As DeliveryNoteInRows
+
+
+        RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+        For Each _DeliveryNoteInRows In View.SelectedObjects
+            RaiseEvent DoWork()
+            Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_ocur.Session,
+                                                                            CriteriaOperator.Parse("DeliveryNoteInRows=?", _DeliveryNoteInRows))
+            Dim _StorageInRows As StorageInRows
+
+            For Each _StorageInRows In _StorageInRows_Collection
+                If _StorageInRows.DeliveryNoteInRows IsNot Nothing Then
+                    If _StorageInRows.DeliveryNoteInRows.Weight <> 0 Then
+                        If _StorageInRows.DeliveryNoteInRows.QTT <> 0 Then
+                            _StorageInRows.Weight = Math.Round((_StorageInRows.DeliveryNoteInRows.Weight / _StorageInRows.DeliveryNoteInRows.QTT) * _StorageInRows.QTT, 2, MidpointRounding.AwayFromZero)
+                        End If
+                    End If
+                End If
+                If _StorageInRows.StorageInRowsFrom IsNot Nothing Then
+                    If _StorageInRows.StorageInRowsFrom.DeliveryNoteInRows IsNot Nothing Then
+                        _StorageInRows.DeliveryNoteInRows = _StorageInRows.StorageInRowsFrom.DeliveryNoteInRows
+                        If _StorageInRows.StorageInRowsFrom.DeliveryNoteInRows.Weight <> 0 Then
+                            If _StorageInRows.StorageInRowsFrom.DeliveryNoteInRows.QTT <> 0 Then
+                                _StorageInRows.Weight = Math.Round((_StorageInRows.StorageInRowsFrom.DeliveryNoteInRows.Weight / _StorageInRows.StorageInRowsFrom.DeliveryNoteInRows.QTT) * _StorageInRows.QTT, 2, MidpointRounding.AwayFromZero)
+                            End If
+                        End If
+                    End If
+                End If
+
+                Dim _StorageInRows_From_Collection As New XPCollection(Of StorageInRows)(_ocur.Session, CriteriaOperator.Parse("StorageInRowsFrom=?", _StorageInRows))
+                Dim _StorageInRows_From As StorageInRows
+
+                For Each _StorageInRows_From In _StorageInRows_From_Collection
+                    _StorageInRows_From.DeliveryNoteInRows = _StorageInRows.DeliveryNoteInRows
+                    _StorageInRows_From.Weight = (_StorageInRows.Weight / _StorageInRows.QTT) * _StorageInRows_From.QTT
+                Next
+                _ocur.CommitChanges()
+            Next
+        Next
+        RaiseEvent FinalWork
+    End Sub
+
+    Private Sub aPrintIntrastat_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPrintIntrastat.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _IntrastatHeader As IntrastatHeader = TryCast(View.SelectedObjects(0), IntrastatHeader)
+            If _IntrastatHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
+
+            Dim _ReportData As ReportData = _IntrastatHeader.IntrastatParameters.Report
+            If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!" + vbNewLine + "A folyamat megszakadt!")
+
+            Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("IntrastatHeader.Oid=?", _IntrastatHeader.Oid), True)
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatParameters.vb

@@ -0,0 +1,58 @@
+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 IntrastatParameters
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _NumberGenerator As NumberGenerator
+    Private _Report As ReportData
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <RuleRequiredField("IntrastatParameters - CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("IntrastatParameters - NumberGenerator", DefaultContexts.Save)> _
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+
+    Public Property Report() As ReportData
+        Get
+            Return _Report
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("Report", _Report, value)
+        End Set
+    End Property
+
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatRows.vb

@@ -0,0 +1,126 @@
+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 IntrastatRows
+    Inherits BaseObject
+
+    Private _IntrastatHeader As IntrastatHeader
+    Private _RowIndex As Long
+    Private _CustomsTariffs As CustomsTariffs
+    Private _ITransactionNumber As String
+    Private _ShipmentOption As ShipmentOption
+    Private _ShipingCode As String
+    Private _CountrySender As Country 'Szállítóllevél sorhoz tartozó ország
+    Private _CountryFrom As Country 'Termékhez tartozó származási ország
+    Private _Weight As Double
+    Private _Area As Double
+    Private _AmountHUF As Double 'SUMPrice HUF-os a szállítólevél sorból
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("IntrastatHeader - IntrastatRows", GetType(IntrastatHeader))> _
+    Property IntrastatHeader As IntrastatHeader
+        Get
+            Return _IntrastatHeader
+        End Get
+        Set(value As IntrastatHeader)
+            SetPropertyValue("IntrastatHeader", _IntrastatHeader, value)
+        End Set
+    End Property
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    Property CustomsTariffs As CustomsTariffs
+        Get
+            Return _CustomsTariffs
+        End Get
+        Set(value As CustomsTariffs)
+            SetPropertyValue("CustomsTariffs", _CustomsTariffs, value)
+        End Set
+    End Property
+    Property ITransactionNumber As String
+        Get
+            Return _ITransactionNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("ITransactionNumber", _ITransactionNumber, value)
+        End Set
+    End Property
+    Property ShipmentOption As ShipmentOption
+        Get
+            Return _ShipmentOption
+        End Get
+        Set(value As ShipmentOption)
+            SetPropertyValue("ShipmentOption", _ShipmentOption, value)
+        End Set
+    End Property
+    Property ShipingCode As String
+        Get
+            Return _ShipingCode
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShipingCode", _ShipingCode, value)
+        End Set
+    End Property
+    Property CountrySender As Country
+        Get
+            Return _CountrySender
+        End Get
+        Set(value As Country)
+            SetPropertyValue("CountrySender", _CountrySender, value)
+        End Set
+    End Property
+    Property CountryFrom As Country
+        Get
+            Return _CountryFrom
+        End Get
+        Set(value As Country)
+            SetPropertyValue("CountryFrom", _CountryFrom, value)
+        End Set
+    End Property
+    Property Weight As Double
+        Get
+            Return _Weight
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Weight", _Weight, value)
+        End Set
+    End Property
+    Property Area As Double
+        Get
+            Return _Area
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Area", _Area, value)
+        End Set
+    End Property
+    Property AmountHUF As Double
+        Get
+            Return _AmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUF", _AmountHUF, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOffersInRowsHeader.vb

@@ -0,0 +1,53 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<Appearance("DeliveryNoteInFromOffersInRowsHeader - Disable OfferInHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="OfferInHeader", Enabled:=False)> _
+Public Class DeliveryNoteInFromOffersInRowsHeader
+    Inherits BaseObject
+
+    Private _OfferInHeader As OfferInHeader
+    Private _DeliveryNoteInType As DeliveryNoteInType
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property OfferInHeader As OfferInHeader
+        Get
+            Return _OfferInHeader
+        End Get
+        Set(value As OfferInHeader)
+            SetPropertyValue("OfferInHeader", _OfferInHeader, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteInFromOffersInRowsHeader.DeliveryNoteInType", DefaultContexts.Save)> _
+    Property DeliveryNoteInType As DeliveryNoteInType
+        Get
+            Return _DeliveryNoteInType
+        End Get
+        Set(value As DeliveryNoteInType)
+            SetPropertyValue("DeliveryNoteInType", _DeliveryNoteInType, value)
+        End Set
+    End Property
+
+    <Association("DeliveryNoteInFromOffersInRowsHeader-DeliveryNoteInFromOffersInRowsRows", GetType(DeliveryNoteInFromOffersInRowsRows)), VisibleInListView(False)> _
+    ReadOnly Property DeliveryNoteInFromOffersInRowsRows As XPCollection(Of DeliveryNoteInFromOffersInRowsRows)
+        Get
+            Return GetCollection(Of DeliveryNoteInFromOffersInRowsRows)("DeliveryNoteInFromOffersInRowsRows")
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOffersInRowsRows.vb

@@ -0,0 +1,69 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports System.Linq
+
+<DefaultClassOptions(), CreatableItem(False), NavigationItem(False)> _
+Public Class DeliveryNoteInFromOffersInRowsRows
+    Inherits BaseObject
+
+    Private _DeliveryNoteInFromOffersInRowsHeader As DeliveryNoteInFromOffersInRowsHeader
+    Private _OfferInRows As OfferInRows
+    Private _QTT_Process As Double
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+
+    End Sub
+    <Association("DeliveryNoteInFromOffersInRowsHeader-DeliveryNoteInFromOffersInRowsRows", GetType(DeliveryNoteInFromOffersInRowsHeader))> _
+    Property DeliveryNoteInFromOrderOutRowsHeader As DeliveryNoteInFromOffersInRowsHeader
+        Get
+            Return _DeliveryNoteInFromOffersInRowsHeader
+        End Get
+        Set(value As DeliveryNoteInFromOffersInRowsHeader)
+            SetPropertyValue("DeliveryNoteInFromOffersInRowsHeader", _DeliveryNoteInFromOffersInRowsHeader, value)
+        End Set
+    End Property
+    Property OfferInRows As OfferInRows
+        Get
+            Return _OfferInRows
+        End Get
+        Set(value As OfferInRows)
+            SetPropertyValue("OfferInRows", _OfferInRows, value)
+        End Set
+    End Property
+    Property QTT_Process As Double
+        Get
+            Return _QTT_Process
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Process", _QTT_Process, value)
+        End Set
+    End Property
+    ReadOnly Property QTT_DeliveryNoteIn As Double
+        Get
+            Dim _DeliveryNoteInRows As New XPQuery(Of DeliveryNoteInRows)(Session)
+            Dim _QTT_Sum As Double = 0
+            Dim query = From _DNIR In _DeliveryNoteInRows
+                    Where _DNIR.OfferInRows Is OfferInRows
+            Group _DNIR By _DNIR.OfferInRows Into g = Group _
+            Select New With {Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)}
+
+            For Each item In query
+                _QTT_Sum = item.QTT_Sum
+            Next
+
+            Return _QTT_Sum
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOrderOutRowsHeader.vb

@@ -0,0 +1,50 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Disable OrderOutHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="OrderOutHeader", Enabled:=False)> _
+Public Class DeliveryNoteInFromOrderOutRowsHeader
+    Inherits BaseObject
+    Private _OrderOutHeader As OrderOutHeader ' Kimenő megrendelés fejléc
+    Private _DeliveryNoteInType As DeliveryNoteInType
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <Association("DeliveryNoteInFromOrderOutRowsHeader-DeliveryNoteInFromOrderOutRowsRows", GetType(DeliveryNoteInFromOrderOutRowsRows)), VisibleInListView(False)> _
+    ReadOnly Property DeliveryNoteInFromOrderOutRowsRows As XPCollection(Of DeliveryNoteInFromOrderOutRowsRows)
+        Get
+            Return GetCollection(Of DeliveryNoteInFromOrderOutRowsRows)("DeliveryNoteInFromOrderOutRowsRows")
+        End Get
+    End Property
+    Property OrderOutHeader As OrderOutHeader
+        Get
+            Return _OrderOutHeader
+        End Get
+        Set(value As OrderOutHeader)
+            SetPropertyValue("OrderOutHeader", _OrderOutHeader, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteInFromOrderOutRowsHeader.DeliveryNoteInType", DefaultContexts.Save)> _
+    Property DeliveryNoteInType As DeliveryNoteInType
+        Get
+            Return _DeliveryNoteInType
+        End Get
+        Set(value As DeliveryNoteInType)
+            SetPropertyValue("DeliveryNoteInType", _DeliveryNoteInType, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOrderOutRowsRows.vb

@@ -0,0 +1,68 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports System.Linq
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class DeliveryNoteInFromOrderOutRowsRows
+    Inherits BaseObject
+    Private _DeliveryNoteInFromOrderOutRowsHeader As DeliveryNoteInFromOrderOutRowsHeader
+    Private _OrderOutRows As OrderOutRows
+    Private _QTT_Process As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <Association("DeliveryNoteInFromOrderOutRowsHeader-DeliveryNoteInFromOrderOutRowsRows", GetType(DeliveryNoteInFromOrderOutRowsHeader))> _
+    Property DeliveryNoteInFromOrderOutRowsHeader As DeliveryNoteInFromOrderOutRowsHeader
+        Get
+            Return _DeliveryNoteInFromOrderOutRowsHeader
+        End Get
+        Set(value As DeliveryNoteInFromOrderOutRowsHeader)
+            SetPropertyValue("DeliveryNoteInFromOrderOutRowsHeader", _DeliveryNoteInFromOrderOutRowsHeader, value)
+        End Set
+    End Property
+    Property OrderOutRows As OrderOutRows
+        Get
+            Return _OrderOutRows
+        End Get
+        Set(value As OrderOutRows)
+            SetPropertyValue("OrderOutRows", _OrderOutRows, value)
+        End Set
+    End Property
+    Property QTT_Process As Double
+        Get
+            Return _QTT_Process
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Process", _QTT_Process, value)
+        End Set
+    End Property
+    ReadOnly Property QTT_DeliveryNoteIn As Double
+        Get
+            Dim _DeliveryNoteInRows As New XPQuery(Of DeliveryNoteInRows)(Session)
+            Dim _QTT_Sum As Double = 0
+            Dim query = From _DNIR In _DeliveryNoteInRows
+                    Where _DNIR.OrderOutRows Is OrderOutRows
+            Group _DNIR By _DNIR.OrderOutRows Into g = Group _
+            Select New With {Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)}
+
+            For Each item In query
+                _QTT_Sum = item.QTT_Sum
+            Next
+
+            Return _QTT_Sum
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInRRFC_Popup.vb

@@ -0,0 +1,30 @@
+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 DeliveryNoteInRRFC_Popup
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    Property BonusHUF As Double
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInToRegistry.vb

@@ -0,0 +1,57 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent> _
+Public Class DeliveryNoteInToRegistry
+    Inherits BaseObject
+
+    Private _RegistryType As RegistryType 'Iktatás típusa
+    Private _F_CustomerBankAccounts As CustomerBankAccounts
+    Private _RegistryNumber As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    Property RegistryType As RegistryType
+        Get
+            Return _RegistryType
+        End Get
+        Set(value As RegistryType)
+            SetPropertyValue("RegistryType", _RegistryType, value)
+        End Set
+    End Property
+    Property F_CustomerBankAccounts As CustomerBankAccounts
+        Get
+            Return _F_CustomerBankAccounts
+        End Get
+        Set(value As CustomerBankAccounts)
+            SetPropertyValue("F_CustomerBankAccounts", _F_CustomerBankAccounts, value)
+        End Set
+    End Property
+    Property RegistryNumber As String
+        Get
+            Return _RegistryNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("RegistryNumber", _RegistryNumber, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInToStorageInHeader.vb

@@ -0,0 +1,52 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<NonPersistent()> _
+Public Class DeliveryNoteInToStorageInHeader
+    Inherits BaseObject
+    Private _Storage As Storage
+    Private _StorageMoveType As StorageMoveType
+    Private _IsRegistry As Boolean
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        IsRegistry = False
+    End Sub
+    Property Storage As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+        End Set
+    End Property
+    <DataSourceCriteria("Storage='@This.Storage'")> _
+    Property StorageMoveType As StorageMoveType
+        Get
+            Return _StorageMoveType
+        End Get
+        Set(value As StorageMoveType)
+            SetPropertyValue("StorageMoveType", _StorageMoveType, value)
+        End Set
+    End Property
+    Property IsRegistry As Boolean
+        Get
+            Return _IsRegistry
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsRegistry", _IsRegistry, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutHeader.vb

@@ -0,0 +1,259 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem("BusinessTransactions")> _
+<Appearance("DeliveryNoteOutHeader - Disabled IsEditable and IsStorno", "1=1", TargetItems:="IsEditable;IsStorno", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Disable DeliveryNoteOutHeader-DocumentNumber", AppearanceItemType.ViewItem, "1=1", TargetItems:="DocumentNumber", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Disable ObjectCreated DeliveryNoteOutHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Disable UserCreated DeliveryNoteOutHeader", AppearanceItemType.ViewItem, "IsEditable=False", TargetItems:="*", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Disable all property when IsEditable=False DeliveryNoteOutHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Hide Item2 DeliveryNoteOutHeader", AppearanceItemType.LayoutItem, "IsNull(DocumentNumber) Or IsNull(DeliveryNoteOutType) Or IsNull(Customers) Or IsNull(CustomersFrom) Or IsNull(ShipmentOption)", TargetItems:="Item2", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteOutHeader - Disable aTotable_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aTotable_DeliveryNoteOut", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Hide aTotableD_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aTotableD_DeliveryNoteOut", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteOutHeader - Hide aFinalize_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aFinalize_DeliveryNoteOut", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteOutHeader - Disable aDown_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aDown_DeliveryNoteOut", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Disable aUp_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aUp_DeliveryNoteOut", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Disable aBackToEdit_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = True", TargetItems:="aBackToEdit_DeliveryNoteOut", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader -  Hide all row_ properties, when IsEditable = False", AppearanceItemType.ViewItem, "IsEditable = False", TargetItems:="row_StorageOutRowsInRows;row_QTT;row_NoteRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class DeliveryNoteOutHeader 'Kimenő szállítólevél fejléc
+    Inherits BaseObject
+    Private _DeliveryNoteOutType As DeliveryNoteOutType
+    Private _DocumentNumber As String ' Sorszám
+    Private _CustomersFrom As CustomersFrom ' Sajátcég
+    Private _Customers As Customers ' Ügyfél
+    Private _DateCreated As Date ' Létrehozás dátuma
+    Private _DateExecution As Date ' Végrehajtás dátuma
+    Private _ShipmentOption As ShipmentOption ' Szállítási opció
+    Private _QualityOption As QualityOption ' Minőségi opció
+    Private _CurrencyName As CurrencyName ' Deviza
+    Private _Note As String ' Megjegyzés
+    Private _TransportAddress As Address ' -- Szállítási cím
+    Private _IsEditable As Boolean = True 'Szerkeszthető
+    Private _IsStorno As Boolean = False 'Végleges
+    Private _ObjectCreated As Date 'Objektum keletkezésének dátuma
+    Private _UserCreated As User
+    Private _ConnectInfo As String
+
+    '--Nonpersistent propertyk
+    Private _row_StorageOutRowsInRows As StorageOutRowsInRows
+    Private _row_QTT As Double
+    Private _row_NoteRows As String 'Sor megjegyzés
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If String.IsNullOrEmpty(DocumentNumber) Then _
+        _DocumentNumber = DeliveryNoteOutType.NumberGenerator.GetNewNumber(DeliveryNoteOutType.NumberGenerator)
+        If String.IsNullOrEmpty(ConnectInfo) Then ConnectInfo = DocumentNumber
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    <RuleRequiredField("DeliveryNoteOutHeader.DeliveryNoteOutType", DefaultContexts.Save)> _
+    Property DeliveryNoteOutType As DeliveryNoteOutType
+        Get
+            Return _DeliveryNoteOutType
+        End Get
+        Set(value As DeliveryNoteOutType)
+            SetPropertyValue("DeliveryNoteOutType", _DeliveryNoteOutType, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property DocumentNumber() As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteOutHeader.Customers", DefaultContexts.Save)> _
+    Property Customers() As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteOutHeader.CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom() As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property DateCreated() As Date
+        Get
+            Return _DateCreated
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateCreated", _DateCreated, value)
+        End Set
+    End Property
+    Property DateExecution() As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteOutHeader.ShipmentOption", DefaultContexts.Save)> _
+    Property ShipmentOption() As ShipmentOption
+        Get
+            Return _ShipmentOption
+        End Get
+        Set(ByVal value As ShipmentOption)
+            SetPropertyValue("ShipmentOption", _ShipmentOption, value)
+        End Set
+    End Property
+    Property QualityOption() As QualityOption
+        Get
+            Return _QualityOption
+        End Get
+        Set(ByVal value As QualityOption)
+            SetPropertyValue("QualityOption", _QualityOption, value)
+        End Set
+    End Property
+    Property CurrencyName() As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, 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("DeliveryNoteOutHeader.TransportAddress", DefaultContexts.Save)> _
+    Property TransportAddress As Address
+        Get
+            Return _TransportAddress
+        End Get
+        Set(value As Address)
+            SetPropertyValue("TransportAddress", _TransportAddress, value)
+        End Set
+    End Property
+    Property IsEditable() As Boolean
+        Get
+            Return _IsEditable
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsEditable", _IsEditable, value)
+        End Set
+    End Property
+    Property IsStorno() As Boolean
+        Get
+            Return _IsStorno
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsStorno", _IsStorno, 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 ConnectInfo As String
+        Get
+            Return _ConnectInfo
+        End Get
+        Set(value As String)
+            SetPropertyValue("ConnectInfo", _ConnectInfo, value)
+        End Set
+    End Property
+
+    '------ReadOnly--------
+    <Association("DeliveryNoteOutHeader-DeliveryNoteOutRows", GetType(DeliveryNoteOutRows)), VisibleInListView(False)> _
+    ReadOnly Property DeliveryNoteOutRows() As XPCollection(Of DeliveryNoteOutRows)
+        Get
+            Return GetCollection(Of DeliveryNoteOutRows)("DeliveryNoteOutRows")
+        End Get
+    End Property
+
+    '--Nonpersistent propertyk
+    <NonPersistent()> _
+    <DataSourceProperty("StorageOutRowsInRows")> _
+    Property row_StorageOutRowsInRows As StorageOutRowsInRows
+        Get
+            Return _row_StorageOutRowsInRows
+        End Get
+        Set(value As StorageOutRowsInRows)
+            SetPropertyValue("row_StorageOutRowsInRows", _row_StorageOutRowsInRows, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    Property row_QTT As Double
+        Get
+            Return _row_QTT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_QTT", _row_QTT, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    Property row_NoteRows As String
+        Get
+            Return _row_NoteRows
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_NoteRows", _row_NoteRows, value)
+        End Set
+    End Property
+
+    <VisibleInListView(False)> _
+   <Browsable(False)> _
+    Private ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows)
+        Get
+
+            Dim _StorageOutRowsInRows_Collection As XPCollection(Of StorageOutRowsInRows)
+            Dim _Criteria As String
+
+            _Criteria = "(QTT_To_DeliveryOut + QTT_Will) < QTT"
+
+            _StorageOutRowsInRows_Collection = New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse(_Criteria))
+            Return _StorageOutRowsInRows_Collection
+        End Get
+    End Property
+End Class
+
+
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutRows.vb

@@ -0,0 +1,126 @@
+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
+
+'--- Kimenő szállítólevelek
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class DeliveryNoteOutRows 'Szállítólevél sorok
+    Inherits BaseObject
+    Private _RowIndex As Long
+    Private _DeliveryNoteOutHeader As DeliveryNoteOutHeader
+    Private _StorageOutRowsInRows As StorageOutRowsInRows
+    Private _QTT As Double
+    Private _QTT_Invoiced As Double
+    Private _QTT_Will As Double
+    Private _Note As String
+    Private _ADRNumber As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        '// ADR számolás !!!
+        If StorageOutRowsInRows IsNot Nothing Then
+            Dim _ADRFactor As Long = 0
+            If StorageOutRowsInRows.StorageOutRows IsNot Nothing Then
+                If StorageOutRowsInRows.StorageOutRows.Products IsNot Nothing Then
+                    Select Case StorageOutRowsInRows.StorageOutRows.Products.ADRPackingUnit
+                        Case eADRPackingUnit.eNotSet
+                            _ADRFactor = 0
+                        Case eADRPackingUnit.eUnit_I
+                            _ADRFactor = 50
+                        Case eADRPackingUnit.eUnit_II
+                            _ADRFactor = 3
+                        Case eADRPackingUnit.eUnit_III
+                            _ADRFactor = 1
+                    End Select
+                    If StorageOutRowsInRows.StorageOutRows.Products.Units.ShortName = "to" Then
+                        ADRNumber = _ADRFactor * QTT * 1000
+                    Else
+                        ADRNumber = _ADRFactor * QTT
+                    End If
+
+                    ' ADRNumber = _ADRFactor * QTT
+                End If
+            End If
+        End If
+    End Sub
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    <Association("DeliveryNoteOutHeader-DeliveryNoteOutRows", GetType(DeliveryNoteOutHeader))> _
+    Property DeliveryNoteOutHeader() As DeliveryNoteOutHeader
+        Get
+            Return _DeliveryNoteOutHeader
+        End Get
+        Set(ByVal value As DeliveryNoteOutHeader)
+            SetPropertyValue("DeliveryNoteOutHeader", _DeliveryNoteOutHeader, value)
+        End Set
+    End Property
+    <DataSourceCriteria("(QTT-QTT_To_DeliveryOut)>0")> _
+    Property StorageOutRowsInRows() As StorageOutRowsInRows
+        Get
+            Return _StorageOutRowsInRows
+        End Get
+        Set(ByVal value As StorageOutRowsInRows)
+            SetPropertyValue("StorageOutRowsInRows", _StorageOutRowsInRows, value)
+        End Set
+    End Property
+    Property QTT() As Double
+        Get
+            Return _QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property QTT_Invoiced As Double
+        Get
+            Return _QTT_Invoiced
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Invoiced", _QTT_Invoiced, value)
+        End Set
+    End Property
+    Property QTT_Will As Double
+        Get
+            Return _QTT_Will
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Will", _QTT_Will, 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
+    Property ADRNumber As Double
+        Get
+            Return _ADRNumber
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ADRNumber", _ADRNumber, value)
+        End Set
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutType.vb

@@ -0,0 +1,97 @@
+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 eExportMode
+    eInternalwithVAT = 0 'Belföldi ÁFÁ-s
+    eExternalEUwithVAT = 1 'EU-ból ÁFÁ-s
+    eExternalEUNoVAT = 2 'EU-ból nem ÁFÁs
+    eExternalOther = 3 ' EU-n kívüli nem ÁFÁS
+    eInversVAT = 4 'Fordított adózás
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("BusinessStocks")> _
+Public Class DeliveryNoteOutType 'Kimenõ szállítólevél  tipusok
+    Inherits BaseObject
+    Private _ExportMode As eExportMode '
+    Private _IsPrice As Boolean = True 'Van-e ár
+    Private _ShortName As String 'Megnevezés
+    Private _Description As String 'Leírás
+    Private _NumberGenerator As NumberGenerator 'Sorszám generátor
+    Private _ReportData As ReportData
+    Private _CurrencyName As CurrencyName
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ExportMode As eExportMode
+        Get
+            Return _ExportMode
+        End Get
+        Set(value As eExportMode)
+            SetPropertyValue("ExportMode", _ExportMode, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteOutType.IsPrice", DefaultContexts.Save)> _
+    Property IsPrice As Boolean
+        Get
+            Return _IsPrice
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsPrice", _IsPrice, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteOutType.ShortName", DefaultContexts.Save)> _
+    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
+    <RuleRequiredField("DeliveryNoteOutType.NumberGenerator", DefaultContexts.Save)> _
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteOutType.ReportData", DefaultContexts.Save)> _
+    Property ReportData As ReportData
+        Get
+            Return _ReportData
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData", _ReportData, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteOutType.CurrencyName", DefaultContexts.Save)> _
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+End Class
+
+