First create solution

Nuvolar.Module/Controllers/Interfaces/CentralListView/ModelListView.vb

@@ -0,0 +1,110 @@
+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), DeferredDeletion(False)> _
+Public Class ModelListView
+    Inherits BaseObject
+    Private _MasterObject As Guid
+    Private _EditorType As String
+    Private _IsFooterVisible As Boolean
+    Private _IsGroupPanelVisible As Boolean
+    Private _ShowAutoFilterRow As Boolean
+    Private _ShowFindPanel As Boolean
+    Private _Id As String
+    Private _PivotSettings As String
+    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 MasterObject As Guid
+        Get
+            Return _MasterObject
+        End Get
+        Set(value As Guid)
+            SetPropertyValue("MasterObject", _MasterObject, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property EditorType As String
+        Get
+            Return _EditorType
+        End Get
+        Set(value As String)
+            SetPropertyValue("EditorType", _EditorType, value)
+        End Set
+    End Property
+    Property IsFooterVisible As Boolean
+        Get
+            Return _IsFooterVisible
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsFooterVisible", _IsFooterVisible, value)
+        End Set
+    End Property
+    Property IsGroupPanelVisible As Boolean
+        Get
+            Return _IsGroupPanelVisible
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsGroupPanelVisible", _IsGroupPanelVisible, value)
+        End Set
+    End Property
+    Property ShowAutoFilterRow As Boolean
+        Get
+            Return _ShowAutoFilterRow
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("ShowAutoFilterRow", _ShowAutoFilterRow, value)
+        End Set
+    End Property
+    Property ShowFindPanel As Boolean
+        Get
+            Return _ShowFindPanel
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("ShowFindPanel", _ShowFindPanel, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property Id As String
+        Get
+            Return _Id
+        End Get
+        Set(value As String)
+            SetPropertyValue("Id", _Id, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property PivotSettings As String
+        Get
+            Return _PivotSettings
+        End Get
+        Set(value As String)
+            SetPropertyValue("PivotSettings", _PivotSettings, value)
+        End Set
+    End Property
+
+    ReadOnly Property ModelListViewColumn As XPCollection(Of ModelListViewColumn)
+        Get
+            Return New XPCollection(Of ModelListViewColumn)(Session, CriteriaOperator.Parse("ModelListView=?", Me))
+        End Get
+    End Property
+End Class

Nuvolar.Module/Controllers/Interfaces/CentralListView/ModelListViewColumn.vb

@@ -0,0 +1,292 @@
+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(), CreatableItem(False), NavigationItem(False), DeferredDeletion(False)> _
+Public Class ModelListViewColumn
+    Inherits BaseObject
+    Private _ModelListView As ModelListView
+    Private _HideValueIfZero As Boolean
+    Private _InLineCriteria As String
+    Private _InLineEdit As Boolean
+    Private _PropertyEditorType As String
+    Private _AllowEdit As Boolean
+    Private _AllowSort As Boolean
+    Private _GroupInterval As DevExpress.ExpressApp.Model.GroupInterval
+    Private _ImmediatePostData As Boolean
+    Private _IsPassword As Boolean
+    Private _LookupEditorMode As DevExpress.Persistent.Base.LookupEditorMode
+    Private _SortOrder As DevExpress.Data.ColumnSortOrder
+    Private _DataSourceCriteria As String
+    Private _DataSourceProperty As String
+    Private _DataSourcePropertyIsNullCriteria As String
+    Private _LookupProperty As String
+    Private _ModelMember As String
+    Private _PropertyName As String
+    Private _DisplayFormat As String
+    Private _EditMask As String
+    Private _GroupIndex As Long
+    Private _MaxLength As Long
+    Private _SortIndex As Long
+    Private _Width As Long
+    Private _Caption As String
+    Private _GroupFooterSummaryType As DevExpress.Data.SummaryItemType
+    Private _Id As String
+    Private _Index 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
+
+    Property ModelListView As ModelListView
+        Get
+            Return _ModelListView
+        End Get
+        Set(value As ModelListView)
+            SetPropertyValue("ModelListView", _ModelListView, value)
+        End Set
+    End Property
+    Property HideValueIfZero As Boolean
+        Get
+            Return _HideValueIfZero
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("HideValueIfZero", _HideValueIfZero, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property InLineCriteria As String
+        Get
+            Return _InLineCriteria
+        End Get
+        Set(value As String)
+            SetPropertyValue("InLineCriteria", _InLineCriteria, value)
+        End Set
+    End Property
+    Property InLineEdit As Boolean
+        Get
+            Return _InLineEdit
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("InLineEdit", _InLineEdit, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property PropertyEditorType As String
+        Get
+            Return _PropertyEditorType
+        End Get
+        Set(value As String)
+            SetPropertyValue("PropertyEditorType", _PropertyEditorType, value)
+        End Set
+    End Property
+    Property AllowEdit As Boolean
+        Get
+            Return _AllowEdit
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("AllowEdit", _AllowEdit, value)
+        End Set
+    End Property
+    Property AllowSort As Boolean
+        Get
+            Return _AllowSort
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("AllowSort", _AllowSort, value)
+        End Set
+    End Property
+    Property GroupInterval As DevExpress.ExpressApp.Model.GroupInterval
+        Get
+            Return _GroupInterval
+        End Get
+        Set(value As DevExpress.ExpressApp.Model.GroupInterval)
+            SetPropertyValue("GroupInterval", _GroupInterval, value)
+        End Set
+    End Property
+    Property ImmediatePostData As Boolean
+        Get
+            Return _ImmediatePostData
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("ImmediatePostData", _ImmediatePostData, value)
+        End Set
+    End Property
+    Property IsPassword As Boolean
+        Get
+            Return _IsPassword
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsPassword", _IsPassword, value)
+        End Set
+    End Property
+    Property LookupEditorMode As DevExpress.Persistent.Base.LookupEditorMode
+        Get
+            Return _LookupEditorMode
+        End Get
+        Set(value As DevExpress.Persistent.Base.LookupEditorMode)
+            SetPropertyValue("LookupEditorMode", _LookupEditorMode, value)
+        End Set
+    End Property
+    Property SortOrder As DevExpress.Data.ColumnSortOrder
+        Get
+            Return _SortOrder
+        End Get
+        Set(value As DevExpress.Data.ColumnSortOrder)
+            SetPropertyValue("SortOrder", _SortOrder, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property DataSourceCriteria As String
+        Get
+            Return _DataSourceCriteria
+        End Get
+        Set(value As String)
+            SetPropertyValue("DataSourceCriteria", _DataSourceCriteria, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property DataSourceProperty As String
+        Get
+            Return _DataSourceProperty
+        End Get
+        Set(value As String)
+            SetPropertyValue("DataSourceProperty", _DataSourceProperty, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property DataSourcePropertyIsNullCriteria As String
+        Get
+            Return _DataSourcePropertyIsNullCriteria
+        End Get
+        Set(value As String)
+            SetPropertyValue("DataSourcePropertyIsNullCriteria", _DataSourcePropertyIsNullCriteria, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property LookupProperty As String
+        Get
+            Return _LookupProperty
+        End Get
+        Set(value As String)
+            SetPropertyValue("LookupProperty", _LookupProperty, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property ModelMember As String
+        Get
+            Return _ModelMember
+        End Get
+        Set(value As String)
+            SetPropertyValue("ModelMember", _ModelMember, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property PropertyName As String
+        Get
+            Return _PropertyName
+        End Get
+        Set(value As String)
+            SetPropertyValue("PropertyName", _PropertyName, value)
+        End Set
+    End Property
+    Property DisplayFormat As String
+        Get
+            Return _DisplayFormat
+        End Get
+        Set(value As String)
+            SetPropertyValue("DisplayFormat", _DisplayFormat, value)
+        End Set
+    End Property
+    Property EditMask As String
+        Get
+            Return _EditMask
+        End Get
+        Set(value As String)
+            SetPropertyValue("EditMask", _EditMask, value)
+        End Set
+    End Property
+    Property GroupIndex As Long
+        Get
+            Return _GroupIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("GroupIndex", _GroupIndex, value)
+        End Set
+    End Property
+    Property MaxLength As Long
+        Get
+            Return _MaxLength
+        End Get
+        Set(value As Long)
+            SetPropertyValue("MaxLength", _MaxLength, value)
+        End Set
+    End Property
+    Property SortIndex As Long
+        Get
+            Return _SortIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("SortIndex", _SortIndex, value)
+        End Set
+    End Property
+    Property Width As Long
+        Get
+            Return _Width
+        End Get
+        Set(value As Long)
+            SetPropertyValue("Width", _Width, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property Caption As String
+        Get
+            Return _Caption
+        End Get
+        Set(value As String)
+            SetPropertyValue("Caption", _Caption, value)
+        End Set
+    End Property
+    Property GroupFooterSummaryType As DevExpress.Data.SummaryItemType
+        Get
+            Return _GroupFooterSummaryType
+        End Get
+        Set(value As DevExpress.Data.SummaryItemType)
+            SetPropertyValue("GroupFooterSummaryType", _GroupFooterSummaryType, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property Id As String
+        Get
+            Return _Id
+        End Get
+        Set(value As String)
+            SetPropertyValue("Id", _Id, value)
+        End Set
+    End Property
+    Property Index As Long
+        Get
+            Return _Index
+        End Get
+        Set(value As Long)
+            SetPropertyValue("Index", _Index, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/Controllers/Interfaces/ChangeLogon.vb

@@ -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
+Imports DevExpress.ExpressApp.Security
+Public Enum eSQLType
+    MSSQL = 0
+    MySQL = 1
+    PostgreSQL = 2
+End Enum
+Public Interface ILogonConnection
+    Property DBConnection() As String
+    Property SQLServer As String
+    Property SQLType As eSQLType
+    Property Company As String
+End Interface
+<NonPersistent()> _
+ Public Class ChangeLogon
+    Inherits AuthenticationStandardLogonParameters
+    Implements ILogonConnection
+    Private _DBConnection As String
+    Private _SQLServer As String
+    Private _SQLType As eSQLType
+    Private _Company As String
+    Public Property DBConnection() As String Implements ILogonConnection.DBConnection
+        Get
+            Return _DBConnection
+        End Get
+        Set(ByVal value As String)
+            _DBConnection = value
+        End Set
+    End Property
+    Property SQLServer As String Implements ILogonConnection.SQLServer
+        Get
+            Return _SQLServer
+        End Get
+        Set(ByVal value As String)
+            _SQLServer = value
+        End Set
+    End Property
+    Property SQLType As eSQLType Implements ILogonConnection.SQLType
+        Get
+            Return _SQLType
+        End Get
+        Set(value As eSQLType)
+            _SQLType = value
+        End Set
+    End Property
+    Property Company As String Implements ILogonConnection.Company
+        Get
+            Return _Company
+        End Get
+        Set(value As String)
+            _Company = value
+        End Set
+    End Property
+End Class
+

Nuvolar.Module/Controllers/Interfaces/DefaultDateYearInCriteriaEnum.vb

@@ -0,0 +1,6 @@
+
+Public Enum DefaultDateYearInCriteriaEnum
+    CurrentYearOnly = 0
+    CurrentYearAndPrevYear = 1
+    NotSet = -1
+End Enum

Nuvolar.Module/Controllers/Interfaces/IModelActionExtender.vb

@@ -0,0 +1,19 @@
+Imports Microsoft.VisualBasic
+Imports DevExpress.Data
+Imports System.ComponentModel
+Imports DevExpress.ExpressApp.DC
+Imports DevExpress.ExpressApp.Model
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Templates
+
+
+#Region "INTERFACE"
+Public Interface IModelActionExtender
+    <Category("SIS")> Property SISGroup1 As String
+    <Category("SIS")> Property SISGroup2 As String
+    <Category("SIS")> Property SISDescription As String
+    Property FocusItem As String
+    <DefaultValue(True)> Property VisibleInCompany As Boolean
+End Interface
+#End Region

Nuvolar.Module/Controllers/Interfaces/IModelClassAllowSort.vb

@@ -0,0 +1,17 @@
+Imports System.ComponentModel
+
+Public Interface IModelClassAllowSort
+    <Category("Behavior")> Property DefaultListViewAllowSort() As Boolean
+
+    <Category("SIS"), DefaultValue(False)> Property NonPersistent As Boolean
+    <Category("SIS"), DefaultValue(False)> Property IsPopup As Boolean
+    <Category("SIS")> Property SISGroup1 As String
+    <Category("SIS")> Property SISGroup2 As String
+    <Category("SIS"), Editor(GetType(Nuvolar.Module.SISHtmlEditor), GetType(System.Drawing.Design.UITypeEditor))> Property SISDescription As String
+
+    <Category("ObjectLocking"), DefaultValue(False)> Property LockObjectBeforeEdit As Boolean ' 
+    <Category("ObjectLocking"), Localizable(True)> Property LockObjectBeforeEditErrorString As String
+
+    <Category("DateYearInFilter"), DefaultValue(False)> Property DefaultDateYearInFilter As Boolean 'Az a képesség, hogy ListView esetén van-e automatikusan adott évre filter szûrõ
+    <Category("DateYearInFilter")> Property DefaultDateYearInFilterProperty As String 'Az a képesség, hogy ListView esetén van-e automatikusan adott évre szûrõ és melyik a dátum szûrése !
+End Interface

Nuvolar.Module/Controllers/Interfaces/IModelColumnAllowSort.vb

@@ -0,0 +1,5 @@
+Imports System.ComponentModel
+
+Public Interface IModelColumnAllowSort
+    <Category("Behavior")> Property AllowSort() As Boolean
+End Interface

Nuvolar.Module/Controllers/Interfaces/IModelColumnExtender.vb

@@ -0,0 +1,20 @@
+Imports DevExpress.Data
+Imports System.ComponentModel
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.ExpressApp
+
+Public Interface IModelColumnExtender
+    <DefaultValue(SummaryItemType.None)>
+    Property GroupFooterSummaryType() As SummaryItemType
+    <Category("Appearance"), DefaultValue(False)>
+    Property InLineEdit As Boolean
+    <Category("Appearance"), CriteriaOptionsAttribute("ParentView.ModelClass.TypeInfo"), Editor("DevExpress.ExpressApp.Win.Core.ModelEditor.CriteriaModelEditorControl, DevExpress.ExpressApp.Win" & XafApplication.CurrentVersion, GetType(System.Drawing.Design.UITypeEditor))>
+    Property InLineCriteria As String
+    <DefaultValue(False)>
+    <Category("Appearance")>
+    Property InLineEditAutoCommit As Boolean
+    <Category("Appearance"), DefaultValue(False)>
+    Property HideValueIfZero As Boolean
+    '// ModelMember.Type -> a mezõ tipusára vonatkoztatva
+    '// ParentView.ModelClass.TypeInfo -> a ListView objektumára vonatkoztatva
+End Interface

Nuvolar.Module/Controllers/Interfaces/IModelColumnExtenderLogic.vb

@@ -0,0 +1,13 @@
+Imports DevExpress.ExpressApp.DC
+Imports DevExpress.ExpressApp.Model
+
+<DomainLogic(GetType(IModelColumnExtender))>
+Public NotInheritable Class IModelColumnExtenderLogic
+    Public Shared Function Get_HideValueIfZero(ByVal modelColumn As IModelColumn) As Boolean
+        If modelColumn.ModelMember IsNot Nothing Then
+            Return (CType(modelColumn.ModelMember, IModelMemberAllowSort)).HideValueIfZero
+        Else
+            Return False
+        End If
+    End Function
+End Class

Nuvolar.Module/Controllers/Interfaces/IModelDetailViewExtender.vb

@@ -0,0 +1,5 @@
+Imports System.ComponentModel
+
+Public Interface IModelDetailViewExtender
+    <DefaultValue("")> Property Hints As String
+End Interface

Nuvolar.Module/Controllers/Interfaces/IModelListViewAllowSort.vb

@@ -0,0 +1,10 @@
+Imports System.ComponentModel
+
+Public Interface IModelListViewAllowSort
+    <Category("Behavior")> Property AllowSort() As Boolean
+
+    <Category("SIS"), DefaultValue(True)> Property IsListViewProcess As Boolean
+    <Category("SIS"), DefaultValue(False)> Property RowAutoHeight As Boolean
+
+
+End Interface

Nuvolar.Module/Controllers/Interfaces/IModelListViewExtender.vb

@@ -0,0 +1,27 @@
+Imports System.ComponentModel
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.ExpressApp
+
+Public Interface IModelListViewExtender
+    <DefaultValue(True)> Property IsGroupFooterVisible() As Boolean
+    <CriteriaOptionsAttribute("ModelClass.TypeInfo"), Editor("DevExpress.ExpressApp.Win.Core.ModelEditor.CriteriaModelEditorControl, DevExpress.ExpressApp.Win" & XafApplication.CurrentVersion, GetType(System.Drawing.Design.UITypeEditor))> Property AdditionalCriteria As String
+    <DefaultValue(False)> Property RequireCriteriaBeforeView As Boolean
+    <DefaultValue("Filter for the {0} ListView")> Property RequireCriteriaBeforeViewCaption As String
+    <CriteriaOptionsAttribute("ModelClass.TypeInfo"), Editor("DevExpress.ExpressApp.Win.Core.ModelEditor.CriteriaModelEditorControl, DevExpress.ExpressApp.Win" & XafApplication.CurrentVersion, GetType(System.Drawing.Design.UITypeEditor))> Property RequireCriteriaBeforeViewCriteria As String
+    <DefaultValue("{0}: [#image]{1} {2}")> Property GridViewGroupFormat As String
+    <DefaultValue(False), Category("Misc")> Property IsCentralListView As Boolean
+    <DefaultValue(True), Category("TreeList")> Property TreeListEnableFiltering As Boolean
+    <Category("DateYearInFilter"), DefaultValue(False)> Property DefaultDateYearInFilter As Boolean 'Az a képesség, hogy ListView esetén van-e automatikusan adott évre filter szûrõ
+    <Category("DateYearInFilter")> Property DefaultDateYearInFilterProperty As String 'Az a képesség, hogy ListView esetén van-e automatikusan adott évre szûrõ és melyik a dátum szûrése !
+    <DefaultValue(True)> Overloads Property IsFooterVisible As Boolean
+    <DefaultValue("")> Property Hints As String
+
+    '// Grid nyomtatáshoz
+    '// {0} CustomersFrom.FullName alapértelmezettbõl !
+    <Category("GridPrint"), DefaultValue(""), Localizable(True)> Property HeaderLeft As String
+    <Category("GridPrint"), DefaultValue(""), Localizable(True)> Property HeaderCenter As String
+    <Category("GridPrint"), DefaultValue(""), Localizable(True)> Property HeaderRight As String
+    <Category("GridPrint"), DefaultValue(""), Localizable(True)> Property FooterLeft As String
+    <Category("GridPrint"), DefaultValue(""), Localizable(True)> Property FooterCenter As String
+    <Category("GridPrint"), DefaultValue(""), Localizable(True)> Property FooterRight As String
+End Interface

Nuvolar.Module/Controllers/Interfaces/IModelListViewExtenderLogic.vb

@@ -0,0 +1,90 @@
+Imports DevExpress.ExpressApp.DC
+Imports DevExpress.ExpressApp.Model
+
+#Region "DOMAIN LOGIC"
+<DomainLogic(GetType(IModelListViewExtender))>
+Public NotInheritable Class IModelListViewExtenderLogic
+    Public Shared Function Get_DefaultDateYearInFilter(ByVal modelListView As IModelListView) As Boolean
+        If modelListView.ModelClass IsNot Nothing Then
+            Return (CType(modelListView.ModelClass, IModelClassAllowSort)).DefaultDateYearInFilter
+        Else
+            Return False
+        End If
+    End Function
+    Public Shared Function Get_DefaultDateYearInFilterProperty(ByVal modelListView As IModelListView) As String
+        If modelListView.ModelClass IsNot Nothing Then
+            Return (CType(modelListView.ModelClass, IModelClassAllowSort)).DefaultDateYearInFilterProperty
+        Else
+            Return ""
+        End If
+    End Function
+    Public Shared Function Get_HeaderLeft(ByVal modelListView As IModelListView) As String
+        If modelListView.Application IsNot Nothing Then
+            If modelListView.Application.Options IsNot Nothing Then
+                Return TryCast(modelListView.Application.Options, IModelOptionsExtender).HeaderLeft
+            Else
+                Return ""
+            End If
+        Else
+            Return ""
+        End If
+    End Function
+    Public Shared Function Get_HeaderCenter(ByVal modelListView As IModelListView) As String
+        If modelListView.Application IsNot Nothing Then
+            If modelListView.Application.Options IsNot Nothing Then
+                Return TryCast(modelListView.Application.Options, IModelOptionsExtender).HeaderCenter
+            Else
+                Return ""
+            End If
+        Else
+            Return ""
+        End If
+    End Function
+    Public Shared Function Get_HeaderRight(ByVal modelListView As IModelListView) As String
+        If modelListView.Application IsNot Nothing Then
+            If modelListView.Application.Options IsNot Nothing Then
+                Return TryCast(modelListView.Application.Options, IModelOptionsExtender).HeaderRight
+            Else
+                Return ""
+            End If
+        Else
+            Return ""
+        End If
+    End Function
+    Public Shared Function Get_FooterLeft(ByVal modelListView As IModelListView) As String
+        If modelListView.Application IsNot Nothing Then
+            If modelListView.Application.Options IsNot Nothing Then
+                Return TryCast(modelListView.Application.Options, IModelOptionsExtender).FooterLeft
+            Else
+                Return ""
+            End If
+        Else
+            Return ""
+        End If
+    End Function
+    Public Shared Function Get_FooterCenter(ByVal modelListView As IModelListView) As String
+        If modelListView.Application IsNot Nothing Then
+            If modelListView.Application.Options IsNot Nothing Then
+                Return TryCast(modelListView.Application.Options, IModelOptionsExtender).FooterCenter
+            Else
+                Return ""
+            End If
+        Else
+            Return ""
+        End If
+    End Function
+    Public Shared Function Get_FooterRight(ByVal modelListView As IModelListView) As String
+        If modelListView.Application IsNot Nothing Then
+            If modelListView.Application.Options IsNot Nothing Then
+                Return TryCast(modelListView.Application.Options, IModelOptionsExtender).FooterRight
+            Else
+                Return ""
+            End If
+        Else
+            Return ""
+        End If
+    End Function
+
+End Class
+
+#End Region

Nuvolar.Module/Controllers/Interfaces/IModelMemberAllowSort.vb

@@ -0,0 +1,10 @@
+Imports System.ComponentModel
+
+Public Interface IModelMemberAllowSort
+    <Category("Behavior")> Property AllowSort() As Boolean
+
+    <Category("Format"), DefaultValue(False)> Property AllowRounding() As Boolean
+    <Category("Format"), DefaultValue(4)> Property RoundingTo() As Long
+
+    <Category("Appearance"), DefaultValue(False)> Property HideValueIfZero As Boolean
+End Interface

Nuvolar.Module/Controllers/Interfaces/IModelOptionsExtender.vb

@@ -0,0 +1,18 @@
+Imports System.ComponentModel
+
+
+Public Interface IModelOptionsExtender
+    <Category("SIS"), DefaultValue(False)> Property RequreMinimumPriceCheck As Boolean
+    <Category("SIS"), DefaultValue("C:\Users\Public\Documents\")> Property DefaultCustomersFileFolder As String
+    <Category("SIS"), DefaultValue("C:\Users\Public\Documents\")> Property DefaultproductsFileFolder As String
+    <Category("SIS")> Property NAVProgramPath As String
+    <Category("SIS")> Property ExternalBrowserPath As String
+
+    <Category("GridPrint"), DefaultValue("{0}"), Localizable(True)> Property HeaderLeft As String
+    <Category("GridPrint"), DefaultValue("{1}"), Localizable(True)> Property HeaderCenter As String
+    <Category("GridPrint"), DefaultValue("[Lap # / Összes lap #]"), Localizable(True)> Property HeaderRight As String
+    <Category("GridPrint"), DefaultValue(""), Localizable(True)> Property FooterLeft As String
+    <Category("GridPrint"), DefaultValue(""), Localizable(True)> Property FooterCenter As String
+    <Category("GridPrint"), DefaultValue(""), Localizable(True)> Property FooterRight As String
+
+End Interface

Nuvolar.Module/Controllers/Interfaces/ModelClassAllowSortLogic.vb

@@ -0,0 +1,22 @@
+Imports DevExpress.ExpressApp.DC
+Imports DevExpress.ExpressApp.Model
+
+
+
+<DomainLogic(GetType(IModelClassAllowSort))>
+Public NotInheritable Class ModelClassAllowSortLogic
+    Public Shared Function Get_DefaultListViewAllowSort(ByVal modelClass As IModelClass) As Boolean
+        If modelClass Is Nothing Then
+            Return True
+        End If
+        If modelClass.TypeInfo Is Nothing Then
+            Return True
+        End If
+        Dim attribute As AllowSortAttribute = modelClass.TypeInfo.FindAttribute(Of AllowSortAttribute)()
+        If attribute IsNot Nothing Then
+            Return attribute.AllowSort
+        Else
+            Return True
+        End If
+    End Function
+End Class

Nuvolar.Module/Controllers/Interfaces/ModelColumnAllowSortLogic.vb

@@ -0,0 +1,13 @@
+Imports DevExpress.ExpressApp.DC
+Imports DevExpress.ExpressApp.Model
+
+<DomainLogic(GetType(IModelColumnAllowSort))>
+Public NotInheritable Class ModelColumnAllowSortLogic
+    Public Shared Function Get_AllowSort(ByVal modelColumn As IModelColumn) As Boolean
+        If modelColumn.ModelMember IsNot Nothing Then
+            Return (CType(modelColumn.ModelMember, IModelMemberAllowSort)).AllowSort
+        Else
+            Return True
+        End If
+    End Function
+End Class

Nuvolar.Module/Controllers/Interfaces/ModelListViewAllowSortLogic.vb

@@ -0,0 +1,9 @@
+Imports DevExpress.ExpressApp.DC
+Imports DevExpress.ExpressApp.Model
+
+<DomainLogic(GetType(IModelListViewAllowSort))>
+Public NotInheritable Class ModelListViewAllowSortLogic
+    Public Shared Function Get_AllowSort(ByVal modelListView As IModelListView) As Boolean
+        Return (CType(modelListView.ModelClass, IModelClassAllowSort)).DefaultListViewAllowSort
+    End Function
+End Class

Nuvolar.Module/Controllers/Interfaces/ModelMemberAllowSortLogic.vb

@@ -0,0 +1,21 @@
+Imports DevExpress.ExpressApp.DC
+Imports DevExpress.ExpressApp.Model
+
+<DomainLogic(GetType(IModelMemberAllowSort))>
+Public NotInheritable Class ModelMemberAllowSortLogic
+    Public Shared Function Get_AllowSort(ByVal modelMember As IModelMember) As Boolean
+        If modelMember Is Nothing Then
+            Return True
+        Else
+            If modelMember.MemberInfo Is Nothing Then
+                Return True
+            End If
+            Dim attribute As AllowSortAttribute = modelMember.MemberInfo.FindAttribute(Of AllowSortAttribute)()
+            If attribute IsNot Nothing Then
+                Return attribute.AllowSort
+            Else
+                Return True
+            End If
+        End If
+    End Function
+End Class