First create solution

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Enums/eChoiceRowMode.vb

@@ -0,0 +1,5 @@
+
+Public Enum eChoiceRowMode
+    eFromContractRows = 0
+    eFromCertificate = 1
+End Enum

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Enums/eDeliveryType.vb

@@ -0,0 +1,11 @@
+
+
+Public Enum eDeliveryType
+    eNotSet = 0
+    eFax = 1
+    eMail = 2
+    ePostal = 3
+    eLetter = 4
+    ePhone = 5
+    eOther = 6
+End Enum

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Enums/eRegistryAcceptState.vb

@@ -0,0 +1,5 @@
+
+Public Enum eRegistryAcceptState
+    eAccept = 0 'Elfogad
+    eDecline = 1 'Elutasít
+End Enum

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Enums/eRegistryCRMType.vb

@@ -0,0 +1,8 @@
+Public Enum eRegistryCRMType
+    eNotSet = -1
+    eOfferInAsk = 0 'Bejövõ ajánlat kérés
+    eOrderIn = 1 'Bejövõ megrendelés
+    eOfferIn = 2 'Bejövõ ajánlat
+    eComplaintIn = 3 'Bejövõ reklamáció
+End Enum
+

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Enums/eRegistryDirection.vb

@@ -0,0 +1,5 @@
+
+Public Enum eRegistryDirection
+    eInput = 0
+    eOutput = 1
+End Enum

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Enums/eRegistryMainType.vb

@@ -0,0 +1,9 @@
+
+Public Enum eRegistryMainType
+    eAccount = 0 'Számla
+    eOther = 1 'Egyéb
+    eInvoiceAdvance = 2 'Elõleg számla
+    eInvoiceAdvanceAsk = 3 ' Elõleg bekérõ
+    eInvoiceFinal = 4 'Végszámla
+    eCRM = 5 'CRM-mel kapcsolatos iktatás
+End Enum

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Enums/eReinvoiceMode.vb

@@ -0,0 +1,6 @@
+
+Public Enum eReinvoiceMode
+    eNotSet = 0 'Nincs beállítva
+    eDirect = 1  'Tételes beállítás
+    eGeneral = 2 'Általános vagy egyedi vagy csoportos mód
+End Enum

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Enums/eStepFinancialType.vb

@@ -0,0 +1,9 @@
+
+Public Enum eStepFinancialType
+    eNoCheck = 0 'Nincs ellenõrzés
+    eCheckVAT = 1 'ÁFA bontás szükséges
+    eCheckControlling = 2 'Teljesítésre bontás szükséges
+    eCheckCOCScanned = 3 'Teljesítési igazolás visszaszkennelése szükséges
+    eCheckManager = 4 'Vezetõi ellenõrzés lépése
+    eCheckVATPlusControlling = 5 '5 elsõ lépésnél ÁFA és sorbontás egyben 
+End Enum

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Enums/eWFAction.vb

@@ -0,0 +1,6 @@
+
+Public Enum eWFAction
+    eQuitWithSucces = 0
+    eQuitWithFailure = 1
+    eGotoNextStep = 2
+End Enum

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/DocumentSentBackView.vb

@@ -0,0 +1,40 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class DocumentSentBackView
+    Inherits BaseObject
+    Private _CauseOfRefuse As String ' -- Visszaküldés oka
+    Private _ReturnType As eDeliveryType ' -- Visszaküldés módja
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <RuleRequiredField("DocumentSentBackView-CauseOfRefuse", "DocumentSendBack_Context")> _
+    Property CauseOfRefuse As String
+        Get
+            Return _CauseOfRefuse
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("CauseOfRefuse", _CauseOfRefuse, value)
+        End Set
+    End Property
+    Property ReturnType As eDeliveryType
+        Get
+            Return _ReturnType
+        End Get
+        Set(ByVal value As eDeliveryType)
+            SetPropertyValue("ReturnType", _ReturnType, value)
+        End Set
+    End Property
+End Class
+

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryChoiceNextStep.vb

@@ -0,0 +1,114 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class RegistryChoiceNextStep 'Ez a class csak egy popup window-hoz kell
+    Inherits BaseObject
+    Private _RegistryHeader As RegistryHeader 'Melyik iktatással kapcsolatos
+    Private _HRPerson As HRPerson 'Kinek delegálja 
+    Private _WorkflowSystemSteps As WorkflowSystemSteps 'Milyen lépésre teszi
+    Private _Description As String 'Mit kell csinálni a feladatban !
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property RegistryHeader As RegistryHeader
+        Get
+            Return _RegistryHeader
+        End Get
+        Set(ByVal value As RegistryHeader)
+            SetPropertyValue("RegistryHeader", _RegistryHeader, value)
+        End Set
+    End Property
+    Property HRPerson As HRPerson
+        Get
+            'If _WorkflowSystemSteps IsNot Nothing Then
+            '    If _WorkflowSystemSteps.HRResponsible IsNot Nothing Then
+            '        _HRPerson = _WorkflowSystemSteps.HRResponsible
+            '    End If
+            'End If
+            Return _HRPerson
+        End Get
+        Set(ByVal value As HRPerson)
+            SetPropertyValue("HRPerson", _HRPerson, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("WorkflowSystem = '@This.RegistryHeader.RegistryType.WorkflowSystem'")>
+    Property WorkflowSystemSteps As WorkflowSystemSteps
+        Get
+            Return _WorkflowSystemSteps
+        End Get
+        Set(ByVal value As WorkflowSystemSteps)
+            SetPropertyValue("WorkflowSystemSteps", _WorkflowSystemSteps, value)
+
+            If Session.IsObjectsLoading() = False And Session.IsObjectsSaving() = False And Me.WorkflowSystemSteps IsNot Nothing Then
+                If Me.WorkflowSystemSteps.HRResponsible IsNot Nothing Then
+                    Me.HRPerson = Me.WorkflowSystemSteps.HRResponsible
+                Else
+                    Me.HRPerson = Me.RegistryHeader.HRResponsible
+                End If
+            End If
+        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
+End Class
+<DefaultClassOptions()>
+<NavigationItem(False), CreatableItem(False)>
+Public Class InvoiceChoiceNextStep 'Ez a class csak egy popup window-hoz kell
+    Inherits BaseObject
+    Private _InvoiceHeader As InvoiceHeader 'Melyik iktatással kapcsolatos
+    Private _HRPerson As HRPerson 'Kinek delegálja 
+    Private _WorkflowSystemSteps As WorkflowSystemSteps 'Milyen lépésre teszi
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <Browsable(False)>
+    Property InvoiceHeader As InvoiceHeader
+        Get
+            Return _InvoiceHeader
+        End Get
+        Set(ByVal value As InvoiceHeader)
+            SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
+        End Set
+    End Property
+    Property HRPerson As HRPerson
+        Get
+            If _WorkflowSystemSteps IsNot Nothing Then
+                If _WorkflowSystemSteps.HRResponsible IsNot Nothing Then
+                    _HRPerson = _WorkflowSystemSteps.HRResponsible
+                End If
+            End If
+            Return _HRPerson
+        End Get
+        Set(ByVal value As HRPerson)
+            SetPropertyValue("HRPerson", _HRPerson, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("WorkflowSystem.Oid='@This.InvoiceHeader.InvoiceType.WorkflowSystem.Oid'")>
+    Property WorkflowSystemSteps As WorkflowSystemSteps
+        Get
+            Return _WorkflowSystemSteps
+        End Get
+        Set(ByVal value As WorkflowSystemSteps)
+            SetPropertyValue("WorkflowSystemSteps", _WorkflowSystemSteps, value)
+        End Set
+    End Property
+End Class
+

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialControllingPopupWindow.vb

@@ -0,0 +1,77 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class RegistryRowsFinancialControllingPopupWindow 'Popup a csoportos dolgokhoz
+    Inherits BaseObject
+    Private _RegistryRowsFinancial As RegistryRowsFinancial
+    Private _Contracts As Contracts
+    Private _Controlling As Controlling
+    Private _UniqueObjects As UniqueObjects
+    Private _CostHolder As CostHolder
+    Private _CostPlace As CostPlace
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property RegistryRowsFinancial As RegistryRowsFinancial
+        Get
+            Return _RegistryRowsFinancial
+        End Get
+        Set(ByVal value As RegistryRowsFinancial)
+            SetPropertyValue("RegistryRowsFinancial", _RegistryRowsFinancial, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom ='@This.RegistryRowsFinancial.RegistryHeader.CustomersFrom' AND Customers = '@This.RegistryRowsFinancial.RegistryHeader.Customers' AND ContractTemplate.PartnerType = 1")>
+    Property Contracts As Contracts
+        Get
+            Return _Contracts
+        End Get
+        Set(ByVal value As Contracts)
+            SetPropertyValue("Contracts", _Contracts, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
+    Property Controlling As Controlling
+        Get
+            Return _Controlling
+        End Get
+        Set(ByVal value As Controlling)
+            SetPropertyValue("Controlling", _Controlling, value)
+        End Set
+    End Property
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(ByVal value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+        End Set
+    End Property
+    Property CostHolder As CostHolder
+        Get
+            Return _CostHolder
+        End Get
+        Set(ByVal value As CostHolder)
+            SetPropertyValue("CostHolder", _CostHolder, value)
+        End Set
+    End Property
+    Property CostPlace As CostPlace
+        Get
+            Return _CostPlace
+        End Get
+        Set(ByVal value As CostPlace)
+            SetPropertyValue("CostPlace", _CostPlace, value)
+        End Set
+    End Property
+End Class
+

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialControllingTemplatePopup.vb

@@ -0,0 +1,81 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+Public Enum eRRFCT_Type
+    eTechnical = 0
+    eReal = 1
+End Enum
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<NonPersistent()> _
+<Appearance("RegistryRowsFinancialControllingTemplatePopup - Hide MasterKey", AppearanceItemType:="ViewItem", criteria:="1=1", TargetItems:="MasterKey", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class RegistryRowsFinancialControllingTemplatePopup
+    Inherits BaseObject
+
+    Private _MasterKey As Guid
+    Private _RRFCT_Type As eRRFCT_Type
+    Private _CustomersFrom As CustomersFrom
+    Private _Customers As Customers
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        RRFCT_Type = eRRFCT_Type.eTechnical
+    End Sub
+
+    Property MasterKey As Guid
+        Get
+            Return _MasterKey
+        End Get
+        Set(value As Guid)
+            SetPropertyValue("MasterKey", _MasterKey, value)
+        End Set
+    End Property
+    Property RRFCT_Type As eRRFCT_Type
+        Get
+            Return _RRFCT_Type
+        End Get
+        Set(value As eRRFCT_Type)
+            SetPropertyValue("RRFCT_Type", _RRFCT_Type, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+
+    '-----------ReadOnly----------------
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property RegistryRowsFinancialControlling As XPCollection(Of RegistryRowsFinancialControlling)
+        Get
+            Return New XPCollection(Of RegistryRowsFinancialControlling)(Session, CriteriaOperator.Parse("RegistryHeader.IsTemplate=True AND RegistryHeader.CustomersFrom=? AND RegistryHeader.Customers=?", Me.CustomersFrom, Me.Customers))
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialControlling_ReInvoicePopupWindow.vb

@@ -0,0 +1,160 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<NonPersistent()> _
+Public Class RegistryRowsFinancialControlling_ReInvoicePopupWindow
+    Inherits BaseObject
+    Private _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling 'Egy példány a kiválasztott számlázandó tételek közül, hogy megkapjuk a hozzá tartozó iktatás adatait
+    Private _Contracts As Contracts 'Melyik szerzõdéshez készüljön el a sor
+    Private _DateExecution As Date 'Szerzõdési sor teljesítési dátuma
+    Private _SumAmountOfSelectedItems As Double 'A kiválasztott továbbszámlázandó tételek összege
+    Private _FinalAmount As Double 'A szerzõdési sor végösszege árréssel együtt
+    Private _VAT As VAT 'Mi legyen a szerzõdési sor áfája
+    Private _JobNumberObjects As JobNumberObjects
+    Private _CostHolder As CostHolder
+    Private _CostPlace As CostPlace
+    Private _UniqueObjects As UniqueObjects
+    Private _Description As String
+    Private _ShortName As String
+    Private _PaymentOption As PaymentOption
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.RegistryRowsFinancialControlling", "Reinvoice_ok")> _
+    Property RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
+        Get
+            Return _RegistryRowsFinancialControlling
+        End Get
+        Set(ByVal value As RegistryRowsFinancialControlling)
+            SetPropertyValue("RegistryRowsFinancialControlling", _RegistryRowsFinancialControlling, value)
+        End Set
+    End Property
+    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.Contracts", "Reinvoice_ok")>
+    <ImmediatePostData(True), DataSourceCriteria("Customers='@This.RegistryRowsFinancialControlling.ReInvoice_Customers' And CustomersFrom = '@This.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom' And ContractTemplate.PartnerType=0")>
+    Property Contracts As Contracts
+        Get
+            Return _Contracts
+        End Get
+        Set(ByVal value As Contracts)
+            SetPropertyValue("Contracts", _Contracts, value)
+        End Set
+    End Property
+    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.DateExecution", "Reinvoice_ok")> _
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property SumAmountOfSelectedItems As Double
+        Get
+            Return _SumAmountOfSelectedItems
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("SumAmountOfSelectedItems", _SumAmountOfSelectedItems, value)
+        End Set
+    End Property
+    Property FinalAmount As Double
+        Get
+            Return _FinalAmount
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("FinalAmount", _FinalAmount, value)
+        End Set
+    End Property
+    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.vat", "Reinvoice_ok")> _
+    Property VAT As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(ByVal value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+
+    'Rule5DMatrix ...
+    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.Controlling", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireControlling=True")> _
+    ReadOnly Property ReInvoiceReason As Controlling
+        Get
+            Return Me.RegistryRowsFinancialControlling.ReInvoiceReason
+        End Get
+    End Property
+    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.CostHolder", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireCostHolder=True")> _
+    Property CostHolder As CostHolder
+        Get
+            Return _CostHolder
+        End Get
+        Set(ByVal value As CostHolder)
+            SetPropertyValue("CostHolder", _CostHolder, value)
+        End Set
+    End Property
+    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.CostPlace", "Reinvoice_ok", TargetCriteria:="ContractTemplate.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("RegistryRowsFinancialControlling_ReInvoicePopupWindow.JobNumberObjects", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireJobNumberObjects=True")> _
+    Property JobNumberObjects As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(ByVal value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+        End Set
+    End Property
+    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.UniqueObjects", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireUniqueObjects=True")> _
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(ByVal value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, 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 ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.PaymentOption", "Reinvoice_ok")> _
+    Property PaymentOption As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(ByVal value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+        End Set
+    End Property
+End Class
+

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialPopup.vb

@@ -0,0 +1,90 @@
+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 RegistryRowsFinancialPopup
+    Inherits BaseObject
+
+    Private _RegistryHeader As RegistryHeader
+    Private _VAT As VAT
+    Private _WorkflowSystemSteps As WorkflowSystemSteps
+    Private _HRPerson As HRPerson
+    Private _Description As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+    <Browsable(False)> _
+    Property RegistryHeader As RegistryHeader
+        Get
+            Return _RegistryHeader
+        End Get
+        Set(value As RegistryHeader)
+            SetPropertyValue("RegistryHeader", _RegistryHeader, value)
+        End Set
+    End Property
+    <RuleRequiredField("RegistryRowsFinancialPopup-VAT", "DialogOk_Contexts")> _
+    Property VAT As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+    <RuleRequiredField("RegistryRowsFinancialPopup-WorkflowSystemSteps", "DialogOk_Contexts")>
+    <ImmediatePostData(True), DataSourceCriteria("WorkflowSystem = '@This.RegistryHeader.RegistryType.WorkflowSystem'")>
+    Property WorkflowSystemSteps As WorkflowSystemSteps
+        Get
+            Return _WorkflowSystemSteps
+        End Get
+        Set(value As WorkflowSystemSteps)
+            SetPropertyValue("WorkflowSystemSteps", _WorkflowSystemSteps, value)
+
+            If Session.IsObjectsLoading() = False And Session.IsObjectsSaving() = False And Me.WorkflowSystemSteps IsNot Nothing Then
+                If Me.WorkflowSystemSteps.HRResponsible IsNot Nothing Then
+                    Me.HRPerson = Me.WorkflowSystemSteps.HRResponsible
+                Else
+                    Me.HRPerson = Me.RegistryHeader.HRResponsible
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("RegistryRowsFinancialPopup-HRPerson", "DialogOk_Contexts")> _
+    Property HRPerson As HRPerson
+        Get
+            Return _HRPerson
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson", _HRPerson, 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/Financial/FinancialObjects/Registry/Popup/RegistryTaskGoToNewtStepWithGLAccount.vb

@@ -0,0 +1,39 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions(), NonPersistent, CreatableItem(False), NavigationItem(False)> _
+<Appearance("Hide ReInvoice_Customers if IsReinvoice is false", AppearanceItemType.ViewItem, "IsReinvoice=False", TargetItems:="ReInvoice_Customers", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class RegistryTaskGoToNewtStepWithGLAccount
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Browsable(False)> _
+    Property CustomersFrom As CustomersFrom
+
+    Property Controlling As Controlling
+    Property UniqueObjects As UniqueObjects
+    Property JobNumberObjects As JobNumberObjects
+    Property CostHolder As CostHolder
+    Property CostPlace As CostPlace
+    <ImmediatePostData()> _
+    Property IsReinvoice As Boolean = False
+
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    Property SelectedTasks As ArrayList
+
+End Class
+

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransfer.vb

@@ -0,0 +1,164 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Disable non editable properties",
+                          AppearanceItemType:="ViewItem",
+                          criteria:="1=1",
+                          TargetItems:="BankSavedFileName;BankPrepareName;AmountHUF;AmountDEV",
+                          Enabled:=False)> _
+<Appearance("Disable actions if currentstep is not first",
+                          AppearanceItemType:="Action",
+                          Criteria:="RegistryHeader.CurrentWorkflowSystemSteps.StepIndex <> 1",
+                          TargetItems:="New;Delete",
+                          Enabled:=False, Context:="Any")> _
+<Appearance("Disable all property when transfered",
+                          AppearanceItemType:="ViewItem",
+                          criteria:="BankSavedFileName != ''",
+                          TargetItems:="*",
+                          Enabled:=False, Context:="Any")> _
+Public Class RegistryBankTransfer
+    Inherits BaseObject
+    Private _RegistryHeader As RegistryHeader 'Iktatás fejléce
+    Private _AmountHUF As Double = 0 'Utalandó összeg HUF
+    Private _AmountDEV As Double = 0 'Utalandó összeg DEV
+    Private _DatePayment As Date 'Fizetési határidő
+    Private _IsBlocked As Boolean = False 'Blokkolva
+    Private _Note As String 'Utalásra kerülő megjegyzés
+    Private _BankSavedFileName As String  'Milyen banki csomagba ment el?
+    Private _BankPrepareName As String = "" 'Előkészítési megnevezés
+    Private _RowType As eHoldRowType = eHoldRowType.Normal
+    Private _BallanceDEV As Double 'Egyenleg (DEV)
+    Private _BallanceHUF As Double 'Egyenleg (HUF)
+    Private _Description_Private As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        If Session.IsNewObject(Me) Then
+            BankSavedFileName = ""
+            BankPrepareName = ""
+        End If
+    End Sub
+    <Browsable(False)> _
+    <Association("RegistryHeader-RegistryBankTransfer", GetType(RegistryHeader))> _
+    Property RegistryHeader As RegistryHeader
+        Get
+            Return _RegistryHeader
+        End Get
+        Set(ByVal value As RegistryHeader)
+            SetPropertyValue("RegistryHeader", _RegistryHeader, value)
+            If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading And Me.RegistryHeader IsNot Nothing Then
+                AmountHUF = Me.RegistryHeader.BruttoAmountRemainingBank
+            End If
+        End Set
+    End Property
+    Property AmountHUF As Double
+        Get
+            Return _AmountHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountHUF", _AmountHUF, value)
+        End Set
+    End Property
+    Property AmountDEV As Double
+        Get
+            Return _AmountDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountDEV", _AmountDEV, value)
+            If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading And Me.RegistryHeader IsNot Nothing Then
+                If Not Me.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then
+                    Me.AmountHUF = Math.Round((value * Me.RegistryHeader.F_CurrencyRate), 0, MidpointRounding.AwayFromZero)
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("RegistryBankTransfer.DatePayment", DefaultContexts.Save)> _
+    Property DatePayment As Date
+        Get
+            Return _DatePayment
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DatePayment", _DatePayment, value)
+        End Set
+    End Property
+    Property IsBlocked As Boolean
+        Get
+            Return _IsBlocked
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsBlocked", _IsBlocked, value)
+        End Set
+    End Property
+    Property Note As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Note", _Note, value)
+        End Set
+    End Property
+    Property BankSavedFileName As String
+        Get
+            Return _BankSavedFileName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("BankSavedFileName", _BankSavedFileName, value)
+        End Set
+    End Property
+    Property BankPrepareName As String
+        Get
+            Return _BankPrepareName
+        End Get
+        Set(value As String)
+            SetPropertyValue("BankPrepareName", _BankPrepareName, value)
+        End Set
+    End Property
+    Property RowType As eHoldRowType
+        Get
+            Return _RowType
+        End Get
+        Set(value As eHoldRowType)
+            SetPropertyValue("RowType", _RowType, value)
+        End Set
+    End Property
+    Property BallanceHUF As Double
+        Get
+            Return _BallanceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("BallanceHUF", _BallanceHUF, value)
+        End Set
+    End Property
+    Property BallanceDEV As Double
+        Get
+            Return _BallanceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("BallanceDEV", _BallanceDEV, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description_Private As String
+        Get
+            Return _Description_Private
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description_Private", _Description_Private, value)
+        End Set
+    End Property
+
+End Class
+

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.Designer.vb

@@ -0,0 +1,49 @@
+Partial Class RegistryBankTransferVC
+
+	<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.aBlockBankTransfer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aBlockBankTransfer
+        '
+        Me.aBlockBankTransfer.Caption = "Block"
+        Me.aBlockBankTransfer.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aBlockBankTransfer.Id = "aBlockBankTransfer"
+        Me.aBlockBankTransfer.ImageName = Nothing
+        Me.aBlockBankTransfer.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aBlockBankTransfer.Shortcut = Nothing
+        Me.aBlockBankTransfer.Tag = Nothing
+        Me.aBlockBankTransfer.TargetObjectsCriteria = Nothing
+        Me.aBlockBankTransfer.TargetViewId = Nothing
+        Me.aBlockBankTransfer.ToolTip = Nothing
+        Me.aBlockBankTransfer.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aBlockBankTransfer As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.resx

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

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.vb

@@ -0,0 +1,67 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.CloneObject
+Public Class RegistryBankTransferVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        Frame.GetController(Of RegistryBankTransferVC).aBlockBankTransfer.Active.SetItemValue("", False)
+        If View.Id = "RegistryBankTransfer_ListView_Not_Transfered" Then
+            Frame.GetController(Of RegistryBankTransferVC).aBlockBankTransfer.Active.SetItemValue("", True)
+        End If
+        If View.Id Like "*RegistryBankTransfer*" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        Frame.GetController(Of RegistryBankTransferVC).aBlockBankTransfer.Active.SetItemValue("", True)
+        If View.Id = "RegistryBankTransfer_ListView_Not_Transfered" Then
+            Frame.GetController(Of RegistryBankTransferVC).aBlockBankTransfer.Active.SetItemValue("", False)
+        End If
+        If View.Id Like "*RegistryBankTransfer*" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+        End If
+    End Sub
+
+    Private Sub aBlockBankTransfer_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBlockBankTransfer.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
+
+        Dim _RegistryBankTransferView As RegistryBankTransferView
+        Dim _RegistryBankTransfer As RegistryBankTransfer
+        For Each _RegistryBankTransferView In View.SelectedObjects
+            _RegistryBankTransfer = _uow.GetObjectByKey(Of RegistryBankTransfer)(_RegistryBankTransferView.Oid)
+            If _RegistryBankTransfer IsNot Nothing Then
+                If _RegistryBankTransfer.BankSavedFileName = "" Then
+                    If _RegistryBankTransfer.IsBlocked = True Then
+                        _RegistryBankTransfer.IsBlocked = False
+                    Else
+                        _RegistryBankTransfer.IsBlocked = True
+                    End If
+                End If
+            End If
+        Next
+        _uow.CommitChanges()
+        Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferView.vb

@@ -0,0 +1,38 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Persistent("vv_RegistryBankTransfer")> _
+<ImageName("BO_Report")> _
+Public Class RegistryBankTransferView
+    Inherits XPLiteObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <Key(True), Persistent("Oid")> Public Oid As Guid
+    <Persistent("RegistryHeader")> Public RegistryHeader As RegistryHeader
+    <Persistent("AmountHUF")> Public AmountHUF As Double
+    <Persistent("AmountDEV")> Public AmountDEV As Double
+    <Persistent("DatePayment")> Public DatePayment As Date
+    <Persistent("IsBlocked")> Public IsBlocked As Boolean
+    <Persistent("Note")> Public Note As String
+    <Persistent("BankSavedFileName")> Public BankSavedFileName As String
+    <Persistent("BallanceHUF")> Public BallanceHUF As Double
+    <Persistent("BallanceDEV")> Public BallanceDEV As Double
+    <Persistent("DifferenceHUF")> Public DifferenceHUF As Double
+    <Persistent("DifferenceDEV")> Public DifferenceDEV As Double
+    <Persistent("OfferedHUF")> Public OfferedHUF As Double
+    <Persistent("OfferedDEV")> Public OfferedDEV As Double
+    <Persistent("BankPrepareName")> Public BankPrepareName As String
+End Class
+

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFileData.vb

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

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.Designer.vb

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

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.resx

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

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.vb

@@ -0,0 +1,328 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.CloneObject
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.Data.Filtering
+
+Public Class RegistryFinancialVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        If View.Id = "RegistryHeader_DetailView" Then
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
+
+            If _RegistryHeader IsNot Nothing Then
+                If _RegistryHeader.RegistryType IsNot Nothing Then
+                    If _RegistryHeader.RegistryType.RegistryMainType = eRegistryMainType.eAccount Then
+                        If _RegistryHeader.IsEditable = False Then
+                        Else
+                            Select Case _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType
+                                Case eStepFinancialType.eCheckVAT, eStepFinancialType.eCheckVATPlusControlling
+                                    'Frame.GetController(Of RegistryFinancialVC).aToTable_RRF.Active.SetItemValue("", False)
+                                    'Frame.GetController(Of RegistryFinancialVC).aToTableD_RRF.Active.SetItemValue("", False)
+                            End Select
+                        End If
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub aToTable_RRF_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRF.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
+        Dim _RegistryRowsFinancial As RegistryRowsFinancial
+
+        If _RegistryHeader IsNot Nothing Then
+            _RegistryRowsFinancial = _ocur.CreateObject(Of RegistryRowsFinancial)()
+            _RegistryRowsFinancial.RegistryHeader = _RegistryHeader
+            _RegistryRowsFinancial.BruttoAmount = _RegistryHeader.row_VAT_BruttoAmount
+            _RegistryRowsFinancial.VAT = _RegistryHeader.row_VAT
+            _RegistryRowsFinancial.DateVAT = _RegistryHeader.F_DateVAT
+
+            _ocur.CommitChanges()
+            View.Refresh()
+
+        End If
+
+    End Sub
+
+    Private Sub aToTableD_RRF_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_RRF.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
+        Dim _ListView_RRF As ListPropertyEditor
+        If _RegistryHeader IsNot Nothing Then
+            _ListView_RRF = TryCast(View, DetailView).FindItem("RegistryRowsFinancial")
+            If _ListView_RRF IsNot Nothing Then
+
+                _ocur.Delete(_ListView_RRF.ListView.SelectedObjects)
+                _ocur.CommitChanges()
+
+                View.Refresh()
+            End If
+        End If
+    End Sub
+
+    Private Sub aToTable_RRFC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRFC.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
+        Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
+
+        If _RegistryHeader IsNot Nothing Then
+
+            '//Banki csomag ellenõrzése
+            If _RegistryHeader.F_PayMode = ePayMode.InTransfer Then
+                If _RegistryHeader.RegistryBankTransfer.Count = 0 And _RegistryHeader.BruttoAmountRemainingBank = 0 Then
+                    Dim _RegistryBankTransfer As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)()
+                    _RegistryBankTransfer.RegistryHeader = _RegistryHeader
+                    _RegistryBankTransfer.DatePayment = _RegistryHeader.F_DatePayment
+                    _RegistryBankTransfer.AmountDEV = _RegistryHeader.F_AmountBruttoDEV
+                    _RegistryBankTransfer.AmountHUF = _RegistryHeader.F_AmountBruttoHUF
+                End If
+            End If
+
+
+            _RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)()
+            _RegistryRowsFinancialControlling.RegistryHeader = _RegistryHeader
+            _RegistryRowsFinancialControlling.ContractRows = _ocur.GetObject(_RegistryHeader.row_RRFC_ContractRows)
+            _RegistryRowsFinancialControlling.Amount = _RegistryHeader.row_RRFC_Amount
+            _RegistryRowsFinancialControlling.Controlling = _RegistryHeader.row_RRFC_Controlling
+            _RegistryRowsFinancialControlling.CostHolder = _RegistryHeader.row_RRFC_CostHolder
+            _RegistryRowsFinancialControlling.CostPlace = _RegistryHeader.row_RRFC_CostPlace
+            _RegistryRowsFinancialControlling.Note = _RegistryHeader.row_RRFC_Note
+            _RegistryRowsFinancialControlling.JobNumberObjects = _RegistryHeader.JobNumberObjects
+            _RegistryRowsFinancialControlling.UniqueObjects = _RegistryHeader.UniqueObjects
+
+            _ocur.CommitChanges()
+
+            View.Refresh()
+            _RegistryHeader.row_RRFC_Amount = _RegistryHeader.NettoAmountRemaining
+
+        End If
+
+    End Sub
+
+    Private Sub aToTableD_RRFC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_RRFC.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
+        Dim _ListView_RRF As ListPropertyEditor
+        Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
+        Dim _ContractRows_ArrayList As New ArrayList
+
+        If _RegistryHeader IsNot Nothing Then
+            _ListView_RRF = TryCast(View, DetailView).FindItem("RegistryRowsFinancialControlling")
+            If _ListView_RRF IsNot Nothing Then
+                For Each _RegistryRowsFinancialControlling In _ListView_RRF.ListView.SelectedObjects
+                    If _RegistryRowsFinancialControlling.ContractRows IsNot Nothing Then
+                        If _RegistryRowsFinancialControlling.ContractRows.Contracts IsNot Nothing Then
+                            If _RegistryRowsFinancialControlling.ContractRows.Contracts.ContractTemplate.IsTechnical Then
+                                _ContractRows_ArrayList.Add(_RegistryRowsFinancialControlling.ContractRows)
+                            End If
+                        End If
+                    End If
+                Next
+                _ocur.Delete(_ListView_RRF.ListView.SelectedObjects)
+                _ocur.CommitChanges()
+
+                View.Refresh()
+            End If
+        End If
+    End Sub
+
+    Private Sub aToTable_RRFC_With_TContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRFC_With_TContract.Execute
+        '// Technikai szerzõdés sor + Táblázatba beadás !!!
+
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
+
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
+        Dim _TechnicalContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _RegistryHeader.CustomersFrom))
+
+        Dim _Contracts As Contracts = _ocur.FindObject(Of Contracts)(CriteriaOperator.Parse("CustomersFrom=? AND Customers=? AND ContractTemplate=?", _RegistryHeader.CustomersFrom, _RegistryHeader.Customers, _TechnicalContractTemplate))
+        Dim _ContractRows As ContractRows
+
+
+
+        Dim _RegistryRowsFinancial As RegistryRowsFinancial
+        Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
+        Dim _TechnicalLimitAmount As Double = _RegistryHeader.row_RRFC_Controlling.TechnicalContractLimit
+        If _TechnicalLimitAmount = 0 Then _TechnicalLimitAmount = 200000
+
+        If _RegistryHeader IsNot Nothing Then
+            '//Banki csomag ellenõrzése
+            If _RegistryHeader.F_PayMode = ePayMode.InTransfer Then
+                If _RegistryHeader.RegistryBankTransfer.Count = 0 And _RegistryHeader.BruttoAmountRemainingBank = 0 Then
+                    Dim _RegistryBankTransfer As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)()
+                    _RegistryBankTransfer.RegistryHeader = _RegistryHeader
+                    _RegistryBankTransfer.DatePayment = _RegistryHeader.F_DatePayment
+                    _RegistryBankTransfer.AmountDEV = _RegistryHeader.F_AmountBruttoDEV
+                    _RegistryBankTransfer.AmountHUF = _RegistryHeader.F_AmountBruttoHUF
+                    
+                End If
+            End If
+        End If
+
+        If _RegistryHeader.row_RRFC_Amount <= _TechnicalLimitAmount Then
+            If _Contracts Is Nothing Then
+                _Contracts = _ocur.CreateObject(Of Contracts)()
+                _Contracts.CustomersFrom = _RegistryHeader.CustomersFrom
+                _Contracts.Customers = _RegistryHeader.Customers
+                _Contracts.ContractTemplate = _TechnicalContractTemplate
+                _Contracts.DateCreated = _RegistryHeader.F_DateCreated
+                _Contracts.DateExecution = _RegistryHeader.F_DateExecution
+                _Contracts.DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator)
+                _Contracts.State = State.Signed
+            End If
+
+            _ContractRows = _ocur.CreateObject(Of ContractRows)()
+            _ContractRows.Contracts = _Contracts
+            _ContractRows.CurrencyName = _RegistryHeader.F_CurrencyName
+            _ContractRows.ContractRowsType = eContractRowsType.eFix
+            _ContractRows.DateExecution = _RegistryHeader.F_DateExecution
+            _ContractRows.Controlling = _RegistryHeader.row_RRFC_Controlling
+            If _RegistryHeader.F_CurrencyName.ShortName = "HUF" Then
+                _ContractRows.NettoPriceHUF = _RegistryHeader.row_RRFC_Amount
+            Else
+                If _RegistryHeader.F_CurrencyRate <> 0 Then
+                    _ContractRows.NettoPriceDEV = _RegistryHeader.row_RRFC_Amount / _RegistryHeader.F_CurrencyRate
+                Else
+                    _ContractRows.NettoPriceDEV = 0
+                End If
+                _ContractRows.NettoPriceHUF = _RegistryHeader.row_RRFC_Amount
+            End If
+            _ContractRows.ShortName = _RegistryHeader.row_RRFC_Note
+            _ContractRows.UniqueObjects = _RegistryHeader.UniqueObjects
+
+            'IDE KELL VALAMI ÁFA !
+
+            For Each _RegistryRowsFinancial In _RegistryHeader.RegistryRowsFinancial
+                _ContractRows.VAT = _RegistryRowsFinancial.VAT
+                Exit For
+            Next
+
+            _ContractRows.CostHolder = _RegistryHeader.row_RRFC_CostHolder
+            _ContractRows.CostPlace = _RegistryHeader.row_RRFC_CostPlace
+            _ContractRows.Controlling = _RegistryHeader.row_RRFC_Controlling
+            _ContractRows.JobNumberObjects = _RegistryHeader.JobNumberObjects
+
+            _RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)()
+            _RegistryRowsFinancialControlling.RegistryHeader = _RegistryHeader
+            _RegistryRowsFinancialControlling.ContractRows = _ContractRows
+            _RegistryRowsFinancialControlling.Amount = _RegistryHeader.row_RRFC_Amount
+            _RegistryRowsFinancialControlling.Controlling = _RegistryHeader.row_RRFC_Controlling
+            _RegistryRowsFinancialControlling.CostHolder = _RegistryHeader.row_RRFC_CostHolder
+            _RegistryRowsFinancialControlling.CostPlace = _RegistryHeader.row_RRFC_CostPlace
+            _RegistryRowsFinancialControlling.Note = _RegistryHeader.row_RRFC_Note
+            _RegistryRowsFinancialControlling.JobNumberObjects = _RegistryHeader.JobNumberObjects
+            _RegistryRowsFinancialControlling.UniqueObjects = _RegistryHeader.UniqueObjects
+
+            _ocur.CommitChanges()
+
+            View.Refresh()
+
+            _RegistryHeader.row_RRFC_Amount = _RegistryHeader.NettoAmountRemaining
+        Else
+            '-------!!!!!!!TESZT MIATT!!!!!------------------------------------------
+            Dim _Message As String = String.Format("Technikai limit van beállítva ! {0}", _TechnicalLimitAmount)
+            Throw New Exception(_Message)
+        End If
+
+    End Sub
+
+    Private Sub aToTable_RRFC_With_RContract_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aToTable_RRFC_With_RContract.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
+
+        Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(Contracts))
+
+        _CS.BeginUpdateCriteria()
+        _CS.Criteria.Add("Filter1", CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and ContractTemplate.PartnerType=1 and ContractTemplate.IsTechnical=False and (State = 1 OR State = 2)", _RegistryHeader.CustomersFrom.Oid, _RegistryHeader.Customers.Oid))
+        _CS.EndUpdateCriteria()
+
+        e.View = Application.CreateListView("Contracts_Finder_Payables", _CS, False)
+    End Sub
+
+    Private Sub aToTable_RRFC_With_RContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aToTable_RRFC_With_RContract.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
+        Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
+        Dim _Contracts As Contracts = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), Contracts))
+        Dim _ContractRows As ContractRows
+        If _Contracts Is Nothing Then Exit Sub
+
+        If _RegistryHeader IsNot Nothing And _Contracts IsNot Nothing Then
+
+            _ContractRows = _ocur.CreateObject(Of ContractRows)()
+            _ContractRows.Contracts = _Contracts
+            _ContractRows.ContractRowsType = eContractRowsType.eFix
+            _ContractRows.DateExecution = _RegistryHeader.F_DateExecution
+            _ContractRows.Controlling = _RegistryHeader.row_RRFC_Controlling
+            _ContractRows.CurrencyName = _RegistryHeader.F_CurrencyName
+            _ContractRows.NettoPriceHUF = _RegistryHeader.row_RRFC_Amount
+            If Not _ContractRows.CurrencyName.ShortName = "HUF" Then
+                If _RegistryHeader.F_CurrencyRate <> 0 Then
+                    _ContractRows.NettoPriceDEV = Math.Round(_RegistryHeader.row_RRFC_Amount / _RegistryHeader.F_CurrencyRate, 2, MidpointRounding.AwayFromZero)
+                End If
+            End If
+            _ContractRows.ShortName = _RegistryHeader.row_RRFC_Note
+            _ContractRows.UniqueObjects = _RegistryHeader.UniqueObjects
+            If _RegistryHeader.RegistryRowsFinancial.Count > 0 Then
+                _ContractRows.VAT = TryCast(_RegistryHeader.RegistryRowsFinancial(0), RegistryRowsFinancial).VAT
+            End If
+            _ContractRows.CostHolder = _RegistryHeader.row_RRFC_CostHolder
+            _ContractRows.CostPlace = _RegistryHeader.row_RRFC_CostPlace
+            _ContractRows.Controlling = _RegistryHeader.row_RRFC_Controlling
+            _ContractRows.JobNumberObjects = _RegistryHeader.JobNumberObjects
+            _ContractRows.QTT = 1
+            _ContractRows.Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes=True"))
+
+            _RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)()
+            _RegistryRowsFinancialControlling.RegistryHeader = _RegistryHeader
+            _RegistryRowsFinancialControlling.ContractRows = _ContractRows
+            _RegistryRowsFinancialControlling.Amount = _RegistryHeader.row_RRFC_Amount
+            _RegistryRowsFinancialControlling.Controlling = _RegistryHeader.row_RRFC_Controlling
+            _RegistryRowsFinancialControlling.CostHolder = _RegistryHeader.row_RRFC_CostHolder
+            _RegistryRowsFinancialControlling.CostPlace = _RegistryHeader.row_RRFC_CostPlace
+            _RegistryRowsFinancialControlling.Note = _RegistryHeader.row_RRFC_Note
+            _RegistryRowsFinancialControlling.JobNumberObjects = _RegistryHeader.JobNumberObjects
+            _RegistryRowsFinancialControlling.UniqueObjects = _RegistryHeader.UniqueObjects
+
+            _ocur.CommitChanges()
+
+        End If
+        If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
+            Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+        End If
+    End Sub
+
+    Private Sub aRegistryTaskGotoNextStepWithFC_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs)
+
+    End Sub
+
+    Private Sub aRegistryTaskGotoNextStepWithFC_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs)
+
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRows.vb

