Reconfigure for GIT

SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory.vb

@@ -0,0 +1,258 @@
+Imports System
+Imports System.ComponentModel
+Imports Microsoft.VisualBasic
+Imports DevExpress.Xpo
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.Persistent.Base.General
+Imports DevExpress.ExpressApp.Utils
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<DefaultClassOptions()> _
+<Appearance("Hide Dashboard UserName and Password, when IsDashBoard=False", AppearanceItemType.ViewItem, "IsDashBoard = False", TargetItems:="DashBoard_Database;DashBoard_Server;DashBoard_UserName;DashBoard_Password;SQLType", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class BusinessDirectory
+    Inherits BaseObject
+    Implements ITreeNode, ITreeNodeImageProvider
+
+    Private _BusinessDirectory_Parent As BusinessDirectory
+    Private _ShortName As String
+    Private _IsFolder As Boolean
+    Private _FileData As FileData
+    Private _FileCreated As Date
+    Private _FileModified As Date
+    Private _Completed As Boolean 'További tennivaló van -e?
+    Private _TaskDescription As String
+    Private _EMail_Sender As String
+    Private _Email_Copy As String
+    Private _IsDashBoard As Boolean
+    Private _DashBoard_Server As String
+    Private _DashBoard_Database As String
+    Private _DashBoard_UserName As String
+    Private _DashBoard_Password As String
+    Private _SQLType As eSQLType
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        IsFolder = True
+        IsDashBoard = False
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If FileData IsNot Nothing Then
+            IsFolder = False
+            If String.IsNullOrEmpty(ShortName) Then ShortName = FileData.FileName
+        Else
+            IsFolder = True
+        End If
+    End Sub
+    <Association("BusinessDirectory-BusinessDirectory")> _
+    Property BusinessDirectory_Parent As BusinessDirectory
+        Get
+            Return _BusinessDirectory_Parent
+        End Get
+        Set(value As BusinessDirectory)
+            SetPropertyValue("BusinessDirectory_Parent", _BusinessDirectory_Parent, value)
+        End Set
+    End Property
+    <RuleRequiredField("BusinessDirectory - ShortName", DefaultContexts.Save)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    <VisibleInDetailView(False)> _
+    Property IsFolder As Boolean
+        Get
+            Return _IsFolder
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsFolder", _IsFolder, value)
+            If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then
+                If value And Session.IsNewObject(Me) Then
+                    Completed = True
+                Else
+                    Completed = False
+                End If
+            End If
+        End Set
+    End Property
+    Property FileData As FileData
+        Get
+            Return _FileData
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("FileData", _FileData, 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
+    Property Completed As Boolean
+        Get
+            Return _Completed
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Completed", _Completed, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property TaskDescription As String
+        Get
+            Return _TaskDescription
+        End Get
+        Set(value As String)
+            SetPropertyValue("TaskDescription", _TaskDescription, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property EMail_Sender As String
+        Get
+            Return _EMail_Sender
+        End Get
+        Set(value As String)
+            SetPropertyValue("EMail_Sender", _EMail_Sender, value)
+        End Set
+    End Property
+    <Size(900)> _
+    Property Email_Copy As String
+        Get
+            Return _Email_Copy
+        End Get
+        Set(value As String)
+            SetPropertyValue("Email_Copy", _Email_Copy, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property IsDashBoard As Boolean
+        Get
+            Return _IsDashBoard
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsDashBoard", _IsDashBoard, value)
+        End Set
+    End Property
+    <RuleRequiredField("BusinessDirectory - DashBoard_Server", DefaultContexts.Save, TargetCriteria:="IsDashBoard=True")> _
+    Property DashBoard_Server As String
+        Get
+            Return _DashBoard_Server
+        End Get
+        Set(value As String)
+            SetPropertyValue("DashBoard_Server", _DashBoard_Server, value)
+        End Set
+    End Property
+    <RuleRequiredField("BusinessDirectory - DashBoard_Database", DefaultContexts.Save, TargetCriteria:="IsDashBoard=True")> _
+    Property DashBoard_Database As String
+        Get
+            Return _DashBoard_Database
+        End Get
+        Set(value As String)
+            SetPropertyValue("DashBoard_Database", _DashBoard_Database, value)
+        End Set
+    End Property
+    <RuleRequiredField("BusinessDirectory - DashBoard_UserName", DefaultContexts.Save, TargetCriteria:="IsDashBoard=True")> _
+    Property DashBoard_UserName As String
+        Get
+            Return _DashBoard_UserName
+        End Get
+        Set(value As String)
+            SetPropertyValue("DashBoard_UserName", _DashBoard_UserName, value)
+        End Set
+    End Property
+    <RuleRequiredField("BusinessDirectory - DashBoard_Password", DefaultContexts.Save, TargetCriteria:="IsDashBoard=True")> _
+    <PasswordPropertyText(True)> _
+    <ValueConverter(GetType(Encryption))> _
+    Property DashBoard_Password As String
+        Get
+            Return _DashBoard_Password
+        End Get
+        Set(value As String)
+            SetPropertyValue("DashBoard_Password", _DashBoard_Password, value)
+        End Set
+    End Property
+    <RuleRequiredField("BusinessDirectory - SQLType", DefaultContexts.Save, TargetCriteria:="IsDashBoard=True")> _
+    Property SQLType As eSQLType
+        Get
+            Return _SQLType
+        End Get
+        Set(value As eSQLType)
+            SetPropertyValue("SQLType", _SQLType, value)
+        End Set
+    End Property
+
+    <Association("BusinessDirectory-BusinessDirectory"), Aggregated()> _
+    Public ReadOnly Property NestedBusinessDirectory() As XPCollection(Of BusinessDirectory)
+        Get
+            Return GetCollection(Of BusinessDirectory)("NestedBusinessDirectory")
+        End Get
+    End Property
+
+#Region "ITreeNode Members"
+    Public ReadOnly Property Children() As IBindingList Implements ITreeNode.Children
+        Get
+            Return NestedBusinessDirectory
+        End Get
+    End Property
+    Private ReadOnly Property Name() As String Implements ITreeNode.Name
+        Get
+            Return ShortName
+        End Get
+    End Property
+    Public ReadOnly Property Parent() As ITreeNode Implements ITreeNode.Parent
+        Get
+            Return BusinessDirectory_Parent
+        End Get
+    End Property
+#End Region
+
+#Region "ITreeNodeImageProvider Members"
+    Public Function GetImage(ByRef imageName As String) As System.Drawing.Image Implements DevExpress.Persistent.Base.General.ITreeNodeImageProvider.GetImage
+        If IsFolder Then
+            If NestedBusinessDirectory IsNot Nothing AndAlso NestedBusinessDirectory.Count > 0 Then
+                imageName = "Folder_document"
+            Else
+                imageName = "Folder"
+            End If
+        Else
+            Select Case System.IO.Path.GetExtension(FileData.FileName)
+                Case ".msg"
+                    imageName = "mail2"
+                Case ".pdf"
+                    imageName = ""
+                Case ".rtf", ".docx", ".doc"
+                    imageName = "word_icon"
+                Case ".xlsx", ".xls"
+                    imageName = "excel_icon"
+                Case ".xml"
+                    imageName = "Navigation_Item_Dashboard"
+                Case Else
+                    imageName = "BO_FileAttachment"
+            End Select
+        End If
+        Return ImageLoader.Instance.GetImageInfo(imageName).Image
+    End Function
+#End Region
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_Roles.vb

@@ -0,0 +1,46 @@
+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 BusinessDirectory_Roles
+    Inherits BaseObject
+
+    Private _BusinessDirectory As BusinessDirectory
+    Private _Role As Role
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <RuleRequiredField("BusinessDirectory_Roles - BusinessDirectory", DefaultContexts.Save)> _
+    Property BusinessDirectory As BusinessDirectory
+        Get
+            Return _BusinessDirectory
+        End Get
+        Set(value As BusinessDirectory)
+            SetPropertyValue("BusinessDirectory", _BusinessDirectory, value)
+        End Set
+    End Property
+    <RuleRequiredField("BusinessDirectory_Roles - Role", DefaultContexts.Save)> _
+    Property Role As Role
+        Get
+            Return _Role
+        End Get
+        Set(value As Role)
+            SetPropertyValue("Role", _Role, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.Designer.vb

@@ -0,0 +1,129 @@
+Partial Class BusinessDirectory_VC
+
+	<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.aBusinessDirectory_OppenDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBusinessDirectory_OpenDashboardWithViewer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBusinessDirectory_OpenDashboardWithDesigner = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBusinessDirectory_SetRoleDisabled = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aBusinessDirectory_SetRoleEnabled = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aBusinessDirectory_Clone = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBusinessDirectory_NewDashboard = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aBusinessDirectory_OppenDocument
+        '
+        Me.aBusinessDirectory_OppenDocument.Caption = "aBusinessDirectory_OppenDocument"
+        Me.aBusinessDirectory_OppenDocument.Category = "OpenObject"
+        Me.aBusinessDirectory_OppenDocument.ConfirmationMessage = Nothing
+        Me.aBusinessDirectory_OppenDocument.Id = "aBusinessDirectory_OppenDocument"
+        Me.aBusinessDirectory_OppenDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBusinessDirectory_OppenDocument.TargetObjectsCriteria = "IsFolder=False"
+        Me.aBusinessDirectory_OppenDocument.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory)
+        Me.aBusinessDirectory_OppenDocument.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aBusinessDirectory_OppenDocument.ToolTip = Nothing
+        Me.aBusinessDirectory_OppenDocument.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aBusinessDirectory_OpenDashboardWithViewer
+        '
+        Me.aBusinessDirectory_OpenDashboardWithViewer.Caption = "aBusinessDirectory_OpenDashboardWithViewer"
+        Me.aBusinessDirectory_OpenDashboardWithViewer.ConfirmationMessage = Nothing
+        Me.aBusinessDirectory_OpenDashboardWithViewer.Id = "aBusinessDirectory_OpenDashboardWithViewer"
+        Me.aBusinessDirectory_OpenDashboardWithViewer.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBusinessDirectory_OpenDashboardWithViewer.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory)
+        Me.aBusinessDirectory_OpenDashboardWithViewer.ToolTip = Nothing
+        '
+        'aBusinessDirectory_OpenDashboardWithDesigner
+        '
+        Me.aBusinessDirectory_OpenDashboardWithDesigner.Caption = "aBusinessDirectory_OpenDashboardWithDesigner"
+        Me.aBusinessDirectory_OpenDashboardWithDesigner.ConfirmationMessage = Nothing
+        Me.aBusinessDirectory_OpenDashboardWithDesigner.Id = "aBusinessDirectory_OpenDashboardWithDesigner"
+        Me.aBusinessDirectory_OpenDashboardWithDesigner.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBusinessDirectory_OpenDashboardWithDesigner.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory)
+        Me.aBusinessDirectory_OpenDashboardWithDesigner.ToolTip = Nothing
+        '
+        'aBusinessDirectory_SetRoleDisabled
+        '
+        Me.aBusinessDirectory_SetRoleDisabled.AcceptButtonCaption = Nothing
+        Me.aBusinessDirectory_SetRoleDisabled.CancelButtonCaption = Nothing
+        Me.aBusinessDirectory_SetRoleDisabled.Caption = "aBusinessDirectory_SetRoleDisabled"
+        Me.aBusinessDirectory_SetRoleDisabled.ConfirmationMessage = Nothing
+        Me.aBusinessDirectory_SetRoleDisabled.Id = "aBusinessDirectory_SetRoleDisabled"
+        Me.aBusinessDirectory_SetRoleDisabled.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aBusinessDirectory_SetRoleDisabled.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory)
+        Me.aBusinessDirectory_SetRoleDisabled.ToolTip = Nothing
+        '
+        'aBusinessDirectory_SetRoleEnabled
+        '
+        Me.aBusinessDirectory_SetRoleEnabled.AcceptButtonCaption = Nothing
+        Me.aBusinessDirectory_SetRoleEnabled.CancelButtonCaption = Nothing
+        Me.aBusinessDirectory_SetRoleEnabled.Caption = "aBusinessDirectory_SetRoleEnabled"
+        Me.aBusinessDirectory_SetRoleEnabled.ConfirmationMessage = Nothing
+        Me.aBusinessDirectory_SetRoleEnabled.Id = "aBusinessDirectory_SetRoleEnabled"
+        Me.aBusinessDirectory_SetRoleEnabled.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aBusinessDirectory_SetRoleEnabled.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory)
+        Me.aBusinessDirectory_SetRoleEnabled.ToolTip = Nothing
+        '
+        'aBusinessDirectory_Clone
+        '
+        Me.aBusinessDirectory_Clone.Caption = "aBusinessDirectory_Clone"
+        Me.aBusinessDirectory_Clone.ConfirmationMessage = Nothing
+        Me.aBusinessDirectory_Clone.Id = "aBusinessDirectory_Clone"
+        Me.aBusinessDirectory_Clone.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aBusinessDirectory_Clone.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory)
+        Me.aBusinessDirectory_Clone.TargetViewId = "BusinessDirectory_ListView"
+        Me.aBusinessDirectory_Clone.ToolTip = Nothing
+        '
+        'aBusinessDirectory_NewDashboard
+        '
+        Me.aBusinessDirectory_NewDashboard.Caption = "aBusinessDirectory_NewDashboard"
+        Me.aBusinessDirectory_NewDashboard.Category = "ObjectsCreation"
+        Me.aBusinessDirectory_NewDashboard.ConfirmationMessage = Nothing
+        Me.aBusinessDirectory_NewDashboard.Id = "aBusinessDirectory_NewDashboard"
+        Me.aBusinessDirectory_NewDashboard.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory)
+        Me.aBusinessDirectory_NewDashboard.ToolTip = Nothing
+        '
+        'BusinessDirectory_VC
+        '
+        Me.Actions.Add(Me.aBusinessDirectory_OppenDocument)
+        Me.Actions.Add(Me.aBusinessDirectory_OpenDashboardWithViewer)
+        Me.Actions.Add(Me.aBusinessDirectory_OpenDashboardWithDesigner)
+        Me.Actions.Add(Me.aBusinessDirectory_SetRoleDisabled)
+        Me.Actions.Add(Me.aBusinessDirectory_SetRoleEnabled)
+        Me.Actions.Add(Me.aBusinessDirectory_Clone)
+        Me.Actions.Add(Me.aBusinessDirectory_NewDashboard)
+
+    End Sub
+    Public WithEvents aBusinessDirectory_SetRoleDisabled As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Public WithEvents aBusinessDirectory_SetRoleEnabled As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Public WithEvents aBusinessDirectory_OppenDocument As DevExpress.ExpressApp.Actions.SimpleAction
+    Public WithEvents aBusinessDirectory_OpenDashboardWithViewer As DevExpress.ExpressApp.Actions.SimpleAction
+    Public WithEvents aBusinessDirectory_OpenDashboardWithDesigner As DevExpress.ExpressApp.Actions.SimpleAction
+    Public WithEvents aBusinessDirectory_Clone As DevExpress.ExpressApp.Actions.SimpleAction
+    Public WithEvents aBusinessDirectory_NewDashboard As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.resx

