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,32 @@
+Partial Class CustomersVC
+
+	<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()
+		components = New System.ComponentModel.Container()
+	End Sub
+
+End Class
@@ -0,0 +1,73 @@
+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 System.Windows.Forms
+Imports DevExpress.Data.Filtering
+Imports DevExpress.Persistent.BaseImpl
+
+Public Class CustomersVC
+    Inherits Nuvolar.Module.CustomersVC
+    Dim _WaitFormClass As New WaitFormClass
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overloads Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        AddHandler DoWork, AddressOf _WaitFormClass.DoWork
+        AddHandler InitWork, AddressOf _WaitFormClass.Initwork
+        AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork
+
+        If View.Id = "Customers_DetailView" Then
+            For Each editor As PropertyEditor In (CType(View, DetailView)).GetItems(Of PropertyEditor)()
+                If editor.PropertyName = "Name" Then
+                    AddHandler editor.ControlCreated, AddressOf editor_ControlCreated
+                    Exit For
+                End If
+            Next editor
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
+        RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork
+        RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork
+    End Sub
+    Private Sub editor_ControlCreated(ByVal sender As Object, ByVal e As EventArgs)
+        ' You can access the corresponding property editor control by the following code:
+        Dim editorControl As Control = TryCast((CType(sender, PropertyEditor)).Control, Control)
+        AddHandler editorControl.HandleCreated, AddressOf editorControl_HandleCreated
+
+        Dim _Name As DevExpress.XtraEditors.TextEdit = TryCast(editorControl, DevExpress.XtraEditors.TextEdit)
+        If _Name IsNot Nothing Then
+            AddHandler _Name.LostFocus, AddressOf Name_LostFocus
+        End If
+    End Sub
+    Private Sub editorControl_HandleCreated(ByVal sender As Object, ByVal e As EventArgs)
+        ' Sometimes it is necessary to access editor's control after it is visible (its handle is created).
+        RemoveHandler (CType(sender, Control)).HandleCreated, AddressOf editorControl_HandleCreated
+    End Sub
+    Private Sub Name_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)
+        On Error Resume Next
+
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _Customers = TryCast(View.SelectedObjects(0), Customers)
+
+        If _Customers IsNot Nothing Then
+            If _Customers.FullName = "" Then _Customers.FullName = sender.text
+        End If
+
+    End Sub
+End Class