@@ -0,0 +1,33 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class RegistryRows '-- Iktatórendszer sorai
+    Inherits BaseObject
+    Private _RegistryHeader As RegistryHeader
+    Private _CustomersFrom As CustomersFrom
+    Private _Contacts As Contacts
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <Association("RegistryHeader-RegistryRows", GetType(RegistryHeader))> _
+    Property RegistryHeader() As RegistryHeader
+        Get
+            Return _RegistryHeader
+        End Get
+        Set(ByVal value As RegistryHeader)
+            SetPropertyValue("RegistryHeader", _RegistryHeader, value)
+        End Set
+    End Property
+End Class
+

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsDeliveryNoteIn/RegistryRowsDeliveryNoteIn.vb

@@ -0,0 +1,47 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class RegistryRowsDeliveryNoteIn 'Szállítói szállítólevél és szállítói számla pontozása
+    Inherits BaseObject
+    Private _RegistryHeader As RegistryHeader
+    Private _DeliveryNoteInRows As DeliveryNoteInRows
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+    Property RegistryHeader As RegistryHeader
+        Get
+            Return _RegistryHeader
+        End Get
+        Set(value As RegistryHeader)
+            SetPropertyValue("RegistryHeader", _RegistryHeader, value)
+        End Set
+    End Property
+    Property DeliveryNoteInRows As DeliveryNoteInRows
+        Get
+            Return _DeliveryNoteInRows
+        End Get
+        Set(value As DeliveryNoteInRows)
+            SetPropertyValue("DeliveryNoteInRows", _DeliveryNoteInRows, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancial.vb

@@ -0,0 +1,123 @@
+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 DevExpress.ExpressApp.Editors
+
+'<EditorStateRule("Disable all properties", "RegistryHeader;BruttoAmount;Note;VAT", ViewType.DetailView, Criteria:="RegistryHeader.BruttoAmountRemaining = 0", EditorState:=DevExpress.ExpressApp.ConditionalEditorState.EditorState.Disabled)> _
+
+<Appearance("Disable actions if currentstep is not eCheckVAT", AppearanceItemType:="Action", Criteria:="not (RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType in (1,5))", TargetItems:="Save;SaveAndNew;SaveAndClose;Delete", Enabled:=False, Context:="Any")> _
+<Appearance("Disable all properties", TargetItems:="RegistryHeader;BruttoAmount;Note;VAT", Criteria:="RegistryHeader.BruttoAmountRemaining = 0", Enabled:=False, Context:="DetailView")> _
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class RegistryRowsFinancial '-- Iktatórendszer sorai, ha p.ü. kapcsolat van.
+    Inherits BaseObject
+    Private _RegistryHeader As RegistryHeader
+    Private _BruttoAmount As Double 'Bruttó összeg
+    Private _Note As String 'Megjegyzés
+    Private _VAT As VAT 'ÁFA kód
+    Private _DateVAT As Date
+    Private _F_ReadyforBookEntryRows As Boolean
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        If Me.RegistryHeader IsNot Nothing Then
+
+        End If
+        F_ReadyforBookEntryRows = False
+    End Sub
+    <Association("RegistryHeader-RegistryRowsFinancial", GetType(RegistryHeader))> _
+    Property RegistryHeader() As RegistryHeader
+        Get
+            Return _RegistryHeader
+            'Me.RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT
+        End Get
+        Set(ByVal value As RegistryHeader)
+            SetPropertyValue("RegistryHeader", _RegistryHeader, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And value IsNot Nothing Then
+                If IsDate(Me.RegistryHeader.F_DateVAT) Then
+                    DateVAT = Me.RegistryHeader.F_DateExecution
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("RegistryRows-BruttoAmount", DefaultContexts.Save)> _
+    Property BruttoAmount As Double
+        Get
+            Return _BruttoAmount
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("BruttoAmount", _BruttoAmount, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Note As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    <RuleRequiredField("RegistryRowsFinancial.VAT", DefaultContexts.Save)> _
+    Property VAT As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(ByVal value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+    ReadOnly Property VATAmount As Double
+        Get
+            If Me.VAT IsNot Nothing Then
+                Dim _VATAmount As Double = Me.BruttoAmount / (100 + Me.VAT.KeyValuePercent) * Me.VAT.KeyValuePercent
+                Return Math.Round(_VATAmount, 0, MidpointRounding.AwayFromZero)
+            Else
+                Return 0
+            End If
+        End Get
+    End Property
+    ReadOnly Property NettoAmount As Double
+        Get
+            If Me.VAT IsNot Nothing Then
+                Return Me.BruttoAmount - Me.VATAmount
+            End If
+        End Get
+    End Property
+    Property DateVAT As Date
+        Get
+            Return _DateVAT
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateVAT", _DateVAT, value)
+            If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading And Me.RegistryHeader IsNot Nothing Then
+                If Not Me.RegistryHeader.F_DateVAT = value Then
+                    Me.RegistryHeader.F_DateVAT = value
+                    ' Me.RegistryHeader.Save()
+                End If
+            End If
+        End Set
+    End Property
+    Property F_ReadyforBookEntryRows As Boolean
+        Get
+            Return _F_ReadyforBookEntryRows
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("F_ReadyforBookEntryRows", _F_ReadyforBookEntryRows, value)
+        End Set
+    End Property
+
+End Class
+

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancialVC.Designer.vb

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

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancialVC.vb

@@ -0,0 +1,124 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.SystemModule
+
+Public Class RegistryRowsFinancialVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        If View.Id = "RegistryRowsFinancial_DetailView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+
+            'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
+            '    Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
+            '    If _RegistryHeader IsNot Nothing Then
+            '        Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryHeader)
+            '        'AddHandler _RegistryHeader.Changed, AddressOf RegistryHeader_RegistryRowsFinancial_ListView_MasterObjectChanged
+            '        AddHandler View.ObjectSpace.ObjectChanged, AddressOf _RegistryRowsFinancial_ListView_ObjectChanged
+            '        AddHandler View.ObjectSpace.ObjectSaved, AddressOf _RegistryRowsFinancial_ListView_ObjectSaved
+            '        AddHandler View.ObjectSpace.ObjectReloaded, AddressOf _RegistryRowsFinancial_ListView_ObjectReloaded
+            '        AddHandler View.ObjectSpace.ObjectDeleted, AddressOf _RegistryRowsFinancial_ListView_ObjectDeleted
+
+            '    End If
+            'End If
+        End If
+    End Sub
+
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "RegistryRowsFinancial_DetailView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+        End If
+        If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+
+            'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
+            '    Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
+            '    If _RegistryHeader IsNot Nothing Then
+            '        RemoveHandler _RegistryHeader.Changed, AddressOf RegistryHeader_RegistryRowsFinancial_ListView_MasterObjectChanged
+            '    End If
+            'End If
+        End If
+    End Sub
+
+    Private Sub RegistryHeader_RegistryRowsFinancial_ListView_MasterObjectChanged(sender As Object, e As DevExpress.Xpo.ObjectChangeEventArgs)
+        Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader)
+        Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryHeader)
+    End Sub
+
+    Private Sub _RegistryRowsFinancial_ListView_ObjectChanged(sender As Object, e As ObjectChangedEventArgs)
+        Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader)
+        Dim _RegistryRowsFinancial As RegistryRowsFinancial = TryCast(e.Object, RegistryRowsFinancial)
+        If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryHeader)
+        If _RegistryRowsFinancial IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryRowsFinancial.RegistryHeader)
+    End Sub
+    Private Sub _RegistryRowsFinancial_ListView_ObjectReloaded(sender As Object, e As ObjectManipulatingEventArgs)
+        Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader)
+        Dim _RegistryRowsFinancial As RegistryRowsFinancial = TryCast(e.Object, RegistryRowsFinancial)
+        If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryHeader)
+        If _RegistryRowsFinancial IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryRowsFinancial.RegistryHeader)
+    End Sub
+    Private Sub _RegistryRowsFinancial_ListView_ObjectSaved(sender As Object, e As ObjectManipulatingEventArgs)
+        Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader)
+        Dim _RegistryRowsFinancial As RegistryRowsFinancial = TryCast(e.Object, RegistryRowsFinancial)
+        If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryHeader)
+        If _RegistryRowsFinancial IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryRowsFinancial.RegistryHeader)
+    End Sub
+    Private Sub _RegistryRowsFinancial_ListView_ObjectDeleted(sender As Object, e As ObjectsManipulatingEventArgs)
+        If e.Objects.Count <= 0 Then Exit Sub
+        Dim _Object As Object = Nothing
+        For Each _Object In e.Objects
+
+        Next
+        Dim _RegistryHeader As RegistryHeader = TryCast(_Object, RegistryHeader)
+        Dim _RegistryRowsFinancial As RegistryRowsFinancial = TryCast(_Object, RegistryRowsFinancial)
+        If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryHeader)
+        If _RegistryRowsFinancial IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryRowsFinancial.RegistryHeader)
+    End Sub
+    Private Sub Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryHeader As RegistryHeader)
+        If _RegistryHeader Is Nothing Then Exit Sub
+        If _RegistryHeader.CurrentWorkflowSystemSteps Is Nothing Then Exit Sub
+        '// Mikor NE látszódjon a NEW action 
+        Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+        If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT Or _
+           _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
+            If _RegistryHeader.IsEditable = True Then
+                If _RegistryHeader.BruttoAmountRemaining <> 0.0 Then
+                    Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+                End If
+            End If
+        End If
+
+        '// Mikor NE látszódjon a törlés gomb
+        Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+        If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT Or _
+           _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
+            If _RegistryHeader.IsEditable = True Then
+                Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            End If
+        End If
+
+
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControlling.vb

