First create solution

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

@@ -0,0 +1,103 @@
+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
+    ''' <summary>
+    ''' Saját cég objektuma
+    ''' </summary>
+    ''' <returns></returns>
+    <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

Nuvolar.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

Nuvolar.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

Nuvolar.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)>
+    <ImmediatePostData(True), 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

Nuvolar.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
+    <ImmediatePostData(True), 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

Nuvolar.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

Nuvolar.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

Nuvolar.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

Nuvolar.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
+    <ImmediatePostData(True), 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)>
+    <ImmediatePostData(True), 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)>
+    <ImmediatePostData(True), 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

Nuvolar.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

Nuvolar.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

Nuvolar.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

Nuvolar.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(Nuvolar.[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(Nuvolar.[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

Nuvolar.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>

Nuvolar.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\NuvolarExceptions", "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

Nuvolar.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

Nuvolar.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(Nuvolar.[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

Nuvolar.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>

Nuvolar.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
+
+    Public Overridable 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\NuvolarExceptions", "MsgBoxCheckItAgain")))
+        End Try
+
+    End Sub
+End Class

Nuvolar.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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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(Nuvolar.[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

Nuvolar.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>

Nuvolar.Module/BusinessObjects/Business/Agricultural/Agricultural.cd

@@ -0,0 +1,136 @@
+<?xml version="1.0" encoding="utf-8"?>
+<ClassDiagram MajorVersion="1" MinorVersion="1">
+  <Class Name="Nuvolar.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="Nuvolar.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="Nuvolar.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="Nuvolar.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>

Nuvolar.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

Nuvolar.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

Nuvolar.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
+    <ImmediatePostData(True), 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

Nuvolar.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

Nuvolar.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

Nuvolar.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

Nuvolar.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