First create solution

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerIn.vb

@@ -0,0 +1,154 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Public Enum eOfferAnswerInState
+    eReject = 0 'Elutasítás
+    eNotSet = -1 'Nincs beállítva
+    eAccept = 2 'Elfogadom
+End Enum
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class OfferAnswerIn 'Bejövõ ajánlat fejléc
+    Inherits BaseObject
+
+    Private _RegistryHeader As RegistryHeader
+    Private _CustomersFrom As CustomersFrom
+    Private _Customers As Customers
+    Private _Contacts As Contacts
+    Private _JobNumberObjects As JobNumberObjects
+    Private _DocumentNumber As String
+
+    Private _DateValid As Date
+    Private _OfferAnswerInState As eOfferAnswerInState
+
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+
+    Private _OfferAskOut As OfferAskOut
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    Property RegistryHeader As RegistryHeader
+        Get
+            Return _RegistryHeader
+        End Get
+        Set(value As RegistryHeader)
+            SetPropertyValue("RegistryHeader", _RegistryHeader, value)
+        End Set
+    End Property
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property Contacts As Contacts
+        Get
+            Return _Contacts
+        End Get
+        Set(value As Contacts)
+            SetPropertyValue("Contacts", _Contacts, value)
+        End Set
+    End Property
+
+    Property JobNumberObjects As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+        End Set
+    End Property
+
+    Property DateValid As Date
+        Get
+            Return _DateValid
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateValid", _DateValid, value.Date)
+        End Set
+    End Property
+    Property OfferAnswerInState As eOfferAnswerInState
+        Get
+            Return _OfferAnswerInState
+        End Get
+        Set(value As eOfferAnswerInState)
+            SetPropertyValue("OfferAnswerInState", _OfferAnswerInState, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+
+    Property OfferAskOut As OfferAskOut
+        Get
+            Return _OfferAskOut
+        End Get
+        Set(value As OfferAskOut)
+            SetPropertyValue("OfferAskOut", _OfferAskOut, value)
+        End Set
+    End Property
+    '//XPCollections
+    <Association("OfferAnswerIn-OfferAnswerInRows", GetType(OfferAnswerInRows)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property OfferAnswerInRows As XPCollection(Of OfferAnswerInRows)
+        Get
+            Return GetCollection(Of OfferAnswerInRows)("OfferAnswerInRows")
+        End Get
+    End Property
+    <Association("OfferAnswerIn-OfferAnswerInDocuments", GetType(OfferAnswerInDocuments)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property OfferAnswerInDocuments As XPCollection(Of OfferAnswerInDocuments)
+        Get
+            Return GetCollection(Of OfferAnswerInDocuments)("OfferAnswerInDocuments")
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerInDocuments.vb

@@ -0,0 +1,42 @@
+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 OfferAnswerInDocuments
+    Inherits FileAttachmentBase
+
+    Private _OfferAnswerIn As OfferAnswerIn
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    <Association("OfferAnswerIn-OfferAnswerInDocuments", GetType(OfferAnswerIn))> _
+    Property OfferAnswerIn As OfferAnswerIn
+        Get
+            Return _OfferAnswerIn
+        End Get
+        Set(value As OfferAnswerIn)
+            SetPropertyValue("OfferAnswerIn", _OfferAnswerIn, value)
+        End Set
+    End Property
+    
+
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerInRows.vb

@@ -0,0 +1,79 @@
+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 OfferAnswerInRows 'Bejövõ ajánlat sor
+    Inherits BaseObject
+
+    Private _OfferAnswerIn As OfferAnswerIn
+    Private _Operations As Operations
+    Private _AmountHUF As Double = 0
+    Private _AmountDEV As Double = 0
+    Private _Description As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    <Association("OfferAnswerIn-OfferAnswerInRows", GetType(OfferAnswerIn))> _
+    Property OfferAnswerIn As OfferAnswerIn
+        Get
+            Return _OfferAnswerIn
+        End Get
+        Set(value As OfferAnswerIn)
+            SetPropertyValue("OfferAnswerIn", _OfferAnswerIn, value)
+        End Set
+    End Property
+    Property Operations As Operations
+        Get
+            Return _Operations
+        End Get
+        Set(value As Operations)
+            SetPropertyValue("Operations", _Operations, value)
+        End Set
+    End Property
+
+    Property AmountHUF As Double
+        Get
+            Return _AmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUF", _AmountHUF, value)
+        End Set
+    End Property
+    Property AmountDEV As Double
+        Get
+            Return _AmountDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountDEV", _AmountDEV, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerOut.vb

@@ -0,0 +1,164 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Public Enum eOfferAnswerOutState
+    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
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class OfferAnswerOut
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _Customers As Customers
+    Private _Contacts As Contacts
+    Private _DateExecution As Date
+    Private _DateValid As Date
+    Private _JobNumberObjects As JobNumberObjects
+    Private _OfferAnswerOutState As eOfferAnswerOutState
+
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+
+    Private _HRPerson_Responsible As HRPerson
+    Private _OfferAnswerOut As OfferAnswerOut
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property Contacts As Contacts
+        Get
+            Return _Contacts
+        End Get
+        Set(value As Contacts)
+            SetPropertyValue("Contacts", _Contacts, value)
+        End Set
+    End Property
+
+    Property JobNumberObjects As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+        End Set
+    End Property
+    Property OfferAnswerOutState As eOfferAnswerOutState
+        Get
+            Return _OfferAnswerOutState
+        End Get
+        Set(value As eOfferAnswerOutState)
+            SetPropertyValue("OfferAnswerOutState", _OfferAnswerOutState, value)
+        End Set
+    End Property
+
+
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property DateValid As Date
+        Get
+            Return _DateValid
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateValid", _DateValid, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+
+    Property HRPerson_Responsible As HRPerson
+        Get
+            Return _HRPerson_Responsible
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson_Responsible", _HRPerson_Responsible, value)
+        End Set
+    End Property
+    Property OfferAnswerOut As OfferAnswerOut
+        Get
+            Return _OfferAnswerOut
+        End Get
+        Set(value As OfferAnswerOut)
+            SetPropertyValue("OfferAnswerOut", _OfferAnswerOut, value)
+        End Set
+    End Property
+    '//XPCollections
+    <Association("OfferAnswerOut-OfferAnswerOutRows", GetType(OfferAnswerOutRows))> _
+    ReadOnly Property OfferAnswerOutRows As XPCollection(Of OfferAnswerOutRows)
+        Get
+            Return GetCollection(Of OfferAnswerOutRows)("OfferAnswerOutRows")
+        End Get
+    End Property
+    <Association("OfferAnswerOut-OfferAnswerOutDocuments", GetType(OfferAnswerOutDocuments)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property OfferAnswerOutDocuments As XPCollection(Of OfferAnswerOutDocuments)
+        Get
+            Return GetCollection(Of OfferAnswerOutDocuments)("OfferAnswerOutDocuments")
+        End Get
+    End Property
+
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerOutDocuments.vb

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

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerOutRows.vb

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

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn.vb

@@ -0,0 +1,232 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+Public Enum eOfferAskInState
+    eNotSet = -1
+    eInProgress = 0 'Folyamatban
+    eWin = 1 'Megnyert
+    eLost = 2 'Elvesztett
+    eNextStep = 3 'Következõ körös
+    eWait = 4 'Visszajelzésre vár
+    eWaitDecisions = 5
+    eRejected = 6 'Lemondott, nem adunk ajánlatot
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<Appearance("OfferAskIn - Disable ObjectCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("OfferAskIn - Disable UserCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
+Public Class OfferAskIn 'Bejövõ ajánlatkérés
+    Inherits BaseObject
+
+    Private _RegistryHeader As RegistryHeader 'Iktatás
+    Private _CustomersFrom As CustomersFrom 'Saját cég
+    Private _Customers As Customers 'Partner
+    Private _Contacts As Contacts 'Kapcsolat
+    Private _JobNumberObjects As JobNumberObjects 'Project
+
+    Private _DocumentNumber As String 'Dokumentum sorszáma
+    Private _OfferAskInState As eOfferAskInState 'Státusz
+
+    Private _DateExecution As Date 'Dátum
+    Private _DateValid As Date 'Határidõ
+
+    Private _ObjectCreated As Date 'Létrehozva
+    Private _UserCreated As User 'Létrehozta
+
+    Private _HRPerson_Responsible As HRPerson
+
+    Private _IsQualified As Boolean = False
+
+    Private _CustomersName As String
+    Private _ContactsName As String
+    Private _ContactsPhone As String
+    Private _ContactsEMail As String
+    Private _JobNumberName As String 'Ha nincs minõsítve, akkor a munka megnevezése
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    Property RegistryHeader As RegistryHeader
+        Get
+            Return _RegistryHeader
+        End Get
+        Set(value As RegistryHeader)
+            SetPropertyValue("RegistryHeader", _RegistryHeader, value)
+        End Set
+    End Property
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property Contacts As Contacts
+        Get
+            Return _Contacts
+        End Get
+        Set(value As Contacts)
+            SetPropertyValue("Contacts", _Contacts, value)
+        End Set
+    End Property
+    Property JobNumberObjects As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+        End Set
+    End Property
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    Property OfferAskInState As eOfferAskInState
+        Get
+            Return _OfferAskInState
+        End Get
+        Set(value As eOfferAskInState)
+            SetPropertyValue("OfferAskInState", _OfferAskInState, value)
+        End Set
+    End Property
+
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property DateValid As Date
+        Get
+            Return _DateValid
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateValid", _DateValid, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+
+    Property HRPerson_Responsible As HRPerson
+        Get
+            Return _HRPerson_Responsible
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson_Responsible", _HRPerson_Responsible, value)
+        End Set
+    End Property
+    Property IsQualified As Boolean
+        Get
+            Return _IsQualified
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsQualified", _IsQualified, value)
+        End Set
+    End Property
+
+    Property CustomersName As String
+        Get
+            Return _CustomersName
+        End Get
+        Set(value As String)
+            SetPropertyValue("CustomersName", _CustomersName, value)
+        End Set
+    End Property
+    Property ContactsName As String
+        Get
+            Return _ContactsName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ContactsName", _ContactsName, value)
+        End Set
+    End Property
+    Property ContactsPhone As String
+        Get
+            Return _ContactsPhone
+        End Get
+        Set(value As String)
+            SetPropertyValue("ContactsPhone", _ContactsPhone, value)
+        End Set
+    End Property
+    Property ContactsEMail As String
+        Get
+            Return _ContactsEMail
+        End Get
+        Set(value As String)
+            SetPropertyValue("ContactsEMail", _ContactsEMail, value)
+        End Set
+    End Property
+    Property JobNumberName As String
+        Get
+            Return _JobNumberName
+        End Get
+        Set(value As String)
+            SetPropertyValue("JobNumberName", _JobNumberName, value)
+        End Set
+    End Property
+    '//XPCollection
+    <Association("OfferAskIn-OfferAskInRows", GetType(OfferAskInRows)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property OfferAskInRows As XPCollection(Of OfferAskInRows)
+        Get
+            Return GetCollection(Of OfferAskInRows)("OfferAskInRows")
+        End Get
+    End Property
+    <Association("OfferAskIn-OfferAskInDocuments", GetType(OfferAskInDocuments)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property OfferAskInDocuments As XPCollection(Of OfferAskInDocuments)
+        Get
+            Return GetCollection(Of OfferAskInDocuments)("OfferAskInDocuments")
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskInDocuments.vb

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

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskInRows.vb

@@ -0,0 +1,54 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class OfferAskInRows
+    Inherits BaseObject
+
+    Private _OfferAskIn As OfferAskIn
+    Private _Operations As Operations
+    Private _Description As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+    <Association("OfferAskIn-OfferAskInRows", GetType(OfferAskIn))> _
+    Property OfferAskIn As OfferAskIn
+        Get
+            Return _OfferAskIn
+        End Get
+        Set(value As OfferAskIn)
+            SetPropertyValue("OfferAskIn", _OfferAskIn, value)
+        End Set
+    End Property
+    Property Operations As Operations
+        Get
+            Return _Operations
+        End Get
+        Set(value As Operations)
+            SetPropertyValue("Operations", _Operations, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.Designer.vb

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

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.resx

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

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.vb

@@ -0,0 +1,129 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.Editors
+
+Public Class OfferAskIn_VC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        If View.Id = "OfferAskInCreateOfferAskOutFromCustomersPopUp_CustomersQualification_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "OfferAskInCreateOfferAskOutFromCustomersPopUp_CustomersQualification_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+        End If
+    End Sub
+    Private Sub aOfferAskInRowsAddOperations_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOfferAskInRowsAddOperations.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+
+            e.View = Application.CreateListView(_onew, GetType(Operations), False)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+    Private Sub aOfferAskInRowsAddOperations_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOfferAskInRowsAddOperations.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _OfferAskIn As OfferAskIn = Nothing
+            If TryCast(View, ListView) IsNot Nothing Then
+                _OfferAskIn = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferAskIn)
+                If _OfferAskIn Is Nothing Then
+                    _OfferAskIn = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferAskInRows).OfferAskIn
+                End If
+            ElseIf TryCast(View, DetailView) IsNot Nothing Then
+                _OfferAskIn = TryCast(View.SelectedObjects(0), OfferAskInRows).OfferAskIn
+            End If
+
+            If _OfferAskIn Is Nothing Then Throw New Exception("*Nincs bejövõ ajánlat fejléc!")
+
+            For Each _Operations As Operations In e.PopupWindow.View.SelectedObjects
+                Dim _OfferAskInRows As OfferAskInRows
+                _OfferAskInRows = _ocur.FindObject(Of OfferAskInRows)(CriteriaOperator.Parse("OfferAskIn=? AND Operations=?", _ocur.GetObjectByKey(Of OfferAskIn)(_OfferAskIn.Oid), _
+                                                                                             _ocur.GetObjectByKey(Of Operations)(_Operations.Oid)))
+                If _OfferAskInRows Is Nothing Then
+                    _OfferAskInRows = _ocur.CreateObject(Of OfferAskInRows)()
+                    _OfferAskInRows.OfferAskIn = _ocur.GetObjectByKey(Of OfferAskIn)(_OfferAskIn.Oid)
+                    _OfferAskInRows.Operations = _ocur.GetObjectByKey(Of Operations)(_Operations.Oid)
+                End If
+            Next
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+
+    Private Sub aOfferAskInCreateOfferAskOutFromCustomers_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOfferAskInCreateOfferAskOutFromCustomers.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _OfferAskInCreateOfferAskOutFromCustomersPopUp As OfferAskInCreateOfferAskOutFromCustomersPopUp = _onew.CreateObject(Of OfferAskInCreateOfferAskOutFromCustomersPopUp)()
+            Dim _OfferAskInRows As OfferAskInRows = TryCast(View.SelectedObjects(0), OfferAskInRows)
+
+            If _OfferAskInRows Is Nothing Then Throw New Exception("*Nincs kiválasztott mûvelet!")
+
+            _OfferAskInCreateOfferAskOutFromCustomersPopUp.Operations = _onew.GetObject(_OfferAskInRows.Operations)
+
+            e.View = Application.CreateDetailView(_onew, "OfferAskInCreateOfferAskOutFromCustomersPopUp_DetailView", False, _OfferAskInCreateOfferAskOutFromCustomersPopUp)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+    Private Sub aOfferAskInCreateOfferAskOutFromCustomers_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOfferAskInCreateOfferAskOutFromCustomers.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _OfferAskInRows As OfferAskInRows = TryCast(View.SelectedObjects(0), OfferAskInRows)
+            Dim _OfferAskInCreateOfferAskOutFromCustomersPopUp As OfferAskInCreateOfferAskOutFromCustomersPopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), OfferAskInCreateOfferAskOutFromCustomersPopUp)
+
+            Dim _OfferAskInRows_ListPropertyEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("CustomersQualification")
+
+            For Each _CustomersQualification As CustomersQualification In _OfferAskInRows_ListPropertyEditor.ListView.SelectedObjects
+                Dim _OfferAskOut As OfferAskOut
+                _OfferAskOut = _ocur.FindObject(Of OfferAskOut)(CriteriaOperator.Parse("CustomersFrom=? AND Customers=? AND OfferAskOutState='eInProgress'", _
+                                                                                       _ocur.GetObject(_OfferAskInRows.OfferAskIn.CustomersFrom), _ocur.GetObject(_CustomersQualification.Customers)))
+                If _OfferAskOut Is Nothing Then
+                    _OfferAskOut = _ocur.CreateObject(Of OfferAskOut)()
+                    _OfferAskOut.CustomersFrom = _ocur.GetObject(_OfferAskInRows.OfferAskIn.CustomersFrom)
+                    _OfferAskOut.Customers = _ocur.GetObject(_CustomersQualification.Customers)
+                    _OfferAskOut.OfferAskOutState = eOfferAskOutState.eInProgress
+                    _OfferAskOut.JobNumberObjects = _ocur.GetObject(_OfferAskInRows.OfferAskIn.JobNumberObjects)
+                End If
+
+                _OfferAskOut.DateValid = _OfferAskInCreateOfferAskOutFromCustomersPopUp.DateValid
+
+                Dim _OfferAskOutRows As OfferAskOutRows = _ocur.CreateObject(Of OfferAskOutRows)()
+                _OfferAskOutRows.OfferAskOut = _ocur.GetObject(_OfferAskOut)
+                _OfferAskOutRows.Operations = _ocur.GetObjectByKey(Of Operations)(_OfferAskInCreateOfferAskOutFromCustomersPopUp.Operations.Oid)
+            Next
+
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskOut.vb

@@ -0,0 +1,155 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Public Enum eOfferAskOutState
+    eInProgress = 0 'Még dolgozunk rajta
+    eSent = 1 'Elküldük
+End Enum
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class OfferAskOut 'Kimenõ ajánlatkérés fejléc
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _Customers As Customers
+    Private _Contacts As Contacts
+    Private _JobNumberObjects As JobNumberObjects
+    Private _DocumentNumber As String
+    Private _OfferAskOutState As eOfferAskOutState
+
+    Private _DateExecution As Date
+    Private _DateValid As Date
+
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+
+    Private _OfferAskIn As OfferAskIn
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property Contacts As Contacts
+        Get
+            Return _Contacts
+        End Get
+        Set(value As Contacts)
+            SetPropertyValue("Contacts", _Contacts, value)
+        End Set
+    End Property
+    Property JobNumberObjects As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+        End Set
+    End Property
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    Property OfferAskOutState As eOfferAskOutState
+        Get
+            Return _OfferAskOutState
+        End Get
+        Set(value As eOfferAskOutState)
+            SetPropertyValue("OfferAskOutState", _OfferAskOutState, value)
+        End Set
+    End Property
+
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property DateValid As Date
+        Get
+            Return _DateValid
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateValid", _DateValid, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+
+    Property OfferAskIn As OfferAskIn
+        Get
+            Return _OfferAskIn
+        End Get
+        Set(value As OfferAskIn)
+            SetPropertyValue("OfferAskIn", _OfferAskIn, value)
+        End Set
+    End Property
+    '//XPCollections
+
+    <Association("OfferAskOut-OfferAskOutRows", GetType(OfferAskOutRows)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property OfferAskOutRows As XPCollection(Of OfferAskOutRows)
+        Get
+            Return GetCollection(Of OfferAskOutRows)("OfferAskOutRows")
+        End Get
+    End Property
+    <Association("OfferAskOut-OfferAskOutDocuments", GetType(OfferAskOutDocuments)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property OfferAskOutDocuments As XPCollection(Of OfferAskOutDocuments)
+        Get
+            Return GetCollection(Of OfferAskOutDocuments)("OfferAskOutDocuments")
+        End Get
+    End Property
+
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskOutDocuments.vb

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

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskOutRows.vb

@@ -0,0 +1,60 @@
+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 OfferAskOutRows
+    Inherits BaseObject
+
+    Private _OfferAskOut As OfferAskOut 'Kimenõ árajánlat kérés fejléc
+    Private _Operations As Operations 'Mûvelet
+    Private _Description As String 'Megjegyzés
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    <Association("OfferAskOut-OfferAskOutRows", GetType(OfferAskOut))> _
+    Property OfferAskOut As OfferAskOut
+        Get
+            Return _OfferAskOut
+        End Get
+        Set(value As OfferAskOut)
+            SetPropertyValue("OfferAskOut", _OfferAskOut, value)
+        End Set
+    End Property
+    Property Operations As Operations
+        Get
+            Return _Operations
+        End Get
+        Set(value As Operations)
+            SetPropertyValue("Operations", _Operations, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferBrowserHeader.vb

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

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferBrowserRows.vb

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

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferEvents.vb

@@ -0,0 +1,110 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Public Enum eOfferEventsType
+    eOfferAskIn = 0
+    eOfferAskOut = 1
+    eOfferAnswerIn = 2
+    eOfferAnswerOut = 3
+End Enum
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class OfferEvents
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _Customers As Customers
+    Private _OfferEventsType As eOfferEventsType
+    Private _JobNumberObjects As JobNumberObjects
+    Private _Operations As Operations
+
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property OfferEventsType As eOfferEventsType
+        Get
+            Return _OfferEventsType
+        End Get
+        Set(value As eOfferEventsType)
+            SetPropertyValue("OfferEventsType", _OfferEventsType, value)
+        End Set
+    End Property
+    Property JobNumberObjects As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+        End Set
+    End Property
+    Property Operations As Operations
+        Get
+            Return _Operations
+        End Get
+        Set(value As Operations)
+            SetPropertyValue("Operations", _Operations, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OperationGroups.vb

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

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operation_VC.Designer.vb

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

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operation_VC.resx

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

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operation_VC.vb

@@ -0,0 +1,124 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Data.Filtering
+
+Public Class Operation_VC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+
+    Private Sub aCustomersQualitificationFromOperation_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCustomersQualitificationFromOperation.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _CustomersQualificationPopUp As CustomersQualificationPopUp = _onew.CreateObject(Of CustomersQualificationPopUp)()
+            _CustomersQualificationPopUp.FromOperations = True
+
+            e.View = Application.CreateDetailView(_onew, "CustomersQualificationPopUp_DetailView", False, _CustomersQualificationPopUp)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+    Private Sub aCustomersQualitificationFromOperation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCustomersQualitificationFromOperation.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _CustomersQualificationPopUp As CustomersQualificationPopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), CustomersQualificationPopUp)
+            Dim _Customers As Customers = _ocur.GetObjectByKey(Of Customers)(_CustomersQualificationPopUp.Customers.Oid)
+            If _Customers Is Nothing Then Throw New Exception("*Nincs kiválasztva minõsítendõ ügyfél!")
+
+            For Each _Operations As Operations In View.SelectedObjects
+                Dim _CustomersQualification As CustomersQualification = _ocur.FindObject(Of CustomersQualification)(CriteriaOperator.Parse("Customers=? AND Operations=?", _Customers, _Operations))
+
+                If _CustomersQualification Is Nothing Then
+                    _CustomersQualification = _ocur.CreateObject(Of CustomersQualification)()
+                    _CustomersQualification.Customers = _Customers
+                    _CustomersQualification.Operations = _Operations
+                End If
+
+                If _CustomersQualificationPopUp.Change_Price Then
+                    _CustomersQualification.Price = _CustomersQualificationPopUp.Price
+                End If
+                If _CustomersQualificationPopUp.Change_Quality Then
+                    _CustomersQualification.Quality = _CustomersQualificationPopUp.Quality
+                End If
+                If _CustomersQualificationPopUp.Change_Speed Then
+                    _CustomersQualification.Speed = _CustomersQualificationPopUp.Speed
+                End If
+                If _CustomersQualificationPopUp.Change_Other1 Then
+                    _CustomersQualification.Other1 = _CustomersQualificationPopUp.Other1
+                End If
+                If _CustomersQualificationPopUp.Change_Other2 Then
+                    _CustomersQualification.Other2 = _CustomersQualificationPopUp.Other2
+                End If
+                If _CustomersQualificationPopUp.Change_Other3 Then
+                    _CustomersQualification.Other3 = _CustomersQualificationPopUp.Other3
+                End If
+            Next
+
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+    Private Sub aCustomersQualitificationFromCustomersQualitification_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCustomersQualitificationFromCustomers.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _CustomersQualificationPopUp As CustomersQualificationPopUp = _onew.CreateObject(Of CustomersQualificationPopUp)()
+            _CustomersQualificationPopUp.FromCustomers = True
+
+            e.View = Application.CreateDetailView(_onew, "CustomersQualificationPopUp_DetailView", False, _CustomersQualificationPopUp)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+    Private Sub aCustomersQualitificationFromCustomersQualitification_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCustomersQualitificationFromCustomers.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _CustomersQualificationPopUp As CustomersQualificationPopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), CustomersQualificationPopUp)
+            Dim _Operations As Operations = _ocur.GetObjectByKey(Of Operations)(_CustomersQualificationPopUp.Operations.Oid)
+            If _Operations Is Nothing Then Throw New Exception("*Nincs kiválasztott mûvelet!")
+
+            For Each _Customers As Customers In View.SelectedObjects
+                Dim _CustomersQualification As CustomersQualification = _ocur.FindObject(Of CustomersQualification)(CriteriaOperator.Parse("Customers=? AND Operations=?", _Customers, _Operations))
+
+                If _CustomersQualification Is Nothing Then
+                    _CustomersQualification = _ocur.CreateObject(Of CustomersQualification)()
+                    _CustomersQualification.Customers = _Customers
+                    _CustomersQualification.Operations = _Operations
+                End If
+
+                If _CustomersQualificationPopUp.Change_Price Then
+                    _CustomersQualification.Price = _CustomersQualificationPopUp.Price
+                End If
+                If _CustomersQualificationPopUp.Change_Quality Then
+                    _CustomersQualification.Quality = _CustomersQualificationPopUp.Quality
+                End If
+                If _CustomersQualificationPopUp.Change_Speed Then
+                    _CustomersQualification.Speed = _CustomersQualificationPopUp.Speed
+                End If
+                If _CustomersQualificationPopUp.Change_Other1 Then
+                    _CustomersQualification.Other1 = _CustomersQualificationPopUp.Other1
+                End If
+                If _CustomersQualificationPopUp.Change_Other2 Then
+                    _CustomersQualification.Other2 = _CustomersQualificationPopUp.Other2
+                End If
+                If _CustomersQualificationPopUp.Change_Other3 Then
+                    _CustomersQualification.Other3 = _CustomersQualificationPopUp.Other3
+                End If
+            Next
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operations.vb

@@ -0,0 +1,44 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class Operations 'Mûveletek
+    Inherits BaseObject
+
+    Private _OperationGroups As OperationGroups
+    Private _ShortName As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    Property OperationGroups As OperationGroups
+        Get
+            Return _OperationGroups
+        End Get
+        Set(value As OperationGroups)
+            SetPropertyValue("OperationGroups", _OperationGroups, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/PopUp/CustomersQualificationPopUp.vb

@@ -0,0 +1,189 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<NonPersistent()> _
+<Appearance("CustomertQualificationPopUp - Disable FromCustomers and FromOperations", AppearanceItemType.ViewItem, "1=1", TargetItems:="FromOperations;FromOperations", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("CustomertQualificationPopUp - Disable Customers when FromCustomers=True", AppearanceItemType.ViewItem, "FromCustomers=True", TargetItems:="Customers", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("CustomertQualificationPopUp - Disable Operations when FromOperations=True", AppearanceItemType.ViewItem, "FromOperations=True", TargetItems:="Operations", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class CustomersQualificationPopUp
+    Inherits BaseObject
+
+    Dim _FromCustomers As Boolean
+    Dim _FromOperations As Boolean
+    Dim _Customers As Customers
+    Dim _Operations As Operations
+    Dim _Change_Price As Boolean
+    Dim _Price As Long
+    Dim _Change_Speed As Boolean
+    Dim _Speed As Long
+    Dim _Change_Quality As Boolean
+    Dim _Quality As Long
+    Dim _Change_Other1 As Boolean
+    Dim _Other1 As Long
+    Dim _Change_Other2 As Boolean
+    Dim _Other2 As Long
+    Dim _Change_Other3 As Boolean
+    Dim _Other3 As Long
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Change_Price = False
+        Change_Speed = False
+        Change_Quality = False
+        Change_Other1 = False
+        Change_Other2 = False
+        Change_Other3 = False
+        FromCustomers = False
+        FromOperations = False
+    End Sub
+
+    <ImmediatePostData()> _
+    <VisibleInDetailView(False)> _
+    <VisibleInListView(False)> _
+    Property FromCustomers As Boolean
+        Get
+            Return _FromCustomers
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("FromCustomers", _FromCustomers, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <VisibleInDetailView(False)> _
+    <VisibleInListView(False)> _
+    Property FromOperations As Boolean
+        Get
+            Return _FromOperations
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("FromOperations", _FromOperations, value)
+        End Set
+    End Property
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property Operations As Operations
+        Get
+            Return _Operations
+        End Get
+        Set(value As Operations)
+            SetPropertyValue("Operations", _Operations, value)
+        End Set
+    End Property
+    Property Change_Price As Boolean
+        Get
+            Return _Change_Price
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_Price", _Change_Price, value)
+        End Set
+    End Property
+    Property Price As Long
+        Get
+            Return _Price
+        End Get
+        Set(value As Long)
+            SetPropertyValue("Price", _Price, value)
+        End Set
+    End Property
+    Property Change_Speed As Boolean
+        Get
+            Return _Change_Speed
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_Speed", _Change_Speed, value)
+        End Set
+    End Property
+    Property Speed As Long
+        Get
+            Return _Speed
+        End Get
+        Set(value As Long)
+            SetPropertyValue("Speed", _Speed, value)
+        End Set
+    End Property
+    Property Change_Quality As Boolean
+        Get
+            Return _Change_Quality
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_Quality", _Change_Quality, value)
+        End Set
+    End Property
+    Property Quality As Long
+        Get
+            Return _Quality
+        End Get
+        Set(value As Long)
+            SetPropertyValue("Quality", _Quality, value)
+        End Set
+    End Property
+    Property Change_Other1 As Boolean
+        Get
+            Return _Change_Other1
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_Other1", _Change_Other1, value)
+        End Set
+    End Property
+    Property Other1 As Long
+        Get
+            Return _Other1
+        End Get
+        Set(value As Long)
+            SetPropertyValue("Other1", _Other1, value)
+        End Set
+    End Property
+    Property Change_Other2 As Boolean
+        Get
+            Return _Change_Other2
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_Other2", _Change_Other2, value)
+        End Set
+    End Property
+    Property Other2 As Long
+        Get
+            Return _Other2
+        End Get
+        Set(value As Long)
+            SetPropertyValue("Other2", _Other2, value)
+        End Set
+    End Property
+    Property Change_Other3 As Boolean
+        Get
+            Return _Change_Other3
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_Other3", _Change_Other3, value)
+        End Set
+    End Property
+    Property Other3 As Long
+        Get
+            Return _Other3
+        End Get
+        Set(value As Long)
+            SetPropertyValue("Other3", _Other3, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/PopUp/OfferAskInCreateOfferAskOutFromCustomersPopUp.vb

@@ -0,0 +1,54 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<NonPersistent()> _
+<Appearance("OfferAskInCreateOfferAskOutFromCustomersPopUp - Disable Operations", AppearanceItemType.ViewItem, "1=1", TargetItems:="Operations", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class OfferAskInCreateOfferAskOutFromCustomersPopUp
+    Inherits BaseObject
+
+    Private _DateValid As Date
+    Private _Operations As Operations
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property DateValid As Date
+        Get
+            Return _DateValid
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateValid", _DateValid, value)
+        End Set
+    End Property
+    Property Operations As Operations
+        Get
+            Return _Operations
+        End Get
+        Set(value As Operations)
+            SetPropertyValue("Operations", _Operations, value)
+        End Set
+    End Property
+
+    '------------ReadOnly------------
+    ReadOnly Property CustomersQualification As XPCollection(Of CustomersQualification)
+        Get
+            Return New XPCollection(Of CustomersQualification)(Session, CriteriaOperator.Parse("Operations=?", Me.Operations))
+        End Get
+    End Property
+End Class