Reconfigure for GIT

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CD.cd

@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="utf-8"?>
+<ClassDiagram MajorVersion="1" MinorVersion="1">
+  <Class Name="SISBusiness.Module.Customers">
+    <Position X="0.5" Y="0.5" Width="3" />
+    <Members>
+      <Field Name="_AssetsHandling_Note" Hidden="true" />
+      <Field Name="_BirthAddress" Hidden="true" />
+      <Field Name="_BirthDate" Hidden="true" />
+      <Field Name="_BusinessCardNumber" Hidden="true" />
+      <Field Name="_CanUseMarketingInfo" Hidden="true" />
+      <Field Name="_CanUseMarketingInfoThirdParts" Hidden="true" />
+      <Field Name="_Checked" Hidden="true" />
+      <Field Name="_CheckedDate" Hidden="true" />
+      <Field Name="_CheckStatus" Hidden="true" />
+      <Field Name="_Citizen" Hidden="true" />
+      <Field Name="_ClassificationByMoney" Hidden="true" />
+      <Field Name="_ClassificationByPersonal" Hidden="true" />
+      <Field Name="_ClassificationByProduct" Hidden="true" />
+      <Field Name="_CompanyRegistrationNumber" Hidden="true" />
+      <Field Name="_CreditlineAmountDEV" Hidden="true" />
+      <Field Name="_CreditlineAmountHUF" Hidden="true" />
+      <Field Name="_CreditlineDay" Hidden="true" />
+      <Field Name="_CRM_Leads" Hidden="true" />
+      <Field Name="_CustomerNumber" Hidden="true" />
+      <Field Name="_CustomersGLParameters" Hidden="true" />
+      <Field Name="_CustomersNG" Hidden="true" />
+      <Field Name="_FamilyFarmNumber" Hidden="true" />
+      <Field Name="_FarmerCardNumber" Hidden="true" />
+      <Field Name="_HRPerson_SalesPerson" Hidden="true" />
+      <Field Name="_ImportedID" Hidden="true" />
+      <Field Name="_IsAssetsHandling" Hidden="true" />
+      <Field Name="_LateChargesCountMode" Hidden="true" />
+      <Field Name="_LyonessCardID" Hidden="true" />
+      <Field Name="_LyonessID" Hidden="true" />
+      <Field Name="_MasterBusinessDirectory" Hidden="true" />
+      <Field Name="_MotherName" Hidden="true" />
+      <Field Name="_MVHRegistrationNumber" Hidden="true" />
+      <Field Name="_ObjectChanged" Hidden="true" />
+      <Field Name="_ObjectCreated" Hidden="true" />
+      <Field Name="_Oid_DH" Hidden="true" />
+      <Field Name="_PaymentOption" Hidden="true" />
+      <Field Name="_Pricing" Hidden="true" />
+      <Field Name="_PricingIn" Hidden="true" />
+      <Field Name="_QualityOption" Hidden="true" />
+      <Field Name="_QueueUpdated" Hidden="true" />
+      <Field Name="_ShipmentOption" Hidden="true" />
+      <Field Name="_SupplierMark" Hidden="true" />
+      <Field Name="_SupplierMarkInfo" Hidden="true" />
+      <Field Name="_TAJNumber" Hidden="true" />
+      <Field Name="_UserChanged" Hidden="true" />
+      <Field Name="_UserCreated" Hidden="true" />
+      <Field Name="_VATAvowalType" Hidden="true" />
+      <Field Name="_VATNumber" Hidden="true" />
+      <Field Name="_VATNumberEU" Hidden="true" />
+      <Method Name="AfterConstruction" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+      <Method Name="OnSaving" Hidden="true" />
+      <Method Name="RecursiveBusinessDirectory" Hidden="true" />
+    </Members>
+    <TypeIdentifier>
+      <HashCode>rAGCBAwXAhACIeaRqDSd15chBBCGBkGgCDk2hTgWLuA=</HashCode>
+      <FileName>BusinessObjects\GeneralObjects\Customers\Customers.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Font Name="Segoe UI" Size="9" />
+</ClassDiagram>

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/ClassificationByMoney.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)> _
+<DefaultProperty("ShortName")> _
+Public Class ClassificationByMoney
+    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

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/ClassificationByPersonal.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)> _
+<DefaultProperty("ShortName")> _
+Public Class ClassificationByPersonal
+    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

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/ClassificationByProduct.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)> _
+<DefaultProperty("ShortName")> _
+Public Class ClassificationByProduct
+    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

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CountryExtend.vb

@@ -0,0 +1,33 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem("Customers")> _
+Public Class CountryExtend
+    Inherits Country
+    Private _ShortName As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+End Class
+
+
+
+
+

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomerBankAccounts.vb