@@ -0,0 +1,144 @@
+<?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="aBusinessDirectory_OppenDocument.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aBusinessDirectory_OpenDashboardWithViewer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aBusinessDirectory_OpenDashboardWithDesigner.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aBusinessDirectory_SetRoleDisabled.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aBusinessDirectory_SetRoleEnabled.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aBusinessDirectory_Clone.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aBusinessDirectory_NewDashboard.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>472, 286</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.vb

@@ -0,0 +1,212 @@
+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 System.Xml
+Imports DevExpress.Xpo
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.CloneObject
+
+Public Class BusinessDirectory_VC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        If View.Id = "Role_ListView_BusinessDirectory" Then
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "Role_ListView_BusinessDirectory" Then
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+        End If
+    End Sub
+    Private Sub aBusinessDirectory_OppenDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OppenDocument.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory)
+            ProcessDocument(_BusinessDirectory.FileData)
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")
+        End Try
+    End Sub
+    Private Sub ProcessDocument(_DocumentFile As DevExpress.Persistent.BaseImpl.FileData)
+        Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _DocumentFile.FileName)
+        Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create)
+        _DocumentFile.SaveToStream(_Stream)
+        _Stream.Close()
+        If IO.Path.GetExtension(_FilePath).Replace(".", "").ToUpper = "XML" Then
+
+            'Dim _Arguments As String
+            'Select Case GLOBAL_SQLType
+            '    Case eSQLType.MSSQL
+            '        _Arguments = """" & _FilePath + """ " + GLOBAL_SQLUser + " " + GLOBAL_SQLPassword + " MSSQL " + GLOBAL_SQLDatabase + " " + GLOBAL_SQLServer
+            '    Case eSQLType.MySQL
+            '        _Arguments = """" & _FilePath + """ " + GLOBAL_SQLUser + " " + GLOBAL_SQLPassword + " MySQL " + GLOBAL_SQLDatabase + " " + GLOBAL_SQLServer
+            '    Case eSQLType.PostgreSQL
+            '        _Arguments = """" & _FilePath + """ " + GLOBAL_SQLUser + " " + GLOBAL_SQLPassword + " PostgreSQL " + GLOBAL_SQLDatabase + " " + GLOBAL_SQLServer
+            'End Select
+
+            'Process.Start(GLOBAL_ApplicationStartupPath + "DashBoardViewer.exe", _Arguments)
+        Else
+
+            Process.Start(_FilePath)
+        End If
+    End Sub
+    Private Sub aBusinessDirectory_OpenDashboardWithViewer_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OpenDashboardWithViewer.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory)
+
+        Dim _Dashboard As New Dashboard(_onew.Session)
+        With _Dashboard
+            .DashboardViewMode = DashboardViewMode.Viewer
+            .UserName = _BusinessDirectory.DashBoard_UserName
+            .Password = _BusinessDirectory.DashBoard_Password
+            .SQLServer = _BusinessDirectory.DashBoard_Server
+            .Database = _BusinessDirectory.DashBoard_Database
+            .XMLFileData = _onew.GetObject(_BusinessDirectory.FileData)
+            .SQLType = _BusinessDirectory.SQLType
+
+        End With
+
+        e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Dashboard_DetailView_Viewer", True, _Dashboard)
+    End Sub
+    Private Sub aBusinessDirectory_OpenDashboardWithDesigner_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OpenDashboardWithDesigner.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory)
+
+        Dim _Dashboard As New Dashboard(_onew.Session)
+        With _Dashboard
+            .DashboardViewMode = DashboardViewMode.Designer
+            .UserName = _BusinessDirectory.DashBoard_UserName
+            .Password = _BusinessDirectory.DashBoard_Password
+            .SQLServer = _BusinessDirectory.DashBoard_Server
+            .Database = _BusinessDirectory.DashBoard_Database
+            .XMLFileData = _onew.GetObject(_BusinessDirectory.FileData)
+            .SQLType = _BusinessDirectory.SQLType
+            .Object_Oid = _BusinessDirectory.Oid.ToString
+            .Object_Type = GetType(BusinessDirectory)
+        End With
+
+        e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Dashboard_DetailView_Designer", True, _Dashboard)
+
+    End Sub
+    Private Sub aBusinessDirectory_SetRoleDisabled_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aBusinessDirectory_SetRoleDisabled.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _Role_Collection As New CollectionSource(_onew, GetType(Role))
+
+        e.View = Application.CreateListView("Role_ListView_BusinessDirectory", _Role_Collection, True)
+    End Sub
+    Private Sub aBusinessDirectory_SetRoleDisabled_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aBusinessDirectory_SetRoleDisabled.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+
+        For Each _Role As Role In e.PopupWindow.View.SelectedObjects
+            For Each _BusinessDirectory As BusinessDirectory In View.SelectedObjects
+                Dim _BusinessDirectory_Roles As New BusinessDirectory_Roles(_ocur.Session)
+                With _BusinessDirectory_Roles
+                    .BusinessDirectory = _BusinessDirectory
+                    .Role = _ocur.GetObjectByKey(Of Role)(_Role.Oid)
+                End With
+            Next
+        Next
+        _ocur.CommitChanges()
+    End Sub
+    Private Sub aBusinessDirectory_SetRoleEnabled_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aBusinessDirectory_SetRoleEnabled.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _Role_Collection As New CollectionSource(_onew, GetType(Role))
+
+        e.View = Application.CreateListView("Role_ListView_BusinessDirectory", _Role_Collection, True)
+    End Sub
+    Private Sub aBusinessDirectory_SetRoleEnabled_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aBusinessDirectory_SetRoleEnabled.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _BusinessDirectory_Roles_DELCollection As New ArrayList
+        For Each _Role As Role In e.PopupWindow.View.SelectedObjects
+            For Each _BusinessDirectory As BusinessDirectory In View.SelectedObjects
+                Dim _BusinessDirectory_Roles As BusinessDirectory_Roles = _ocur.FindObject(Of BusinessDirectory_Roles)(CriteriaOperator.Parse("BusinessDirectory=? AND Role=?", _BusinessDirectory, _ocur.GetObjectByKey(Of Role)(_Role.Oid)))
+                If _BusinessDirectory_Roles IsNot Nothing Then
+                    _BusinessDirectory_Roles_DELCollection.Add(_BusinessDirectory_Roles)
+                End If
+            Next
+        Next
+        _ocur.Delete(_BusinessDirectory_Roles_DELCollection)
+        _ocur.CommitChanges()
+    End Sub
+    Private Sub aBusinessDirectory_Clone_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_Clone.Execute
+        Dim _ocur As Xpo.XPObjectSpace = Application.CreateObjectSpace
+
+        For Each _BusinessDirectory As BusinessDirectory In View.SelectedObjects
+            Dim _BusinessDirectory_New As New BusinessDirectory(_ocur.Session)
+            With _BusinessDirectory_New
+                .BusinessDirectory_Parent = _ocur.GetObject(_BusinessDirectory.Parent)
+                .ShortName = _BusinessDirectory.ShortName + " Másolat"
+                .IsFolder = _BusinessDirectory.IsFolder
+                If _BusinessDirectory.FileData IsNot Nothing Then
+                    Dim _FileName As String = System.IO.Path.GetTempPath() + _BusinessDirectory.FileData.FileName
+                    Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create, System.IO.FileAccess.Write)
+                    _BusinessDirectory.FileData.SaveToStream(_StreamFile)
+                    _StreamFile.Close()
+
+                    .FileData = Nothing
+
+                    .FileData = LoadOtherFile(_FileName, New FileData(_ocur.Session))
+                Else
+                    .FileData = Nothing
+                End If
+
+                .FileCreated = _BusinessDirectory.FileCreated
+                .FileModified = _BusinessDirectory.FileModified
+                .Completed = _BusinessDirectory.Completed
+                .TaskDescription = _BusinessDirectory.TaskDescription
+                .EMail_Sender = _BusinessDirectory.EMail_Sender
+                .Email_Copy = _BusinessDirectory.Email_Copy
+                .IsDashBoard = _BusinessDirectory.IsDashBoard
+                .DashBoard_Server = _BusinessDirectory.DashBoard_Server
+                .DashBoard_Database = _BusinessDirectory.DashBoard_Database
+                .DashBoard_UserName = _BusinessDirectory.DashBoard_UserName
+                .DashBoard_Password = _BusinessDirectory.DashBoard_Password
+                .SQLType = _BusinessDirectory.SQLType
+
+            End With
+            
+        Next
+
+        _ocur.CommitChanges()
+    End Sub
+    Private Function LoadOtherFile(ByVal _ActFile As String, _FileData As FileData) As FileData
+        Dim _StreamFile = New System.IO.FileStream(_ActFile, System.IO.FileMode.Open, System.IO.FileAccess.Read)
+        Dim _StreamReader As New System.IO.StreamReader(_StreamFile)
+        _StreamFile.Seek(0, System.IO.SeekOrigin.Begin)
+
+        _FileData.LoadFromStream(_ActFile, _StreamFile)
+        _FileData.FileName = System.IO.Path.GetFileName(_ActFile)
+        _StreamReader.Close()
+        _StreamFile.Close()
+
+        Return _FileData
+    End Function
+
+  
+    Private Sub aBusinessDirectory_NewDashboard_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_NewDashboard.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _Dashboard As New Dashboard(_onew.Session)
+        With _Dashboard
+            .DashboardViewMode = DashboardViewMode.Designer
+            .IsNewDashboard = True
+        End With
+
+        e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Dashboard_DetailView_Designer", True, _Dashboard)
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/OpenRTFDocument_PopUp.vb

