First create solution
This commit is contained in:
@@ -0,0 +1,109 @@
|
||||
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 eLeadSource
|
||||
ColdCall = 0
|
||||
ExistingCustomer = 1
|
||||
SelfGenerated = 2
|
||||
EmployeeReferral = 3
|
||||
Partner = 4
|
||||
PublicRelations = 5
|
||||
Seminar = 6
|
||||
TradeShow = 7
|
||||
Web = 8
|
||||
WordOfMouth = 9
|
||||
Advertisement = 10
|
||||
Other = 11
|
||||
End Enum
|
||||
Public Enum ePreferredContactMethod
|
||||
Any = 0
|
||||
Email = 1
|
||||
Phone = 2
|
||||
Fax = 3
|
||||
Mail = 4
|
||||
End Enum
|
||||
Public Enum eLeadStatus
|
||||
None = 0
|
||||
Lost = 1
|
||||
CannotContact = 2
|
||||
NoLongerInterested = 3
|
||||
Canceled = 4
|
||||
Qualified = 5
|
||||
End Enum
|
||||
|
||||
Public Enum eOpportunityStatus
|
||||
None = 0
|
||||
Won = 1
|
||||
Canceled = 2
|
||||
OutSold = 3
|
||||
End Enum
|
||||
Public Enum eOpportunityRating
|
||||
Hot = 0
|
||||
Warm = 1
|
||||
Cold = 2
|
||||
End Enum
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class CRMNote
|
||||
Inherits BaseObject
|
||||
Private _CRM_Leads As CRM_Leads
|
||||
Private _Title As String
|
||||
Private _Description As String
|
||||
Private _Attachment As FileData
|
||||
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("CRM_Leads-CRMNote", GetType(CRM_Leads))> _
|
||||
Property CRM_Leads As CRM_Leads
|
||||
Get
|
||||
Return _CRM_Leads
|
||||
End Get
|
||||
Set(ByVal value As CRM_Leads)
|
||||
SetPropertyValue("CRM_Leads", _CRM_Leads, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)> _
|
||||
Property Title As String
|
||||
Get
|
||||
Return _Title
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Title", _Title, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(4000)> _
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Attachment As FileData
|
||||
Get
|
||||
Return _Attachment
|
||||
End Get
|
||||
Set(ByVal value As FileData)
|
||||
SetPropertyValue("Attachment", _Attachment, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,57 @@
|
||||
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("CRM")> _
|
||||
<DefaultProperty("ShortName")> _
|
||||
Public Class CRM_FirstMeet 'Hol találkozott velünk elõször
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Private _Active As Boolean = True
|
||||
Private _DefaultforBusiness As Boolean = False
|
||||
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(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Active As Boolean
|
||||
Get
|
||||
Return _Active
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("Active", _Active, 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
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,436 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
'<EditorStateRuleAttribute("Disable LastName", "LastName", ViewType.DetailView, "IsNull(Contacts) = False", EditorState.Disabled)> _
|
||||
'<EditorStateRuleAttribute("Disable FirstName", "FirstName", ViewType.DetailView, "IsNull(Contacts) = False", EditorState.Disabled)> _
|
||||
'<EditorStateRuleAttribute("Disable Topic", "Topic", ViewType.DetailView, "IsNull(Contacts) = False", EditorState.Disabled)> _
|
||||
'<EditorStateRuleAttribute("Disable Customers when is not empty", "Customers", ViewType.DetailView, "IsNull(Customers) = False", EditorState.Disabled)> _
|
||||
'<EditorStateRuleAttribute("Disable Contacts when is not empty_1", "Contacts", ViewType.DetailView, "IsNull(Contacts) = False", EditorState.Disabled)> _
|
||||
'<EditorStateRuleAttribute("Disable LeadStatus when is Qualified = 5", "LeadStatus", ViewType.DetailView, "LeadStatus='Qualified'", EditorState.Disabled)> _
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("CRM")> _
|
||||
<DefaultProperty("Topic")> _
|
||||
<Appearance("Hide CRM_Leads_CRM_Opportunity_ListView Tab when LeadStatus<>eLeadStatus.Qualified", AppearanceItemType.ViewItem, "LeadStatus<>5", _
|
||||
TargetItems:="CRM_Opportunity", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Disable LastName", TargetItems:="LastName", Criteria:="IsNull(Contacts) = False", Enabled:=False, Context:="DetailView")> _
|
||||
<Appearance("Disable FirstName", TargetItems:="FirstName", Criteria:="IsNull(Contacts) = False", Enabled:=False, Context:="DetailView")> _
|
||||
<Appearance("Disable Topic", TargetItems:="Topic", Criteria:="IsNull(Contacts) = False", Enabled:=False, Context:="DetailView")> _
|
||||
<Appearance("Disable Customers when is not empty", TargetItems:="Customers", Criteria:="IsNull(Customers) = False", Enabled:=False, Context:="DetailView")> _
|
||||
<Appearance("Disable Contacts when is not empty_1", TargetItems:="Contacts", Criteria:="IsNull(Contacts) = False", Enabled:=False, Context:="DetailView")> _
|
||||
<Appearance("Disable LeadStatus when is Qualified = 5", TargetItems:="LeadStatus", Criteria:="LeadStatus='Qualified'", Enabled:=False, Context:="DetailView")> _
|
||||
Public Class CRM_Leads
|
||||
Inherits BaseObject
|
||||
'-- Személyes adatok
|
||||
Private _Topic As String ' Megjelenési név
|
||||
Private _FirstName As String ' Keresztnév
|
||||
Private _LastName As String ' Vezetéknév
|
||||
Private _CRM_FirstMeet As CRM_FirstMeet ' Hol találkozott elõször
|
||||
Private _CompanyName As String ' Cég neve
|
||||
Private _JobTitle As String ' Beosztás
|
||||
Private _OfficePhone As String ' Munkahelyi telefon
|
||||
Private _Fax As String ' Fax
|
||||
Private _MobilePhone As String ' Mobil szám
|
||||
Private _HomePhone As String ' Otthoni szám
|
||||
Private _OtherPhone As String ' Egyéb telefonszám
|
||||
Private _WEB As String 'WEB szájt
|
||||
Private _EMail As String ' Emil
|
||||
'-- Részletes adatok
|
||||
Private _AnnualRevenue As Double 'Forgalom
|
||||
Private _NumberOfEmployees As Long 'Dolgozók száma
|
||||
Private _LeadSource As eLeadSource ' Lead forrás
|
||||
'-- Elsõdleges cím adatok
|
||||
Private _Street1 As String 'Utca, házszám
|
||||
Private _Street2 As String 'Utca házszám
|
||||
Private _City As String 'Város
|
||||
Private _Country As Country 'Ország
|
||||
Private _State As String 'Megye, állam stb.
|
||||
Private _ZIP As String 'Postai irányítószám
|
||||
'-- Adminisztrációs adatok
|
||||
Private _PreferredContactMethod As ePreferredContactMethod ' Kapcsolattartás módja
|
||||
Private _LeadStatus As eLeadStatus ' Lead státusza
|
||||
Private _HRPerson As HRPerson 'A felelõs személy, aki ezzel a LEAD-dal foglalkozik
|
||||
|
||||
Private _ObjectCreated As Date 'Létrehozva
|
||||
Private _UserCreated As User 'Létrehozó
|
||||
|
||||
'-- Egyéb belsõ változók
|
||||
Private _InProcess As Boolean = False
|
||||
Private _Customers As Customers
|
||||
Private _Contacts As Contacts
|
||||
|
||||
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
|
||||
Sub CreateTopic()
|
||||
If _InProcess Then
|
||||
Else
|
||||
_InProcess = True
|
||||
If CompanyName <> "" Then
|
||||
Topic = CompanyName
|
||||
End If
|
||||
If FirstName <> "" And LastName <> "" Then
|
||||
Topic = LastName & " " & FirstName
|
||||
End If
|
||||
_InProcess = False
|
||||
End If
|
||||
End Sub
|
||||
Property Topic As String
|
||||
Get
|
||||
Return _Topic
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Topic", _Topic, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRM_Leads-FirstName", DefaultContexts.Save)> _
|
||||
Property FirstName As String
|
||||
Get
|
||||
Return _FirstName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("FirstName", _FirstName, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
CreateTopic()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRM_Leads-LastName", DefaultContexts.Save)> _
|
||||
Property LastName As String
|
||||
Get
|
||||
Return _LastName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("LastName", _LastName, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
CreateTopic()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", DefaultContexts.Save)>
|
||||
<ImmediatePostData(True), DataSourceCriteria("Active=True")>
|
||||
Property CRM_FirstMeet As CRM_FirstMeet
|
||||
Get
|
||||
Return _CRM_FirstMeet
|
||||
End Get
|
||||
Set(ByVal value As CRM_FirstMeet)
|
||||
SetPropertyValue("CRM_FirstMeet", _CRM_FirstMeet, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", "aQualifiedLeads_Contexts")>
|
||||
Property CompanyName As String
|
||||
Get
|
||||
Return _CompanyName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("CompanyName", _CompanyName, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
CreateTopic()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property JobTitle As String
|
||||
Get
|
||||
Return _JobTitle
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("JobTitle", _JobTitle, value)
|
||||
End Set
|
||||
End Property
|
||||
Property OfficePhone As String
|
||||
Get
|
||||
Return _OfficePhone
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("OfficePhone", _OfficePhone, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Fax As String
|
||||
Get
|
||||
Return _Fax
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Fax", _Fax, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRM_Leads-MobilePhone", "aQualifiedLeads_Contexts", TargetCriteria:="isnull(EMail)=True")>
|
||||
Property MobilePhone As String
|
||||
Get
|
||||
Return _MobilePhone
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("MobilePhone", _MobilePhone, value)
|
||||
End Set
|
||||
End Property
|
||||
Property HomePhone As String
|
||||
Get
|
||||
Return _HomePhone
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("HomePhone", _HomePhone, value)
|
||||
End Set
|
||||
End Property
|
||||
Property OtherPhone As String
|
||||
Get
|
||||
Return _OtherPhone
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("OtherPhone", _OtherPhone, value)
|
||||
End Set
|
||||
End Property
|
||||
Property WEB As String
|
||||
Get
|
||||
Return _WEB
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("WEB", _WEB, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRM_Leads-EMail", "aQualifiedLeads_Contexts", TargetCriteria:="isnull(MobilePhone)=True")>
|
||||
Property EMail As String
|
||||
Get
|
||||
Return _EMail
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("EMail", _EMail, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AnnualRevenue As Double
|
||||
Get
|
||||
Return _AnnualRevenue
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AnnualRevenue", _AnnualRevenue, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NumberOfEmployees As Long
|
||||
Get
|
||||
Return _NumberOfEmployees
|
||||
End Get
|
||||
Set(ByVal value As Long)
|
||||
SetPropertyValue("NumberOfEmployees", _NumberOfEmployees, value)
|
||||
End Set
|
||||
End Property
|
||||
Property LeadSource As eLeadSource
|
||||
Get
|
||||
Return _LeadSource
|
||||
End Get
|
||||
Set(ByVal value As eLeadSource)
|
||||
SetPropertyValue("LeadSource", _LeadSource, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", "aQualifiedLeads_Contexts")>
|
||||
Property Street1 As String
|
||||
Get
|
||||
Return _Street1
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Street1", _Street1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Street2 As String
|
||||
Get
|
||||
Return _Street2
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Street2", _Street2, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", "aQualifiedLeads_Contexts")>
|
||||
Property City As String
|
||||
Get
|
||||
Return _City
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("City", _City, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", "aQualifiedLeads_Contexts")>
|
||||
Property Country As Country
|
||||
Get
|
||||
Return _Country
|
||||
End Get
|
||||
Set(ByVal value As Country)
|
||||
SetPropertyValue("Country", _Country, value)
|
||||
End Set
|
||||
End Property
|
||||
Property State As String
|
||||
Get
|
||||
Return _State
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("State", _State, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", "aQualifiedLeads_Contexts")>
|
||||
Property ZIP As String
|
||||
Get
|
||||
Return _ZIP
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ZIP", _ZIP, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
Dim _ZIPHU As ZIPHU = Session.FindObject(Of ZIPHU)(CriteriaOperator.Parse("Zip=?", Me.ZIP))
|
||||
If _ZIPHU IsNot Nothing Then
|
||||
Me.Country = TryCast(Session.FindObject(Of CountryExtend)(CriteriaOperator.Parse("ShortName=?", "Magyarország")), Country)
|
||||
Me.City = _ZIPHU.City
|
||||
Me.State = _ZIPHU.County
|
||||
Else
|
||||
Me.Country = Nothing
|
||||
Me.City = "Nem magyarországi irányítószám"
|
||||
Me.State = "Nem magyarországi irányítószám"
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property PreferredContactMethod As ePreferredContactMethod
|
||||
Get
|
||||
Return _PreferredContactMethod
|
||||
End Get
|
||||
Set(ByVal value As ePreferredContactMethod)
|
||||
SetPropertyValue("PreferredContactMethod", _PreferredContactMethod, value)
|
||||
End Set
|
||||
End Property
|
||||
Property LeadStatus As eLeadStatus
|
||||
Get
|
||||
Return _LeadStatus
|
||||
End Get
|
||||
Set(ByVal value As eLeadStatus)
|
||||
SetPropertyValue("LeadStatus", _LeadStatus, value)
|
||||
End Set
|
||||
End Property
|
||||
Property HRPerson As HRPerson
|
||||
Get
|
||||
Return _HRPerson
|
||||
End Get
|
||||
Set(ByVal value As HRPerson)
|
||||
SetPropertyValue("HRPerson", _HRPerson, 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
|
||||
<ImmediatePostData()>
|
||||
Property Customers As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Customers IsNot Nothing Then
|
||||
CompanyName = Customers.FullName
|
||||
WEB = Customers.WebSite
|
||||
If Customers.Address1 IsNot Nothing Then
|
||||
Street1 = Customers.Address1.Street
|
||||
' Street2 = Customers.Address2.Street
|
||||
City = Customers.Address1.City
|
||||
Country = Customers.Address1.Country
|
||||
State = Customers.Address1.StateProvince
|
||||
ZIP = Customers.Address1.ZipPostal
|
||||
'Contacts = Nothing
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<ImmediatePostData(True), DataSourceCriteria("Customers='@This.Customers'")>
|
||||
Property Contacts As Contacts
|
||||
Get
|
||||
Return _Contacts
|
||||
End Get
|
||||
Set(value As Contacts)
|
||||
SetPropertyValue("Contacts", _Contacts, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Contacts IsNot Nothing Then
|
||||
LastName = Contacts.LastName
|
||||
FirstName = Contacts.FirstName
|
||||
Dim _PhoneNumber As PhoneNumber
|
||||
For Each _PhoneNumber In Contacts.PhoneNumbers
|
||||
If _PhoneNumber.PhoneType = "OfficePhone" Then
|
||||
OfficePhone = _PhoneNumber.Number
|
||||
End If
|
||||
If _PhoneNumber.PhoneType = "Fax" Then
|
||||
Fax = _PhoneNumber.Number
|
||||
End If
|
||||
If _PhoneNumber.PhoneType = "MobilePhone" Then
|
||||
MobilePhone = _PhoneNumber.Number
|
||||
End If
|
||||
If _PhoneNumber.PhoneType = "HomePhone" Then
|
||||
HomePhone = _PhoneNumber.Number
|
||||
End If
|
||||
If _PhoneNumber.PhoneType = "OtherPhone" Then
|
||||
OtherPhone = _PhoneNumber.Number
|
||||
End If
|
||||
Next
|
||||
EMail = Contacts.Email
|
||||
If Contacts.Customers IsNot Nothing And Customers Is Nothing Then
|
||||
Customers = Contacts.Customers
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
'-- Activities
|
||||
<VisibleInListView(False)> _
|
||||
<Association("CRM_Leads-CRM_Leads_Activity", GetType(CRM_Leads_Activity))> _
|
||||
ReadOnly Property CRM_Leads_Activity As XPCollection(Of CRM_Leads_Activity)
|
||||
Get
|
||||
Return GetCollection(Of CRM_Leads_Activity)("CRM_Leads_Activity")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property CRM_Opportunity As XPCollection(Of CRM_Opportunities)
|
||||
Get
|
||||
Return New XPCollection(Of CRM_Opportunities)(Session, CriteriaOperator.Parse("CRM_Leads.Oid=?", Me.Oid))
|
||||
End Get
|
||||
End Property
|
||||
'-- Megjegyzések
|
||||
<VisibleInListView(False)> _
|
||||
<Association("CRM_Leads-CRMNote", GetType(CRMNote))> _
|
||||
ReadOnly Property CRMNote As XPCollection(Of CRMNote)
|
||||
Get
|
||||
Return GetCollection(Of CRMNote)("CRMNote")
|
||||
End Get
|
||||
End Property
|
||||
'------------ReadOnly-----------------
|
||||
<Association("CRM_Leads-CRM_LeadsDocumentation", GetType(CRM_LeadsDocumentation))> _
|
||||
ReadOnly Property CRM_LeadsDocumentation As XPCollection(Of CRM_LeadsDocumentation)
|
||||
Get
|
||||
Return GetCollection(Of CRM_LeadsDocumentation)("CRM_LeadsDocumentation")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,146 @@
|
||||
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 CRM_LeadsDocumentation
|
||||
Inherits FileAttachmentBase
|
||||
|
||||
Private _CRM_Leads As CRM_Leads
|
||||
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("CRM_Leads-CRM_LeadsDocumentation", GetType(CRM_Leads))> _
|
||||
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
|
||||
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"
|
||||
Return ImageLoader.Instance.GetImageInfo("XLS").Image
|
||||
Case ".doc", ".docx"
|
||||
Return ImageLoader.Instance.GetImageInfo("DOC").Image
|
||||
Case ".pdf"
|
||||
Return ImageLoader.Instance.GetImageInfo("PDF").Image
|
||||
Case ".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
|
||||
+226
@@ -0,0 +1,226 @@
|
||||
Partial Class CRM_LeadsVC
|
||||
|
||||
<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.aQualifiedLeads = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aDisQualifiedLeads = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCreate_CRM_Leads_Activity = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCreate_CRM_Leads_Activity_Task = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCRMTaskCompleted = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCRMCreateTaskwithActivity = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aEdit_CRM_Leads_Activity = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aOpenCRM_Opportunities = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCRM_LeadsDocumentation_ChangeGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCRM_LeadsDocumentation_Remove = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aQualifiedLeads
|
||||
'
|
||||
Me.aQualifiedLeads.AcceptButtonCaption = Nothing
|
||||
Me.aQualifiedLeads.CancelButtonCaption = Nothing
|
||||
Me.aQualifiedLeads.Caption = "Qualify lead"
|
||||
Me.aQualifiedLeads.Category = "RecordEdit"
|
||||
Me.aQualifiedLeads.ConfirmationMessage = Nothing
|
||||
Me.aQualifiedLeads.Id = "aQualifiedLeads"
|
||||
Me.aQualifiedLeads.ImageName = "bookmark"
|
||||
Me.aQualifiedLeads.Shortcut = Nothing
|
||||
Me.aQualifiedLeads.Tag = Nothing
|
||||
Me.aQualifiedLeads.TargetObjectsCriteria = Nothing
|
||||
Me.aQualifiedLeads.TargetViewId = "CRM_Leads_DetailView"
|
||||
Me.aQualifiedLeads.ToolTip = Nothing
|
||||
Me.aQualifiedLeads.TypeOfView = Nothing
|
||||
'
|
||||
'aDisQualifiedLeads
|
||||
'
|
||||
Me.aDisQualifiedLeads.AcceptButtonCaption = Nothing
|
||||
Me.aDisQualifiedLeads.CancelButtonCaption = Nothing
|
||||
Me.aDisQualifiedLeads.Caption = "aDisQualifiedLeads"
|
||||
Me.aDisQualifiedLeads.Category = "RecordEdit"
|
||||
Me.aDisQualifiedLeads.ConfirmationMessage = Nothing
|
||||
Me.aDisQualifiedLeads.Id = "aDisQualifiedLeads"
|
||||
Me.aDisQualifiedLeads.ImageName = "bookmark"
|
||||
Me.aDisQualifiedLeads.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aDisQualifiedLeads.Shortcut = Nothing
|
||||
Me.aDisQualifiedLeads.Tag = Nothing
|
||||
Me.aDisQualifiedLeads.TargetObjectsCriteria = Nothing
|
||||
Me.aDisQualifiedLeads.TargetViewId = "CRM_Leads_DetailView"
|
||||
Me.aDisQualifiedLeads.ToolTip = Nothing
|
||||
Me.aDisQualifiedLeads.TypeOfView = Nothing
|
||||
'
|
||||
'aCreate_CRM_Leads_Activity
|
||||
'
|
||||
Me.aCreate_CRM_Leads_Activity.Caption = "Create activity"
|
||||
Me.aCreate_CRM_Leads_Activity.Category = "ObjectsCreation"
|
||||
Me.aCreate_CRM_Leads_Activity.ConfirmationMessage = Nothing
|
||||
Me.aCreate_CRM_Leads_Activity.Id = "aCreate_CRM_Leads_Activity"
|
||||
Me.aCreate_CRM_Leads_Activity.ImageName = "Action_New"
|
||||
Me.aCreate_CRM_Leads_Activity.Shortcut = Nothing
|
||||
Me.aCreate_CRM_Leads_Activity.Tag = Nothing
|
||||
Me.aCreate_CRM_Leads_Activity.TargetObjectsCriteria = Nothing
|
||||
Me.aCreate_CRM_Leads_Activity.TargetViewId = "CRM_Leads_CRM_Leads_Activity_ListView"
|
||||
Me.aCreate_CRM_Leads_Activity.ToolTip = Nothing
|
||||
Me.aCreate_CRM_Leads_Activity.TypeOfView = Nothing
|
||||
'
|
||||
'aCreate_CRM_Leads_Activity_Task
|
||||
'
|
||||
Me.aCreate_CRM_Leads_Activity_Task.Caption = "Create Task"
|
||||
Me.aCreate_CRM_Leads_Activity_Task.Category = "ObjectsCreation"
|
||||
Me.aCreate_CRM_Leads_Activity_Task.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aCreate_CRM_Leads_Activity_Task.Id = "aCreate_CRM_Leads_Activity_Task"
|
||||
Me.aCreate_CRM_Leads_Activity_Task.ImageName = "Action_New"
|
||||
Me.aCreate_CRM_Leads_Activity_Task.Shortcut = Nothing
|
||||
Me.aCreate_CRM_Leads_Activity_Task.Tag = Nothing
|
||||
Me.aCreate_CRM_Leads_Activity_Task.TargetObjectsCriteria = Nothing
|
||||
Me.aCreate_CRM_Leads_Activity_Task.TargetViewId = "CRM_Leads_Activity_CRM_Leads_Activity_Task_ListView"
|
||||
Me.aCreate_CRM_Leads_Activity_Task.ToolTip = Nothing
|
||||
Me.aCreate_CRM_Leads_Activity_Task.TypeOfView = Nothing
|
||||
'
|
||||
'aCRMTaskCompleted
|
||||
'
|
||||
Me.aCRMTaskCompleted.AcceptButtonCaption = Nothing
|
||||
Me.aCRMTaskCompleted.CancelButtonCaption = Nothing
|
||||
Me.aCRMTaskCompleted.Caption = "CRM Task Completed"
|
||||
Me.aCRMTaskCompleted.Category = "RecordEdit"
|
||||
Me.aCRMTaskCompleted.ConfirmationMessage = Nothing
|
||||
Me.aCRMTaskCompleted.Id = "aCRMTaskCompleted"
|
||||
Me.aCRMTaskCompleted.ImageName = Nothing
|
||||
Me.aCRMTaskCompleted.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aCRMTaskCompleted.Shortcut = Nothing
|
||||
Me.aCRMTaskCompleted.Tag = Nothing
|
||||
Me.aCRMTaskCompleted.TargetObjectsCriteria = "Status<>4"
|
||||
Me.aCRMTaskCompleted.TargetViewId = Nothing
|
||||
Me.aCRMTaskCompleted.ToolTip = Nothing
|
||||
Me.aCRMTaskCompleted.TypeOfView = Nothing
|
||||
'
|
||||
'aCRMCreateTaskwithActivity
|
||||
'
|
||||
Me.aCRMCreateTaskwithActivity.AcceptButtonCaption = Nothing
|
||||
Me.aCRMCreateTaskwithActivity.CancelButtonCaption = Nothing
|
||||
Me.aCRMCreateTaskwithActivity.Caption = "Create task with activity"
|
||||
Me.aCRMCreateTaskwithActivity.Category = "ObjectsCreation"
|
||||
Me.aCRMCreateTaskwithActivity.ConfirmationMessage = Nothing
|
||||
Me.aCRMCreateTaskwithActivity.Id = "aCRMCreateTaskwithActivity"
|
||||
Me.aCRMCreateTaskwithActivity.ImageName = Nothing
|
||||
Me.aCRMCreateTaskwithActivity.Shortcut = Nothing
|
||||
Me.aCRMCreateTaskwithActivity.Tag = Nothing
|
||||
Me.aCRMCreateTaskwithActivity.TargetObjectsCriteria = Nothing
|
||||
Me.aCRMCreateTaskwithActivity.TargetViewId = Nothing
|
||||
Me.aCRMCreateTaskwithActivity.ToolTip = Nothing
|
||||
Me.aCRMCreateTaskwithActivity.TypeOfView = Nothing
|
||||
'
|
||||
'aEdit_CRM_Leads_Activity
|
||||
'
|
||||
Me.aEdit_CRM_Leads_Activity.Caption = "Edit CRM Activity"
|
||||
Me.aEdit_CRM_Leads_Activity.Category = "RecordEdit"
|
||||
Me.aEdit_CRM_Leads_Activity.ConfirmationMessage = Nothing
|
||||
Me.aEdit_CRM_Leads_Activity.Id = "aEdit_CRM_Leads_Activity"
|
||||
Me.aEdit_CRM_Leads_Activity.ImageName = Nothing
|
||||
Me.aEdit_CRM_Leads_Activity.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aEdit_CRM_Leads_Activity.Shortcut = Nothing
|
||||
Me.aEdit_CRM_Leads_Activity.Tag = Nothing
|
||||
Me.aEdit_CRM_Leads_Activity.TargetObjectsCriteria = Nothing
|
||||
Me.aEdit_CRM_Leads_Activity.TargetViewId = ""
|
||||
Me.aEdit_CRM_Leads_Activity.ToolTip = Nothing
|
||||
Me.aEdit_CRM_Leads_Activity.TypeOfView = Nothing
|
||||
'
|
||||
'aOpenCRM_Opportunities
|
||||
'
|
||||
Me.aOpenCRM_Opportunities.Caption = "Open CRM Opportunities or Lead"
|
||||
Me.aOpenCRM_Opportunities.Category = "RecordEdit"
|
||||
Me.aOpenCRM_Opportunities.ConfirmationMessage = Nothing
|
||||
Me.aOpenCRM_Opportunities.Id = "aOpenCRM_Opportunities"
|
||||
Me.aOpenCRM_Opportunities.ImageName = Nothing
|
||||
Me.aOpenCRM_Opportunities.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aOpenCRM_Opportunities.Shortcut = Nothing
|
||||
Me.aOpenCRM_Opportunities.Tag = Nothing
|
||||
Me.aOpenCRM_Opportunities.TargetObjectsCriteria = Nothing
|
||||
Me.aOpenCRM_Opportunities.TargetViewId = Nothing
|
||||
Me.aOpenCRM_Opportunities.ToolTip = Nothing
|
||||
Me.aOpenCRM_Opportunities.TypeOfView = Nothing
|
||||
'
|
||||
'aCRM_LeadsDocumentation_ChangeGroup
|
||||
'
|
||||
Me.aCRM_LeadsDocumentation_ChangeGroup.AcceptButtonCaption = Nothing
|
||||
Me.aCRM_LeadsDocumentation_ChangeGroup.CancelButtonCaption = Nothing
|
||||
Me.aCRM_LeadsDocumentation_ChangeGroup.Caption = "aCRM_LeadsDocumentation_ChangeGroup"
|
||||
Me.aCRM_LeadsDocumentation_ChangeGroup.ConfirmationMessage = Nothing
|
||||
Me.aCRM_LeadsDocumentation_ChangeGroup.Id = "aCRM_LeadsDocumentation_ChangeGroup"
|
||||
Me.aCRM_LeadsDocumentation_ChangeGroup.ImageName = Nothing
|
||||
Me.aCRM_LeadsDocumentation_ChangeGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aCRM_LeadsDocumentation_ChangeGroup.Shortcut = Nothing
|
||||
Me.aCRM_LeadsDocumentation_ChangeGroup.Tag = Nothing
|
||||
Me.aCRM_LeadsDocumentation_ChangeGroup.TargetObjectsCriteria = Nothing
|
||||
Me.aCRM_LeadsDocumentation_ChangeGroup.TargetObjectType = GetType(Nuvolar.[Module].CRM_LeadsDocumentation)
|
||||
Me.aCRM_LeadsDocumentation_ChangeGroup.TargetViewId = Nothing
|
||||
Me.aCRM_LeadsDocumentation_ChangeGroup.ToolTip = Nothing
|
||||
Me.aCRM_LeadsDocumentation_ChangeGroup.TypeOfView = Nothing
|
||||
'
|
||||
'aCRM_LeadsDocumentation_Remove
|
||||
'
|
||||
Me.aCRM_LeadsDocumentation_Remove.Caption = "aCRM_LeadsDocumentation_Remove"
|
||||
Me.aCRM_LeadsDocumentation_Remove.Category = "Edit"
|
||||
Me.aCRM_LeadsDocumentation_Remove.ConfirmationMessage = "Biztosan törlöd a kijelölt fájlokat?"
|
||||
Me.aCRM_LeadsDocumentation_Remove.Id = "aCRM_LeadsDocumentation_Remove"
|
||||
Me.aCRM_LeadsDocumentation_Remove.ImageName = "Action_Delete"
|
||||
Me.aCRM_LeadsDocumentation_Remove.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aCRM_LeadsDocumentation_Remove.Shortcut = Nothing
|
||||
Me.aCRM_LeadsDocumentation_Remove.Tag = Nothing
|
||||
Me.aCRM_LeadsDocumentation_Remove.TargetObjectsCriteria = Nothing
|
||||
Me.aCRM_LeadsDocumentation_Remove.TargetObjectType = GetType(Nuvolar.[Module].CRM_LeadsDocumentation)
|
||||
Me.aCRM_LeadsDocumentation_Remove.TargetViewId = Nothing
|
||||
Me.aCRM_LeadsDocumentation_Remove.ToolTip = Nothing
|
||||
Me.aCRM_LeadsDocumentation_Remove.TypeOfView = Nothing
|
||||
'
|
||||
'aCRM_Leads_Activity_Task_OpenBusinessDirectory
|
||||
'
|
||||
Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.Caption = "aCRM_Leads_Activity_Task_OpenBusinessDirectory"
|
||||
Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.ConfirmationMessage = Nothing
|
||||
Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.Id = "aCRM_Leads_Activity_Task_OpenBusinessDirectory"
|
||||
Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.ImageName = Nothing
|
||||
Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.Shortcut = Nothing
|
||||
Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.Tag = Nothing
|
||||
Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.TargetObjectsCriteria = Nothing
|
||||
Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.TargetObjectType = GetType(Nuvolar.[Module].CRM_Leads_Activity_Task)
|
||||
Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.TargetViewId = "CRM_Leads_Activity_Task_ListView"
|
||||
Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.ToolTip = Nothing
|
||||
Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aQualifiedLeads As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aDisQualifiedLeads As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCreate_CRM_Leads_Activity As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreate_CRM_Leads_Activity_Task As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCRMTaskCompleted As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCRMCreateTaskwithActivity As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aEdit_CRM_Leads_Activity As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aOpenCRM_Opportunities As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCRM_LeadsDocumentation_ChangeGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCRM_LeadsDocumentation_Remove As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCRM_Leads_Activity_Task_OpenBusinessDirectory As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="aQualifiedLeads.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aDisQualifiedLeads.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>596, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aCreate_CRM_Leads_Activity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>303, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aCreate_CRM_Leads_Activity_Task.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>509, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aCRMTaskCompleted.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>744, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aCRMCreateTaskwithActivity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aEdit_CRM_Leads_Activity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>223, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aOpenCRM_Opportunities.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_LeadsDocumentation_ChangeGroup.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_LeadsDocumentation_Remove.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>342, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_Leads_Activity_Task_OpenBusinessDirectory.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>371, 339</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,536 @@
|
||||
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.Xpo
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
|
||||
Public Class CRM_LeadsVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
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 CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aEdit_CRM_Leads_Activity.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id = "CRM_Leads_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_DetailView" Then
|
||||
'--------Ha egy saját cég van, akkor az automatikusan beáll (mint a gerely)--------------->>>
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _CustomersFrom As XPCollection = _ocur.CreateCollection(GetType(CustomersFrom), CriteriaOperator.Parse("1=1"))
|
||||
|
||||
If _CustomersFrom.Count = 1 Then
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(View.SelectedObjects(0), CRM_Opportunities)
|
||||
_CRM_Opportunities.CustomersFrom = _CustomersFrom(0)
|
||||
End If
|
||||
'-----------------------------------------------------------------------------------------<<<
|
||||
End If
|
||||
If View.Id = "CRM_Leads_Activity_Task_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRM_Leads_Activity_ListView" Then
|
||||
Frame.GetController(Of CRM_LeadsVC)().aEdit_CRM_Leads_Activity.Active.SetItemValue("", True)
|
||||
'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRM_Opportunity_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
If View.Id = "CRM_Leads_Activity_CRM_Leads_Activity_Task_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRMNote_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "CRM_Leads_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRM_Leads_Activity_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRM_Opportunity_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_Activity_CRM_Leads_Activity_Task_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_Activity_Task_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRMNote_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
Private Sub aQualifiedLeads_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aQualifiedLeads.CustomizePopupWindowParams
|
||||
Dim _onew = Application.CreateObjectSpace
|
||||
Dim _CRM_Leads_Qualification As CRM_Leads_Qualification
|
||||
_CRM_Leads_Qualification = _onew.CreateObject(Of CRM_Leads_Qualification)()
|
||||
e.View = Application.CreateDetailView(_onew, "CRM_Leads_Qualification_DetailView", False, _CRM_Leads_Qualification)
|
||||
End Sub
|
||||
Private Sub aQualifiedLeads_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aQualifiedLeads.Execute
|
||||
Dim _CRM_Leads_Qualification As CRM_Leads_Qualification = TryCast(e.PopupWindow.View.SelectedObjects(0), CRM_Leads_Qualification)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _CRM_Leads As CRM_Leads = TryCast(View.SelectedObjects(0), CRM_Leads)
|
||||
Dim _CustomersGLParameters As CustomersGLParameters = _ocur.FindObject(Of CustomersGLParameters)(CriteriaOperator.Parse("DefaultforBusiness=True"))
|
||||
Dim _CRM_Opportunities As CRM_Opportunities
|
||||
Dim _Customers As Customers = _ocur.FindObject(Of Customers)(CriteriaOperator.Parse("Address1.ZipPostal=? AND Address1.City=? AND Address1.Street=?", _CRM_Leads.ZIP, _CRM_Leads.City, _CRM_Leads.Street1))
|
||||
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("Email=?", _CRM_Leads.EMail))
|
||||
Dim _Address1 As Address
|
||||
Dim _CRM_Opportunities_Probability As CRM_Opportunities_Probability = _ocur.FindObject(Of CRM_Opportunities_Probability)(CriteriaOperator.Parse("Probability<=30 and Probability>0"))
|
||||
|
||||
If _CustomersGLParameters Is Nothing Then
|
||||
_ocur.Rollback()
|
||||
Throw New Exception("*Nincs beállítva főkönyvi kategória !")
|
||||
Exit Sub
|
||||
End If
|
||||
If _CRM_Opportunities_Probability Is Nothing Then
|
||||
_ocur.Rollback()
|
||||
Throw New Exception("*Nincs beállítva CRM valószínűség törzs !")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
If _CRM_Leads_Qualification.Customers Then
|
||||
If _Customers Is Nothing Then
|
||||
_Customers = _ocur.CreateObject(Of Customers)()
|
||||
_Address1 = _ocur.CreateObject(Of Address)()
|
||||
|
||||
_Address1.ZipPostal = _CRM_Leads.ZIP
|
||||
_Address1.Country = _CRM_Leads.Country
|
||||
_Address1.City = _CRM_Leads.City
|
||||
_Address1.Street = _CRM_Leads.Street1
|
||||
|
||||
_Customers.Address1 = _Address1
|
||||
Else
|
||||
_Customers.Address1.ZipPostal = _CRM_Leads.ZIP
|
||||
_Customers.Address1.Country = _CRM_Leads.Country
|
||||
_Customers.Address1.City = _CRM_Leads.City
|
||||
_Customers.Address1.Street = _CRM_Leads.Street1
|
||||
End If
|
||||
|
||||
_Customers.Name = _CRM_Leads.CompanyName
|
||||
_Customers.FullName = _CRM_Leads.CompanyName
|
||||
_Customers.CustomersGLParameters = _CustomersGLParameters
|
||||
_Customers.CRM_Leads = _CRM_Leads
|
||||
_CRM_Leads.LeadStatus = eLeadStatus.Qualified
|
||||
If _CRM_Leads_Qualification.CreateOpportunities Then
|
||||
_CRM_Opportunities = _ocur.CreateObject(Of CRM_Opportunities)()
|
||||
_CRM_Opportunities.Customers = _Customers
|
||||
_CRM_Opportunities.CRM_Leads = _CRM_Leads
|
||||
_CRM_Opportunities.CRM_Opportunities_Probability = _CRM_Opportunities_Probability
|
||||
_CRM_Opportunities.Probability = _CRM_Opportunities_Probability.Probability
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
If _CRM_Leads_Qualification.Contact Then
|
||||
If _Contacts Is Nothing Then
|
||||
_Contacts = _ocur.CreateObject(Of Contacts)()
|
||||
End If
|
||||
_Contacts.FirstName = _CRM_Leads.FirstName
|
||||
_Contacts.LastName = _CRM_Leads.LastName
|
||||
_Contacts.Email = _CRM_Leads.EMail
|
||||
|
||||
If _CRM_Leads.OfficePhone <> "" Then 'Telefonszámok
|
||||
Dim _OfficePhone As DevExpress.Persistent.BaseImpl.PhoneNumber = _ocur.CreateObject(Of DevExpress.Persistent.BaseImpl.PhoneNumber)()
|
||||
_OfficePhone.PhoneType = "OfficePhone"
|
||||
_OfficePhone.Number = _CRM_Leads.OfficePhone
|
||||
_Contacts.PhoneNumbers.Add(_OfficePhone)
|
||||
End If
|
||||
|
||||
If _CRM_Leads.Fax <> "" Then
|
||||
Dim _Fax As DevExpress.Persistent.BaseImpl.PhoneNumber = _ocur.CreateObject(Of DevExpress.Persistent.BaseImpl.PhoneNumber)()
|
||||
_Fax.PhoneType = "Fax"
|
||||
_Fax.Number = _CRM_Leads.Fax
|
||||
_Contacts.PhoneNumbers.Add(_Fax)
|
||||
End If
|
||||
If _CRM_Leads.MobilePhone <> "" Then
|
||||
Dim _MobilePhone As DevExpress.Persistent.BaseImpl.PhoneNumber = _ocur.CreateObject(Of DevExpress.Persistent.BaseImpl.PhoneNumber)()
|
||||
_MobilePhone.PhoneType = "MobilePhone"
|
||||
_MobilePhone.Number = _CRM_Leads.MobilePhone
|
||||
_Contacts.PhoneNumbers.Add(_MobilePhone)
|
||||
End If
|
||||
If _CRM_Leads.HomePhone <> "" Then
|
||||
Dim _HomePhone As DevExpress.Persistent.BaseImpl.PhoneNumber = _ocur.CreateObject(Of DevExpress.Persistent.BaseImpl.PhoneNumber)()
|
||||
_HomePhone.PhoneType = "HomePhone"
|
||||
_HomePhone.Number = _CRM_Leads.HomePhone
|
||||
_Contacts.PhoneNumbers.Add(_HomePhone)
|
||||
End If
|
||||
If _CRM_Leads.OtherPhone <> "" Then
|
||||
Dim _OtherPhone As DevExpress.Persistent.BaseImpl.PhoneNumber = _ocur.CreateObject(Of DevExpress.Persistent.BaseImpl.PhoneNumber)()
|
||||
_OtherPhone.PhoneType = "OtherPhone"
|
||||
_OtherPhone.Number = _CRM_Leads.OtherPhone
|
||||
_Contacts.PhoneNumbers.Add(_OtherPhone)
|
||||
End If
|
||||
_Contacts.CRM_Leads = _CRM_Leads
|
||||
_CRM_Leads.LeadStatus = eLeadStatus.Qualified
|
||||
|
||||
If _CRM_Opportunities IsNot Nothing Then
|
||||
_CRM_Opportunities.Contacts = _Contacts
|
||||
End If
|
||||
End If
|
||||
_ocur.CommitChanges()
|
||||
If _CRM_Leads_Qualification.CreateOpportunities Then
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Opportunities_DetailView", True, _onew.GetObject(_CRM_Opportunities))
|
||||
'e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow
|
||||
End If
|
||||
View.Close()
|
||||
End Sub
|
||||
'-- Subs --
|
||||
Private Sub aDisQualifiedLeads_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDisQualifiedLeads.CustomizePopupWindowParams
|
||||
Try
|
||||
Dim _CRM_Leads As CRM_Leads = TryCast(View.SelectedObjects(0), CRM_Leads)
|
||||
If _CRM_Leads.CRM_Opportunity.Count = 0 Then Throw New UserFriendlyException("Nem lehet visszaminõsíteni a regisztrációt, mert létezik CRM ügye!")
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CRM_Leads_DisQualification As CRM_Leads_DisQualification
|
||||
_CRM_Leads_DisQualification = _onew.CreateObject(Of CRM_Leads_DisQualification)()
|
||||
e.View = Application.CreateDetailView(_onew, "CRM_Leads_DisQualification_DetailView", False, _CRM_Leads_DisQualification)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aDisQualifiedLeads_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDisQualifiedLeads.Execute
|
||||
Dim _CRM_Leads_DisQualification As CRM_Leads_DisQualification = TryCast(e.PopupWindow.View.SelectedObjects(0), CRM_Leads_DisQualification)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _CRM_Leads As CRM_Leads = TryCast(View.SelectedObjects(0), CRM_Leads)
|
||||
_CRM_Leads.LeadStatus = _CRM_Leads_DisQualification.DisQualificationLeadStatus
|
||||
End Sub
|
||||
Private Sub aCreate_CRM_Leads_Activity_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreate_CRM_Leads_Activity.Execute
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities)
|
||||
Dim _CRM_Leads As CRM_Leads = TryCast(_PropertyCollectionSource.MasterObject, CRM_Leads)
|
||||
|
||||
Dim _CRM_Leads_Activity As CRM_Leads_Activity = _onew.CreateObject(Of CRM_Leads_Activity)()
|
||||
|
||||
If _CRM_Leads IsNot Nothing Then
|
||||
_CRM_Leads_Activity.CRM_Leads = _onew.GetObject(_CRM_Leads)
|
||||
_CRM_Leads_Activity.HRPerson = _onew.GetObject(_CRM_Leads.HRPerson)
|
||||
|
||||
ElseIf _CRM_Opportunities IsNot Nothing Then
|
||||
_CRM_Leads_Activity.CRM_Leads = _onew.GetObject(_CRM_Opportunities.CRM_Leads)
|
||||
_CRM_Leads_Activity.HRPerson = _onew.GetObject(_CRM_Opportunities.HRPerson)
|
||||
_CRM_Leads_Activity.CRM_Opportunities = _onew.GetObject(_CRM_Opportunities)
|
||||
End If
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_Activity_DetailView", True, _CRM_Leads_Activity)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aCreate_CRM_Leads_Activity_Task_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreate_CRM_Leads_Activity_Task.Execute
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
Dim _CRM_Leads_Activity As CRM_Leads_Activity = TryCast(_PropertyCollectionSource.MasterObject, CRM_Leads_Activity)
|
||||
|
||||
If _CRM_Leads_Activity IsNot Nothing Then
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task = _onew.CreateObject(Of CRM_Leads_Activity_Task)()
|
||||
|
||||
_CRM_Leads_Activity_Task.CRM_Leads_Activity = _onew.GetObject(_CRM_Leads_Activity)
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_Activity_Task_DetailView", True, _CRM_Leads_Activity_Task)
|
||||
Else
|
||||
Throw New Exception("*Nincs kiválasztott aktivitás !")
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aCRMTaskCompleted_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCRMTaskCompleted.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
If View.SelectedObjects.Count > 0 Then
|
||||
Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task = TryCast(View.SelectedObjects(0), CRM_Leads_Activity_Task)
|
||||
|
||||
If _CRM_Leads_Activity_Task IsNot Nothing Then
|
||||
If _CRM_Leads_Activity_Task.Status <> General.TaskStatus.Completed Then
|
||||
Dim _CRM_Leads_Actvity_Completed_Popup As CRM_Leads_Actvity_Completed_Popup = _onew.CreateObject(Of CRM_Leads_Actvity_Completed_Popup)()
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "CRM_Leads_Actvity_Completed_Popup_DetailView", False, _CRM_Leads_Actvity_Completed_Popup)
|
||||
Else
|
||||
_onew.Rollback()
|
||||
Throw New Exception("*A feladat már befejezett státuszban van!")
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
_onew.Rollback()
|
||||
Throw New Exception("*Nincs kiválasztott sor!")
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aCRMTaskCompleted_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCRMTaskCompleted.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _CRM_Leads_Actvity_Completed_Popup As CRM_Leads_Actvity_Completed_Popup = TryCast(e.PopupWindow.View.SelectedObjects(0), CRM_Leads_Actvity_Completed_Popup)
|
||||
Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task = TryCast(View.SelectedObjects(0), CRM_Leads_Activity_Task)
|
||||
Dim _CRM_Leads_Activity As CRM_Leads_Activity = _ocur.CreateObject(Of CRM_Leads_Activity)()
|
||||
|
||||
If _CRM_Leads_Activity_Task.CRM_Leads_Activity IsNot Nothing Then
|
||||
_CRM_Leads_Activity.CRM_Leads = _CRM_Leads_Activity_Task.CRM_Leads_Activity.CRM_Leads
|
||||
_CRM_Leads_Activity.CRM_Opportunities = _CRM_Leads_Activity_Task.CRM_Leads_Activity.CRM_Opportunities
|
||||
_CRM_Leads_Activity.Description = _CRM_Leads_Actvity_Completed_Popup.Description & vbNewLine & _CRM_Leads_Activity_Task.CRM_Leads_Activity.Description
|
||||
_CRM_Leads_Activity.EventType = _CRM_Leads_Activity_Task.CRM_Leads_Activity.EventType
|
||||
_CRM_Leads_Activity.Status = _CRM_Leads_Activity_Task.CRM_Leads_Activity.Status
|
||||
_CRM_Leads_Activity.Subject = _CRM_Leads_Activity_Task.CRM_Leads_Activity.Subject
|
||||
Else
|
||||
_CRM_Leads_Activity.CRM_Leads = _CRM_Leads_Activity_Task.CRM_Opportunities.CRM_Leads
|
||||
_CRM_Leads_Activity.CRM_Opportunities = _CRM_Leads_Activity_Task.CRM_Opportunities
|
||||
_CRM_Leads_Activity.Description = _CRM_Leads_Actvity_Completed_Popup.Description & vbNewLine & _CRM_Leads_Activity_Task.CRM_Leads_Activity.Description
|
||||
_CRM_Leads_Activity.EventType = eEventType.eBusinessDirectory
|
||||
_CRM_Leads_Activity.Status = _CRM_Leads_Activity_Task.Status
|
||||
_CRM_Leads_Activity.Subject = _CRM_Leads_Activity_Task.Subject
|
||||
End If
|
||||
|
||||
_CRM_Leads_Activity.UserCreated = _ocur.Session.GetObjectByKey(Of User)(_ocur.Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
|
||||
_CRM_Leads_Activity_Task.Results = _CRM_Leads_Actvity_Completed_Popup.Description
|
||||
_CRM_Leads_Activity_Task.Status = General.TaskStatus.Completed
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
View.Refresh()
|
||||
End Sub
|
||||
Private Sub aCRMCreateTaskwithActivity_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCRMCreateTaskwithActivity.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace()
|
||||
Dim _CRM_Leads_Activity_Task_Popup As CRM_Leads_Activity_Task_Popup = _onew.CreateObject(Of CRM_Leads_Activity_Task_Popup)()
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "CRM_Leads_Activity_Task_Popup_DetailView", False, _CRM_Leads_Activity_Task_Popup)
|
||||
End Sub
|
||||
Private Sub aCRMCreateTaskwithActivity_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCRMCreateTaskwithActivity.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _CRM_Leads_Activity_Task_Popup As CRM_Leads_Activity_Task_Popup = TryCast(e.PopupWindow.View.SelectedObjects(0), CRM_Leads_Activity_Task_Popup)
|
||||
Dim _CRM_Leads As CRM_Leads = TryCast(View.SelectedObjects(0), CRM_Leads)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(View.SelectedObjects(0), CRM_Opportunities)
|
||||
|
||||
If _CRM_Leads IsNot Nothing Then
|
||||
Dim _CRM_Leads_Activity As CRM_Leads_Activity = _ocur.CreateObject(Of CRM_Leads_Activity)()
|
||||
Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task = _ocur.CreateObject(Of CRM_Leads_Activity_Task)()
|
||||
|
||||
_CRM_Leads_Activity.CRM_Leads = _CRM_Leads
|
||||
_CRM_Leads_Activity.CRM_Opportunities = _CRM_Opportunities
|
||||
_CRM_Leads_Activity.CRM_Leads_Activity_Task.Add(_CRM_Leads_Activity_Task)
|
||||
_CRM_Leads_Activity.Description = _CRM_Leads_Activity_Task_Popup.Description
|
||||
_CRM_Leads_Activity.EventType = _CRM_Leads_Activity_Task_Popup.EventType
|
||||
_CRM_Leads_Activity.HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("Oid=?", _CRM_Leads_Activity_Task_Popup.HRPerson.Oid))
|
||||
_CRM_Leads_Activity.Subject = _CRM_Leads_Activity_Task_Popup.Subject
|
||||
|
||||
_CRM_Leads_Activity_Task.CRM_Leads_Activity = _CRM_Leads_Activity
|
||||
_CRM_Leads_Activity_Task.Description = _CRM_Leads_Activity_Task_Popup.Description
|
||||
_CRM_Leads_Activity_Task.DueDate = _CRM_Leads_Activity_Task_Popup.DueDate
|
||||
_CRM_Leads_Activity_Task.HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("Oid=?", _CRM_Leads_Activity_Task_Popup.HRPerson.Oid))
|
||||
_CRM_Leads_Activity_Task.Subject = _CRM_Leads_Activity_Task_Popup.Subject
|
||||
_CRM_Leads_Activity_Task.StartDate = GetSQLTime(_ocur.Session)
|
||||
|
||||
_ocur.CommitChanges()
|
||||
ElseIf _CRM_Opportunities IsNot Nothing Then
|
||||
Dim _CRM_Leads_Activity As CRM_Leads_Activity = _ocur.CreateObject(Of CRM_Leads_Activity)()
|
||||
Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task = _ocur.CreateObject(Of CRM_Leads_Activity_Task)()
|
||||
|
||||
If _CRM_Opportunities.CRM_Leads Is Nothing Then
|
||||
Dim _CRM_Leads_New As CRM_Leads = _ocur.CreateObject(Of CRM_Leads)()
|
||||
|
||||
_CRM_Leads_New.LeadStatus = eLeadStatus.Qualified
|
||||
_CRM_Leads_New.Customers = _ocur.GetObject(_CRM_Opportunities.Customers)
|
||||
_CRM_Opportunities.Customers.CRM_Leads = _CRM_Leads_New
|
||||
_CRM_Leads_New.CompanyName = _CRM_Leads_New.Customers.FullName
|
||||
_CRM_Leads_New.Topic = _CRM_Leads_New.Customers.FullName
|
||||
_CRM_Leads_New.EMail = "-"
|
||||
_CRM_Leads_New.MobilePhone = "-"
|
||||
_CRM_Leads_New.LastName = "-"
|
||||
_CRM_Leads_New.FirstName = "-"
|
||||
_CRM_Leads_New.CRM_FirstMeet = _ocur.FindObject(Of CRM_FirstMeet)(CriteriaOperator.Parse("DefaultforBusiness=True"))
|
||||
|
||||
_CRM_Leads_Activity.CRM_Leads = _CRM_Leads_New
|
||||
_CRM_Opportunities.CRM_Leads = _CRM_Leads_New
|
||||
Else
|
||||
_CRM_Leads_Activity.CRM_Leads = _CRM_Opportunities.CRM_Leads
|
||||
End If
|
||||
_CRM_Leads_Activity.CRM_Opportunities = _CRM_Opportunities
|
||||
_CRM_Leads_Activity.Description = _CRM_Leads_Activity_Task_Popup.Description
|
||||
_CRM_Leads_Activity.EventType = _CRM_Leads_Activity_Task_Popup.EventType
|
||||
_CRM_Leads_Activity.HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("Oid=?", _CRM_Leads_Activity_Task_Popup.HRPerson.Oid))
|
||||
_CRM_Leads_Activity.Subject = _CRM_Leads_Activity_Task_Popup.Subject
|
||||
|
||||
_CRM_Leads_Activity.CRM_Leads_Activity_Task.Add(_CRM_Leads_Activity_Task)
|
||||
|
||||
_CRM_Leads_Activity_Task.CRM_Leads_Activity = _CRM_Leads_Activity
|
||||
_CRM_Leads_Activity_Task.Description = _CRM_Leads_Activity_Task_Popup.Description
|
||||
_CRM_Leads_Activity_Task.DueDate = _CRM_Leads_Activity_Task_Popup.DueDate
|
||||
_CRM_Leads_Activity_Task.HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("Oid=?", _CRM_Leads_Activity_Task_Popup.HRPerson.Oid))
|
||||
_CRM_Leads_Activity_Task.Subject = _CRM_Leads_Activity_Task_Popup.Subject
|
||||
_CRM_Leads_Activity_Task.StartDate = GetSQLTime(_ocur.Session)
|
||||
|
||||
_ocur.CommitChanges()
|
||||
End If
|
||||
View.Refresh()
|
||||
End Sub
|
||||
Private Sub aEdit_CRM_Leads_Activity_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aEdit_CRM_Leads_Activity.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CRM_Leads_Activity As CRM_Leads_Activity = TryCast(View.SelectedObjects(0), CRM_Leads_Activity)
|
||||
If _CRM_Leads_Activity IsNot Nothing Then
|
||||
If _CRM_Leads_Activity.EventType <> eEventType.eEMailIn And _CRM_Leads_Activity.EventType <> eEventType.eEmailOut Then
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_Activity_DetailView", True, _onew.GetObject(_CRM_Leads_Activity))
|
||||
Else
|
||||
Throw New Exception("*Email-el kapcsolatos aktivitást nem lehet szerkeszteni!")
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aOpenCRM_Opportunities_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOpenCRM_Opportunities.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task = TryCast(View.SelectedObjects(0), CRM_Leads_Activity_Task)
|
||||
|
||||
If _CRM_Leads_Activity_Task IsNot Nothing Then
|
||||
If _CRM_Leads_Activity_Task.CRM_Leads_Activity IsNot Nothing Then
|
||||
If _CRM_Leads_Activity_Task.CRM_Leads_Activity.CRM_Opportunities IsNot Nothing Then
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Opportunities_DetailView", True, _onew.GetObject(_CRM_Leads_Activity_Task.CRM_Leads_Activity.CRM_Opportunities))
|
||||
' e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow
|
||||
ElseIf _CRM_Leads_Activity_Task.CRM_Leads_Activity.CRM_Leads IsNot Nothing Then
|
||||
If _CRM_Leads_Activity_Task.CRM_Leads_Activity.CRM_Leads.LeadStatus <> eLeadStatus.Qualified Then
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_DetailView", True, _onew.GetObject(_CRM_Leads_Activity_Task.CRM_Leads_Activity.CRM_Leads))
|
||||
' e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
If _CRM_Leads_Activity_Task.CRM_Opportunities IsNot Nothing Then
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Opportunities_DetailView", True, _onew.GetObject(_CRM_Leads_Activity_Task.CRM_Opportunities))
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub aCRM_LeadsDocumentation_ChangeGroup_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCRM_LeadsDocumentation_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
|
||||
Public Sub aCRM_LeadsDocumentation_ChangeGroup_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCRM_LeadsDocumentation_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 _CRM_LeadsDocumentation As CRM_LeadsDocumentation In View.SelectedObjects
|
||||
If _ChangeFileAttachment_PopUp.ChangeStatus = True Then
|
||||
_CRM_LeadsDocumentation.Status = _ChangeFileAttachment_PopUp.Status
|
||||
End If
|
||||
If _ChangeFileAttachment_PopUp.ChangeRowGroup1 = True Then
|
||||
_CRM_LeadsDocumentation.RowGroup1 = _ChangeFileAttachment_PopUp.RowGroup1
|
||||
End If
|
||||
If _ChangeFileAttachment_PopUp.ChangeRowGroup2 = True Then
|
||||
_CRM_LeadsDocumentation.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 aCRM_LeadsDocumentation_Remove_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCRM_LeadsDocumentation_Remove.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 _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities)
|
||||
|
||||
For Each _CRM_LeadsDocumentation As CRM_LeadsDocumentation In e.SelectedObjects
|
||||
If _CRM_Opportunities IsNot Nothing Then
|
||||
_CRM_Opportunities.CRM_Leads.CRM_LeadsDocumentation.Remove(_CRM_LeadsDocumentation)
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aCRM_Leads_Activity_Task_OpenBusinessDirectory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCRM_Leads_Activity_Task_OpenBusinessDirectory.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task = TryCast(View.SelectedObjects(0), CRM_Leads_Activity_Task)
|
||||
Dim _BusinessDirectory As BusinessDirectory = _ocur.FindObject(Of BusinessDirectory)(CriteriaOperator.Parse("Oid=?", _CRM_Leads_Activity_Task.MasterKey))
|
||||
|
||||
If _BusinessDirectory IsNot Nothing Then
|
||||
If Not _BusinessDirectory.IsFolder Then
|
||||
Dim _FileName As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), System.IO.Path.GetTempPath, _BusinessDirectory.FileData.FileName)
|
||||
Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create)
|
||||
|
||||
_BusinessDirectory.FileData.SaveToStream(_StreamFile)
|
||||
_StreamFile.Close()
|
||||
Process.Start(_FileName)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -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
|
||||
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
Imports DevExpress.ExpressApp.CloneObject
|
||||
|
||||
'-- Paraméterek, enumok
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class CRM_Leads_Activity
|
||||
Inherits MySchedule
|
||||
Private _CRM_Leads As CRM_Leads
|
||||
Private _CRM_Opportunities As CRM_Opportunities
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
<Association("CRM_Leads-CRM_Leads_Activity", GetType(CRM_Leads))> _
|
||||
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
|
||||
Public Property CRM_Opportunities As CRM_Opportunities
|
||||
Get
|
||||
Return _CRM_Opportunities
|
||||
End Get
|
||||
Set(value As CRM_Opportunities)
|
||||
SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value)
|
||||
End Set
|
||||
End Property
|
||||
<Association("CRM_Leads_Activity-CRM_Leads_Activity_Task", GetType(CRM_Leads_Activity_Task))> _
|
||||
ReadOnly Property CRM_Leads_Activity_Task As XPCollection(Of CRM_Leads_Activity_Task)
|
||||
Get
|
||||
Return GetCollection(Of CRM_Leads_Activity_Task)("CRM_Leads_Activity_Task")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
@@ -0,0 +1,108 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<Appearance("Hide Results if Status<>General.TaskStatus.Completed", AppearanceItemType.ViewItem, "Status<>4", TargetItems:="Results", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class CRM_Leads_Activity_Task
|
||||
Inherits Task
|
||||
Private _CRM_Leads_Activity As CRM_Leads_Activity
|
||||
Private _ObjectCreated As Date 'Létrehozva
|
||||
Private _UserCreated As User 'Létrehozó
|
||||
Private _HRPerson As HRPerson
|
||||
Private _Results As String = "" ' Mi lett a taszk eredménye (szöveges) csak akkor látszódjon, ha van eredmény (Completed)
|
||||
Private _AlertPeriod As AlertPeriod 'Figyelmeztetés
|
||||
Private _MasterKey As Guid ' Hordozott objektum
|
||||
Private _CRM_Opportunities As CRM_Opportunities 'CRM ügy
|
||||
|
||||
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
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
Property HRPerson As HRPerson
|
||||
Get
|
||||
Return _HRPerson
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("HRPerson", _HRPerson, value)
|
||||
End Set
|
||||
End Property
|
||||
<Association("CRM_Leads_Activity-CRM_Leads_Activity_Task", GetType(CRM_Leads_Activity))> _
|
||||
Property CRM_Leads_Activity As CRM_Leads_Activity
|
||||
Get
|
||||
Return _CRM_Leads_Activity
|
||||
End Get
|
||||
Set(value As CRM_Leads_Activity)
|
||||
SetPropertyValue("CRM_Leads_Activity", _CRM_Leads_Activity, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Results As String
|
||||
Get
|
||||
Return _Results
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Results", _Results, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AlertPeriod As AlertPeriod
|
||||
Get
|
||||
Return _AlertPeriod
|
||||
End Get
|
||||
Set(value As AlertPeriod)
|
||||
SetPropertyValue("AlertPeriod", _AlertPeriod, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)> _
|
||||
Property MasterKey As Guid
|
||||
Get
|
||||
Return _MasterKey
|
||||
End Get
|
||||
Set(value As Guid)
|
||||
SetPropertyValue("MasterKey", _MasterKey, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CRM_Opportunities As CRM_Opportunities
|
||||
Get
|
||||
Return _CRM_Opportunities
|
||||
End Get
|
||||
Set(value As CRM_Opportunities)
|
||||
SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,452 @@
|
||||
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("CRM")> _
|
||||
<DefaultProperty("ShortName")> _
|
||||
Public Class CRM_Opportunities
|
||||
Inherits BaseObject
|
||||
|
||||
Private _CRM_Opportunities_Parameters As CRM_Opportunities_Parameters
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _CloseDate As Date
|
||||
|
||||
'--General
|
||||
Private _ShortName As String
|
||||
Private _DocumentNumber As String
|
||||
Private _Customers As Customers
|
||||
Private _Contacts As Contacts
|
||||
Private _EstimatedRevenue As Double
|
||||
Private _EstimatedCurrencyName As CurrencyName
|
||||
Private _EstimatedRevenueHUF As Double
|
||||
Private _EstimatedCloseDate As Date
|
||||
Private _Probability As Long
|
||||
Private _OpportunityRating As eOpportunityRating
|
||||
Private _CRM_Opportunities_Probability As CRM_Opportunities_Probability
|
||||
Private _JobNumberObjects As JobNumberObjects
|
||||
Private _WorkPlace As WorkPlace
|
||||
Private _MasterBusinessDirectory As BusinessDirectory
|
||||
|
||||
'-- Administration
|
||||
Private _CRM_Leads As CRM_Leads
|
||||
Private _OpportunityStatus As eOpportunityStatus
|
||||
Private _HRPerson As HRPerson
|
||||
Private _WorkflowSystemSteps As WorkflowSystemSteps
|
||||
|
||||
Private _UserCreated As User 'Létrehozó
|
||||
Private _ObjectCreated As Date 'Létrehozva
|
||||
|
||||
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
|
||||
If IsDeleted = False Then
|
||||
' CRM ügyhöz dokumentum tárhely beállítása
|
||||
If MasterBusinessDirectory Is Nothing Then
|
||||
Dim _CRMBusinessDirectory As BusinessDirectory = Session.FindObject(Of BusinessDirectory)(CriteriaOperator.Parse(""))
|
||||
End If
|
||||
If Me.CRM_Opportunities_Parameters Is Nothing Then
|
||||
If Me.CustomersFrom IsNot Nothing Then
|
||||
Dim _CRM_Opportunities_Parameters As CRM_Opportunities_Parameters = Session.FindObject(Of CRM_Opportunities_Parameters)(CriteriaOperator.Parse("IsDefault=True and CustomersFrom=?", Me.CustomersFrom))
|
||||
If _CRM_Opportunities_Parameters IsNot Nothing Then
|
||||
Me.CRM_Opportunities_Parameters = _CRM_Opportunities_Parameters
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If Me.CRM_Opportunities_Parameters IsNot Nothing Then
|
||||
If Me.CRM_Opportunities_Parameters.WorkflowSystem IsNot Nothing Then
|
||||
If Me.WorkflowSystemSteps Is Nothing Then
|
||||
Dim _WorkflowSystemSteps As WorkflowSystemSteps = Session.FindObject(Of WorkflowSystemSteps)(CriteriaOperator.Parse("WorkflowSystem=? and StepIndex=1", Me.CRM_Opportunities_Parameters.WorkflowSystem))
|
||||
If _WorkflowSystemSteps IsNot Nothing Then
|
||||
Me.WorkflowSystemSteps = _WorkflowSystemSteps
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If Me.DocumentNumber = "" Then Me.DocumentNumber = Me.CRM_Opportunities_Parameters.NumberGenerator.GetNewNumber(Me.CRM_Opportunities_Parameters.NumberGenerator)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Property CRM_Opportunities_Parameters As CRM_Opportunities_Parameters
|
||||
Get
|
||||
Return _CRM_Opportunities_Parameters
|
||||
End Get
|
||||
Set(value As CRM_Opportunities_Parameters)
|
||||
SetPropertyValue("CRM_Opportunities_Parameters", _CRM_Opportunities_Parameters, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(ByVal value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CloseDate As Date
|
||||
Get
|
||||
Return _CloseDate
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("CloseDate", _CloseDate, 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 DocumentNumber As String
|
||||
Get
|
||||
Return _DocumentNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Customers As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("'@This.Customers'=Customers")>
|
||||
Property Contacts As Contacts
|
||||
Get
|
||||
Return _Contacts
|
||||
End Get
|
||||
Set(value As Contacts)
|
||||
SetPropertyValue("Contacts", _Contacts, value)
|
||||
End Set
|
||||
End Property
|
||||
Property EstimatedRevenue As Double
|
||||
Get
|
||||
Return _EstimatedRevenue
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("EstimatedRevenue", _EstimatedRevenue, value)
|
||||
End Set
|
||||
End Property
|
||||
Property EstimatedCurrencyName As CurrencyName
|
||||
Get
|
||||
Return _EstimatedCurrencyName
|
||||
End Get
|
||||
Set(value As CurrencyName)
|
||||
SetPropertyValue("EstimatedCurrencyName", _EstimatedCurrencyName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property EstimatedRevenueHUF As Double
|
||||
Get
|
||||
Return _EstimatedRevenueHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("EstimatedRevenueHUF", _EstimatedRevenueHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property EstimatedCloseDate As Date
|
||||
Get
|
||||
Return _EstimatedCloseDate
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("EstimatedCloseDate", _EstimatedCloseDate, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRange("CRM_Opportunities-Probability", DefaultContexts.Save, 1, 100)>
|
||||
Property Probability As Long
|
||||
Get
|
||||
Return _Probability
|
||||
End Get
|
||||
Set(ByVal value As Long)
|
||||
SetPropertyValue("Probability", _Probability, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRM_Opportunities-CRM_Opportunities_Probability", DefaultContexts.Save)>
|
||||
Property CRM_Opportunities_Probability As CRM_Opportunities_Probability
|
||||
Get
|
||||
Return _CRM_Opportunities_Probability
|
||||
End Get
|
||||
Set(value As CRM_Opportunities_Probability)
|
||||
SetPropertyValue("CRM_Opportunities_Probability", _CRM_Opportunities_Probability, value)
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
Probability = value.Probability
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property OpportunityRating As eOpportunityRating
|
||||
Get
|
||||
Return _OpportunityRating
|
||||
End Get
|
||||
Set(ByVal value As eOpportunityRating)
|
||||
SetPropertyValue("OpportunityRating", _OpportunityRating, value)
|
||||
End Set
|
||||
End Property
|
||||
Property JobNumberObjects As JobNumberObjects
|
||||
Get
|
||||
Return _JobNumberObjects
|
||||
End Get
|
||||
Set(value As JobNumberObjects)
|
||||
SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("CustomersFrom='@This.CustomersFrom'")>
|
||||
Property WorkPlace As WorkPlace
|
||||
Get
|
||||
Return _WorkPlace
|
||||
End Get
|
||||
Set(value As WorkPlace)
|
||||
SetPropertyValue("WorkPlace", _WorkPlace, 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 CRM_Leads As CRM_Leads
|
||||
Get
|
||||
Return _CRM_Leads
|
||||
End Get
|
||||
Set(ByVal value As CRM_Leads)
|
||||
SetPropertyValue("CRM_Leads", _CRM_Leads, value)
|
||||
End Set
|
||||
End Property
|
||||
Property OpportunityStatus As eOpportunityStatus
|
||||
Get
|
||||
Return _OpportunityStatus
|
||||
End Get
|
||||
Set(ByVal value As eOpportunityStatus)
|
||||
SetPropertyValue("OpportunityStatus", _OpportunityStatus, value)
|
||||
End Set
|
||||
End Property
|
||||
Property HRPerson As HRPerson
|
||||
Get
|
||||
Return _HRPerson
|
||||
End Get
|
||||
Set(ByVal value As HRPerson)
|
||||
SetPropertyValue("HRPerson", _HRPerson, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("WorkflowSystem='@This.CRM_Opportunities_Parameters.WorkflowSystem'")>
|
||||
Property WorkflowSystemSteps As WorkflowSystemSteps
|
||||
Get
|
||||
Return _WorkflowSystemSteps
|
||||
End Get
|
||||
Set(value As WorkflowSystemSteps)
|
||||
SetPropertyValue("WorkflowSystemSteps", _WorkflowSystemSteps, 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------------
|
||||
<VisibleInListView(False)> _
|
||||
<Association("OfferOutHeader-CRM_Opportunities", GetType(OfferOutHeader))> _
|
||||
ReadOnly Property OfferOutHeader As XPCollection(Of OfferOutHeader)
|
||||
Get
|
||||
Return GetCollection(Of OfferOutHeader)("OfferOutHeader")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("OfferInHeader-CRM_Opportunities", GetType(OfferInHeader))> _
|
||||
ReadOnly Property OfferInHeader As XPCollection(Of OfferInHeader)
|
||||
Get
|
||||
Return GetCollection(Of OfferInHeader)("OfferInHeader")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("CRM_Opportunities-OrderInHeader", GetType(OrderInHeader))> _
|
||||
ReadOnly Property OrderInHeader As XPCollection(Of OrderInHeader)
|
||||
Get
|
||||
Return GetCollection(Of OrderInHeader)("OrderInHeader")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("CRM_Opportunities-Contract", GetType(Contracts))> _
|
||||
ReadOnly Property Contracts As XPCollection(Of Contracts)
|
||||
Get
|
||||
Return GetCollection(Of Contracts)("Contracts")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property DeliveryNoteOutHeader As XPCollection(Of DeliveryNoteOutHeader)
|
||||
Get
|
||||
Return New XPCollection(Of DeliveryNoteOutHeader)(Session, CriteriaOperator.Parse("Customers=? and CustomersFrom=?", Me.Customers, Me.CustomersFrom))
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property InvoiceHeader As XPCollection(Of InvoiceHeader)
|
||||
Get
|
||||
Return New XPCollection(Of InvoiceHeader)(Session, CriteriaOperator.Parse("Customers=? and CustomersFrom=?", Me.Customers, Me.CustomersFrom))
|
||||
End Get
|
||||
End Property 'Számlák
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property PCIDetail As XPCollection(Of PCIDetail)
|
||||
Get
|
||||
Return New XPCollection(Of PCIDetail)(Session, CriteriaOperator.Parse("PartnerType=0 and Customers=? and CustomersFrom=?", Me.Customers, Me.CustomersFrom))
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property CRM_Leads_Activity As XPCollection(Of CRM_Leads_Activity)
|
||||
Get
|
||||
Return New XPCollection(Of CRM_Leads_Activity)(Session, CriteriaOperator.Parse("CRM_Leads=?", Me.CRM_Leads))
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("CRM_Opportunities-CRM_Opportunities_Contacts_Roles", GetType(CRM_Opportunities_Contacts_Roles))> _
|
||||
ReadOnly Property CRM_Opportunities_Contacts_Roles As XPCollection(Of CRM_Opportunities_Contacts_Roles)
|
||||
Get
|
||||
Return GetCollection(Of CRM_Opportunities_Contacts_Roles)("CRM_Opportunities_Contacts_Roles")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property CRM_Leads_Activity_Task As XPCollection(Of CRM_Leads_Activity_Task)
|
||||
Get
|
||||
Return New XPCollection(Of CRM_Leads_Activity_Task)(Session, CriteriaOperator.Parse("CRM_Leads_Activity.CRM_Leads=? or CRM_Opportunities=?", Me.CRM_Leads, Me))
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property RegistryTask As XPCollection(Of RegistryTasks)
|
||||
Get
|
||||
If Me.CustomersFrom IsNot Nothing Then
|
||||
Return New XPCollection(Of RegistryTasks)(Session, _
|
||||
CriteriaOperator.Parse("RegistryHeader.CustomersFrom=? and Status<>4 and RegistryHeader.RegistryType.RegistryMainType=5", Me.CustomersFrom))
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property WorkSheet_Header As XPCollection(Of WorkSheet_Header)
|
||||
Get
|
||||
Return New XPCollection(Of WorkSheet_Header)(Session, CriteriaOperator.Parse("Customers=? and CustomersFrom=?", Me.Customers, Me.CustomersFrom))
|
||||
End Get
|
||||
End Property
|
||||
<Association("CRM_Opportunities-CRM_Opportunities_Products", GetType(CRM_Opportunities_Products)), VisibleInListView(False), VisibleInLookupListView(False)>
|
||||
ReadOnly Property CRM_Opportunities_Products As XPCollection(Of CRM_Opportunities_Products)
|
||||
Get
|
||||
Return GetCollection(Of CRM_Opportunities_Products)("CRM_Opportunities_Products")
|
||||
End Get
|
||||
End Property
|
||||
<Association("CRM_Opportunities-CRM_Opportunities_Services", GetType(CRM_Opportunities_Services)), VisibleInListView(False), VisibleInLookupListView(False)>
|
||||
ReadOnly Property CRM_Opportunities_Services As XPCollection(Of CRM_Opportunities_Services)
|
||||
Get
|
||||
Return GetCollection(Of CRM_Opportunities_Services)("CRM_Opportunities_Services")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property CRM_Opportunities_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
|
||||
<Browsable(False)> _
|
||||
ReadOnly Property MasterBusinessDirectoryCollection As XPCollection(Of BusinessDirectory)
|
||||
Get
|
||||
Dim _BusinessDirectoryReturn_Collection As XPCollection(Of BusinessDirectory) = Nothing
|
||||
Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session)
|
||||
If _BusinessDirectory_Collection.Count > 0 Then
|
||||
Dim _Filter As String = "Oid in("
|
||||
|
||||
For Each _BusinessDirectory As BusinessDirectory In _BusinessDirectory_Collection
|
||||
If _BusinessDirectory.IsFolder Then _Filter += "'" + _BusinessDirectory.Oid.ToString + "',"
|
||||
Next
|
||||
_Filter = _Filter.Remove(_Filter.Length - 1, 1)
|
||||
_Filter += ")"
|
||||
If _Filter.Length > 8 Then
|
||||
_BusinessDirectoryReturn_Collection = New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse(_Filter))
|
||||
_BusinessDirectory_Collection.Filter = CriteriaOperator.Parse("IsFolder=True")
|
||||
Else
|
||||
_Filter = "1=2"
|
||||
End If
|
||||
End If
|
||||
|
||||
Return _BusinessDirectoryReturn_Collection
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<VisibleInLookupListView(False)> _
|
||||
ReadOnly Property CRM_Opportunities_Customers As XPCollection(Of CRM_Opportunities_Customers)
|
||||
Get
|
||||
Return New XPCollection(Of CRM_Opportunities_Customers)(Session, CriteriaOperator.Parse("CRM_Opportunities=?", Me))
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<VisibleInLookupListView(False)> _
|
||||
ReadOnly Property CRM_Opportunities_CustomersContacts As XPCollection(Of CRM_Opportunities_CustomersContacts)
|
||||
Get
|
||||
Return New XPCollection(Of CRM_Opportunities_CustomersContacts)(Session, CriteriaOperator.Parse("CRM_Opportunities=?", Me))
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property OrderInRowsOther As XPCollection(Of OrderInRowsOther)
|
||||
Get
|
||||
Return New XPCollection(Of OrderInRowsOther)(Session, CriteriaOperator.Parse("OrderInHeader.CRM_Opportunities=?", Me))
|
||||
End Get
|
||||
End Property
|
||||
|
||||
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 Class
|
||||
+202
@@ -0,0 +1,202 @@
|
||||
Partial Class CRM_OpportunitiesVC
|
||||
|
||||
<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.aCRM_O_CreateOfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCRM_O_CreateOrderIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCRM_O_ViewLeads = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCRM_O_CreateActivity = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCRM_O_CreateOfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCRM_O_CreateContracts = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCRM_O_Set_Registry = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCRM_O_UnSet_Registry = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCRM_O_RecalculateEstimatedRevenue = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCRM_O_CreateBusinessDirectoryTask = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCRM_O_CRM_O_Customers_New = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_New = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_Delete = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCRM_O_CRM_O_Customers_Delete = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aCRM_O_CreateOfferOut
|
||||
'
|
||||
Me.aCRM_O_CreateOfferOut.Caption = "Create offer out"
|
||||
Me.aCRM_O_CreateOfferOut.Category = "ObjectsCreation"
|
||||
Me.aCRM_O_CreateOfferOut.ConfirmationMessage = Nothing
|
||||
Me.aCRM_O_CreateOfferOut.Id = "aCRM_O_CreateOfferOut"
|
||||
Me.aCRM_O_CreateOfferOut.ImageName = "document_edit"
|
||||
Me.aCRM_O_CreateOfferOut.TargetViewId = "CRM_Opportunities_OfferOutHeader_ListView"
|
||||
Me.aCRM_O_CreateOfferOut.ToolTip = Nothing
|
||||
'
|
||||
'aCRM_O_CreateOrderIn
|
||||
'
|
||||
Me.aCRM_O_CreateOrderIn.Caption = "Create order in"
|
||||
Me.aCRM_O_CreateOrderIn.Category = "ObjectsCreation"
|
||||
Me.aCRM_O_CreateOrderIn.ConfirmationMessage = Nothing
|
||||
Me.aCRM_O_CreateOrderIn.Id = "aCRM_O_CreateOrderIn"
|
||||
Me.aCRM_O_CreateOrderIn.ImageName = "document_down"
|
||||
Me.aCRM_O_CreateOrderIn.TargetViewId = "CRM_Opportunities_OrderInHeader_ListView"
|
||||
Me.aCRM_O_CreateOrderIn.ToolTip = Nothing
|
||||
'
|
||||
'aCRM_O_ViewLeads
|
||||
'
|
||||
Me.aCRM_O_ViewLeads.Caption = "View leads"
|
||||
Me.aCRM_O_ViewLeads.Category = "OpenObject"
|
||||
Me.aCRM_O_ViewLeads.ConfirmationMessage = Nothing
|
||||
Me.aCRM_O_ViewLeads.Id = "aCRM_O_ViewLeads"
|
||||
Me.aCRM_O_ViewLeads.ImageName = "BO_Lead"
|
||||
Me.aCRM_O_ViewLeads.TargetViewId = "CRM_Opportunities_DetailView"
|
||||
Me.aCRM_O_ViewLeads.ToolTip = Nothing
|
||||
'
|
||||
'aCRM_O_CreateActivity
|
||||
'
|
||||
Me.aCRM_O_CreateActivity.Caption = "Create Activity"
|
||||
Me.aCRM_O_CreateActivity.ConfirmationMessage = Nothing
|
||||
Me.aCRM_O_CreateActivity.Id = "aCRM_O_CreateActivity"
|
||||
Me.aCRM_O_CreateActivity.ImageName = "Action_New"
|
||||
Me.aCRM_O_CreateActivity.TargetViewId = "CRM_Opportunities_CRM_Leads_Activity_ListView"
|
||||
Me.aCRM_O_CreateActivity.ToolTip = Nothing
|
||||
'
|
||||
'aCRM_O_CreateOfferIn
|
||||
'
|
||||
Me.aCRM_O_CreateOfferIn.Caption = "Create offer in"
|
||||
Me.aCRM_O_CreateOfferIn.Category = "ObjectsCreation"
|
||||
Me.aCRM_O_CreateOfferIn.ConfirmationMessage = Nothing
|
||||
Me.aCRM_O_CreateOfferIn.Id = "aCRM_O_CreateOfferIn"
|
||||
Me.aCRM_O_CreateOfferIn.TargetViewId = "CRM_Opportunities_OfferInHeader_ListView"
|
||||
Me.aCRM_O_CreateOfferIn.ToolTip = Nothing
|
||||
'
|
||||
'aCRM_O_CreateContracts
|
||||
'
|
||||
Me.aCRM_O_CreateContracts.AcceptButtonCaption = Nothing
|
||||
Me.aCRM_O_CreateContracts.CancelButtonCaption = Nothing
|
||||
Me.aCRM_O_CreateContracts.Caption = "Create Contracts"
|
||||
Me.aCRM_O_CreateContracts.Category = "ObjectsCreation"
|
||||
Me.aCRM_O_CreateContracts.ConfirmationMessage = Nothing
|
||||
Me.aCRM_O_CreateContracts.Id = "aCRM_O_CreateContracts"
|
||||
Me.aCRM_O_CreateContracts.TargetViewId = "CRM_Opportunities_Contracts_ListView"
|
||||
Me.aCRM_O_CreateContracts.ToolTip = Nothing
|
||||
'
|
||||
'aCRM_O_Set_Registry
|
||||
'
|
||||
Me.aCRM_O_Set_Registry.Caption = "CRM O Set Registry"
|
||||
Me.aCRM_O_Set_Registry.Category = "ObjectsCreation"
|
||||
Me.aCRM_O_Set_Registry.ConfirmationMessage = Nothing
|
||||
Me.aCRM_O_Set_Registry.Id = "aCRM_O_Set_Registry"
|
||||
Me.aCRM_O_Set_Registry.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aCRM_O_Set_Registry.TargetViewId = ""
|
||||
Me.aCRM_O_Set_Registry.ToolTip = Nothing
|
||||
'
|
||||
'aCRM_O_UnSet_Registry
|
||||
'
|
||||
Me.aCRM_O_UnSet_Registry.Caption = "CRM O UnSet Registry"
|
||||
Me.aCRM_O_UnSet_Registry.Category = "ObjectsCreation"
|
||||
Me.aCRM_O_UnSet_Registry.ConfirmationMessage = Nothing
|
||||
Me.aCRM_O_UnSet_Registry.Id = "aCRM_O_UnSet_Registry"
|
||||
Me.aCRM_O_UnSet_Registry.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aCRM_O_UnSet_Registry.TargetViewId = ""
|
||||
Me.aCRM_O_UnSet_Registry.ToolTip = Nothing
|
||||
'
|
||||
'aCRM_O_RecalculateEstimatedRevenue
|
||||
'
|
||||
Me.aCRM_O_RecalculateEstimatedRevenue.Caption = "aCRM_O_RecalculateEstimatedRevenue"
|
||||
Me.aCRM_O_RecalculateEstimatedRevenue.Category = "RecordEdit"
|
||||
Me.aCRM_O_RecalculateEstimatedRevenue.ConfirmationMessage = Nothing
|
||||
Me.aCRM_O_RecalculateEstimatedRevenue.Id = "aCRM_O_RecalculateEstimatedRevenue"
|
||||
Me.aCRM_O_RecalculateEstimatedRevenue.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aCRM_O_RecalculateEstimatedRevenue.TargetObjectType = GetType(Nuvolar.[Module].CRM_Opportunities)
|
||||
Me.aCRM_O_RecalculateEstimatedRevenue.ToolTip = Nothing
|
||||
'
|
||||
'aCRM_O_CreateBusinessDirectoryTask
|
||||
'
|
||||
Me.aCRM_O_CreateBusinessDirectoryTask.AcceptButtonCaption = Nothing
|
||||
Me.aCRM_O_CreateBusinessDirectoryTask.CancelButtonCaption = Nothing
|
||||
Me.aCRM_O_CreateBusinessDirectoryTask.Caption = "aCRM_O_CreateBusinessDirectoryTask"
|
||||
Me.aCRM_O_CreateBusinessDirectoryTask.ConfirmationMessage = Nothing
|
||||
Me.aCRM_O_CreateBusinessDirectoryTask.Id = "aCRM_O_CreateBusinessDirectoryTask"
|
||||
Me.aCRM_O_CreateBusinessDirectoryTask.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aCRM_O_CreateBusinessDirectoryTask.TargetObjectType = GetType(Nuvolar.[Module].BusinessDirectory)
|
||||
Me.aCRM_O_CreateBusinessDirectoryTask.TargetViewId = "CRM_Opportunities_CRM_Opportunities_BusinessDirectory_ListView"
|
||||
Me.aCRM_O_CreateBusinessDirectoryTask.ToolTip = Nothing
|
||||
'
|
||||
'aCRM_O_CRM_O_Customers_New
|
||||
'
|
||||
Me.aCRM_O_CRM_O_Customers_New.AcceptButtonCaption = Nothing
|
||||
Me.aCRM_O_CRM_O_Customers_New.CancelButtonCaption = Nothing
|
||||
Me.aCRM_O_CRM_O_Customers_New.Caption = "aCRM_O_CRM_O_Customers_New"
|
||||
Me.aCRM_O_CRM_O_Customers_New.Category = "ObjectsCreation"
|
||||
Me.aCRM_O_CRM_O_Customers_New.ConfirmationMessage = Nothing
|
||||
Me.aCRM_O_CRM_O_Customers_New.Id = "aCRM_O_CRM_O_Customers_New"
|
||||
Me.aCRM_O_CRM_O_Customers_New.TargetObjectType = GetType(Nuvolar.[Module].CRM_Opportunities_Customers)
|
||||
Me.aCRM_O_CRM_O_Customers_New.ToolTip = Nothing
|
||||
'
|
||||
'aCRM_O_CRM_O_CustomersContacts_New
|
||||
'
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_New.AcceptButtonCaption = Nothing
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_New.CancelButtonCaption = Nothing
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_New.Caption = "aCRM_O_CRM_O_CustomersContacts_New"
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_New.Category = "ObjectsCreation"
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_New.ConfirmationMessage = Nothing
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_New.Id = "aCRM_O_CRM_O_CustomersContacts_New"
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_New.TargetObjectType = GetType(Nuvolar.[Module].CRM_Opportunities_CustomersContacts)
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_New.ToolTip = Nothing
|
||||
'
|
||||
'aCRM_O_CRM_O_CustomersContacts_Delete
|
||||
'
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_Delete.Caption = "aCRM_O_CRM_O_CustomersContacts_Delete"
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_Delete.Category = "Edit"
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_Delete.ConfirmationMessage = Nothing
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_Delete.Id = "aCRM_O_CRM_O_CustomersContacts_Delete"
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_Delete.TargetObjectType = GetType(Nuvolar.[Module].CRM_Opportunities_CustomersContacts)
|
||||
Me.aCRM_O_CRM_O_CustomersContacts_Delete.ToolTip = Nothing
|
||||
'
|
||||
'aCRM_O_CRM_O_Customers_Delete
|
||||
'
|
||||
Me.aCRM_O_CRM_O_Customers_Delete.Caption = "aCRM_O_CRM_O_Customers_Delete"
|
||||
Me.aCRM_O_CRM_O_Customers_Delete.ConfirmationMessage = Nothing
|
||||
Me.aCRM_O_CRM_O_Customers_Delete.Id = "aCRM_O_CRM_O_Customers_Delete"
|
||||
Me.aCRM_O_CRM_O_Customers_Delete.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aCRM_O_CRM_O_Customers_Delete.TargetObjectType = GetType(Nuvolar.[Module].CRM_Opportunities_Customers)
|
||||
Me.aCRM_O_CRM_O_Customers_Delete.ToolTip = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aCRM_O_CreateOfferOut As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCRM_O_CreateOrderIn As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCRM_O_ViewLeads As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCRM_O_CreateActivity As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCRM_O_CreateOfferIn As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCRM_O_CreateContracts As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCRM_O_Set_Registry As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCRM_O_UnSet_Registry As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCRM_O_RecalculateEstimatedRevenue As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCRM_O_CreateBusinessDirectoryTask As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCRM_O_CRM_O_Customers_New As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCRM_O_CRM_O_CustomersContacts_New As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCRM_O_CRM_O_CustomersContacts_Delete As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCRM_O_CRM_O_Customers_Delete As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,165 @@
|
||||
<?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="aCRM_O_CreateOfferOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 290</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_O_CreateOrderIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 329</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_O_ViewLeads.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 368</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_O_CreateActivity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 563</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_O_CreateOfferIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 524</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_O_CreateContracts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 485</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_O_Set_Registry.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 446</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_O_UnSet_Registry.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 407</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_O_RecalculateEstimatedRevenue.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_O_CreateBusinessDirectoryTask.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_O_CRM_O_Customers_New.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 251</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_O_CRM_O_CustomersContacts_New.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_O_CRM_O_CustomersContacts_Delete.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aCRM_O_CRM_O_Customers_Delete.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,604 @@
|
||||
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.ExpressApp.Editors
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Public Class CRM_OpportunitiesVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
|
||||
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_Set_Registry.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id = "CRM_Opportunities_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_Contracts_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_Contacts_Roles_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_DeliveryNoteOutHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_InvoiceHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_PCIDetail_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_OfferInHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", True)
|
||||
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_OrderInHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Leads_Activity_ListView" Then
|
||||
Frame.GetController(Of CRM_LeadsVC)().aEdit_CRM_Leads_Activity.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Leads_Activity_Task_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_RegistryTask_ListView_NotSet" Then
|
||||
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_Set_Registry.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities)
|
||||
_ListView.CollectionSource.Criteria("ByUser") = CriteriaOperator.Parse("HRPerson.User.UserName=?", SecuritySystem.CurrentUserName)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_RegistryTask_ListView_Set" Then
|
||||
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
|
||||
'// Csak az aktuális CRM ügyhöz tartozó tételek kellenek
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities)
|
||||
_ListView.CollectionSource.BeginUpdateCriteria()
|
||||
_ListView.CollectionSource.Criteria("Current") = CriteriaOperator.Parse("RegistryHeader.CRM_Opportunities.Oid=?", _CRM_Opportunities.Oid)
|
||||
_ListView.CollectionSource.EndUpdateCriteria()
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_BusinessDirectory_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_Customers_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_CustomersContacts_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
If View.Id = "CRM_Opportunities_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_DetailView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_DeliveryNoteOutHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_Contacts_Roles_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_InvoiceHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "CRM_Opportunities_PCIDetail_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_OfferInHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_OrderInHeader_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Leads_Activity_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_RegistryTask_ListView_NotSet" Then
|
||||
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_Set_Registry.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_RegistryTask_ListView_Set" Then
|
||||
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_BusinessDirectory_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_CustomersOrder_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "CRM_Opportunities_CRM_Opportunities_CustomersOrderContacts_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aCRM_O_CreateOfferOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_CreateOfferOut.Execute
|
||||
Dim _ListView As ListView = CType(View, ListView)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities)
|
||||
|
||||
If _CRM_Opportunities.CustomersFrom IsNot Nothing Then
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _OfferOutHeader As OfferOutHeader = _onew.CreateObject(Of OfferOutHeader)()
|
||||
|
||||
_OfferOutHeader.CustomersFrom = _onew.GetObject(_CRM_Opportunities.CustomersFrom)
|
||||
_OfferOutHeader.Contact = _onew.GetObject(_CRM_Opportunities.Contacts)
|
||||
_OfferOutHeader.Customers = _onew.GetObject(_CRM_Opportunities.Customers)
|
||||
_OfferOutHeader.IsEditable = True
|
||||
_OfferOutHeader.CRM_Opportunities = _onew.GetObject(_CRM_Opportunities)
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OfferOutHeader_DetailView", True, _OfferOutHeader)
|
||||
' e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow
|
||||
'e.ShowViewParameters.Context = TemplateContext.ApplicationWindow
|
||||
'e.ShowViewParameters.CreateAllControllers = True
|
||||
Else
|
||||
Throw New UserFriendlyException("Nincs beállítva saját cég!")
|
||||
End If
|
||||
View.Refresh()
|
||||
End Sub
|
||||
Private Sub aCRM_O_CreateOrderIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_CreateOrderIn.Execute
|
||||
Dim _ListView As ListView = CType(View, ListView)
|
||||
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities)
|
||||
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _OrderInHeader As OrderInHeader = _onew.CreateObject(Of OrderInHeader)()
|
||||
|
||||
If _CRM_Opportunities.CustomersFrom IsNot Nothing Then
|
||||
_OrderInHeader.Contacts = _onew.GetObject(_CRM_Opportunities.Contacts)
|
||||
_OrderInHeader.Customers = _onew.GetObjectByKey(Of Customers)(_CRM_Opportunities.Customers.Oid)
|
||||
_OrderInHeader.CustomersFrom = _onew.GetObject(_CRM_Opportunities.CustomersFrom)
|
||||
_OrderInHeader.CRM_Opportunities = _onew.GetObject(_CRM_Opportunities)
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OrderInHeader_DetailView", True, _OrderInHeader)
|
||||
' e.ShowViewParameters.CreatedView = Application.CreateDetailView(_ocur, "OrderInHeader_DetailView", False, _OrderInHeader)
|
||||
'e.ShowViewParameters.TargetWindow = TargetWindow.NewModalWindow
|
||||
Else
|
||||
Throw New UserFriendlyException("Nincs beállítva saját cég!")
|
||||
End If
|
||||
|
||||
View.Refresh()
|
||||
End Sub
|
||||
Private Sub aCRM_O_ViewLeads_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_ViewLeads.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(View.SelectedObjects(0), CRM_Opportunities)
|
||||
Dim _CRM_Leads As CRM_Leads = _CRM_Opportunities.CRM_Leads
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_DetailView", True, _onew.GetObject(_CRM_Leads))
|
||||
End Sub
|
||||
Private Sub aCRM_O_CreateActivity_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_CreateActivity.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities)
|
||||
Dim _CRM_Leads_Activity As CRM_Leads_Activity = _onew.CreateObject(Of CRM_Leads_Activity)()
|
||||
|
||||
_CRM_Leads_Activity.CRM_Leads = _onew.GetObject(_CRM_Opportunities.CRM_Leads)
|
||||
_CRM_Leads_Activity.CRM_Opportunities = _onew.GetObject(_CRM_Opportunities)
|
||||
_CRM_Leads_Activity.HRPerson = _onew.GetObject(_CRM_Opportunities.HRPerson)
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_Activity_DetailView", True, _CRM_Leads_Activity)
|
||||
' e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow
|
||||
End Sub
|
||||
Private Sub aCRM_O_CreateOfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_CreateOfferIn.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities)
|
||||
If _CRM_Opportunities IsNot Nothing Then
|
||||
Dim _OfferInHeader As OfferInHeader = _onew.CreateObject(Of OfferInHeader)()
|
||||
_OfferInHeader.CRM_Opportunities = _onew.GetObjectByKey(Of CRM_Opportunities)(_CRM_Opportunities.Oid)
|
||||
_OfferInHeader.CustomersFrom = _onew.GetObjectByKey(Of CustomersFrom)(_CRM_Opportunities.CustomersFrom.Oid)
|
||||
'_OfferInHeader.Customers = _onew.GetObjectByKey(Of Customers)(_CRM_Opportunities.Customers.Oid)
|
||||
'_OfferInHeader.Contact = _onew.GetObjectByKey(Of Contacts)(_CRM_Opportunities.Contacts.Oid)
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OfferInHeader_DetailView", True, _OfferInHeader)
|
||||
'e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow
|
||||
'e.ShowViewParameters.Context = TemplateContext.View
|
||||
'e.ShowViewParameters.CreateAllControllers = True
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aCRM_O_CreateContracts_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCRM_O_CreateContracts.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities)
|
||||
If _CRM_Opportunities IsNot Nothing Then
|
||||
Dim _CreateContracts_CustomizePupUp As CreateContracts_CustomizePupUp = _onew.CreateObject(Of CreateContracts_CustomizePupUp)()
|
||||
_CreateContracts_CustomizePupUp.CRM_Opportunities = _onew.GetObjectByKey(Of CRM_Opportunities)(_CRM_Opportunities.Oid)
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "CreateContracts_CustomizePupUp_DetailView", False, _CreateContracts_CustomizePupUp)
|
||||
Else
|
||||
Throw New Exception("*Nincs CRM ügy!")
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aCRM_O_CreateContracts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCRM_O_CreateContracts.Execute
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CreateContracts_CustomizePupUp As CreateContracts_CustomizePupUp = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), CreateContracts_CustomizePupUp))
|
||||
Dim _ContractTemplate As ContractTemplate = _ocur.GetObjectByKey(Of ContractTemplate)(_CreateContracts_CustomizePupUp.ContractTemplate.Oid)
|
||||
|
||||
If _ContractTemplate Is Nothing Then Throw New Exception("*Nem lett beállítva szerzõdés sablon, a folyamat megszakadt!")
|
||||
If _CreateContracts_CustomizePupUp.Controlling Is Nothing Then Throw New Exception("*Nem lett beállítva contollszám, a folyamat megszakadt!")
|
||||
|
||||
Dim _Contracts As Contracts = _onew.CreateObject(Of Contracts)()
|
||||
|
||||
_Contracts.CRM_Opportunities = _onew.GetObject(_CreateContracts_CustomizePupUp.CRM_Opportunities)
|
||||
_Contracts.ContractTemplate = _onew.GetObject(_ContractTemplate)
|
||||
_Contracts.CustomersFrom = _onew.GetObject(_CreateContracts_CustomizePupUp.CRM_Opportunities.CustomersFrom)
|
||||
_Contracts.Customers = _onew.GetObject(_CreateContracts_CustomizePupUp.CRM_Opportunities.Customers)
|
||||
_Contracts.DateCreated = GetSQLTime(_ocur.Session)
|
||||
_Contracts.State = State.Preparation
|
||||
|
||||
Select Case _CreateContracts_CustomizePupUp.CreateContractsFrom
|
||||
Case eCreateContractsFrom.eOrderInAcknowledgement
|
||||
_Contracts.OrderInAcknowledgementHeader = _ocur.GetObject(TryCast(TryCast(e.PopupWindow.View.SelectedObjects(0), CreateContracts_CustomizePupUp).OrderInAcknowledgementHeader, OrderInAcknowledgementHeader))
|
||||
_Contracts.CurrencyName = _Contracts.OrderInAcknowledgementHeader.OrderInHeader.OrderInParameters.CurrencyName
|
||||
If _CreateContracts_CustomizePupUp.WithOfferInRows Then
|
||||
For Each _OrderInAcknowledgementRows As OrderInAcknowledgementRows In _Contracts.OrderInAcknowledgementHeader.OrderInAcknowledgementRows
|
||||
Dim _ContractRows As ContractRows = _onew.CreateObject(Of ContractRows)()
|
||||
_ContractRows.Contracts = _Contracts
|
||||
_ContractRows.ContractRowsType = eContractRowsType.eFix
|
||||
_ContractRows.CurrencyName = _onew.GetObject(_OrderInAcknowledgementRows.OrderInAcknowledgementHeader.OrderInHeader.OrderInParameters.CurrencyName)
|
||||
_ContractRows.Description = _OrderInAcknowledgementRows.Description
|
||||
_ContractRows.NettoPriceDEV = _OrderInAcknowledgementRows.SumPriceDEV
|
||||
_ContractRows.NettoPriceHUF = _OrderInAcknowledgementRows.SumPriceHUF
|
||||
_ContractRows.PaymentOption = _ocur.GetObject(_OrderInAcknowledgementRows.OrderInAcknowledgementHeader.PaymentOption)
|
||||
_ContractRows.QTT = _OrderInAcknowledgementRows.QTT
|
||||
_ContractRows.QualityOption = _onew.GetObject(_OrderInAcknowledgementRows.QualityOption)
|
||||
_ContractRows.RowGroup1 = _OrderInAcknowledgementRows.RowGroup1
|
||||
_ContractRows.RowGroup2 = _OrderInAcknowledgementRows.RowGroup2
|
||||
_ContractRows.ShipmentOption = _onew.GetObject(_OrderInAcknowledgementRows.OrderInAcknowledgementHeader.ShipmentOption)
|
||||
_ContractRows.Units = _onew.GetObject(_OrderInAcknowledgementRows.Units)
|
||||
_ContractRows.VAT = _onew.GetObject(_OrderInAcknowledgementRows.VAT)
|
||||
_ContractRows.ShortName = _OrderInAcknowledgementRows.ShortName
|
||||
_ContractRows.Controlling = _onew.GetObject(_CreateContracts_CustomizePupUp.Controlling)
|
||||
_ContractRows.DateExecution = _OrderInAcknowledgementRows.DateExecution
|
||||
Next
|
||||
End If
|
||||
Case eCreateContractsFrom.eOfferOutHeader
|
||||
_Contracts.OfferOutHeader = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), CreateContracts_CustomizePupUp).OfferOutHeader)
|
||||
_Contracts.CurrencyName = _onew.GetObject(_Contracts.OfferOutHeader.CurrencyName)
|
||||
|
||||
If _CreateContracts_CustomizePupUp.WithOfferInRows Then
|
||||
For Each _OfferOutRows As OfferOutRows In _Contracts.OfferOutHeader.OfferOutRows
|
||||
Dim _ContractRows As ContractRows = _onew.CreateObject(Of ContractRows)()
|
||||
_ContractRows.Contracts = _Contracts
|
||||
|
||||
_ContractRows.ContractRowsType = eContractRowsType.eFix
|
||||
_ContractRows.CurrencyName = _onew.GetObject(_Contracts.CurrencyName)
|
||||
_ContractRows.Description = _OfferOutRows.Description
|
||||
_ContractRows.NettoPriceDEV = _OfferOutRows.SumPriceDEV
|
||||
_ContractRows.NettoPriceHUF = _OfferOutRows.SumPriceHUF
|
||||
_ContractRows.PaymentOption = _onew.GetObject(_OfferOutRows.OfferOutHeader.PaymentOption)
|
||||
_ContractRows.QTT = _OfferOutRows.QTT
|
||||
_ContractRows.QualityOption = _onew.GetObject(_OfferOutRows.QualityOption)
|
||||
_ContractRows.RowGroup1 = _OfferOutRows.RowGroup1
|
||||
_ContractRows.RowGroup2 = _OfferOutRows.RowGroup2
|
||||
_ContractRows.ShipmentOption = _onew.GetObject(_OfferOutRows.OfferOutHeader.ShipmentOption)
|
||||
_ContractRows.Units = _onew.GetObject(_OfferOutRows.Units)
|
||||
_ContractRows.VAT = _onew.GetObject(_OfferOutRows.VAT)
|
||||
_ContractRows.ShortName = _OfferOutRows.ShortName
|
||||
_ContractRows.Controlling = _onew.GetObject(_CreateContracts_CustomizePupUp.Controlling)
|
||||
_ContractRows.DateExecution = _OfferOutRows.OfferOutHeader.DateExecution
|
||||
Next
|
||||
End If
|
||||
|
||||
End Select
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Contracts_DetailView", True, _Contracts)
|
||||
e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Információ")
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aCRM_O_Set_Registry_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_Set_Registry.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
|
||||
If _RegistryTasks IsNot Nothing Then
|
||||
If _RegistryTasks.RegistryHeader.CRM_Opportunities Is Nothing Then
|
||||
_RegistryTasks.RegistryHeader.CRM_Opportunities = _CRM_Opportunities
|
||||
End If
|
||||
End If
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
Private Sub aCRM_O_UnSet_Registry_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_UnSet_Registry.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
|
||||
If _RegistryTasks IsNot Nothing Then
|
||||
If _RegistryTasks.RegistryHeader.CRM_Opportunities IsNot Nothing Then
|
||||
_RegistryTasks.RegistryHeader.CRM_Opportunities = Nothing
|
||||
End If
|
||||
End If
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
Private Sub aCRM_O_RecalculateEstimatedRevenue_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_RecalculateEstimatedRevenue.Execute
|
||||
'// A kimenõ ajánlatok alapján újraszámolja a becsült bevétel nagyságát
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities
|
||||
Dim _OfferOutHeader As OfferOutHeader
|
||||
|
||||
|
||||
For Each _CRM_Opportunities In View.SelectedObjects
|
||||
|
||||
If _CRM_Opportunities.OfferOutHeader.Count > 0 Then
|
||||
_CRM_Opportunities.EstimatedRevenueHUF = 0
|
||||
_CRM_Opportunities.EstimatedRevenue = 0
|
||||
For Each _OfferOutHeader In _CRM_Opportunities.OfferOutHeader
|
||||
If _OfferOutHeader.OfferOutState = eOfferOutState.eInProgress Or _OfferOutHeader.OfferOutState = eOfferOutState.eInThinkingOf Then
|
||||
_CRM_Opportunities.EstimatedRevenueHUF += _OfferOutHeader.SumPriceHUF
|
||||
|
||||
If _OfferOutHeader.CurrencyName Is _CRM_Opportunities.EstimatedCurrencyName Then
|
||||
_CRM_Opportunities.EstimatedRevenue += _OfferOutHeader.SumPriceDEV
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
Private Sub aCRM_O_CreateBusinessDirectoryTask_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCRM_O_CreateBusinessDirectoryTask.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory)
|
||||
Dim _CRM_O_CreateBusinessDirectoryTask_PopUp As New CRM_O_CreateBusinessDirectoryTask_PopUp(_onew.Session)
|
||||
With _CRM_O_CreateBusinessDirectoryTask_PopUp
|
||||
.StartDate = GetSQLTime(_onew.Session)
|
||||
.Status = General.TaskStatus.NotStarted
|
||||
.Subject = _BusinessDirectory.ShortName
|
||||
.Description = _BusinessDirectory.TaskDescription
|
||||
End With
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "CRM_O_CreateBusinessDirectoryTask_PopUp_DetailView", True, _CRM_O_CreateBusinessDirectoryTask_PopUp)
|
||||
End Sub
|
||||
Private Sub aCRM_O_CreateBusinessDirectoryTask_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCRM_O_CreateBusinessDirectoryTask.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CRM_Opportunities)
|
||||
|
||||
If _CRM_Opportunities Is Nothing Then Exit Sub
|
||||
|
||||
Dim _CRM_O_CreateBusinessDirectoryTask_PopUp As CRM_O_CreateBusinessDirectoryTask_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), CRM_O_CreateBusinessDirectoryTask_PopUp)
|
||||
Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory)
|
||||
|
||||
Dim _CRM_Leads_Activity_Task As New CRM_Leads_Activity_Task(_ocur.Session)
|
||||
With _CRM_Leads_Activity_Task
|
||||
.CRM_Opportunities = _CRM_Opportunities
|
||||
.MasterKey = _BusinessDirectory.Oid
|
||||
.Description = _CRM_O_CreateBusinessDirectoryTask_PopUp.Description
|
||||
.StartDate = _CRM_O_CreateBusinessDirectoryTask_PopUp.StartDate
|
||||
.DueDate = _CRM_O_CreateBusinessDirectoryTask_PopUp.DueDate
|
||||
.Subject = _CRM_O_CreateBusinessDirectoryTask_PopUp.Subject
|
||||
.Status = _CRM_O_CreateBusinessDirectoryTask_PopUp.Status
|
||||
.HRPerson = _ocur.GetObjectByKey(Of HRPerson)(_CRM_O_CreateBusinessDirectoryTask_PopUp.HRPerson.Oid)
|
||||
.AlertPeriod = _ocur.GetObjectByKey(Of AlertPeriod)(_CRM_O_CreateBusinessDirectoryTask_PopUp.AlertPeriod.Oid)
|
||||
End With
|
||||
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
|
||||
Private Sub aCRM_O_CRM_O_Customers_New_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCRM_O_CRM_O_Customers_New.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _Customers_CollectionSource As New CollectionSource(_onew, GetType(Customers))
|
||||
|
||||
e.View = Application.CreateListView("Customers_ListView", _Customers_CollectionSource, True)
|
||||
End Sub
|
||||
Private Sub aCRM_O_CRM_O_Customers_New_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCRM_O_CRM_O_Customers_New.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CRM_Opportunities)
|
||||
If _CRM_Opportunities IsNot Nothing Then
|
||||
For Each _Customers As Customers In e.PopupWindow.View.SelectedObjects
|
||||
Dim _CRM_Opportunities_Customers As New CRM_Opportunities_Customers(_ocur.Session)
|
||||
With _CRM_Opportunities_Customers
|
||||
.CRM_Opportunities = _CRM_Opportunities
|
||||
.Customers = _ocur.GetObject(_Customers)
|
||||
End With
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame)
|
||||
If nestedFrame IsNot Nothing Then
|
||||
Dim parentView As View = nestedFrame.View
|
||||
If parentView IsNot Nothing Then parentView.ObjectSpace.Refresh()
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aCRM_O_CRM_O_CustomersContacts_New_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCRM_O_CRM_O_CustomersContacts_New.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CRM_Opportunities)
|
||||
|
||||
Dim _Contacts_CollectionSource As New CollectionSource(_onew, GetType(Contacts))
|
||||
|
||||
Dim _Filter As String = "Oid in("
|
||||
|
||||
For Each _CRM_Opportunities_Customers As CRM_Opportunities_Customers In _CRM_Opportunities.CRM_Opportunities_Customers
|
||||
For Each _Contacts As Contacts In _CRM_Opportunities_Customers.Customers.Contacts
|
||||
_Filter += "'" + _Contacts.Oid.ToString + "', "
|
||||
Next
|
||||
Next
|
||||
|
||||
If _Filter.Length > 7 Then
|
||||
_Filter = _Filter.Remove(_Filter.Length - 2, 2)
|
||||
_Filter += ")"
|
||||
Else
|
||||
_Filter = "1=2"
|
||||
End If
|
||||
|
||||
_Contacts_CollectionSource.BeginUpdateCriteria()
|
||||
_Contacts_CollectionSource.Criteria.Add("First", CriteriaOperator.Parse(_Filter))
|
||||
_Contacts_CollectionSource.EndUpdateCriteria()
|
||||
|
||||
e.View = Application.CreateListView("Contacts_ListView", _Contacts_CollectionSource, True)
|
||||
End Sub
|
||||
Private Sub aCRM_O_CRM_O_CustomersContacts_New_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCRM_O_CRM_O_CustomersContacts_New.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CRM_Opportunities)
|
||||
If _CRM_Opportunities IsNot Nothing Then
|
||||
For Each _Contacts As Contacts In e.PopupWindow.View.SelectedObjects
|
||||
Dim _CRM_Opportunities_CustomersContacts As New CRM_Opportunities_CustomersContacts(_ocur.Session)
|
||||
With _CRM_Opportunities_CustomersContacts
|
||||
.CRM_Opportunities = _CRM_Opportunities
|
||||
.Contacts = _ocur.GetObject(_Contacts)
|
||||
End With
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aCRM_O_CRM_O_CustomersContacts_Delete_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCRM_O_CRM_O_CustomersContacts_Delete.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
_ocur.Delete(View.SelectedObjects)
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
End Sub
|
||||
Private Sub aCRM_O_CRM_O_Customers_Delete_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCRM_O_CRM_O_Customers_Delete.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CRM_Opportunities)
|
||||
|
||||
For Each _CRM_Opportunities_Customers As CRM_Opportunities_Customers In View.SelectedObjects
|
||||
Dim _CRM_Opportunities_CustomersContacts_Collection As New DevExpress.Xpo.XPCollection(Of CRM_Opportunities_CustomersContacts) _
|
||||
(_ocur.Session, CriteriaOperator.Parse("CRM_Opportunities=? AND Contacts.Customers=?", _CRM_Opportunities, _CRM_Opportunities_Customers.Customers))
|
||||
|
||||
If _CRM_Opportunities_CustomersContacts_Collection.Count > 0 Then _ocur.Delete(_CRM_Opportunities_CustomersContacts_Collection)
|
||||
|
||||
_ocur.Delete(_CRM_Opportunities_Customers)
|
||||
Next
|
||||
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
End Class
|
||||
+64
@@ -0,0 +1,64 @@
|
||||
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 eContactsRoles
|
||||
eDecisionMakingProject = 0 ' Project döntéshozó
|
||||
eAdministrator = 1 ' Adminisztrációs munkatárs
|
||||
eDecisionMakingFinancial = 2 'Pénzügyi döntéshozó
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class CRM_Opportunities_Contacts_Roles
|
||||
Inherits BaseObject
|
||||
Private _CRM_Opportunities As CRM_Opportunities
|
||||
Private _Contacts As Contacts
|
||||
Private _ContactsRoles As eContactsRoles
|
||||
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("CRM_Opportunities-CRM_Opportunities_Contacts_Roles", GetType(CRM_Opportunities))> _
|
||||
Property CRM_Opportunities As CRM_Opportunities
|
||||
Get
|
||||
Return _CRM_Opportunities
|
||||
End Get
|
||||
Set(value As CRM_Opportunities)
|
||||
SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value)
|
||||
End Set
|
||||
End Property
|
||||
'<RuleUniqueValue("CRM_Opportunities_Contacts_Roles.Contact.RuleUniqueValue", DefaultContexts.Save, CriteriaEvaluationBehavior:=PersistentCriteriaEvaluationBehavior.BeforeTransaction, _
|
||||
' targetcriteria:="'@This.Contacts.Oid'=Oid")> _
|
||||
<ImmediatePostData(True), DataSourceCriteria("'@This.CRM_Opportunities.Customers' = Customers")>
|
||||
Property Contacts As Contacts
|
||||
Get
|
||||
Return _Contacts
|
||||
End Get
|
||||
Set(value As Contacts)
|
||||
SetPropertyValue("Contacts", _Contacts, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ContactsRoles As eContactsRoles
|
||||
Get
|
||||
Return _ContactsRoles
|
||||
End Get
|
||||
Set(value As eContactsRoles)
|
||||
SetPropertyValue("ContactsRoles", _ContactsRoles, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,44 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
Public Class CRM_Opportunities_Customers
|
||||
Inherits BaseObject
|
||||
|
||||
Private _CRM_Opportunities As CRM_Opportunities
|
||||
Private _Customers As Customers
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
<RuleRequiredField("CRM_Opportunities_Customers - CRM_Opportunities", DefaultContexts.Save)> _
|
||||
Property CRM_Opportunities As CRM_Opportunities
|
||||
Get
|
||||
Return _CRM_Opportunities
|
||||
End Get
|
||||
Set(value As CRM_Opportunities)
|
||||
SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRM_Opportunities_Customers - CustomersOrder", DefaultContexts.Save)> _
|
||||
Property Customers As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+44
@@ -0,0 +1,44 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
Public Class CRM_Opportunities_CustomersContacts
|
||||
Inherits BaseObject
|
||||
|
||||
Private _CRM_Opportunities As CRM_Opportunities
|
||||
Private _Contacts As Contacts
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
<RuleRequiredField("CRM_Opportunities_CustomersContacts - CRM_Opportunities", DefaultContexts.Save)> _
|
||||
Property CRM_Opportunities As CRM_Opportunities
|
||||
Get
|
||||
Return _CRM_Opportunities
|
||||
End Get
|
||||
Set(value As CRM_Opportunities)
|
||||
SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRM_Opportunities_CustomersContacts - Contacts", DefaultContexts.Save)> _
|
||||
Property Contacts As Contacts
|
||||
Get
|
||||
Return _Contacts
|
||||
End Get
|
||||
Set(value As Contacts)
|
||||
SetPropertyValue("Contacts", _Contacts, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,96 @@
|
||||
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
|
||||
+49
@@ -0,0 +1,49 @@
|
||||
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("CRM")> _
|
||||
Public Class CRM_Opportunities_Probability
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Private _Probability As Long
|
||||
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
|
||||
<RuleRequiredField("CRM_Opportunities_Probability-ShortName", DefaultContexts.Save)> _
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRange("CRM_Opportunities_Probability-Probability", DefaultContexts.Save, 0, 100)> _
|
||||
Property Probability As Long
|
||||
Get
|
||||
Return _Probability
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("Probability", _Probability, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,67 @@
|
||||
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 CRM_Opportunities_Products 'CRM-hez rendelt termékek
|
||||
Inherits BaseObject
|
||||
Private _CRM_Opportunities As CRM_Opportunities
|
||||
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 _Products As Products
|
||||
|
||||
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("CRM_Opportunities-CRM_Opportunities_Products", GetType(CRM_Opportunities))> _
|
||||
Property CRM_Opportunities As CRM_Opportunities
|
||||
Get
|
||||
Return _CRM_Opportunities
|
||||
End Get
|
||||
Set(value As CRM_Opportunities)
|
||||
SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, 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 Products As Products
|
||||
Get
|
||||
Return _Products
|
||||
End Get
|
||||
Set(value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,67 @@
|
||||
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 CRM_Opportunities_Services 'CRM-hez rendelt termékek
|
||||
Inherits BaseObject
|
||||
Private _CRM_Opportunities As CRM_Opportunities
|
||||
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 _Services As Services
|
||||
|
||||
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("CRM_Opportunities-CRM_Opportunities_Services", GetType(CRM_Opportunities))> _
|
||||
Property CRM_Opportunities As CRM_Opportunities
|
||||
Get
|
||||
Return _CRM_Opportunities
|
||||
End Get
|
||||
Set(value As CRM_Opportunities)
|
||||
SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, 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 Services As Services
|
||||
Get
|
||||
Return _Services
|
||||
End Get
|
||||
Set(value As Services)
|
||||
SetPropertyValue("Services", _Services, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,11 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<ClassDiagram MajorVersion="1" MinorVersion="1">
|
||||
<Class Name="Nuvolar.Module.CRM_Leads_Activity">
|
||||
<Position X="1.25" Y="0.5" Width="1.5" />
|
||||
<TypeIdentifier>
|
||||
<HashCode>AAAAAAAAAAAAAMAAAAAAAAAAAAKAAAAAACAAAAAAAAA=</HashCode>
|
||||
<FileName>BusinessObjects\CRM\Classical\CRM_Leads_Activity.vb</FileName>
|
||||
</TypeIdentifier>
|
||||
</Class>
|
||||
<Font Name="Segoe UI" Size="9" />
|
||||
</ClassDiagram>
|
||||
+30
@@ -0,0 +1,30 @@
|
||||
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()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class CRM_Leads_Activity_Task_Popup
|
||||
Inherits BaseObject
|
||||
|
||||
Property HRPerson As HRPerson 'Felelõs
|
||||
Property EventType As eEventType 'Aktivitás tipusa
|
||||
Property Subject As String 'Tárgy
|
||||
Property DueDate As Date 'Határidõ
|
||||
<Size(-1)> Property Description As String 'Leírás
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
End Class
|
||||
+24
@@ -0,0 +1,24 @@
|
||||
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 CRM_Leads_Actvity_Completed_Popup
|
||||
Inherits BaseObject
|
||||
<Size(-1)> Property Description As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
End Class
|
||||
+41
@@ -0,0 +1,41 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NonPersistent()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class CRM_Leads_DisQualification
|
||||
Inherits BaseObject
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
Private _DisQualificationLeadStatus As eDisQualificationLeadStatus
|
||||
|
||||
Property DisQualificationLeadStatus As eDisQualificationLeadStatus
|
||||
Get
|
||||
Return _DisQualificationLeadStatus
|
||||
End Get
|
||||
Set(value As eDisQualificationLeadStatus)
|
||||
SetPropertyValue("DisQualificationLeadStatus", _DisQualificationLeadStatus, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
|
||||
Public Enum eDisQualificationLeadStatus
|
||||
Lost = 1
|
||||
CannotContact = 2
|
||||
NoLongerInterested = 3
|
||||
Canceled = 4
|
||||
End Enum
|
||||
+25
@@ -0,0 +1,25 @@
|
||||
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 CRM_Leads_Qualification
|
||||
Inherits BaseObject
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
<NonPersistent()> Property Contact As Boolean = True
|
||||
<NonPersistent()> Property Customers As Boolean = True
|
||||
<NonPersistent()> Property CreateOpportunities As Boolean = False
|
||||
End Class
|
||||
+90
@@ -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()> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class CRM_O_CreateBusinessDirectoryTask_PopUp
|
||||
Inherits BaseObject
|
||||
|
||||
Private _HRPerson As HRPerson
|
||||
Private _AlertPeriod As AlertPeriod 'Figyelmeztetés
|
||||
Private _Status As General.TaskStatus
|
||||
Private _StartDate As Date
|
||||
Private _DueDate As Date
|
||||
Private _Subject As String
|
||||
Private _Description As String
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property HRPerson As HRPerson
|
||||
Get
|
||||
Return _HRPerson
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("HRPerson", _HRPerson, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AlertPeriod As AlertPeriod
|
||||
Get
|
||||
Return _AlertPeriod
|
||||
End Get
|
||||
Set(value As AlertPeriod)
|
||||
SetPropertyValue("AlertPeriod", _AlertPeriod, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Status As General.TaskStatus
|
||||
Get
|
||||
Return _Status
|
||||
End Get
|
||||
Set(value As General.TaskStatus)
|
||||
SetPropertyValue("Status", _Status, value)
|
||||
End Set
|
||||
End Property
|
||||
Property StartDate As Date
|
||||
Get
|
||||
Return _StartDate
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("StartDate", _StartDate, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DueDate As Date
|
||||
Get
|
||||
Return _DueDate
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DueDate", _DueDate, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Subject As String
|
||||
Get
|
||||
Return _Subject
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Subject", _Subject, 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
|
||||
+27
@@ -0,0 +1,27 @@
|
||||
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> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class CRM_Opportunities_Change_PopUp
|
||||
Inherits BaseObject
|
||||
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
+103
@@ -0,0 +1,103 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NonPersistent()> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
<Appearance("Hide CreateContracts_CustomizePupUp-OfferOutHeader properties, when CreateContractsFrom=0 ", AppearanceItemType.ViewItem, "CreateContractsFrom=0", TargetItems:="OfferOutHeader", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide CreateContracts_CustomizePupUp-OrderInAcknowledgementHeader properties, when CreateContractsFrom=1 ", AppearanceItemType.ViewItem, "CreateContractsFrom=1", TargetItems:="OrderInAcknowledgementHeader", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class CreateContracts_CustomizePupUp
|
||||
Inherits BaseObject
|
||||
|
||||
Private _CRM_Opportunities As CRM_Opportunities
|
||||
Private _ContractTemplate As ContractTemplate
|
||||
Private _OrderInAcknowledgementHeader As OrderInAcknowledgementHeader
|
||||
Private _OfferOutHeader As OfferOutHeader
|
||||
Private _WithOfferInRows As Boolean
|
||||
Private _CreateContractsFrom As eCreateContractsFrom
|
||||
Private _Controlling As Controlling
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
WithOfferInRows = False
|
||||
End Sub
|
||||
|
||||
<Browsable(False)> _
|
||||
Property CRM_Opportunities As CRM_Opportunities
|
||||
Get
|
||||
Return _CRM_Opportunities
|
||||
End Get
|
||||
Set(value As CRM_Opportunities)
|
||||
SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("'@This.CRM_Opportunities.CustomersFrom'=CustomersFrom AND IsCRM='True' AND PartnerType='0'")>
|
||||
Property ContractTemplate As ContractTemplate
|
||||
Get
|
||||
Return _ContractTemplate
|
||||
End Get
|
||||
Set(value As ContractTemplate)
|
||||
SetPropertyValue("ContractTemplate", _ContractTemplate, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("'@This.CRM_Opportunities'=OrderInHeader.CRM_Opportunities")>
|
||||
Property OrderInAcknowledgementHeader As OrderInAcknowledgementHeader
|
||||
Get
|
||||
Return _OrderInAcknowledgementHeader
|
||||
End Get
|
||||
Set(value As OrderInAcknowledgementHeader)
|
||||
SetPropertyValue("OrderInAcknowledgementHeader", _OrderInAcknowledgementHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("'@This.CRM_Opportunities'=CRM_Opportunities")>
|
||||
Property OfferOutHeader As OfferOutHeader
|
||||
Get
|
||||
Return _OfferOutHeader
|
||||
End Get
|
||||
Set(value As OfferOutHeader)
|
||||
SetPropertyValue("OfferOutHeader", _OfferOutHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property WithOfferInRows As Boolean
|
||||
Get
|
||||
Return _WithOfferInRows
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("WithOfferInRows", _WithOfferInRows, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
Property CreateContractsFrom As eCreateContractsFrom
|
||||
Get
|
||||
Return _CreateContractsFrom
|
||||
End Get
|
||||
Set(value As eCreateContractsFrom)
|
||||
SetPropertyValue("CreateContractsFrom", _CreateContractsFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Controlling As Controlling
|
||||
Get
|
||||
Return _Controlling
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling", _Controlling, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
Public Enum eCreateContractsFrom
|
||||
eOrderInAcknowledgement = 0
|
||||
eOfferOutHeader = 1
|
||||
End Enum
|
||||
Reference in New Issue
Block a user