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,97 @@
+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("ToDo")> _
+Public Class MyTasks
+    Inherits Task
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+End Class
+Public Enum eEventType
+    eMeeting = 0 'Találkozás
+    ePhoneConversation = 1 'Telefonbeszélgetés
+    eEmailOut = 2 'Kimenő email
+    eEMailIn = 3 'Bejövő email
+    eAlert = 4 'Figyelmeztetési aktivitás
+    eBusinessDirectory = 5 'Dokumentumtárhely kezelés
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("ToDo")> _
+Public Class MySchedule
+    Inherits [Event]
+    Private _HRPerson As HRPerson
+    Private _EventType As eEventType = eEventType.eMeeting
+    Private _Email_Oid As String 'Objektum string az emailek megkereséséhez
+    Private _ObjectCreated As Date 'Létrehozva
+    Private _UserCreated As User 'Létrehozó
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    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
+    Property HRPerson As HRPerson
+        Get
+            Return _HRPerson
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson", _HRPerson, value)
+        End Set
+    End Property
+    Property EventType As eEventType
+        Get
+            Return _EventType
+        End Get
+        Set(value As eEventType)
+            SetPropertyValue("EventType", _EventType, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property Email_Oid As String
+        Get
+            Return _Email_Oid
+        End Get
+        Set(value As String)
+            SetPropertyValue("Email_Oid", _Email_Oid, 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
+    <VisibleInListView(False)> _
+    <Association("MySchedule-MyScheduleFileData", GetType(MySceduleFileData))> _
+        ReadOnly Property MySceduleFileData As XPCollection(Of MySceduleFileData)
+        Get
+            Return GetCollection(Of MySceduleFileData)("MySceduleFileData")
+        End Get
+    End Property
+End Class