First create solution

2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
@@ -0,0 +1,789 @@
+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")>
+<Indices("VATNumber")>
+<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 _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 _MarketPosition As Long 'Piaci besorolás
+    Private _PriceColumn As Integer 'Ároszlop, melyik PriceColumnBruttoHUFXX ára van
+    Private _GreenCardNumber As String 'Mezőgazdasági zöldkönyv száma
+    Private _BiologicalControlContractNumber As String 'Növényvédelmi szerződés száma
+
+    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 MarketPosition As Long
+        Get
+            Return _MarketPosition
+        End Get
+        Set(value As Long)
+            SetPropertyValue("MarketPosition", _MarketPosition, value)
+        End Set
+    End Property
+    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
+
+    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
+
+    Property GreenCardNumber As String
+        Get
+            Return _GreenCardNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("GreenCardNumber", _GreenCardNumber, value)
+        End Set
+    End Property
+    Property BiologicalControlContractNumber As String
+        Get
+            Return _BiologicalControlContractNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("BiologicalControlContractNumber", _BiologicalControlContractNumber, 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
+
+
+
+
+