Reconfigure for GIT

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutCostRows.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)> _
+<DeferredDeletion(False)> _
+Public Class OfferOutCostRows 'Az ajánlat egyes sorai mennyibe kerülnek ?
+    Inherits BaseObject
+    Private _OfferOutHeader As OfferOutHeader
+    Private _OfferOutRows As OfferOutRows
+
+    Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelezõ)
+    Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelezõ)
+    Private _RowIndex As Long 'Sor index (mozgathatónak kell lennie !)
+
+    Private _ShortName As String
+    Private _Description As String
+    Private _QTT As Double
+    Private _Units As Units
+
+    Private _FinalPriceHUF_Out As Double
+    Private _FinalPriceDEV_Out As Double
+    Private _SumPriceHUF_Out As Double
+    Private _SumPriceDEV_Out As Double
+
+    Private _FinalPriceHUF_In As Double
+    Private _FinalPriceDEV_In As Double
+    Private _SumPriceHUF_In As Double
+    Private _SumPriceDEV_In As Double
+
+    Private _DifferentPercent As Double
+    Private _DifferentHUF As Double
+    Private _DifferentDEV As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("OfferOutCostRows", GetType(OfferOutHeader))> _
+    Property OfferOutHeader As OfferOutHeader
+        Get
+            Return _OfferOutHeader
+        End Get
+        Set(value As OfferOutHeader)
+            SetPropertyValue("OfferOutHeader", _OfferOutHeader, value)
+        End Set
+    End Property
+    Property OfferOutRows As OfferOutRows
+        Get
+            Return _OfferOutRows
+        End Get
+        Set(value As OfferOutRows)
+            SetPropertyValue("OfferOutRows", _OfferOutRows, value)
+        End Set
+    End Property
+
+    Property RowGroup1 As String
+        Get
+            Return _RowGroup1
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup1", _RowGroup1, value)
+        End Set
+    End Property
+    Property RowGroup2 As String
+        Get
+            Return _RowGroup2
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup2", _RowGroup2, value)
+        End Set
+    End Property
+    Property RowIndex() As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property QTT As Double
+        Get
+            Return _QTT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property Units As Units
+        Get
+            Return _Units
+        End Get
+        Set(value As Units)
+            SetPropertyValue("Units", _Units, value)
+        End Set
+    End Property
+
+    Property FinalPriceHUF_Out As Double
+        Get
+            Return _FinalPriceHUF_Out
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FinalPriceHUF_Out", _FinalPriceHUF_Out, value)
+        End Set
+    End Property
+    Property FinalPriceDEV_Out As Double
+        Get
+            Return _FinalPriceDEV_Out
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FinalPriceDEV_Out", _FinalPriceDEV_Out, value)
+        End Set
+    End Property
+    Property SumPriceHUF_Out As Double
+        Get
+            Return _SumPriceHUF_Out
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceHUF_Out", _SumPriceHUF_Out, value)
+        End Set
+    End Property
+    Property SumPriceDEV_Out As Double
+        Get
+            Return _SumPriceDEV_Out
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceDEV_Out", _SumPriceDEV_Out, value)
+        End Set
+    End Property
+
+    Property FinalPriceHUF_In As Double
+        Get
+            Return _FinalPriceHUF_In
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FinalPriceHUF_In", _FinalPriceHUF_In, value)
+        End Set
+    End Property
+    Property FinalPriceDEV_In As Double
+        Get
+            Return _FinalPriceDEV_In
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FinalPriceDEV_In", _FinalPriceDEV_In, value)
+        End Set
+    End Property
+    Property SumPriceHUF_In As Double
+        Get
+            Return _SumPriceHUF_In
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceHUF_In", _SumPriceHUF_In, value)
+        End Set
+    End Property
+    Property SumPriceDEV_In As Double
+        Get
+            Return _SumPriceDEV_In
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceDEV_In", _SumPriceDEV_In, value)
+        End Set
+    End Property
+
+    Property DifferentPercent As Double
+        Get
+            Return _DifferentPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DifferentPercent", _DifferentPercent, value)
+        End Set
+    End Property
+    Property DifferentHUF As Double
+        Get
+            Return _DifferentHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DifferentHUF", _DifferentHUF, value)
+        End Set
+    End Property
+    Property DifferentDEV As Double
+        Get
+            Return _DifferentDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DifferentDEV", _DifferentDEV, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutHeader.vb