@@ -0,0 +1,61 @@
+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()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<NonPersistent()> _
+<Appearance("OpenRTFDocument_PopUp - Hide BusinessDirectory all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="BusinessDirectory", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("OpenRTFDocument_PopUp - Hide CRM_Opportunities all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="CRM_Opportunities", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("OpenRTFDocument_PopUp - Hide aOpenRTFDocument_SaveBusinessDiretory", AppearanceItemType.Action, "IsNull(CRM_Opportunities)=False", TargetItems:="aOpenRTFDocument_SaveBusinessDiretory", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("OpenRTFDocument_PopUp - Hide aOpenRTFDocument_SaveToCRM_Lead", AppearanceItemType.Action, "IsNull(CRM_Opportunities)", TargetItems:="aOpenRTFDocument_SaveToCRM_Lead", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class OpenRTFDocument_PopUp
+    Inherits BaseObject
+
+    Private _RTFText As String
+    Private _BusinessDirectory As BusinessDirectory
+    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
+
+    <Size(-1)> _
+    Property RTFText As String
+        Get
+            Return _RTFText
+        End Get
+        Set(value As String)
+            SetPropertyValue("RTFText", _RTFText, value)
+        End Set
+    End Property
+    Property BusinessDirectory As BusinessDirectory
+        Get
+            Return _BusinessDirectory
+        End Get
+        Set(value As BusinessDirectory)
+            SetPropertyValue("BusinessDirectory", _BusinessDirectory, 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

SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/OpenSpreadDocument_Popup.vb

@@ -0,0 +1,72 @@
+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), NonPersistent> _
+Public Class OpenSpreadDocument_Popup ' 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 _BusinessDirectory As BusinessDirectory
+    Private _SpreadXML As String
+
+    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 BusinessDirectory As BusinessDirectory
+        Get
+            Return _BusinessDirectory
+        End Get
+        Set(value As BusinessDirectory)
+            SetPropertyValue("BusinessDirectory", _BusinessDirectory, value)
+        End Set
+    End Property
+
+    <Size(-1)> _
+    Property SpreadXML As String
+        Get
+            Return _SpreadXML
+        End Get
+        Set(value As String)
+            SetPropertyValue("SpreadXML", _SpreadXML, 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

SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/RTFDocumentsCreatorHeader.vb

@@ -0,0 +1,37 @@
+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), NonPersistent, CreatableItem(False)> _
+Public Class RTFDocumentsCreatorHeader
+    Inherits BaseObject
+
+
+    Private _RTFDocumentsCreatorRows As IList(Of RTFDocumentsCreatorRows)
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+        _RTFDocumentsCreatorRows = New List(Of RTFDocumentsCreatorRows)
+    End Sub
+
+    Property RTFExportFileType As eRTFExportFileType
+    <Size(255)> Property FileName As String
+    <DataSourceCriteria("IsFolder=True")> _
+    Property BusinessDirectory As BusinessDirectory
+    ReadOnly Property RTFDocumentsCreatorRows As IList(Of RTFDocumentsCreatorRows)
+        Get
+            Return _RTFDocumentsCreatorRows
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/RTFDocumentsCreatorRows.vb

@@ -0,0 +1,26 @@
+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), NonPersistent, CreatableItem(False)> _
+Public Class RTFDocumentsCreatorRows
+    Inherits BaseObject
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property RTFDocumentsCreatorHeader As RTFDocumentsCreatorHeader
+    Property InfoString As String
+    Property ValueString As String
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFCopy.vb

@@ -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(False), CreatableItem(False)> _
+Public Class RTFCopy
+    Inherits BaseObject
+
+    Private _UserCreated As User
+    Private _RTFString As String
+
+    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
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property RTFString As String
+        Get
+            Return _RTFString
+        End Get
+        Set(value As String)
+            SetPropertyValue("RTFString", _RTFString, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsAuditBody.vb

@@ -0,0 +1,32 @@
+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 RTFDocumentsAuditBody
+    Inherits BaseObject
+    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 ModifiedOn As Date
+    Property UserName As String
+    <Size(-1)> Property DocumentBody As String
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandler.vb

@@ -0,0 +1,125 @@
+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()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<Appearance("RTFDocumentsHandler - Disable ObjectCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("RTFDocumentsHandler - Disable UserCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
+Public Class RTFDocumentsHandler
+    Inherits BaseObject
+
+    Private _ShortName As String
+    Private _Version As String
+
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _HRPerson As HRPerson
+
+    Private _DocumentBody As String
+    Private _IsEditable As Boolean = True
+
+    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
+    <RuleRequiredField("RTFDocumentsHandler-ShortName", DefaultContexts.Save)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Version As String
+        Get
+            Return _Version
+        End Get
+        Set(value As String)
+            SetPropertyValue("Version", _Version, 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
+    Property HRPerson As HRPerson
+        Get
+            Return _HRPerson
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson", _HRPerson, value)
+        End Set
+    End Property
+    <Size(-1), ImmediatePostData()> _
+    Property DocumentBody As String
+        Get
+            Return _DocumentBody
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentBody", _DocumentBody, value)
+        End Set
+    End Property
+    Property IsEditable As Boolean
+        Get
+            Return _IsEditable
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsEditable", _IsEditable, value)
+        End Set
+    End Property
+
+    '-------Audit--------------
+    <VisibleInListView(False)> _
+    <VisibleInLookupListView(False)> _
+    ReadOnly Property AuditTrail() As XPCollection(Of AuditDataItemPersistent)
+        Get
+            Return AuditedObjectWeakReference.GetAuditTrail(Session, Me)
+        End Get
+    End Property
+    'Dim _AuditDataItemPersistent_Collection As XPCollection(Of AuditDataItemPersistent)
+    'Dim _AuditDataItemPersistent As AuditDataItemPersistent
+
+    '    If TryCast(_Object, RegistryHeader) IsNot Nothing Then
+    '        _AuditDataItemPersistent_Collection = AuditedObjectWeakReference.GetAuditTrail(_uow, _Object)
+    '        For Each _AuditDataItemPersistent In _AuditDataItemPersistent_Collection
+    '            If _AuditDataItemPersistent.PropertyName = "DocumentNumber" Then
+
+    '            End If
+    '        Next
+    '    End If
+
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandlerVC.Designer.vb

@@ -0,0 +1,52 @@
+Partial Class RTFDocumentsHandlerVC
+
+	<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.aRTFDocumentsHandlerOpenPreviousDocument = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aRTFDocumentsHandlerOpenPreviousDocument
+        '
+        Me.aRTFDocumentsHandlerOpenPreviousDocument.AcceptButtonCaption = Nothing
+        Me.aRTFDocumentsHandlerOpenPreviousDocument.CancelButtonCaption = Nothing
+        Me.aRTFDocumentsHandlerOpenPreviousDocument.Caption = "aRTFDocumentsHandlerOpenPreviousDocument"
+        Me.aRTFDocumentsHandlerOpenPreviousDocument.ConfirmationMessage = Nothing
+        Me.aRTFDocumentsHandlerOpenPreviousDocument.Id = "aRTFDocumentsHandlerOpenPreviousDocument"
+        Me.aRTFDocumentsHandlerOpenPreviousDocument.ImageName = Nothing
+        Me.aRTFDocumentsHandlerOpenPreviousDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aRTFDocumentsHandlerOpenPreviousDocument.Shortcut = Nothing
+        Me.aRTFDocumentsHandlerOpenPreviousDocument.Tag = Nothing
+        Me.aRTFDocumentsHandlerOpenPreviousDocument.TargetObjectsCriteria = Nothing
+        Me.aRTFDocumentsHandlerOpenPreviousDocument.TargetObjectType = GetType(SISBusiness.[Module].RTFDocumentsHandler)
+        Me.aRTFDocumentsHandlerOpenPreviousDocument.TargetViewId = "RTFDocumentsHandler_ListView"
+        Me.aRTFDocumentsHandlerOpenPreviousDocument.ToolTip = Nothing
+        Me.aRTFDocumentsHandlerOpenPreviousDocument.TypeOfView = GetType(DevExpress.ExpressApp.View)
+
+    End Sub
+    Friend WithEvents aRTFDocumentsHandlerOpenPreviousDocument As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandlerVC.resx

@@ -0,0 +1,126 @@
+<?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="aRTFDocumentsHandlerOpenPreviousDocument.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandlerVC.vb

@@ -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.Persistent.BaseImpl
+
+Public Class RTFDocumentsHandlerVC
+	Inherits DevExpress.ExpressApp.ViewController
+
+	Public Sub New()
+		MyBase.New()
+
+		'This call is required by the Component Designer.
+		InitializeComponent()
+		RegisterActions(components) 
+
+    End Sub
+
+    Private Sub aRTFDocumentsHandlerOpenPreviousDocument_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aRTFDocumentsHandlerOpenPreviousDocument.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _RTFDocumentsHandler As RTFDocumentsHandler = TryCast(View.SelectedObjects(0), RTFDocumentsHandler)
+
+            If _RTFDocumentsHandler Is Nothing Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
+            Dim _CS As New CollectionSource(_onew, GetType(RTFDocumentsAuditBody))
+            For Each _AuditDataItemPersistent As AuditDataItemPersistent In _RTFDocumentsHandler.AuditTrail
+                If _AuditDataItemPersistent.PropertyName = "DocumentBody" Then
+                    Dim _RTFDocumentsAuditBody As RTFDocumentsAuditBody = _onew.CreateObject(Of RTFDocumentsAuditBody)()
+                    _RTFDocumentsAuditBody.ModifiedOn = _AuditDataItemPersistent.ModifiedOn
+                    _RTFDocumentsAuditBody.UserName = _AuditDataItemPersistent.UserName
+                    _RTFDocumentsAuditBody.DocumentBody = _AuditDataItemPersistent.NewValue
+
+                    _CS.Add(_RTFDocumentsAuditBody)
+                End If
+            Next
+
+            e.View = Application.CreateListView("RTFDocumentsAuditBody_ListView", _CS, False)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+    Private Sub aRTFDocumentsHandlerOpenPreviousDocument_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRTFDocumentsHandlerOpenPreviousDocument.Execute
+        Try
+
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _RTFDocumentsHandler As RTFDocumentsHandler = TryCast(View.SelectedObjects(0), RTFDocumentsHandler)
+            If _RTFDocumentsHandler Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
+
+            Dim _RTFDocumentsAuditBody As RTFDocumentsAuditBody = TryCast(e.PopupWindow.View.SelectedObjects(0), RTFDocumentsAuditBody)
+
+            Dim _RTFDocumentsHandler_NEW As RTFDocumentsHandler = _onew.CreateObject(Of RTFDocumentsHandler)()
+
+            _RTFDocumentsHandler_NEW.ShortName = _RTFDocumentsHandler.ShortName
+            _RTFDocumentsHandler_NEW.DocumentBody = _RTFDocumentsAuditBody.DocumentBody
+
+            Dim _ShowViewParameters As New ShowViewParameters
+            Dim _ShowViewSource As New ShowViewSource(Frame, Nothing)
+
+            e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "RTFDocumentsHandler_DetailView", True, _RTFDocumentsHandler_NEW)
+            _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild
+            _ShowViewParameters.TargetWindow = TargetWindow.NewWindow
+            Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource)
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+
+   
+End Class