Files
SISBusiness/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/PopUp/Customers_Change_PopUP.vb
T
2017-03-26 20:00:03 +02:00

244 lines
7.5 KiB
VB.net

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