@@ -0,0 +1,870 @@
+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
+
+'-- Kimenő árajánlatok --
+
+'<EditorStateRule("Disable properties when IsEditable=False", "*", ViewType.DetailView, "IsEditable = False", EditorState.Disabled)> _
+
+<Appearance("Disable properties when IsEditable=False", TargetItems:="*", Criteria:="IsEditable = False", Enabled:=False, Context:="DetailView")> _
+<Appearance("Hide OfferLOSTReasons when eOfferOutState <> 2", AppearanceItemType.ViewItem, "OfferOutState <> 2", TargetItems:="OfferLOSTReason", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide OfferLOSTReasonDescription when OfferLOSTReason <> 7", AppearanceItemType.ViewItem, "OfferLOSTReason <> 7", TargetItems:="OfferLOSTReasonDescription", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide Installation when row_RowType = Product", AppearanceItemType.ViewItem, "row_RowType = 0", TargetItems:="row_VAT;row_Description;row_Installation;row_ShortName;row_Units", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide Product when row_RowType = Installation", AppearanceItemType.ViewItem, "row_RowType = 2", TargetItems:="row_VAT;row_Products;row_Units;row_Description;row_ShortName", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide some properties when RowType = Other", AppearanceItemType.ViewItem, "row_RowType = 1", TargetItems:="row_Installation;row_Products", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable row action when IsEditable=False", AppearanceItemType.LayoutItem, "!IsEditable", TargetItems:="@OfferOutHeader_AC", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable DocumentNumber, DocumentOutNumber", AppearanceItemType.ViewItem, "1=1", TargetItems:="DocumentNumber;DocumentOutNumber", Enabled:=False)> _
+<Appearance("Hide CloneObject-OfferOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="CloneObject", enabled:=False)> _
+<Appearance("Disable OpeneObject-OfferOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="OpenObject", Enabled:=False)> _
+<Appearance("Disable Delete-OfferOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="Delete", Enabled:=False)> _
+<Appearance("Disable ShowAllContexts-OfferOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="ShowAllContexts", Enabled:=False)> _
+<Appearance("Hide _row_ListPriceDEV-OfferOut if CurrencyName is HUF", AppearanceItemType.ViewItem, "CurrencyName.ShortName='HUF'", TargetItems:="row_ListPriceDEV", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide _row_ListPriceHUF-OfferOut if CurrencyName is not HUF", AppearanceItemType.ViewItem, "CurrencyName.ShortName<>'HUF'", TargetItems:="row_ListPriceHUF", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide tab page Item3 if header is incomplete-OfferOut", AppearanceItemType.LayoutItem, "IsNull(CustomersFrom)=True Or IsNull(Contact)=True Or IsNull(Customers)=True Or IsNull(CurrencyName)=True Or IsNull(OfferOutParameters)=True Or IsNull(PaymentOption)=True", TargetItems:="Item3", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable OfferOutHeader-Contact", AppearanceItemType.ViewItem, "IsNull(Contact)=False", TargetItems:="Contact", Enabled:=False)> _
+<Appearance("Disable OfferOutHeader-Customers", AppearanceItemType.ViewItem, "IsNull(Customers)=False", TargetItems:="Customers", Enabled:=False)> _
+<Appearance("Disable OfferOutHeader-CustomersFrom", AppearanceItemType.ViewItem, "IsNull(CustomersFrom)=False", TargetItems:="CustomersFrom", Enabled:=False)> _
+<Appearance("Disable aOffersOutFinal", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aOffersOutFinal", Enabled:=False)> _
+<Appearance("Hide row_ info when IsEditable=False OffersIn", AppearanceItemType.ViewItem, "IsEditable=False", TargetItems:="row_RowType, row_Products; row_Installation;" _
+    & "row_ShortName; row_Description; row_QTT; row_Units;  row_VAT; row_ListPriceHUF; row_ListPriceDEV; row_DiscountPercent; row_RowGroup1; row_RowGroup2", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable ObjectCreated OfferOutHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("Disable UserCreated OfferOutHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
+<DefaultClassOptions()> _
+<NavigationItem("BusinessTransactions")> _
+<DefaultProperty("DocumentNumber")> _
+Public Class OfferOutHeader
+    Inherits BaseObject
+    Private _OfferOutParameters As OfferOutParameters 'Árajánlat paramétere, ami a sorszámot és egyéb tul. meghat.
+    Private _OfferOutState As eOfferOutState 'Ajánlat státusz, hol tart jelenleg
+    Private _OfferLOSTReason As eOfferOutLOSTReason 'Ha nem fogadták el, miért ?
+    Private _OfferLOSTReasonDescription As String ' Ha nem fogadták el és eOther akkor szövegesen beírni !
+    Private _DocumentNumber As String 'Árajánlat száma (generálódik)
+    Private _DocumentOutNumber As String 'Árajánlat változati szám
+    Private _CustomersFrom As CustomersFrom 'Saját cég
+    Private _Customers As Customers 'Partner, akire az árajánlat szól (ez nem kötelező, de a contactból  ismerje fel !)
+    Private _Contact As Contacts 'Kapcsolat, akire az árajánlat szól (ez a fő !!! kötelező)
+    Private _DateCreated As Date 'Kiállítás dátuma
+    Private _DateExecution As Date 'Teljesítés dátuma
+    Private _DatePayment As Date 'Fiz. hat
+    Private _DateDue As Date 'Érvényesség dátuma
+    Private _Description As String 'Leírás (fejlécen)
+    Private _PaymentOption As PaymentOption 'Fizetési opció
+    Private _ShipmentOption As ShipmentOption 'Szállítási opció
+    Private _QualityOption As QualityOption 'Minőségi opció
+    Private _CurrencyName As CurrencyName 'Deviza
+    Private _SumPriceHUF As Double = 0 'Árajánlat összesített értéke HUF
+    Private _SumPriceDEV As Double = 0 'Árajánlat összesített értéke DEV
+    Private _ObjectCreated As Date 'Maga az objektum mikor készült el
+    Private _UserCreated As User 'Ki csinálta az ajánlatot
+    Private _IsEditable As Boolean = True 'Szerkeszthető vagy végleges ajánlat
+    Private _IsStorno As Boolean = False 'Stornírozott ajánlat
+    Private _DocumentBody As String 'RichText dokumentum test
+    Private _ExcelProperty As String 'Excel !!!
+    Private _ExcelFile As FileData
+    Private _PDF_Original As FileData
+    Private _WorkflowSystemSteps As WorkflowSystemSteps
+    Private _MasterBusinessDirectory As BusinessDirectory
+    Private _DocumentPath As String 'Windows Explorer path
+
+    '--- Sorok rögzítéséhez nonpersistent propertyk
+    Private _row_RowType As eRowType 'Sor tipus
+    Private _row_Products As Products 'Termék
+    Private _row_Installation As Installation 'Gyártmány
+    Private _row_ShortName As String 'Megnevezés
+    Private _row_Description As String 'Leírás
+    Private _row_QTT As Double 'Mennyiség
+    Private _row_Units As Units 'Mennyiségi egység
+    Private _row_VAT As VAT 'ÁFA kód
+    Private _row_ListPriceHUF As Double 'Termék listaára HUF
+    Private _row_ListPriceDEV As Double 'Termék listaára DEV
+    Private _row_DiscountPercent As Double 'Termék ár kedvezmény %-ban
+    Private _row_RowGroup1 As String 'Csoportosító sor1
+    Private _row_RowGroup2 As String 'Csoportosító sor2
+    '--- CRM miatt ----------------------------------------------
+    Private _CRM_Opportunities As CRM_Opportunities
+    Private _OtherCostPercent As Double 'egyéb sorokra vonatkozó általánios bekrülési %
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+
+        Me.DateExecution = GetSQLTime(Session)
+        Me.DateCreated = GetSQLTime(Session)
+        Me.CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName = 'HUF'"))
+        Me.row_VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
+        Me.row_Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If String.IsNullOrEmpty(DocumentNumber) Then
+            DocumentNumber = Me.OfferOutParameters.NumberGenerator.GetNewNumber(Me.OfferOutParameters.NumberGenerator)
+        End If
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+            If Me.OfferOutParameters IsNot Nothing Then
+                If Me.OfferOutParameters.MasterBusinessDirectory IsNot Nothing Then
+                    Dim _BusinessDirectory As New BusinessDirectory(Session)
+                    _BusinessDirectory.ShortName = DocumentNumber
+                    _BusinessDirectory.BusinessDirectory_Parent = Me.OfferOutParameters.MasterBusinessDirectory
+                    _BusinessDirectory.IsDashBoard = False
+                    _BusinessDirectory.Save()
+                End If
+            End If
+        End If
+    End Sub
+    Function CalculatePriceNettoHUF() As Double
+        Dim _i As Integer = 0 ' segédváltozó, hogy ha nincs a megadott intervallumokban a mennyiség akkor a normál listaárral térünk vissza
+
+        For Each _PricingFix As PricingFix In Me.Customers.Pricing.PricingFix '1. Fix árat megnézni
+            If _PricingFix.Products Is row_Products Then
+                Return _PricingFix.PriceNetto
+            End If
+        Next
+        For Each _PricingFixStaged As PricingFixStaged In Me.Customers.Pricing.PricingFixStaged '2. Fix lépcsõs árat megnézni
+            If _PricingFixStaged.Products Is Me.row_Products Then
+                If Me.row_QTT >= _PricingFixStaged.VolumeFrom And Me.row_QTT <= _PricingFixStaged.VolumeTo Then
+                    Return _PricingFixStaged.PriceNetto
+                Else
+                    _i = _i + 1
+                End If
+                If _i >= Me.Customers.Pricing.PricingFixStaged.Count Then ' Amennyiben a megadott intervallumokon kívül van a megadott mennyiség, akkor normál listaár
+                    Return Me.row_Products.ListPriceOutHUF
+                End If
+            End If
+        Next
+        For Each _PricingProductsGroups As PricingProductsGroups In Me.Customers.Pricing.PricingProductsGroups '3. Termékcsoport árat megnézni
+            If _PricingProductsGroups.ProductsGroups Is Me.row_Products.ProductGroups Then ' Ha a levélelemnek meg van adva a kedvezmény
+                Me.row_DiscountPercent = _PricingProductsGroups.DiscountPercent
+                Return Me.row_Products.ListPriceOutHUF - ((_PricingProductsGroups.DiscountPercent / 100) * Me.row_Products.ListPriceOutHUF)
+            Else
+                Me.row_DiscountPercent = _PricingProductsGroups.DiscountPercent
+                Return RecurziveProductsGroupsHUF(Me.row_Products, _PricingProductsGroups, Me.row_Products.ProductGroups) ' A levélelemnek nincs megadva a kedvezmény akkor rekurzív bejárás
+            End If
+        Next
+    End Function
+    Function CalculatePriceNettoDEV() As Double
+        Dim _i As Integer = 0 ' segédváltozó, hogy ha nincs a megadott intervallumokban a mennyiség akkor a normál listaárral térünk vissza
+
+        For Each _PricingFix As PricingFix In Me.Customers.Pricing.PricingFix '1. Fix árat megnézni
+            If _PricingFix.Products Is row_Products Then
+                Return _PricingFix.PriceNetto
+            End If
+        Next
+        For Each _PricingFixStaged As PricingFixStaged In Me.Customers.Pricing.PricingFixStaged '2. Fix lépcsõs árat megnézni
+            If _PricingFixStaged.Products Is Me.row_Products Then
+                If Me.row_QTT >= _PricingFixStaged.VolumeFrom And Me.row_QTT <= _PricingFixStaged.VolumeTo Then
+                    Return _PricingFixStaged.PriceNetto
+                Else
+                    _i = _i + 1
+                End If
+                If _i >= Me.Customers.Pricing.PricingFixStaged.Count Then ' Amennyiben a megadott intervallumokon kívül van a megadott mennyiség, akkor normál listaár
+                    Return Me.row_Products.ListPriceOutDEV
+                End If
+            End If
+        Next
+        For Each _PricingProductsGroups As PricingProductsGroups In Me.Customers.Pricing.PricingProductsGroups '3. Termékcsoport árat megnézni
+            If _PricingProductsGroups.ProductsGroups Is Me.row_Products.ProductGroups Then ' Ha a levélelemnek meg van adva a kedvezmény
+                Return Me.row_Products.ListPriceOutDEV - ((_PricingProductsGroups.DiscountPercent / 100) * Me.row_Products.ListPriceOutDEV)
+                Me.row_DiscountPercent = _PricingProductsGroups.DiscountPercent
+            Else
+                Return RecurziveProductsGroupsDEV(Me.row_Products, _PricingProductsGroups, Me.row_Products.ProductGroups) ' A levélelemnek nincs megadva a kedvezmény akkor rekurzív bejárás
+                Me.row_DiscountPercent = _PricingProductsGroups.DiscountPercent
+            End If
+        Next
+    End Function
+    Function RecurziveProductsGroupsHUF(ByVal _p_Products As Products, ByVal _p_PricingProductsGroups As PricingProductsGroups, ByVal _p_ProductsGroups As ProductsGroups) As Double
+        'A treelist bejárása rekurzívan, mindaddig amíg van szülő, és keressük van e termékcsoport kedvezmény, ha van visszatérünk vele, ha nincs akkor az eredeti listaárral térünk vissza
+        If _p_ProductsGroups.Parent IsNot Nothing Then
+            If _p_ProductsGroups.Parent Is _p_PricingProductsGroups.ProductsGroups Then
+                Return _p_Products.ListPriceOutHUF - ((_p_PricingProductsGroups.DiscountPercent / 100) * _p_Products.ListPriceOutHUF) ' Visszatérés a levélelemhez legközelebbi termékcsoport kedvezményes árral.
+            End If
+            RecurziveProductsGroupsHUF(_p_Products, _p_PricingProductsGroups, _p_ProductsGroups.Parent) ' Rekurzív hívás, hogy minden elemen keressen
+        End If
+        Return _p_Products.ListPriceOutHUF ' Visszatérés az eredeti listaárral
+    End Function
+    Function RecurziveProductsGroupsDEV(ByVal _p_Products As Products, ByVal _p_PricingProductsGroups As PricingProductsGroups, ByVal _p_ProductsGroups As ProductsGroups) As Double
+        'A treelist bejárása rekurzívan, mindaddig amíg van szülő, és keressük van e termékcsoport kedvezmény, ha van visszatérünk vele, ha nincs akkor az eredeti listaárral térünk vissza
+        If _p_ProductsGroups.Parent IsNot Nothing Then
+            If _p_ProductsGroups.Parent Is _p_PricingProductsGroups.ProductsGroups Then
+                Return _p_Products.ListPriceOutDEV - ((_p_PricingProductsGroups.DiscountPercent / 100) * _p_Products.ListPriceOutDEV) ' Visszatérés a levélelemhez legközelebbi termékcsoport kedvezményes árral.
+            End If
+            RecurziveProductsGroupsDEV(_p_Products, _p_PricingProductsGroups, _p_ProductsGroups.Parent) ' Rekurzív hívás, hogy minden elemen keressen
+        End If
+        Return _p_Products.ListPriceOutDEV ' Visszatérés az eredeti listaárral
+    End Function
+    <ImmediatePostData()>
+    <DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")> _
+    <RuleRequiredField("OfferOutHeader.OfferOutParameters", DefaultContexts.Save)> _
+    Property OfferOutParameters As OfferOutParameters
+        Get
+            Return _OfferOutParameters
+        End Get
+        Set(ByVal value As OfferOutParameters)
+            SetPropertyValue("OfferOutParameters", _OfferOutParameters, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property OfferOutState As eOfferOutState
+        Get
+            Return _OfferOutState
+        End Get
+        Set(ByVal value As eOfferOutState)
+            SetPropertyValue("OfferOutState", _OfferOutState, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Select Case OfferOutState
+                    Case eOfferOutState.eClosedWON
+                        OfferLOSTReason = eOfferOutLOSTReason.eNotSet
+                    Case eOfferOutState.eInProgress
+                        OfferLOSTReason = eOfferOutLOSTReason.eNotSet
+                    Case eOfferOutState.eInThinkingOf
+                        OfferLOSTReason = eOfferOutLOSTReason.eNotSet
+                End Select
+            End If
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <RuleValueComparison("OfferOutHeader.OfferLostReason", DevExpress.Persistent.Validation.DefaultContexts.Save, _
+        DevExpress.Persistent.Validation.ValueComparisonType.NotEquals, eOfferOutLOSTReason.eNotSet, TargetCriteria:="OfferOutState = 2")> _
+    Property OfferLOSTReason As eOfferOutLOSTReason
+        Get
+            Return _OfferLOSTReason
+        End Get
+        Set(ByVal value As eOfferOutLOSTReason)
+            SetPropertyValue("OfferLOSTReason", _OfferLOSTReason, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Select Case OfferLOSTReason
+                    Case eOfferOutLOSTReason.eNotSet
+                        OfferLOSTReasonDescription = ""
+                    Case eOfferOutLOSTReason.eTooExpensive
+                        OfferLOSTReasonDescription = ""
+                    Case eOfferOutLOSTReason.eTooLate
+                        OfferLOSTReasonDescription = ""
+                    Case eOfferOutLOSTReason.eChooseConcurrency
+                        OfferLOSTReasonDescription = ""
+                    Case eOfferOutLOSTReason.eQualityProblem
+                        OfferLOSTReasonDescription = ""
+                    Case eOfferOutLOSTReason.eNoAnswer
+                        OfferLOSTReasonDescription = ""
+                    Case eOfferOutLOSTReason.eWINOther
+                        OfferLOSTReasonDescription = ""
+                End Select
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("OfferOutHeader.OfferLostReasonDescription", DefaultContexts.Save, TargetCriteria:="OfferLOSTReason = 7")> _
+    <ImmediatePostData()> _
+    <Size(-1)> _
+    Property OfferLOSTReasonDescription As String
+        Get
+            Return _OfferLOSTReasonDescription
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("OfferLOSTReasonDescription", _OfferLOSTReasonDescription, value)
+        End Set
+    End Property
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    Property DocumentOutNumber As String
+        Get
+            Return _DocumentOutNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentOutNumber", _DocumentOutNumber, value)
+        End Set
+    End Property
+    <RuleRequiredField("OfferOutHeader.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 Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+            If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then
+                If value IsNot Nothing Then
+                    If value.PaymentOption IsNot Nothing And Me.PaymentOption Is Nothing Then
+                        Me.PaymentOption = value.PaymentOption
+                    End If
+                    If value.ShipmentOption IsNot Nothing And Me.ShipmentOption Is Nothing Then
+                        Me.ShipmentOption = value.ShipmentOption
+                    End If
+                    If value.QualityOption IsNot Nothing And Me.QualityOption Is Nothing Then
+                        Me.QualityOption = value.QualityOption
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <DataSourceProperty("Customers.Contacts", DataSourcePropertyIsNullMode.SelectAll)> _
+    <RuleRequiredField("OfferOutHeader.Contact", DefaultContexts.Save)> _
+    Property Contact As Contacts
+        Get
+            Return _Contact
+        End Get
+        Set(ByVal value As Contacts)
+            SetPropertyValue("Contact", _Contact, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And value IsNot Nothing Then
+                Me.Customers = Me.Contact.Customers
+            End If
+        End Set
+    End Property
+    Property DateCreated As Date
+        Get
+            Return _DateCreated
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateCreated", _DateCreated, value)
+        End Set
+    End Property
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property DatePayment As Date
+        Get
+            Return _DatePayment
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DatePayment", _DatePayment, value)
+        End Set
+    End Property
+    <RuleRequiredField("OfferOutHeader-DateDue", DefaultContexts.Save)> _
+    Property DateDue As Date
+        Get
+            Return _DateDue
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateDue", _DateDue, 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
+    <RuleRequiredField("OfferOutHeader.PaymentOption", DefaultContexts.Save)> _
+    Property PaymentOption As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(ByVal value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Me.DatePayment = Me.DateExecution.AddDays(Me.PaymentOption.PayDay)
+            End If
+        End Set
+    End Property
+    Property ShipmentOption As ShipmentOption
+        Get
+            Return _ShipmentOption
+        End Get
+        Set(ByVal value As ShipmentOption)
+            SetPropertyValue("ShipmentOption", _ShipmentOption, value)
+        End Set
+    End Property
+    Property QualityOption As QualityOption
+        Get
+            Return _QualityOption
+        End Get
+        Set(ByVal value As QualityOption)
+            SetPropertyValue("QualityOption", _QualityOption, value)
+        End Set
+    End Property
+    <RuleRequiredField("OfferOutHeader.CurrencyName", DefaultContexts.Save)> _
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    Property IsEditable As Boolean
+        Get
+            Return _IsEditable
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsEditable", _IsEditable, value)
+        End Set
+    End Property
+    Property IsStorno As Boolean
+        Get
+            Return _IsStorno
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsStorno", _IsStorno, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property DocumentBody As String
+        Get
+            Return _DocumentBody
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentBody", _DocumentBody, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property ExcelProperty As String
+        Get
+            Return _ExcelProperty
+        End Get
+        Set(value As String)
+            SetPropertyValue("ExcelProperty", _ExcelProperty, value)
+        End Set
+    End Property
+    Property ExcelFile As FileData
+        Get
+            Return _ExcelFile
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("ExcelFile", _ExcelFile, value)
+        End Set
+    End Property
+    Property PDF_Original As FileData
+        Get
+            Return _PDF_Original
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("PDF_Original", _PDF_Original, value)
+        End Set
+    End Property
+    <DataSourceCriteria("WorkflowSystem='@This.OfferOutParameters.WorkflowSystem'")> _
+    Property WorkflowSystemSteps As WorkflowSystemSteps
+        Get
+            Return _WorkflowSystemSteps
+        End Get
+        Set(value As WorkflowSystemSteps)
+            SetPropertyValue("WorkflowSystemSteps", _WorkflowSystemSteps, value)
+        End Set
+    End Property
+
+    <Persistent("SumPriceHUF")> _
+    ReadOnly Property SumPriceHUF As Double
+        Get
+            '// Át kell nézni, mert nem jó !
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                _SumPriceHUF = 0
+                For Each detail As OfferOutRows In OfferOutRows
+                    _SumPriceHUF += detail.SumPriceHUF
+                Next
+                Return _SumPriceHUF
+            End If
+        End Get
+    End Property
+    <Persistent("SumPriceDEV")> _
+    ReadOnly Property SumPriceDEV As Double
+        Get
+            '// Át kell nézni, mert nem jó !
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                _SumPriceDEV = 0
+                For Each detail As OfferOutRows In Me.OfferOutRows
+                    _SumPriceDEV += detail.SumPriceDEV
+                Next
+                Return _SumPriceDEV
+            End If
+        End Get
+    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("OfferOutHeader", GetType(OfferOutRows))> _
+    Public ReadOnly Property OfferOutRows() As XPCollection(Of OfferOutRows)
+        Get
+            Return GetCollection(Of OfferOutRows)("OfferOutRows")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Association("OfferOutCostRows", GetType(OfferOutCostRows))> _
+    Public ReadOnly Property OfferOutCostRows() As XPCollection
+        Get
+            Return GetCollection("OfferOutCostRows")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Association("OfferOutHeader-OfferOutVATRows", GetType(OfferOutVATRows))> _
+    Public ReadOnly Property OfferOutVATRows() As XPCollection
+        Get
+            Return GetCollection("OfferOutVATRows")
+        End Get
+    End Property
+    Public ReadOnly Property OfferInHeader As XPCollection(Of OfferInHeader)
+        Get
+            Dim _OfferInHeader_Collection As New XPCollection(Of OfferInHeader)(Session, CriteriaOperator.Parse("1=2"))
+            Dim _OfferOutHeaderInHeader_Collection As New XPCollection(Of OfferOutHeaderInHeader)(Session, CriteriaOperator.Parse("OfferOutHeader=?", Me))
+
+            For Each _OfferOutHeaderInHeader As OfferOutHeaderInHeader In _OfferOutHeaderInHeader_Collection
+                _OfferInHeader_Collection.Add(_OfferOutHeaderInHeader.OfferInHeader)
+            Next
+
+            Return _OfferInHeader_Collection
+        End Get
+    End Property
+
+    '--Nonpersistent propertyk
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <VisibleInListView(False)> _
+    Property row_RowType As eRowType
+        Get
+            Return _row_RowType
+        End Get
+        Set(value As eRowType)
+            SetPropertyValue("row_RowType", _row_RowType, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Me.row_RowType = eRowType.IsOther Then
+                Me.row_Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("ShortName='DB'"))
+
+                Dim _DefaultVAT As VAT = Nothing
+                Dim _VAT_Collection As New XPCollection(Of VAT)(Session)
+
+                For Each _VAT As VAT In _VAT_Collection
+                    If _VAT.DefaultForBusinnes = True Then
+                        _DefaultVAT = _VAT
+                        Exit For
+                    End If
+                Next
+
+                If _DefaultVAT IsNot Nothing Then
+                    Me.row_VAT = _DefaultVAT
+                End If
+            End If
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <RuleRequiredField("OfferOutHeader.row_Products", "aTotable_OfferOut", TargetCriteria:="row_RowType = 0")> _
+    <VisibleInListView(False)> _
+    Property row_Products As Products
+        Get
+            Return _row_Products
+        End Get
+        Set(ByVal value As Products)
+            SetPropertyValue("row_Products", _row_Products, value)
+
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And value IsNot Nothing Then
+                If Me.Customers.Pricing IsNot Nothing And Me.OfferOutParameters.OfferOutMainType = eOfferOutMainType.eFromProducts And Me.row_QTT > 0 Then
+                    If Me.CurrencyName.ShortName = "HUF" Then ' Ha a Deviza HUF
+                        Me.row_ListPriceHUF = CalculatePriceNettoHUF()
+                    Else ' Ha a deviza nem HUF
+                        Me.row_ListPriceDEV = CalculatePriceNettoDEV() ' A kedvezményt tartalmazó listaár DEV-ben
+                    End If
+                End If
+                If Me.Customers.Pricing Is Nothing Then
+                    If Me.CurrencyName.ShortName = "HUF" Then ' Ha nincs árkalkuláció akkor a normál listaáron lesz a termék
+                        Me.row_ListPriceHUF = Me.row_Products.ListPriceOutHUF
+                    End If
+                    If Me.CurrencyName.ShortName <> "HUF" Then
+                        Me.row_ListPriceDEV = Me.row_Products.ListPriceOutDEV
+                    End If
+                End If
+            End If
+
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <RuleRequiredField("OfferOutHeader.row_Installation", "aTotable_OfferOut", TargetCriteria:="row_RowType = 2")> _
+    <VisibleInListView(False)> _
+    Property row_Installation As Installation
+        Get
+            Return _row_Installation
+        End Get
+        Set(ByVal value As Installation)
+            SetPropertyValue("row_Installation", _row_Installation, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <RuleRequiredField("OfferOutHeader.row_ShortName", "aTotable_OfferOut", TargetCriteria:="row_RowType = 1")> _
+    <VisibleInListView(False)> _
+    Property row_ShortName As String
+        Get
+            Return _row_ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_ShortName", _row_ShortName, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <RuleRequiredField("OfferOutHeader.row_Description", "aTotable_OfferOut", TargetCriteria:="row_RowType = 1")> _
+    <VisibleInListView(False)> _
+    Property row_Description As String
+        Get
+            Return _row_Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_Description", _row_Description, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <RuleRange("OfferOutHeader._row_QTT", "aTotable_OfferOut", 0.001, Double.MaxValue)> _
+    <VisibleInListView(False)> _
+    Property row_QTT As Double
+        Get
+            Return _row_QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("row_QTT", _row_QTT, value)
+
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And value > 0 Then
+                If Me.Customers.Pricing IsNot Nothing And Me.OfferOutParameters.OfferOutMainType = eOfferOutMainType.eFromProducts And Me.row_Products IsNot Nothing Then
+                    If Me.CurrencyName.ShortName = "HUF" Then ' Ha a Deviza HUF
+                        Me.row_ListPriceHUF = CalculatePriceNettoHUF()
+                    Else ' Ha a deviza nem HUF
+                        Me.row_ListPriceDEV = CalculatePriceNettoDEV() ' A kedvezményt tartalmazó listaár DEV-ben
+                    End If
+                End If
+                If Me.Customers.Pricing Is Nothing Then
+                    If Me.row_ListPriceHUF = 0 And Me.CurrencyName.ShortName = "HUF" Then ' Ha nincs árkalkuláció akkor a normál listaáron lesz a termék
+                        Me.row_ListPriceHUF = Me.row_Products.ListPriceOutHUF
+                    End If
+                    If Me.row_ListPriceDEV = 0 And Me.CurrencyName.ShortName <> "HUF" Then
+                        Me.row_ListPriceDEV = Me.row_Products.ListPriceOutDEV
+                    End If
+                End If
+            End If
+
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <RuleRequiredField("OfferOutHeader.row_Units", "aTotable_OfferOut", TargetCriteria:="row_RowType = 1")> _
+    <VisibleInListView(False)> _
+    Property row_Units As Units
+        Get
+            Return _row_Units
+        End Get
+        Set(value As Units)
+            SetPropertyValue("row_Units", _row_Units, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <RuleRequiredField("OfferOutHeader-row_VAT", "aToTable_OfferOut")> _
+    <VisibleInListView(False)> _
+    Property row_VAT As VAT
+        Get
+            Return _row_VAT
+        End Get
+        Set(value As VAT)
+            SetPropertyValue("row_VAT", _row_VAT, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <RuleRange("OfferOutHeader-row_ListPriceHUF", "aToTable_OfferOut", 0.0001, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName='HUF'")> _
+    <VisibleInListView(False)> _
+    Property row_ListPriceHUF As Double
+        Get
+            Return _row_ListPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_ListPriceHUF", _row_ListPriceHUF, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+      <RuleRange("OfferOutHeader-row_ListPriceDEV", "aToTable_OfferOut", 0.0001, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName!='HUF'")> _
+      <VisibleInListView(False)> _
+    Property row_ListPriceDEV As Double
+        Get
+            Return _row_ListPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_ListPriceDEV", _row_ListPriceDEV, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <RuleRange("OfferOutHeader-row_DiscountPercent", "aToTable_OfferOut", 0, 99)> _
+    <VisibleInListView(False)> _
+    Property row_DiscountPercent As Double
+        Get
+            Return _row_DiscountPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_DiscountPercent", _row_DiscountPercent, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_RowGroup1 As String
+        Get
+            Return _row_RowGroup1
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup1", _row_RowGroup1, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_RowGroup2 As String
+        Get
+            Return _row_RowGroup2
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup2", _row_RowGroup2, value)
+        End Set
+    End Property
+    '-- CRM miatt
+    <Association("OfferOutHeader-CRM_Opportunities", GetType(CRM_Opportunities))> _
+    Property CRM_Opportunities As CRM_Opportunities
+        Get
+            Return _CRM_Opportunities
+        End Get
+        Set(ByVal value As CRM_Opportunities)
+            SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value)
+        End Set
+    End Property
+    Property OtherCostPercent As Double
+        Get
+            Return _OtherCostPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("OtherCostPercent", _OtherCostPercent, value)
+        End Set
+    End Property
+    Property MasterBusinessDirectory As BusinessDirectory
+        Get
+            Return _MasterBusinessDirectory
+        End Get
+        Set(value As BusinessDirectory)
+            SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value)
+        End Set
+    End Property
+    <Size(900)> _
+    Property DocumentPath As String
+        Get
+            Return _DocumentPath
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentPath", _DocumentPath, value)
+        End Set
+    End Property
+
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    Public ReadOnly Property OfferOutHeader_BusinessDirectory As XPCollection(Of BusinessDirectory)
+        Get
+            Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse("1=2"))
+
+            If MasterBusinessDirectory IsNot Nothing Then
+                If MasterBusinessDirectory.Children.Count > 0 Then
+                    _BusinessDirectory_Collection.Add(MasterBusinessDirectory)
+                    RecursiveBusinessDirectory(_BusinessDirectory_Collection, MasterBusinessDirectory.NestedBusinessDirectory)
+                Else
+                    _BusinessDirectory_Collection.Add(MasterBusinessDirectory)
+                End If
+            End If
+            Return _BusinessDirectory_Collection
+        End Get
+    End Property
+
+#Region "Other subs"
+    Private Sub RecursiveBusinessDirectory(_BusinessDirectoryList As XPCollection(Of BusinessDirectory), _NestedBusinessDirectory As XPCollection(Of BusinessDirectory))
+        For Each _BusinessDirectory As BusinessDirectory In _NestedBusinessDirectory
+            If _BusinessDirectory.Children.Count > 0 Then
+                _BusinessDirectoryList.Add(_BusinessDirectory)
+                RecursiveBusinessDirectory(_BusinessDirectoryList, _BusinessDirectory.NestedBusinessDirectory)
+            Else
+                _BusinessDirectoryList.Add(_BusinessDirectory)
+            End If
+        Next
+    End Sub
+#End Region
+    Sub RecalculateOfferOut(ByVal _OfferOutHeader As OfferOutHeader, ByVal _ocur As Xpo.XPObjectSpace)
+        '-- A rutin újragenerálja a pénzügyi sorokat
+        Dim _OfferOutVATRows As OfferOutVATRows
+        Dim i As Long = 1
+        Dim j As Long = 1
+        Dim _Exists As Boolean = False
+
+        Session.Delete(_OfferOutHeader.OfferOutVATRows)
+        Dim OfferRows = New XPQuery(Of OfferOutRows)(_ocur.Session)
+        Dim query = From OfferRow In OfferRows Where OfferRow.OfferOutHeader.Oid = _OfferOutHeader.Oid _
+            Group OfferRow By OfferRow.VAT Into g = Group _
+            Select New With {Key .VAT = VAT, _
+                             Key .AmountNettoHUF = g.Sum(Function(inv) (inv.FinalPriceHUF) * inv.QTT), _
+                             Key .AmountNettoDEV = g.Sum(Function(inv) (inv.FinalPriceDEV) * inv.QTT), _
+                             Key .S2 = g.Sum(Function(inv) inv.FinalPriceDEV), _
+                             Key .M1 = g.Max(Function(inv) inv.DiscountPriceHUF * inv.QTT)}
+        'Select New With {Key .VAT = VAT, _
+        '               Key .AmountNettoHUF = g.Sum(Function(inv) (inv.ListPriceHUF - inv.DiscountPriceHUF) * inv.QTT), _
+        '               Key .AmountNettoDEV = g.Sum(Function(inv) (inv.ListPriceDEV - inv.DiscountPriceDEV) * inv.QTT), _
+        '               Key .S2 = g.Sum(Function(inv) inv.ListPriceDEV), _
+        '               Key .M1 = g.Max(Function(inv) inv.DiscountPriceHUF * inv.QTT)}
+        For Each item In query
+            _OfferOutVATRows = _ocur.CreateObject(Of OfferOutVATRows)()
+            _OfferOutVATRows.OfferOutHeader = _OfferOutHeader
+            _OfferOutVATRows.VAT = item.VAT
+            _OfferOutVATRows.AmountNettoHUF = Math.Round(item.AmountNettoHUF, 0, MidpointRounding.AwayFromZero)
+            _OfferOutVATRows.AmountVATHUF = 0
+            If item.VAT IsNot Nothing Then
+                _OfferOutVATRows.AmountVATHUF = Math.Round(item.VAT.KeyValue * _OfferOutVATRows.AmountNettoHUF, 0, MidpointRounding.AwayFromZero)
+            End If
+            _OfferOutVATRows.AmountBruttoHUF = _OfferOutVATRows.AmountNettoHUF + _OfferOutVATRows.AmountVATHUF
+
+            _OfferOutVATRows.AmountNettoDEV = Math.Round(item.AmountNettoDEV, 2, MidpointRounding.AwayFromZero)
+            _OfferOutVATRows.AmountVATDEV = 0
+            If item.VAT IsNot Nothing Then
+                _OfferOutVATRows.AmountVATDEV = Math.Round(item.VAT.KeyValue * _OfferOutVATRows.AmountNettoDEV, 2, MidpointRounding.AwayFromZero)
+            End If
+            _OfferOutVATRows.AmountBruttoDEV = _OfferOutVATRows.AmountNettoDEV + _OfferOutVATRows.AmountVATDEV
+
+            _OfferOutVATRows.Save()
+            _OfferOutHeader.OfferOutVATRows.Add(_OfferOutVATRows)
+        Next
+
+        _OfferOutHeader.Save()
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutHeaderInHeader.vb

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

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutRTF.vb

@@ -0,0 +1,24 @@
+Public Class OfferOutRTF
+
+    Property [Sajátcég_Teljesnév] As String
+    Property [Sajátcég_Irányítószám] As String
+    Property [Sajátcég_Város] As String
+    Property [Sajátcég_Utca] As String
+    Property [Sajátcég_Ország] As String
+    Property [Sajátcég_Adószám] As String
+    Property [Sajátcég_Adószám_EU] As String
+
+    Property [Partner_Teljesnév] As String
+    Property [Partner_Irányítószám] As String
+    Property [Partner_Város] As String
+    Property [Partner_Utca] As String
+    Property [Partner_Ország] As String
+    Property [Partner_Adószám] As String
+    Property [Partner_Adószám_EU] As String
+
+    Property [Kapcsolat_Teljesnév] As String
+    Property [Kapcsolat_Email] As String
+    Property [Kapcsolat_Mobil] As String
+
+    Property [Ajánlat_Dokumentum_Sorszám] As String
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutVATRows.vb

@@ -0,0 +1,98 @@
+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 OfferOutVATRows
+    Inherits BaseObject
+    Private _OfferOutHeader As OfferOutHeader
+    Private _VAT As VAT
+    Private _AmountNettoHUF As Double
+    Private _AmountVATHUF As Double
+    Private _AmountBruttoHUF As Double
+    Private _AmountNettoDEV As Double
+    Private _AmountVATDEV As Double
+    Private _AmountBruttoDEV As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+
+    End Sub
+    <Association("OfferOutHeader-OfferOutVATRows", GetType(OfferOutHeader))> _
+    Property OfferOutHeader As OfferOutHeader
+        Get
+            Return _OfferOutHeader
+        End Get
+        Set(value As OfferOutHeader)
+            SetPropertyValue("OfferOutHeader", _OfferOutHeader, value)
+        End Set
+    End Property
+    Property VAT As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+    Property AmountNettoHUF As Double
+        Get
+            Return _AmountNettoHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountNettoHUF", _AmountNettoHUF, value)
+        End Set
+    End Property
+    Property AmountVATHUF As Double
+        Get
+            Return _AmountVATHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountVATHUF", _AmountVATHUF, value)
+        End Set
+    End Property
+    Property AmountBruttoHUF As Double
+        Get
+            Return _AmountBruttoHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountBruttoHUF", _AmountBruttoHUF, value)
+        End Set
+    End Property
+    Property AmountNettoDEV As Double
+        Get
+            Return _AmountNettoDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountNettoDEV", _AmountNettoDEV, value)
+        End Set
+    End Property
+    Property AmountVATDEV As Double
+        Get
+            Return _AmountVATDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountVATDEV", _AmountVATDEV, value)
+        End Set
+    End Property
+    Property AmountBruttoDEV As Double
+        Get
+            Return _AmountBruttoDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountBruttoDEV", _AmountBruttoDEV, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutParameters.vb

@@ -0,0 +1,158 @@
+
+Imports DevExpress.Xpo
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem("BusinessStocks")> _
+Public Class OfferOutParameters
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom
+    Private _OfferOutMainType As eOfferOutMainType 'Fő tipus 1
+    Private _OfferOutMainType2 As eOfferOutMainType2 'Fő tipus 2
+    Private _ShortName As String 'Rövid megnevezés
+    Private _Description As String 'Leírás
+    Private _NumberGenerator As NumberGenerator 'Sorszám generátor
+    Private _IsGenerateNumber_First As Boolean = False 'Generáljon e azonnal sorszámot a kimenő árajánlatnak 
+    Private _ReportData As ReportData ' Kimenő árajánlat 0. nyomtatvány 
+    Private _ReportData1 As ReportData 'Kimenő árajánlat 1. nyomtatvány
+    Private _ReportData2 As ReportData 'Kimenő árajánlat 2. nyomtatvány
+    Private _ReportData3 As ReportData 'Kimenő árajánlat 3. nyomtatvány
+    Private _AlertPeriod As AlertPeriod 'Figyelmeztetési paraméter
+    Private _DocumentBody As String 'RTF template
+    Private _WorkflowSystem As WorkflowSystem
+    Private _MasterBusinessDirectory As BusinessDirectory 'Mi alatt hozza létre a dokumentumtárat.
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property OfferOutMainType As eOfferOutMainType
+        Get
+            Return _OfferOutMainType
+        End Get
+        Set(ByVal value As eOfferOutMainType)
+            SetPropertyValue("OfferOutMainType", _OfferOutMainType, value)
+        End Set
+    End Property
+    Property OfferOutMainType2 As eOfferOutMainType2
+        Get
+            Return _OfferOutMainType2
+        End Get
+        Set(ByVal value As eOfferOutMainType2)
+            SetPropertyValue("OfferOutMainType2", _OfferOutMainType2, value)
+        End Set
+    End Property
+    <RuleRequiredField("", DefaultContexts.Save)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <Size(-1)>
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    <RuleRequiredField("", DefaultContexts.Save)> _
+    <NonCloneable()> _
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(ByVal value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    Property IsGenerateNumber_First As Boolean
+        Get
+            Return _IsGenerateNumber_First
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsGenerateNumber_First", _IsGenerateNumber_First, value)
+        End Set
+    End Property
+    Property ReportData As ReportData
+        Get
+            Return _ReportData
+        End Get
+        Set(ByVal value As ReportData)
+            SetPropertyValue("ReportData", _ReportData, value)
+        End Set
+    End Property
+    Property ReportData1 As ReportData
+        Get
+            Return _ReportData1
+        End Get
+        Set(ByVal value As ReportData)
+            SetPropertyValue("ReportData1", _ReportData1, value)
+        End Set
+    End Property
+    Property ReportData2 As ReportData
+        Get
+            Return _ReportData2
+        End Get
+        Set(ByVal value As ReportData)
+            SetPropertyValue("ReportData2", _ReportData2, value)
+        End Set
+    End Property
+    Property ReportData3 As ReportData
+        Get
+            Return _ReportData3
+        End Get
+        Set(ByVal value As ReportData)
+            SetPropertyValue("ReportData3", _ReportData3, value)
+        End Set
+    End Property
+    Property AlertPeriod As AlertPeriod
+        Get
+            Return _AlertPeriod
+        End Get
+        Set(value As AlertPeriod)
+            SetPropertyValue("AlertPeriod", _AlertPeriod, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property DocumentBody As String
+        Get
+            Return _DocumentBody
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentBody", _DocumentBody, value)
+        End Set
+    End Property
+    Property WorkflowSystem As WorkflowSystem
+        Get
+            Return _WorkflowSystem
+        End Get
+        Set(value As WorkflowSystem)
+            SetPropertyValue("WorkflowSystem", _WorkflowSystem, value)
+        End Set
+    End Property
+    Property MasterBusinessDirectory As BusinessDirectory
+        Get
+            Return _MasterBusinessDirectory
+        End Get
+        Set(value As BusinessDirectory)
+            SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value)
+        End Set
+    End Property
+
+End Class
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutPrintVC.Designer.vb

@@ -0,0 +1,115 @@
+Partial Class OffersOutPrintVC
+
+    <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()
+        Dim ChoiceActionItem1 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem()
+        Dim ChoiceActionItem2 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem()
+        Me.aOffersOutPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aOfferOutPrintChoice = New DevExpress.ExpressApp.Actions.SingleChoiceAction(Me.components)
+        Me.aOffersOutPrintPDF = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aOffersOutPrintPDF2 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aOffersOutPrint
+        '
+        Me.aOffersOutPrint.Caption = "Print document"
+        Me.aOffersOutPrint.Category = "View"
+        Me.aOffersOutPrint.ConfirmationMessage = Nothing
+        Me.aOffersOutPrint.Id = "aOffersOutPrint"
+        Me.aOffersOutPrint.ImageName = "Action_Printing_Print"
+        Me.aOffersOutPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aOffersOutPrint.Shortcut = Nothing
+        Me.aOffersOutPrint.Tag = Nothing
+        Me.aOffersOutPrint.TargetObjectsCriteria = Nothing
+        Me.aOffersOutPrint.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader)
+        Me.aOffersOutPrint.TargetViewId = Nothing
+        Me.aOffersOutPrint.ToolTip = Nothing
+        Me.aOffersOutPrint.TypeOfView = Nothing
+        '
+        'aOfferOutPrintChoice
+        '
+        Me.aOfferOutPrintChoice.Caption = "Print document"
+        Me.aOfferOutPrintChoice.ConfirmationMessage = Nothing
+        Me.aOfferOutPrintChoice.Id = "aOfferOutPrintChoice"
+        Me.aOfferOutPrintChoice.ImageName = "Action_Printing_Print"
+        ChoiceActionItem1.Caption = "Standard"
+        ChoiceActionItem1.Data = "0"
+        ChoiceActionItem1.ImageName = Nothing
+        ChoiceActionItem1.Shortcut = Nothing
+        ChoiceActionItem2.Caption = "Contract"
+        ChoiceActionItem2.Data = "1"
+        ChoiceActionItem2.ImageName = Nothing
+        ChoiceActionItem2.Shortcut = Nothing
+        Me.aOfferOutPrintChoice.Items.Add(ChoiceActionItem1)
+        Me.aOfferOutPrintChoice.Items.Add(ChoiceActionItem2)
+        Me.aOfferOutPrintChoice.Shortcut = Nothing
+        Me.aOfferOutPrintChoice.Tag = Nothing
+        Me.aOfferOutPrintChoice.TargetObjectsCriteria = Nothing
+        Me.aOfferOutPrintChoice.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader)
+        Me.aOfferOutPrintChoice.TargetViewId = Nothing
+        Me.aOfferOutPrintChoice.ToolTip = Nothing
+        Me.aOfferOutPrintChoice.TypeOfView = Nothing
+        '
+        'aOffersOutPrintPDF
+        '
+        Me.aOffersOutPrintPDF.Caption = "Print document PDF"
+        Me.aOffersOutPrintPDF.Category = "View"
+        Me.aOffersOutPrintPDF.ConfirmationMessage = Nothing
+        Me.aOffersOutPrintPDF.Id = "aOffersOutPrintPDF"
+        Me.aOffersOutPrintPDF.ImageName = "Action_Printing_Print"
+        Me.aOffersOutPrintPDF.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aOffersOutPrintPDF.Shortcut = Nothing
+        Me.aOffersOutPrintPDF.Tag = Nothing
+        Me.aOffersOutPrintPDF.TargetObjectsCriteria = Nothing
+        Me.aOffersOutPrintPDF.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader)
+        Me.aOffersOutPrintPDF.TargetViewId = Nothing
+        Me.aOffersOutPrintPDF.ToolTip = Nothing
+        Me.aOffersOutPrintPDF.TypeOfView = Nothing
+        '
+        'aOffersOutPrintPDF2
+        '
+        Me.aOffersOutPrintPDF2.Caption = "Print document PDF"
+        Me.aOffersOutPrintPDF2.Category = "View"
+        Me.aOffersOutPrintPDF2.ConfirmationMessage = Nothing
+        Me.aOffersOutPrintPDF2.Id = "aOffersOutPrintPDF2"
+        Me.aOffersOutPrintPDF2.ImageName = "Action_Printing_Print"
+        Me.aOffersOutPrintPDF2.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aOffersOutPrintPDF2.Shortcut = Nothing
+        Me.aOffersOutPrintPDF2.Tag = Nothing
+        Me.aOffersOutPrintPDF2.TargetObjectsCriteria = Nothing
+        Me.aOffersOutPrintPDF2.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader)
+        Me.aOffersOutPrintPDF2.TargetViewId = Nothing
+        Me.aOffersOutPrintPDF2.ToolTip = Nothing
+        Me.aOffersOutPrintPDF2.TypeOfView = Nothing
+
+    End Sub
+    Public WithEvents aOffersOutPrint As DevExpress.ExpressApp.Actions.SimpleAction
+    Public WithEvents aOfferOutPrintChoice As DevExpress.ExpressApp.Actions.SingleChoiceAction
+    Public WithEvents aOffersOutPrintPDF As DevExpress.ExpressApp.Actions.SimpleAction
+    Public WithEvents aOffersOutPrintPDF2 As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutPrintVC.resx

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

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutPrintVC.vb

@@ -0,0 +1,158 @@
+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.XtraReports.UI
+Imports DevExpress.XtraReports.Parameters
+Imports DevExpress.ExpressApp.Reports
+Imports DevExpress.Persistent.BaseImpl
+Imports System.IO
+
+Public Class OffersOutPrintVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Private _ReportServiceController As ReportServiceController
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        If View.Id = "OfferOutHeader_DetailView" Then
+            Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.Active.SetItemValue("", True)
+            Frame.GetController(Of OffersOutPrintVC).aOffersOutPrint.Active.SetItemValue("", True)
+        End If
+        If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then
+            Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.Active.SetItemValue("", True)
+            Frame.GetController(Of OffersOutPrintVC).aOffersOutPrint.Active.SetItemValue("", True)
+        End If
+        If View.Id = "OfferOutHeader_ListView_Support" Then
+            Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.Active.SetItemValue("", False)
+            Frame.GetController(Of OffersOutPrintVC).aOffersOutPrint.Active.SetItemValue("", False)
+            Frame.GetController(Of OffersOutPrintVC).aOffersOutPrintPDF2.Active.SetItemValue("", False)
+            Frame.GetController(Of OffersOutPrintVC).aOffersOutPrintPDF.Active.SetItemValue("", False)
+        End If
+        If View.Id = "OfferOutHeader_ListView_Subcontractor" Then
+            Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.Active.SetItemValue("", False)
+            Frame.GetController(Of OffersOutPrintVC).aOffersOutPrint.Active.SetItemValue("", False)
+            Frame.GetController(Of OffersOutPrintVC).aOffersOutPrintPDF2.Active.SetItemValue("", False)
+            Frame.GetController(Of OffersOutPrintVC).aOffersOutPrintPDF.Active.SetItemValue("", False)
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "OfferOutHeader_DetailView" Then
+            Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.Active.SetItemValue("", False)
+            Frame.GetController(Of OffersOutPrintVC).aOffersOutPrint.Active.SetItemValue("", False)
+        End If
+        If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then
+            Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.Active.SetItemValue("", False)
+            Frame.GetController(Of OffersOutPrintVC).aOffersOutPrint.Active.SetItemValue("", False)
+        End If
+    End Sub
+    Public Sub aOffersOutPrint_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOffersOutPrint.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _OfferOutHeader As OfferOutHeader
+        Dim _ReportData As ReportData
+
+        If e.SelectedObjects.Count > 0 Then
+            _OfferOutHeader = TryCast(e.SelectedObjects(0), OfferOutHeader)
+
+            If _OfferOutHeader IsNot Nothing Then
+                If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem IsNot Nothing Then
+                    If _OfferOutHeader.IsEditable = True Then
+                        _OfferOutHeader.RecalculateOfferOut(_OfferOutHeader, _ocur)
+                        _ocur.CommitChanges()
+                    End If
+                    If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem.Data = "0" Then
+                        _ReportData = _OfferOutHeader.OfferOutParameters.ReportData
+
+                        Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("OfferOutHeader=?", _OfferOutHeader), True)
+                    End If
+                    If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem.Data = "1" Then
+                        _ReportData = _OfferOutHeader.OfferOutParameters.ReportData1
+                        Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("OfferOutHeader=?", _OfferOutHeader), True)
+                    End If
+                Else
+                    Throw New Exception("*Nincs nyomtatvány típus kiválasztva!")
+                End If
+            End If
+        End If
+    End Sub
+    Public Sub aOfferOutPrintChoice_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SingleChoiceActionExecuteEventArgs) Handles aOfferOutPrintChoice.Execute
+        If e.SelectedObjects.Count > 0 Then
+            Dim _OfferOutHeader As OfferOutHeader = TryCast(e.SelectedObjects(0), OfferOutHeader)
+            Dim _ReportData As ReportData = Nothing
+
+            If _OfferOutHeader IsNot Nothing Then
+                Select Case e.SelectedChoiceActionItem.Data
+                    Case 0 'Standard
+                        _ReportData = _OfferOutHeader.OfferOutParameters.ReportData
+                    Case 1 'Contract
+                        _ReportData = _OfferOutHeader.OfferOutParameters.ReportData1
+                    Case 2 'Other
+                        _ReportData = _OfferOutHeader.OfferOutParameters.ReportData2
+                End Select
+                'If _ReportData IsNot Nothing Then
+                '    Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("OfferOutHeader=?", _OfferOutHeader),true)
+                'End If
+            End If
+        End If
+    End Sub
+
+    Private Sub aOffersOutPrintPDF_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOffersOutPrintPDF.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader)
+        Dim _ReportData As ReportData = Nothing
+
+        If _OfferOutHeader IsNot Nothing Then
+            If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem IsNot Nothing Then
+                If _OfferOutHeader.IsEditable = True Then
+                    _OfferOutHeader.RecalculateOfferOut(_OfferOutHeader, _ocur)
+                    _ocur.CommitChanges()
+                End If
+                If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem.Data = "0" Then
+                    _ReportData = _OfferOutHeader.OfferOutParameters.ReportData
+                End If
+                If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem.Data = "1" Then
+                    _ReportData = _OfferOutHeader.OfferOutParameters.ReportData1
+                End If
+            Else
+                Throw New Exception("*Nincs nyomtatvány típus kiválasztva!")
+            End If
+
+            If _ReportData IsNot Nothing Then
+                Dim _XafReport As XafReport = _ReportData.LoadReport(_ocur)
+                Dim _FilterString As String = "[OfferOutHeader.Oid]='" & _OfferOutHeader.Oid.ToString & "'"
+                _XafReport.FilterString = _FilterString
+                Dim _FileName As String = Path.GetTempPath & CorrectFileName(_OfferOutHeader.DocumentNumber) & ".pdf"
+                Dim _StreamFile As New FileStream(_FileName, FileMode.Create)
+
+                _XafReport.ExportToPdf(_StreamFile)
+                _StreamFile.Close()
+
+                _StreamFile = New FileStream(_FileName, FileMode.Open, FileAccess.Read)
+                Dim _StreamReader As New StreamReader(_StreamFile)
+                _StreamFile.Seek(0, SeekOrigin.Begin)
+                _OfferOutHeader.PDF_Original = New FileData(_ocur.Session)
+                _OfferOutHeader.PDF_Original.LoadFromStream(_FileName, _StreamFile)
+                _OfferOutHeader.PDF_Original.FileName = CorrectFileName(_OfferOutHeader.DocumentNumber) & ".pdf"
+
+                _StreamReader.Close()
+                _StreamFile.Close()
+
+                _ocur.CommitChanges()
+
+                If File.Exists(_FileName) Then File.Delete(_FileName)
+            End If
+        End If
+    End Sub
+
+    
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutRows.vb

@@ -0,0 +1,386 @@
+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 InsertServicesToOfferOut and aImportRecipe", AppearanceItemType.Action, "OfferOutHeader.IsEditable = False", TargetItems:="InsertServicesToOfferOut;aImportRecipe", Enabled:=False)> _
+Public Class OfferOutRows
+    Inherits BaseObject
+    Private _OfferOutHeader As OfferOutHeader 'Árajánlat fejléce
+    Private _RowType As eRowType 'Sor miről szól ?
+    Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező)
+    Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező)
+    Private _Product As Products 'Termék
+    Private _Installation As Installation 'Gyártmány
+    Private _RowIndex As Long 'Sor index (mozgathatónak kell lennie !)
+    Private _CustomsTariffs As CustomsTariffs 'Vámtarifaszám, vagy szj szám vagy még ami lesz
+    Private _ShortName As String 'Megnevezés -> Ez megy majd rá később a számlára is !
+    Private _Description As String 'Leírás -> ez is rá fog menni a számlára !
+    Private _DescriptionPrivate As String 'Na ez csak látszódjon, de nem menjen föl semmilyen doksira !!!
+    Private _ListPriceHUF As Double = 0 'Listaár HUF
+    Private _ListPriceDEV As Double = 0 ' Listaár DEV
+    Private _DiscountPriceHUF As Double = 0 'Kedvezmény összege HUF
+    Private _DiscountPriceDEV As Double = 0 'Kedvezmény összege DEV
+    Private _DiscountPercent As Double = 0 'Kedvezmény  %-ban (56 az 56% !!!)
+    Private _QTT As Double = 0 'Mennyiség. A Mennyiségi egység vagy a Products-ból, vag Installationnál DB
+    Private _Units As Units 'Mennyiségi egység
+    Private _QualityOption As QualityOption 'Minőségi opció
+    Private _VAT As VAT 'ÁFA kód
+    Private _SumPriceHUF As Double
+    Private _SumPriceDEV As Double
+    Private _FinalPriceDEV As Double
+    Private _FinalPriceHUF As Double
+    Private _OfferInRows As OfferInRows 'Bejövő ajánlat sora !!! (Alvállalkozó!!!)
+    Private _Recipe As Recipe 'Milyen receptből van ez a sor
+
+    Private _CanChangeProperty As Boolean = True
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <Association("OfferOutHeader", GetType(OfferOutHeader))> _
+    Property OfferOutHeader() As OfferOutHeader
+        Get
+            Return _OfferOutHeader
+        End Get
+        Set(ByVal value As OfferOutHeader)
+            SetPropertyValue("OfferOutHeader", _OfferOutHeader, value)
+        End Set
+    End Property
+    Property RowType() As eRowType
+        Get
+            Return _RowType
+        End Get
+        Set(ByVal value As eRowType)
+            SetPropertyValue("RowType", _RowType, value)
+        End Set
+    End Property
+    <RuleRequiredField("", "aTotable_OfferOut")> _
+    Property Product() As Products
+        Get
+            Return _Product
+        End Get
+        Set(ByVal value As Products)
+            SetPropertyValue("Product", _Product, value)
+
+            If value Is Nothing Then
+            Else
+                _ShortName = value.ShortName
+                _ListPriceHUF = value.ListPriceOutHUF
+                OnChanged("ShortName")
+                OnChanged("ListPriceHUF")
+            End If
+
+        End Set
+    End Property
+    Property Installation As Installation
+        Get
+            Return _Installation
+        End Get
+        Set(ByVal value As Installation)
+            SetPropertyValue("Installation", _Installation, value)
+        End Set
+    End Property
+    Property RowIndex() As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    Property RowGroup1 As String
+        Get
+            Return _RowGroup1
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup1", _RowGroup1, value)
+        End Set
+    End Property
+    Property RowGroup2 As String
+        Get
+            Return _RowGroup2
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup2", _RowGroup2, value)
+        End Set
+    End Property
+    Property CustomsTariffs() As CustomsTariffs
+        Get
+            Return _CustomsTariffs
+        End Get
+        Set(ByVal value As CustomsTariffs)
+            SetPropertyValue("CustomsTariffs", _CustomsTariffs, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property DescriptionPrivate As String
+        Get
+            Return _DescriptionPrivate
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DescriptionPrivate", _DescriptionPrivate, value)
+        End Set
+    End Property
+    Property ListPriceHUF() As Double
+        Get
+            Return _ListPriceHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("ListPriceHUF", _ListPriceHUF, value)
+
+        End Set
+    End Property
+    Property ListPriceDEV() As Double
+        Get
+            Return _ListPriceDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("ListPriceDEV", _ListPriceDEV, value)
+
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property DiscountPercent() As Double
+        Get
+            Return _DiscountPercent
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("DiscountPercent", _DiscountPercent, value)
+
+        End Set
+    End Property
+    <RuleRequiredField("", DefaultContexts.Save)> _
+    <RuleRange("", DefaultContexts.Save, 0.001, 999999999)> _
+    Property QTT() As Double
+        Get
+            Return _QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+            RecalculateRow()
+        End Set
+    End Property
+    Property Units As Units
+        Get
+            Return _Units
+        End Get
+        Set(value As Units)
+            SetPropertyValue("Units", _Units, value)
+        End Set
+    End Property
+    Property QualityOption() As QualityOption
+        Get
+            Return _QualityOption
+        End Get
+        Set(ByVal value As QualityOption)
+            SetPropertyValue("QualityOption", _QualityOption, value)
+        End Set
+    End Property
+    Property VAT() As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(ByVal value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+    Property FinalPriceDEV() As Double
+        Get
+            Return _FinalPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FinalPriceDEV", _FinalPriceDEV, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If ListPriceDEV = 0 Then ListPriceDEV = value
+                If CanChangeProperty Then
+                    RecalculateRow2()
+                    RecalculateRow()
+                End If
+            End If
+        End Set
+    End Property
+    Property FinalPriceHUF() As Double
+        Get
+            Return _FinalPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FinalPriceHUF", _FinalPriceHUF, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If ListPriceHUF = 0 Then ListPriceHUF = value
+                If CanChangeProperty Then
+                    RecalculateRow2()
+                    RecalculateRow()
+                End If
+            End If
+        End Set
+    End Property
+    Property SumPriceHUF() As Double
+        Get
+            Return _SumPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceHUF", _SumPriceHUF, value)
+        End Set
+    End Property
+    Property SumPriceDEV() As Double
+        Get
+            Return _SumPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceDEV", _SumPriceDEV, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property DiscountPriceHUF() As Double
+        Get
+            Return _DiscountPriceHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("DiscountPriceHUF", _DiscountPriceHUF, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property DiscountPriceDEV() As Double
+        Get
+            Return _DiscountPriceDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("DiscountPriceDEV", _DiscountPriceDEV, value)
+        End Set
+    End Property
+    Property OfferInRows As OfferInRows
+        Get
+            Return _OfferInRows
+        End Get
+        Set(value As OfferInRows)
+            SetPropertyValue("OfferInRows", _OfferInRows, value)
+        End Set
+    End Property
+    Property Recipe As Recipe
+        Get
+            Return _Recipe
+        End Get
+        Set(value As Recipe)
+            SetPropertyValue("Recipe", _Recipe, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property CanChangeProperty As Boolean
+        Get
+            Return _CanChangeProperty
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("CanChangeProperty", _CanChangeProperty, value)
+        End Set
+    End Property
+    Public Sub RecalculateRow()
+        DiscountPriceDEV = ListPriceDEV * (DiscountPercent / 100)
+        DiscountPriceHUF = ListPriceHUF * (DiscountPercent / 100)
+        SumPriceDEV = (ListPriceDEV - DiscountPriceDEV) * QTT
+        SumPriceHUF = (ListPriceHUF - DiscountPriceHUF) * QTT
+    End Sub
+    Public Sub RecalculateRow2()
+        If Me.OfferOutHeader.CurrencyName.ShortName = "HUF" Then
+            If ListPriceHUF <> 0 Then
+                DiscountPercent = 100 - (FinalPriceHUF / ListPriceHUF * 100)
+            End If
+        Else
+            If ListPriceDEV <> 0 Then
+                DiscountPercent = 100 - (FinalPriceDEV / ListPriceDEV * 100)
+            End If
+        End If
+    End Sub
+    Public Sub AddRows(ByVal _p_OfferOutHeader As OfferOutHeader)
+        ' Sor hozzáadása
+        CanChangeProperty = False
+        Me.OfferOutHeader = _p_OfferOutHeader
+
+        If _p_OfferOutHeader.row_RowType = eRowType.IsInstallation Then ' Sor hozzáadása ha gyártmány típusú a sor
+            Me.Installation = _p_OfferOutHeader.row_Installation
+            Me.RowType = _p_OfferOutHeader.row_RowType
+            Me.QTT = _p_OfferOutHeader.row_QTT
+            Me.Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("ShortName='DB'"))
+            Me.ListPriceHUF = _p_OfferOutHeader.row_ListPriceHUF
+            Me.ListPriceDEV = _p_OfferOutHeader.row_ListPriceDEV
+            Me.DiscountPercent = _p_OfferOutHeader.row_DiscountPercent
+            Me.RowGroup1 = _p_OfferOutHeader.row_RowGroup1
+            Me.RowGroup2 = _p_OfferOutHeader.row_RowGroup2
+            Me.VAT = _p_OfferOutHeader.row_VAT
+
+            RecalculateRow()
+            FinalPriceDEV = ListPriceDEV - DiscountPriceDEV
+            FinalPriceHUF = ListPriceHUF - DiscountPriceHUF
+        End If
+
+        If _p_OfferOutHeader.row_RowType = eRowType.IsOther Then ' Sor hozzáadása ha egyéb típusú a sor
+            Me.ShortName = _p_OfferOutHeader.row_ShortName
+            Me.RowType = _p_OfferOutHeader.row_RowType
+            Me.QTT = _p_OfferOutHeader.row_QTT
+            Me.Units = _p_OfferOutHeader.row_Units
+            Me.ListPriceHUF = _p_OfferOutHeader.row_ListPriceHUF
+            Me.ListPriceDEV = _p_OfferOutHeader.row_ListPriceDEV
+            Me.DiscountPercent = _p_OfferOutHeader.row_DiscountPercent
+            Me.Description = _p_OfferOutHeader.row_Description
+            Me.VAT = _p_OfferOutHeader.row_VAT
+            Me.RowGroup1 = _p_OfferOutHeader.row_RowGroup1
+            Me.RowGroup2 = _p_OfferOutHeader.row_RowGroup2
+
+            RecalculateRow()
+            FinalPriceDEV = ListPriceDEV - DiscountPriceDEV
+            FinalPriceHUF = ListPriceHUF - DiscountPriceHUF
+        End If
+
+        If _p_OfferOutHeader.row_RowType = eRowType.IsProduct Then ' Sor hozzáadása ha termék típusú a sor
+            Me.Product = _p_OfferOutHeader.row_Products
+            Me.RowType = _p_OfferOutHeader.row_RowType
+            Me.QTT = _p_OfferOutHeader.row_QTT
+            Me.Units = _p_OfferOutHeader.row_Products.Units
+            Me.ListPriceHUF = _p_OfferOutHeader.row_ListPriceHUF
+            Me.ListPriceDEV = _p_OfferOutHeader.row_ListPriceDEV
+            Me.DiscountPercent = _p_OfferOutHeader.row_DiscountPercent
+            Me.VAT = _p_OfferOutHeader.row_Products.VAT
+            Me.RowGroup1 = _p_OfferOutHeader.row_RowGroup1
+            Me.RowGroup2 = _p_OfferOutHeader.row_RowGroup2
+            RecalculateRow()
+            FinalPriceDEV = ListPriceDEV - DiscountPriceDEV
+            FinalPriceHUF = ListPriceHUF - DiscountPriceHUF
+        End If
+
+        ' Indexelés
+        If _p_OfferOutHeader.OfferOutRows.Count = 0 Then
+            Me.RowIndex = 0
+        Else
+            Me.RowIndex = _p_OfferOutHeader.OfferOutRows.Count - 1
+        End If
+        CanChangeProperty = True
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutVC.Designer.vb

@@ -0,0 +1,363 @@
+Partial Class OffersOutVC
+
+	<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.aOffersOutFinal = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aOrderOfferedRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aTotableD_OfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aTotable_OfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aUp_OfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDown_OfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCloneOfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateOrderIn_From_OfferOut = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCloneOfferOut_CRM = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aOffersOut_ChangeRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aOffersOutFinalWidthVersion = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aGenerateOfferOutCost = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aImportRecipe = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aInsert_Discount_RowOther = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aInsertServicesToOfferOut = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aBackToRowEdit_OfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aOfferOut_ChangeState = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aGeneratePDFandSendDefaultMailClient = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBackToEditOfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aProductVariableFinder = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aImportOrderInRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aOfferOut_RecalculateDEV = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aOfferOutHeader_AddOfferInHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aOfferOutHeader_ImportOfferInRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aOffersOutFinal
+        '
+        Me.aOffersOutFinal.Caption = "Offers Out Final"
+        Me.aOffersOutFinal.Category = "RecordEdit"
+        Me.aOffersOutFinal.ConfirmationMessage = Nothing
+        Me.aOffersOutFinal.Id = "aOffersOutFinal"
+        Me.aOffersOutFinal.ImageName = "MenuBar_SaveAndClose"
+        Me.aOffersOutFinal.ToolTip = Nothing
+        '
+        'aOrderOfferedRows
+        '
+        Me.aOrderOfferedRows.Caption = "OrderOfferedRows"
+        Me.aOrderOfferedRows.Category = "RecordEdit"
+        Me.aOrderOfferedRows.ConfirmationMessage = Nothing
+        Me.aOrderOfferedRows.Id = "aOrderOfferedRows"
+        Me.aOrderOfferedRows.ToolTip = Nothing
+        '
+        'aTotableD_OfferOut
+        '
+        Me.aTotableD_OfferOut.Caption = "Delete row"
+        Me.aTotableD_OfferOut.Category = "aTotableD_OfferOut"
+        Me.aTotableD_OfferOut.ConfirmationMessage = Nothing
+        Me.aTotableD_OfferOut.Id = "aTotableD_OfferOut"
+        Me.aTotableD_OfferOut.ImageName = "table_delete"
+        Me.aTotableD_OfferOut.TargetViewId = ""
+        Me.aTotableD_OfferOut.ToolTip = Nothing
+        '
+        'aTotable_OfferOut
+        '
+        Me.aTotable_OfferOut.Caption = "Add row"
+        Me.aTotable_OfferOut.Category = "aTotable_OfferOut"
+        Me.aTotable_OfferOut.ConfirmationMessage = Nothing
+        Me.aTotable_OfferOut.Id = "aTotable_OfferOut"
+        Me.aTotable_OfferOut.ImageName = "table_add"
+        Me.aTotable_OfferOut.TargetViewId = ""
+        Me.aTotable_OfferOut.ToolTip = Nothing
+        '
+        'aUp_OfferOut
+        '
+        Me.aUp_OfferOut.Caption = "Up"
+        Me.aUp_OfferOut.Category = "RecordsNavigation"
+        Me.aUp_OfferOut.ConfirmationMessage = Nothing
+        Me.aUp_OfferOut.Id = "aUp_OfferOut"
+        Me.aUp_OfferOut.ImageName = "arrow_up_green"
+        Me.aUp_OfferOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aUp_OfferOut.ToolTip = Nothing
+        '
+        'aDown_OfferOut
+        '
+        Me.aDown_OfferOut.Caption = "Down"
+        Me.aDown_OfferOut.Category = "RecordsNavigation"
+        Me.aDown_OfferOut.ConfirmationMessage = Nothing
+        Me.aDown_OfferOut.Id = "aDown_OfferOut"
+        Me.aDown_OfferOut.ImageName = "arrow_down_green"
+        Me.aDown_OfferOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aDown_OfferOut.ToolTip = Nothing
+        '
+        'aCloneOfferOut
+        '
+        Me.aCloneOfferOut.Caption = "Clone selected OfferOut"
+        Me.aCloneOfferOut.Category = "ObjectsCreation"
+        Me.aCloneOfferOut.ConfirmationMessage = Nothing
+        Me.aCloneOfferOut.Id = "aCloneOfferOut"
+        Me.aCloneOfferOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCloneOfferOut.ToolTip = Nothing
+        '
+        'aCreateOrderIn_From_OfferOut
+        '
+        Me.aCreateOrderIn_From_OfferOut.AcceptButtonCaption = Nothing
+        Me.aCreateOrderIn_From_OfferOut.CancelButtonCaption = Nothing
+        Me.aCreateOrderIn_From_OfferOut.Caption = "Create OrderIn"
+        Me.aCreateOrderIn_From_OfferOut.Category = "ObjectsCreation"
+        Me.aCreateOrderIn_From_OfferOut.ConfirmationMessage = Nothing
+        Me.aCreateOrderIn_From_OfferOut.Id = "aCreateOrderIn_From_OfferOut"
+        Me.aCreateOrderIn_From_OfferOut.ImageName = "document_down"
+        Me.aCreateOrderIn_From_OfferOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCreateOrderIn_From_OfferOut.TargetViewId = ""
+        Me.aCreateOrderIn_From_OfferOut.ToolTip = Nothing
+        '
+        'aCloneOfferOut_CRM
+        '
+        Me.aCloneOfferOut_CRM.AcceptButtonCaption = Nothing
+        Me.aCloneOfferOut_CRM.CancelButtonCaption = Nothing
+        Me.aCloneOfferOut_CRM.Caption = "CloneOfferOut CRM"
+        Me.aCloneOfferOut_CRM.Category = "ObjectsCreation"
+        Me.aCloneOfferOut_CRM.ConfirmationMessage = Nothing
+        Me.aCloneOfferOut_CRM.Id = "aCloneOfferOut_CRM"
+        Me.aCloneOfferOut_CRM.ImageName = "Action_CloneMerge_Clone_Object"
+        Me.aCloneOfferOut_CRM.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCloneOfferOut_CRM.ToolTip = Nothing
+        '
+        'aOffersOut_ChangeRows
+        '
+        Me.aOffersOut_ChangeRows.AcceptButtonCaption = Nothing
+        Me.aOffersOut_ChangeRows.CancelButtonCaption = Nothing
+        Me.aOffersOut_ChangeRows.Caption = "Change data in selected rows"
+        Me.aOffersOut_ChangeRows.ConfirmationMessage = Nothing
+        Me.aOffersOut_ChangeRows.Id = "aOffersOut_ChangeRows"
+        Me.aOffersOut_ChangeRows.ImageName = "Action_EditModel"
+        Me.aOffersOut_ChangeRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aOffersOut_ChangeRows.ToolTip = Nothing
+        '
+        'aOffersOutFinalWidthVersion
+        '
+        Me.aOffersOutFinalWidthVersion.AcceptButtonCaption = Nothing
+        Me.aOffersOutFinalWidthVersion.CancelButtonCaption = Nothing
+        Me.aOffersOutFinalWidthVersion.Caption = "Offers Out Final Width Version"
+        Me.aOffersOutFinalWidthVersion.Category = "RecordEdit"
+        Me.aOffersOutFinalWidthVersion.ConfirmationMessage = Nothing
+        Me.aOffersOutFinalWidthVersion.Id = "aOffersOutFinalWidthVersion"
+        Me.aOffersOutFinalWidthVersion.ImageName = "MenuBar_SaveAndClose"
+        Me.aOffersOutFinalWidthVersion.ToolTip = Nothing
+        '
+        'aGenerateOfferOutCost
+        '
+        Me.aGenerateOfferOutCost.Caption = "Generate Offer Out Cost"
+        Me.aGenerateOfferOutCost.Category = "ObjectsCreation"
+        Me.aGenerateOfferOutCost.ConfirmationMessage = Nothing
+        Me.aGenerateOfferOutCost.Id = "aGenerateOfferOutCost"
+        Me.aGenerateOfferOutCost.ImageName = "stopwatch_run"
+        Me.aGenerateOfferOutCost.TargetViewId = "OfferOutHeader_OfferOutCostRows_ListView"
+        Me.aGenerateOfferOutCost.ToolTip = Nothing
+        '
+        'aImportRecipe
+        '
+        Me.aImportRecipe.AcceptButtonCaption = Nothing
+        Me.aImportRecipe.CancelButtonCaption = Nothing
+        Me.aImportRecipe.Caption = "Import Recipe"
+        Me.aImportRecipe.ConfirmationMessage = Nothing
+        Me.aImportRecipe.Id = "aImportRecipe"
+        Me.aImportRecipe.ToolTip = Nothing
+        '
+        'aInsert_Discount_RowOther
+        '
+        Me.aInsert_Discount_RowOther.AcceptButtonCaption = Nothing
+        Me.aInsert_Discount_RowOther.CancelButtonCaption = Nothing
+        Me.aInsert_Discount_RowOther.Caption = "Insert discount row"
+        Me.aInsert_Discount_RowOther.Category = "aInsert_Discount_RowOther"
+        Me.aInsert_Discount_RowOther.ConfirmationMessage = Nothing
+        Me.aInsert_Discount_RowOther.Id = "aInsert_Discount_RowOther"
+        Me.aInsert_Discount_RowOther.TargetViewId = ""
+        Me.aInsert_Discount_RowOther.ToolTip = Nothing
+        '
+        'aInsertServicesToOfferOut
+        '
+        Me.aInsertServicesToOfferOut.AcceptButtonCaption = Nothing
+        Me.aInsertServicesToOfferOut.CancelButtonCaption = Nothing
+        Me.aInsertServicesToOfferOut.Caption = "aInsert Services To Offer Out"
+        Me.aInsertServicesToOfferOut.ConfirmationMessage = Nothing
+        Me.aInsertServicesToOfferOut.Id = "aInsertServicesToOfferOut"
+        Me.aInsertServicesToOfferOut.TargetViewId = ""
+        Me.aInsertServicesToOfferOut.ToolTip = Nothing
+        '
+        'aBackToRowEdit_OfferOut
+        '
+        Me.aBackToRowEdit_OfferOut.Caption = "Edit row"
+        Me.aBackToRowEdit_OfferOut.Category = "aBackToRowEdit_OfferOut"
+        Me.aBackToRowEdit_OfferOut.ConfirmationMessage = Nothing
+        Me.aBackToRowEdit_OfferOut.Id = "aBackToRowEdit_OfferOut"
+        Me.aBackToRowEdit_OfferOut.ImageName = "table_refresh"
+        Me.aBackToRowEdit_OfferOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBackToRowEdit_OfferOut.TargetViewId = ""
+        Me.aBackToRowEdit_OfferOut.ToolTip = Nothing
+        Me.aBackToRowEdit_OfferOut.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aOfferOut_ChangeState
+        '
+        Me.aOfferOut_ChangeState.AcceptButtonCaption = Nothing
+        Me.aOfferOut_ChangeState.CancelButtonCaption = Nothing
+        Me.aOfferOut_ChangeState.Caption = "OfferOut Change State"
+        Me.aOfferOut_ChangeState.ConfirmationMessage = Nothing
+        Me.aOfferOut_ChangeState.Id = "aOfferOut_ChangeState"
+        Me.aOfferOut_ChangeState.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aOfferOut_ChangeState.TargetViewId = ""
+        Me.aOfferOut_ChangeState.ToolTip = Nothing
+        '
+        'aGeneratePDFandSendDefaultMailClient
+        '
+        Me.aGeneratePDFandSendDefaultMailClient.Caption = "aGenerate PDFand Send Default Mail Client"
+        Me.aGeneratePDFandSendDefaultMailClient.ConfirmationMessage = Nothing
+        Me.aGeneratePDFandSendDefaultMailClient.Id = "aGeneratePDFandSendDefaultMailClient"
+        Me.aGeneratePDFandSendDefaultMailClient.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aGeneratePDFandSendDefaultMailClient.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader)
+        Me.aGeneratePDFandSendDefaultMailClient.ToolTip = Nothing
+        '
+        'aBackToEditOfferOut
+        '
+        Me.aBackToEditOfferOut.Caption = "aBackToEditOfferOut"
+        Me.aBackToEditOfferOut.Category = "Edit"
+        Me.aBackToEditOfferOut.ConfirmationMessage = Nothing
+        Me.aBackToEditOfferOut.Id = "aBackToEditOfferOut"
+        Me.aBackToEditOfferOut.ImageName = "table_refresh"
+        Me.aBackToEditOfferOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBackToEditOfferOut.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader)
+        Me.aBackToEditOfferOut.TargetViewId = ""
+        Me.aBackToEditOfferOut.ToolTip = Nothing
+        Me.aBackToEditOfferOut.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aProductVariableFinder
+        '
+        Me.aProductVariableFinder.AcceptButtonCaption = Nothing
+        Me.aProductVariableFinder.CancelButtonCaption = Nothing
+        Me.aProductVariableFinder.Caption = "aProductVariableFinder"
+        Me.aProductVariableFinder.ConfirmationMessage = Nothing
+        Me.aProductVariableFinder.Id = "aProductVariableFinder"
+        Me.aProductVariableFinder.TargetObjectType = GetType(SISBusiness.[Module].OfferOutRows)
+        Me.aProductVariableFinder.TargetViewId = ""
+        Me.aProductVariableFinder.ToolTip = Nothing
+        '
+        'aImportOrderInRows
+        '
+        Me.aImportOrderInRows.AcceptButtonCaption = Nothing
+        Me.aImportOrderInRows.CancelButtonCaption = Nothing
+        Me.aImportOrderInRows.Caption = "Import Order In Rows"
+        Me.aImportOrderInRows.ConfirmationMessage = Nothing
+        Me.aImportOrderInRows.Id = "aImportOrderInRows"
+        Me.aImportOrderInRows.TargetObjectType = GetType(SISBusiness.[Module].OfferOutRows)
+        Me.aImportOrderInRows.TargetViewId = "OfferOutHeader_OfferOutRows_ListView"
+        Me.aImportOrderInRows.ToolTip = Nothing
+        '
+        'aOfferOut_RecalculateDEV
+        '
+        Me.aOfferOut_RecalculateDEV.AcceptButtonCaption = Nothing
+        Me.aOfferOut_RecalculateDEV.CancelButtonCaption = Nothing
+        Me.aOfferOut_RecalculateDEV.Caption = "aOfferOut_RecalculateDEV"
+        Me.aOfferOut_RecalculateDEV.ConfirmationMessage = Nothing
+        Me.aOfferOut_RecalculateDEV.Id = "aOfferOut_RecalculateDEV"
+        Me.aOfferOut_RecalculateDEV.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader)
+        Me.aOfferOut_RecalculateDEV.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aOfferOut_RecalculateDEV.ToolTip = Nothing
+        Me.aOfferOut_RecalculateDEV.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aOfferOutHeader_AddOfferInHeader
+        '
+        Me.aOfferOutHeader_AddOfferInHeader.AcceptButtonCaption = Nothing
+        Me.aOfferOutHeader_AddOfferInHeader.CancelButtonCaption = Nothing
+        Me.aOfferOutHeader_AddOfferInHeader.Caption = "aOfferOutHeader_AddOfferInHeader"
+        Me.aOfferOutHeader_AddOfferInHeader.Category = "ObjectsCreation"
+        Me.aOfferOutHeader_AddOfferInHeader.ConfirmationMessage = Nothing
+        Me.aOfferOutHeader_AddOfferInHeader.Id = "aOfferOutHeader_AddOfferInHeader"
+        Me.aOfferOutHeader_AddOfferInHeader.TargetObjectType = GetType(SISBusiness.[Module].OfferInHeader)
+        Me.aOfferOutHeader_AddOfferInHeader.TargetViewId = ""
+        Me.aOfferOutHeader_AddOfferInHeader.ToolTip = Nothing
+        '
+        'aOfferOutHeader_ImportOfferInRows
+        '
+        Me.aOfferOutHeader_ImportOfferInRows.AcceptButtonCaption = Nothing
+        Me.aOfferOutHeader_ImportOfferInRows.CancelButtonCaption = Nothing
+        Me.aOfferOutHeader_ImportOfferInRows.Caption = "aOfferOutHeader_ImportOfferInRows"
+        Me.aOfferOutHeader_ImportOfferInRows.ConfirmationMessage = Nothing
+        Me.aOfferOutHeader_ImportOfferInRows.Id = "aOfferOutHeader_ImportOfferInRows"
+        Me.aOfferOutHeader_ImportOfferInRows.TargetObjectType = GetType(SISBusiness.[Module].OfferOutRows)
+        Me.aOfferOutHeader_ImportOfferInRows.TargetViewId = "OfferOutHeader_OfferOutRows_ListView"
+        Me.aOfferOutHeader_ImportOfferInRows.ToolTip = Nothing
+        '
+        'OffersOutVC
+        '
+        Me.Actions.Add(Me.aOffersOutFinal)
+        Me.Actions.Add(Me.aOrderOfferedRows)
+        Me.Actions.Add(Me.aTotableD_OfferOut)
+        Me.Actions.Add(Me.aTotable_OfferOut)
+        Me.Actions.Add(Me.aUp_OfferOut)
+        Me.Actions.Add(Me.aDown_OfferOut)
+        Me.Actions.Add(Me.aCloneOfferOut)
+        Me.Actions.Add(Me.aCreateOrderIn_From_OfferOut)
+        Me.Actions.Add(Me.aCloneOfferOut_CRM)
+        Me.Actions.Add(Me.aOffersOut_ChangeRows)
+        Me.Actions.Add(Me.aOffersOutFinalWidthVersion)
+        Me.Actions.Add(Me.aGenerateOfferOutCost)
+        Me.Actions.Add(Me.aImportRecipe)
+        Me.Actions.Add(Me.aInsert_Discount_RowOther)
+        Me.Actions.Add(Me.aInsertServicesToOfferOut)
+        Me.Actions.Add(Me.aBackToRowEdit_OfferOut)
+        Me.Actions.Add(Me.aOfferOut_ChangeState)
+        Me.Actions.Add(Me.aGeneratePDFandSendDefaultMailClient)
+        Me.Actions.Add(Me.aBackToEditOfferOut)
+        Me.Actions.Add(Me.aProductVariableFinder)
+        Me.Actions.Add(Me.aImportOrderInRows)
+        Me.Actions.Add(Me.aOfferOut_RecalculateDEV)
+        Me.Actions.Add(Me.aOfferOutHeader_AddOfferInHeader)
+        Me.Actions.Add(Me.aOfferOutHeader_ImportOfferInRows)
+
+    End Sub
+    Friend WithEvents aOffersOutFinal As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aOrderOfferedRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aTotableD_OfferOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aTotable_OfferOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aUp_OfferOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aDown_OfferOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCloneOfferOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateOrderIn_From_OfferOut As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCloneOfferOut_CRM As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aOffersOut_ChangeRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aOffersOutFinalWidthVersion As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aGenerateOfferOutCost As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aImportRecipe As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aInsert_Discount_RowOther As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aInsertServicesToOfferOut As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aBackToRowEdit_OfferOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aOfferOut_ChangeState As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aBackToEditOfferOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aProductVariableFinder As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aImportOrderInRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aOfferOut_RecalculateDEV As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aOfferOutHeader_AddOfferInHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aOfferOutHeader_ImportOfferInRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Protected WithEvents aGeneratePDFandSendDefaultMailClient As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutVC.resx

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

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutLOSTReason.vb

@@ -0,0 +1,11 @@
+
+Public Enum eOfferOutLOSTReason
+    eNotSet = 0 'Nincs beállitva
+    eTooExpensive = 1 'Túl drága
+    eTooLate = 2 'Határidő nem megfelelő
+    eChooseConcurrency = 3 'Konkurenciát választották
+    eQualityProblem = 4 'Nem megfelelő minőségű
+    eNoAnswer = 5 ' Nem mondják meg miért
+    eWINOther = 6 ' Más ajánlatunkat fogadták el
+    eOther = 7 'Egyéb
+End Enum

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutMainType.vb

@@ -0,0 +1,5 @@
+
+Public Enum eOfferOutMainType
+    eFromProducts = 0 'Termékrõl adjuk 
+    eFromInstallation = 1 'Gyártmányról adjuk (Gyártmány hierarchia !)
+End Enum

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutMainType2.vb

@@ -0,0 +1,6 @@
+
+Public Enum eOfferOutMainType2
+    eOfferDetail = 0 'Tételes ajánlat és összesítés van a végén 
+    eOfferDetailNoSum = 1 'Tételes, de nem összesíthetõ !
+    eOfferUnique = 2 'Abszolute egyedi és sok sok dokumentum
+End Enum

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutState.vb

@@ -0,0 +1,7 @@
+
+Public Enum eOfferOutState
+    eInProgress = 0 'Még dolgozunk rajta
+    eClosedWON = 1 'Elfogadták
+    eClosedLOST = 2 'Nem fogadták el
+    eInThinkingOf = 3 'Még gondolkodnak, hogy mi legyen vele !
+End Enum

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eRowType.vb

@@ -0,0 +1,9 @@
+
+
+
+
+Public Enum eRowType
+    IsProduct = 0 'Termékrõl
+    IsOther = 1 'Egyéb 
+    IsInstallation = 2 'Gyártmányról
+End Enum