First create solution

2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
@@ -0,0 +1,76 @@
+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.Win.Editors
+Imports DevExpress.ExpressApp.Scheduler.Win
+Imports DevExpress.XtraScheduler
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.General
+Imports DevExpress.Data.Filtering
+Imports DevExpress.Persistent.BaseImpl
+
+Public Class SchedulerVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Private scheduler As SchedulerControl
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnViewControlsCreated()
+        MyBase.OnViewControlsCreated()
+        If View.Id = "Contacts_CRM_Leads_Activity_ListView" Then
+            ' Access the current List View 
+            Dim currentView As ListView = CType(View, ListView)
+            ' Access the View's List Editor as a SchedulerListEditor 
+            Dim listEditor As SchedulerListEditor = CType(currentView.Editor, SchedulerListEditor)
+            '  Access the LOist Editor's ScheudlerControl   
+            scheduler = listEditor.SchedulerControl
+
+            ' Set the desired time to be visible 
+            If Not scheduler Is Nothing Then
+                AddHandler scheduler.Storage.AppointmentInserting, AddressOf AppointmentInserting
+            End If
+        End If
+
+    End Sub
+    Sub AppointmentInserting(sender As Object, e As DevExpress.XtraScheduler.PersistentObjectCancelEventArgs)
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _Appointment As Appointment
+        Dim _CRM_Leads_Activity As CRM_Leads_Activity
+        Dim _Contacts As Contacts = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Contacts)
+        Dim _CRM_Leads As CRM_Leads
+        Dim currentUser As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
+
+        If _Contacts IsNot Nothing Then
+            _Appointment = TryCast(e.Object, Appointment)
+
+            If _Contacts.CRM_Leads Is Nothing Then
+                _CRM_Leads = _ocur.CreateObject(Of CRM_Leads)()
+                _CRM_Leads.Contacts = _Contacts
+                _CRM_Leads.FirstName = _Contacts.FirstName
+                _CRM_Leads.LastName = _Contacts.LastName
+                _CRM_Leads.HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", currentUser))
+                _CRM_Leads.CRM_FirstMeet = _ocur.FindObject(Of CRM_FirstMeet)(CriteriaOperator.Parse("DefaultforBusiness=True"))
+                _CRM_Leads.LeadStatus = eLeadStatus.Qualified
+            End If
+            _CRM_Leads_Activity = _ocur.CreateObject(Of CRM_Leads_Activity)()
+            _CRM_Leads_Activity.CRM_Leads = _Contacts.CRM_Leads
+            _CRM_Leads_Activity.EventType = eEventType.eMeeting
+            _CRM_Leads_Activity.Subject = _Appointment.Subject
+            _CRM_Leads_Activity.StartOn = _Appointment.Start
+            _CRM_Leads_Activity.EndOn = _Appointment.End
+        End If
+        _ocur.CommitChanges()
+
+    End Sub
+End Class