97 lines
3.6 KiB
VB.net
97 lines
3.6 KiB
VB.net
Imports Microsoft.VisualBasic
|
|
Imports System
|
|
Imports System.Linq
|
|
Imports System.Text
|
|
Imports DevExpress.Xpo
|
|
Imports DevExpress.ExpressApp
|
|
Imports System.ComponentModel
|
|
Imports DevExpress.ExpressApp.DC
|
|
Imports DevExpress.Data.Filtering
|
|
Imports DevExpress.Persistent.Base
|
|
Imports System.Collections.Generic
|
|
Imports DevExpress.ExpressApp.Model
|
|
Imports DevExpress.Persistent.BaseImpl
|
|
Imports DevExpress.Persistent.Validation
|
|
|
|
'<ImageName("BO_Contact")> _
|
|
'<DefaultProperty("DisplayMemberNameForLookupEditorsOfThisType")> _
|
|
'<DefaultListViewOptions(MasterDetailMode.ListViewOnly, False, NewItemRowPosition.None)> _
|
|
'<Persistent("DatabaseTableName")> _
|
|
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
|
Public Class CRM_Opportunities_Parameters ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701).
|
|
Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146).
|
|
|
|
Private _CustomersFrom As CustomersFrom
|
|
Private _ShortName As String 'Paraméter megnevezése
|
|
Private _WorkflowSystem As WorkflowSystem 'Folyamatrendszer
|
|
Private _NumberGenerator As NumberGenerator 'Sorszám generátor
|
|
Private _IsDefault As Boolean
|
|
|
|
Public Sub New(ByVal session As Session)
|
|
MyBase.New(session)
|
|
End Sub
|
|
Public Overrides Sub AfterConstruction()
|
|
MyBase.AfterConstruction()
|
|
' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834).
|
|
End Sub
|
|
|
|
Property CustomersFrom As CustomersFrom
|
|
Get
|
|
Return _CustomersFrom
|
|
End Get
|
|
Set(value As CustomersFrom)
|
|
SetPropertyValue("CustomersFrom", _CustomersFrom, 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 WorkflowSystem As WorkflowSystem
|
|
Get
|
|
Return _WorkflowSystem
|
|
End Get
|
|
Set(value As WorkflowSystem)
|
|
SetPropertyValue("WorkflowSystem", _WorkflowSystem, value)
|
|
End Set
|
|
End Property
|
|
Property NumberGenerator As NumberGenerator
|
|
Get
|
|
Return _NumberGenerator
|
|
End Get
|
|
Set(value As NumberGenerator)
|
|
SetPropertyValue("NumberGenerator", _NumberGenerator, value)
|
|
End Set
|
|
End Property
|
|
Property IsDefault As Boolean
|
|
Get
|
|
Return _IsDefault
|
|
End Get
|
|
Set(value As Boolean)
|
|
SetPropertyValue("IsDefault", _IsDefault, value)
|
|
End Set
|
|
End Property
|
|
'Private _PersistentProperty As String
|
|
'<XafDisplayName("My display name"), ToolTip("My hint message")> _
|
|
'<ModelDefault("EditMask", "(000)-00"), Index(0), VisibleInListView(False)> _
|
|
'<Persistent("DatabaseColumnName"), RuleRequiredField(DefaultContexts.Save)> _
|
|
'Public Property PersistentProperty() As String
|
|
' Get
|
|
' Return _PersistentProperty
|
|
' End Get
|
|
' Set(ByVal value As String)
|
|
' SetPropertyValue("PersistentProperty", _PersistentProperty, value)
|
|
' End Set
|
|
'End Property
|
|
|
|
'<Action(Caption:="My UI Action", ConfirmationMessage:="Are you sure?", ImageName:="Attention", AutoCommit:=True)> _
|
|
'Public Sub ActionMethod()
|
|
' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619).
|
|
' Me.PersistentProperty = "Paid"
|
|
'End Sub
|
|
End Class
|