First create solution

Nuvolar.Module/BusinessObjects/Business/Worksheet/PopUp/CloseWorkSheet_SubcontractorpopUp.vb

@@ -0,0 +1,66 @@
+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 CloseWorkSheet_SubcontractorpopUp
+    Inherits BaseObject
+
+    Private _WorkSheetFile As FileData
+    Private _SubcontractorInvoice As FileData
+    Private _Description As String
+    Private _DateClosed As Date
+
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property WorkSheetFile As FileData
+        Get
+            Return _WorkSheetFile
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("WorkSheetFile", _WorkSheetFile, value)
+        End Set
+    End Property
+    Property SubcontractorInvoice As FileData
+        Get
+            Return _SubcontractorInvoice
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("SubcontractorInvoice", _SubcontractorInvoice, 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 DateClosed As Date
+        Get
+            Return _DateClosed
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateClosed", _DateClosed, value)
+        End Set
+    End Property
+
+End Class
+

Nuvolar.Module/BusinessObjects/Business/Worksheet/PopUp/CreateInvoiceFromWorksheetCost_PopUp.vb

@@ -0,0 +1,158 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Disable CreateInvoiceFromWorksheetCost_PopUp-CurrencyRate, when WorkSheet_Header.CurrencyName.ShortName=HUF ", AppearanceItemType.ViewItem, " WorkSheet_Header.CurrencyName.ShortName='HUF'", TargetItems:="CurrencyRate", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable CreateInvoiceFromWorksheetCost_PopUp-BankInformation, when PaymentOption.PayMode=0 ", AppearanceItemType.ViewItem, "PaymentOption.PayMode=0", TargetItems:="BankInformation", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class CreateInvoiceFromWorksheetCost_PopUp
+    Inherits BaseObject
+
+    Private _Customers As Customers
+    Private _InvoiceType As InvoiceType
+    Private _InvoicePeriod As String 'Számlázási idõszak string
+    Private _Description As String
+    Private _DescriptionHeader As String 'Számlán szereplõ  fejléc megjegyzés
+    Private _DateExecution As Date 'Teljesítés dátuma
+    Private _DatePayment As Date 'Fizetési határidõ
+    Private _PaymentOption As PaymentOption
+    Private _CurrencyRate As Double
+    Private _BankInformation As BankInformation
+    Private _WorkSheet_Header As WorkSheet_Header
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        DatePayment = GetSQLTime(Session)
+    End Sub
+
+    Property Customers() As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom='@This.WorkSheet_Header.CustomersFrom' and InvoiceTypeBase in (2,3)")>
+    Property InvoiceType() As InvoiceType
+        Get
+            Return _InvoiceType
+        End Get
+        Set(ByVal value As InvoiceType)
+            SetPropertyValue("InvoiceType", _InvoiceType, value)
+        End Set
+    End Property
+    Property InvoicePeriod As String
+        Get
+            Return _InvoicePeriod
+        End Get
+        Set(value As String)
+            SetPropertyValue("InvoicePeriod", _InvoicePeriod, value)
+        End Set
+    End Property
+    <Size(-1)>
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    <Size(-1)>
+    Property DescriptionHeader As String
+        Get
+            Return _DescriptionHeader
+        End Get
+        Set(value As String)
+            SetPropertyValue("DescriptionHeader", _DescriptionHeader, value)
+        End Set
+    End Property
+    Property DateExecution() As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property DatePayment() As Date
+        Get
+            Return _DatePayment
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DatePayment", _DatePayment, value)
+        End Set
+    End Property
+    <ImmediatePostData()>
+    Property PaymentOption As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If value.PayMode = ePayMode.InCash Then
+                    Me.DateExecution = GetSQLTime(Session)
+                    Me.DatePayment = GetSQLTime(Session)
+                ElseIf value.PayMode = ePayMode.InContinuous Then
+                    Me.DateExecution = Me.DatePayment
+                ElseIf value.PayMode = ePayMode.InTransfer Then
+                    Me.DatePayment = DateAdd(DateInterval.Day, value.PayDay, GetSQLTime(Session))
+                End If
+            End If
+        End Set
+    End Property
+    '<RuleRange("InvoiceHeader-CurrencyRate-aToTable", "aToTable_Invoice_Contexts", 1, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName<>'HUF'")> _
+    '<RuleRange("CreateInvoiceFromWorksheetCost_PopUp-CurrencyRate", DefaultContexts.Save, 1, Double.MaxValue, TargetCriteria:="WorkSheet_Header.CurrencyName.ShortName <> 'HUF'")> _
+    Property CurrencyRate() As Double
+        Get
+            Return _CurrencyRate
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("CurrencyRate", _CurrencyRate, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("LiquidAssests.CustomerFrom = '@This.WorkSheet_Header.CustomersFrom'")>
+    Property BankInformation As BankInformation
+        Get
+            Return _BankInformation
+        End Get
+        Set(ByVal value As BankInformation)
+            SetPropertyValue("CustomerBankAccounts", _BankInformation, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    <VisibleInDetailView(False)> _
+    Property WorkSheet_Header As WorkSheet_Header
+        Get
+            Return _WorkSheet_Header
+        End Get
+        Set(value As WorkSheet_Header)
+            SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value)
+        End Set
+    End Property
+
+    '--------------ReadOnly-------------
+    'ReadOnly Property Worksheet_CostRows As XPCollection(Of Worksheet_CostRows)
+    '    Get  'Dim _OrderOutRows As OrderOutRows
+    '        Dim _Worksheet_CostRows_Collection As XPCollection(Of Worksheet_CostRows)
+
+    '        _Worksheet_CostRows_Collection = New XPCollection(Of Worksheet_CostRows)(Session, CriteriaOperator.Parse("WorkSheet_Header.Oid=? AND IsNull(InvoiceRows)=True", Me.WorkSheet_Header.Oid))
+    '        Return _Worksheet_CostRows_Collection
+    '    End Get
+    'End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/PopUp/OpenWorkSheet_SubcontractorPopUp.vb

@@ -0,0 +1,231 @@
+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()> _
+<CreatableItem(False)> _
+<NavigationItem(False)> _
+<Appearance("Disable CustomersFrom in Popup", "ViewItem", targetitems:="CustomersFrom", criteria:="isnull(CustomersFrom)=False", enabled:=False)> _
+<Appearance("Disable WorkSheet_Header_Collection in Popup, when WorkSheet_Header_Collection.Count=0", "ViewItem", targetitems:="WorkSheet_Header_Collection", criteria:="WorkSheet_Header_Collection.Count=0", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class OpenWorkSheet_SubcontractorPopUp
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom
+    Private _WorkSheetType As WorkSheetType
+    Private _DateCreated As Date
+    Private _Subcontractor As Subcontractor
+    Private _InvoiceState As eInvoiceState 'Számlázási állapot
+    Private _WorkState As WorkState 'Munkafolyamat
+    Private _Question As Question
+    Private _Description As String
+    Private _WorkPlace As WorkPlace
+    Private _WorkHour As Double
+    Private _WorkDescription As String
+    Private _WorkUsedMaterialDescription As String
+    Private _WorkDescriptionOther As String
+    Private _WorkTravelKm As Long
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Dim _User As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        Dim _Contacts As Contacts = Session.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User))
+        Subcontractor = Session.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers=?", _Contacts.Customers))
+    End Sub
+    <ImmediatePostData()> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Me.WorkPlace = Nothing
+            End If
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceProperty("WorkSheetType_Collection")>
+    Property WorkSheetType As WorkSheetType
+        Get
+            Return _WorkSheetType
+        End Get
+        Set(value As WorkSheetType)
+            SetPropertyValue("WorkSheetType", _WorkSheetType, 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
+    <VisibleInListView(False)>
+    <VisibleInDetailView(False)>
+    Property Subcontractor As Subcontractor
+        Get
+            Return _Subcontractor
+        End Get
+        Set(value As Subcontractor)
+            SetPropertyValue("Subcontractor", _Subcontractor, value)
+        End Set
+    End Property
+    Property InvoiceState As eInvoiceState
+        Get
+            Return _InvoiceState
+        End Get
+        Set(value As eInvoiceState)
+            SetPropertyValue("InvoiceState", _InvoiceState, value)
+        End Set
+    End Property
+    Property WorkState As WorkState
+        Get
+            Return _WorkState
+        End Get
+        Set(value As WorkState)
+            SetPropertyValue("WorkState", _WorkState, value)
+        End Set
+    End Property
+    <VisibleInListView(False)>
+    <VisibleInDetailView(False)>
+    Property Question As Question
+        Get
+            Return _Question
+        End Get
+        Set(value As Question)
+            SetPropertyValue("Question", _Question, 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
+    <ImmediatePostData(True), DataSourceProperty("WorkPlace_Collection")>
+    Property WorkPlace As WorkPlace
+        Get
+            Return _WorkPlace
+        End Get
+        Set(value As WorkPlace)
+            SetPropertyValue("WorkPlace", _WorkPlace, value)
+        End Set
+    End Property
+    Property WorkHour As Double
+        Get
+            Return _WorkHour
+        End Get
+        Set(value As Double)
+            SetPropertyValue("WorkHour", _WorkHour, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property WorkDescription As String
+        Get
+            Return _WorkDescription
+        End Get
+        Set(value As String)
+            SetPropertyValue("WorkDescription", _WorkDescription, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property WorkUsedMaterialDescription As String
+        Get
+            Return _WorkUsedMaterialDescription
+        End Get
+        Set(value As String)
+            SetPropertyValue("WorkUsedMaterialDescription", _WorkUsedMaterialDescription, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property WorkDescriptionOther As String
+        Get
+            Return _WorkDescriptionOther
+        End Get
+        Set(value As String)
+            SetPropertyValue("WorkDescriptionOther", _WorkDescriptionOther, value)
+        End Set
+    End Property
+    Property WorkTravelKm As Long
+        Get
+            Return _WorkTravelKm
+        End Get
+        Set(value As Long)
+            SetPropertyValue("WorkTravelKm", _WorkTravelKm, value)
+        End Set
+    End Property
+
+    <VisibleInListView(False)> _
+    Private ReadOnly Property WorkPlace_Collection As XPCollection(Of WorkPlace)
+        Get
+            If Me.CustomersFrom Is Nothing Then
+                Return Nothing
+            End If
+            Dim _WorkPlace_Collection_All As New XPCollection(Of WorkPlace)(Session, CriteriaOperator.Parse("CustomersFrom.Oid=?", Me.CustomersFrom.Oid))
+            Dim _WorkPlace_Collection As New XPCollection(Of WorkPlace)(Session, CriteriaOperator.Parse("1=2"))
+            Dim _WorkPlace As WorkPlace
+            Dim _WorkPlace_ArrayList As New ArrayList
+            Dim _SubcontractorCustomers_Collection As New XPCollection(Of SubcontractorCustomers)(Session, CriteriaOperator.Parse("Subcontractor.Oid=?", Me.Subcontractor.Oid))
+            Dim _SubcontractorCustomers As SubcontractorCustomers
+
+            '_SubcontractorCustomers.Customers.Contacts
+            _WorkPlace_ArrayList.Clear()
+            For Each _WorkPlace In _WorkPlace_Collection_All
+                For Each _SubcontractorCustomers In _SubcontractorCustomers_Collection
+                    If _SubcontractorCustomers.Workplace IsNot Nothing Then
+                        If _WorkPlace.Oid = _SubcontractorCustomers.Workplace.Oid Then
+                            If _WorkPlace_ArrayList.Contains(_WorkPlace) Then
+                            Else
+                                _WorkPlace_ArrayList.Add(_WorkPlace)
+                            End If
+                        End If
+                    End If
+                Next
+            Next
+
+            For Each _WorkPlace In _WorkPlace_ArrayList
+                _WorkPlace_Collection.Add(_WorkPlace)
+            Next
+
+            Return _WorkPlace_Collection
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    Private ReadOnly Property WorkSheetType_Collection As XPCollection(Of WorkSheetType)
+        Get
+            Dim _WorkSheetType_Collection_Back As New XPCollection(Of WorkSheetType)(Session, CriteriaOperator.Parse("Oid<>Oid"))
+            For Each _ActWorkSheetType As SubcontractorWorksheetType In Me.Subcontractor.SubcontractorWorksheetType
+                If Me.CustomersFrom IsNot Nothing Then
+                    If _ActWorkSheetType.WorkSheetType.CustomersFrom.Oid = Me.CustomersFrom.Oid Then
+                        _WorkSheetType_Collection_Back.Add(_ActWorkSheetType.WorkSheetType)
+                    End If
+                End If
+            Next
+            Return _WorkSheetType_Collection_Back
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property WorkSheet_Header_Collection As XPCollection(Of WorkSheet_Header)
+        Get
+            If Question IsNot Nothing AndAlso Subcontractor IsNot Nothing Then
+                Return New XPCollection(Of WorkSheet_Header)(Session, CriteriaOperator.Parse("Question.Oid=? AND SubcontractorCustomers.Oid=?", Question.Oid, Subcontractor.Customers.Oid))
+            Else
+                Return Nothing
+            End If
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/PopUp/ReopenWorkSheet_PopUp.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()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<NonPersistent()> _
+Public Class ReopenWorkSheet_PopUp
+    Inherits BaseObject
+
+    Private _WorkSheet_ReopenReason_Type As WorkSheet_ReopenReason_Type
+    Private _Description As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property WorkSheet_ReopenReason_Type As WorkSheet_ReopenReason_Type
+        Get
+            Return _WorkSheet_ReopenReason_Type
+        End Get
+        Set(value As WorkSheet_ReopenReason_Type)
+            SetPropertyValue("WorkSheet_ReopenReason_Type", _WorkSheet_ReopenReason_Type, 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
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/PopUp/WorkSheet_Header_AddHRPerson_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 WorkSheet_Header_AddHRPerson_PopUp
+    Inherits BaseObject
+
+    Private _HRPerson As HRPerson
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property HRPerson As HRPerson
+        Get
+            Return _HRPerson
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson", _HRPerson, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/PopUp/WorkSheetfromQuestion_PopUp.vb

@@ -0,0 +1,45 @@
+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 WorkSheetfromQuestion_PopUp
+    Inherits BaseObject
+
+    Private _WorkSheetType As WorkSheetType 'Munkalap tipusa
+    Private _CustomersFrom As CustomersFrom 'Saját cég
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")>
+    Property WorkSheetType() As WorkSheetType
+        Get
+            Return _WorkSheetType
+        End Get
+        Set(ByVal value As WorkSheetType)
+            SetPropertyValue("WorkSheetType", _WorkSheetType, value)
+        End Set
+    End Property
+    Property CustomersFrom() As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/PopUp/Worksheet_CostRows_ChangeGroup.vb

@@ -0,0 +1,85 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<NonPersistent()> _
+Public Class Worksheet_CostRows_ChangeGroup
+    Inherits BaseObject
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Change_RowGroup1 = False
+        Change_RowGroup2 = False
+        _Change_Controlling = False
+    End Sub
+    Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelezõ)
+    Private _Change_RowGroup1 As Boolean
+    Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelezõ)
+    Private _Change_RowGroup2 As Boolean
+    Private _Change_Controlling As Boolean
+    Private _Controlling As Controlling
+
+    Property RowGroup1 As String
+        Get
+            Return _RowGroup1
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup1", _RowGroup1, value)
+        End Set
+    End Property
+    Property Change_RowGroup1 As Boolean
+        Get
+            Return _Change_RowGroup1
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_RowGroup1", _Change_RowGroup1, value)
+        End Set
+    End Property
+    Property RowGroup2 As String
+        Get
+            Return _RowGroup2
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup2", _RowGroup2, value)
+        End Set
+    End Property
+    Property Change_RowGroup2 As Boolean
+        Get
+            Return _Change_RowGroup2
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_RowGroup2", _Change_RowGroup2, value)
+        End Set
+    End Property
+    Property Change_Controlling As Boolean
+        Get
+            Return _Change_Controlling
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_Controlling", _Change_Controlling, value)
+        End Set
+    End Property
+    Property Controlling As Controlling
+        Get
+            Return _Controlling
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling", _Controlling, value)
+        End Set
+    End Property
+
+
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/PopUp/Worksheet_Rows_ChangeGroup.vb

@@ -0,0 +1,63 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<NonPersistent()> _
+Public Class Worksheet_Rows_ChangeGroup
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Change_RowGroup1 = False
+        Change_RowGroup2 = False
+    End Sub
+    Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelezõ)
+    Private _Change_RowGroup1 As Boolean
+    Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelezõ)
+    Private _Change_RowGroup2 As Boolean
+
+    Property RowGroup1 As String
+        Get
+            Return _RowGroup1
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup1", _RowGroup1, value)
+        End Set
+    End Property
+    Property Change_RowGroup1 As Boolean
+        Get
+            Return _Change_RowGroup1
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_RowGroup1", _Change_RowGroup1, value)
+        End Set
+    End Property
+    Property RowGroup2 As String
+        Get
+            Return _RowGroup2
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup2", _RowGroup2, value)
+        End Set
+    End Property
+    Property Change_RowGroup2 As Boolean
+        Get
+            Return _Change_RowGroup2
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_RowGroup2", _Change_RowGroup2, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/WorkPlace.vb

@@ -0,0 +1,97 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem("BusinessStocks")> _
+<CreatableItem(False)> _
+Public Class WorkPlace
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom 'Saját cég
+    Private _Customers As Customers 'Partner
+    Private _ShortName As String 'Munkahely megnevezése
+    Private _Description As String 'Munkahely leírása
+    Private _Address As Address 'Munkahely címe
+    Private _CostPlace As CostPlace
+    Private _OperationalLogType As eOperationalLogType
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            Dim _CostPlace As CostPlace = New CostPlace(Session)
+            _CostPlace.Name = Me.ShortName
+            _CostPlace.Save()
+            Me.CostPlace = _CostPlace
+        End If
+    End Sub
+
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property Address As Address
+        Get
+            Return _Address
+        End Get
+        Set(value As Address)
+            SetPropertyValue("Address", _Address, value)
+        End Set
+    End Property
+    Property CostPlace As CostPlace
+        Get
+            Return _CostPlace
+        End Get
+        Set(value As CostPlace)
+            SetPropertyValue("CostPlace", _CostPlace, value)
+        End Set
+    End Property
+    Property OperationalLogType As eOperationalLogType
+        Get
+            Return _OperationalLogType
+        End Get
+        Set(value As eOperationalLogType)
+            SetPropertyValue("OperationalLogType", _OperationalLogType, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/WorkSheetTypeExcelParam.vb

@@ -0,0 +1,59 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports System.Reflection
+<DefaultClassOptions()> _
+<NavigationItem("BusinessStocks")> _
+Public Class WorkSheetTypeExcelParam
+    Inherits BaseObject
+
+    Private _XLSCellAdress As String
+    Private _PropertiesInfo As String
+    Private _Format As String
+    Private _WorkSheetType As WorkSheetType
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+
+    Property XLSCellAdress As String
+        Get
+            Return _XLSCellAdress
+        End Get
+        Set(value As String)
+            SetPropertyValue("XLSCellAdress", _XLSCellAdress, value)
+        End Set
+    End Property
+    Property PropertiesInfo As String
+        Get
+            Return _PropertiesInfo
+        End Get
+        Set(value As String)
+            SetPropertyValue("PropertiesInfo", _PropertiesInfo, value)
+        End Set
+    End Property
+    Property Format As String
+        Get
+            Return _Format
+        End Get
+        Set(value As String)
+            SetPropertyValue("Format", _Format, value)
+        End Set
+    End Property
+    <Association("WorkSheetType-WorkSheetTypeExcelParam", GetType(WorkSheetType))> _
+    Property WorkSheetType As WorkSheetType
+        Get
+            Return _WorkSheetType
+        End Get
+        Set(value As WorkSheetType)
+            SetPropertyValue("WorkSheetTypeExcelParam", _WorkSheetType, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/WorkSheet_Header_HRPerson.vb

@@ -0,0 +1,45 @@
+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 WorkSheet_Header_HRPerson
+    Inherits BaseObject
+
+    Private _WorkSheet_Header As WorkSheet_Header
+    Private _HRPerson As HRPerson
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("WorkSheet_Header-WorkSheet_Header_HRPerson", GetType(WorkSheet_Header))> _
+    Property WorkSheet_Header As WorkSheet_Header
+        Get
+            Return _WorkSheet_Header
+        End Get
+        Set(value As WorkSheet_Header)
+            SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value)
+        End Set
+    End Property
+    Property HRPerson As HRPerson
+        Get
+            Return _HRPerson
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson", _HRPerson, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/WorkSheet_ReopenReason.vb

@@ -0,0 +1,82 @@
+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 WorkSheet_ReopenReason
+    Inherits BaseObject
+
+    Private _WorkSheet_Header As WorkSheet_Header
+    Private _WorkSheet_ReopenReason_Type As WorkSheet_ReopenReason_Type
+    Private _ObjectCreated As Date ' Létrehozva
+    Private _UserCreated As User 'Létrehozó
+    Private _Description As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+       
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    <Association("WorkSheet_Header-WorkSheet_ReopenReason", GetType(WorkSheet_Header))> _
+    Property WorkSheet_Header As WorkSheet_Header
+        Get
+            Return _WorkSheet_Header
+        End Get
+        Set(ByVal value As WorkSheet_Header)
+            SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value)
+        End Set
+    End Property
+    Property WorkSheet_ReopenReason_Type As WorkSheet_ReopenReason_Type
+        Get
+            Return _WorkSheet_ReopenReason_Type
+        End Get
+        Set(value As WorkSheet_ReopenReason_Type)
+            SetPropertyValue("WorkSheet_ReopenReason_Type", _WorkSheet_ReopenReason_Type, 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
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/WorkSheet_ReopenReason_Type.vb

@@ -0,0 +1,44 @@
+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("BusinessStocks")> _
+Public Class WorkSheet_ReopenReason_Type
+    Inherits BaseObject
+
+    Private _ShortName As String
+    Private _Description As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/WorkSheet_VC.Designer.vb

@@ -0,0 +1,346 @@
+Partial Class WorkSheet_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.aOpenWorkSheet_Subcontractor = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCloseWorkSheet_Subcontractor = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aToTableWSR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTableWSR_D = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateWorksheetCostRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aRefreshWorksheetCostRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateInvoiceFromWorksheetCost = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aReOpenWorksheetHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aOpenSubcontractorInvoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aOpenWorkSheetFile = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aPrintWorkSheet = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aWorkSheet_Rows_ChangeRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aWorkSheet_CostRows_ChangeRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCloseWorkSheet = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aReopenWorkSheet = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aSetReadyToCloseWorkSheet = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAddHRPerson_WorkSheet_Header = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aWorkSheet_InsertRecipe = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aOpenWorkSheet_Subcontractor
+        '
+        Me.aOpenWorkSheet_Subcontractor.AcceptButtonCaption = Nothing
+        Me.aOpenWorkSheet_Subcontractor.CancelButtonCaption = Nothing
+        Me.aOpenWorkSheet_Subcontractor.Caption = "aOpenWorkSheet_Subcontractor"
+        Me.aOpenWorkSheet_Subcontractor.ConfirmationMessage = Nothing
+        Me.aOpenWorkSheet_Subcontractor.Id = "aOpenWorkSheet_Subcontractor"
+        Me.aOpenWorkSheet_Subcontractor.ImageName = Nothing
+        Me.aOpenWorkSheet_Subcontractor.Shortcut = Nothing
+        Me.aOpenWorkSheet_Subcontractor.Tag = Nothing
+        Me.aOpenWorkSheet_Subcontractor.TargetObjectsCriteria = Nothing
+        Me.aOpenWorkSheet_Subcontractor.TargetViewId = Nothing
+        Me.aOpenWorkSheet_Subcontractor.ToolTip = Nothing
+        Me.aOpenWorkSheet_Subcontractor.TypeOfView = Nothing
+        '
+        'aCloseWorkSheet_Subcontractor
+        '
+        Me.aCloseWorkSheet_Subcontractor.AcceptButtonCaption = Nothing
+        Me.aCloseWorkSheet_Subcontractor.CancelButtonCaption = Nothing
+        Me.aCloseWorkSheet_Subcontractor.Caption = "aCloseWorkSheet_Subcontractor"
+        Me.aCloseWorkSheet_Subcontractor.ConfirmationMessage = Nothing
+        Me.aCloseWorkSheet_Subcontractor.Id = "aCloseWorkSheet_Subcontractor"
+        Me.aCloseWorkSheet_Subcontractor.ImageName = Nothing
+        Me.aCloseWorkSheet_Subcontractor.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCloseWorkSheet_Subcontractor.Shortcut = Nothing
+        Me.aCloseWorkSheet_Subcontractor.Tag = Nothing
+        Me.aCloseWorkSheet_Subcontractor.TargetObjectsCriteria = "WorkSheetState=0"
+        Me.aCloseWorkSheet_Subcontractor.TargetViewId = Nothing
+        Me.aCloseWorkSheet_Subcontractor.ToolTip = Nothing
+        Me.aCloseWorkSheet_Subcontractor.TypeOfView = Nothing
+        '
+        'aToTableWSR
+        '
+        Me.aToTableWSR.Caption = "aTo Table WSR"
+        Me.aToTableWSR.Category = "aToTableWSR"
+        Me.aToTableWSR.ConfirmationMessage = Nothing
+        Me.aToTableWSR.Id = "aToTableWSR"
+        Me.aToTableWSR.ImageName = Nothing
+        Me.aToTableWSR.Shortcut = Nothing
+        Me.aToTableWSR.Tag = Nothing
+        Me.aToTableWSR.TargetObjectsCriteria = Nothing
+        Me.aToTableWSR.TargetViewId = Nothing
+        Me.aToTableWSR.ToolTip = Nothing
+        Me.aToTableWSR.TypeOfView = Nothing
+        '
+        'aToTableWSR_D
+        '
+        Me.aToTableWSR_D.Caption = "aToTableWSR_D"
+        Me.aToTableWSR_D.Category = "aToTableWSR_D"
+        Me.aToTableWSR_D.ConfirmationMessage = Nothing
+        Me.aToTableWSR_D.Id = "aToTableWSR_D"
+        Me.aToTableWSR_D.ImageName = Nothing
+        Me.aToTableWSR_D.Shortcut = Nothing
+        Me.aToTableWSR_D.Tag = Nothing
+        Me.aToTableWSR_D.TargetObjectsCriteria = Nothing
+        Me.aToTableWSR_D.TargetViewId = Nothing
+        Me.aToTableWSR_D.ToolTip = Nothing
+        Me.aToTableWSR_D.TypeOfView = Nothing
+        '
+        'aCreateWorksheetCostRows
+        '
+        Me.aCreateWorksheetCostRows.Caption = "aCreate Worksheet Cost Rows"
+        Me.aCreateWorksheetCostRows.Category = "aCreateWorksheetCostRows"
+        Me.aCreateWorksheetCostRows.ConfirmationMessage = "Do you want to execute command?"
+        Me.aCreateWorksheetCostRows.Id = "aCreateWorksheetCostRows"
+        Me.aCreateWorksheetCostRows.ImageName = Nothing
+        Me.aCreateWorksheetCostRows.Shortcut = Nothing
+        Me.aCreateWorksheetCostRows.Tag = Nothing
+        Me.aCreateWorksheetCostRows.TargetObjectsCriteria = Nothing
+        Me.aCreateWorksheetCostRows.TargetViewId = Nothing
+        Me.aCreateWorksheetCostRows.ToolTip = Nothing
+        Me.aCreateWorksheetCostRows.TypeOfView = Nothing
+        '
+        'aRefreshWorksheetCostRows
+        '
+        Me.aRefreshWorksheetCostRows.Caption = "aRefresh Worksheet Cost Rows"
+        Me.aRefreshWorksheetCostRows.Category = "aRefreshWorksheetCostRows"
+        Me.aRefreshWorksheetCostRows.ConfirmationMessage = "Do you want to execute command?"
+        Me.aRefreshWorksheetCostRows.Id = "aRefreshWorksheetCostRows"
+        Me.aRefreshWorksheetCostRows.ImageName = Nothing
+        Me.aRefreshWorksheetCostRows.Shortcut = Nothing
+        Me.aRefreshWorksheetCostRows.Tag = Nothing
+        Me.aRefreshWorksheetCostRows.TargetObjectsCriteria = Nothing
+        Me.aRefreshWorksheetCostRows.TargetViewId = Nothing
+        Me.aRefreshWorksheetCostRows.ToolTip = Nothing
+        Me.aRefreshWorksheetCostRows.TypeOfView = Nothing
+        '
+        'aCreateInvoiceFromWorksheetCost
+        '
+        Me.aCreateInvoiceFromWorksheetCost.AcceptButtonCaption = Nothing
+        Me.aCreateInvoiceFromWorksheetCost.CancelButtonCaption = Nothing
+        Me.aCreateInvoiceFromWorksheetCost.Caption = "aCreate Invoice From Worksheet Cost"
+        Me.aCreateInvoiceFromWorksheetCost.Category = "aCreateInvoiceFromWorksheetCost"
+        Me.aCreateInvoiceFromWorksheetCost.ConfirmationMessage = Nothing
+        Me.aCreateInvoiceFromWorksheetCost.Id = "aCreateInvoiceFromWorksheetCost"
+        Me.aCreateInvoiceFromWorksheetCost.ImageName = Nothing
+        Me.aCreateInvoiceFromWorksheetCost.Shortcut = Nothing
+        Me.aCreateInvoiceFromWorksheetCost.Tag = Nothing
+        Me.aCreateInvoiceFromWorksheetCost.TargetObjectsCriteria = Nothing
+        Me.aCreateInvoiceFromWorksheetCost.TargetViewId = Nothing
+        Me.aCreateInvoiceFromWorksheetCost.ToolTip = Nothing
+        Me.aCreateInvoiceFromWorksheetCost.TypeOfView = Nothing
+        '
+        'aReOpenWorksheetHeader
+        '
+        Me.aReOpenWorksheetHeader.Caption = "aReOpenWorksheetHeader"
+        Me.aReOpenWorksheetHeader.ConfirmationMessage = Nothing
+        Me.aReOpenWorksheetHeader.Id = "aReOpenWorksheetHeader"
+        Me.aReOpenWorksheetHeader.ImageName = Nothing
+        Me.aReOpenWorksheetHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aReOpenWorksheetHeader.Shortcut = Nothing
+        Me.aReOpenWorksheetHeader.Tag = Nothing
+        Me.aReOpenWorksheetHeader.TargetObjectsCriteria = Nothing
+        Me.aReOpenWorksheetHeader.TargetViewId = Nothing
+        Me.aReOpenWorksheetHeader.ToolTip = Nothing
+        Me.aReOpenWorksheetHeader.TypeOfView = Nothing
+        '
+        'aOpenSubcontractorInvoice
+        '
+        Me.aOpenSubcontractorInvoice.Caption = "aOpenSubcontractorInvoice"
+        Me.aOpenSubcontractorInvoice.ConfirmationMessage = Nothing
+        Me.aOpenSubcontractorInvoice.Id = "aOpenSubcontractorInvoice"
+        Me.aOpenSubcontractorInvoice.ImageName = Nothing
+        Me.aOpenSubcontractorInvoice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aOpenSubcontractorInvoice.Shortcut = Nothing
+        Me.aOpenSubcontractorInvoice.Tag = Nothing
+        Me.aOpenSubcontractorInvoice.TargetObjectsCriteria = Nothing
+        Me.aOpenSubcontractorInvoice.TargetViewId = Nothing
+        Me.aOpenSubcontractorInvoice.ToolTip = Nothing
+        Me.aOpenSubcontractorInvoice.TypeOfView = Nothing
+        '
+        'aOpenWorkSheetFile
+        '
+        Me.aOpenWorkSheetFile.Caption = "aOpenWorkSheetFile"
+        Me.aOpenWorkSheetFile.ConfirmationMessage = Nothing
+        Me.aOpenWorkSheetFile.Id = "aOpenWorkSheetFile"
+        Me.aOpenWorkSheetFile.ImageName = Nothing
+        Me.aOpenWorkSheetFile.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aOpenWorkSheetFile.Shortcut = Nothing
+        Me.aOpenWorkSheetFile.Tag = Nothing
+        Me.aOpenWorkSheetFile.TargetObjectsCriteria = Nothing
+        Me.aOpenWorkSheetFile.TargetViewId = Nothing
+        Me.aOpenWorkSheetFile.ToolTip = Nothing
+        Me.aOpenWorkSheetFile.TypeOfView = Nothing
+        '
+        'aPrintWorkSheet
+        '
+        Me.aPrintWorkSheet.Caption = "Print Work Sheet"
+        Me.aPrintWorkSheet.Category = ""
+        Me.aPrintWorkSheet.ConfirmationMessage = Nothing
+        Me.aPrintWorkSheet.Id = "aPrintWorkSheet"
+        Me.aPrintWorkSheet.ImageName = Nothing
+        Me.aPrintWorkSheet.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aPrintWorkSheet.Shortcut = Nothing
+        Me.aPrintWorkSheet.Tag = Nothing
+        Me.aPrintWorkSheet.TargetObjectsCriteria = Nothing
+        Me.aPrintWorkSheet.TargetObjectType = GetType(Nuvolar.[Module].WorkSheet_Header)
+        Me.aPrintWorkSheet.TargetViewId = Nothing
+        Me.aPrintWorkSheet.ToolTip = Nothing
+        Me.aPrintWorkSheet.TypeOfView = Nothing
+        '
+        'aWorkSheet_Rows_ChangeRows
+        '
+        Me.aWorkSheet_Rows_ChangeRows.AcceptButtonCaption = Nothing
+        Me.aWorkSheet_Rows_ChangeRows.CancelButtonCaption = Nothing
+        Me.aWorkSheet_Rows_ChangeRows.Caption = "Change data in selected rows"
+        Me.aWorkSheet_Rows_ChangeRows.ConfirmationMessage = Nothing
+        Me.aWorkSheet_Rows_ChangeRows.Id = "aWorkSheet_Rows_ChangeRows"
+        Me.aWorkSheet_Rows_ChangeRows.ImageName = "Action_EditModel"
+        Me.aWorkSheet_Rows_ChangeRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aWorkSheet_Rows_ChangeRows.Shortcut = Nothing
+        Me.aWorkSheet_Rows_ChangeRows.Tag = Nothing
+        Me.aWorkSheet_Rows_ChangeRows.TargetObjectsCriteria = Nothing
+        Me.aWorkSheet_Rows_ChangeRows.TargetObjectType = GetType(Nuvolar.[Module].WorkSheet_Rows)
+        Me.aWorkSheet_Rows_ChangeRows.TargetViewId = Nothing
+        Me.aWorkSheet_Rows_ChangeRows.ToolTip = Nothing
+        Me.aWorkSheet_Rows_ChangeRows.TypeOfView = Nothing
+        '
+        'aWorkSheet_CostRows_ChangeRows
+        '
+        Me.aWorkSheet_CostRows_ChangeRows.AcceptButtonCaption = Nothing
+        Me.aWorkSheet_CostRows_ChangeRows.CancelButtonCaption = Nothing
+        Me.aWorkSheet_CostRows_ChangeRows.Caption = "Change data in selected rows"
+        Me.aWorkSheet_CostRows_ChangeRows.ConfirmationMessage = Nothing
+        Me.aWorkSheet_CostRows_ChangeRows.Id = "aWorkSheet_CostRows_ChangeRows"
+        Me.aWorkSheet_CostRows_ChangeRows.ImageName = "Action_EditModel"
+        Me.aWorkSheet_CostRows_ChangeRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aWorkSheet_CostRows_ChangeRows.Shortcut = Nothing
+        Me.aWorkSheet_CostRows_ChangeRows.Tag = Nothing
+        Me.aWorkSheet_CostRows_ChangeRows.TargetObjectsCriteria = Nothing
+        Me.aWorkSheet_CostRows_ChangeRows.TargetObjectType = GetType(Nuvolar.[Module].Worksheet_CostRows)
+        Me.aWorkSheet_CostRows_ChangeRows.TargetViewId = Nothing
+        Me.aWorkSheet_CostRows_ChangeRows.ToolTip = Nothing
+        Me.aWorkSheet_CostRows_ChangeRows.TypeOfView = Nothing
+        '
+        'aCloseWorkSheet
+        '
+        Me.aCloseWorkSheet.Caption = "Close Work Sheet"
+        Me.aCloseWorkSheet.Category = "aCloseWorkSheet"
+        Me.aCloseWorkSheet.ConfirmationMessage = Nothing
+        Me.aCloseWorkSheet.Id = "aCloseWorkSheet"
+        Me.aCloseWorkSheet.ImageName = Nothing
+        Me.aCloseWorkSheet.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCloseWorkSheet.Shortcut = Nothing
+        Me.aCloseWorkSheet.Tag = Nothing
+        Me.aCloseWorkSheet.TargetObjectsCriteria = Nothing
+        Me.aCloseWorkSheet.TargetObjectType = GetType(Nuvolar.[Module].WorkSheet_Header)
+        Me.aCloseWorkSheet.TargetViewId = Nothing
+        Me.aCloseWorkSheet.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aCloseWorkSheet.ToolTip = Nothing
+        Me.aCloseWorkSheet.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aReopenWorkSheet
+        '
+        Me.aReopenWorkSheet.AcceptButtonCaption = Nothing
+        Me.aReopenWorkSheet.CancelButtonCaption = Nothing
+        Me.aReopenWorkSheet.Caption = "Reopen Work Sheet"
+        Me.aReopenWorkSheet.ConfirmationMessage = Nothing
+        Me.aReopenWorkSheet.Id = "aReopenWorkSheet"
+        Me.aReopenWorkSheet.ImageName = Nothing
+        Me.aReopenWorkSheet.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aReopenWorkSheet.Shortcut = Nothing
+        Me.aReopenWorkSheet.Tag = Nothing
+        Me.aReopenWorkSheet.TargetObjectsCriteria = Nothing
+        Me.aReopenWorkSheet.TargetObjectType = GetType(Nuvolar.[Module].WorkSheet_Header)
+        Me.aReopenWorkSheet.TargetViewId = Nothing
+        Me.aReopenWorkSheet.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aReopenWorkSheet.ToolTip = Nothing
+        Me.aReopenWorkSheet.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aSetReadyToCloseWorkSheet
+        '
+        Me.aSetReadyToCloseWorkSheet.Caption = "Set Ready To Close Work Sheet"
+        Me.aSetReadyToCloseWorkSheet.ConfirmationMessage = Nothing
+        Me.aSetReadyToCloseWorkSheet.Id = "aSetReadyToCloseWorkSheet"
+        Me.aSetReadyToCloseWorkSheet.ImageName = Nothing
+        Me.aSetReadyToCloseWorkSheet.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aSetReadyToCloseWorkSheet.Shortcut = Nothing
+        Me.aSetReadyToCloseWorkSheet.Tag = Nothing
+        Me.aSetReadyToCloseWorkSheet.TargetObjectsCriteria = Nothing
+        Me.aSetReadyToCloseWorkSheet.TargetObjectType = GetType(Nuvolar.[Module].WorkSheet_Header)
+        Me.aSetReadyToCloseWorkSheet.TargetViewId = Nothing
+        Me.aSetReadyToCloseWorkSheet.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aSetReadyToCloseWorkSheet.ToolTip = Nothing
+        Me.aSetReadyToCloseWorkSheet.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aAddHRPerson_WorkSheet_Header
+        '
+        Me.aAddHRPerson_WorkSheet_Header.AcceptButtonCaption = Nothing
+        Me.aAddHRPerson_WorkSheet_Header.CancelButtonCaption = Nothing
+        Me.aAddHRPerson_WorkSheet_Header.Caption = "aAddHRPerson_WorkSheet_Header"
+        Me.aAddHRPerson_WorkSheet_Header.Category = "ObjectsCreation"
+        Me.aAddHRPerson_WorkSheet_Header.ConfirmationMessage = Nothing
+        Me.aAddHRPerson_WorkSheet_Header.Id = "aAddHRPerson_WorkSheet_Header"
+        Me.aAddHRPerson_WorkSheet_Header.ImageName = Nothing
+        Me.aAddHRPerson_WorkSheet_Header.Shortcut = Nothing
+        Me.aAddHRPerson_WorkSheet_Header.Tag = Nothing
+        Me.aAddHRPerson_WorkSheet_Header.TargetObjectsCriteria = Nothing
+        Me.aAddHRPerson_WorkSheet_Header.TargetViewId = Nothing
+        Me.aAddHRPerson_WorkSheet_Header.ToolTip = Nothing
+        Me.aAddHRPerson_WorkSheet_Header.TypeOfView = Nothing
+        '
+        'aWorkSheet_InsertRecipe
+        '
+        Me.aWorkSheet_InsertRecipe.Caption = "aWorkSheet_InsertRecipe"
+        Me.aWorkSheet_InsertRecipe.Category = ""
+        Me.aWorkSheet_InsertRecipe.ConfirmationMessage = Nothing
+        Me.aWorkSheet_InsertRecipe.Id = "aWorkSheet_InsertRecipe"
+        Me.aWorkSheet_InsertRecipe.ImageName = Nothing
+        Me.aWorkSheet_InsertRecipe.Shortcut = Nothing
+        Me.aWorkSheet_InsertRecipe.Tag = Nothing
+        Me.aWorkSheet_InsertRecipe.TargetObjectsCriteria = Nothing
+        Me.aWorkSheet_InsertRecipe.TargetObjectType = GetType(Nuvolar.[Module].WorkSheet_Rows)
+        Me.aWorkSheet_InsertRecipe.TargetViewId = Nothing
+        Me.aWorkSheet_InsertRecipe.ToolTip = Nothing
+        Me.aWorkSheet_InsertRecipe.TypeOfView = Nothing
+
+    End Sub
+    Protected WithEvents aOpenWorkSheet_Subcontractor As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Protected WithEvents aCloseWorkSheet_Subcontractor As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aToTableWSR As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTableWSR_D As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateWorksheetCostRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aRefreshWorksheetCostRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateInvoiceFromWorksheetCost As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aReOpenWorksheetHeader As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aOpenSubcontractorInvoice As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aOpenWorkSheetFile As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aPrintWorkSheet As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aWorkSheet_Rows_ChangeRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aWorkSheet_CostRows_ChangeRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCloseWorkSheet As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aReopenWorkSheet As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aSetReadyToCloseWorkSheet As DevExpress.ExpressApp.Actions.SimpleAction
+    Private WithEvents aAddHRPerson_WorkSheet_Header As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aWorkSheet_InsertRecipe As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/WorkSheet_VC.resx

@@ -0,0 +1,177 @@
+<?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="aOpenWorkSheet_Subcontractor.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aCloseWorkSheet_Subcontractor.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aToTableWSR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aToTableWSR_D.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 446</value>
+  </metadata>
+  <metadata name="aCreateWorksheetCostRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aRefreshWorksheetCostRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 641</value>
+  </metadata>
+  <metadata name="aCreateInvoiceFromWorksheetCost.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 602</value>
+  </metadata>
+  <metadata name="aReOpenWorksheetHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 563</value>
+  </metadata>
+  <metadata name="aOpenSubcontractorInvoice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 524</value>
+  </metadata>
+  <metadata name="aOpenWorkSheetFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 485</value>
+  </metadata>
+  <metadata name="aPrintWorkSheet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 368</value>
+  </metadata>
+  <metadata name="aWorkSheet_Rows_ChangeRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 407</value>
+  </metadata>
+  <metadata name="aWorkSheet_CostRows_ChangeRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 329</value>
+  </metadata>
+  <metadata name="aCloseWorkSheet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 290</value>
+  </metadata>
+  <metadata name="aReopenWorkSheet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aSetReadyToCloseWorkSheet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aAddHRPerson_WorkSheet_Header.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1041, 17</value>
+  </metadata>
+  <metadata name="aWorkSheet_InsertRecipe.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>478, 199</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/Worksheet/WorkState.vb

@@ -0,0 +1,54 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class WorkState 'Munkafolyamatokat tartalmazó szabad bázis
+    Inherits BaseObject
+    Private _ShortName As String 'Megnevezés
+    Private _Description As String 'Leírás
+    Private _IsOperationalLog As Boolean
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        IsOperationalLog = False
+    End Sub
+
+    <RuleRequiredField("WorkState - ShortName", DefaultContexts.Save)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    <RuleUniqueValue("WorkState - IsOperationalLog", DefaultContexts.Save)> _
+    Property IsOperationalLog As Boolean
+        Get
+            Return _IsOperationalLog
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsOperationalLog", _IsOperationalLog, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/WorksheetType.vb

@@ -0,0 +1,150 @@
+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 eWorkType
+    eGuarantee = 0 'Garanciális
+    ePayable = 1 'Fizetős
+    eMixed = 2 ' Vegyes
+End Enum
+Public Enum eWorkRowType
+    eServices = 0 'Szolgáltatástörzsből bevitt adat
+    eManual = 1 'Kézzel felvitt tétel
+End Enum
+Public Enum eWorkSheetState
+    eOpened = 0 'Nyitott
+    <ImageName("lock")> eClosed = 1 'Lezárt
+    eReopened = 2 'Újranyitott
+    <ImageName("check")> eReadyforClose = 3 'Lezárásra kész, munka elvégezve
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("BusinessStocks")> _
+Public Class WorkSheetType
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom
+    Private _ShortName As String
+    Private _Description As String
+    Private _NumberGenerator As NumberGenerator
+    Private _ExcelProperty As String
+    Private _ExcelFile As FileData
+    Private _ReportData As ReportData
+    Private _Rule5DMatrix As Rule5DMatrix 'Jelölő kitöltés kötelezősítés
+    Private _RegistryType As RegistryType
+    Private _IsOperationalLog As Boolean
+    Private _OperationalLogDescription As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        IsOperationalLog = False
+    End Sub
+    <RuleRequiredField("WorkSheetType-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("WorkSheetType-ShortName", DefaultContexts.Save)> _
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property NumberGenerator() As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(ByVal value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property ExcelProperty As String
+        Get
+            Return _ExcelProperty
+        End Get
+        Set(value As String)
+            SetPropertyValue("ExcelProperty", _ExcelProperty, value)
+        End Set
+    End Property
+    Property ExcelFile As FileData
+        Get
+            Return _ExcelFile
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("ExcelFile", _ExcelFile, 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 Rule5DMatrix As Rule5DMatrix
+        Get
+            Return _Rule5DMatrix
+        End Get
+        Set(value As Rule5DMatrix)
+            SetPropertyValue("Rule5DMatrix", _Rule5DMatrix, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom='@This.CustomersFrom' and RegistryMainType='eOther'")>
+    Property RegistryType As RegistryType
+        Get
+            Return _RegistryType
+        End Get
+        Set(value As RegistryType)
+            SetPropertyValue("RegistryType", _RegistryType, value)
+        End Set
+    End Property
+    Property IsOperationalLog As Boolean
+        Get
+            Return _IsOperationalLog
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsOperationalLog", _IsOperationalLog, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property OperationalLogDescription As String
+        Get
+            Return _OperationalLogDescription
+        End Get
+        Set(value As String)
+            SetPropertyValue("OperationalLogDescription", _OperationalLogDescription, value)
+        End Set
+    End Property
+    '-------ReadOnly------------
+    <VisibleInListView(False)> _
+    <Association("WorkSheetType-WorkSheetTypeExcelParam", GetType(WorkSheetTypeExcelParam))> _
+    ReadOnly Property WorkSheetTypeExcelParam As XPCollection(Of WorkSheetTypeExcelParam)
+        Get
+            Return GetCollection(Of WorkSheetTypeExcelParam)("WorkSheetTypeExcelParam")
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/Worksheet_CostRows.vb

@@ -0,0 +1,242 @@
+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 Worksheet_CostRows
+    Inherits BaseObject
+    Private _WorkSheet_Header As WorkSheet_Header
+    Private _WorkSheet_Rows As WorkSheet_Rows
+    Private _StorageOutRows As StorageOutRows
+    Private _InvoiceRows As InvoiceRows
+    Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelezõ)
+    Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelezõ)
+    Private _ShortName As String
+    Private _Description As String
+    Private _QTT As Double
+    Private _Units As Units
+    Private _RowIndex As Long
+
+    Private _FinalPriceHUF_Out As Double '1 egységre vonatkozó kedvezménnyel csökkentett eladási ár 
+    Private _FinalPriceDEV_Out As Double
+    Private _SumPriceHUF_Out As Double 'Mennyiséggel felszrozott egységre vonatkozó kedvezménnyel csökkentett eladási ár 
+    Private _SumPriceDEV_Out As Double
+
+    Private _FinalPriceHUF_In As Double '1 egységre vonatkozó kedvezménnyel csökkentett bekerülési ár 
+    Private _FinalPriceDEV_In As Double
+    Private _SumPriceHUF_In As Double
+    Private _SumPriceDEV_In As Double
+
+    Private _DifferentPercent As Double 'Árrés ?% a az eladási árnak - haszonkulcs
+    Private _DifferentHUF As Double 'SumPriceHUF_Out-SumPriceHUF_In
+    Private _DifferentDEV As Double
+
+    '----------Jelölõ adat---------
+    Private _Controlling As Controlling
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("WorkSheet_Header-Worksheet_CostRows", GetType(WorkSheet_Header))> _
+    Property WorkSheet_Header As WorkSheet_Header
+        Get
+            Return _WorkSheet_Header
+        End Get
+        Set(value As WorkSheet_Header)
+            SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value)
+        End Set
+    End Property
+    Property WorkSheet_Rows As WorkSheet_Rows
+        Get
+            Return _WorkSheet_Rows
+        End Get
+        Set(value As WorkSheet_Rows)
+            SetPropertyValue("WorkSheet_Rows", _WorkSheet_Rows, value)
+        End Set
+    End Property
+    Property StorageOutRows As StorageOutRows
+        Get
+            Return _StorageOutRows
+        End Get
+        Set(value As StorageOutRows)
+            SetPropertyValue("StorageOutRows", _StorageOutRows, value)
+        End Set
+    End Property
+    Property InvoiceRows As InvoiceRows
+        Get
+            Return _InvoiceRows
+        End Get
+        Set(value As InvoiceRows)
+            SetPropertyValue("InvoiceRows", _InvoiceRows, value)
+        End Set
+    End Property
+    Property RowGroup1 As String
+        Get
+            Return _RowGroup1
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup1", _RowGroup1, value)
+        End Set
+    End Property
+    Property RowGroup2 As String
+        Get
+            Return _RowGroup2
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup2", _RowGroup2, value)
+        End Set
+    End Property
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property QTT As Double
+        Get
+            Return _QTT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property Units As Units
+        Get
+            Return _Units
+        End Get
+        Set(value As Units)
+            SetPropertyValue("Units", _Units, 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 FinalPriceHUF_Out As Double
+        Get
+            Return _FinalPriceHUF_Out
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FinalPriceHUF_Out", _FinalPriceHUF_Out, value)
+        End Set
+    End Property
+    Property FinalPriceDEV_Out As Double
+        Get
+            Return _FinalPriceDEV_Out
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FinalPriceDEV_Out", _FinalPriceDEV_Out, value)
+        End Set
+    End Property
+    Property SumPriceHUF_Out As Double
+        Get
+            Return _SumPriceHUF_Out
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceHUF_Out", _SumPriceHUF_Out, value)
+        End Set
+    End Property
+    Property SumPriceDEV_Out As Double
+        Get
+            Return _SumPriceDEV_Out
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceDEV_Out", _SumPriceDEV_Out, value)
+        End Set
+    End Property
+
+    Property FinalPriceHUF_In As Double
+        Get
+            Return _FinalPriceHUF_In
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FinalPriceHUF_In", _FinalPriceHUF_In, value)
+        End Set
+    End Property
+    Property FinalPriceDEV_In As Double
+        Get
+            Return _FinalPriceDEV_In
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FinalPriceDEV_In", _FinalPriceDEV_In, value)
+        End Set
+    End Property
+    Property SumPriceHUF_In As Double
+        Get
+            Return _SumPriceHUF_In
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceHUF_In", _SumPriceHUF_In, value)
+        End Set
+    End Property
+    Property SumPriceDEV_In As Double
+        Get
+            Return _SumPriceDEV_In
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceDEV_In", _SumPriceDEV_In, value)
+        End Set
+    End Property
+
+    Property DifferentPercent As Double
+        Get
+            Return _DifferentPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DifferentPercent", _DifferentPercent, value)
+        End Set
+    End Property
+    Property DifferentHUF As Double
+        Get
+            Return _DifferentHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DifferentHUF", _DifferentHUF, value)
+        End Set
+    End Property
+    Property DifferentDEV As Double
+        Get
+            Return _DifferentDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DifferentDEV", _DifferentDEV, value)
+        End Set
+    End Property
+
+    '----------Jelölõ adat---------
+    Property Controlling As Controlling
+        Get
+            Return _Controlling
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling", _Controlling, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/Worksheet_Documets.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 Worksheet_Documets
+    Inherits BaseObject
+    Private _WorkSheet_Header As WorkSheet_Header
+    Private _DocumentFileData As DocumentFileData
+    Private _ObjectCreated As Date ' Létrehozva
+    Private _UserCreated As User 'Létrehozó
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    <Association("Worksheet_Documets-WorkSheet_Header", GetType(WorkSheet_Header))> _
+    Property WorkSheet_Header As WorkSheet_Header
+        Get
+            Return _WorkSheet_Header
+        End Get
+        Set(value As WorkSheet_Header)
+            SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value)
+        End Set
+    End Property
+    Property DocumentFileData As DocumentFileData
+        Get
+            Return _DocumentFileData
+        End Get
+        Set(value As DocumentFileData)
+            SetPropertyValue("DocumentFileData", _DocumentFileData, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/Worksheet_Header.vb

@@ -0,0 +1,636 @@
+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
+Imports System.Net.Mail
+
+Public Enum eInvoiceState
+    eNoState = 0
+    eInvoiceReadyState = 1 'Számlázható
+    eNOInvoiceState = 2 ' NEM számlázható
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("BusinessTransactions")> _
+<Appearance("Disable WorkSheet_Header-ObjectCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("Disable WorkSheet_Header-UserCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
+<Appearance("Disable WorkSheet_Header-DocumentNumber", AppearanceItemType.ViewItem, "1=1", TargetItems:="DocumentNumber", Enabled:=False)> _
+<Appearance("Disable WorkSheet_Header-WorkSheetState", AppearanceItemType.ViewItem, "1=1", TargetItems:="WorkSheetState", Enabled:=False)> _
+<Appearance("Disable WorkSheet_Header-CustomersFrom, when is not nothing", AppearanceItemType.ViewItem, "IsNull(CustomersFrom)=False", TargetItems:="CustomersFrom", Enabled:=False)> _
+<Appearance("Disable WorkSheet_Header-Customers, when is not nothing", AppearanceItemType.ViewItem, "IsNull(Customers)=False", TargetItems:="Customers", Enabled:=False)> _
+<Appearance("Disable WorkSheet_Header-WorkSheetType, when is not nothing", AppearanceItemType.ViewItem, "IsNull(WorkSheetType)=False", TargetItems:="WorkSheetType", Enabled:=False)> _
+<Appearance("Hide ExcelTab WorkSheet_Header", AppearanceItemType.LayoutItem, "IsNull(WorkSheetType) Or IsNull(DocumentNumber) Or IsNull(CustomersFrom) Or IsNull(Customers)", TargetItems:="ExcelTab", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide RowsTab WorkSheet_Header", AppearanceItemType.LayoutItem, "IsNull(WorkSheetType) Or IsNull(DocumentNumber) Or IsNull(CustomersFrom) Or IsNull(Customers)", TargetItems:="RowsTab", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide CostTab WorkSheet_Header", AppearanceItemType.LayoutItem, "IsNull(WorkSheetType) Or IsNull(DocumentNumber) Or IsNull(CustomersFrom) Or IsNull(Customers)", TargetItems:="CostTab", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide StorageOutTab WorkSheet_Header", AppearanceItemType.LayoutItem, "IsNull(WorkSheetType) Or IsNull(DocumentNumber) Or IsNull(CustomersFrom) Or IsNull(Customers)", TargetItems:="StorageOutTab", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide ReopenTab WorkSheet_Header", AppearanceItemType.LayoutItem, "IsNull(WorkSheetType) Or IsNull(DocumentNumber) Or IsNull(CustomersFrom) Or IsNull(Customers)", TargetItems:="ReopenTab", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable WorkSheet_Header-all prop, when WorkSheetState=eWorkSheetState.eClosed", AppearanceItemType.ViewItem, "WorkSheetState=1", TargetItems:="*", Enabled:=False)> _
+<Appearance("Hide WorkSheet_Header-row properties, when WorkRowType=0 ", AppearanceItemType.ViewItem, "row_WorkRowType=0", TargetItems:="row_Units;row_RowGroup1;row_RowGroup2;row_Description;row_ShortName", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide WorkSheet_Header-aToTableWSR", AppearanceItemType.Action, "WorkSheetState = 1", TargetItems:="aToTableWSR", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide WorkSheet_Header-aToTableWSR_D", AppearanceItemType.Action, "WorkSheetState = 1", TargetItems:="aToTableWSR_D", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide WorkSheet_Header-aCreateWorksheetCostRows", AppearanceItemType.Action, "WorkSheetState = 1", TargetItems:="aCreateWorksheetCostRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide WorkSheet_Header-aRefreshWorksheetCostRows", AppearanceItemType.Action, "WorkSheetState = 1", TargetItems:="aRefreshWorksheetCostRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide WorkSheet_Header-aCreateInvoiceFromWorksheetCost", AppearanceItemType.Action, "WorkSheetState = 1", TargetItems:="aCreateInvoiceFromWorksheetCost", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable WorkSheet_Header-row_Services, when WorkRowType=1 ", AppearanceItemType.ViewItem, "row_WorkRowType=1", TargetItems:="row_Services", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide WorkSheet_Header-DateClosed, when WorkSheetState<>1 ", AppearanceItemType.ViewItem, " WorkSheetState<>'eClosed'", TargetItems:="DateClosed", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("WorkSheet_Header-JobNumberObjects-Visible", AppearanceItemType.ViewItem, "WorkSheetType.Rule5DMatrix.VisibleJobNumberObjects=True", TargetItems:="JobNumberObjects", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("WorkSheet_Header-UniqueObjects-Visible", AppearanceItemType.ViewItem, "WorkSheetType.Rule5DMatrix.VisibleUniqueObjects=True", TargetItems:="UniqueObjects", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("WorkSheet_Header-CostPlace-Visible", AppearanceItemType.ViewItem, "WorkSheetType.Rule5DMatrix.VisibleCostPlace=True", TargetItems:="CostPlace", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("WorkSheet_Header-CostHolder-Visible", AppearanceItemType.ViewItem, "WorkSheetType.Rule5DMatrix.VisibleCostHolder=True", TargetItems:="CostHolder", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide WorkSheet_Header-all row properties, when WorkSheetState = 1", AppearanceItemType.ViewItem, "WorkSheetState = 1", TargetItems:="row_RowGroup1;row_RowGroup2;row_ShortName;row_Description;row_Quantity;row_Units;row_WorkType;row_WorkRowType;row_Services", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class WorkSheet_Header
+    Inherits BaseObject
+    Private _WorkSheetType As WorkSheetType 'Munkalap tipusa
+    Private _WorkSheetState As eWorkSheetState ' munkalap állapota
+    Private _WorkPlace As WorkPlace 'Munkahely
+    Private _WorkState As WorkState 'Munkafolyamat
+    Private _InvoiceState As eInvoiceState 'Számlázási állapot
+    Private _Question As Question ' Internetes hibabejelentés
+    Private _CustomersFrom As CustomersFrom 'Saját cég
+    Private _Customers As Customers ' Partner, akire a munkalapot nyitották
+    Private _Contacts As Contacts 'Kapcsolattartó
+    Private _CurrencyName As CurrencyName 'Pénznem
+    Private _DocumentNumber As String 'Munkalap száma
+    Private _DateCreated As Date 'Létrehozás dátuma
+    Private _DateExecution As Date 'Teljesítés dátuma
+    Private _ExcelProperty As String ' Excel
+    Private _ExcelFile As FileData 'Excel file
+    Private _ObjectCreated As Date ' Létrehozva
+    Private _UserCreated As User 'Létrehozó
+    Private _Recipe As Recipe 'Milyen recept alapján kell gyártani
+    Private _WorkSheetFile_Original As FileData 'Generált pdf, amit letölt az alvállalkozó
+    Private _WorkSheetFile As FileData 'Csatolt alvállalkozói munkalap
+    Private _SubcontractorInvoice As FileData 'Csatolt alvállalkozói számla
+    Private _IsSubcontractor As Boolean 'Alvállalkozóhoz tartozik-e?
+    Private _SubcontractorCustomers As Customers 'Alvállalkozó aki nyitotta
+    Private _Description As String 'Belső megjeygszés alvállalkozói lezáráshoz
+    Private _DateClosed As Date 'Lezárás dátuma
+
+    Private _WorkHour As Double 'Munkaóra amit megadhat, nem kötelező (WEB)
+    Private _WorkDescription As String 'Elvégzett munka leírása (nem kötelező WEB)
+    Private _WorkUsedMaterialDescription As String 'Felhasznált anyag leírása (nem kötelező WEB)
+    Private _WorkDescriptionOther As String 'Egyéb az alvállalkozó által megadott megjegyzés (nem kötelező WEB)
+    Private _WorkTravelKm As Long 'Mennyit utaztak (nem kötelező WEB)
+    Private _RegistryHeader As RegistryHeader 'Iktatáshoz kapcsolódó munkalap
+
+    '-- Jelölő adatok !!!
+    Private _JobNumberObjects As JobNumberObjects
+    Private _UniqueObjects As UniqueObjects
+    Private _CostPlace As CostPlace
+    Private _CostHolder As CostHolder
+
+    '-- Nonpersistent propertyk !!!
+    Private _row_RowGroup1 As String 'Csoportosító sor1
+    Private _row_RowGroup2 As String 'Csoportosító sor2
+    Private _row_ShortName As String 'Megnevezés
+    Private _row_Description As String 'Leírás
+    Private _row_Quantity As Double 'Mennyiség
+    Private _row_Units As Units 'Mennyiségi egység
+    Private _row_WorkType As eWorkType 'A sor milyen (Fizetős, garancia vagy vegyes)
+    Private _row_WorkRowType As eWorkRowType 'Az adott sor mit tartalmaz
+    Private _row_Services As Services 'Szolgáltatás törzsből
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.WorkSheetState = eWorkSheetState.eOpened
+        Me.CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If DocumentNumber = "" Then
+            DocumentNumber = Me.WorkSheetType.NumberGenerator.GetNewNumber(Me.WorkSheetType.NumberGenerator)
+        End If
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+
+            Try
+                Dim _WebParameters As WebParameters = Session.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1"))
+                If _WebParameters Is Nothing Then Throw New Exception("*Nincsnek e-mail paraméterek beállítva!")
+                If _WebParameters.SMTPHost Is Nothing Then Throw New Exception("*Nincs SMTP server beállítva!")
+                If _WebParameters.SMTPUserName = "" Then Throw New Exception("*Nincs felhasználói név beállítva!")
+                If _WebParameters.SMTPPort = 0 Then Throw New Exception("*Nincs SMTP port beállítva!")
+
+                Dim _MailMessage As New MailMessage
+                Dim _SmtpClient As SmtpClient = New SmtpClient(_WebParameters.SMTPHost)
+                _MailMessage.From = New MailAddress(_WebParameters.Email_SupportAdmin)
+                If Customers.Contacts.Count > 0 Then
+                    For Each _Contacts As Contacts In Customers.Contacts
+                        If Not String.IsNullOrEmpty(_Contacts.Email) Then _MailMessage.To.Add(_Contacts.Email)
+                    Next
+                ElseIf Not String.IsNullOrEmpty(Customers.Email) Then
+                    _MailMessage.To.Add(Customers.Email)
+                Else
+                    'Throw New Exception("*Nincs email cím beállítva!")
+                End If
+
+                _MailMessage.Subject = "Új munkalap készült"
+                _MailMessage.IsBodyHtml = True
+                _MailMessage.Body = String.Format("{0} számmal új munkalap készült az Ön(ök) részére.", DocumentNumber)
+
+                _SmtpClient.Port = _WebParameters.SMTPPort
+                _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword)
+                _SmtpClient.EnableSsl = _WebParameters.EnableSsl
+
+                _SmtpClient.Send(_MailMessage)
+
+                If UserCreated IsNot Nothing Then
+                    If Not String.IsNullOrEmpty(UserCreated.Email) Then
+                        _MailMessage.To.Clear()
+                        _MailMessage.To.Add(UserCreated.Email)
+                        _MailMessage.Body = String.Format("Ön {0} számmal új munkalapot hozott létre a(z) {1} ügyfél részére.", DocumentNumber, Customers.FullName)
+
+                        _SmtpClient.Send(_MailMessage)
+                    End If
+                End If
+            Catch ex As Exception
+                Dim sf As StackFrame = New StackFrame()
+                Dim _uow As New UnitOfWork(Session.DataLayer)
+                Dim _ErrorLog As New ErrorLog(_uow)
+                _ErrorLog.Description = ex.Message
+                _ErrorLog.SubName = TryCast(sf.GetMethod(), System.Reflection.MethodBase).Name
+                _uow.CommitTransaction()
+            End Try
+
+            '-------------IsOperationalLog-------------
+            If WorkSheetType.IsOperationalLog Then
+                Dim _OperationalLogParameters As OperationalLogParameters = Session.FindObject(Of OperationalLogParameters)(CriteriaOperator.Parse("WorkPlace=? AND CustomersFrom=?", WorkPlace, CustomersFrom))
+                If _OperationalLogParameters IsNot Nothing Then
+                    Dim _OperationalLog As New OperationalLog(Session)
+                    With _OperationalLog
+                        .CustomersFrom = CustomersFrom
+                        .Customers = Customers
+                        .OperationalLogParameters = _OperationalLogParameters
+                        .WorkState = WorkState
+                        .WorkPlace = WorkPlace
+                        .Description = String.Format(WorkSheetType.OperationalLogDescription, DocumentNumber, ObjectCreated.ToString, UserCreated.UserName)
+                    End With
+
+                    _OperationalLog.Save()
+                    ' Session.CommitTransaction()
+                End If
+            End If
+        End If
+    End Sub
+    Property WorkSheetState() As eWorkSheetState
+        Get
+            Return _WorkSheetState
+        End Get
+        Set(ByVal value As eWorkSheetState)
+            SetPropertyValue("WorkSheetState", _WorkSheetState, value)
+        End Set
+    End Property
+    <RuleRequiredField("WorkSheet_Header-WorkSheetType", DefaultContexts.Save)>
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")>
+    Property WorkSheetType() As WorkSheetType
+        Get
+            Return _WorkSheetType
+        End Get
+        Set(ByVal value As WorkSheetType)
+            SetPropertyValue("WorkSheetType", _WorkSheetType, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If Session.IsNewObject(Me) = True Then
+                    Me.ExcelProperty = value.ExcelProperty
+                    Me.ExcelFile = value.ExcelFile
+                End If
+            End If
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom='@This.CustomersFrom' and Customers='@This.Customers'")>
+    Property WorkPlace As WorkPlace
+        Get
+            Return _WorkPlace
+        End Get
+        Set(value As WorkPlace)
+            SetPropertyValue("WorkPlace", _WorkPlace, value)
+        End Set
+    End Property
+    Property WorkState As WorkState
+        Get
+            Return _WorkState
+        End Get
+        Set(value As WorkState)
+            SetPropertyValue("WorkState", _WorkState, value)
+        End Set
+    End Property
+    Property InvoiceState As eInvoiceState
+        Get
+            Return _InvoiceState
+        End Get
+        Set(value As eInvoiceState)
+            SetPropertyValue("InvoiceState", _InvoiceState, value)
+        End Set
+    End Property
+    Property Question() As Question
+        Get
+            Return _Question
+        End Get
+        Set(ByVal value As Question)
+            SetPropertyValue("Question", _Question, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)>
+    <RuleRequiredField("WorkSheet_Header-CustomersFrom", DefaultContexts.Save)>
+    Property CustomersFrom() As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("WorkSheet_Header-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
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    Property DocumentNumber() As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    Property DateCreated() As Date
+        Get
+            Return _DateCreated
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateCreated", _DateCreated, value)
+        End Set
+    End Property
+    Property DateExecution() As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    <Size(-1)>
+    <ImmediatePostData(True)>
+    Property ExcelProperty As String
+        Get
+            Return _ExcelProperty
+        End Get
+        Set(value As String)
+            SetPropertyValue("ExcelProperty", _ExcelProperty, value)
+        End Set
+    End Property
+    <DevExpress.Xpo.Size(SizeAttribute.Unlimited)>
+    Property ExcelFile As FileData
+        Get
+            Return _ExcelFile
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("ExcelFile", _ExcelFile, 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 Recipe As Recipe
+        Get
+            Return _Recipe
+        End Get
+        Set(value As Recipe)
+            SetPropertyValue("Recipe", _Recipe, value)
+        End Set
+    End Property
+    Property WorkSheetFile_Original As FileData
+        Get
+            Return _WorkSheetFile_Original
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("WorkSheetFile_Original", _WorkSheetFile_Original, value)
+        End Set
+    End Property
+    Property WorkSheetFile As FileData
+        Get
+            Return _WorkSheetFile
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("WorkSheetFile", _WorkSheetFile, value)
+        End Set
+    End Property
+    Property SubcontractorInvoice As FileData
+        Get
+            Return _SubcontractorInvoice
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("SubcontractorInvoice", _SubcontractorInvoice, value)
+        End Set
+    End Property
+    Property IsSubcontractor As Boolean
+        Get
+            Return _IsSubcontractor
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsSubcontractor", _IsSubcontractor, value)
+        End Set
+    End Property
+    Property SubcontractorCustomers As Customers
+        Get
+            Return _SubcontractorCustomers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("SubcontractorCustomers", _SubcontractorCustomers, value)
+        End Set
+    End Property
+    <Size(-1)>
+    <RuleRequiredField("WorkSheet_Header-Description", DefaultContexts.Save)>
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property DateClosed As Date
+        Get
+            Return _DateClosed
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateClosed", _DateClosed, value)
+        End Set
+    End Property
+
+    Property WorkHour As Double
+        Get
+            Return _WorkHour
+        End Get
+        Set(value As Double)
+            SetPropertyValue("WorkHour", _WorkHour, value)
+        End Set
+    End Property
+    <Size(-1)>
+    Property WorkDescription As String
+        Get
+            Return _WorkDescription
+        End Get
+        Set(value As String)
+            SetPropertyValue("WorkDescription", _WorkDescription, value)
+        End Set
+    End Property
+    <Size(-1)>
+    Property WorkUsedMaterialDescription As String
+        Get
+            Return _WorkUsedMaterialDescription
+        End Get
+        Set(value As String)
+            SetPropertyValue("WorkUsedMaterialDescription", _WorkUsedMaterialDescription, value)
+        End Set
+    End Property
+    <Size(-1)>
+    Property WorkDescriptionOther As String
+        Get
+            Return _WorkDescriptionOther
+        End Get
+        Set(value As String)
+            SetPropertyValue("WorkDescriptionOther", _WorkDescriptionOther, value)
+        End Set
+    End Property
+    Property WorkTravelKm As Long
+        Get
+            Return _WorkTravelKm
+        End Get
+        Set(value As Long)
+            SetPropertyValue("WorkTravelKm", _WorkTravelKm, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("RegistryType='@This.WorkSheetType.RegistryType'")>
+    Property RegistryHeader As RegistryHeader
+        Get
+            Return _RegistryHeader
+        End Get
+        Set(value As RegistryHeader)
+            SetPropertyValue("RegistryHeader", _RegistryHeader, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Me.Customers = value.Customers
+                Me.Description = value.ShortName
+            End If
+        End Set
+    End Property
+
+    '-- Jelölő adatok !!!
+    <RuleRequiredField("WorkSheet_Header-JobNumberObjects-Require", DefaultContexts.Save, TargetCriteria:="WorkSheetType.Rule5DMatrix.RequireJobNumberObjects=True")> _
+    Property JobNumberObjects As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+        End Set
+    End Property
+    <RuleRequiredField("WorkSheet_Header-UniqueObjects-Require", DefaultContexts.Save, TargetCriteria:="WorkSheetType.Rule5DMatrix.RequireUniqueObjects=True")> _
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+        End Set
+    End Property
+    <RuleRequiredField("WorkSheet_Header-CostPlace-Require", DefaultContexts.Save, TargetCriteria:="WorkSheetType.Rule5DMatrix.RequireCostPlace=True")> _
+    Property CostPlace As CostPlace
+        Get
+            Return _CostPlace
+        End Get
+        Set(value As CostPlace)
+            SetPropertyValue("CostPlace", _CostPlace, value)
+        End Set
+    End Property
+    <RuleRequiredField("WorkSheet_Header-CostHolder-Require", DefaultContexts.Save, TargetCriteria:="WorkSheetType.Rule5DMatrix.RequireCostHolder=True")> _
+    Property CostHolder As CostHolder
+        Get
+            Return _CostHolder
+        End Get
+        Set(value As CostHolder)
+            SetPropertyValue("CostHolder", _CostHolder, value)
+        End Set
+    End Property
+
+    '----------Nonpersistent propertyk !!!
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_RowGroup1 As String
+        Get
+            Return _row_RowGroup1
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_RowGroup1", _row_RowGroup1, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_RowGroup2 As String
+        Get
+            Return _row_RowGroup2
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_RowGroup2", _row_RowGroup2, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_ShortName As String
+        Get
+            Return _row_ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_ShortName", _row_ShortName, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_Description As String
+        Get
+            Return _row_Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_Description", _row_Description, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_Quantity As Double
+        Get
+            Return _row_Quantity
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_Quantity", _row_Quantity, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_Units As Units
+        Get
+            Return _row_Units
+        End Get
+        Set(value As Units)
+            SetPropertyValue("row_Units", _row_Units, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    <ImmediatePostData(True)> _
+    Property row_WorkType() As eWorkType
+        Get
+            Return _row_WorkType
+        End Get
+        Set(ByVal value As eWorkType)
+            SetPropertyValue("row_WorkType", _row_WorkType, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    <ImmediatePostData(True)> _
+    Property row_WorkRowType As eWorkRowType
+        Get
+            Return _row_WorkRowType
+        End Get
+        Set(value As eWorkRowType)
+            SetPropertyValue("row_WorkRowType", _row_WorkRowType, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_Services As Services
+        Get
+            Return _row_Services
+        End Get
+        Set(value As Services)
+            SetPropertyValue("row_Services", _row_Services, value)
+        End Set
+    End Property
+
+    '--------------------ReadOnly--------------------
+    <VisibleInListView(False)> _
+    <Association("WorkSheet_Header-WorkSheet_Rows", GetType(WorkSheet_Rows))> _
+    ReadOnly Property WorkSheet_Rows() As XPCollection(Of WorkSheet_Rows)
+        Get
+            Return GetCollection(Of WorkSheet_Rows)("WorkSheet_Rows")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Association("Worksheet_Documets-WorkSheet_Header", GetType(Worksheet_Documets))> _
+    ReadOnly Property Worksheet_Documets As XPCollection(Of Worksheet_Documets)
+        Get
+            Return GetCollection(Of Worksheet_Documets)("Worksheet_Documets")
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property StorageOutRows As XPCollection(Of StorageOutRows)
+        Get
+            Return New XPCollection(Of StorageOutRows)(Session, CriteriaOperator.Parse("StorageOutHeader.WorkSheet_Header=?", Me))
+        End Get
+    End Property
+    <Association("WorkSheet_Header-Worksheet_CostRows", GetType(Worksheet_CostRows)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property Worksheet_CostRows As XPCollection(Of Worksheet_CostRows)
+        Get
+            Return GetCollection(Of Worksheet_CostRows)("Worksheet_CostRows")
+        End Get
+    End Property
+    <Association("WorkSheet_Header-WorkSheet_ReopenReason", GetType(WorkSheet_ReopenReason)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property WorkSheet_ReopenReason As XPCollection(Of WorkSheet_ReopenReason)
+        Get
+            Return GetCollection(Of WorkSheet_ReopenReason)("WorkSheet_ReopenReason")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <VisibleInLookupListView(False)> _
+    <Association("WorkSheet_Header-WorkSheet_Header_HRPerson", GetType(WorkSheet_Header_HRPerson))> _
+    ReadOnly Property WorkSheet_Header_HRPerson As XPCollection(Of WorkSheet_Header_HRPerson)
+        Get
+            Return GetCollection(Of WorkSheet_Header_HRPerson)("WorkSheet_Header_HRPerson")
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/Worksheet/Worksheet_Rows.vb

@@ -0,0 +1,131 @@
+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 WorkSheet_Rows 'Elvégzett munkák
+    Inherits BaseObject
+    Private _WorkSheet_Header As WorkSheet_Header 'Fejléc
+    Private _RowIndex As Long 'Sor index (mozgathatónak kell lennie !)
+    Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező)
+    Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező)
+    Private _ShortName As String 'Megnevezés
+    Private _Description As String 'Leírás
+    Private _Quantity As Double 'Mennyiség
+    Private _Units As Units 'Mennyiségi egység
+    Private _WorkType As eWorkType 'A sor milyen (Fizetős, garancia vagy vegyes)
+    Private _WorkRowType As eWorkRowType 'Az adott sor mit tartalmaz
+
+    '---- Beemelések szolgáltatás és receptből
+    Private _Services As Services ' A szolgáltatás törzsből az adott szolgáltatás
+    Private _RecipeFromOther As RecipeFromOther 'Receprt miből egyéb sor
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <Association("WorkSheet_Header-WorkSheet_Rows", GetType(WorkSheet_Header))> _
+    Property WorkSheet_Header() As WorkSheet_Header
+        Get
+            Return _WorkSheet_Header
+        End Get
+        Set(ByVal value As WorkSheet_Header)
+            SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value)
+        End Set
+    End Property
+    Property RowIndex() As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    Property RowGroup1 As String
+        Get
+            Return _RowGroup1
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup1", _RowGroup1, value)
+        End Set
+    End Property
+    Property RowGroup2 As String
+        Get
+            Return _RowGroup2
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup2", _RowGroup2, value)
+        End Set
+    End Property
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property Quantity() As Double
+        Get
+            Return _Quantity
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Quantity", _Quantity, value)
+        End Set
+    End Property
+    Property Units() As Units
+        Get
+            Return _Units
+        End Get
+        Set(ByVal value As Units)
+            SetPropertyValue("Units", _Units, value)
+        End Set
+    End Property
+    Property WorkType() As eWorkType
+        Get
+            Return _WorkType
+        End Get
+        Set(ByVal value As eWorkType)
+            SetPropertyValue("WorkType", _WorkType, value)
+        End Set
+    End Property
+    Property WorkRowType As eWorkRowType
+        Get
+            Return _WorkRowType
+        End Get
+        Set(value As eWorkRowType)
+            SetPropertyValue("WorkRowType", _WorkRowType, value)
+        End Set
+    End Property
+    Property Services As Services
+        Get
+            Return _Services
+        End Get
+        Set(value As Services)
+            SetPropertyValue("Services", _Services, value)
+        End Set
+    End Property
+    Property RecipeFromOther As RecipeFromOther
+        Get
+            Return _RecipeFromOther
+        End Get
+        Set(value As RecipeFromOther)
+            SetPropertyValue("RecipeFromOther", _RecipeFromOther, value)
+        End Set
+    End Property
+
+End Class