@@ -0,0 +1,449 @@
+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.Linq
+Imports System.Linq.Expressions
+
+Imports DevExpress.ExpressApp.Editors
+
+'<EditorStateRuleAttribute("Hide reinvoice info", "ReInvoiceMode;ReInvoice_ExtraCharge;ReInvoice_Customers;ReInvoice_ContractRows;ReInvoiceReason", EditorState.Hidden, "IsReInvoice=False", ViewType.DetailView)> _
+'<EditorStateRuleAttribute("Hide reinvoice info 2", "ReInvoice_ExtraCharge;ReInvoice_Customers;ReInvoice_ContractRows;ReInvoiceReason", EditorState.Hidden, "ReInvoiceMode=2", ViewType.DetailView)> _
+'<EditorStateRuleAttribute("Hide reinvoice info 3", "ReInvoice_ExtraCharge;ReInvoice_Customers;ReInvoice_ContractRows;ReInvoiceReason", EditorState.Hidden, "ReInvoiceMode=0", ViewType.DetailView)> _
+'<EditorStateRuleAttribute("Hide contractrows when from COC", "Contracts;ContractRows", EditorState.Hidden, "ChoiceRowMode=1", ViewType.DetailView)> _
+'<EditorStateRuleAttribute("Disable properties in RegistryRowsFinancialControlling", "RegistryHeader;UniqueObjects;JobNumberObjects;ChoiceRowMode;Controlling;ChartOfAccounts;Contracts;ContractRows;PaymentOption;Note;Amount;CostHolder;CostPlace;IsReInvoice;ReInvoiceReason;ReInvoice_Customers;ReInvoice_ContractRows;ReInvoice_ExtraCharge;IsGuaranteeBack;ReInvoiceMode", _
+'                           ViewType.DetailView, "RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType in (2,5) = False", EditorState.Disabled)> _
+'<EditorStateRuleAttribute("Disable properties in RegistryRowsFinancialControlling2", "*", ViewType.DetailView, "RegistryHeader.CurrentWorkflowSystemSteps.StepIndex>4", EditorState.Disabled)> _
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<DefaultProperty("DisplayName")> _
+<Appearance("Hide reinvoice info", TargetItems:="ReInvoiceMode;ReInvoice_ExtraCharge;ReInvoice_Customers;ReInvoice_ContractRows;ReInvoiceReason", Criteria:="IsReInvoice=False", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide reinvoice info 2", TargetItems:="ReInvoice_ExtraCharge;ReInvoice_Customers;ReInvoice_ContractRows;ReInvoiceReason", Criteria:="ReInvoiceMode=2", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide reinvoice info 3", TargetItems:="ReInvoice_ExtraCharge;ReInvoice_Customers;ReInvoice_ContractRows;ReInvoiceReason", Criteria:="ReInvoiceMode=0", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide contractrows when from COC", TargetItems:="Contracts;ContractRows", Criteria:="ChoiceRowMode=1", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Disable properties in RegistryRowsFinancialControlling", TargetItems:="RegistryHeader;UniqueObjects;JobNumberObjects;ChoiceRowMode;Controlling;ChartOfAccounts;Contracts;ContractRows;PaymentOption;Note;Amount;CostHolder;CostPlace;IsReInvoice;ReInvoiceReason;ReInvoice_Customers;ReInvoice_ContractRows;ReInvoice_ExtraCharge;IsGuaranteeBack;ReInvoiceMode", _
+    Criteria:="RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType in (2,5) = False", Enabled:=False, Context:="DetailView")> _
+<Appearance("Disable properties in RegistryRowsFinancialControlling2", TargetItems:="*", Criteria:="RegistryHeader.CurrentWorkflowSystemSteps.StepIndex>4", Enabled:=False, Context:="DetailView")> _
+<Appearance("HIDE aCreateTechnicalContractFromRegistry StepIndex>3", AppearanceItemType.Action, _
+            "(RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType in (2,5) = False) Or !IsNull(ContractRows) Or ! IsNull(Contracts)", _
+            TargetItems:="aCreateTechnicalContractFromRegistry", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("HIDE aCreateContracts", AppearanceItemType.Action, "ChoiceRowMode=1", TargetItems:="aCreateContracts", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("HIDE aCreateContractsRowsfromControllingRows", AppearanceItemType.Action, "ChoiceRowMode=1 or IsNull(Contracts)", TargetItems:="aCreateContractsRowsfromControllingRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("HIDE aCreateTechnicalContractFromRegistry", AppearanceItemType.Action, "ChoiceRowMode=1", TargetItems:="aCreateTechnicalContractFromRegistry", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("HIDE @COCManipulation", AppearanceItemType.LayoutItem, "ChoiceRowMode=1", TargetItems:="@COCManipulation", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("HIDE aGenerateCOC", AppearanceItemType.Action, "ChoiceRowMode=1", TargetItems:="aGenerateCOC", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("HIDE ContractRows", AppearanceItemType.ViewItem, "isnull(Contracts)=True", TargetItems:="ContractRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide RegistryBankTransfer_Group when IsGuaranteeBack = false", AppearanceItemType.LayoutItem, "IsGuaranteeBack = False", TargetItems:="RegistryBankTransfer_Group", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide RegistryBankTransfer_Group when RegistryHeader.F_PayMode!=1", AppearanceItemType.ViewItem, "RegistryHeader.F_PayMode!=1", TargetItems:="IsGuaranteeBack", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable actions if currentstep is not eCheckControlling", AppearanceItemType:="Action", Criteria:="RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType In (2,3,5) = False ", TargetItems:="Save;SaveAndNew;SaveAndClose;Delete", Enabled:=False, Context:="Any")> _
+<Appearance("HIDE New action - RegistryRowsFinancialControlling", AppearanceItemType:="Action", TargetItems:="New", Enabled:=False, Criteria:="RegistryHeader.NettoAmountRemaining=0 and isnull(RegistryHeader.NettoAmountRemaining)=False", Context:="Any")> _
+<RuleCriteria("RuleCriteria RegistryRowsFinancialControlling-Controlling", DefaultContexts.Save, _
+        "(Controlling.IsParent=False) or (RegistryHeader.RegistryType.Rule5DMatrix.RequireControlling=False and isnull(Controlling)=True)", _
+    "Gyüjtõ kontrollszám nem választható ki!", SkipNullOrEmptyValues:=False)> _
+<RuleCriteria("RuleCriteria RegistryRowsFinancialControlling-Controlling-II", "aCreateContractsRowsfromControllingRows", _
+    "(Controlling.IsParent=False) or (RegistryHeader.RegistryType.Rule5DMatrix.RequireControlling=False and isnull(Controlling)=True)", _
+    "Gyüjtõ kontrollszám nem választható ki!", SkipNullOrEmptyValues:=False)> _
+Public Class RegistryRowsFinancialControlling
+    Inherits BaseObject
+    Private _RegistryHeader As RegistryHeader 'Iktatás fejléce 
+    Private _ChoiceRowMode As eChoiceRowMode 'Szerzõdési sor vagy teljesítési igazolás sor kiválasztása
+    Private _DateExecution As Date 'Teljesítés dátuma
+    Private _ChartOfAccounts As ChartOfAccounts 'FK által beállított számlaszám <NonCloneable()> _
+    Private _Contracts As Contracts 'Szerzõdés fejléce<NonCloneable()> _
+    Private _ContractRows As ContractRows 'Szerzõdési sor<NonCloneable()> _
+    Private _PaymentOption As PaymentOption 'Fizetési mód
+    Private _Note As String 'Megjegyzés
+    Private _Amount As Double 'Nettó összeg<NonCloneable()> _
+
+    Private _Controlling As Controlling 'Kontroll szám
+    Private _CostHolder As CostHolder 'Költségviselõ
+    Private _CostPlace As CostPlace 'Költséghely
+    Private _UniqueObjects As UniqueObjects 'Egyedi azonosító
+    Private _JobNumberObjects As JobNumberObjects 'Munkaszám, project
+
+    Private _File As FileData 'A beszkennelt telj. igazolás file<NonCloneable()> _
+    Private _IsReInvoice As Boolean '= False 'Tovább kell számlázni ?
+    Private _ReInvoice_Customers As Customers 'Kinek kell továbbszámlázni ?
+    Private _ReInvoice_ContractRows As ContractRows 'Milyen szerzõdési sor alapján <NonCloneable()> _
+    Private _ReInvoice_ExtraCharge As Double 'Mennyiért
+    Private _ReInvoice_Contracts As Contracts 'Melyik szerzõdésre hozza létre a sort amin ki lesz számlázva <NonCloneable()> _
+    Private _ReInvoiceMode As eReinvoiceMode 'Továbbszámlázás módja
+    Private _ReInvoiceReason As Controlling 'Továbbszámlázás jogcíme
+    Private _IsGuaranteeBack As Boolean '= False 'Van-e visszatartási garancia
+    Private _F_ReadyforBookEntryRows As Boolean '= False '<NonCloneable()> _
+    Private _WorkflowMessage As String 'Léptetéskori üzenet<NonCloneable()> _
+
+    Private _ConnectInfoAdvanced As String = "" 'Analitikus kötési szám az elõlegek pontozásához
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.ChoiceRowMode = eChoiceRowMode.eFromContractRows
+        If Me.RegistryHeader IsNot Nothing Then
+            Me.DateExecution = Me.RegistryHeader.F_DateExecution
+        End If
+        IsGuaranteeBack = False
+        F_ReadyforBookEntryRows = False
+        IsReInvoice = False
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If IsDeleted = False Then
+            If Me.ContractRows IsNot Nothing Then
+                Dim _CurrencyRate As Double = 1.0
+
+                If Math.Abs(Me.ContractRows.NettoPriceHUF) < Math.Abs(Me.Amount) Then
+                    If Math.Abs(Math.Abs(Me.ContractRows.NettoPriceHUF) - Math.Abs(Me.Amount)) > 5 Then
+                        Throw New Exception("*A leigazolni kívánt összeg meghaladja, az igazoláshoz felhasznált szerzõdési sor összegét, módosítsa a szerzõdési sort ! Iktatószám : " & Me.RegistryHeader.DocumentNumber)
+                    End If
+                End If
+                If Math.Abs(Me.ContractRows.NettoPriceHUF) > Math.Abs(Me.Amount) Then
+                    If Math.Abs(Math.Abs(Me.ContractRows.NettoPriceHUF) - Math.Abs(Me.Amount)) > 5 Then
+                        Throw New Exception("*A leigazoláshoz felhasználni kívánt szerzõdési sor összege meghaladja a számla sor összegét. Módosítsa a szerzõdési sort ! Iktatószám : " & Me.RegistryHeader.DocumentNumber)
+                    End If
+                End If
+            End If
+            If Me.RegistryHeader IsNot Nothing Then
+                If Me.DateExecution = Nothing Then
+                    Me.DateExecution = Me.RegistryHeader.F_DateExecution
+                End If
+            End If
+        End If
+    End Sub
+    Protected Overrides Sub OnDeleting()
+        MyBase.OnDeleting()
+        If Me.ContractRows IsNot Nothing Then
+            If Me.ContractRows.Contracts.ContractTemplate.IsTechnical Then
+                Me.ContractRows.Delete()
+            End If
+            If Me.ContractRows IsNot Nothing Then
+                Me.ContractRows.RegistryRowsFinancialControlling = Nothing
+            End If
+        End If
+        Dim _DeliveryNoteInRRFC_Collection As New XPCollection(Of DeliveryNoteInRRFC)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, CriteriaOperator.Parse("RegistryRowsFinancialControlling=?", Me))
+        Session.Delete(_DeliveryNoteInRRFC_Collection)
+    End Sub
+    <Association("RegistryHeader-RegistryRowsFinancialControlling", GetType(RegistryHeader))> _
+    Property RegistryHeader As RegistryHeader
+        Get
+            Return _RegistryHeader
+        End Get
+        Set(ByVal value As RegistryHeader)
+            SetPropertyValue("RegistryHeader", _RegistryHeader, value)
+            If Session.IsNewObject(Me) And Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Me.RegistryHeader IsNot Nothing Then
+                Me.Note = RegistryHeader.ShortName
+            End If
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property ChoiceRowMode As eChoiceRowMode
+        Get
+            Return _ChoiceRowMode
+        End Get
+        Set(ByVal value As eChoiceRowMode)
+            SetPropertyValue("ChoiceRowMode", _ChoiceRowMode, value)
+        End Set
+    End Property
+    Property DateExecution As Date
+        Get
+            Return _DateExecution.Date
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value.Date)
+        End Set
+    End Property
+    Property ConnectInfoAdvanced As String
+        Get
+            Return _ConnectInfoAdvanced
+        End Get
+        Set(value As String)
+            SetPropertyValue("ConnectInfoAdvanced", _ConnectInfoAdvanced, value)
+        End Set
+    End Property
+
+    '-Rule5DMatrix -------------------------------
+    <RuleRequiredField("RegistryRowsFinancialControlling-Controlling", DefaultContexts.Save, targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireControlling")> _
+    <RuleRequiredField("RegistryRowsFinancialControlling-Controlling_2", "aCreateContractsRowsfromControllingRows", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireControlling")> _
+    Property Controlling As Controlling
+        Get
+            Return _Controlling
+        End Get
+        Set(ByVal value As Controlling)
+            SetPropertyValue("Controlling", _Controlling, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.ContractRows IsNot Nothing Then
+                If Me.ContractRows.Controlling IsNot value Then
+                    Me.ContractRows.Controlling = value
+                    Me.ContractRows.Save()
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("RegistryRowsFinancialControlling-CostHolder", "aCreateContractsRowsfromControllingRows", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostHolder")> _
+    Property CostHolder As CostHolder
+        Get
+            Return _CostHolder
+        End Get
+        Set(ByVal value As CostHolder)
+            SetPropertyValue("CostHolder", _CostHolder, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.ContractRows IsNot Nothing Then
+                If Me.ContractRows.CostHolder IsNot value Then
+                    Me.ContractRows.CostHolder = value
+                    Me.ContractRows.Save()
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("RegistryRowsFinancialControlling-CostPlace", "aCreateContractsRowsfromControllingRows", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostPlace")> _
+    Property CostPlace As CostPlace
+        Get
+            Return _CostPlace
+        End Get
+        Set(ByVal value As CostPlace)
+            SetPropertyValue("CostPlace", _CostPlace, value)
+        End Set
+    End Property
+    <RuleRequiredField("RegistryRowsFinancialControlling-UniqueObjects", "aCreateContractsRowsfromControllingRows", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireUniqueObjects")> _
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(ByVal value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.ContractRows IsNot Nothing Then
+                If Me.ContractRows.UniqueObjects IsNot value Then
+                    Me.ContractRows.UniqueObjects = value
+                    Me.ContractRows.Save()
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("RegistryRowsFinancialControlling-JobNumberObjects", "aCreateContractsRowsfromControllingRows", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireJobNumberObjects")> _
+    Property JobNumberObjects As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(ByVal value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.ContractRows IsNot Nothing Then
+                If Me.ContractRows.JobNumberObjects IsNot value Then
+                    Me.ContractRows.JobNumberObjects = value
+                    Me.ContractRows.Save()
+                End If
+            End If
+        End Set
+    End Property
+
+
+    <NonCloneable()>
+    <ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
+    Property ChartOfAccounts As ChartOfAccounts
+        Get
+            Return _ChartOfAccounts
+        End Get
+        Set(ByVal value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
+        End Set
+    End Property
+    <NonPersistent()>
+    <NonCloneable()>
+    <ImmediatePostData(True), DataSourceCriteria("ContractTemplate.PartnerType=1 and Customers='@This.RegistryHeader.Customers' and CustomersFrom ='@This.RegistryHeader.CustomersFrom' AND ContractTemplate.IsTechnical=False AND (State = 1 OR State = 2)")>
+    Property Contracts As Contracts
+        Get
+            Return (_Contracts)
+        End Get
+        Set(ByVal value As Contracts)
+            SetPropertyValue("Contracts", _Contracts, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("Contracts='@This.Contracts' AND IsNull(RegistryRowsFinancialControlling)=TRue and CurrencyName.ShortName='@This.RegistryHeader.F_CurrencyName.ShortName'")>
+    <RuleRequiredField("RegistryRowsFinancialControlling.ContractRows", DefaultContexts.Save)>
+    <NonCloneable()>
+    Property ContractRows As ContractRows
+        Get
+            Return _ContractRows
+        End Get
+        Set(ByVal value As ContractRows)
+            SetPropertyValue("ContractRows", _ContractRows, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If value IsNot Nothing Then
+                    PaymentOption = value.PaymentOption
+                    Controlling = value.Controlling
+                    UniqueObjects = value.UniqueObjects
+                    Note = value.Description
+                    CostHolder = value.CostHolder
+                    CostPlace = value.CostPlace
+                    JobNumberObjects = value.JobNumberObjects
+
+                    If Me.RegistryHeader.F_CurrencyName.ShortName <> "HUF" Then
+                        Me.Amount = Math.Round(value.NettoPriceDEV * Me.RegistryHeader.F_CurrencyRate, 0, MidpointRounding.AwayFromZero)
+                        value.NettoPriceHUF = Math.Round(value.NettoPriceDEV * Me.RegistryHeader.F_CurrencyRate, 0, MidpointRounding.AwayFromZero)
+                        '-- Itt van egy SAVE !!!!! De ez kell !!!!!!
+                        value.Save()
+                    Else
+                        Me.Amount = value.NettoPriceHUF
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+    Property PaymentOption As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(ByVal value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+        End Set
+    End Property
+    Property Note As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Note", _Note, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.ContractRows IsNot Nothing Then
+                'If Not Me.ContractRows.ShortName = value Then
+                '    Me.ContractRows.ShortName = value
+                '    Me.ContractRows.Save()
+                'End If
+            End If
+        End Set
+    End Property
+    <NonCloneable()>
+    Property Amount As Double
+        Get
+            Return _Amount
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Amount", _Amount, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.ContractRows IsNot Nothing Then
+                If Me.ContractRows.NettoPriceHUF = value Then
+                    Me.ContractRows.NettoPriceHUF = value
+                    Me.ContractRows.NettoPriceHUF = Math.Round(Me.ContractRows.NettoPriceHUF, 2, MidpointRounding.AwayFromZero)
+                End If
+                value = Math.Round(value, 2, MidpointRounding.AwayFromZero)
+            End If
+        End Set
+    End Property
+    <NonCloneable()>
+    Property File As FileData
+        Get
+            Return _File
+        End Get
+        Set(ByVal value As FileData)
+            SetPropertyValue("File", _File, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)>
+    Property IsReInvoice As Boolean
+        Get
+            Return _IsReInvoice
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsReInvoice", _IsReInvoice, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)>
+    <RuleValueComparison("RegistryRowsFinancialControlling.ReInvoiceMode", DefaultContexts.Save, ValueComparisonType.NotEquals, eReinvoiceMode.eNotSet, TargetCriteria:="IsReInvoice = True")>
+    Property ReInvoiceMode As eReinvoiceMode
+        Get
+            Return _ReInvoiceMode
+        End Get
+        Set(ByVal value As eReinvoiceMode)
+            SetPropertyValue("ReinvoiceMode", _ReInvoiceMode, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("RegistryRowsFinancialControlling", DefaultContexts.Save, TargetCriteria:="IsReInvoice=True AND ReInvoiceMode=1")>
+    <ImmediatePostData(True), DataSourceCriteria("Controllingdirection = 0 And IsReInvoiceReason = True")>
+    Property ReInvoiceReason As Controlling
+        Get
+            Return _ReInvoiceReason
+        End Get
+        Set(ByVal value As Controlling)
+            SetPropertyValue("ReInvoiceReason", _ReInvoiceReason, value)
+        End Set
+    End Property
+    Property ReInvoice_Customers As Customers
+        Get
+            Return _ReInvoice_Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("ReInvoice_Customers", _ReInvoice_Customers, value)
+        End Set
+    End Property
+    <NonCloneable()>
+    <ImmediatePostData(True), DataSourceCriteria("Contracts.CustomersFrom = '@This.RegistryHeader.CustomersFrom' And Contracts.Customers = '@This.ReInvoice_Customers' And Contracts.ContractTemplate.PartnerType = 0")>
+    Property ReInvoice_ContractRows As ContractRows
+        Get
+            Return _ReInvoice_ContractRows
+        End Get
+        Set(ByVal value As ContractRows)
+            SetPropertyValue("ReInvoice_ContractRows", _ReInvoice_ContractRows, value)
+        End Set
+    End Property
+    Property ReInvoice_ExtraCharge As Double
+        Get
+            Return _ReInvoice_ExtraCharge
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("ReInvoice_ExtraCharge", _ReInvoice_ExtraCharge, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property IsGuaranteeBack As Boolean
+        Get
+            Return _IsGuaranteeBack
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsGuaranteeBack", _IsGuaranteeBack, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property F_ReadyforBookEntryRows As Boolean
+        Get
+            Return _F_ReadyforBookEntryRows
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("F_ReadyforBookEntryRows", _F_ReadyforBookEntryRows, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False), Size(-1)>
+    Property WorkflowMessage As String
+        Get
+            Return _WorkflowMessage
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("WorkflowMessage", _WorkflowMessage, value)
+        End Set
+    End Property
+
+    '------ReadOnly----------
+    <VisibleInListView(False)> _
+    ReadOnly Property RegistryBankTransfer As XPCollection(Of RegistryBankTransfer)
+        Get
+            Return New XPCollection(Of RegistryBankTransfer)(Session, CriteriaOperator.Parse("RegistryHeader=?", Me.RegistryHeader))
+        End Get
+    End Property
+    ReadOnly Property DisplayName As String
+        Get
+            If Me.RegistryHeader IsNot Nothing Then
+                Return Me.RegistryHeader.RegistryNumber & ", " & Me.RegistryHeader.DocumentNumber
+            Else
+                Return ""
+            End If
+        End Get
+    End Property
+End Class
+

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.Designer.vb

@@ -0,0 +1,65 @@
+Partial Class RegistryRowsFinancialControllingVC
+
+	<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.aOpenContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewRegistryNoTask = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aOpenContractRows
+        '
+        Me.aOpenContractRows.Caption = "OpenContractRows"
+        Me.aOpenContractRows.ConfirmationMessage = Nothing
+        Me.aOpenContractRows.Id = "aOpenContractRows"
+        Me.aOpenContractRows.ImageName = Nothing
+        Me.aOpenContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aOpenContractRows.Shortcut = Nothing
+        Me.aOpenContractRows.Tag = Nothing
+        Me.aOpenContractRows.TargetObjectsCriteria = Nothing
+        Me.aOpenContractRows.TargetViewId = "RegistryRowsFinancialControlling_DetailView"
+        Me.aOpenContractRows.ToolTip = Nothing
+        Me.aOpenContractRows.TypeOfView = Nothing
+        '
+        'aViewRegistryNoTask
+        '
+        Me.aViewRegistryNoTask.Caption = "aView Registry No Task"
+        Me.aViewRegistryNoTask.ConfirmationMessage = Nothing
+        Me.aViewRegistryNoTask.Id = "aViewRegistryNoTask"
+        Me.aViewRegistryNoTask.ImageName = Nothing
+        Me.aViewRegistryNoTask.Shortcut = Nothing
+        Me.aViewRegistryNoTask.Tag = Nothing
+        Me.aViewRegistryNoTask.TargetObjectsCriteria = Nothing
+        Me.aViewRegistryNoTask.TargetObjectType = GetType(Nuvolar.[Module].RegistryHeader)
+        Me.aViewRegistryNoTask.TargetViewId = Nothing
+        Me.aViewRegistryNoTask.ToolTip = Nothing
+        Me.aViewRegistryNoTask.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aOpenContractRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewRegistryNoTask As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.resx

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

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.vb

@@ -0,0 +1,165 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Data.Filtering
+Imports DevExpress.Xpo
+
+Public Class RegistryRowsFinancialControllingVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        If View.Id Like "RegistryRowsFinancialControlling_ListView_Reinvoice*" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+
+            'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
+            '    Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
+            '    If _RegistryHeader IsNot Nothing Then
+            '        Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryHeader)
+            '        'AddHandler _RegistryHeader.Changed, AddressOf RegistryHeader_RegistryRowsFinancialControlling_ListView_MasterObjectChanged
+
+            '        AddHandler View.ObjectSpace.ObjectChanged, AddressOf _RegistryRowsFinancialControlling_ListView_ObjectChanged
+            '        AddHandler View.ObjectSpace.ObjectSaved, AddressOf _RegistryRowsFinancialControlling_ListView_ObjectSaved
+            '        AddHandler View.ObjectSpace.ObjectReloaded, AddressOf _RegistryRowsFinancialControlling_ListView_ObjectReloaded
+            '        AddHandler View.ObjectSpace.ObjectDeleted, AddressOf _RegistryRowsFinancialControlling_ListView_ObjectDeleted
+            '    End If
+            'End If
+        End If
+        If View.Id = "RegistryHeader_ListView_Subcontractor" Then
+            Frame.GetController(Of RegistryRowsFinancialControllingVC).aViewRegistryNoTask.Active.SetItemValue("", False)
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id Like "RegistryRowsFinancialControlling_ListView_Reinvoice*" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+        End If
+        If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
+            '    Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
+            '    If _RegistryHeader IsNot Nothing Then
+            '        RemoveHandler _RegistryHeader.Changed, AddressOf RegistryHeader_RegistryRowsFinancialControlling_ListView_MasterObjectChanged
+            '    End If
+            'End If
+        End If
+        If View.Id = "RegistryHeader_ListView_Subcontractor" Then
+            Frame.GetController(Of RegistryRowsFinancialControllingVC).aViewRegistryNoTask.Active.SetItemValue("", True)
+        End If
+    End Sub
+
+    Private Sub aOpenContractRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOpenContractRows.Execute
+        Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(View.SelectedObjects(0), RegistryRowsFinancialControlling)
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+
+        e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _onew.GetObject(_RegistryRowsFinancialControlling.ContractRows.Contracts))
+    End Sub
+
+    Private Sub RegistryHeader_RegistryRowsFinancialControlling_ListView_MasterObjectChanged(sender As Object, e As DevExpress.Xpo.ObjectChangeEventArgs)
+        Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader)
+        Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryHeader)
+    End Sub
+
+    Private Sub _RegistryRowsFinancialControlling_ListView_ObjectChanged(sender As Object, e As DevExpress.ExpressApp.ObjectChangedEventArgs)
+        Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader)
+        Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(e.Object, RegistryRowsFinancialControlling)
+        If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryHeader)
+        If _RegistryRowsFinancialControlling IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryRowsFinancialControlling.RegistryHeader)
+    End Sub
+    Private Sub _RegistryRowsFinancialControlling_ListView_ObjectReloaded(sender As Object, e As ObjectManipulatingEventArgs)
+        Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader)
+        Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(e.Object, RegistryRowsFinancialControlling)
+        If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryHeader)
+        If _RegistryRowsFinancialControlling IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryRowsFinancialControlling.RegistryHeader)
+    End Sub
+    Private Sub _RegistryRowsFinancialControlling_ListView_ObjectSaved(sender As Object, e As ObjectManipulatingEventArgs)
+        Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader)
+        Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(e.Object, RegistryRowsFinancialControlling)
+        If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryHeader)
+        If _RegistryRowsFinancialControlling IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryRowsFinancialControlling.RegistryHeader)
+    End Sub
+    Private Sub _RegistryRowsFinancialControlling_ListView_ObjectDeleted(sender As Object, e As ObjectsManipulatingEventArgs)
+        If e.Objects.Count <= 0 Then Exit Sub
+        Dim _Object As Object = Nothing
+        For Each _Object In e.Objects
+
+        Next
+        Dim _RegistryHeader As RegistryHeader = TryCast(_Object, RegistryHeader)
+        Dim _RegistryRowsFinancial As RegistryRowsFinancial = TryCast(_Object, RegistryRowsFinancial)
+        If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryHeader)
+        If _RegistryRowsFinancial IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryRowsFinancial.RegistryHeader)
+    End Sub
+
+    Private Sub Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryHeader As RegistryHeader)
+        '// Mikor NE látszódjon a NEW action 
+        If _RegistryHeader Is Nothing Then Exit Sub
+        If _RegistryHeader.CurrentWorkflowSystemSteps Is Nothing Then Exit Sub
+
+        Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+        If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
+            If _RegistryHeader.IsEditable = True Then
+                If _RegistryHeader.BruttoAmountRemaining = 0 And _RegistryHeader.F_AmountBruttoHUF <> 0 Then
+                    If _RegistryHeader.NettoAmountRemaining <> 0 Then
+                        Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+                    End If
+                End If
+            End If
+        End If
+
+        '// Mikor NE látszódjon a törlés gomb
+        Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+        If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
+            If _RegistryHeader.IsEditable = True Then
+                Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            End If
+        End If
+
+
+    End Sub
+    Private Sub aViewRegistryNoTask_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistryNoTask.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _CS As New CollectionSource(_onew, GetType(RegistryHeader))
+
+        _CS.BeginUpdateCriteria()
+        _CS.Criteria.Clear()
+        _CS.Criteria("First") = CriteriaOperator.Parse("1=2")
+        _CS.EndUpdateCriteria()
+
+        Dim _RegistryHeader_Collection As New XPCollection(Of RegistryHeader)(_onew.Session, CriteriaOperator.Parse("RegistryType.RegistryMainType='eAccount' and RegistryAcceptState='eAccept' and CurrentWorkflowSystemSteps.IsLastStep=False"))
+        Dim _RegistryHeader As RegistryHeader
+        Dim _RegistryTasks As RegistryTasks
+
+        For Each _RegistryHeader In _RegistryHeader_Collection
+            _RegistryTasks = _onew.FindObject(Of RegistryTasks)(CriteriaOperator.Parse("RegistryHeader=? and Status in ('InProgress','NotStarted','WaitingForSomeoneElse')", _RegistryHeader))
+            If _RegistryTasks Is Nothing Then
+                _CS.Add(_RegistryHeader)
+            End If
+        Next
+
+        e.ShowViewParameters.CreatedView = Application.CreateListView("RegistryHeader_ListView_NoTask", _CS, True)
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.Designer.vb

@@ -0,0 +1,178 @@
+Partial Class RegistryTaskVC
+
+	<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.aRegistryTaskStateReset = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aRegistryEmailToResponsible = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTable_RRFC_With_TContract_RegistryTask = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTable_RRFC_RegistryTask = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTableD_RRFC_RegistryTask = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTable_RRFC_With_RContract_RegistryTask = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aImport_RRFC = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aPaymentCertificates = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aRegistryTaskStateReset
+        '
+        Me.aRegistryTaskStateReset.Caption = "Reset task state"
+        Me.aRegistryTaskStateReset.ConfirmationMessage = Nothing
+        Me.aRegistryTaskStateReset.Id = "aRegistryTaskStateReset"
+        Me.aRegistryTaskStateReset.ImageName = Nothing
+        Me.aRegistryTaskStateReset.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aRegistryTaskStateReset.Shortcut = Nothing
+        Me.aRegistryTaskStateReset.Tag = Nothing
+        Me.aRegistryTaskStateReset.TargetObjectsCriteria = Nothing
+        Me.aRegistryTaskStateReset.TargetViewId = Nothing
+        Me.aRegistryTaskStateReset.ToolTip = Nothing
+        Me.aRegistryTaskStateReset.TypeOfView = Nothing
+        '
+        'aRegistryEmailToResponsible
+        '
+        Me.aRegistryEmailToResponsible.Caption = "aRegistry Email To Responsible"
+        Me.aRegistryEmailToResponsible.ConfirmationMessage = Nothing
+        Me.aRegistryEmailToResponsible.Id = "aRegistryEmailToResponsible"
+        Me.aRegistryEmailToResponsible.ImageName = Nothing
+        Me.aRegistryEmailToResponsible.Shortcut = Nothing
+        Me.aRegistryEmailToResponsible.Tag = Nothing
+        Me.aRegistryEmailToResponsible.TargetObjectsCriteria = Nothing
+        Me.aRegistryEmailToResponsible.TargetViewId = Nothing
+        Me.aRegistryEmailToResponsible.ToolTip = Nothing
+        Me.aRegistryEmailToResponsible.TypeOfView = Nothing
+        '
+        'aToTable_RRFC_With_TContract_RegistryTask
+        '
+        Me.aToTable_RRFC_With_TContract_RegistryTask.Caption = "aToTable_RRFC_With_TContract_RegistryTask"
+        Me.aToTable_RRFC_With_TContract_RegistryTask.Category = "aToTable_RRFC_With_TContract_RegistryTask"
+        Me.aToTable_RRFC_With_TContract_RegistryTask.ConfirmationMessage = Nothing
+        Me.aToTable_RRFC_With_TContract_RegistryTask.Id = "aToTable_RRFC_With_TContract_RegistryTask"
+        Me.aToTable_RRFC_With_TContract_RegistryTask.ImageName = Nothing
+        Me.aToTable_RRFC_With_TContract_RegistryTask.Shortcut = Nothing
+        Me.aToTable_RRFC_With_TContract_RegistryTask.Tag = Nothing
+        Me.aToTable_RRFC_With_TContract_RegistryTask.TargetObjectsCriteria = Nothing
+        Me.aToTable_RRFC_With_TContract_RegistryTask.TargetObjectType = GetType(Nuvolar.[Module].RegistryTasks)
+        Me.aToTable_RRFC_With_TContract_RegistryTask.TargetViewId = Nothing
+        Me.aToTable_RRFC_With_TContract_RegistryTask.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aToTable_RRFC_With_TContract_RegistryTask.ToolTip = Nothing
+        Me.aToTable_RRFC_With_TContract_RegistryTask.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aToTable_RRFC_RegistryTask
+        '
+        Me.aToTable_RRFC_RegistryTask.Caption = "aToTable_RRFC_RegistryTask"
+        Me.aToTable_RRFC_RegistryTask.Category = "aToTable_RRFC_RegistryTask"
+        Me.aToTable_RRFC_RegistryTask.ConfirmationMessage = Nothing
+        Me.aToTable_RRFC_RegistryTask.Id = "aToTable_RRFC_RegistryTask"
+        Me.aToTable_RRFC_RegistryTask.ImageName = Nothing
+        Me.aToTable_RRFC_RegistryTask.Shortcut = Nothing
+        Me.aToTable_RRFC_RegistryTask.Tag = Nothing
+        Me.aToTable_RRFC_RegistryTask.TargetObjectsCriteria = Nothing
+        Me.aToTable_RRFC_RegistryTask.TargetObjectType = GetType(Nuvolar.[Module].RegistryTasks)
+        Me.aToTable_RRFC_RegistryTask.TargetViewId = Nothing
+        Me.aToTable_RRFC_RegistryTask.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aToTable_RRFC_RegistryTask.ToolTip = Nothing
+        Me.aToTable_RRFC_RegistryTask.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aToTableD_RRFC_RegistryTask
+        '
+        Me.aToTableD_RRFC_RegistryTask.Caption = "aToTableD_RRFC_RegistryTask"
+        Me.aToTableD_RRFC_RegistryTask.Category = "aToTableD_RRFC_RegistryTask"
+        Me.aToTableD_RRFC_RegistryTask.ConfirmationMessage = Nothing
+        Me.aToTableD_RRFC_RegistryTask.Id = "aToTableD_RRFC_RegistryTask"
+        Me.aToTableD_RRFC_RegistryTask.ImageName = Nothing
+        Me.aToTableD_RRFC_RegistryTask.Shortcut = Nothing
+        Me.aToTableD_RRFC_RegistryTask.Tag = Nothing
+        Me.aToTableD_RRFC_RegistryTask.TargetObjectsCriteria = Nothing
+        Me.aToTableD_RRFC_RegistryTask.TargetObjectType = GetType(Nuvolar.[Module].RegistryTasks)
+        Me.aToTableD_RRFC_RegistryTask.TargetViewId = Nothing
+        Me.aToTableD_RRFC_RegistryTask.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aToTableD_RRFC_RegistryTask.ToolTip = Nothing
+        Me.aToTableD_RRFC_RegistryTask.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aToTable_RRFC_With_RContract_RegistryTask
+        '
+        Me.aToTable_RRFC_With_RContract_RegistryTask.AcceptButtonCaption = Nothing
+        Me.aToTable_RRFC_With_RContract_RegistryTask.CancelButtonCaption = Nothing
+        Me.aToTable_RRFC_With_RContract_RegistryTask.Caption = "aToTable_RRFC_With_RContract_RegistryTask"
+        Me.aToTable_RRFC_With_RContract_RegistryTask.Category = "aToTable_RRFC_With_RContract_RegistryTask"
+        Me.aToTable_RRFC_With_RContract_RegistryTask.ConfirmationMessage = Nothing
+        Me.aToTable_RRFC_With_RContract_RegistryTask.Id = "aToTable_RRFC_With_RContract_RegistryTask"
+        Me.aToTable_RRFC_With_RContract_RegistryTask.ImageName = Nothing
+        Me.aToTable_RRFC_With_RContract_RegistryTask.Shortcut = Nothing
+        Me.aToTable_RRFC_With_RContract_RegistryTask.Tag = Nothing
+        Me.aToTable_RRFC_With_RContract_RegistryTask.TargetObjectsCriteria = Nothing
+        Me.aToTable_RRFC_With_RContract_RegistryTask.TargetObjectType = GetType(Nuvolar.[Module].RegistryTasks)
+        Me.aToTable_RRFC_With_RContract_RegistryTask.TargetViewId = Nothing
+        Me.aToTable_RRFC_With_RContract_RegistryTask.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aToTable_RRFC_With_RContract_RegistryTask.ToolTip = Nothing
+        Me.aToTable_RRFC_With_RContract_RegistryTask.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aImport_RRFC
+        '
+        Me.aImport_RRFC.AcceptButtonCaption = Nothing
+        Me.aImport_RRFC.CancelButtonCaption = Nothing
+        Me.aImport_RRFC.Caption = "aImport_RRFC"
+        Me.aImport_RRFC.Category = "aImport_RRFC"
+        Me.aImport_RRFC.ConfirmationMessage = Nothing
+        Me.aImport_RRFC.Id = "aImport_RRFC"
+        Me.aImport_RRFC.ImageName = Nothing
+        Me.aImport_RRFC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aImport_RRFC.Shortcut = Nothing
+        Me.aImport_RRFC.Tag = Nothing
+        Me.aImport_RRFC.TargetObjectsCriteria = Nothing
+        Me.aImport_RRFC.TargetObjectType = GetType(Nuvolar.[Module].RegistryTasks)
+        Me.aImport_RRFC.TargetViewId = ""
+        Me.aImport_RRFC.ToolTip = Nothing
+        Me.aImport_RRFC.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aPaymentCertificates
+        '
+        Me.aPaymentCertificates.AcceptButtonCaption = Nothing
+        Me.aPaymentCertificates.CancelButtonCaption = Nothing
+        Me.aPaymentCertificates.Caption = "aPayment Certificates"
+        Me.aPaymentCertificates.Category = "aPaymentCertificates"
+        Me.aPaymentCertificates.ConfirmationMessage = Nothing
+        Me.aPaymentCertificates.Id = "aPaymentCertificates"
+        Me.aPaymentCertificates.ImageName = Nothing
+        Me.aPaymentCertificates.Shortcut = Nothing
+        Me.aPaymentCertificates.Tag = Nothing
+        Me.aPaymentCertificates.TargetObjectsCriteria = Nothing
+        Me.aPaymentCertificates.TargetObjectType = GetType(Nuvolar.[Module].RegistryTasks)
+        Me.aPaymentCertificates.TargetViewId = Nothing
+        Me.aPaymentCertificates.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aPaymentCertificates.ToolTip = Nothing
+        Me.aPaymentCertificates.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+
+    End Sub
+    Friend WithEvents aRegistryTaskStateReset As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTable_RRFC_With_TContract_RegistryTask As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTable_RRFC_RegistryTask As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTableD_RRFC_RegistryTask As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTable_RRFC_With_RContract_RegistryTask As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aImport_RRFC As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aRegistryEmailToResponsible As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aPaymentCertificates As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.resx

@@ -0,0 +1,147 @@
+<?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="aRegistryTaskStateReset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="aRegistryEmailToResponsible.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aToTable_RRFC_With_TContract_RegistryTask.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>200, 17</value>
+  </metadata>
+  <metadata name="aToTable_RRFC_RegistryTask.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>227, 56</value>
+  </metadata>
+  <metadata name="aToTableD_RRFC_RegistryTask.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>435, 56</value>
+  </metadata>
+  <metadata name="aToTable_RRFC_With_RContract_RegistryTask.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>663, 17</value>
+  </metadata>
+  <metadata name="aImport_RRFC.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>651, 56</value>
+  </metadata>
+  <metadata name="aPaymentCertificates.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>497, 17</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.vb

@@ -0,0 +1,649 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.CloneObject
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.ExpressApp.Utils
+
+Public Class RegistryTaskVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event DoWork()
+    Public Event FinalWork
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        Frame.GetController(Of RegistryTaskVC).aRegistryTaskStateReset.Active.SetItemValue("", False)
+        Frame.GetController(Of RegistryTaskVC).aRegistryEmailToResponsible.Active.SetItemValue("", False)
+
+
+        If View.Id Like "RegistryTasks_ListView*" Or View.Id Like "RegistryHeader_ListView*" Then
+            Frame.GetController(Of RegistryTaskVC).aRegistryEmailToResponsible.Active.SetItemValue("", True)
+        End If
+        If View.Id = "RegistryTasks_DetailView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
+            If _RegistryTasks IsNot Nothing Then
+                If _RegistryTasks.Status = General.TaskStatus.Completed Then
+                    Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+                End If
+            End If
+        End If
+        If View.Id = "RegistryHeader_RegistryTasks_ListView" Then
+            If TryCast(SecuritySystem.CurrentUser, User).UserName = "SysAdmin" Then
+                Frame.GetController(Of RegistryTaskVC).aRegistryTaskStateReset.Active.SetItemValue("", True)
+            End If
+        End If
+        If View.Id = "DeliveryNoteInRows_ListView_Certificate_HUF" Or
+            View.Id = "DeliveryNoteInRows_ListView_Certificate_DEV" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "RegistryTasks_DetailView" Then
+            Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+        End If
+        If View.Id = "DeliveryNoteInRows_ListView_Certificate_HUF" Or
+          View.Id = "DeliveryNoteInRows_ListView_Certificate_DEV" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+        End If
+    End Sub
+    Private Sub aRegistryTaskStateReset_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRegistryTaskStateReset.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
+
+        If _RegistryTasks IsNot Nothing Then
+            If _RegistryTasks.Status = 4 Then
+                _RegistryTasks.Status = 0
+            Else
+                _RegistryTasks.Status = 4
+            End If
+            _ocur.CommitChanges()
+        End If
+    End Sub
+    Private Sub aToTable_RRFC_RegistryTask_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRFC_RegistryTask.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
+        Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
+
+        If _RegistryTasks IsNot Nothing Then
+            If _RegistryTasks.RegistryHeader IsNot Nothing Then
+                _RegistryRowsFinancialControlling.ConnectInfoAdvanced = _RegistryTasks.row_ConnectInfoAdvanced
+                _RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)()
+                _RegistryRowsFinancialControlling.RegistryHeader = _RegistryTasks.RegistryHeader
+                _RegistryRowsFinancialControlling.ContractRows = _ocur.GetObject(_RegistryTasks.row_RRFC_ContractRows)
+                _RegistryRowsFinancialControlling.ContractRows.RegistryRowsFinancialControlling = _RegistryRowsFinancialControlling
+                _RegistryRowsFinancialControlling.Amount = _RegistryTasks.row_RRFC_Amount
+
+                _RegistryRowsFinancialControlling.Controlling = _RegistryTasks.row_RRFC_Controlling
+                _RegistryRowsFinancialControlling.CostHolder = _RegistryTasks.row_RRFC_CostHolder
+                _RegistryRowsFinancialControlling.CostPlace = _RegistryTasks.row_RRFC_CostPlace
+                _RegistryRowsFinancialControlling.Note = _RegistryTasks.row_RRFC_Note
+                _RegistryRowsFinancialControlling.JobNumberObjects = _RegistryTasks.row_RRFC_JobNumberObjects
+                _RegistryRowsFinancialControlling.UniqueObjects = _RegistryTasks.row_RRFC_UniqueObjects
+
+                _RegistryRowsFinancialControlling.File = _RegistryTasks.row_RRFC_File
+                If _RegistryTasks.row_RRFC_IsReInvoice = True Then
+                    _RegistryRowsFinancialControlling.IsReInvoice = _RegistryTasks.row_RRFC_IsReInvoice
+                    _RegistryRowsFinancialControlling.ReInvoice_Customers = _RegistryTasks.row_RRFC_ReInvoice_Customers
+                    _RegistryRowsFinancialControlling.ReInvoiceMode = _RegistryTasks.row_RRFC_ReInvoiceMode
+                    _RegistryRowsFinancialControlling.ReInvoiceReason = _RegistryTasks.row_RRFC_ReInvoiceReason
+                End If
+                _ocur.CommitChanges()
+
+                View.Refresh()
+
+                _RegistryTasks.row_RRFC_Amount = _RegistryTasks.RegistryHeader.NettoAmountRemaining
+            End If
+        End If
+    End Sub
+    Private Sub aToTable_RRFC_With_TContract_RegistryTask_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRFC_With_TContract_RegistryTask.Execute
+        '// Technikai szerzõdés sor + Táblázatba beadás !!!
+
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
+
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
+        Dim _TechnicalContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _RegistryTasks.RegistryHeader.CustomersFrom))
+
+        Dim _Contracts As Contracts = _ocur.FindObject(Of Contracts)(CriteriaOperator.Parse("CustomersFrom=? AND Customers=? AND ContractTemplate=?", _RegistryTasks.RegistryHeader.CustomersFrom, _RegistryTasks.RegistryHeader.Customers, _TechnicalContractTemplate))
+        Dim _ContractRows As ContractRows
+
+        Dim _RegistryRowsFinancial As RegistryRowsFinancial
+        Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
+        Dim _TechnicalLimitAmount As Double = _RegistryTasks.row_RRFC_Controlling.TechnicalContractLimit
+        If _TechnicalLimitAmount = 0 Then _TechnicalLimitAmount = 200000
+
+        If _RegistryTasks.row_RRFC_Amount <= _TechnicalLimitAmount Then
+            If _Contracts Is Nothing Then
+                _Contracts = _ocur.CreateObject(Of Contracts)()
+                _Contracts.CustomersFrom = _RegistryTasks.RegistryHeader.CustomersFrom
+                _Contracts.Customers = _RegistryTasks.RegistryHeader.Customers
+                _Contracts.ContractTemplate = _TechnicalContractTemplate
+                _Contracts.DateCreated = _RegistryTasks.RegistryHeader.F_DateCreated
+                _Contracts.DateExecution = _RegistryTasks.RegistryHeader.F_DateExecution
+                _Contracts.DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator)
+                _Contracts.State = State.Signed
+            End If
+
+            _ContractRows = _ocur.CreateObject(Of ContractRows)()
+            _ContractRows.Contracts = _Contracts
+            _ContractRows.CurrencyName = _RegistryTasks.RegistryHeader.F_CurrencyName
+            _ContractRows.ContractRowsType = eContractRowsType.eFix
+            _ContractRows.DateExecution = _RegistryTasks.RegistryHeader.F_DateExecution
+            _ContractRows.Controlling = _RegistryTasks.row_RRFC_Controlling
+            If _RegistryTasks.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then
+                _ContractRows.NettoPriceHUF = _RegistryTasks.row_RRFC_Amount
+            Else
+                If _RegistryTasks.RegistryHeader.F_CurrencyRate <> 0 Then
+                    _ContractRows.NettoPriceDEV = _RegistryTasks.row_RRFC_Amount / _RegistryTasks.RegistryHeader.F_CurrencyRate
+                Else
+                    _ContractRows.NettoPriceDEV = 0
+                End If
+                _ContractRows.NettoPriceHUF = _RegistryTasks.row_RRFC_Amount
+            End If
+            _ContractRows.ShortName = _RegistryTasks.row_RRFC_Note
+
+
+            'IDE KELL VALAMI ÁFA !
+
+            For Each _RegistryRowsFinancial In _RegistryTasks.RegistryHeader.RegistryRowsFinancial
+                _ContractRows.VAT = _RegistryRowsFinancial.VAT
+                Exit For
+            Next
+
+            _ContractRows.UniqueObjects = _RegistryTasks.row_RRFC_UniqueObjects
+            _ContractRows.CostHolder = _RegistryTasks.row_RRFC_CostHolder
+            _ContractRows.CostPlace = _RegistryTasks.row_RRFC_CostPlace
+            _ContractRows.Controlling = _RegistryTasks.row_RRFC_Controlling
+            _ContractRows.JobNumberObjects = _RegistryTasks.row_RRFC_JobNumberObjects
+
+            _RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)()
+            _RegistryRowsFinancialControlling.RegistryHeader = _RegistryTasks.RegistryHeader
+            _RegistryRowsFinancialControlling.ContractRows = _ContractRows
+            _RegistryRowsFinancialControlling.Amount = _RegistryTasks.row_RRFC_Amount
+            _RegistryRowsFinancialControlling.Controlling = _RegistryTasks.row_RRFC_Controlling
+            _RegistryRowsFinancialControlling.CostHolder = _RegistryTasks.row_RRFC_CostHolder
+            _RegistryRowsFinancialControlling.CostPlace = _RegistryTasks.row_RRFC_CostPlace
+            _RegistryRowsFinancialControlling.Note = _RegistryTasks.row_RRFC_Note
+            _RegistryRowsFinancialControlling.JobNumberObjects = _RegistryTasks.row_RRFC_JobNumberObjects
+            _RegistryRowsFinancialControlling.UniqueObjects = _RegistryTasks.row_RRFC_UniqueObjects
+            _RegistryRowsFinancialControlling.ConnectInfoAdvanced = _RegistryTasks.row_ConnectInfoAdvanced
+
+            If _RegistryTasks.row_RRFC_IsReInvoice = True Then
+                _RegistryRowsFinancialControlling.IsReInvoice = _RegistryTasks.row_RRFC_IsReInvoice
+                _RegistryRowsFinancialControlling.ReInvoice_Customers = _RegistryTasks.row_RRFC_ReInvoice_Customers
+                _RegistryRowsFinancialControlling.ReInvoiceMode = _RegistryTasks.row_RRFC_ReInvoiceMode
+                _RegistryRowsFinancialControlling.ReInvoiceReason = _RegistryTasks.row_RRFC_ReInvoiceReason
+            End If
+
+            _ContractRows.RegistryRowsFinancialControlling = _RegistryRowsFinancialControlling
+
+            _ocur.CommitChanges()
+
+            View.Refresh()
+
+            _RegistryTasks.row_RRFC_Amount = _RegistryTasks.RegistryHeader.NettoAmountRemaining
+        Else
+            '-------!!!!!!!TESZT MIATT!!!!!------------------------------------------
+            Dim _Message As String = String.Format("Technikai limit van beállítva ! {0}", _TechnicalLimitAmount)
+            Throw New Exception(_Message)
+        End If
+    End Sub
+    Private Sub aToTableD_RRFC_RegistryTask_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_RRFC_RegistryTask.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
+        Dim _ListView_RRF As ListPropertyEditor
+        Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
+        Dim _ContractRows_ArrayList As New ArrayList
+
+        If _RegistryTasks IsNot Nothing Then
+            _ListView_RRF = TryCast(View, DetailView).FindItem("RegistryRowsFinancialControlling")
+            If _ListView_RRF IsNot Nothing Then
+                For Each _RegistryRowsFinancialControlling In _ListView_RRF.ListView.SelectedObjects
+                    If _RegistryRowsFinancialControlling.ContractRows IsNot Nothing Then
+                        If _RegistryRowsFinancialControlling.ContractRows.Contracts IsNot Nothing Then
+                            If _RegistryRowsFinancialControlling.ContractRows.Contracts.ContractTemplate.IsTechnical Then
+                                _ContractRows_ArrayList.Add(_RegistryRowsFinancialControlling.ContractRows)
+                            End If
+                        End If
+                    End If
+                Next
+                _ocur.Delete(_ListView_RRF.ListView.SelectedObjects)
+                _ocur.Delete(_ContractRows_ArrayList)
+                _ocur.CommitChanges()
+
+                View.Refresh()
+            End If
+        End If
+    End Sub
+    Private Sub aToTable_RRFC_With_RContract_RegistryTask_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aToTable_RRFC_With_RContract_RegistryTask.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
+
+        Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(Contracts))
+
+        _CS.BeginUpdateCriteria()
+        _CS.Criteria.Add("Filter1", CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and ContractTemplate.PartnerType=1 and ContractTemplate.IsTechnical=False and (State = 1 OR State = 2)", _RegistryTasks.RegistryHeader.CustomersFrom.Oid, _RegistryTasks.RegistryHeader.Customers.Oid))
+        _CS.EndUpdateCriteria()
+
+        e.View = Application.CreateListView("Contracts_Finder_Payables", _CS, False)
+    End Sub
+    Private Sub aToTable_RRFC_With_RContract_RegistryTask_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aToTable_RRFC_With_RContract_RegistryTask.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
+        Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
+        Dim _Contracts As Contracts = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), Contracts))
+        Dim _ContractRows As ContractRows
+        If _Contracts Is Nothing Then Exit Sub
+
+        If _RegistryTasks IsNot Nothing And _Contracts IsNot Nothing Then
+
+            _ContractRows = _ocur.CreateObject(Of ContractRows)()
+            _ContractRows.Contracts = _Contracts
+            _ContractRows.ContractRowsType = eContractRowsType.eFix
+            _ContractRows.DateExecution = _RegistryTasks.RegistryHeader.F_DateExecution
+            _ContractRows.Controlling = _RegistryTasks.row_RRFC_Controlling
+            _ContractRows.CurrencyName = _RegistryTasks.RegistryHeader.F_CurrencyName
+            _ContractRows.NettoPriceHUF = _RegistryTasks.row_RRFC_Amount
+            If Not _ContractRows.CurrencyName.ShortName = "HUF" Then
+                If _RegistryTasks.RegistryHeader.F_CurrencyRate <> 0 Then
+                    _ContractRows.NettoPriceDEV = Math.Round(_RegistryTasks.row_RRFC_Amount / _RegistryTasks.RegistryHeader.F_CurrencyRate, 2, MidpointRounding.AwayFromZero)
+                End If
+            End If
+            _ContractRows.ShortName = _RegistryTasks.row_RRFC_Note
+
+            If _RegistryTasks.RegistryHeader.RegistryRowsFinancial.Count > 0 Then
+                _ContractRows.VAT = TryCast(_RegistryTasks.RegistryHeader.RegistryRowsFinancial(0), RegistryRowsFinancial).VAT
+            End If
+            _ContractRows.CostHolder = _RegistryTasks.row_RRFC_CostHolder
+            _ContractRows.CostPlace = _RegistryTasks.row_RRFC_CostPlace
+            _ContractRows.Controlling = _RegistryTasks.row_RRFC_Controlling
+            _ContractRows.JobNumberObjects = _RegistryTasks.row_RRFC_JobNumberObjects
+            _ContractRows.UniqueObjects = _RegistryTasks.row_RRFC_UniqueObjects
+
+            _ContractRows.QTT = 1
+            _ContractRows.Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes=True"))
+
+            _RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)()
+            _RegistryRowsFinancialControlling.RegistryHeader = _RegistryTasks.RegistryHeader
+            _RegistryRowsFinancialControlling.ContractRows = _ContractRows
+            _RegistryRowsFinancialControlling.Amount = _RegistryTasks.row_RRFC_Amount
+            _RegistryRowsFinancialControlling.Controlling = _RegistryTasks.row_RRFC_Controlling
+            _RegistryRowsFinancialControlling.CostHolder = _RegistryTasks.row_RRFC_CostHolder
+            _RegistryRowsFinancialControlling.CostPlace = _RegistryTasks.row_RRFC_CostPlace
+            _RegistryRowsFinancialControlling.Note = _RegistryTasks.row_RRFC_Note
+            _RegistryRowsFinancialControlling.JobNumberObjects = _RegistryTasks.row_RRFC_JobNumberObjects
+            _RegistryRowsFinancialControlling.UniqueObjects = _RegistryTasks.row_RRFC_UniqueObjects
+            _RegistryRowsFinancialControlling.ConnectInfoAdvanced = _RegistryTasks.row_ConnectInfoAdvanced
+
+            If _RegistryTasks.row_RRFC_IsReInvoice = True Then
+                _RegistryRowsFinancialControlling.IsReInvoice = _RegistryTasks.row_RRFC_IsReInvoice
+                _RegistryRowsFinancialControlling.ReInvoice_Customers = _RegistryTasks.row_RRFC_ReInvoice_Customers
+                _RegistryRowsFinancialControlling.ReInvoiceMode = _RegistryTasks.row_RRFC_ReInvoiceMode
+                _RegistryRowsFinancialControlling.ReInvoiceReason = _RegistryTasks.row_RRFC_ReInvoiceReason
+            End If
+
+            _ContractRows.RegistryRowsFinancialControlling = _RegistryRowsFinancialControlling
+
+            _ocur.CommitChanges()
+
+        End If
+        If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
+            Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+        End If
+    End Sub
+    Private Sub aImport_RRFC_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImport_RRFC.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
+            If _RegistryTasks Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
+            Dim _RegistryRowsFinancialControllingTemplatePopup As RegistryRowsFinancialControllingTemplatePopup = _onew.CreateObject(Of RegistryRowsFinancialControllingTemplatePopup)()
+            _RegistryRowsFinancialControllingTemplatePopup.MasterKey = Guid.NewGuid
+            _RegistryRowsFinancialControllingTemplatePopup.CustomersFrom = _onew.GetObject(_RegistryTasks.CustomersFrom)
+            _RegistryRowsFinancialControllingTemplatePopup.Customers = _onew.GetObject(_RegistryTasks.Customers)
+
+            e.View = Application.CreateDetailView(_onew, "RegistryRowsFinancialControllingTemplatePopup_DetailView", False, _RegistryRowsFinancialControllingTemplatePopup)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+    Private Sub aImport_RRFC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImport_RRFC.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
+            Dim _RegistryRowsFinancialControllingTemplatePopup As RegistryRowsFinancialControllingTemplatePopup = TryCast(e.PopupWindow.View.SelectedObjects(0), RegistryRowsFinancialControllingTemplatePopup)
+            Dim _ListView_RegistryRowsFinancialControlling As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("RegistryRowsFinancialControlling")
+            If _ListView_RegistryRowsFinancialControlling Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
+
+            Dim _RegistryRowsFinancialControlling_Template As RegistryRowsFinancialControlling = TryCast(_ListView_RegistryRowsFinancialControlling.ListView.SelectedObjects(0), RegistryRowsFinancialControlling)
+            If _RegistryRowsFinancialControlling_Template Is Nothing Then Throw New Exception("*Nem lett kijelölve egy igazolási sablon sem!")
+            If _ListView_RegistryRowsFinancialControlling.ListView.SelectedObjects.Count > 1 Then Throw New Exception("*Egynél több igazolási sablon lett kijelölve, nem lehet egyértelmûen meghatározni az igazolási sablont!")
+
+            _RegistryTasks.row_RRFC_Amount = _RegistryRowsFinancialControlling_Template.Amount
+            _RegistryTasks.row_RRFC_Contracts = _ocur.GetObject(_RegistryRowsFinancialControlling_Template.ContractRows.Contracts)
+            If _RegistryRowsFinancialControlling_Template.ContractRows.RegistryRowsFinancialControlling Is Nothing Then
+                _RegistryTasks.row_RRFC_ContractRows = _ocur.GetObject(_RegistryRowsFinancialControlling_Template.ContractRows)
+            Else
+                _RegistryTasks.row_RRFC_ContractRows = Nothing
+            End If
+            _RegistryTasks.row_RRFC_Controlling = _ocur.GetObject(_RegistryRowsFinancialControlling_Template.Controlling)
+            _RegistryTasks.row_RRFC_CostHolder = _ocur.GetObject(_RegistryRowsFinancialControlling_Template.CostHolder)
+            _RegistryTasks.row_RRFC_CostPlace = _ocur.GetObject(_RegistryRowsFinancialControlling_Template.CostPlace)
+            _RegistryTasks.row_RRFC_JobNumberObjects = _ocur.GetObject(_RegistryRowsFinancialControlling_Template.JobNumberObjects)
+            _RegistryTasks.row_RRFC_UniqueObjects = _ocur.GetObject(_RegistryRowsFinancialControlling_Template.UniqueObjects)
+            _RegistryTasks.row_RRFC_Note = _RegistryRowsFinancialControlling_Template.Note
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
+        End Try
+
+
+
+
+        'Try
+        '    Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+        '    Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
+        '    Dim _RegistryRowsFinancialControlling_Template As RegistryRowsFinancialControlling = Nothing
+        '    Dim _RegistryRowsFinancialControllingTemplatePopup As RegistryRowsFinancialControllingTemplatePopup = TryCast(e.PopupWindow.View.SelectedObjects(0), RegistryRowsFinancialControllingTemplatePopup)
+        '    Dim _ListView_RegistryHeader As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("RegistryHeader")
+
+        '    If _ListView_RegistryHeader Is Nothing Then Exit Sub
+
+        '    Dim _RegistryHeader_Template As RegistryHeader = TryCast(_ListView_RegistryHeader.ListView.SelectedObjects(0), RegistryHeader)
+
+        '    If _RegistryHeader_Template Is Nothing Then Exit Sub
+
+        '    _RegistryHeader_Template = _ocur.GetObjectByKey(Of RegistryHeader)(_RegistryHeader_Template.Oid)
+
+        '    Select Case _RegistryRowsFinancialControllingTemplatePopup.RRFCT_Type
+        '        Case eRRFCT_Type.eTechnical
+
+        '            'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
+
+        '            Dim _TechnicalContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _
+        '                                                                _RegistryRowsFinancialControllingTemplatePopup.CustomersFrom))
+        '            Dim _Contracts As Contracts = _ocur.FindObject(Of Contracts)(CriteriaOperator.Parse("CustomersFrom=? AND Customers=? AND ContractTemplate=?", _RegistryHeader_Template.CustomersFrom, _
+        '                                         _RegistryHeader_Template.Customers, _TechnicalContractTemplate))
+        '            Dim _ContractRows As ContractRows
+
+        '            If _TechnicalContractTemplate IsNot Nothing Then
+        '                If _Contracts Is Nothing Then
+        '                    _Contracts = _ocur.CreateObject(Of Contracts)()
+        '                    _Contracts.CustomersFrom = _RegistryTasks.RegistryHeader.CustomersFrom
+        '                    _Contracts.Customers = _RegistryTasks.RegistryHeader.Customers
+        '                    _Contracts.ContractTemplate = _TechnicalContractTemplate
+        '                    _Contracts.DateCreated = _RegistryTasks.RegistryHeader.F_DateCreated
+        '                    _Contracts.DateExecution = _RegistryTasks.RegistryHeader.F_DateExecution
+        '                    _Contracts.DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator)
+        '                    _Contracts.State = State.Signed
+        '                End If
+
+        '                For Each _RegistryRowsFinancialControlling_Template In _RegistryHeader_Template.RegistryRowsFinancialControlling
+        '                    _ContractRows = _ocur.CreateObject(Of ContractRows)()
+        '                    _ContractRows.Contracts = _Contracts
+        '                    _ContractRows.CurrencyName = _RegistryTasks.RegistryHeader.F_CurrencyName
+        '                    _ContractRows.ContractRowsType = eContractRowsType.eFix
+        '                    _ContractRows.DateExecution = _RegistryTasks.RegistryHeader.F_DateExecution
+        '                    _ContractRows.Controlling = _RegistryRowsFinancialControlling_Template.Controlling
+        '                    _ContractRows.NettoPriceDEV = 0
+        '                    _ContractRows.NettoPriceHUF = 0
+        '                    _ContractRows.ShortName = _RegistryRowsFinancialControlling_Template.Note
+
+        '                    'IDE KELL VALAMI ÁFA !
+
+        '                    For Each _RegistryRowsFinancial In _RegistryTasks.RegistryHeader.RegistryRowsFinancial
+        '                        _ContractRows.VAT = _RegistryRowsFinancial.VAT
+        '                        Exit For
+        '                    Next
+
+        '                    _ContractRows.UniqueObjects = _RegistryRowsFinancialControlling_Template.UniqueObjects
+        '                    _ContractRows.CostHolder = _RegistryRowsFinancialControlling_Template.CostHolder
+        '                    _ContractRows.CostPlace = _RegistryRowsFinancialControlling_Template.CostPlace
+        '                    _ContractRows.Controlling = _RegistryRowsFinancialControlling_Template.Controlling
+        '                    _ContractRows.JobNumberObjects = _RegistryRowsFinancialControlling_Template.JobNumberObjects
+
+        '                    _RegistryRowsFinancialControlling_Template = _ocur.CreateObject(Of RegistryRowsFinancialControlling)()
+        '                    _RegistryRowsFinancialControlling_Template.RegistryHeader = _RegistryTasks.RegistryHeader
+        '                    _RegistryRowsFinancialControlling_Template.ContractRows = _ContractRows
+        '                    _RegistryRowsFinancialControlling_Template.Amount = 0
+        '                    _RegistryRowsFinancialControlling_Template.Controlling = _RegistryRowsFinancialControlling_Template.Controlling
+        '                    _RegistryRowsFinancialControlling_Template.CostHolder = _RegistryRowsFinancialControlling_Template.CostHolder
+        '                    _RegistryRowsFinancialControlling_Template.CostPlace = _RegistryRowsFinancialControlling_Template.CostPlace
+        '                    _RegistryRowsFinancialControlling_Template.Note = _RegistryRowsFinancialControlling_Template.Note
+        '                    _RegistryRowsFinancialControlling_Template.JobNumberObjects = _RegistryRowsFinancialControlling_Template.JobNumberObjects
+        '                    _RegistryRowsFinancialControlling_Template.UniqueObjects = _RegistryRowsFinancialControlling_Template.UniqueObjects
+
+        '                    If _RegistryTasks.row_RRFC_IsReInvoice = True Then
+        '                        _RegistryRowsFinancialControlling_Template.IsReInvoice = _RegistryRowsFinancialControlling_Template.IsReInvoice
+        '                        _RegistryRowsFinancialControlling_Template.ReInvoice_Customers = _RegistryRowsFinancialControlling_Template.ReInvoice_Customers
+        '                        _RegistryRowsFinancialControlling_Template.ReInvoiceMode = _RegistryRowsFinancialControlling_Template.ReInvoiceMode
+        '                        _RegistryRowsFinancialControlling_Template.ReInvoiceReason = _RegistryRowsFinancialControlling_Template.ReInvoiceReason
+        '                    End If
+
+        '                    _ocur.CommitChanges()
+        '                Next
+        '            End If
+        '        Case eRRFCT_Type.eReal
+
+
+        '    End Select
+
+        '_ocur.CommitChanges()
+    End Sub
+    Private Sub aRegistryEmailToResponsible_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRegistryEmailToResponsible.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _User As User = TryCast(SecuritySystem.CurrentUser, User)
+        Dim _HRPerson As HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("User.Oid=?", _User.Oid))
+        Dim _HRResponsible As HRPerson
+        Dim _Body As String
+        Dim _Subject As String
+
+        If View.SelectedObjects.Count <= 0 Then Exit Sub
+
+        If TryCast(View.SelectedObjects(0), RegistryHeader) IsNot Nothing Then
+            '// Ha RegistryHeader az objektum
+            Dim _RegistryHeader As RegistryHeader
+
+            For Each _RegistryHeader In View.SelectedObjects
+                _HRResponsible = _RegistryHeader.HRResponsible
+
+                _Subject = "Nuvolar tájékoztatás"
+                _Body = "Cég : " & _RegistryHeader.CustomersFrom.FullName
+                _Body += vbNewLine & "Partner : " & _RegistryHeader.Customers.FullName
+                _Body += vbNewLine & "Iktatás tipusa : " & _RegistryHeader.RegistryType.ShortName
+                _Body += vbNewLine & "Iktatószám : " & _RegistryHeader.RegistryNumber
+                _Body += vbNewLine & vbNewLine & "Téma : " & _RegistryHeader.ShortName
+
+
+                SendSMTPMail(_ocur, _HRPerson, _HRResponsible.Email, _Subject, _Body)
+
+            Next
+
+
+        End If
+
+        If TryCast(View.SelectedObjects(0), RegistryTasks) IsNot Nothing Then
+            '// Ha RegistryTask az objektum
+            Dim _RegistryTasks As RegistryTasks
+
+            For Each _RegistryTasks In View.SelectedObjects
+                _HRResponsible = _RegistryTasks.RegistryHeader.HRResponsible
+
+                _Subject = "Nuvolar tájékoztatás"
+                _Body = "Cég : " & _RegistryTasks.RegistryHeader.CustomersFrom.FullName
+                _Body += vbNewLine & "Partner : " & _RegistryTasks.RegistryHeader.Customers.FullName
+                _Body += vbNewLine & "Iktatás tipusa : " & _RegistryTasks.RegistryHeader.RegistryType.ShortName
+                _Body += vbNewLine & "Iktatószám : " & _RegistryTasks.RegistryHeader.RegistryNumber
+                _Body += vbNewLine & vbNewLine & "Téma : " & _RegistryTasks.RegistryHeader.ShortName
+
+
+                SendSMTPMail(_ocur, _HRPerson, _HRResponsible.Email, _Subject, _Body)
+
+            Next
+
+        End If
+
+
+    End Sub
+    Private Sub aPaymentCertificates_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aPaymentCertificates.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _RegistryTasks As RegistryTasks = _onew.GetObjectByKey(Of RegistryTasks)(TryCast(View.SelectedObjects(0), RegistryTasks).Oid)
+            Dim _DeliveryNoteInRows_CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(DeliveryNoteInRows))
+
+            _DeliveryNoteInRows_CollectionSource.BeginUpdateCriteria()
+            _DeliveryNoteInRows_CollectionSource.Criteria.Add("1", CriteriaOperator.Parse("DeliveryNoteInHeader.Customers.Oid=? AND DeliveryNoteInHeader.CurrencyName.Oid=?", _RegistryTasks.Customers.Oid, _RegistryTasks.RegistryHeader.F_CurrencyName.Oid))
+            _DeliveryNoteInRows_CollectionSource.EndUpdateCriteria()
+
+            For Each _DeliveryNoteInRows As DeliveryNoteInRows In _DeliveryNoteInRows_CollectionSource.Collection
+                _DeliveryNoteInRows.QTT_Process = 0 '_DeliveryNoteInRows.QTT - _DeliveryNoteInRows.QTT_Controlled
+                If _RegistryTasks.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then
+                    _DeliveryNoteInRows.controlled_ListPrice = _DeliveryNoteInRows.ListPriceHUF
+                    If _DeliveryNoteInRows.ListPriceHUF <> 0 Then _DeliveryNoteInRows.controlled_DiscountPercent = (_DeliveryNoteInRows.DiscountPriceHUF / _DeliveryNoteInRows.ListPriceHUF) * 100
+                Else
+                    _DeliveryNoteInRows.controlled_ListPrice = _DeliveryNoteInRows.ListPriceDEV
+                    If _DeliveryNoteInRows.ListPriceDEV <> 0 Then _DeliveryNoteInRows.controlled_DiscountPercent = (_DeliveryNoteInRows.DiscountPriceDEV / _DeliveryNoteInRows.ListPriceDEV) * 100
+                End If
+            Next
+
+            If _RegistryTasks.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then
+                e.View = Application.CreateListView("DeliveryNoteInRows_ListView_Certificate_HUF", _DeliveryNoteInRows_CollectionSource, False)
+            Else
+                e.View = Application.CreateListView("DeliveryNoteInRows_ListView_Certificate_DEV", _DeliveryNoteInRows_CollectionSource, False)
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+    Private Sub aPaymentCertificates_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aPaymentCertificates.Execute
+        '// Szállítólevél pontozása számlaigazoláshoz !
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
+
+            If _RegistryTasks.row_RRFC_Controlling Is Nothing Then Throw New Exception("*Nincs beállítva kontrolszám!")
+
+            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+
+            Dim _TechnicalContractTemplate As ContractTemplate = _onew.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _onew.GetObject(_RegistryTasks.RegistryHeader.CustomersFrom)))
+            Dim _TechnicalLimitAmount As Double = _RegistryTasks.row_RRFC_Controlling.TechnicalContractLimit
+            If _TechnicalLimitAmount = 0 Then _TechnicalLimitAmount = 200000
+
+            Dim _Contracts As Contracts = _onew.FindObject(Of Contracts)(CriteriaOperator.Parse("CustomersFrom=? AND Customers=? AND ContractTemplate=?", _onew.GetObject(_RegistryTasks.RegistryHeader.CustomersFrom), _
+                                                                                                _onew.GetObject(_RegistryTasks.RegistryHeader.Customers), _TechnicalContractTemplate))
+
+            If _Contracts Is Nothing Then
+                _Contracts = _onew.CreateObject(Of Contracts)()
+                With _Contracts
+                    .CustomersFrom = _onew.GetObject(_RegistryTasks.RegistryHeader.CustomersFrom)
+                    .Customers = _onew.GetObject(_RegistryTasks.RegistryHeader.Customers)
+                    .ContractTemplate = _TechnicalContractTemplate
+                    .DateCreated = _onew.GetObject(_RegistryTasks.RegistryHeader.F_DateCreated)
+                    .DateExecution = _onew.GetObject(_RegistryTasks.RegistryHeader.F_DateExecution)
+                    .DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator)
+                    .State = State.Signed
+                End With
+            End If
+            RaiseEvent InitWork(1, 1, e.PopupWindow.View.SelectedObjects.Count)
+            For Each _DeliveryNoteInRows As DeliveryNoteInRows In TryCast(e.PopupWindow.View, ListView).CollectionSource.Collection
+                RaiseEvent DoWork()
+                If _DeliveryNoteInRows.QTT_Process > 0 And _DeliveryNoteInRows.QTT_Process <= _DeliveryNoteInRows.QTT Then
+                    Dim _ContractRows As New ContractRows(_onew.Session)
+                    With _ContractRows
+                        .Contracts = _Contracts
+                        .CurrencyName = _onew.GetObject(_RegistryTasks.RegistryHeader.F_CurrencyName)
+                        .ContractRowsType = eContractRowsType.eFix
+                        .DateExecution = _RegistryTasks.RegistryHeader.F_DateExecution
+                        .Controlling = _onew.GetObject(_RegistryTasks.row_RRFC_Controlling)
+                        If _RegistryTasks.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then
+                            .NettoPriceHUF = _DeliveryNoteInRows.controlled_SumPrice
+                        Else
+                            If _RegistryTasks.RegistryHeader.F_CurrencyRate <> 0 Then
+                                .NettoPriceDEV = _DeliveryNoteInRows.controlled_SumPrice
+                            Else
+                                .NettoPriceDEV = 0
+                            End If
+                            .NettoPriceHUF = _DeliveryNoteInRows.controlled_SumPrice * _RegistryTasks.RegistryHeader.F_CurrencyRate
+                        End If
+                        .ShortName = _DeliveryNoteInRows.Products.ShortName
+                        .VAT = _onew.GetObject(_DeliveryNoteInRows.VAT)
+
+                        .UniqueObjects = _onew.GetObject(_RegistryTasks.row_RRFC_UniqueObjects)
+                        .CostHolder = _onew.GetObject(_RegistryTasks.row_RRFC_CostHolder)
+                        .CostPlace = _onew.GetObject(_RegistryTasks.row_RRFC_CostPlace)
+                        .Controlling = _onew.GetObject(_RegistryTasks.row_RRFC_Controlling)
+                        .JobNumberObjects = _onew.GetObject(_RegistryTasks.row_RRFC_JobNumberObjects)
+                    End With
+
+                    Dim _RegistryRowsFinancialControlling As New RegistryRowsFinancialControlling(_onew.Session)
+                    With _RegistryRowsFinancialControlling
+                        .RegistryHeader = _onew.GetObject(_RegistryTasks.RegistryHeader)
+                        .ContractRows = _ContractRows
+                        .Amount = .ContractRows.NettoPriceHUF
+                        .Controlling = _onew.GetObject(_RegistryTasks.row_RRFC_Controlling)
+                        .CostHolder = _onew.GetObject(_RegistryTasks.row_RRFC_CostHolder)
+                        .CostPlace = _onew.GetObject(_RegistryTasks.row_RRFC_CostPlace)
+                        .Note = _RegistryTasks.row_RRFC_Note
+                        .JobNumberObjects = _onew.GetObject(_RegistryTasks.row_RRFC_JobNumberObjects)
+                        .UniqueObjects = _onew.GetObject(_RegistryTasks.row_RRFC_UniqueObjects)
+
+                        If _RegistryTasks.row_RRFC_IsReInvoice = True Then
+                            .IsReInvoice = _RegistryTasks.row_RRFC_IsReInvoice
+                            .ReInvoice_Customers = _onew.GetObject(_RegistryTasks.row_RRFC_ReInvoice_Customers)
+                            .ReInvoiceMode = _RegistryTasks.row_RRFC_ReInvoiceMode
+                            .ReInvoiceReason = _RegistryTasks.row_RRFC_ReInvoiceReason
+                        End If
+                    End With
+
+                    _ContractRows.RegistryRowsFinancialControlling = _RegistryRowsFinancialControlling
+
+                    Dim _DeliveryNoteInRRFC As New DeliveryNoteInRRFC(_onew.Session)
+                    With (_DeliveryNoteInRRFC)
+                        .DeliveryNoteInRows = _onew.GetObjectByKey(Of DeliveryNoteInRows)(_DeliveryNoteInRows.Oid)
+                        .RegistryRowsFinancialControlling = _RegistryRowsFinancialControlling
+                        .QTT_Controlled = _DeliveryNoteInRows.QTT_Process
+                    End With
+                End If
+            Next
+            _onew.CommitChanges()
+            RaiseEvent FinalWork
+            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+
+            '// ObjectSpace frissítése ...
+            If Frame.GetController(Of RefreshController)() IsNot Nothing Then
+                If Frame.GetController(Of RefreshController).RefreshAction IsNot Nothing Then
+                    If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
+                        Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+                    End If
+                End If
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTasks.vb