@@ -0,0 +1,117 @@
+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("Customers")> _
+<DefaultProperty("DisplayName")> _
+<CreatableItem(False)> _
+Public Class CustomerBankAccounts 'A partnerekhez tartozó bankszámlaszámok
+    Inherits BaseObject
+    Private _Customers As Customers
+    Private _ShortName As String
+    Private _IBAN As String
+    Private _SWIFT As String
+    Private _AccountNumber As String
+    Private _IsDefault As Boolean
+    Private _GIROInfo As GIROInfo
+    Private _AutomaticProcessing As Boolean
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+
+    End Sub
+    <Association("CustomerBankAccounts", GetType(Customers)), NonCloneable()> _
+    Property Customers() As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property IBAN As String
+        Get
+            Return _IBAN
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("IBAN", _IBAN, value)
+        End Set
+    End Property
+    Property SWIFT As String
+        Get
+            Return _SWIFT
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("SWIFT", _SWIFT, value)
+        End Set
+    End Property
+    Property AccountNumber As String
+        Get
+            Return _AccountNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("AccountNumber", _AccountNumber, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+
+                GIROInfo = Session.FindObject(Of GIROInfo)(CriteriaOperator.Parse("GIROID=?", Mid(AccountNumber, 1, 8)))
+                If GIROInfo IsNot Nothing Then
+                    ShortName = GIROInfo.ShortName
+                End If
+
+            End If
+        End Set
+    End Property
+    ReadOnly Property DisplayName As String
+        Get
+            Return _AccountNumber & " (" & _ShortName & ")"
+        End Get
+    End Property
+    Property IsDefault As Boolean
+        Get
+            Return _IsDefault
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsDefault", _IsDefault, value)
+        End Set
+    End Property
+    Property GIROInfo As GIROInfo
+        Get
+            Return _GIROInfo
+        End Get
+        Set(value As GIROInfo)
+            SetPropertyValue("GIROInfo", _GIROInfo, value)
+        End Set
+    End Property
+    Property AutomaticProcessing As Boolean
+        Get
+            Return _AutomaticProcessing
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("AutomaticProcessing", _AutomaticProcessing, value)
+        End Set
+    End Property
+End Class
+
+
+
+
+

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/Customers.vb

@@ -0,0 +1,767 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports System.Reflection
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+Public Enum eVATAvowalType 'ÁFA bevallási mód
+    eGeneral = 0 'Általános
+    eFinancial = 1 'Pénzügyi
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("Customers")> _
+<DefaultProperty("FullName")> _
+<Appearance("APCSheetHeader - Disable all properties, when IsNull(Url_DH)=False AND Url_DH=''", AppearanceItemType.ViewItem, "IsNull(Url_DH)=False AND Url_DH<>''", TargetItems:="*", Enabled:=False)> _
+Public Class Customers
+    Inherits Organization
+
+    Private _CustomerNumber As String = "" 'Ügyfél azonosítója
+    Private _VATNumber As String 'Adószám (belföldi)
+    Private _VATNumberEU As String 'EU adószám
+    Private _CustomersGLParameters As CustomersGLParameters 'Ügyfél főkönyvi kategária
+    Private _CustomersNG As CustomersNG 'Ügyfél sorszám generátor
+    Private _Pricing As Pricing 'Árképzés ha vevő az ügyfél
+    Private _PricingIn As Pricing 'Árképzés ha vásárolunk tőle
+    Private _CreditlineAmountHUF As Double 'Hitelkeret forintos összege
+    Private _CreditlineAmountDEV As Double 'Hitelkeret devizás összege
+    Private _CreditlineDay As Long 'Hitelkeret max késés nap.
+    Private _IsAssetsHandling As Boolean  'Lesz e kinnlévőség kezelése
+    Private _CRM_Leads As CRM_Leads
+    Private _ImportedID As Long
+    Private _LateChargesCountMode As LateChargesCountMode 'A késedelmes kamatszámítás módja
+    Private _Citizen As String 'Állampolgársága
+    Private _AssetsHandling_Note As String 'Kinnlévőség megjegyzés
+
+    Private _PaymentOption As PaymentOption
+    Private _ShipmentOption As ShipmentOption
+    Private _QualityOption As QualityOption
+
+    Private _FarmerCardNumber As String 'Őstermelői igazolvány száma
+    Private _BusinessCardNumber As String 'Vállalkozói igazolvány száma
+    Private _MVHRegistrationNumber As String 'MVH regisztrációs szám
+    Private _CompanyRegistrationNumber As String 'Cégjegyzékszám
+    Private _CompanyStatisticsNumber As String 'Cég statisztikai számjele
+    Private _FamilyFarmNumber As String 'Családi gazdaság azonosító szám
+    Private _MotherName As String 'Anyja neve
+    Private _BirthAddress As Address 'Születési helye
+    Private _BirthDate As Date 'Születési ideje
+    Private _TAJNumber As String
+
+    Private _LyonessID As String 'Lyoness ID azonosító
+    Private _LyonessCardID As String 'Lyoness kártyaszám azonosító
+
+    Private _ClassificationByProduct As ClassificationByProduct
+    Private _ClassificationByMoney As ClassificationByMoney
+    Private _ClassificationByPersonal As ClassificationByPersonal
+
+    Private _SupplierMark As String 'Ha a partner beszállító, akkor egy rövid karaktersorozat
+    Private _SupplierMarkInfo As String 'Beszállítói azonosító string
+
+    Private _Checked As Boolean
+    Private _CheckedDate As DateTime
+    Private _CheckStatus As String
+
+    Private _Contact_Decision As Contacts 'Döntéshozó, ügyvezető
+    Private _Contact_Finance As Contacts 'Pénzüggyel kapcsolatos kapcsolattartó
+    Private _EMail_Invoice As String 'e-mail cím, ahova PDF-ben elmegy a kiállított számla
+
+    Private _HRPerson_SalesPerson As HRPerson 'A céghez tartozó HRPerson mint üzletkötő
+    Private _MasterBusinessDirectory As BusinessDirectory
+    Private _DocumentPath As String 'Windows Explorer path
+    Private _VATAvowalType As eVATAvowalType 'ÁFA bevallás módja
+    Private _Oid_DH As String
+    Private _Url_DH As String
+    Private _CanUseMarketingInfo As Boolean 'Marketininfó
+    Private _CanUseMarketingInfoThirdParts As Boolean 'Marketing info 3. félnek
+
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _ObjectChanged As Date
+    Private _UserChanged As User
+    Private _QueueUpdated As Date
+
+    Private _PriceColumn As Integer 'Ároszlop, melyik PriceColumnBruttoHUFXX ára van
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            If SecuritySystem.CurrentUser IsNot Nothing Then
+                UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+            End If
+            UserChanged = UserCreated
+            ObjectCreated = GetSQLTime(Session)
+            ObjectChanged = ObjectCreated
+            QueueUpdated = Date.MinValue
+        Else
+            If SecuritySystem.CurrentUser IsNot Nothing Then
+                UserChanged = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+                ObjectChanged = GetSQLTime(Session)
+            End If
+        End If
+        ' Az partner duplázódás elkerülése miatt megkeressük, hogy létezik-e ilyen partner a megadott adószámmal
+
+        'If Me.VATNumber <> "" Then
+        '    Dim _Customers As Customers = Session.FindObject(Of Customers)(CriteriaOperator.Parse("VATNumber=?", Me.VATNumber))
+        '    If _Customers IsNot Nothing Then
+        '        If _Customers.Oid <> Me.Oid Then
+        '            '----TESZT MIATT-----------------------------------------------
+        '            Throw New Exception("*A megadott adószámmal már létezik ügyfél!")
+        '        End If
+        '    End If
+        'End If
+        'Sorszám kiosztása
+        If LTrim(RTrim(Me.CustomerNumber)) = "" Then
+            If Me.CustomersNG IsNot Nothing Then
+                If Session.IsNewObject(Me) = True Then
+                    Me.CustomerNumber = Me.CustomersNG.NumberGenerator.GetNewNumber(Me.CustomersNG.NumberGenerator)
+                End If
+            Else
+                '--------- TESZT MIATT!! --------------------------------------
+                Throw New Exception("*Nincs beállítva a sorszámgenerátor paraméter!")
+            End If
+        End If
+        If IsDeleted = False Then
+            If Name = "" And FullName <> "" Then
+                Name = FullName
+            End If
+            If FullName = "" And Name <> "" Then
+                FullName = Name
+            End If
+        End If
+        If Checked = True Then
+            CheckedDate = GetSQLTime(Session)
+        End If
+    End Sub
+
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        CustomersNG = Session.FindObject(Of CustomersNG)(CriteriaOperator.Parse("Oid=Oid"))
+        Citizen = "Magyar"
+        IsAssetsHandling = True
+        Checked = False
+        CanUseMarketingInfo = False
+        CanUseMarketingInfoThirdParts = False
+        Url_DH = Nothing
+        CustomersGLParameters = Session.FindObject(Of CustomersGLParameters)(CriteriaOperator.Parse("DefaultforBusiness=True"))
+    End Sub
+
+    <RuleUniqueValue("Customers-CustomerNumber", DefaultContexts.Save, CriteriaEvaluationBehavior:=PersistentCriteriaEvaluationBehavior.InTransaction)> _
+    <NonCloneable()> _
+    Property CustomerNumber As String
+        Get
+            Return _CustomerNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("CustomerNumber", _CustomerNumber, value)
+        End Set
+    End Property
+    <RuleUniqueValue("Customers-VATNumber", DefaultContexts.Save, skipnulloremptyvalues:=True)> _
+    Property VATNumber As String
+        Get
+            Return _VATNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("VATNumber", _VATNumber, value)
+        End Set
+    End Property
+    <RuleUniqueValue("Customers-VATNumberEU", DefaultContexts.Save, skipnulloremptyvalues:=True)> _
+    Property VATNumberEU As String
+        Get
+            Return _VATNumberEU
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("VATNumberEU", _VATNumberEU, value)
+        End Set
+    End Property
+    <RuleRequiredField("Customers-CustomersGLParameters", DefaultContexts.Save)> _
+    <VisibleInDetailView(False)> _
+    <VisibleInListView(False)> _
+    <VisibleInLookupListView(False)> _
+    Property CustomersGLParameters() As CustomersGLParameters
+        Get
+            Return _CustomersGLParameters
+        End Get
+        Set(ByVal value As CustomersGLParameters)
+            SetPropertyValue("CustomersGLParameters", _CustomersGLParameters, value)
+        End Set
+    End Property
+    <RuleRequiredField("Customers-CustomersNG", DefaultContexts.Save)> _
+    Property CustomersNG As CustomersNG
+        Get
+            If _CustomersNG Is Nothing Then
+                If (Not IsSaving) AndAlso (Not IsLoading) Then
+                    _CustomersNG = Session.FindObject(Of CustomersNG)(1, CriteriaOperator.Parse("Oid=Oid"))
+                End If
+            End If
+            Return _CustomersNG
+        End Get
+        Set(ByVal value As CustomersNG)
+            SetPropertyValue("CustomersNG", _CustomersNG, value)
+        End Set
+    End Property
+    Property Pricing As Pricing
+        Get
+            Return _Pricing
+        End Get
+        Set(ByVal value As Pricing)
+            SetPropertyValue("Pricing", _Pricing, value)
+        End Set
+    End Property
+    Property PricingIn As Pricing
+        Get
+            Return _PricingIn
+        End Get
+        Set(ByVal value As Pricing)
+            SetPropertyValue("PricingIn", _PricingIn, value)
+        End Set
+    End Property
+    Property IsAssetsHandling As Boolean
+        Get
+            Return _IsAssetsHandling
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsAssetsHandling", _IsAssetsHandling, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property CRM_Leads As CRM_Leads
+        Get
+            Return _CRM_Leads
+        End Get
+        Set(value As CRM_Leads)
+            SetPropertyValue("CRM_Leads", _CRM_Leads, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property ImportedID As Long
+        Get
+            Return _ImportedID
+        End Get
+        Set(value As Long)
+            SetPropertyValue("ImportedID", _ImportedID, value)
+        End Set
+    End Property
+    Property CreditlineAmountHUF As Double
+        Get
+            Return _CreditlineAmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CreditlineAmountHUF", _CreditlineAmountHUF, value)
+        End Set
+    End Property
+    Property CreditlineAmountDEV As Double
+        Get
+            Return _CreditlineAmountDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CreditlineAmountDEV", _CreditlineAmountDEV, value)
+        End Set
+    End Property
+    Property CreditlineDay As Long
+        Get
+            Return _CreditlineDay
+        End Get
+        Set(value As Long)
+            SetPropertyValue("CreditlineDay", _CreditlineDay, value)
+        End Set
+    End Property
+    Property LateChargesCountMode As LateChargesCountMode
+        Get
+            Return _LateChargesCountMode
+        End Get
+        Set(value As LateChargesCountMode)
+            SetPropertyValue("LateChargesCountMode", _LateChargesCountMode, value)
+        End Set
+    End Property
+    Property Citizen As String
+        Get
+            Return _Citizen
+        End Get
+        Set(value As String)
+            SetPropertyValue("Citizen", _Citizen, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property AssetsHandling_Note As String
+        Get
+            Return _AssetsHandling_Note
+        End Get
+        Set(value As String)
+            SetPropertyValue("AssetsHandling_Note", _AssetsHandling_Note, value)
+        End Set
+    End Property
+    Public Property PaymentOption() As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(ByVal value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+        End Set
+    End Property
+    Public Property ShipmentOption() As ShipmentOption
+        Get
+            Return _ShipmentOption
+        End Get
+        Set(ByVal value As ShipmentOption)
+            SetPropertyValue("ShipmentOption", _ShipmentOption, value)
+        End Set
+    End Property
+    Public Property QualityOption() As QualityOption
+        Get
+            Return _QualityOption
+        End Get
+        Set(ByVal value As QualityOption)
+            SetPropertyValue("QualityOption", _QualityOption, value)
+        End Set
+    End Property
+
+    Property ClassificationByProduct As ClassificationByProduct
+        Get
+            Return _ClassificationByProduct
+        End Get
+        Set(value As ClassificationByProduct)
+            SetPropertyValue("ClassificationByProduct", _ClassificationByProduct, value)
+        End Set
+    End Property
+    Property ClassificationByMoney As ClassificationByMoney
+        Get
+            Return _ClassificationByMoney
+        End Get
+        Set(value As ClassificationByMoney)
+            SetPropertyValue("ClassificationByMoney", _ClassificationByMoney, value)
+        End Set
+    End Property
+    Property ClassificationByPersonal As ClassificationByPersonal
+        Get
+            Return _ClassificationByPersonal
+        End Get
+        Set(value As ClassificationByPersonal)
+            SetPropertyValue("ClassificationByPersonal", _ClassificationByPersonal, value)
+        End Set
+    End Property
+    '// Őstermelőhöz
+    Property FarmerCardNumber As String
+        Get
+            Return _FarmerCardNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("FarmerCardNumber", _FarmerCardNumber, value)
+        End Set
+    End Property
+    Property BusinessCardNumber As String
+        Get
+            Return _BusinessCardNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("BusinessCardNumber", _BusinessCardNumber, value)
+        End Set
+    End Property
+    Property MVHRegistrationNumber As String
+        Get
+            Return _MVHRegistrationNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("MVHRegistrationNumber", _MVHRegistrationNumber, value)
+        End Set
+    End Property
+    Property CompanyRegistrationNumber As String
+        Get
+            Return _CompanyRegistrationNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("CompanyRegistrationNumber", _CompanyRegistrationNumber, value)
+        End Set
+    End Property
+    Property CompanyStatisticsNumber As String
+        Get
+            Return _CompanyStatisticsNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("CompanyStatisticsNumber", _CompanyStatisticsNumber, value)
+        End Set
+    End Property
+    Property FamilyFarmNumber As String
+        Get
+            Return _FamilyFarmNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("FamilyFarmNumber", _FamilyFarmNumber, value)
+        End Set
+    End Property
+    Property MotherName As String
+        Get
+            Return _MotherName
+        End Get
+        Set(value As String)
+            SetPropertyValue("MotherName", _MotherName, value)
+        End Set
+    End Property
+    Property BirthAddress As Address
+        Get
+            Return _BirthAddress
+        End Get
+        Set(value As Address)
+            SetPropertyValue("BirthAddress", _BirthAddress, value)
+        End Set
+    End Property
+    Property BirthDate As Date
+        Get
+            Return _BirthDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("BirthDate", _BirthDate, value)
+        End Set
+    End Property
+    Property TAJNumber As String
+        Get
+            Return _TAJNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("TAJNumber", _TAJNumber, value)
+        End Set
+    End Property
+    '//--- Egyéb
+    Property SupplierMark As String
+        Get
+            Return _SupplierMark
+        End Get
+        Set(value As String)
+            SetPropertyValue("SupplierMark", _SupplierMark, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property SupplierMarkInfo As String
+        Get
+            Return _SupplierMarkInfo
+        End Get
+        Set(value As String)
+            SetPropertyValue("SupplierMarkInfo", _SupplierMarkInfo, value)
+        End Set
+    End Property
+
+    <ImmediatePostData> _
+    Property Checked As Boolean
+        Get
+            Return _Checked
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Checked", _Checked, value)
+        End Set
+    End Property
+    Property CheckStatus As String
+        Get
+            Return _CheckStatus
+        End Get
+        Set(value As String)
+            SetPropertyValue("CheckStatus", _CheckStatus, value)
+        End Set
+    End Property
+    Property CheckedDate As Date
+        Get
+            Return _CheckedDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("CheckedDate", _CheckedDate, value)
+        End Set
+    End Property
+    Property HRPerson_SalesPerson As HRPerson
+        Get
+            Return _HRPerson_SalesPerson
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson_SalesPerson", _HRPerson_SalesPerson, value)
+        End Set
+    End Property
+    Property MasterBusinessDirectory As BusinessDirectory
+        Get
+            Return _MasterBusinessDirectory
+        End Get
+        Set(value As BusinessDirectory)
+            SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value)
+        End Set
+    End Property
+    <Size(900)> _
+    Property DocumentPath As String
+        Get
+            Return _DocumentPath
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentPath", _DocumentPath, value)
+        End Set
+    End Property
+    Property LyonessID As String
+        Get
+            Return _LyonessID
+        End Get
+        Set(value As String)
+            SetPropertyValue("LyonessID", _LyonessID, value)
+        End Set
+    End Property
+    Property LyonessCardID As String
+        Get
+            Return _LyonessCardID
+        End Get
+        Set(value As String)
+            SetPropertyValue("LyonessCardID", _LyonessCardID, value)
+        End Set
+    End Property
+    Property VATAvowalType As eVATAvowalType
+        Get
+            Return _VATAvowalType
+        End Get
+        Set(value As eVATAvowalType)
+            SetPropertyValue("VATAvowalType", _VATAvowalType, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property Oid_DH As String
+        Get
+            Return _Oid_DH
+        End Get
+        Set(value As String)
+            SetPropertyValue("Oid_DH", _Oid_DH, value)
+        End Set
+    End Property
+    Property Url_DH As String
+        Get
+            Return _Url_DH
+        End Get
+        Set(value As String)
+            SetPropertyValue("Url_DH", _Url_DH, value)
+        End Set
+    End Property
+    Property CanUseMarketingInfo As Boolean
+        Get
+            Return _CanUseMarketingInfo
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("CanUseMarketingInfo", _CanUseMarketingInfo, value)
+        End Set
+    End Property
+    Property CanUseMarketingInfoThirdParts As Boolean
+        Get
+            Return _CanUseMarketingInfoThirdParts
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("CanUseMarketingInfoThirdParts", _CanUseMarketingInfoThirdParts, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False)> _
+    <VisibleInListView(False)> _
+    <VisibleInLookupListView(False)> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False)> _
+    <VisibleInListView(False)> _
+    <VisibleInLookupListView(False)> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False)> _
+    <VisibleInListView(False)> _
+    <VisibleInLookupListView(False)> _
+    Property ObjectChanged As Date
+        Get
+            Return _ObjectChanged
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectChanged", _ObjectChanged, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False)> _
+    <VisibleInListView(False)> _
+    <VisibleInLookupListView(False)> _
+    Property UserChanged As User
+        Get
+            Return _UserChanged
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserChanged", _UserChanged, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False)> _
+    <VisibleInListView(False)> _
+    <VisibleInLookupListView(False)> _
+    Property QueueUpdated As Date
+        Get
+            Return _QueueUpdated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("QueueUpdated", _QueueUpdated, value)
+        End Set
+    End Property
+
+    Property Contact_Decision As Contacts
+        Get
+            Return _Contact_Decision
+        End Get
+        Set(value As Contacts)
+            SetPropertyValue("Contact_Decision", _Contact_Decision, value)
+        End Set
+    End Property
+    Property Contact_Finance As Contacts
+        Get
+            Return _Contact_Finance
+        End Get
+        Set(value As Contacts)
+            SetPropertyValue("Contact_Finance", _Contact_Finance, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property EMail_Invoice As String
+        Get
+            Return _EMail_Invoice
+        End Get
+        Set(value As String)
+            SetPropertyValue("EMail_Invoice", _EMail_Invoice, value)
+        End Set
+    End Property
+
+    'Ároszlop
+    Property PriceColumn As Integer
+        Get
+            Return _PriceColumn
+        End Get
+        Set(value As Integer)
+            SetPropertyValue("PriceColumn", _PriceColumn, value)
+        End Set
+    End Property
+    '-----ReadOnly---------------
+    Overloads ReadOnly Property IsDeleted As Boolean
+        Get
+            'Dim _IsDeleted As Boolean = False
+            'For Each _PropertyInfo As PropertyInfo In Me.GetType.GetProperties
+            '    If _PropertyInfo.PropertyType.Name = "GCRecord" Then
+            '        _IsDeleted = _PropertyInfo.GetValue(Me, Nothing)
+            '    End If
+            'Next
+            'Return _IsDeleted
+            Return MyBase.IsDeleted
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Association("Customers-CustomersFileAttachment", GetType(CustomersFileAttachment))> _
+    ReadOnly Property CustomersFileAttachment As XPCollection(Of CustomersFileAttachment)
+        Get
+            Return GetCollection(Of CustomersFileAttachment)("CustomersFileAttachment")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property CRM_Opportunities As XPCollection(Of CRM_Opportunities)
+        Get
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Return New XPCollection(Of CRM_Opportunities)(Session, CriteriaOperator.Parse("Customers.Oid=?", Me.Oid))
+            Else
+                Return Nothing
+            End If
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Association("CustomerBankAccounts", GetType(CustomerBankAccounts))> _
+    Public ReadOnly Property CustomerBankAccounts() As XPCollection(Of CustomerBankAccounts)
+        Get
+            Return GetCollection(Of CustomerBankAccounts)("CustomerBankAccounts")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Association("Contacts", GetType(Contacts))> _
+    Public ReadOnly Property Contacts() As XPCollection(Of Contacts)
+        Get
+            Return GetCollection(Of Contacts)("Contacts")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Association("Customers-CustomersNGCollection", GetType(CustomersNGCollection)), Aggregated(), ExpandObjectMembers(ExpandObjectMembers.Never)> _
+    Public ReadOnly Property CustomersNGCollection As XPCollection(Of CustomersNGCollection)
+        Get
+            Return GetCollection(Of CustomersNGCollection)("CustomersNGCollection")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Association("Customers-CustomersAddress", GetType(CustomersAddress))> _
+    Public ReadOnly Property CustomersAddress As XPCollection(Of CustomersAddress)
+        Get
+            Return GetCollection(Of CustomersAddress)("CustomersAddress")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+   <Association("Customers-CustomersNGCollectionWorkSheetType", GetType(CustomersNGCollectionWorkSheetType))> _
+    Public ReadOnly Property CustomersNGCollectionWorkSheetType As XPCollection(Of CustomersNGCollectionWorkSheetType)
+        Get
+            Return GetCollection(Of CustomersNGCollectionWorkSheetType)("CustomersNGCollectionWorkSheetType")
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property ContractProductsCredit As XPCollection(Of ContractProductsCredit)
+        Get
+            Return New XPCollection(Of ContractProductsCredit)(Session, CriteriaOperator.Parse("Contract.Customers=?", Me))
+        End Get
+    End Property
+
+    ReadOnly Property CustomersCCustomers As XPCollection(Of CustomersCCustomers)
+        Get
+            Return New XPCollection(Of CustomersCCustomers)(Session, CriteriaOperator.Parse("Customers=?", Me))
+        End Get
+    End Property
+    ReadOnly Property Customers_BusinessDirectory As XPCollection(Of BusinessDirectory)
+        Get
+            Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse("1=2"))
+
+            If MasterBusinessDirectory IsNot Nothing Then
+                If MasterBusinessDirectory.Children.Count > 0 Then
+                    _BusinessDirectory_Collection.Add(MasterBusinessDirectory)
+                    RecursiveBusinessDirectory(_BusinessDirectory_Collection, MasterBusinessDirectory.NestedBusinessDirectory)
+                Else
+                    _BusinessDirectory_Collection.Add(MasterBusinessDirectory)
+                End If
+            End If
+
+            Return _BusinessDirectory_Collection
+        End Get
+    End Property
+
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property OfferOutRows As XPCollection(Of OfferOutRows)
+        Get
+            Return New XPCollection(Of OfferOutRows)(Session, CriteriaOperator.Parse("OfferOutHeader.Customers=?", Me))
+        End Get
+    End Property
+#Region "Other subs"
+    Private Sub RecursiveBusinessDirectory(_BusinessDirectoryList As XPCollection(Of BusinessDirectory), _NestedBusinessDirectory As XPCollection(Of BusinessDirectory))
+        For Each _BusinessDirectory As BusinessDirectory In _NestedBusinessDirectory
+            If _BusinessDirectory.Children.Count > 0 Then
+                _BusinessDirectoryList.Add(_BusinessDirectory)
+                RecursiveBusinessDirectory(_BusinessDirectoryList, _BusinessDirectory.NestedBusinessDirectory)
+            Else
+                _BusinessDirectoryList.Add(_BusinessDirectory)
+            End If
+        Next
+    End Sub
+#End Region
+End Class
+
+
+
+
+

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersAddress.vb

@@ -0,0 +1,63 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Public Enum eAddressType
+    Main = 0
+    Transport = 1
+    Postal = 2
+    Other = 3
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class CustomersAddress
+    Inherits BaseObject
+    Private _Customers As Customers
+    Private _AddressType As eAddressType
+    Private _Address As Address
+    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("Customers-CustomersAddress", GetType(Customers)), Aggregated(), ExpandObjectMembers(ExpandObjectMembers.Never)> _
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property AddressType As eAddressType
+        Get
+            Return _AddressType
+        End Get
+        Set(value As eAddressType)
+            SetPropertyValue("AddressType", _AddressType, value)
+        End Set
+    End Property
+    Property Address As Address
+        Get
+            Return _Address
+        End Get
+        Set(value As Address)
+            SetPropertyValue("Address", _Address, value)
+        End Set
+    End Property
+
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersCCustomers.vb

@@ -0,0 +1,47 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class CustomersCCustomers
+    Inherits BaseObject
+    Private _Customers As Customers
+    Private _CustomersConnect As Customers
+    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 Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property CustomersConnect As Customers
+        Get
+            Return _CustomersConnect
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("CustomersConnect", _CustomersConnect, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment.vb

@@ -0,0 +1,159 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports System.Drawing
+Imports System.IO
+Imports DevExpress.ExpressApp.Utils
+
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class CustomersFileAttachment
+    Inherits FileAttachmentBase
+    Private _FileType As String
+    Private _Customers As Customers
+    Private _Status As eProductsDocumentationStatus
+    Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelezõ)
+    Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelezõ)
+    Private _ShortName As String
+    Private _Description As String
+    Private _FileCreated As Date
+    Private _FileModified As Date
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    <Association("Customers-CustomersFileAttachment", GetType(Customers))> _
+    <Browsable(False)> _
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property FileType As String
+        Get
+            Return _FileType
+        End Get
+        Set(value As String)
+            SetPropertyValue("FileType", _FileType, value)
+        End Set
+    End Property
+    Public Property Status() As eProductsDocumentationStatus
+        Get
+            Return _Status
+        End Get
+        Set(ByVal value As eProductsDocumentationStatus)
+            SetPropertyValue("Status", _Status, value)
+        End Set
+    End Property
+    Public Property RowGroup1() As String
+        Get
+            Return _RowGroup1
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("RowGroup1", _RowGroup1, value)
+        End Set
+    End Property
+    Public Property RowGroup2() As String
+        Get
+            Return _RowGroup2
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("RowGroup2", _RowGroup2, value)
+        End Set
+    End Property
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property FileCreated As Date
+        Get
+            Return _FileCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("FileCreated", _FileCreated, value)
+        End Set
+    End Property
+    Property FileModified As Date
+        Get
+            Return _FileModified
+        End Get
+        Set(value As Date)
+            SetPropertyValue("FileModified", _FileModified, 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
+
+    '--------ReadOnly---------
+    <VisibleInDetailView(False)> _
+    ReadOnly Property ImageType As Image
+        Get
+            Select Case Path.GetExtension(File.FileName)
+                Case ".xls", ".xlsx", ".XLS", ".XLSX"
+                    Return ImageLoader.Instance.GetImageInfo("XLS").Image
+                Case ".doc", ".docx", ".DOC", ".DOCX"
+                    Return ImageLoader.Instance.GetImageInfo("DOC").Image
+                Case ".pdf", ".PDF"
+                    Return ImageLoader.Instance.GetImageInfo("PDF").Image
+                Case ".txt", ".TXT"
+                    Return ImageLoader.Instance.GetImageInfo("NoImage").Image
+                Case Else
+                    Return ImageLoader.Instance.GetImageInfo("NoImage").Image
+                    Return Nothing
+            End Select
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment_VC.Designer.vb

@@ -0,0 +1,49 @@
+Partial Class CustomersFileAttachment_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.aCustomersFileAttachment_OpenDefaultFolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aCustomersFileAttachment_OpenDefaultFolder
+        '
+        Me.aCustomersFileAttachment_OpenDefaultFolder.Caption = "aCustomersFileAttachment_OpenDefaultFolder"
+        Me.aCustomersFileAttachment_OpenDefaultFolder.ConfirmationMessage = Nothing
+        Me.aCustomersFileAttachment_OpenDefaultFolder.Id = "aCustomersFileAttachment_OpenDefaultFolder"
+        Me.aCustomersFileAttachment_OpenDefaultFolder.ImageName = Nothing
+        Me.aCustomersFileAttachment_OpenDefaultFolder.Shortcut = Nothing
+        Me.aCustomersFileAttachment_OpenDefaultFolder.Tag = Nothing
+        Me.aCustomersFileAttachment_OpenDefaultFolder.TargetObjectsCriteria = Nothing
+        Me.aCustomersFileAttachment_OpenDefaultFolder.TargetObjectType = GetType(SISBusiness.[Module].CustomersFileAttachment)
+        Me.aCustomersFileAttachment_OpenDefaultFolder.TargetViewId = Nothing
+        Me.aCustomersFileAttachment_OpenDefaultFolder.ToolTip = Nothing
+        Me.aCustomersFileAttachment_OpenDefaultFolder.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aCustomersFileAttachment_OpenDefaultFolder As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment_VC.resx

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

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment_VC.vb

@@ -0,0 +1,43 @@
+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
+
+Public Class CustomersFileAttachment_VC
+	Inherits DevExpress.ExpressApp.ViewController
+
+	Public Sub New()
+		MyBase.New()
+        InitializeComponent()
+		RegisterActions(components) 
+    End Sub
+
+    Private Sub aCustomersFileAttachment_OpenDefaultFolder_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomersFileAttachment_OpenDefaultFolder.Execute
+        Try
+            Dim _DefaultFolder As String = TryCast(Application.Model.Options, IModelOptionsExtender).DefaultCustomersFileFolder
+            Dim _Customers As Customers = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Customers)
+            If _Customers Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
+            Dim _CustomersFolderName As String = ""
+            If _Customers.FullName.Length < 13 Then
+                _CustomersFolderName = _Customers.FullName + " " + _Customers.Address1.City + " " + _Customers.CustomerNumber
+            Else
+                _CustomersFolderName = _Customers.FullName.Remove(12, _Customers.FullName.Length - 12) + _
+                                      " " + _Customers.Address1.City + " " + _Customers.CustomerNumber
+            End If
+          
+            If System.IO.Directory.Exists(_DefaultFolder + _CustomersFolderName) Then
+                Process.Start("explorer.exe", _DefaultFolder + _CustomersFolderName)
+            Else
+                System.IO.Directory.CreateDirectory(_DefaultFolder + _CustomersFolderName)
+                Process.Start("explorer.exe", _DefaultFolder + _CustomersFolderName)
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")
+        End Try
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFrom.vb

@@ -0,0 +1,137 @@
+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("Customers")> _
+<DefaultProperty("ShortName")> _
+Public Class CustomersFrom '-- Ezek azok a cégek akik használják a programot vagy project cégek, de mi kezeljük őket
+    Inherits Customers
+    Private _ShortName As String
+    Private _Description As String
+    Private _IsDefault As Boolean
+
+    '65A nyomtatványhoz 
+    Private _PublicLandAddress1 As String 'Székhelyhez tartozó közterület 
+    Private _PublicLandAddress2 As String 'Telephelyhez tartozó közterület 
+    Private _AdministratorName As String
+    Private _AdministratorPhoneNumber As String
+
+    '// RabbitMQ felhasználók és jelszavak
+
+    Private _RabbitMQServerAddress As String
+    Private _RabbitMQServerUser As String
+    Private _RabbitMQServerPassword As String
+    Private _RabbitMQBodyEncryptCode As String
+
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        IsDefault = False
+    End Sub
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+
+    Property IsDefault() As Boolean
+        Get
+            Return _IsDefault
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsDefault", _IsDefault, value)
+        End Set
+    End Property
+    Property PublicLandAddress1 As String
+        Get
+            Return _PublicLandAddress1
+        End Get
+        Set(value As String)
+            SetPropertyValue("PublicLandAddress1", _PublicLandAddress1, value)
+        End Set
+    End Property
+    Property PublicLandAddress2 As String
+        Get
+            Return _PublicLandAddress2
+        End Get
+        Set(value As String)
+            SetPropertyValue("PublicLandAddress2", _PublicLandAddress2, value)
+        End Set
+    End Property
+    Property AdministratorName As String
+        Get
+            Return _AdministratorName
+        End Get
+        Set(value As String)
+            SetPropertyValue("AdministratorName", _AdministratorName, value)
+        End Set
+    End Property
+    Property AdministratorPhoneNumber As String
+        Get
+            Return _AdministratorPhoneNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("AdministratorPhoneNumber", _AdministratorPhoneNumber, value)
+        End Set
+    End Property
+
+    '// RabbitMQ 
+    Property RabbitMQServerAddress As String
+        Get
+            Return _RabbitMQServerAddress
+        End Get
+        Set(value As String)
+            SetPropertyValue("RabbitMQServerAddress", _RabbitMQServerAddress, value)
+        End Set
+    End Property
+    Property RabbitMQServerUser As String
+        Get
+            Return _RabbitMQServerUser
+        End Get
+        Set(value As String)
+            SetPropertyValue("RabbitMQServerUser", _RabbitMQServerUser, value)
+        End Set
+    End Property
+    <PasswordPropertyText()> _
+    <ValueConverter(GetType(Encryption))> _
+    Property RabbitMQServerPassword As String
+        Get
+            Return _RabbitMQServerPassword
+        End Get
+        Set(value As String)
+            SetPropertyValue("RabbitMQServerPassword", _RabbitMQServerPassword, value)
+        End Set
+    End Property
+    <ValueConverter(GetType(Encryption))> _
+    Property RabbitMQBodyEncryptCode As String
+        Get
+            Return _RabbitMQBodyEncryptCode
+        End Get
+        Set(value As String)
+            SetPropertyValue("RabbitMQBodyEncryptCode", _RabbitMQBodyEncryptCode, value)
+        End Set
+    End Property
+
+    ReadOnly Property DefaultCustomerBankAccounts As CustomerBankAccounts
+        Get
+            Dim _CustomerBankAccounts As CustomerBankAccounts = Nothing
+            Dim _DefaultCustomerBankAccounts As CustomerBankAccounts = Nothing
+            For Each _CustomerBankAccounts In Me.CustomerBankAccounts
+                If _CustomerBankAccounts.IsDefault Then
+                    _DefaultCustomerBankAccounts = _CustomerBankAccounts
+                End If
+            Next
+            Return _DefaultCustomerBankAccounts
+        End Get
+    End Property
+End Class
+
+
+
+
+

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFromVC.Designer.vb

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

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFromVC.vb

@@ -0,0 +1,69 @@
+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 Microsoft.VisualBasic
+
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.Xpo
+
+Public Class CustomersFromVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Private detailViewCore As DetailView = Nothing
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+        TargetViewType = ViewType.DetailView
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        AddHandler View.ControlsCreated, AddressOf View_ControlsCreated
+        detailViewCore = CType(View, DetailView)
+
+    End Sub
+    Protected Overrides Sub OnViewControlsCreated()
+        MyBase.OnViewControlsCreated()
+
+    End Sub
+    Private Sub View_ControlsCreated(ByVal sender As Object, ByVal e As EventArgs)
+        On Error Resume Next
+
+        Dim _CustomersFrom As CustomersFrom
+
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim item As ViewItem = detailViewCore.FindItem("CustomersFrom")
+
+
+        If item IsNot Nothing Then
+            Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_ocur.Session)
+            If _CustomersFrom_Collection.Count > 1 Then
+            Else
+                For Each _CustomersFrom In _CustomersFrom_Collection
+
+                    item.CurrentObject.CustomersFrom = _CustomersFrom
+                Next
+            End If
+        End If
+    End Sub
+    'Private Function FindLayoutItemByControlHash(ByVal hash As Integer) As BaseLayoutItem
+    '    For Each item As BaseLayoutItem In ((CType(detailViewCore.Control, LayoutControl))).Items
+    '        If TypeOf item Is LayoutControlItem Then
+    '            Dim lci As LayoutControlItem = CType(item, LayoutControlItem)
+    '            If lci.Control.GetHashCode() = hash Then
+    '                Return item
+    '            End If
+    '        End If
+    '    Next item
+    '    Return Nothing
+    'End Function
+
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersGLParameters.vb

@@ -0,0 +1,163 @@
+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("Customers")> _
+Public Class CustomersGLParameters 'partner főkönyvi kategória
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _ChartOfAccountsIn As ChartOfAccounts '--- Vevői számla
+    Private _ChartOfAccountsOut As ChartOfAccounts '--- Szállítói számla
+    Private _ChartOfAccountsNo As ChartOfAccounts '--- Elszámolási számla
+    Private _DefaultforBusiness As Boolean = False
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <RuleRequiredField("CustomersGLParameters-ShortName", DefaultContexts.Save)> _
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    '<Browsable(False)>
+    'Property ChartOfAccountsIn() As ChartOfAccounts
+    '    Get
+    '        Return _ChartofAccountsIn
+    '    End Get
+    '    Set(ByVal value As ChartOfAccounts)
+    '        SetPropertyValue("ChartOfAccountsIn", _ChartofAccountsIn, value)
+    '    End Set
+    'End Property
+    '<Browsable(False)>
+    'Property ChartOfAccountsOut() As ChartOfAccounts
+    '    Get
+    '        Return _ChartofAccountsOut
+    '    End Get
+    '    Set(ByVal value As ChartOfAccounts)
+    '        SetPropertyValue("ChartOfAccountsOut", _ChartofAccountsOut, value)
+    '    End Set
+    'End Property
+    '<Browsable(False)>
+    'Property ChartOfAccountsNo As ChartOfAccounts
+    '    Get
+    '        Return _ChartofAccountsNo
+    '    End Get
+    '    Set(ByVal value As ChartOfAccounts)
+    '        SetPropertyValue("ChartOfAccountsNo", _ChartofAccountsNo, value)
+    '    End Set
+    'End Property
+    Property DefaultforBusiness As Boolean
+        Get
+            Return _DefaultforBusiness
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("DefaultforBusiness", _DefaultforBusiness, value)
+        End Set
+    End Property
+
+    <Association("CustomersGLParameters-CustomersGLParametersYear", GetType(CustomersGLParametersYear)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property CustomersGLParametersYear As XPCollection(Of CustomersGLParametersYear)
+        Get
+            Return GetCollection(Of CustomersGLParametersYear)("CustomersGLParametersYear")
+        End Get
+    End Property
+    Public Function GetChartOfAccounts(_AccountYear As Long, _CustomersGLParametersMode As eVATMode) As ChartOfAccounts
+        Dim _ChartOfAccounts As ChartOfAccounts = Nothing
+        Dim _CustomersGLParametersYear As CustomersGLParametersYear
+        Select Case _CustomersGLParametersMode
+            Case eVATMode.eIn
+                For Each _CustomersGLParametersYear In Me.CustomersGLParametersYear
+                    If _CustomersGLParametersYear.AccountYear = _AccountYear Then
+                        _ChartOfAccounts = _CustomersGLParametersYear.ChartOfAccountsIn
+                        Exit For
+                    End If
+                Next
+            Case eVATMode.eOut
+                For Each _CustomersGLParametersYear In Me.CustomersGLParametersYear
+                    If _CustomersGLParametersYear.AccountYear = _AccountYear Then
+                        _ChartOfAccounts = _CustomersGLParametersYear.ChartOfAccountsOut
+                        Exit For
+                    End If
+                Next
+        End Select
+        Return _ChartOfAccounts
+    End Function
+
+End Class
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+<RuleCriteria("RuleCriteria CustomersGLParametersYear-ChartOfAccountsOut", DefaultContexts.Save, "ChartOfAccountsOut.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
+<RuleCriteria("RuleCriteria CustomersGLParametersYear-ChartOfAccountsIn", DefaultContexts.Save, "ChartOfAccountsIn.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
+Public Class CustomersGLParametersYear
+    Inherits BaseObject
+
+    Private _CustomersGLParameters As CustomersGLParameters
+    Private _AccountYear As Long
+    Private _ChartOfAccountsOut As ChartOfAccounts
+    Private _ChartOfAccountsIn As ChartOfAccounts
+    Private _ChartOfAccountsNo As ChartOfAccounts
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+
+    <Association("CustomersGLParameters-CustomersGLParametersYear", GetType(CustomersGLParameters))> _
+    Property CustomersGLParameters As CustomersGLParameters
+        Get
+            Return _CustomersGLParameters
+        End Get
+        Set(value As CustomersGLParameters)
+            SetPropertyValue("CustomersGLParameters", _CustomersGLParameters, value)
+        End Set
+    End Property
+    Property AccountYear As Long
+        Get
+            Return _AccountYear
+        End Get
+        Set(value As Long)
+            SetPropertyValue("AccountYear", _AccountYear, value)
+        End Set
+    End Property
+    <DataSourceCriteria("AccountYear='@This.AccountYear'")> _
+    Property ChartOfAccountsOut As ChartOfAccounts
+        Get
+            Return _ChartofAccountsOut
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccountsOut", _ChartofAccountsOut, value)
+        End Set
+    End Property
+    <DataSourceCriteria("AccountYear='@This.AccountYear'")> _
+    Property ChartOfAccountsIn As ChartOfAccounts
+        Get
+            Return _ChartofAccountsIn
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccountsIn", _ChartofAccountsIn, value)
+        End Set
+    End Property
+    <DataSourceCriteria("AccountYear='@This.AccountYear'")> _
+    Property ChartOfAccountsNo As ChartOfAccounts
+        Get
+            Return _ChartofAccountsNo
+        End Get
+        Set(ByVal value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccountsNo", _ChartofAccountsNo, value)
+        End Set
+    End Property
+
+End Class
+
+
+

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersNG.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("Customers")> _
+Public Class CustomersNG
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _NumberGenerator As NumberGenerator
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(ByVal value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+End Class
+
+
+
+
+

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersNGCollection.vb

@@ -0,0 +1,55 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class CustomersNGCollection 'Partnerhez tartozó sorszám generálási kollekció
+    Inherits BaseObject
+    Private _Customers As Customers 'Partner
+    Private _ContractTemplate As ContractTemplate
+    Private _NumberGenerator As NumberGenerator
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("Customers-CustomersNGCollection", GetType(Customers))> _
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    <RuleRequiredField("CustomersNGCollection-ContractTemplate", DefaultContexts.Save)> _
+    Property ContractTemplate As ContractTemplate
+        Get
+            Return _ContractTemplate
+        End Get
+        Set(value As ContractTemplate)
+            SetPropertyValue("ContractTemplate", _ContractTemplate, value)
+        End Set
+    End Property
+    <RuleRequiredField("CustomersNGCollection-NumberGenerator", DefaultContexts.Save)> _
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersNGCollectionWorkSheetType.vb

@@ -0,0 +1,55 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class CustomersNGCollectionWorkSheetType 'Partnerhez -alvállalkozó- tarozó sorszám és munkalap
+    Inherits BaseObject
+
+    Private _Customers As Customers
+    Private _NumberGenerator As NumberGenerator
+    Private _WorkSheetType As WorkSheetType
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("Customers-CustomersNGCollectionWorkSheetType", GetType(Customers))> _
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    <RuleRequiredField("CustomersNGCollectionWorkSheetType-NumberGenerator", DefaultContexts.Save)> _
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    <RuleRequiredField("CustomersNGCollectionWorkSheetType-WorkSheetType", DefaultContexts.Save)> _
+    Property WorkSheetType As WorkSheetType
+        Get
+            Return _WorkSheetType
+        End Get
+        Set(value As WorkSheetType)
+            SetPropertyValue("WorkSheetType", _WorkSheetType, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersOrder.vb

@@ -0,0 +1,25 @@
+Imports DevExpress.Xpo
+Imports DevExpress.Persistent.Base
+
+<DefaultClassOptions()> _
+<NavigationItem("Customers")> _
+Public Class CustomersOrder ' Ez azokat a partnereket tartalmazza, akik rendelkeznek elég infóval, hogy rendeljünk tőlük
+    Inherits Customers
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <VisibleInListView(False)> _
+    <Association("CustomersOrderDocuments", GetType(CustomersOrderDocuments))> _
+    Public ReadOnly Property CustomersOrderDocuments() As XPCollection(Of CustomersOrderDocuments)
+        Get
+            Return GetCollection(Of CustomersOrderDocuments)("CustomersOrderDocuments")
+        End Get
+    End Property
+    
+End Class
+
+
+
+
+

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersOrderDocuments.vb

@@ -0,0 +1,70 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem("Customers")> _
+Public Class CustomersOrderDocuments 'Akiktől rendelhetünk, annak a devizához tartozó rendelési dokumentum kollekció
+    Inherits BaseObject
+    Private _OrderOutMainType As eOrderOutMainType 'Rendelés tipusa
+    Private _CustomersOrder As CustomersOrder
+    Private _ReportData As ReportData
+    Private _CurrencyName As CurrencyName
+    Private _NumberGenerator As NumberGenerator
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property OrderOutMainType As eOrderOutMainType
+        Get
+            Return _OrderOutMainType
+        End Get
+        Set(value As eOrderOutMainType)
+            SetPropertyValue("OrderOutMainType", _OrderOutMainType, value)
+        End Set
+    End Property
+    <Association("CustomersOrderDocuments", GetType(CustomersOrder))> _
+    Property CustomersOrder() As CustomersOrder
+        Get
+            Return _CustomersOrder
+        End Get
+        Set(ByVal value As CustomersOrder)
+            SetPropertyValue("CustomersOrder", _CustomersOrder, value)
+        End Set
+    End Property
+    Property ReportData As ReportData
+        Get
+            Return _ReportData
+        End Get
+        Set(ByVal value As ReportData)
+            SetPropertyValue("ReportData", _ReportData, value)
+        End Set
+    End Property
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(ByVal value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+End Class
+
+
+
+
+

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersQualification.vb

@@ -0,0 +1,91 @@
+
+Imports DevExpress.Xpo
+
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class CustomersQualification
+    Inherits BaseObject
+
+    Dim _Customers As Customers
+    Dim _Operations As Operations
+    Dim _Price As Long
+    Dim _Speed As Long
+    Dim _Quality As Long
+    Dim _Other1 As Long
+    Dim _Other2 As Long
+    Dim _Other3 As Long
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    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 Price As Long
+        Get
+            Return _Price
+        End Get
+        Set(value As Long)
+            SetPropertyValue("Price", _Price, 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 Quality As Long
+        Get
+            Return _Quality
+        End Get
+        Set(value As Long)
+            SetPropertyValue("Quality", _Quality, 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 Other2 As Long
+        Get
+            Return _Other2
+        End Get
+        Set(value As Long)
+            SetPropertyValue("Other2", _Other2, 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

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersQuota.vb

@@ -0,0 +1,112 @@
+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 CustomersQuota 'Partnertõl mennyit kell megrendelnem
+    Inherits BaseObject
+    Private _Customers As Customers
+    Private _PartnerType As ePartnerType
+    Private _DateFrom As Date 'Dátumtól
+    Private _DateTo As Date 'Dátumig
+    Private _Products As Products
+    Private _ProductsGroups As ProductsGroups
+    Private _CurrencyName As CurrencyName 'Deviza
+    Private _AmountPlan As Double 'Netto forgalom az adott idõszakra
+    Private _AmountFact As Double 'Ezt kell számolni 
+    Private _Rabbat As Double '+ kedvezmény %
+
+    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 Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property DateFrom As Date
+        Get
+            Return _DateFrom
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateFrom", _DateFrom, value)
+        End Set
+    End Property
+    Property DateTo As Date
+        Get
+            Return _DateTo
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateTo", _DateTo, value)
+        End Set
+    End Property
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property ProductsGroups As ProductsGroups
+        Get
+            Return _ProductsGroups
+        End Get
+        Set(value As ProductsGroups)
+            SetPropertyValue("ProductsGroups", _ProductsGroups, value)
+        End Set
+    End Property
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    Property AmountPlan As Double
+        Get
+            Return _AmountPlan
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountPlan", _AmountPlan, value)
+        End Set
+    End Property
+    Property AmountFact As Double
+        Get
+            Return _AmountFact
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountFact", _AmountFact, value)
+        End Set
+    End Property
+    Property Rabbat As Double
+        Get
+            Return _Rabbat
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Rabbat", _Rabbat, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersThemesHRPerson.vb

@@ -0,0 +1,58 @@
+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 CustomersThemesHRPerson 'Addott partnernél melyik témában ki a HRperson
+    Inherits BaseObject
+
+    Private _Customers As Customers
+    Private _Themes As Themes
+    Private _HRPerson As HRPerson
+
+    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 Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property Themes As Themes
+        Get
+            Return _Themes
+        End Get
+        Set(value As Themes)
+            SetPropertyValue("Themes", _Themes, value)
+        End Set
+    End Property
+    Property HRPerson As HRPerson
+        Get
+            Return _HRPerson
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson", _HRPerson, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.Designer.vb

@@ -0,0 +1,245 @@
+Partial Class CustomersVC
+
+	<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.aCustomers_Open = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aGetCustomersQuota = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateOpportunityFromCustomers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCustomersFileAttachment_ChangeGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aRecreateCustomersOrderDocuments = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aMergeCustomers = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCustomersFileAttachmentRemove = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aPCICheck_Customers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCustomersSetToCustomers = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCustomersSetSupplierMarkInfo = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCustomersDeleteSupplierMarkInfo = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCustomersToContacts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCustomersToCustomersOrder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCustomers_ChangeCustomers = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCustomers_CreateBusinessDirectory = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewPCIDetail_Customers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCustomers_OpenDHUrl = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aCustomers_Open
+        '
+        Me.aCustomers_Open.Caption = "aCustomers_Open"
+        Me.aCustomers_Open.ConfirmationMessage = Nothing
+        Me.aCustomers_Open.Id = "aCustomers_Open"
+        Me.aCustomers_Open.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCustomers_Open.TargetViewId = "Customers_ListView_CRM_Outlook"
+        Me.aCustomers_Open.ToolTip = Nothing
+        '
+        'aGetCustomersQuota
+        '
+        Me.aGetCustomersQuota.Caption = "aGet Customers Quota"
+        Me.aGetCustomersQuota.ConfirmationMessage = Nothing
+        Me.aGetCustomersQuota.Id = "aGetCustomersQuota"
+        Me.aGetCustomersQuota.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aGetCustomersQuota.TargetObjectType = GetType(SISBusiness.[Module].CustomersQuota)
+        Me.aGetCustomersQuota.ToolTip = Nothing
+        '
+        'aCreateOpportunityFromCustomers
+        '
+        Me.aCreateOpportunityFromCustomers.Caption = "Create opportunity"
+        Me.aCreateOpportunityFromCustomers.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aCreateOpportunityFromCustomers.Id = "aCreateOpportunityFromCustomers"
+        Me.aCreateOpportunityFromCustomers.ImageName = "BO_Opportunity"
+        Me.aCreateOpportunityFromCustomers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCreateOpportunityFromCustomers.TargetObjectType = GetType(SISBusiness.[Module].Customers)
+        Me.aCreateOpportunityFromCustomers.TargetViewId = ""
+        Me.aCreateOpportunityFromCustomers.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aCreateOpportunityFromCustomers.ToolTip = Nothing
+        Me.aCreateOpportunityFromCustomers.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aCustomersFileAttachment_ChangeGroup
+        '
+        Me.aCustomersFileAttachment_ChangeGroup.AcceptButtonCaption = Nothing
+        Me.aCustomersFileAttachment_ChangeGroup.CancelButtonCaption = Nothing
+        Me.aCustomersFileAttachment_ChangeGroup.Caption = "aCustomersFileAttachment_ChangeGroup"
+        Me.aCustomersFileAttachment_ChangeGroup.ConfirmationMessage = Nothing
+        Me.aCustomersFileAttachment_ChangeGroup.Id = "aCustomersFileAttachment_ChangeGroup"
+        Me.aCustomersFileAttachment_ChangeGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aCustomersFileAttachment_ChangeGroup.TargetObjectType = GetType(SISBusiness.[Module].CustomersFileAttachment)
+        Me.aCustomersFileAttachment_ChangeGroup.ToolTip = Nothing
+        '
+        'aRecreateCustomersOrderDocuments
+        '
+        Me.aRecreateCustomersOrderDocuments.Caption = "aRecreateCustomersOrderDocuments"
+        Me.aRecreateCustomersOrderDocuments.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aRecreateCustomersOrderDocuments.Id = "aRecreateCustomersOrderDocuments"
+        Me.aRecreateCustomersOrderDocuments.ImageName = "BO_Opportunity"
+        Me.aRecreateCustomersOrderDocuments.TargetObjectType = GetType(SISBusiness.[Module].CustomersOrder)
+        Me.aRecreateCustomersOrderDocuments.TargetViewId = ""
+        Me.aRecreateCustomersOrderDocuments.ToolTip = Nothing
+        '
+        'aMergeCustomers
+        '
+        Me.aMergeCustomers.AcceptButtonCaption = Nothing
+        Me.aMergeCustomers.CancelButtonCaption = Nothing
+        Me.aMergeCustomers.Caption = "aMerge Customers"
+        Me.aMergeCustomers.Category = "RecordEdit"
+        Me.aMergeCustomers.ConfirmationMessage = Nothing
+        Me.aMergeCustomers.Id = "aMergeCustomers"
+        Me.aMergeCustomers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aMergeCustomers.TargetObjectType = GetType(SISBusiness.[Module].Customers)
+        Me.aMergeCustomers.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aMergeCustomers.ToolTip = Nothing
+        Me.aMergeCustomers.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aCustomersFileAttachmentRemove
+        '
+        Me.aCustomersFileAttachmentRemove.Caption = "aCustomers File Attachment Remove"
+        Me.aCustomersFileAttachmentRemove.Category = "Edit"
+        Me.aCustomersFileAttachmentRemove.ConfirmationMessage = Nothing
+        Me.aCustomersFileAttachmentRemove.Id = "aCustomersFileAttachmentRemove"
+        Me.aCustomersFileAttachmentRemove.ImageName = "Action_Delete"
+        Me.aCustomersFileAttachmentRemove.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aCustomersFileAttachmentRemove.TargetObjectType = GetType(SISBusiness.[Module].CustomersFileAttachment)
+        Me.aCustomersFileAttachmentRemove.ToolTip = Nothing
+        '
+        'aPCICheck_Customers
+        '
+        Me.aPCICheck_Customers.Caption = "aPCICheck_Customers"
+        Me.aPCICheck_Customers.Category = "RecordEdit"
+        Me.aPCICheck_Customers.ConfirmationMessage = Nothing
+        Me.aPCICheck_Customers.Id = "aPCICheck_Customers"
+        Me.aPCICheck_Customers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aPCICheck_Customers.TargetObjectType = GetType(SISBusiness.[Module].Customers)
+        Me.aPCICheck_Customers.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aPCICheck_Customers.ToolTip = Nothing
+        Me.aPCICheck_Customers.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aCustomersSetToCustomers
+        '
+        Me.aCustomersSetToCustomers.AcceptButtonCaption = Nothing
+        Me.aCustomersSetToCustomers.CancelButtonCaption = Nothing
+        Me.aCustomersSetToCustomers.Caption = "aCustomers Set To Customers"
+        Me.aCustomersSetToCustomers.ConfirmationMessage = Nothing
+        Me.aCustomersSetToCustomers.Id = "aCustomersSetToCustomers"
+        Me.aCustomersSetToCustomers.TargetObjectType = GetType(SISBusiness.[Module].Customers)
+        Me.aCustomersSetToCustomers.TargetViewId = "Customers_ListView"
+        Me.aCustomersSetToCustomers.ToolTip = Nothing
+        '
+        'aCustomersSetSupplierMarkInfo
+        '
+        Me.aCustomersSetSupplierMarkInfo.AcceptButtonCaption = Nothing
+        Me.aCustomersSetSupplierMarkInfo.CancelButtonCaption = Nothing
+        Me.aCustomersSetSupplierMarkInfo.Caption = "aCustomersSetSupplierMarkInfo"
+        Me.aCustomersSetSupplierMarkInfo.ConfirmationMessage = Nothing
+        Me.aCustomersSetSupplierMarkInfo.Id = "aCustomersSetSupplierMarkInfo"
+        Me.aCustomersSetSupplierMarkInfo.TargetObjectType = GetType(SISBusiness.[Module].Customers)
+        Me.aCustomersSetSupplierMarkInfo.TargetViewId = "Customers_ListView"
+        Me.aCustomersSetSupplierMarkInfo.ToolTip = Nothing
+        '
+        'aCustomersDeleteSupplierMarkInfo
+        '
+        Me.aCustomersDeleteSupplierMarkInfo.Caption = "aCustomers Delete Supplier Mark Info"
+        Me.aCustomersDeleteSupplierMarkInfo.ConfirmationMessage = Nothing
+        Me.aCustomersDeleteSupplierMarkInfo.Id = "aCustomersDeleteSupplierMarkInfo"
+        Me.aCustomersDeleteSupplierMarkInfo.TargetObjectType = GetType(SISBusiness.[Module].Customers)
+        Me.aCustomersDeleteSupplierMarkInfo.TargetViewId = "Customers_ListView"
+        Me.aCustomersDeleteSupplierMarkInfo.ToolTip = Nothing
+        '
+        'aCustomersToContacts
+        '
+        Me.aCustomersToContacts.Caption = "aCustomers To Contacts"
+        Me.aCustomersToContacts.ConfirmationMessage = Nothing
+        Me.aCustomersToContacts.Id = "aCustomersToContacts"
+        Me.aCustomersToContacts.TargetObjectType = GetType(SISBusiness.[Module].Contacts)
+        Me.aCustomersToContacts.TargetViewId = "Customers_Contacts_ListView"
+        Me.aCustomersToContacts.ToolTip = Nothing
+        '
+        'aCustomersToCustomersOrder
+        '
+        Me.aCustomersToCustomersOrder.Caption = "aCustomers To Customers Order"
+        Me.aCustomersToCustomersOrder.ConfirmationMessage = "Do you want to execute ?"
+        Me.aCustomersToCustomersOrder.Id = "aCustomersToCustomersOrder"
+        Me.aCustomersToCustomersOrder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aCustomersToCustomersOrder.TargetObjectType = GetType(SISBusiness.[Module].Customers)
+        Me.aCustomersToCustomersOrder.ToolTip = Nothing
+        '
+        'aCustomers_ChangeCustomers
+        '
+        Me.aCustomers_ChangeCustomers.AcceptButtonCaption = Nothing
+        Me.aCustomers_ChangeCustomers.CancelButtonCaption = Nothing
+        Me.aCustomers_ChangeCustomers.Caption = "aCustomers_ChangeCustomers"
+        Me.aCustomers_ChangeCustomers.ConfirmationMessage = Nothing
+        Me.aCustomers_ChangeCustomers.Id = "aCustomers_ChangeCustomers"
+        Me.aCustomers_ChangeCustomers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aCustomers_ChangeCustomers.TargetObjectType = GetType(SISBusiness.[Module].Customers)
+        Me.aCustomers_ChangeCustomers.TargetViewId = "Customers_ListView"
+        Me.aCustomers_ChangeCustomers.ToolTip = Nothing
+        '
+        'aCustomers_CreateBusinessDirectory
+        '
+        Me.aCustomers_CreateBusinessDirectory.Caption = "aCustomers_CreateBusinessDirectory"
+        Me.aCustomers_CreateBusinessDirectory.Category = "ObjectsCreation"
+        Me.aCustomers_CreateBusinessDirectory.ConfirmationMessage = Nothing
+        Me.aCustomers_CreateBusinessDirectory.Id = "aCustomers_CreateBusinessDirectory"
+        Me.aCustomers_CreateBusinessDirectory.TargetObjectType = GetType(SISBusiness.[Module].Customers)
+        Me.aCustomers_CreateBusinessDirectory.TargetViewId = ""
+        Me.aCustomers_CreateBusinessDirectory.ToolTip = Nothing
+        '
+        'aViewPCIDetail_Customers
+        '
+        Me.aViewPCIDetail_Customers.Caption = "aViewPCIDetail_Customers"
+        Me.aViewPCIDetail_Customers.ConfirmationMessage = Nothing
+        Me.aViewPCIDetail_Customers.Id = "aViewPCIDetail_Customers"
+        Me.aViewPCIDetail_Customers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewPCIDetail_Customers.TargetObjectType = GetType(SISBusiness.[Module].Customers)
+        Me.aViewPCIDetail_Customers.ToolTip = Nothing
+        '
+        'aCustomers_OpenDHUrl
+        '
+        Me.aCustomers_OpenDHUrl.Caption = "aCustomers_OpenDHUrl"
+        Me.aCustomers_OpenDHUrl.ConfirmationMessage = Nothing
+        Me.aCustomers_OpenDHUrl.Id = "aCustomers_OpenDHUrl"
+        Me.aCustomers_OpenDHUrl.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCustomers_OpenDHUrl.TargetObjectType = GetType(SISBusiness.[Module].Customers)
+        Me.aCustomers_OpenDHUrl.ToolTip = Nothing
+
+    End Sub
+    Friend WithEvents aCreateOpportunityFromCustomers As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aRecreateCustomersOrderDocuments As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCustomersFileAttachment_ChangeGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aMergeCustomers As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aGetCustomersQuota As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCustomersFileAttachmentRemove As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCustomers_Open As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aPCICheck_Customers As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCustomersSetToCustomers As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCustomersSetSupplierMarkInfo As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCustomersDeleteSupplierMarkInfo As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCustomersToContacts As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCustomersToCustomersOrder As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCustomers_ChangeCustomers As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCustomers_CreateBusinessDirectory As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewPCIDetail_Customers As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCustomers_OpenDHUrl As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.resx

@@ -0,0 +1,174 @@
+<?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="aCustomers_Open.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>543, 173</value>
+  </metadata>
+  <metadata name="aGetCustomersQuota.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>244, 212</value>
+  </metadata>
+  <metadata name="aCreateOpportunityFromCustomers.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>689, 251</value>
+  </metadata>
+  <metadata name="aCustomersFileAttachment_ChangeGroup.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>410, 251</value>
+  </metadata>
+  <metadata name="aRecreateCustomersOrderDocuments.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>413, 212</value>
+  </metadata>
+  <metadata name="aMergeCustomers.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>259, 251</value>
+  </metadata>
+  <metadata name="aCustomersFileAttachmentRemove.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aPCICheck_Customers.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>670, 212</value>
+  </metadata>
+  <metadata name="aCustomersSetToCustomers.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aCustomersSetSupplierMarkInfo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aCustomersDeleteSupplierMarkInfo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>694, 173</value>
+  </metadata>
+  <metadata name="aCustomersToContacts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>366, 173</value>
+  </metadata>
+  <metadata name="aCustomersToCustomersOrder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aCustomers_ChangeCustomers.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aCustomers_CreateBusinessDirectory.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aViewPCIDetail_Customers.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>222, 56</value>
+  </metadata>
+  <metadata name="aCustomers_OpenDHUrl.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>562, 58</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.vb

@@ -0,0 +1,773 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Data.Filtering
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.CloneObject
+Imports DevExpress.Xpo
+Imports DevExpress.Xpo.DB
+Imports DevExpress.ExpressApp.Utils
+Imports System.Reflection
+Imports System.IO
+
+Public Class CustomersVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event DoWork()
+    Public Event FinalWork
+
+    Public Sub New()
+        MyBase.New()
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+#Region "Overrides"
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        Frame.GetController(Of CustomersVC).aCustomersSetToCustomers.Active.SetItemValue("", False)
+
+        If View.Id = "CustomersNG_ListView" Or View.Id = "CustomersNG_LookupListView" Then
+            Dim _CustomersNG As CustomersNG
+
+            _CustomersNG = TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.FindObject(Of CustomersNG)(1, CriteriaOperator.Parse("Oid=Oid"))
+
+            If _CustomersNG Is Nothing Then
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Else
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            End If
+        End If
+        If View.Id = "Customers_CRM_Opportunities_ListView" Then
+            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+            'Frame.GetController(Of LinkDialogController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "CustomersNGCollection_DetailView" Then
+            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "Customers_CustomersBankAccounts_ListView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkDialogController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "CustomersFrom_CustomersBankAccounts_ListView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkDialogController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "Customers_DetailView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Customers_DetailView_DeleteAction_Executing
+            AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf Customers_DetailView_Save_Executing
+            AddHandler Frame.GetController(Of ModificationsController).SaveAndCloseAction.Executing, AddressOf Customers_DetailView_Save_Executing
+            AddHandler Frame.GetController(Of ModificationsController).SaveAndNewAction.Executing, AddressOf Customers_DetailView_Save_Executing
+        End If
+        If View.Id = "Customers_LookupListView" Then
+            'Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "CustomersFileAttachment_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "Customers_CustomersFileAttachment_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "Customers_Customers_BusinessDirectory_ListView" Then
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+        End If
+
+        If View.Id = "Customers_ListView_Deleted" Then
+            Frame.GetController(Of CustomersVC).aCreateOpportunityFromCustomers.Active.SetItemValue("", False)
+            Frame.GetController(Of CustomersVC).aCustomersToCustomersOrder.Active.SetItemValue("", False)
+            Frame.GetController(Of CustomersVC).aPCICheck_Customers.Active.SetItemValue("", False)
+            Frame.GetController(Of CustomersVC).aCustomers_CreateBusinessDirectory.Active.SetItemValue("", False)
+            Frame.GetController(Of CustomersVC).aMergeCustomers.Active.SetItemValue("", False)
+
+            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            If TryCast(View, ListView) IsNot Nothing Then
+                If TryCast(View, ListView).CollectionSource IsNot Nothing Then
+                    If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then
+                        If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection) IsNot Nothing Then
+                            If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection IsNot Nothing Then
+                                If TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection) IsNot Nothing Then
+                                    TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection).SelectDeleted = True
+                                End If
+                            End If
+                        End If
+                    End If
+                End If
+            End If
+        End If
+
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "CustomersNG_ListView" Or View.Id = "CustomersNG_LookupListView" Then
+            Dim _CustomersNG As CustomersNG
+
+            _CustomersNG = TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.FindObject(Of CustomersNG)(1, CriteriaOperator.Parse("Oid=Oid"))
+
+            If _CustomersNG Is Nothing Then
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Else
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            End If
+        End If
+        If View.Id = "Customers_CRM_Opportunities_ListView" Then
+            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
+            'Frame.GetController(Of LinkDialogController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "CustomersNGCollection_Deatilview" Then
+            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "Customers_CustomersBankAccounts_ListView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of LinkDialogController).Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
+        End If
+        If View.Id = "CustomersFrom_CustomersBankAccounts_ListView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of LinkDialogController).Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
+        End If
+        If View.Id = "Customers_DetailView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+        End If
+        If View.Id = "Customers_LookupListView" Then
+            'Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "CustomersFileAttachment_ListView" Then
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+        End If
+        If View.Id = "Customers_CustomersFileAttachment_ListView" Then
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+        End If
+        If View.Id = "Customers_Customers_BusinessDirectory_ListView" Then
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "Customers_ListView_Deleted" Then
+            Frame.GetController(Of CustomersVC).aCreateOpportunityFromCustomers.Active.SetItemValue("", True)
+            Frame.GetController(Of CustomersVC).aCustomersToCustomersOrder.Active.SetItemValue("", True)
+            Frame.GetController(Of CustomersVC).aPCICheck_Customers.Active.SetItemValue("", True)
+            Frame.GetController(Of CustomersVC).aCustomers_CreateBusinessDirectory.Active.SetItemValue("", True)
+
+            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CustomersVC).aMergeCustomers.Active.SetItemValue("", True)
+        End If
+    End Sub
+#End Region
+    Private Sub aCreateOpportunityFromCustomers_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateOpportunityFromCustomers.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _Customers As Customers = TryCast(View.SelectedObjects(0), Customers)
+        Dim _CRM_Leads As CRM_Leads
+        Dim _CRM_Opportunities As CRM_Opportunities
+        Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
+        Dim _HRPerson As HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", _User))
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _CRM_FirstMeet As CRM_FirstMeet = _ocur.FindObject(Of CRM_FirstMeet)(CriteriaOperator.Parse("DefaultforBusiness=True"))
+        Dim _CustomersGLParameters As CustomersGLParameters = _ocur.FindObject(Of CustomersGLParameters)(CriteriaOperator.Parse("DefaultforBusiness=True"))
+
+        If _Customers.CustomersGLParameters Is Nothing Then
+            _Customers.CustomersGLParameters = _CustomersGLParameters
+        End If
+
+        If _Customers.CRM_Leads Is Nothing Then
+            _CRM_Leads = _ocur.CreateObject(Of CRM_Leads)()
+            _CRM_Leads.LeadStatus = eLeadStatus.Qualified
+            _CRM_Leads.Customers = _ocur.GetObject(_Customers)
+            _CRM_Leads.CompanyName = _Customers.FullName
+            _CRM_Leads.Topic = _Customers.FullName
+            _CRM_Leads.EMail = "-"
+            _CRM_Leads.MobilePhone = "-"
+            _CRM_Leads.LastName = "-"
+            _CRM_Leads.FirstName = "-"
+            _CRM_Leads.CRM_FirstMeet = _CRM_FirstMeet
+
+            _Customers.CRM_Leads = _CRM_Leads
+        End If
+
+        _CRM_Opportunities = _ocur.CreateObject(Of CRM_Opportunities)()
+        _CRM_Opportunities.Customers = _Customers
+        _CRM_Opportunities.CRM_Leads = _Customers.CRM_Leads
+        _CRM_Opportunities.HRPerson = _HRPerson
+        _CRM_Opportunities.CRM_Opportunities_Probability = _ocur.FindObject(Of CRM_Opportunities_Probability)(CriteriaOperator.Parse("Probability<=30 and Probability>0"))
+
+        _ocur.CommitChanges()
+
+        e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Opportunities_DetailView", True, _onew.GetObject(_CRM_Opportunities))
+
+
+    End Sub
+    Private Sub Customers_DetailView_Save_Executing(sender As Object, e As CancelEventArgs)
+        '// Ha elmentünk egy partnert, akkor a Name és a FullName legyen u.a.
+    End Sub
+    Private Sub Customers_DetailView_DeleteAction_Executing(sender As Object, e As CancelEventArgs)
+        '//Csak olyan partnert lehessen törölni, amihez nincs semmi még !
+
+    End Sub
+    Private Sub aRecreateCustomersOrderDocuments_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRecreateCustomersOrderDocuments.Execute
+        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+
+        Try
+            If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _CustomersOrderDocuments_BASE = _ocur.FindObject(Of CustomersOrderDocuments)(CriteriaOperator.Parse("1=1"))
+
+            If _CustomersOrderDocuments_BASE Is Nothing Then Throw New Exception("*A csoportos beállítás előtt legalább egy rendelési dokumentumot létre kell hozni!")
+
+            Dim _NumberGenerator_BASE As NumberGenerator = _CustomersOrderDocuments_BASE.NumberGenerator
+
+            Dim _CurrencyName_Collection As xpcollection = _ocur.CreateCollection(GetType(CurrencyName), CriteriaOperator.Parse("1=1"))
+            RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+            For Each _CustomersOrder As CustomersOrder In View.SelectedObjects
+                RaiseEvent DoWork()
+                If _CustomersOrder.CustomersOrderDocuments.Count <> _CurrencyName_Collection.Count Then
+                    For Each _CurrencyName As CurrencyName In _CurrencyName_Collection
+
+                        Dim _CustomersOrderDocuments As CustomersOrderDocuments = _ocur.FindObject(Of CustomersOrderDocuments)(CriteriaOperator.Parse("CurrencyName.ShortName=? AND CustomersOrder=?", _
+                                                                                                                                                      _CurrencyName.ShortName, _CustomersOrder))
+                        If _CustomersOrderDocuments Is Nothing Then
+                            Dim _NumberGenerator_NEW As NumberGenerator = _ocur.CreateObject(Of NumberGenerator)()
+
+                            _NumberGenerator_NEW.NumberGeneratorGroups = _NumberGenerator_BASE.NumberGeneratorGroups
+                            _NumberGenerator_NEW.PrefixString = _NumberGenerator_BASE.PrefixString
+                            _NumberGenerator_NEW.PrefixTag = "-"
+                            _NumberGenerator_NEW.SuffixString = _CurrencyName.ShortName
+                            _NumberGenerator_NEW.SuffixTag = "-"
+                            _NumberGenerator_NEW.SerialNumberPlace = _NumberGenerator_BASE.SerialNumberPlace
+                            _NumberGenerator_NEW.SerialNumberDigit = _NumberGenerator_BASE.SerialNumberDigit
+                            _NumberGenerator_NEW.YearFormat = eYearFormat.YearTwoDigit
+                            _NumberGenerator_NEW.NewNumberPerYear = _NumberGenerator_BASE.NewNumberPerYear
+                            _NumberGenerator_NEW.ShortName = "Szállítói rendelések sorszámai: " & _CustomersOrder.DisplayName & ", " & _CurrencyName.ShortName
+                            _NumberGenerator_NEW.MonthAfterYear = _NumberGenerator_BASE.MonthAfterYear
+
+                            Dim _CustomersOrderDocuments_NEW As CustomersOrderDocuments = _ocur.CreateObject(Of CustomersOrderDocuments)()
+
+                            _CustomersOrderDocuments_NEW.CurrencyName = _CurrencyName
+                            _CustomersOrderDocuments_NEW.CustomersOrder = _CustomersOrder
+                            _CustomersOrderDocuments_NEW.NumberGenerator = _NumberGenerator_NEW
+                            _CustomersOrderDocuments_NEW.OrderOutMainType = eOrderOutMainType.eFromProducts
+
+                            _CustomersOrder.CustomersOrderDocuments.Add(_CustomersOrderDocuments_NEW)
+
+
+                            Dim _OrderOutHeader_Collection As xpcollection = _ocur.CreateCollection(GetType(OrderOutHeader), CriteriaOperator.Parse("CustomersOrder=? AND CurrencyName.ShortName=?", _
+                                                                                                                                                    _CustomersOrder, _CurrencyName.ShortName))
+                            If _OrderOutHeader_Collection.Count Then
+                                For Each _OrderOutHeader As OrderOutHeader In _OrderOutHeader_Collection
+                                    _OrderOutHeader.CustomersOrderDocuments = _CustomersOrderDocuments_NEW
+                                Next
+                            End If
+                        End If
+                    Next
+                    _ocur.CommitChanges()
+                End If
+            Next
+            RaiseEvent FinalWork
+            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub aCustomersFileAttachment_ChangeGroup_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCustomersFileAttachment_ChangeGroup.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = _onew.CreateObject(Of ChangeFileAttachment_PopUp)()
+
+            e.View = Application.CreateDetailView(_onew, "ChangeFileAttachment_PopUp_DetailView", True, _ChangeFileAttachment_PopUp)
+            e.View.Tag = e.Action.Id
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Hiba")
+        End Try
+    End Sub
+    Private Sub aCustomersFileAttachment_ChangeGroup_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCustomersFileAttachment_ChangeGroup.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ChangeFileAttachment_PopUp)
+            For Each _CustomersFileAttachment As CustomersFileAttachment In View.SelectedObjects
+                If _ChangeFileAttachment_PopUp.ChangeStatus = True Then
+                    _CustomersFileAttachment.Status = _ChangeFileAttachment_PopUp.Status
+                End If
+                If _ChangeFileAttachment_PopUp.ChangeRowGroup1 = True Then
+                    _CustomersFileAttachment.RowGroup1 = _ChangeFileAttachment_PopUp.RowGroup1
+                End If
+                If _ChangeFileAttachment_PopUp.ChangeRowGroup2 = True Then
+                    _CustomersFileAttachment.RowGroup2 = _ChangeFileAttachment_PopUp.RowGroup2
+                End If
+            Next
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Hiba")
+        End Try
+    End Sub
+
+    Private Sub aMergeCustomers_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aMergeCustomers.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _CustomersMergePopup As CustomersMergePopup = _onew.CreateObject(Of CustomersMergePopup)()
+        Dim _Customers As Customers
+        _CustomersMergePopup.CustomersMain = _onew.GetObject(TryCast(View.SelectedObjects(0), Customers))
+        _CustomersMergePopup.Customers = New XPCollection(Of Customers)(_onew.Session, CriteriaOperator.Parse("1=2"))
+        For Each _Customers In View.SelectedObjects
+            If _Customers Is View.SelectedObjects(0) Then
+            Else
+                _CustomersMergePopup.Customers.Add(_onew.GetObject(_Customers))
+            End If
+        Next
+        e.View = Application.CreateDetailView(_onew, "CustomersMergePopup_DetailView", True, _CustomersMergePopup)
+
+    End Sub
+
+    Private Sub aMergeCustomers_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aMergeCustomers.Execute
+        Try
+            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _CustomersMergePopup As CustomersMergePopup = e.PopupWindow.View.SelectedObjects(0)
+            Dim _Object As Object
+
+            For Each _Customers As Customers In _CustomersMergePopup.Customers
+                For Each _Object In _onew.Session.CollectReferencingObjects(_onew.GetObjectByKey(Of Customers)(_Customers.Oid))
+                    Try
+                        'Debug.Print(_Object)
+                        For Each _PropertyInfo As PropertyInfo In _Object.GetType.GetProperties
+                            If _PropertyInfo.PropertyType.Name = "Customers" Then
+                                '_Object.setvalue(_PropertyInfo.Name) = _onew.GetObjectByKey(Of Customers)(_CustomersMergePopup.CustomersMain.Oid)
+                                _PropertyInfo.SetValue(_Object, _onew.GetObjectByKey(Of Customers)(_CustomersMergePopup.CustomersMain.Oid), Nothing)
+                            End If
+                        Next
+
+                    Catch ex As Exception
+                        Throw New Exception(ex.Message)
+                    End Try
+                Next
+            Next
+            _onew.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        Finally
+            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        End Try
+
+    End Sub
+
+    Private Sub aGetCustomersQuota_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGetCustomersQuota.Execute
+        '// Forgalmak számolása a Quoták alapján
+    End Sub
+
+    Private Sub aCustomersFileAttachmentRemove_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomersFileAttachmentRemove.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _ListView As ListView = TryCast(View, ListView)
+            Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
+
+            Dim _Customers As Customers = TryCast(_PropertyCollectionSource.MasterObject, Customers)
+            Dim _CustomersOrderPriority As CustomersOrderPriority = TryCast(_PropertyCollectionSource.MasterObject, CustomersOrderPriority)
+
+            For Each _CustomersFileAttachment As CustomersFileAttachment In e.SelectedObjects
+                If _Customers IsNot Nothing Then
+                    _Customers.CustomersFileAttachment.Remove(_CustomersFileAttachment)
+                End If
+                If _CustomersOrderPriority IsNot Nothing Then
+                    _CustomersOrderPriority.CustomersOrder.CustomersFileAttachment.Remove(_CustomersFileAttachment)
+                End If
+            Next
+            _ocur.CommitChanges()
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+    Private Sub aCustomers_Open_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomers_Open.Execute
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _Customers As Customers = _onew.GetObject(TryCast(View.SelectedObjects(0), Customers))
+            If _Customers Is Nothing Then Throw New Exception("*Nem lehet azonosítani a partnert!")
+
+            e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Customers_DetailView", True, _Customers)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+
+    Private Sub aPCICheck_Customers_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPCICheck_Customers.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
+
+        Dim _Customers As Customers
+        Dim _CustomersFrom As CustomersFrom
+        Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_uow)
+
+        For Each _Customers In View.SelectedObjects
+            _Customers = _uow.GetObjectByKey(Of Customers)(_Customers.Oid)
+
+            For Each _CustomersFrom In _CustomersFrom_Collection
+                Select Case GLOBAL_SQLType
+                    Case eSQLType.PostgreSQL
+                        _uow.ExecuteNonQuery("delete from ""PCIDetail"" where ""Customers""='" & _
+                                 _Customers.Oid.ToString & "' and ""CustomersFrom""='" & _
+                                 _CustomersFrom.Oid.ToString & "'")
+                        _uow.CommitChanges()
+                        _uow.ExecuteNonQuery("update ""InvoiceHeader"" set ""PCIGroup""=NULL where ""PCIGroup"" not in (select ""PCIGroup"" from ""PCIDetail"")")
+                        _uow.ExecuteNonQuery("delete from ""PCIGroup"" where ""Oid"" not in (select ""PCIGroup"" from ""PCIDetail"")")
+                        _uow.CommitChanges()
+                    Case Else
+                        _uow.ExecuteNonQuery("delete from PCIDetail where Customers='" & _
+                                 _Customers.Oid.ToString & "' and CustomersFrom='" & _
+                                 _CustomersFrom.Oid.ToString & "'")
+                        _uow.CommitChanges()
+                        _uow.ExecuteNonQuery("update InvoiceHeader set PCIGroup=NULL where PCIGroup not in (select PCIGroup from PCIDetail)")
+                        _uow.ExecuteNonQuery("delete from PCIGroup where Oid not in (select PCIGroup from PCIDetail)")
+                        _uow.CommitChanges()
+                End Select
+
+                Dim _GLAccounts_Collection As New XPCollection(Of GLAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _
+                _uow, CriteriaOperator.Parse("IsDeleted=False and CustomersFrom.Oid=? and Customers.Oid=? and IsEditable=False", _
+                                            _CustomersFrom.Oid, _Customers.Oid))
+                RaiseEvent InitWork(1, 1, _GLAccounts_Collection.Count)
+                For Each _GLAccounts In _GLAccounts_Collection
+                    RaiseEvent DoWork()
+                    If _GLAccounts IsNot Nothing Then
+                        GLFunctions.ReconfigurePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.PartnerType, _GLAccounts.ConnectInfo)
+                    End If
+                Next
+                RaiseEvent FinalWork
+                Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(PersistentCriteriaEvaluationBehavior.InTransaction, _
+                    _uow, CriteriaOperator.Parse("IsDeleted=False and isnull(DocumentNumber)=False and CustomersFrom.Oid=? and Customers.Oid=? and IsEditable=False and isnull(GLAccounts)=True", _
+                                                _CustomersFrom.Oid, _Customers.Oid))
+                RaiseEvent InitWork(1, 1, _InvoiceHeader_Collection.Count)
+                For Each _InvoiceHeader In _InvoiceHeader_Collection
+                    RaiseEvent DoWork()
+                    If _InvoiceHeader IsNot Nothing Then
+                        GLFunctions.ReconfigurePCI(_uow, _InvoiceHeader.CustomersFrom, _InvoiceHeader.Customers, 0, _InvoiceHeader.ConnectInfo)
+                    End If
+                Next
+                RaiseEvent FinalWork
+                Dim _RegistryHeader_Collection As New XPCollection(Of RegistryHeader)(PersistentCriteriaEvaluationBehavior.InTransaction, _
+                    _uow, CriteriaOperator.Parse("IsStorno=False and IsDeleted=False and RegistryAcceptState=0 and RegistryType.RegistryMainType =0 and CustomersFrom.Oid=? and Customers.Oid=? and IsEditable=False and isnull(F_GLAccounts)=True", _
+                                                _CustomersFrom.Oid, _Customers.Oid))
+
+                RaiseEvent InitWork(1, 1, _RegistryHeader_Collection.Count)
+                For Each _RegistryHeader In _RegistryHeader_Collection
+                    RaiseEvent DoWork()
+                    If _RegistryHeader IsNot Nothing Then
+                        GLFunctions.ReconfigurePCI(_uow, _RegistryHeader.CustomersFrom, _RegistryHeader.Customers, 1, _RegistryHeader.F_ConnectInfo)
+                    End If
+                Next
+                RaiseEvent FinalWork
+
+                Dim _GLRows_Collection As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _
+                _uow, CriteriaOperator.Parse("GLHeader.IsDeleted=False and GLHeader.CustomersFrom.Oid=? and Customer.Oid=? and PartnerType in (0,1) and  GLHeader.GLDocumentType in (0,2,3,4,5)", _
+                                            _CustomersFrom.Oid, _Customers.Oid))
+
+                RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
+                For Each _GLRows In _GLRows_Collection
+                    RaiseEvent DoWork()
+                    If _GLRows IsNot Nothing Then
+                        GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
+                    End If
+                Next
+                RaiseEvent FinalWork
+            Next
+        Next
+    End Sub
+
+    Private Sub aCustomersSetToCustomers_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCustomersSetToCustomers.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _CS As New CollectionSource(_onew, GetType(Customers))
+
+            e.View = Application.CreateListView("Customers_ListView_Select", _CS, False)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+    Private Sub aCustomersSetToCustomers_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCustomersSetToCustomers.Execute
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+    Private Sub aCustomersSetSupplierMarkInfo_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCustomersSetSupplierMarkInfo.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _CS As New CollectionSource(_onew, GetType(Customers))
+
+            _CS.BeginUpdateCriteria()
+            _CS.Criteria.Add("Criteria", CriteriaOperator.Parse("IsNull(SupplierMark, '')<>''"))
+            _CS.EndUpdateCriteria()
+
+            e.View = Application.CreateListView("Customers_ListView_Select", _CS, False)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+    Private Sub aCustomersSetSupplierMarkInfo_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCustomersSetSupplierMarkInfo.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _MarkInfo As String = ""
+            RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+            For Each _CustomersOnPopUp As Customers In e.PopupWindow.View.SelectedObjects
+                _CustomersOnPopUp = _ocur.GetObject(_CustomersOnPopUp)
+                _MarkInfo += _CustomersOnPopUp.SupplierMark + ", "
+            Next
+
+            _MarkInfo = _MarkInfo.Remove(_MarkInfo.Length - 2, 2)
+
+            For Each _CustomersOnBaseView As Customers In View.SelectedObjects
+                _CustomersOnBaseView.SupplierMarkInfo = _MarkInfo
+                RaiseEvent DoWork()
+            Next
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            RaiseEvent FinalWork
+        End Try
+    End Sub
+    Private Sub aCustomersDeleteSupplierMarkInfo_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomersDeleteSupplierMarkInfo.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+
+            For Each _Customers As Customers In View.SelectedObjects
+                _Customers.SupplierMarkInfo = Nothing
+                RaiseEvent DoWork()
+            Next
+
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            RaiseEvent FinalWork
+        End Try
+    End Sub
+
+    Private Sub aCustomersToContacts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomersToContacts.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _Customers As Customers = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Customers)
+            If _Customers Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
+
+            Dim _Contacts As New Contacts(_onew.Session)
+            With _Contacts
+                .Customers = _onew.GetObject(_Customers)
+                .MotherName = _Customers.MotherName
+                If _Customers.BirthAddress IsNot Nothing Then
+                    If _Customers.BirthAddress.City IsNot Nothing Then .BirthPlace = _Customers.BirthAddress.City
+                End If
+
+                .TAJNumber = _Customers.TAJNumber
+                .Birthday = _Customers.BirthDate
+                .Address1 = _onew.GetObject(_Customers.Address1)
+                .Address2 = _onew.GetObject(_Customers.Address2)
+
+            End With
+
+            e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Contacts_DetailView", True, _Contacts)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+
+    Private Sub aCustomersToCustomersOrder_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomersToCustomersOrder.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing
+        Dim _SQL As String = ""
+        Dim _Customers As Customers
+        Dim _SelectStatementResultRow As SelectStatementResultRow
+        Dim _Exists As Boolean = False
+        Dim _ObjectType As Long = 0
+        For Each _Customers In View.SelectedObjects
+            Select Case GLOBAL_SQLType
+                Case eSQLType.MSSQL, eSQLType.PostgreSQL
+                    _SQL = "select ""Oid"" from ""CustomersOrder"" where ""Oid""='" & _Customers.Oid.ToString & "'"
+                Case eSQLType.MySQL
+                    _SQL = "select Oid from CustomersOrder where Oid='" & _Customers.Oid.ToString & "'"
+            End Select
+
+            _SelectedData = _ocur.Session.ExecuteQuery(_SQL)
+            If _SelectedData.ResultSet.Length > 0 Then
+                For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
+                    _Exists = True
+                Next
+            End If
+
+            If _Exists = False Then
+                Select Case GLOBAL_SQLType
+                    Case eSQLType.MSSQL, eSQLType.PostgreSQL
+                        _SQL = "select ""Oid"" from ""XPObjectType"" where ""TypeName""='SISBusiness.Module.CustomersOrder'"
+                    Case eSQLType.MySQL
+                        _SQL = "select Oid from XPObjectType where TypeName='SISBusiness.Module.CustomersOrder'"
+                End Select
+                _SelectedData = _ocur.Session.ExecuteQuery(_SQL)
+                If _SelectedData.ResultSet.Length > 0 Then
+                    For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
+                        _ObjectType = _SelectStatementResultRow.Values(0)
+                    Next
+                End If
+                Select Case GLOBAL_SQLType
+                    Case eSQLType.MSSQL, eSQLType.PostgreSQL
+                        _SQL = "insert ""CustomersOrder"" (""Oid"") values ('" & _Customers.Oid.ToString & "')"
+                    Case eSQLType.MySQL
+                        _SQL = "insert CustomersOrder (Oid) values ('" & _Customers.Oid.ToString & "')"
+                End Select
+                _ocur.Session.ExecuteNonQuery(_SQL)
+                Select Case GLOBAL_SQLType
+                    Case eSQLType.MSSQL, eSQLType.PostgreSQL
+                        _SQL = "Update ""Party"" set ""ObjectType""=" & _ObjectType & " where ""Oid""='" & _Customers.Oid.ToString & "'"
+                    Case eSQLType.MySQL
+                        _SQL = "Update Party set ObjectType=" & _ObjectType & " where Oid='" & _Customers.Oid.ToString & "'"
+                End Select
+                _ocur.Session.ExecuteNonQuery(_SQL)
+                _ocur.CommitChanges()
+                Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+            End If
+        Next
+
+
+    End Sub
+    Private Sub aCustomers_ChangeCustomers_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCustomers_ChangeCustomers.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _Customers_Change_PopUP As New Customers_Change_PopUP(_onew.Session)
+
+        e.View = Application.CreateDetailView(_onew, "Customers_Change_PopUP_DetailView", True, _Customers_Change_PopUP)
+    End Sub
+    Private Sub aCustomers_ChangeCustomers_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCustomers_ChangeCustomers.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _Customers_Change_PopUP As Customers_Change_PopUP = _ocur.GetObject(e.PopupWindow.View.SelectedObjects(0))
+
+        RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+        For Each _Customers As Customers In View.SelectedObjects
+            If _Customers_Change_PopUP.Change_Country1 Then
+                If _Customers.Address1 IsNot Nothing Then
+                    _Customers.Address1.Country = _ocur.GetObject(_Customers_Change_PopUP.Country1)
+                End If
+            End If
+            If _Customers_Change_PopUP.Change_Country2 Then
+                If _Customers.Address2 IsNot Nothing Then
+                    _Customers.Address2.Country = _ocur.GetObject(_Customers_Change_PopUP.Country2)
+                End If
+            End If
+            If _Customers_Change_PopUP.Change_CreditlineDay Then
+                _Customers.CreditlineDay = _Customers_Change_PopUP.CreditlineDay
+            End If
+            If _Customers_Change_PopUP.Change_CustomersGLParameters Then
+                _Customers.CustomersGLParameters = _ocur.GetObject(_Customers_Change_PopUP.CustomersGLParameters)
+            End If
+            If _Customers_Change_PopUP.Change_IsAssetsHandling Then
+                _Customers.IsAssetsHandling = _ocur.GetObject(_Customers_Change_PopUP.IsAssetsHandling)
+            End If
+            If _Customers_Change_PopUP.Change_LateChargesCountMode Then
+                _Customers.LateChargesCountMode = _ocur.GetObject(_Customers_Change_PopUP.LateChargesCountMode)
+            End If
+            If _Customers_Change_PopUP.Change_PaymentOption Then
+                _Customers.PaymentOption = _ocur.GetObject(_Customers_Change_PopUP.PaymentOption)
+            End If
+            If _Customers_Change_PopUP.Change_Pricing Then
+                _Customers.Pricing = _ocur.GetObject(_Customers_Change_PopUP.Pricing)
+            End If
+            If _Customers_Change_PopUP.Change_PricingIn Then
+                _Customers.PricingIn = _ocur.GetObject(_Customers_Change_PopUP.PricingIn)
+            End If
+            If _Customers_Change_PopUP.Change_Profile Then
+                _Customers.Profile = _Customers_Change_PopUP.Profile
+            End If
+            If _Customers_Change_PopUP.Change_QualityOption Then
+                _Customers.QualityOption = _ocur.GetObject(_Customers_Change_PopUP.QualityOption)
+            End If
+            If _Customers_Change_PopUP.Change_ShipmentOption Then
+                _Customers.ShipmentOption = _ocur.GetObject(_Customers_Change_PopUP.ShipmentOption)
+            End If
+            RaiseEvent DoWork()
+        Next
+        _ocur.CommitChanges()
+        RaiseEvent FinalWork
+    End Sub
+    Private Sub aCustomers_CreateBusinessDirectory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomers_CreateBusinessDirectory.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _Customers As Customers = TryCast(View.SelectedObjects(0), Customers)
+
+        If _Customers.MasterBusinessDirectory Is Nothing Then
+            Dim _CustomersBaseBusinessDirectory As BusinessDirectory = _ocur.FindObject(Of BusinessDirectory)(DevExpress.Data.Filtering.CriteriaOperator.Parse("ShortName='Ügyfelek' AND IsNull(BusinessDirectory_Parent)=True"))
+
+            If _CustomersBaseBusinessDirectory Is Nothing Then
+                _CustomersBaseBusinessDirectory = New BusinessDirectory(_ocur.Session)
+                With _CustomersBaseBusinessDirectory
+                    .ShortName = "Ügyfelek"
+                    .BusinessDirectory_Parent = Nothing
+                End With
+            End If
+
+            Dim _CustomersBusinessDirectory As New BusinessDirectory(_ocur.Session)
+            With _CustomersBusinessDirectory
+                .ShortName = String.Format("{0}  {1} {2}", _Customers.FullName, _Customers.Address1.City, _Customers.CustomerNumber)
+                .BusinessDirectory_Parent = _CustomersBaseBusinessDirectory
+            End With
+            _CustomersBusinessDirectory.Save()
+            _Customers.MasterBusinessDirectory = _CustomersBusinessDirectory
+            _ocur.CommitChanges()
+        End If
+    End Sub
+
+    Private Sub aViewPCIDetail_Customers_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDetail_Customers.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _Customers As Customers = _onew.GetObject(TryCast(View.SelectedObjects(0), Customers))
+
+        Dim _PCIDetail_CollectionSource As New CollectionSource(_onew, GetType(PCIDetail))
+
+        _PCIDetail_CollectionSource.BeginUpdateCriteria()
+        _PCIDetail_CollectionSource.Criteria("Customers") = CriteriaOperator.Parse("Customers=?", _Customers)
+        _PCIDetail_CollectionSource.EndUpdateCriteria()
+
+        e.ShowViewParameters.CreatedView = Application.CreateListView("PCIDetail_ListView_Customers", _PCIDetail_CollectionSource, False)
+
+
+    End Sub
+
+    Private Sub aCustomers_OpenDHUrl_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomers_OpenDHUrl.Execute
+        Dim _Customers As Customers = TryCast(View.SelectedObjects(0), Customers)
+        If _Customers IsNot Nothing Then
+            Dim _ExternalBrowserPath As String = Nothing
+            If TryCast(Application.Model.Options, IModelOptionsExtender) IsNot Nothing Then
+                If File.Exists(TryCast(Application.Model.Options, IModelOptionsExtender).ExternalBrowserPath) Then
+                    _ExternalBrowserPath = TryCast(Application.Model.Options, IModelOptionsExtender).ExternalBrowserPath
+                End If
+            End If
+
+            Dim _Process As New System.Diagnostics.Process
+
+            With _Process.StartInfo
+                .FileName = _ExternalBrowserPath
+                .Arguments = " url """ + _Customers.Url_DH + """"
+            End With
+
+            _Process.Start()
+        End If
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/PopUp/ChangeFileAttachment_PopUp.vb

@@ -0,0 +1,90 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<CreatableItem(False)> _
+<NavigationItem(False)> _
+Public Class ChangeFileAttachment_PopUp
+    Inherits BaseObject
+
+
+    Private _Status As eProductsDocumentationStatus
+    Private _ChangeStatus As Boolean
+    Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelezõ)
+    Private _ChangeRowGroup1 As Boolean
+    Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelezõ)
+    Private _ChangeRowGroup2 As Boolean
+
+
+
+    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
+
+    Public Property Status() As eProductsDocumentationStatus
+        Get
+            Return _Status
+        End Get
+        Set(ByVal value As eProductsDocumentationStatus)
+            SetPropertyValue("Status", _Status, value)
+        End Set
+    End Property
+    Public Property RowGroup1() As String
+        Get
+            Return _RowGroup1
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("RowGroup1", _RowGroup1, value)
+        End Set
+    End Property
+    Public Property RowGroup2() As String
+        Get
+            Return _RowGroup2
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("RowGroup2", _RowGroup2, value)
+        End Set
+    End Property
+
+
+    Public Property ChangeStatus() As Boolean
+        Get
+            Return _ChangeStatus
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("Status", _ChangeStatus, value)
+        End Set
+    End Property
+    Public Property ChangeRowGroup1() As Boolean
+        Get
+            Return _ChangeRowGroup1
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("RowGroup1", _ChangeRowGroup1, value)
+        End Set
+    End Property
+    Public Property ChangeRowGroup2() As Boolean
+        Get
+            Return _ChangeRowGroup2
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("RowGroup2", _ChangeRowGroup2, value)
+        End Set
+    End Property
+   
+
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/PopUp/CustomersMergePopup.vb

@@ -0,0 +1,32 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent> _
+Public Class CustomersMergePopup
+    Inherits BaseObject
+    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 CustomersMain As Customers
+    Property Customers As XPCollection(Of Customers)
+
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/PopUp/Customers_Change_PopUP.vb

@@ -0,0 +1,243 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<CreatableItem(False)> _
+<NavigationItem(False)> _
+Public Class Customers_Change_PopUP
+    Inherits BaseObject
+
+    Private _Change_PaymentOption As Boolean
+    Private _PaymentOption As PaymentOption
+    Private _Change_ShipmentOption As Boolean
+    Private _ShipmentOption As ShipmentOption
+    Private _Change_QualityOption As Boolean
+    Private _QualityOption As QualityOption
+    Private _Change_IsAssetsHandling As Boolean
+    Private _IsAssetsHandling As Boolean
+    Private _Change_LateChargesCountMode As Boolean
+    Private _LateChargesCountMode As LateChargesCountMode
+    Private _Change_CreditlineDay As Boolean
+    Private _CreditlineDay As Long
+    Private _Change_Pricing As Boolean 'Árképzés ha vevõ az ügyfél
+    Private _Pricing As Pricing
+    Private _Change_PricingIn As Boolean 'Árképzés ha vásárolunk tõle
+    Private _PricingIn As Pricing
+    Private _Change_CustomersGLParameters As Boolean 'Ügyfél fõkönyvi kategária
+    Private _CustomersGLParameters As CustomersGLParameters
+    Private _Change_Profile As Boolean
+    Private _Profile As String
+    Private _Change_Country1 As Boolean
+    Private _Country1 As Country
+    Private _Change_Country2 As Boolean
+    Private _Country2 As Country
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property Change_PaymentOption As Boolean
+        Get
+            Return _Change_PaymentOption
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_PaymentOption", _Change_PaymentOption, value)
+        End Set
+    End Property
+    Public Property PaymentOption() As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(ByVal value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+        End Set
+    End Property
+    Property Change_ShipmentOption As Boolean
+        Get
+            Return _Change_ShipmentOption
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_ShipmentOption", _Change_ShipmentOption, value)
+        End Set
+    End Property
+    Public Property ShipmentOption() As ShipmentOption
+        Get
+            Return _ShipmentOption
+        End Get
+        Set(ByVal value As ShipmentOption)
+            SetPropertyValue("ShipmentOption", _ShipmentOption, value)
+        End Set
+    End Property
+    Property Change_QualityOption As Boolean
+        Get
+            Return _Change_QualityOption
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_QualityOption", _Change_QualityOption, value)
+        End Set
+    End Property
+    Public Property QualityOption() As QualityOption
+        Get
+            Return _QualityOption
+        End Get
+        Set(ByVal value As QualityOption)
+            SetPropertyValue("QualityOption", _QualityOption, value)
+        End Set
+    End Property
+    Property Change_IsAssetsHandling As Boolean
+        Get
+            Return _Change_IsAssetsHandling
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_IsAssetsHandling", _Change_IsAssetsHandling, value)
+        End Set
+    End Property
+    Property IsAssetsHandling As Boolean
+        Get
+            Return _IsAssetsHandling
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsAssetsHandling", _IsAssetsHandling, value)
+        End Set
+    End Property
+    Property Change_LateChargesCountMode As Boolean
+        Get
+            Return _Change_LateChargesCountMode
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_LateChargesCountMode", _Change_LateChargesCountMode, value)
+        End Set
+    End Property
+    Property LateChargesCountMode As LateChargesCountMode
+        Get
+            Return _LateChargesCountMode
+        End Get
+        Set(value As LateChargesCountMode)
+            SetPropertyValue("LateChargesCountMode", _LateChargesCountMode, value)
+        End Set
+    End Property
+    Property Change_CreditlineDay As Boolean
+        Get
+            Return _Change_CreditlineDay
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_CreditlineDay", _Change_CreditlineDay, value)
+        End Set
+    End Property
+    Property CreditlineDay As Long
+        Get
+            Return _CreditlineDay
+        End Get
+        Set(value As Long)
+            SetPropertyValue("CreditlineDay", _CreditlineDay, value)
+        End Set
+    End Property
+    Property Change_Pricing As Boolean
+        Get
+            Return _Change_Pricing
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_Pricing", _Change_Pricing, value)
+        End Set
+    End Property
+    Property Pricing As Pricing
+        Get
+            Return _Pricing
+        End Get
+        Set(ByVal value As Pricing)
+            SetPropertyValue("Pricing", _Pricing, value)
+        End Set
+    End Property
+    Property Change_PricingIn As Boolean
+        Get
+            Return _Change_PricingIn
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_PricingIn", _Change_PricingIn, value)
+        End Set
+    End Property
+    Property PricingIn As Pricing
+        Get
+            Return _PricingIn
+        End Get
+        Set(ByVal value As Pricing)
+            SetPropertyValue("PricingIn", _PricingIn, value)
+        End Set
+    End Property
+    Property Change_CustomersGLParameters As Boolean
+        Get
+            Return _Change_CustomersGLParameters
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_CustomersGLParameters", _Change_CustomersGLParameters, value)
+        End Set
+    End Property
+    Property CustomersGLParameters() As CustomersGLParameters
+        Get
+            Return _CustomersGLParameters
+        End Get
+        Set(ByVal value As CustomersGLParameters)
+            SetPropertyValue("CustomersGLParameters", _CustomersGLParameters, value)
+        End Set
+    End Property
+    Property Change_Profile As Boolean
+        Get
+            Return _Change_Profile
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_Profile", _Change_Profile, value)
+        End Set
+    End Property
+    Property Profile As String
+        Get
+            Return _Profile
+        End Get
+        Set(value As String)
+            SetPropertyValue("Profile", _Profile, value)
+        End Set
+    End Property
+    Property Change_Country1 As Boolean
+        Get
+            Return _Change_Country1
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_Country1", _Change_Country1, value)
+        End Set
+    End Property
+    Property Country1 As Country
+        Get
+            Return _Country1
+        End Get
+        Set(value As Country)
+            SetPropertyValue("Country1", _Country1, value)
+        End Set
+    End Property
+    Property Change_Country2 As Boolean
+        Get
+            Return _Change_Country2
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_Country2", _Change_Country2, value)
+        End Set
+    End Property
+    Property Country2 As Country
+        Get
+            Return _Country2
+        End Get
+        Set(value As Country)
+            SetPropertyValue("Country2", _Country2, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/Themes.vb

@@ -0,0 +1,48 @@
+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 Themes 'Témák törzse
+    Inherits BaseObject
+    Private _ShortName As String
+    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
+
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class