@@ -0,0 +1,351 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+'<EditorStateRuleAttribute("Disable all properties whenStatus=Completed", "RegistryHeader;HRPerson;CurrentWorkflowSystemSteps", EditorState.Disabled, "Status=4", ViewType.DetailView)> _
+
+<DefaultClassOptions()> _
+<NavigationItem("FinancialTransactions")> _
+<Appearance("Disable all properties whenStatus=Completed",
+                   TargetItems:="RegistryHeader;HRPerson;CurrentWorkflowSystemSteps",
+                   Criteria:="Status=4",
+                   Enabled:=False,
+                   Context:="DetailView")> _
+<Appearance("Hide financial infos2 when RegistryHeader.RegistryType.RegistryMainType in (1,3,4,5)",
+                  AppearanceItemType:="LayoutItem", _
+                  criteria:="RegistryHeader.RegistryType.RegistryMainType in (1,3,4,5)",
+                  TargetItems:="RegistryRowsFinancial;RegistryRowsFinancialControlling",
+                  visibility:=Editors.ViewItemVisibility.Hide, _
+                          Context:="DetailView")> _
+<Appearance("Hide RRFC infos row_* RegistryTask",
+                  AppearanceItemType:="ViewItem",
+                  criteria:="(RegistryHeader.IsEditable=True) or (RegistryHeader.RegistryType.RegistryMainType in (1,3,4,5)) or " + _
+                            "(RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType in (0,1,3,4,5))", _
+                  TargetItems:="row_RRFC_ReInvoiceMode;row_RRFC_ReInvoice_Customers;row_RRFC_ReInvoiceReason;row_RRFC_IsReInvoice;row_RRFC_File;" + _
+                               "row_RRFC_JobNumberObjects;row_RRFC_UniqueObjects;row_RRFC_Controlling;row_RRFC_CostPlace;row_RRFC_CostHolder;" + _
+                               "row_RRFC_Note;row_RRFC_Amount;row_RRFC_ContractRows;row_RRFC_Contracts",
+                  visibility:=Editors.ViewItemVisibility.Hide, _
+                          Context:="DetailView")> _
+<Appearance("Hide RRFC infos Action RegistryTask",
+                  AppearanceItemType:="Action",
+                  criteria:="(RegistryHeader.IsEditable=True) or (RegistryHeader.RegistryType.RegistryMainType in (1,3,4,5)) or " +
+                            "(RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType in (0,1,3,4,5))", _
+                  TargetItems:="aToTable_RRFC_RegistryTask;aToTableD_RRFC_RegistryTask;aToTable_RRFC_With_TContract_RegistryTask;" +
+                               "aToTable_RRFC_With_RContract_RegistryTask;aPaymentCertificates;aImport_RRFC",
+                  visibility:=Editors.ViewItemVisibility.Hide, _
+                          Context:="DetailView")> _
+<Appearance("Hide ReInvoice info",
+                  AppearanceItemType:="ViewItem",
+                  targetitems:="row_RRFC_ReInvoiceReason;row_RRFC_ReInvoice_Customers;row_RRFC_ReInvoiceMode",
+                  criteria:="row_RRFC_IsReInvoice=False",
+                  visibility:=Editors.ViewItemVisibility.Hide, _
+                          Context:="DetailView")> _
+<Appearance("Hide RRF and RRFC when Invoice Advance Ask LayoutItem",
+                  AppearanceItemType:="LayoutItem",
+                  targetitems:="RegistryRowsFinancial;RegistryRowsFinancialControlling",
+                  criteria:="RegistryHeader.RegistryType.RegistryMainType=3",
+                  visibility:=Editors.ViewItemVisibility.Hide, _
+                          Context:="DetailView")> _
+<Appearance("Hide RRF and RRFC when Invoice Advance Ask Actions",
+                  AppearanceItemType:="Action",
+                  targetitems:="aToTable_RRFC_RegistryTask;aToTableD_RRFC_RegistryTask;aToTable_RRFC_With_TContract_RegistryTask;" + _
+                               "aToTable_RRFC_With_RContract_RegistryTask;aPaymentCertificates;aImport_RRFC",
+                  criteria:="RegistryHeader.RegistryType.RegistryMainType=3",
+                  visibility:=Editors.ViewItemVisibility.Hide, _
+                          Context:="DetailView")> _
+<Appearance("Hide RRFC aPaymentCertificates Action",
+                  AppearanceItemType:="Action",
+                  criteria:="isnull(row_RRFC_Controlling)=True",
+                  TargetItems:="aPaymentCertificates",
+                  visibility:=Editors.ViewItemVisibility.Hide, _
+                          Context:="DetailView")> _
+<Appearance("Disable ObjectCreatedRegistry all",
+                AppearanceItemType:="ViewItem",
+                   TargetItems:="ObjectCreatedRegistry",
+                   Criteria:="1=1",
+                   Enabled:=False)> _
+Public Class RegistryTasks '-- Registryhez task a feladatokhoz
+    Inherits Task
+    Private _RegistryHeader As RegistryHeader 'Iktatás fejléce
+    Private _HRPerson As HRPerson 'Felelõs
+    Private _CurrentWorkflowSystemSteps As WorkflowSystemSteps 'A feladat kiadásakor hol állt a rendszer
+
+
+    '// Nonpersistent propertyk a számlaigazoláshoz
+
+    Private _row_RRFC_Controlling As Controlling
+    Private _row_RRFC_CostPlace As CostPlace
+    Private _row_RRFC_CostHolder As CostHolder
+    Private _row_RRFC_Note As String
+    Private _row_RRFC_Amount As Double
+    Private _row_RRFC_Contracts As Contracts
+    Private _row_RRFC_ContractRows As ContractRows
+    Private _row_RRFC_UniqueObjects As UniqueObjects
+    Private _row_RRFC_JobNumberObjects As JobNumberObjects
+    Private _row_RRFC_File As FileData
+    Private _row_RRFC_IsReInvoice As Boolean = False
+    Private _row_RRFC_ReInvoiceReason As Controlling
+    Private _row_RRFC_ReInvoice_Customers As Customers
+    Private _row_RRFC_ReInvoiceMode As eReinvoiceMode
+    Private _row_ConnectInfoAdvanced As String 'Szállítói elõleg pontozási azonosító
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property RegistryHeader As RegistryHeader
+        Get
+            Return _RegistryHeader
+        End Get
+        Set(ByVal value As RegistryHeader)
+            SetPropertyValue("RegistryHeader", _RegistryHeader, value)
+
+        End Set
+    End Property
+    Property HRPerson As HRPerson
+        Get
+            Return _HRPerson
+        End Get
+        Set(ByVal value As HRPerson)
+            SetPropertyValue("HRPerson", _HRPerson, value)
+        End Set
+    End Property
+    Property CurrentWorkflowSystemSteps As WorkflowSystemSteps
+        Get
+            Return _CurrentWorkflowSystemSteps
+        End Get
+        Set(ByVal value As WorkflowSystemSteps)
+            SetPropertyValue("CurrentWorkflowSystemSteps", _CurrentWorkflowSystemSteps, value)
+        End Set
+    End Property
+    ReadOnly Property CustomersFrom As CustomersFrom
+        Get
+            If Me.RegistryHeader IsNot Nothing Then
+                Return Me.RegistryHeader.CustomersFrom
+            Else
+                Return Nothing
+            End If
+        End Get
+    End Property
+    ReadOnly Property Customers As Customers
+        Get
+            If Me.RegistryHeader IsNot Nothing Then
+                Return Me.RegistryHeader.Customers
+            Else
+                Return Nothing
+            End If
+        End Get
+    End Property
+
+    '// Nonpersistent propertyk RRFC igazoláshoz 
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False), ImmediatePostData(True)> _
+    <RuleRequiredField("RegistryTask-row_RRFC_Controlling", "aToTable_RRFC_RegistryTask_Contexts", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireControlling")> _
+    <RuleRequiredField("RegistryTask-row_RRFC_Controlling_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireControlling")> _
+    Property row_RRFC_Controlling As Controlling
+        Get
+            Return _row_RRFC_Controlling
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("row_RRFC_Controlling", _row_RRFC_Controlling, value)
+        End Set
+    End Property
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    <RuleRequiredField("RegistryTask-row_RRFC_CostPlace", "aToTable_RRFC_RegistryTask_Contexts", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostPlace")> _
+    <RuleRequiredField("RegistryTask-row_RRFC_CostPlace_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostPlace")> _
+    Property row_RRFC_CostPlace As CostPlace
+        Get
+            Return _row_RRFC_CostPlace
+        End Get
+        Set(value As CostPlace)
+            SetPropertyValue("row_RRFC_CostPlace", _row_RRFC_CostPlace, value)
+        End Set
+    End Property
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    <RuleRequiredField("RegistryTask-row_RRFC_CostHolder", "aToTable_RRFC_RegistryTask_Contexts", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostHolder")> _
+    <RuleRequiredField("RegistryTask-row_RRFC_CostHolder_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostHolder")> _
+    Property row_RRFC_CostHolder As CostHolder
+        Get
+            Return _row_RRFC_CostHolder
+        End Get
+        Set(value As CostHolder)
+            SetPropertyValue("row_RRFC_CostHolder", _row_RRFC_CostHolder, value)
+        End Set
+    End Property
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property row_RRFC_Note As String
+        Get
+            Return _row_RRFC_Note
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_RRFC_Note", _row_RRFC_Note, value)
+        End Set
+    End Property
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property row_RRFC_Amount As Double
+        Get
+            Return _row_RRFC_Amount
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_RRFC_Amount", _row_RRFC_Amount, value)
+        End Set
+    End Property
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
+    <ImmediatePostData(True), DataSourceCriteria("(State = 1 OR State = 2) and ContractTemplate.PartnerType=1 and ContractTemplate.IsTechnical=False and CurrencyName.ShortName='@This.RegistryHeader.F_CurrencyName.ShortName' and CustomersFrom='@This.RegistryHeader.CustomersFrom' and Customers='@This.RegistryHeader.Customers'")>
+    Property row_RRFC_Contracts As Contracts
+        Get
+            Return _row_RRFC_Contracts
+        End Get
+        Set(value As Contracts)
+            SetPropertyValue("row_RRFC_Contracts", _row_RRFC_Contracts, value)
+        End Set
+    End Property
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
+    <RuleRequiredField("RegistryTask-row_RRFC_RegistryTask_ContractRows", "aToTable_RRFC_RegistryTask_Contexts")>
+    <ImmediatePostData(True), DataSourceCriteria("(Contracts.State = 1 OR Contracts.State = 2) and Contracts.ContractTemplate.PartnerType=1 and Contracts.ContractTemplate.IsTechnical=False and IsNull(RegistryRowsFinancialControlling)=True and CurrencyName.ShortName='@This.RegistryHeader.F_CurrencyName.ShortName' and Contracts.CustomersFrom='@This.RegistryHeader.CustomersFrom' and Contracts.Customers='@This.RegistryHeader.Customers'")>
+    Property row_RRFC_ContractRows As ContractRows
+        Get
+            Return _row_RRFC_ContractRows
+        End Get
+        Set(value As ContractRows)
+            SetPropertyValue("row_RRFC_ContractRows", _row_RRFC_ContractRows, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If value IsNot Nothing Then
+
+                    row_RRFC_Controlling = value.Controlling
+                    row_RRFC_Note = value.Description
+                    row_RRFC_CostHolder = value.CostHolder
+                    row_RRFC_CostPlace = value.CostPlace
+                    row_RRFC_JobNumberObjects = value.JobNumberObjects
+                    row_RRFC_UniqueObjects = value.UniqueObjects
+
+                    If Me.RegistryHeader.F_CurrencyName.ShortName <> "HUF" Then
+                        row_RRFC_Amount = Math.Round(value.NettoPriceDEV * Me.RegistryHeader.F_CurrencyRate, 0, MidpointRounding.AwayFromZero)
+                    Else
+                        Me.row_RRFC_Amount = value.NettoPriceHUF
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
+    <RuleRequiredField("RegistryTask-row_RRFC_JobNumberObjects", "aToTable_RRFC_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireJobNumberObjects")>
+    <RuleRequiredField("RegistryTask-row_RRFC_JobNumberObjects_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireJobNumberObjects")>
+    Property row_RRFC_JobNumberObjects As JobNumberObjects
+        Get
+            Return _row_RRFC_JobNumberObjects
+        End Get
+        Set(value As JobNumberObjects)
+            SetPropertyValue("row_RRFC_JobNumberObjects", _row_RRFC_JobNumberObjects, value)
+        End Set
+    End Property
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
+    <RuleRequiredField("RegistryTask-row_RRFC_UniqueObjects", "aToTable_RRFC_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireUniqueObjects")>
+    <RuleRequiredField("RegistryTask-row_RRFC_UniqueObjects_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireUniqueObjects")>
+    Property row_RRFC_UniqueObjects As UniqueObjects
+        Get
+            Return _row_RRFC_UniqueObjects
+        End Get
+        Set(value As UniqueObjects)
+            SetPropertyValue("row_RRFC_UniqueObjects", _row_RRFC_UniqueObjects, value)
+        End Set
+    End Property
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
+    Property row_RRFC_File As FileData
+        Get
+            Return _row_RRFC_File
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("row_RRFC_File", _row_RRFC_File, value)
+        End Set
+    End Property
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
+    <ImmediatePostData()>
+    Property row_RRFC_IsReInvoice As Boolean
+        Get
+            Return _row_RRFC_IsReInvoice
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("row_RRFC_IsReInvoice", _row_RRFC_IsReInvoice, value)
+        End Set
+    End Property
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
+    <RuleRequiredField("RegistryTask-row_RRFC_ReInvoiceReason", "aToTable_RRFC_RegistryTask_Contexts", TargetCriteria:="row_RRFC_IsReInvoice=True AND row_RRFC_ReInvoiceMode=1")>
+    <RuleRequiredField("RegistryTask-row_RRFC_ReInvoiceReason_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", TargetCriteria:="row_RRFC_IsReInvoice=True AND row_RRFC_ReInvoiceMode=1")>
+    <RuleRequiredField("RegistryTask-row_RRFC_ReInvoiceReason_R", "aToTable_RRFC_With_RContract_RegistryTask_Contexts", TargetCriteria:="row_RRFC_IsReInvoice=True AND row_RRFC_ReInvoiceMode=1")>
+    <ImmediatePostData(True), DataSourceCriteria("Controllingdirection = 0 And IsReInvoiceReason = True")>
+    Property row_RRFC_ReInvoiceReason As Controlling
+        Get
+            Return _row_RRFC_ReInvoiceReason
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("row_RRFC_ReInvoiceReason", _row_RRFC_ReInvoiceReason, value)
+        End Set
+    End Property
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    <RuleRequiredField("RegistryTask-row_RRFC_ReInvoice_Customers", "aToTable_RRFC_RegistryTask_Contexts", TargetCriteria:="row_RRFC_IsReInvoice=True AND row_RRFC_ReInvoiceMode=1")> _
+    <RuleRequiredField("RegistryTask-row_RRFC_ReInvoice_Customers_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", TargetCriteria:="row_RRFC_IsReInvoice=True AND row_RRFC_ReInvoiceMode=1")> _
+    <RuleRequiredField("RegistryTask-row_RRFC_ReInvoice_Customers_R", "aToTable_RRFC_With_RContract_RegistryTask_Contexts", TargetCriteria:="row_RRFC_IsReInvoice=True AND row_RRFC_ReInvoiceMode=1")> _
+    Property row_RRFC_ReInvoice_Customers As Customers
+        Get
+            Return _row_RRFC_ReInvoice_Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("row_RRFC_ReInvoice_Customers", _row_RRFC_ReInvoice_Customers, value)
+        End Set
+    End Property
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    <ImmediatePostData(True)> _
+    <RuleValueComparison("RegistryTask-row_RRFC_ReInvoiceMode", "aToTable_RRFC_RegistryTask_Contexts", ValueComparisonType.NotEquals, eReinvoiceMode.eNotSet, TargetCriteria:="row_RRFC_IsReInvoice = True")> _
+    <RuleValueComparison("RegistryTask-row_RRFC_ReInvoiceMode_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", ValueComparisonType.NotEquals, eReinvoiceMode.eNotSet, TargetCriteria:="row_RRFC_IsReInvoice = True")> _
+    <RuleValueComparison("RegistryTask-row_RRFC_ReInvoiceMode_R", "aToTable_RRFC_With_RContract_RegistryTask_Contexts", ValueComparisonType.NotEquals, eReinvoiceMode.eNotSet, TargetCriteria:="row_RRFC_IsReInvoice = True")> _
+    Property row_RRFC_ReInvoiceMode As eReinvoiceMode
+        Get
+            Return _row_RRFC_ReInvoiceMode
+        End Get
+        Set(value As eReinvoiceMode)
+            SetPropertyValue("row_RRFC_ReInvoiceMode", _row_RRFC_ReInvoiceMode, value)
+        End Set
+    End Property
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False), ImmediatePostData(True)>
+    Property row_ConnectInfoAdvanced As String
+        Get
+            Return _row_ConnectInfoAdvanced
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_ConnectInfoAdvanced", _row_ConnectInfoAdvanced, value)
+        End Set
+    End Property
+    '---------------- Readonly property -------------------------------------------------
+    <VisibleInListView(False)> _
+    ReadOnly Property FileData_Collection As XPCollection(Of RegistryFileData)
+        Get
+            If Me.RegistryHeader Is Nothing Then
+                Return Nothing
+            Else
+                Return Me.RegistryHeader.RegistryFileData
+            End If
+
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property RegistryRowsFinancial As XPCollection(Of RegistryRowsFinancial)
+        Get
+            Return New XPCollection(Of RegistryRowsFinancial)(Session, CriteriaOperator.Parse("RegistryHeader=?", RegistryHeader))
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property RegistryRowsFinancialControlling As XPCollection(Of RegistryRowsFinancialControlling)
+        Get
+            Return New XPCollection(Of RegistryRowsFinancialControlling)(Session, CriteriaOperator.Parse("RegistryHeader=?", RegistryHeader))
+        End Get
+    End Property
+
+End Class
+

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryType.vb

@@ -0,0 +1,129 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+<DefaultClassOptions()> _
+<NavigationItem("GeneralStock")> _
+Public Class RegistryType '-- Iktató tipusok
+    Inherits BaseObject
+    Private _RegistryMainType As eRegistryMainType
+    Private _RegistryGLAccount As Boolean
+    Private _RegistryDirection As eRegistryDirection
+    Private _RegistryCRMType As eRegistryCRMType
+    Private _ShortName As String
+    Private _WorkflowSystem As WorkflowSystem
+    Private _NumberGenerator As NumberGenerator
+    Private _CustomersFrom As CustomersFrom
+    Private _DefaultDirectory As String 'Alapértelmezett könyvtár, ahonnan a csatolás menni fog
+    Private _Rule5DMatrix As Rule5DMatrix
+    Private _AutomaticSetResponsible As Boolean
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        RegistryGLAccount = False
+        Me.AutomaticSetResponsible = False
+    End Sub
+    Property RegistryGLAccount As Boolean
+        Get
+            Return _RegistryGLAccount
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("RegistryGLAccount", _RegistryGLAccount, value)
+        End Set
+    End Property
+    Property RegistryMainType As eRegistryMainType
+        Get
+            Return _RegistryMainType
+        End Get
+        Set(ByVal value As eRegistryMainType)
+            SetPropertyValue("RegistryMainType", _RegistryMainType, value)
+        End Set
+    End Property
+    Property RegistryDirection() As eRegistryDirection
+        Get
+            Return _RegistryDirection
+        End Get
+        Set(ByVal value As eRegistryDirection)
+            SetPropertyValue("RegistryDirection", _RegistryDirection, value)
+        End Set
+    End Property
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <RuleRequiredField("RegistryType-WorkflowSystem", DefaultContexts.Save)>
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")>
+    Property WorkflowSystem() As WorkflowSystem
+        Get
+            Return _WorkflowSystem
+        End Get
+        Set(ByVal value As WorkflowSystem)
+            SetPropertyValue("WorkflowSystem", _WorkflowSystem, value)
+        End Set
+    End Property
+    <RuleRequiredField("", DefaultContexts.Save)> _
+    Property NumberGenerator() As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(ByVal value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    <RuleRequiredField("RegistryType-CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property DefaultDirectory As String
+        Get
+            Return _DefaultDirectory
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DefaultDirectory", _DefaultDirectory, value)
+        End Set
+    End Property
+    Property RegistryCRMType As eRegistryCRMType
+        Get
+            Return _RegistryCRMType
+        End Get
+        Set(value As eRegistryCRMType)
+            SetPropertyValue("RegistryCRMType", _RegistryCRMType, value)
+        End Set
+    End Property
+    Property Rule5DMatrix As Rule5DMatrix
+        Get
+            Return _Rule5DMatrix
+        End Get
+        Set(value As Rule5DMatrix)
+            SetPropertyValue("Rule5DMatrix", _Rule5DMatrix, value)
+        End Set
+    End Property
+    Property AutomaticSetResponsible As Boolean
+        Get
+            Return _AutomaticSetResponsible
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("AutomaticSetResponsible", _AutomaticSetResponsible, value)
+        End Set
+    End Property
+End Class
+

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.Designer.vb

@@ -0,0 +1,306 @@
+Partial Class RegistryVC
+
+	<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.aRegistryGotoNextStep = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aRegistryTaskGroupGotoNextStep = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aPrintCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aGenerateCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aRegistryStorno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateTechnicalContractFromRegistry = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateContractsRowsfromControllingRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDocumentSentBack = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCreateReInvoiceContractRow = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aBankDivideRegistry = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aBankMergeRegistry = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aImportInvoiceAdvances = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aImportICInvoice = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aRegistrySetVATandNextStep = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aDocumentReturnfromSendBack = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aRegistryTaskGotoNextStep = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aOpenRegistryFromTask = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aPCICheck_RegistryHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aRegistrySetTemplate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aRegistryTaskGroupGotoNextStepWithGLAccount = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aViewPCIDW_RegistryHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aRegistryGotoNextStep
+        '
+        Me.aRegistryGotoNextStep.AcceptButtonCaption = Nothing
+        Me.aRegistryGotoNextStep.CancelButtonCaption = Nothing
+        Me.aRegistryGotoNextStep.Caption = "aRegistry Goto Next Step"
+        Me.aRegistryGotoNextStep.Category = "RecordsNavigation"
+        Me.aRegistryGotoNextStep.ConfirmationMessage = Nothing
+        Me.aRegistryGotoNextStep.Id = "aRegistryGotoNextStep"
+        Me.aRegistryGotoNextStep.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aRegistryGotoNextStep.TargetViewId = "RegistryHeader_DetailView"
+        Me.aRegistryGotoNextStep.ToolTip = Nothing
+        '
+        'aRegistryTaskGroupGotoNextStep
+        '
+        Me.aRegistryTaskGroupGotoNextStep.AcceptButtonCaption = Nothing
+        Me.aRegistryTaskGroupGotoNextStep.CancelButtonCaption = Nothing
+        Me.aRegistryTaskGroupGotoNextStep.Caption = "aRegistry Task Group Goto Next Step"
+        Me.aRegistryTaskGroupGotoNextStep.Category = "RecordsNavigation"
+        Me.aRegistryTaskGroupGotoNextStep.ConfirmationMessage = Nothing
+        Me.aRegistryTaskGroupGotoNextStep.Id = "aRegistryTaskGroupGotoNextStep"
+        Me.aRegistryTaskGroupGotoNextStep.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aRegistryTaskGroupGotoNextStep.TargetObjectsCriteria = "Status<>4"
+        Me.aRegistryTaskGroupGotoNextStep.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll
+        Me.aRegistryTaskGroupGotoNextStep.TargetViewId = ""
+        Me.aRegistryTaskGroupGotoNextStep.ToolTip = Nothing
+        Me.aRegistryTaskGroupGotoNextStep.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aPrintCOC
+        '
+        Me.aPrintCOC.Caption = "aPrint COC"
+        Me.aPrintCOC.Category = "View"
+        Me.aPrintCOC.ConfirmationMessage = "Do you want to execute command?"
+        Me.aPrintCOC.Id = "aPrintCOC"
+        Me.aPrintCOC.TargetViewId = "RegistryRowsFinancialControlling_DetailView"
+        Me.aPrintCOC.ToolTip = Nothing
+        '
+        'aGenerateCOC
+        '
+        Me.aGenerateCOC.Caption = "aGenerate COC"
+        Me.aGenerateCOC.Category = "ObjectsCreation"
+        Me.aGenerateCOC.ConfirmationMessage = "Do you want to execute command?"
+        Me.aGenerateCOC.Id = "aGenerateCOC"
+        Me.aGenerateCOC.TargetViewId = "RegistryRowsFinancialControlling_DetailView"
+        Me.aGenerateCOC.ToolTip = Nothing
+        '
+        'aRegistryStorno
+        '
+        Me.aRegistryStorno.Caption = "Registry Storno"
+        Me.aRegistryStorno.Category = "ObjectsCreation"
+        Me.aRegistryStorno.ConfirmationMessage = "Do you want to execute command?"
+        Me.aRegistryStorno.Id = "aRegistryStorno"
+        Me.aRegistryStorno.TargetViewId = "RegistryHeader_ListView"
+        Me.aRegistryStorno.ToolTip = Nothing
+        '
+        'aCreateTechnicalContractFromRegistry
+        '
+        Me.aCreateTechnicalContractFromRegistry.Caption = "Create Technical Contract"
+        Me.aCreateTechnicalContractFromRegistry.Category = "aCreateTechnicalContractFromRegistry"
+        Me.aCreateTechnicalContractFromRegistry.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aCreateTechnicalContractFromRegistry.Id = "aCreateTechnicalContractFromRegistry"
+        Me.aCreateTechnicalContractFromRegistry.TargetViewId = "RegistryRowsFinancialControlling_DetailView"
+        Me.aCreateTechnicalContractFromRegistry.ToolTip = Nothing
+        '
+        'aCreateContractsRowsfromControllingRows
+        '
+        Me.aCreateContractsRowsfromControllingRows.Caption = "Create rows"
+        Me.aCreateContractsRowsfromControllingRows.Category = "aCreateContractsRowsfromControllingRows"
+        Me.aCreateContractsRowsfromControllingRows.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aCreateContractsRowsfromControllingRows.Id = "aCreateContractsRowsfromControllingRows"
+        Me.aCreateContractsRowsfromControllingRows.TargetViewId = "RegistryRowsFinancialControlling_DetailView"
+        Me.aCreateContractsRowsfromControllingRows.ToolTip = Nothing
+        '
+        'aDocumentSentBack
+        '
+        Me.aDocumentSentBack.AcceptButtonCaption = Nothing
+        Me.aDocumentSentBack.CancelButtonCaption = Nothing
+        Me.aDocumentSentBack.Caption = "Send Back"
+        Me.aDocumentSentBack.Category = "RecordEdit"
+        Me.aDocumentSentBack.ConfirmationMessage = Nothing
+        Me.aDocumentSentBack.Id = "aDocumentSentBack"
+        Me.aDocumentSentBack.ImageName = "folder_out"
+        Me.aDocumentSentBack.ToolTip = Nothing
+        '
+        'aCreateReInvoiceContractRow
+        '
+        Me.aCreateReInvoiceContractRow.AcceptButtonCaption = Nothing
+        Me.aCreateReInvoiceContractRow.CancelButtonCaption = Nothing
+        Me.aCreateReInvoiceContractRow.Caption = "Create ReInvoice Contract Row"
+        Me.aCreateReInvoiceContractRow.ConfirmationMessage = Nothing
+        Me.aCreateReInvoiceContractRow.Id = "aCreateReInvoiceContractRow"
+        Me.aCreateReInvoiceContractRow.TargetViewId = "RegistryRowsFinancialControlling_ListView_Reinvoice_InDetail"
+        Me.aCreateReInvoiceContractRow.ToolTip = Nothing
+        '
+        'aBankDivideRegistry
+        '
+        Me.aBankDivideRegistry.AcceptButtonCaption = Nothing
+        Me.aBankDivideRegistry.CancelButtonCaption = Nothing
+        Me.aBankDivideRegistry.Caption = "Divide rows"
+        Me.aBankDivideRegistry.Category = "RecordEdit"
+        Me.aBankDivideRegistry.ConfirmationMessage = Nothing
+        Me.aBankDivideRegistry.Id = "aBankDivideRegistry"
+        Me.aBankDivideRegistry.ImageName = "row_add_after"
+        Me.aBankDivideRegistry.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBankDivideRegistry.TargetViewId = ""
+        Me.aBankDivideRegistry.ToolTip = Nothing
+        '
+        'aBankMergeRegistry
+        '
+        Me.aBankMergeRegistry.Caption = "aBankMergeRegistry"
+        Me.aBankMergeRegistry.Category = "ObjectsCreation"
+        Me.aBankMergeRegistry.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aBankMergeRegistry.Id = "aBankMergeRegistry"
+        Me.aBankMergeRegistry.ImageName = "row_delete"
+        Me.aBankMergeRegistry.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aBankMergeRegistry.TargetViewId = ""
+        Me.aBankMergeRegistry.ToolTip = Nothing
+        '
+        'aImportInvoiceAdvances
+        '
+        Me.aImportInvoiceAdvances.AcceptButtonCaption = Nothing
+        Me.aImportInvoiceAdvances.CancelButtonCaption = Nothing
+        Me.aImportInvoiceAdvances.Caption = "aImport Invoice Advances"
+        Me.aImportInvoiceAdvances.ConfirmationMessage = Nothing
+        Me.aImportInvoiceAdvances.Id = "aImportInvoiceAdvances"
+        Me.aImportInvoiceAdvances.TargetViewId = "RegistryHeader_DetailView_"
+        Me.aImportInvoiceAdvances.ToolTip = Nothing
+        '
+        'aImportICInvoice
+        '
+        Me.aImportICInvoice.AcceptButtonCaption = Nothing
+        Me.aImportICInvoice.CancelButtonCaption = Nothing
+        Me.aImportICInvoice.Caption = "Import IC Invoice"
+        Me.aImportICInvoice.ConfirmationMessage = Nothing
+        Me.aImportICInvoice.Id = "aImportICInvoice"
+        Me.aImportICInvoice.ImageName = "document_lock"
+        Me.aImportICInvoice.TargetViewId = "RegistryHeader_DetailView"
+        Me.aImportICInvoice.ToolTip = Nothing
+        '
+        'aRegistrySetVATandNextStep
+        '
+        Me.aRegistrySetVATandNextStep.AcceptButtonCaption = Nothing
+        Me.aRegistrySetVATandNextStep.CancelButtonCaption = Nothing
+        Me.aRegistrySetVATandNextStep.Caption = "Set VAT and next step"
+        Me.aRegistrySetVATandNextStep.Category = "RecordsNavigation"
+        Me.aRegistrySetVATandNextStep.ConfirmationMessage = Nothing
+        Me.aRegistrySetVATandNextStep.Id = "aRegistrySetVATandNextStep"
+        Me.aRegistrySetVATandNextStep.TargetViewId = ""
+        Me.aRegistrySetVATandNextStep.ToolTip = Nothing
+        '
+        'aDocumentReturnfromSendBack
+        '
+        Me.aDocumentReturnfromSendBack.Caption = "aDocument Returnfrom Send Back"
+        Me.aDocumentReturnfromSendBack.ConfirmationMessage = Nothing
+        Me.aDocumentReturnfromSendBack.Id = "aDocumentReturnfromSendBack"
+        Me.aDocumentReturnfromSendBack.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aDocumentReturnfromSendBack.TargetViewId = "RegistryHeader_ListView_SendBack"
+        Me.aDocumentReturnfromSendBack.ToolTip = Nothing
+        '
+        'aRegistryTaskGotoNextStep
+        '
+        Me.aRegistryTaskGotoNextStep.AcceptButtonCaption = Nothing
+        Me.aRegistryTaskGotoNextStep.CancelButtonCaption = Nothing
+        Me.aRegistryTaskGotoNextStep.Caption = "aRegistry Task Goto Next Step"
+        Me.aRegistryTaskGotoNextStep.Category = "RecordsNavigation"
+        Me.aRegistryTaskGotoNextStep.ConfirmationMessage = Nothing
+        Me.aRegistryTaskGotoNextStep.Id = "aRegistryTaskGotoNextStep"
+        Me.aRegistryTaskGotoNextStep.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aRegistryTaskGotoNextStep.TargetObjectsCriteria = "Status<>4"
+        Me.aRegistryTaskGotoNextStep.TargetObjectType = GetType(Nuvolar.[Module].RegistryTasks)
+        Me.aRegistryTaskGotoNextStep.TargetViewId = ""
+        Me.aRegistryTaskGotoNextStep.ToolTip = Nothing
+        Me.aRegistryTaskGotoNextStep.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aOpenRegistryFromTask
+        '
+        Me.aOpenRegistryFromTask.Caption = "aOpen Registry From Task"
+        Me.aOpenRegistryFromTask.ConfirmationMessage = Nothing
+        Me.aOpenRegistryFromTask.Id = "aOpenRegistryFromTask"
+        Me.aOpenRegistryFromTask.TargetObjectType = GetType(Nuvolar.[Module].RegistryTasks)
+        Me.aOpenRegistryFromTask.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aOpenRegistryFromTask.ToolTip = Nothing
+        Me.aOpenRegistryFromTask.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aPCICheck_RegistryHeader
+        '
+        Me.aPCICheck_RegistryHeader.Caption = "aPCICheck_RegistryHeader"
+        Me.aPCICheck_RegistryHeader.Category = "RecordEdit"
+        Me.aPCICheck_RegistryHeader.ConfirmationMessage = Nothing
+        Me.aPCICheck_RegistryHeader.Id = "aPCICheck_RegistryHeader"
+        Me.aPCICheck_RegistryHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aPCICheck_RegistryHeader.TargetObjectType = GetType(Nuvolar.[Module].RegistryHeader)
+        Me.aPCICheck_RegistryHeader.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aPCICheck_RegistryHeader.ToolTip = Nothing
+        Me.aPCICheck_RegistryHeader.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aRegistrySetTemplate
+        '
+        Me.aRegistrySetTemplate.Caption = "aRegistrySetTemplate"
+        Me.aRegistrySetTemplate.ConfirmationMessage = Nothing
+        Me.aRegistrySetTemplate.Id = "aRegistrySetTemplate"
+        Me.aRegistrySetTemplate.TargetObjectType = GetType(Nuvolar.[Module].RegistryHeader)
+        Me.aRegistrySetTemplate.ToolTip = Nothing
+        Me.aRegistrySetTemplate.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aRegistryTaskGroupGotoNextStepWithGLAccount
+        '
+        Me.aRegistryTaskGroupGotoNextStepWithGLAccount.AcceptButtonCaption = Nothing
+        Me.aRegistryTaskGroupGotoNextStepWithGLAccount.CancelButtonCaption = Nothing
+        Me.aRegistryTaskGroupGotoNextStepWithGLAccount.Caption = "aRegistry Task Group Goto Next Step With GLAccount"
+        Me.aRegistryTaskGroupGotoNextStepWithGLAccount.Category = "RecordsNavigation"
+        Me.aRegistryTaskGroupGotoNextStepWithGLAccount.ConfirmationMessage = Nothing
+        Me.aRegistryTaskGroupGotoNextStepWithGLAccount.Id = "aRegistryTaskGroupGotoNextStepWithGLAccount"
+        Me.aRegistryTaskGroupGotoNextStepWithGLAccount.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aRegistryTaskGroupGotoNextStepWithGLAccount.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll
+        Me.aRegistryTaskGroupGotoNextStepWithGLAccount.TargetObjectType = GetType(Nuvolar.[Module].RegistryTasks)
+        Me.aRegistryTaskGroupGotoNextStepWithGLAccount.TargetViewId = ""
+        Me.aRegistryTaskGroupGotoNextStepWithGLAccount.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aRegistryTaskGroupGotoNextStepWithGLAccount.ToolTip = Nothing
+        Me.aRegistryTaskGroupGotoNextStepWithGLAccount.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aViewPCIDW_RegistryHeader
+        '
+        Me.aViewPCIDW_RegistryHeader.Caption = "View detail"
+        Me.aViewPCIDW_RegistryHeader.ConfirmationMessage = Nothing
+        Me.aViewPCIDW_RegistryHeader.Id = "aViewPCIDW_RegistryHeader"
+        Me.aViewPCIDW_RegistryHeader.ImageName = "document_pinned"
+        Me.aViewPCIDW_RegistryHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewPCIDW_RegistryHeader.TargetObjectType = GetType(Nuvolar.[Module].RegistryHeader)
+        Me.aViewPCIDW_RegistryHeader.TargetViewId = ""
+        Me.aViewPCIDW_RegistryHeader.ToolTip = Nothing
+
+    End Sub
+    Friend WithEvents aRegistryGotoNextStep As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aRegistryTaskGotoNextStep As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aRegistryTaskGroupGotoNextStep As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aOpenRegistryFromTask As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aPrintCOC As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aGenerateCOC As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aRegistryStorno As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateTechnicalContractFromRegistry As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateContractsRowsfromControllingRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aDocumentSentBack As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCreateReInvoiceContractRow As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aBankDivideRegistry As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aBankMergeRegistry As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aImportInvoiceAdvances As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aImportICInvoice As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aRegistrySetVATandNextStep As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aPCICheck_RegistryHeader As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aRegistrySetTemplate As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aDocumentReturnfromSendBack As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aRegistryTaskGroupGotoNextStepWithGLAccount As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aViewPCIDW_RegistryHeader As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.resx

@@ -0,0 +1,186 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="aRegistryGotoNextStep.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aRegistryTaskGroupGotoNextStep.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aPrintCOC.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aGenerateCOC.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aRegistryStorno.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 290</value>
+  </metadata>
+  <metadata name="aCreateTechnicalContractFromRegistry.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 329</value>
+  </metadata>
+  <metadata name="aCreateContractsRowsfromControllingRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 368</value>
+  </metadata>
+  <metadata name="aDocumentSentBack.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 407</value>
+  </metadata>
+  <metadata name="aCreateReInvoiceContractRow.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 485</value>
+  </metadata>
+  <metadata name="aBankDivideRegistry.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 563</value>
+  </metadata>
+  <metadata name="aBankMergeRegistry.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 602</value>
+  </metadata>
+  <metadata name="aImportInvoiceAdvances.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 641</value>
+  </metadata>
+  <metadata name="aImportICInvoice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 719</value>
+  </metadata>
+  <metadata name="aRegistrySetVATandNextStep.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 446</value>
+  </metadata>
+  <metadata name="aDocumentReturnfromSendBack.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 680</value>
+  </metadata>
+  <metadata name="aRegistryTaskGotoNextStep.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 758</value>
+  </metadata>
+  <metadata name="aOpenRegistryFromTask.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 524</value>
+  </metadata>
+  <metadata name="aPCICheck_RegistryHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aRegistrySetTemplate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aRegistryTaskGroupGotoNextStepWithGLAccount.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>468, 717</value>
+  </metadata>
+  <metadata name="aViewPCIDW_RegistryHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>220, 758</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryHeader.vb

@@ -0,0 +1,86 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class RRFCQueryHeader
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom
+    Private _ShortName As String
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    <RuleRequiredField("RRFCQueryHeader-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("RRFCQueryHeader-ShortName", DefaultContexts.Save)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+
+    <VisibleInListView(False)> _
+    <Association("RRFCQueryHeader-RRFCQueryRows", GetType(RRFCQueryRows))> _
+    ReadOnly Property RRFCQueryRows As XPCollection(Of RRFCQueryRows)
+        Get
+            Return GetCollection(Of RRFCQueryRows)("RRFCQueryRows")
+        End Get
+    End Property
+
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryRows.vb

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

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.Designer.vb

@@ -0,0 +1,78 @@
+Partial Class RRFCQueryVC
+
+	<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.aViewRegistry_RRFC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewAttachments_RRFC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aQueryRRFC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aViewRegistry_RRFC
+        '
+        Me.aViewRegistry_RRFC.Caption = "View registry"
+        Me.aViewRegistry_RRFC.ConfirmationMessage = Nothing
+        Me.aViewRegistry_RRFC.Id = "aViewRegistry_RRFC"
+        Me.aViewRegistry_RRFC.ImageName = "document_pinned"
+        Me.aViewRegistry_RRFC.Shortcut = Nothing
+        Me.aViewRegistry_RRFC.Tag = Nothing
+        Me.aViewRegistry_RRFC.TargetObjectsCriteria = Nothing
+        Me.aViewRegistry_RRFC.TargetViewId = "RRFCQueryHeader_RRFCQueryRows_ListView"
+        Me.aViewRegistry_RRFC.ToolTip = Nothing
+        Me.aViewRegistry_RRFC.TypeOfView = Nothing
+        '
+        'aViewAttachments_RRFC
+        '
+        Me.aViewAttachments_RRFC.Caption = "View attachments"
+        Me.aViewAttachments_RRFC.ConfirmationMessage = Nothing
+        Me.aViewAttachments_RRFC.Id = "aViewAttachments_RRFC"
+        Me.aViewAttachments_RRFC.ImageName = "printer_view"
+        Me.aViewAttachments_RRFC.Shortcut = Nothing
+        Me.aViewAttachments_RRFC.Tag = Nothing
+        Me.aViewAttachments_RRFC.TargetObjectsCriteria = Nothing
+        Me.aViewAttachments_RRFC.TargetViewId = "RRFCQueryHeader_RRFCQueryRows_ListView"
+        Me.aViewAttachments_RRFC.ToolTip = Nothing
+        Me.aViewAttachments_RRFC.TypeOfView = Nothing
+        '
+        'aQueryRRFC
+        '
+        Me.aQueryRRFC.Caption = "Run query"
+        Me.aQueryRRFC.ConfirmationMessage = Nothing
+        Me.aQueryRRFC.Id = "aQueryRRFC"
+        Me.aQueryRRFC.ImageName = "stopwatch_run"
+        Me.aQueryRRFC.Shortcut = Nothing
+        Me.aQueryRRFC.Tag = Nothing
+        Me.aQueryRRFC.TargetObjectsCriteria = Nothing
+        Me.aQueryRRFC.TargetViewId = "RRFCQueryHeader_DetailView"
+        Me.aQueryRRFC.ToolTip = Nothing
+        Me.aQueryRRFC.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aViewRegistry_RRFC As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewAttachments_RRFC As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aQueryRRFC As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.resx

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

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.vb

@@ -0,0 +1,117 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Data.Filtering
+Imports DevExpress.Xpo
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.CloneObject
+Imports System.Linq
+Imports System.Linq.Expressions
+Imports DevExpress.Persistent.BaseImpl
+
+Public Class RRFCQueryVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event DoWork()
+    Public Event FinalWork
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
+        If View.Id = "RRFCQueryHeader_RRFCQueryRows_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "RRFCQueryHeader_ListView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "'"
+        End If
+        If View.Id = "RRFCQueryHeader_DetailView" Then
+            Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "'"
+            Frame.GetController(Of RRFCQueryVC).aQueryRRFC.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "'"
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "RRFCQueryHeader_ListView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+        End If
+    End Sub
+
+    Private Sub aQueryRRFC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aQueryRRFC.Execute
+        'Frame.GetController(Of ModificationsController).SaveAction.DoExecute()
+
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer)
+        Dim _RRFCQueryHeader As RRFCQueryHeader = _uow.GetObjectByKey(Of RRFCQueryHeader)(TryCast(View.SelectedObjects(0), RRFCQueryHeader).Oid)
+        Dim _RRFCQueryRows As RRFCQueryRows
+
+
+        Dim _RRFCQueryRows_Collection As New XPCollection(_uow, GetType(RRFCQueryRows), _
+        CriteriaOperator.Parse("RRFCQueryHeader=?", _RRFCQueryHeader))
+        _uow.Delete(_RRFCQueryRows_Collection)
+
+        Dim _RowIndex As Long = 0
+
+        Dim _RRFC_xpquery = New XPQuery(Of RegistryRowsFinancialControlling)(_uow)
+
+        Dim query = From _RRFC In _RRFC_xpquery
+                    Where _RRFC.RegistryHeader.CustomersFrom Is _RRFCQueryHeader.CustomersFrom And _
+                    _RRFC.ReInvoice_ContractRows.InvoiceRows IsNot Nothing And _
+                    _RRFC.ReInvoice_ContractRows.InvoiceRows.InvoiceHeader.IsEditable = False
+                Select New With {Key .CustomersFrom = _RRFC.RegistryHeader.CustomersFrom, _
+                                 Key .RegistryHeader = _RRFC.RegistryHeader, _
+                                 Key .RegistryRowsFinancialControlling = _RRFC.Oid, _
+                                 Key .InvoiceRows = _RRFC.ReInvoice_ContractRows.InvoiceRows}
+
+        RaiseEvent InitWork(1, 1, query.Count)
+        For Each item In query
+            RaiseEvent DoWork()
+            _RRFCQueryRows = New RRFCQueryRows(_uow)
+            _RRFCQueryRows.RRFCQueryHeader = _RRFCQueryHeader
+            _RRFCQueryRows.RegistryHeader = item.RegistryHeader
+            _RRFCQueryRows.InvoiceRows = item.InvoiceRows
+            _RRFCQueryRows.RegistryRowsFinancialControlling = _uow.GetObjectByKey(Of RegistryRowsFinancialControlling)(item.RegistryRowsFinancialControlling)
+            _RowIndex += 1
+            If _RowIndex Mod 100 = 0 Then _uow.CommitChanges()
+        Next
+        _uow.CommitTransaction()
+        RaiseEvent FinalWork
+        If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
+            Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+        End If
+    End Sub
+    Private Sub aViewAttachments_RRFC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_RRFC.Execute
+        Dim _RRFCQueryRows As RRFCQueryRows = TryCast(View.SelectedObjects(0), RRFCQueryRows)
+        Dim _CustomersFrom As CustomersFrom = _RRFCQueryRows.RegistryHeader.CustomersFrom
+        Dim _Customers As Customers = _RRFCQueryRows.RegistryHeader.Customers
+        Dim _DocumentNumber As String = _RRFCQueryRows.RegistryHeader.DocumentNumber
+
+        ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "")
+    End Sub
+    Private Sub aViewRegistry_RRFC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_RRFC.Execute
+        Dim _RRFCQueryRows As RRFCQueryRows = TryCast(View.SelectedObjects(0), RRFCQueryRows)
+        Dim _CustomersFrom As CustomersFrom = _RRFCQueryRows.RegistryHeader.CustomersFrom
+        Dim _Customers As Customers = _RRFCQueryRows.RegistryHeader.Customers
+        Dim _DocumentNumber As String = _RRFCQueryRows.RegistryHeader.DocumentNumber
+
+        ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber)
+
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephone.vb

@@ -0,0 +1,216 @@
+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 RegistryTelephone
+    Inherits BaseObject
+    Private _GLAccounts As GLAccounts
+    Private _RegistryHeader As RegistryHeader
+    Private _RegistryTelephoneParameters As RegistryTelephoneParameters
+    Private _UniqueObjects As UniqueObjects
+    Private _Amount_Brutto_INTERNET As Double
+    Private _Amount_Netto_INTERNET As Double
+    Private _Amount_VAT_INTERNET As Double
+    Private _Amount_Brutto_PARKING As Double
+    Private _Amount_Brutto_TELEPHON As Double
+    Private _AmountNetto_TELEPHON_80 As Double
+    Private _AmountNetto_TELEPHON_20 As Double
+    Private _Amount_VAT_TELEPHON_70 As Double
+    Private _Amount_Brutto_OTHER_DEFAULTVAT As Double
+    Private _Amount_Netto_OTHER_DEFAULTVAT As Double
+    Private _Amount_VAT_OTHER_DEFAULTVAT As Double
+    Private _Amount_Brutto_OTHER_NOVAT As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    <Browsable(False)> _
+    Property GLAccounts As GLAccounts
+        Get
+            Return _GLAccounts
+        End Get
+        Set(value As GLAccounts)
+            SetPropertyValue("GLAccounts", _GLAccounts, value)
+        End Set
+    End Property
+    Property RegistryHeader As RegistryHeader
+        Get
+            Return _RegistryHeader
+        End Get
+        Set(value As RegistryHeader)
+            SetPropertyValue("RegistryHeader", _RegistryHeader, value)
+        End Set
+    End Property
+    Property RegistryTelephoneParameters As RegistryTelephoneParameters
+        Get
+            Return _RegistryTelephoneParameters
+        End Get
+        Set(value As RegistryTelephoneParameters)
+            SetPropertyValue("RegistryTelephoneParameters", _RegistryTelephoneParameters, value)
+        End Set
+    End Property
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+        End Set
+    End Property
+    Property Amount_Brutto_INTERNET As Double
+        Get
+            Return _Amount_Brutto_INTERNET
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Amount_Brutto_INTERNET", _Amount_Brutto_INTERNET, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If Me.RegistryTelephoneParameters.VAT_DEFAULTVAT_INTERNET IsNot Nothing Then
+                    Amount_Netto_INTERNET = Math.Round(value / (1 + RegistryTelephoneParameters.VAT_DEFAULTVAT_INTERNET.KeyValue), 0, MidpointRounding.AwayFromZero)
+                    Amount_VAT_INTERNET = Math.Round(value - Amount_Netto_INTERNET, 0, MidpointRounding.AwayFromZero)
+                Else
+                    Amount_Netto_INTERNET = value
+                    Amount_VAT_INTERNET = 0
+                End If
+            End If
+        End Set
+    End Property
+    Property Amount_Netto_INTERNET As Double
+        Get
+            Return _Amount_Netto_INTERNET
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Amount_Netto_INTERNET", _Amount_Netto_INTERNET, value)
+        End Set
+    End Property
+    Property Amount_VAT_INTERNET As Double
+        Get
+            Return _Amount_VAT_INTERNET
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Amount_VAT_INTERNET", _Amount_VAT_INTERNET, value)
+        End Set
+    End Property
+    Property Amount_Brutto_PARKING As Double
+        Get
+            Return _Amount_Brutto_PARKING
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Amount_Brutto_PARKING", _Amount_Brutto_PARKING, value)
+        End Set
+    End Property
+    Property Amount_Brutto_TELEPHON As Double
+        Get
+            Return _Amount_Brutto_TELEPHON
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Amount_Brutto_TELEPHON", _Amount_Brutto_TELEPHON, value)
+            If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
+                If Me.RegistryTelephoneParameters.VAT_DEFAULTVAT IsNot Nothing Then
+                    Dim _Amount_Netto_TELEPHONE = Math.Round(Math.Round(value * 0.7, 2, MidpointRounding.AwayFromZero) / _
+                                                             (1 + RegistryTelephoneParameters.VAT_DEFAULTVAT.KeyValue), 2, MidpointRounding.AwayFromZero)
+                    Me.Amount_VAT_TELEPHON_70 = Math.Round(_Amount_Netto_TELEPHONE * RegistryTelephoneParameters.VAT_DEFAULTVAT.KeyValue, 2, MidpointRounding.AwayFromZero)
+                    _Amount_Netto_TELEPHONE = value - Amount_VAT_TELEPHON_70
+                    Me.AmountNetto_TELEPHON_80 = Math.Round(_Amount_Netto_TELEPHONE * 0.8, 2, MidpointRounding.AwayFromZero)
+                    Me.AmountNetto_TELEPHON_20 = _Amount_Netto_TELEPHONE - Me.AmountNetto_TELEPHON_80
+                Else
+                    Dim _Amount_Netto_TELEPHONE = Math.Round(Math.Round(value * 0.7, 2, MidpointRounding.AwayFromZero) / _
+                                                             (1), 0, MidpointRounding.AwayFromZero)
+                    Me.Amount_VAT_TELEPHON_70 = 0
+                    _Amount_Netto_TELEPHONE = value - Amount_VAT_TELEPHON_70
+                    Me.AmountNetto_TELEPHON_80 = Math.Round(_Amount_Netto_TELEPHONE * 0.8, 2, MidpointRounding.AwayFromZero)
+                    Me.AmountNetto_TELEPHON_20 = _Amount_Netto_TELEPHONE - Me.AmountNetto_TELEPHON_80
+                End If
+            End If
+        End Set
+    End Property
+    Property AmountNetto_TELEPHON_80 As Double
+        Get
+            Return _AmountNetto_TELEPHON_80
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountNetto_TELEPHON_80", _AmountNetto_TELEPHON_80, value)
+        End Set
+    End Property
+    Property AmountNetto_TELEPHON_20 As Double
+        Get
+            Return _AmountNetto_TELEPHON_20
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountNetto_TELEPHON_20", _AmountNetto_TELEPHON_20, value)
+        End Set
+    End Property
+    Property Amount_VAT_TELEPHON_70 As Double
+        Get
+            Return _Amount_VAT_TELEPHON_70
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Amount_VAT_TELEPHON_70", _Amount_VAT_TELEPHON_70, value)
+        End Set
+    End Property
+    Property Amount_Brutto_OTHER_DEFAULTVAT As Double
+        Get
+            Return _Amount_Brutto_OTHER_DEFAULTVAT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Amount_Brutto_OTHER_DEFAULTVAT", _Amount_Brutto_OTHER_DEFAULTVAT, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If Me.RegistryTelephoneParameters.VAT_DEFAULTVAT IsNot Nothing Then
+                    Amount_Netto_OTHER_DEFAULTVAT = Math.Round(value / (1 + RegistryTelephoneParameters.VAT_DEFAULTVAT.KeyValue), 0, MidpointRounding.AwayFromZero)
+                    Amount_VAT_OTHER_DEFAULTVAT = Math.Round(value - Amount_Netto_OTHER_DEFAULTVAT, 0, MidpointRounding.AwayFromZero)
+                Else
+                    Amount_Netto_OTHER_DEFAULTVAT = value
+                    Amount_VAT_OTHER_DEFAULTVAT = 0
+                End If
+            End If
+        End Set
+    End Property
+    Property Amount_Netto_OTHER_DEFAULTVAT As Double
+        Get
+            Return _Amount_Netto_OTHER_DEFAULTVAT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Amount_Netto_OTHER_DEFAULTVAT", _Amount_Netto_OTHER_DEFAULTVAT, value)
+        End Set
+    End Property
+    Property Amount_VAT_OTHER_DEFAULTVAT As Double
+        Get
+            Return _Amount_VAT_OTHER_DEFAULTVAT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Amount_VAT_OTHER_DEFAULTVAT", _Amount_VAT_OTHER_DEFAULTVAT, value)
+        End Set
+    End Property
+    Property Amount_Brutto_OTHER_NOVAT As Double
+        Get
+            Return _Amount_Brutto_OTHER_NOVAT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Amount_Brutto_OTHER_NOVAT", _Amount_Brutto_OTHER_NOVAT, value)
+        End Set
+    End Property
+
+    ReadOnly Property RowTotalBrutto As Double
+        Get
+            Return Amount_Brutto_INTERNET + Amount_Brutto_OTHER_DEFAULTVAT + Amount_Brutto_OTHER_NOVAT + Amount_Brutto_PARKING + Amount_Brutto_TELEPHON
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneParameters.vb

@@ -0,0 +1,124 @@
+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 RegistryTelephoneParameters
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _Controlling_INTERNET As Controlling
+    Private _Controlling_PARKING As Controlling
+    Private _Controlling_TELEPHON_80 As Controlling
+    Private _Controlling_TELEPHON_20 As Controlling
+    Private _Controlling_OTHER_DEFAULTVAT As Controlling
+    Private _Controlling_OTHER_NOVAT As Controlling
+
+    Private _VAT_DEFAULTVAT As VAT
+    Private _VAT_DEFAULTVAT_INTERNET As VAT
+    Private _VAT_NOVAT As VAT
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property Controlling_INTERNET As Controlling
+        Get
+            Return _Controlling_INTERNET
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling_INTERNET", _Controlling_INTERNET, value)
+        End Set
+    End Property
+    Property Controlling_PARKING As Controlling
+        Get
+            Return _Controlling_PARKING
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling_PARKING", _Controlling_PARKING, value)
+        End Set
+    End Property
+    Property Controlling_TELEPHON_80 As Controlling
+        Get
+            Return _Controlling_TELEPHON_80
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling_TELEPHON_80", _Controlling_TELEPHON_80, value)
+        End Set
+    End Property
+    Property Controlling_TELEPHON_20 As Controlling
+        Get
+            Return _Controlling_TELEPHON_20
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling_TELEPHON_20", _Controlling_TELEPHON_20, value)
+        End Set
+    End Property
+    Property Controlling_OTHER_DEFAULTVAT As Controlling
+        Get
+            Return _Controlling_OTHER_DEFAULTVAT
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling_OTHER_DEFAULTVAT", _Controlling_OTHER_DEFAULTVAT, value)
+        End Set
+    End Property
+    Property Controlling_OTHER_NOVAT As Controlling
+        Get
+            Return _Controlling_OTHER_NOVAT
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling_OTHER_NOVAT", _Controlling_OTHER_NOVAT, value)
+        End Set
+    End Property
+
+    Property VAT_DEFAULTVAT As VAT
+        Get
+            Return _VAT_DEFAULTVAT
+        End Get
+        Set(value As VAT)
+            SetPropertyValue("VAT_DEFAULTVAT", _VAT_DEFAULTVAT, value)
+        End Set
+    End Property
+    Property VAT_DEFAULTVAT_INTERNET As VAT
+        Get
+            Return _VAT_DEFAULTVAT_INTERNET
+        End Get
+        Set(value As VAT)
+            SetPropertyValue("VAT_DEFAULTVAT_INTERNET", _VAT_DEFAULTVAT_INTERNET, value)
+        End Set
+    End Property
+    Property VAT_NOVAT As VAT
+        Get
+            Return _VAT_NOVAT
+        End Get
+        Set(value As VAT)
+            SetPropertyValue("VAT_NOVAT", _VAT_NOVAT, value)
+        End Set
+    End Property
+
+    
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.Designer.vb

@@ -0,0 +1,52 @@
+Partial Class RegistryTelephoneVC
+
+	<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.aControllRegistryTelephone = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aControllRegistryTelephone
+        '
+        Me.aControllRegistryTelephone.AcceptButtonCaption = Nothing
+        Me.aControllRegistryTelephone.CancelButtonCaption = Nothing
+        Me.aControllRegistryTelephone.Caption = "aControll Registry Telephone"
+        Me.aControllRegistryTelephone.Category = "aControllRegistryTelephone"
+        Me.aControllRegistryTelephone.ConfirmationMessage = Nothing
+        Me.aControllRegistryTelephone.Id = "aControllRegistryTelephone"
+        Me.aControllRegistryTelephone.ImageName = Nothing
+        Me.aControllRegistryTelephone.Shortcut = Nothing
+        Me.aControllRegistryTelephone.Tag = Nothing
+        Me.aControllRegistryTelephone.TargetObjectsCriteria = Nothing
+        Me.aControllRegistryTelephone.TargetObjectType = GetType(Nuvolar.[Module].RegistryHeader)
+        Me.aControllRegistryTelephone.TargetViewId = Nothing
+        Me.aControllRegistryTelephone.ToolTip = Nothing
+        Me.aControllRegistryTelephone.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aControllRegistryTelephone As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.resx

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

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.vb

@@ -0,0 +1,216 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.Utils
+
+Public Class RegistryTelephoneVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+
+    Private Sub aControllRegistryTelephone_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aControllRegistryTelephone.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(RegistryTelephone))
+        Dim _RegistryTelephone As RegistryTelephone
+        Dim _Phones_Collection As New XPCollection(Of Phones)(_onew.Session, CriteriaOperator.Parse(""))
+        Dim _RegistryHeader As RegistryHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), RegistryHeader))
+        Dim _Phones As Phones
+        Dim _RegistryTelephoneParameters As RegistryTelephoneParameters = _onew.FindObject(Of RegistryTelephoneParameters)(CriteriaOperator.Parse("CustomersFrom.Oid=?", _RegistryHeader.CustomersFrom.Oid))
+
+        For Each _Phones In _Phones_Collection
+            _RegistryTelephone = _onew.FindObject(Of RegistryTelephone)(CriteriaOperator.Parse("RegistryHeader=? and UniqueObjects=?", _RegistryHeader, _Phones.UniqueObjects))
+            If _RegistryTelephone Is Nothing Then
+                _RegistryTelephone = _onew.CreateObject(Of RegistryTelephone)()
+            End If
+            _RegistryTelephone.UniqueObjects = _Phones.UniqueObjects
+            _RegistryTelephone.RegistryTelephoneParameters = _RegistryTelephoneParameters
+            _RegistryTelephone.RegistryHeader = _RegistryHeader
+            _CollectionSource.Add(_RegistryTelephone)
+        Next
+        _onew.CommitChanges()   'ezt át kell nézni!!!!!!
+
+        _CollectionSource.BeginUpdateCriteria()
+        _CollectionSource.Criteria("ByTelephone") = CriteriaOperator.Parse("RegistryHeader.Oid=?", _RegistryHeader.Oid) 'PersistentCriteriaEvaluationBehavior.InTransaction
+        _CollectionSource.EndUpdateCriteria()
+
+        e.View = Application.CreateListView("RegistryTelephone_ListView", _CollectionSource, False)
+    End Sub
+
+    Private Sub aControllRegistryTelephone_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aControllRegistryTelephone.Execute
+        '//Telefonszámla rögzítése
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
+        Dim _RegistryTelephone As RegistryTelephone
+
+        Dim _TechnicalContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _RegistryHeader.CustomersFrom))
+        Dim _Contracts As Contracts = _ocur.FindObject(Of Contracts)(CriteriaOperator.Parse("CustomersFrom=? AND Customers=? AND ContractTemplate=?", _RegistryHeader.CustomersFrom, _RegistryHeader.Customers, _TechnicalContractTemplate))
+        Dim _ListView As ListView = TryCast(e.PopupWindow.View, ListView)
+
+        '// Ellenőrzések
+        'e.PopupWindow.View.ObjectSpace.CommitChanges()
+
+        If _TechnicalContractTemplate Is Nothing Then
+            '// Nincs technikai szerződési sablon
+            MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions\RegistryTelephone", "NoTechnicalContractTemplate")), _
+                      MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, _
+                      String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
+            Exit Sub
+        End If
+
+        '// Ellenőrzés, hogy a total bruttó le lett-e bontva
+        If _ListView IsNot Nothing Then
+            Dim _BruttoAmountRemaining As Double = 0
+            For Each _RegistryTelephone In _ListView.CollectionSource.List
+                _BruttoAmountRemaining += _RegistryTelephone.Amount_Brutto_INTERNET + _RegistryTelephone.Amount_Brutto_OTHER_DEFAULTVAT + _RegistryTelephone.Amount_Brutto_OTHER_NOVAT + _RegistryTelephone.Amount_Brutto_PARKING + _RegistryTelephone.Amount_Brutto_TELEPHON
+            Next
+
+            If _BruttoAmountRemaining <> _RegistryHeader.F_AmountBruttoHUF Then
+                '// Hiba, hogy neincs minden sor lebontva
+                MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions\RegistryTelephone", "NotEqualTotalwithDivided")), _
+                       MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, _
+                       String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
+                Exit Sub
+            End If
+        End If
+
+
+        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+        '//Technikai szerződés létrehozása
+        If _Contracts Is Nothing Then
+            _Contracts = _ocur.CreateObject(Of Contracts)()
+            _Contracts.CustomersFrom = _RegistryHeader.CustomersFrom
+            _Contracts.Customers = _RegistryHeader.Customers
+            _Contracts.ContractTemplate = _TechnicalContractTemplate
+            _Contracts.DateCreated = _RegistryHeader.F_DateCreated
+            _Contracts.DateExecution = _RegistryHeader.F_DateExecution
+            _Contracts.DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator)
+            _Contracts.State = State.Signed
+        End If
+
+        If _ListView IsNot Nothing Then
+            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+
+            _ocur.Delete(_RegistryHeader.RegistryRowsFinancial)
+            _ocur.Delete(_RegistryHeader.RegistryRowsFinancialControlling)
+            For Each _RegistryTelephone In _ListView.CollectionSource.List
+                ''//Először az ÁFÁ-s tételek rögzítése
+                If _RegistryTelephone.Amount_Brutto_INTERNET > 0 Then
+                    Create_RRF_Row(_ocur, _RegistryHeader, _RegistryTelephone.Amount_Brutto_INTERNET, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT_INTERNET))
+                    Create_RRFC_Row(_ocur, _Contracts, _RegistryHeader, _RegistryTelephone.Amount_Netto_INTERNET, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_INTERNET),
+                                    _ocur.GetObject(_RegistryTelephone.UniqueObjects), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT_INTERNET))
+                End If
+                If _RegistryTelephone.Amount_Brutto_OTHER_DEFAULTVAT > 0 Then
+                    Create_RRF_Row(_ocur, _RegistryHeader, _RegistryTelephone.Amount_Brutto_OTHER_DEFAULTVAT, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT))
+                    Create_RRFC_Row(_ocur, _Contracts, _RegistryHeader, _RegistryTelephone.Amount_Netto_OTHER_DEFAULTVAT, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_OTHER_DEFAULTVAT), _
+                                   _ocur.GetObject(_RegistryTelephone.UniqueObjects), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT))
+                End If
+                If _RegistryTelephone.Amount_Brutto_OTHER_NOVAT > 0 Then
+                    Create_RRF_Row(_ocur, _RegistryHeader, _RegistryTelephone.Amount_Brutto_OTHER_NOVAT, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_NOVAT))
+                    Create_RRFC_Row(_ocur, _Contracts, _RegistryHeader, _RegistryTelephone.Amount_Brutto_OTHER_NOVAT, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_OTHER_NOVAT), _
+                                   _ocur.GetObject(_RegistryTelephone.UniqueObjects), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_NOVAT))
+                End If
+                If _RegistryTelephone.Amount_Brutto_PARKING > 0 Then
+                    Create_RRF_Row(_ocur, _RegistryHeader, _RegistryTelephone.Amount_Brutto_PARKING, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_NOVAT))
+                    Create_RRFC_Row(_ocur, _Contracts, _RegistryHeader, _RegistryTelephone.Amount_Brutto_PARKING, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_PARKING), _
+                                   _ocur.GetObject(_RegistryTelephone.UniqueObjects), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_NOVAT))
+                End If
+                If _RegistryTelephone.Amount_Brutto_TELEPHON > 0 Then
+                    Create_RRF_Row(_ocur, _RegistryHeader, Math.Round(_RegistryTelephone.Amount_Brutto_TELEPHON * 0.7, 0, MidpointRounding.AwayFromZero), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT))
+                    Create_RRF_Row(_ocur, _RegistryHeader, _RegistryTelephone.Amount_Brutto_TELEPHON - Math.Round(_RegistryTelephone.Amount_Brutto_TELEPHON * 0.7, 0, MidpointRounding.AwayFromZero), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_NOVAT))
+                    Create_RRFC_Row(_ocur, _Contracts, _RegistryHeader, _RegistryTelephone.AmountNetto_TELEPHON_80, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_TELEPHON_80), _
+                                   _ocur.GetObject(_RegistryTelephone.UniqueObjects), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT))
+                    Create_RRFC_Row(_ocur, _Contracts, _RegistryHeader, _RegistryTelephone.AmountNetto_TELEPHON_20, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_TELEPHON_20), _
+                                   _ocur.GetObject(_RegistryTelephone.UniqueObjects), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT))
+                End If
+            Next
+        End If
+
+        _ocur.CommitChanges()
+
+        '// Kerekítés rendberakása -----------------------------------------------------------------------------------------------------------------------------------------------------------------------
+        If _RegistryHeader.BruttoAmountRemaining = 0 And Math.Abs(_RegistryHeader.NettoAmountRemaining) < 5 Then
+            'Beep()
+            Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
+            _RegistryHeader.RegistryRowsFinancialControlling.Sorting.Add(New SortProperty("Amount", DB.SortingDirection.Descending))
+            For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling
+                If _RegistryRowsFinancialControlling.Controlling.Oid.ToString = _RegistryTelephone.RegistryTelephoneParameters.Controlling_TELEPHON_80.Oid.ToString Then
+                    'Beep()
+                    If _RegistryHeader.NettoAmountRemaining > 0 Then
+                        _RegistryRowsFinancialControlling.Amount += _RegistryHeader.NettoAmountRemaining
+                    Else
+                        _RegistryRowsFinancialControlling.Amount -= _RegistryHeader.NettoAmountRemaining
+                    End If
+                    _ocur.CommitChanges()
+                    Exit For
+                End If
+            Next
+        End If
+
+        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+    End Sub
+    Private Sub Create_RRF_Row(_ocur As Xpo.XPObjectSpace, _RegistryHeader As RegistryHeader, _BruttoAmount As Double, _VAT As VAT)
+        Dim _RegistryRowsFinancial As RegistryRowsFinancial = _ocur.FindObject(Of RegistryRowsFinancial)(CriteriaOperator.Parse("RegistryHeader=? and VAT=?", _RegistryHeader, _VAT))
+
+        If _RegistryRowsFinancial Is Nothing Then
+            _RegistryRowsFinancial = _ocur.CreateObject(Of RegistryRowsFinancial)()
+            _RegistryRowsFinancial.RegistryHeader = _RegistryHeader
+            _RegistryRowsFinancial.BruttoAmount = _BruttoAmount
+            _RegistryRowsFinancial.VAT = _VAT
+            _RegistryRowsFinancial.DateVAT = _RegistryHeader.F_DateVAT
+        Else
+            _RegistryRowsFinancial.BruttoAmount += _BruttoAmount
+        End If
+    End Sub
+    Private Sub Create_RRFC_Row(_ocur As Xpo.XPObjectSpace, _Contracts As Contracts, _RegistryHeader As RegistryHeader, _
+                                _Amount As Double, _Controlling As Controlling, _UniqueObjects As UniqueObjects, _VAT As VAT)
+        Dim _ContractRows As ContractRows
+        Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
+
+        _ContractRows = _ocur.CreateObject(Of ContractRows)()
+        _ContractRows.Contracts = _Contracts
+        _ContractRows.CurrencyName = _RegistryHeader.F_CurrencyName
+        _ContractRows.ContractRowsType = eContractRowsType.eFix
+        _ContractRows.DateExecution = _RegistryHeader.F_DateExecution
+        _ContractRows.Controlling = _Controlling
+        If _RegistryHeader.F_CurrencyName.ShortName = "HUF" Then
+            _ContractRows.NettoPriceHUF = _Amount
+        Else
+            If _RegistryHeader.F_CurrencyRate <> 0 Then
+                _ContractRows.NettoPriceDEV = _Amount / _RegistryHeader.F_CurrencyRate
+            Else
+                _ContractRows.NettoPriceDEV = 0
+            End If
+            _ContractRows.NettoPriceHUF = _Amount
+        End If
+        _ContractRows.ShortName = "TELEFON"
+        _ContractRows.UniqueObjects = _UniqueObjects
+
+        'IDE KELL VALAMI ÁFA !
+
+        _ContractRows.VAT = _VAT
+        _ContractRows.Controlling = _Controlling
+        _ContractRows.JobNumberObjects = _RegistryHeader.JobNumberObjects
+
+        _RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)()
+        _RegistryRowsFinancialControlling.RegistryHeader = _RegistryHeader
+        _RegistryRowsFinancialControlling.ContractRows = _ContractRows
+        _RegistryRowsFinancialControlling.Amount = _Amount
+        _RegistryRowsFinancialControlling.Controlling = _Controlling
+        _RegistryRowsFinancialControlling.UniqueObjects = _UniqueObjects
+    End Sub
+End Class