First create solution

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandling.vb

@@ -0,0 +1,243 @@
+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 AssetsHandling 'Kintlévõség kezelés
+    Inherits BaseObject
+    Private _QueueIndex As Long = 0 'Hanyadik a sorban
+    Private _InvoiceHeader As InvoiceHeader 'Bázis objektum, amihez kapcsolódik
+    Private _DateClose As Date 'Záró dátum
+    Private _CustomersFrom As CustomersFrom 'Saját cég
+    Private _Customers As Customers 'Vevõ
+    Private _DocumentNumber As String 'Számlaszám
+    Private _AmountDEV_Account As Double 'Számla eredeti bruttó végösszege (DEV)
+    Private _AmountHUF_Account As Double 'Számla eredeti bruttó végösszege (HUF)
+    Private _BalanceHUF As Double 'Egyenleg (nyitott összeg) HUF
+    Private _BalanceDEV As Double 'Egyenleg (nyitott összeg) DEV
+    Private _DateCreated As Date 'Számla kiáll. dátuma
+    Private _DatePayment As Date 'Számla fiz. hat.
+    Private _DateExecution As Date 'A fizetési felszólítás dátuma
+    Private _DelayedDay As Long 'Késett nap
+    Private _Note As String 'Megjegyzés
+    Private _IsActive As Boolean = False
+    Private _ObjectCreated As Date 'Keletkezés dátuma
+    Private _UserCreated As User 'Létrehozó felhasználó
+    Private _EMailSendQueueRows As EMailSendQueueRows
+
+    Private _LateChargesBalanceHUF As Double 'Késedelmi kamat összege forintban
+
+    Private _CountLateCharges As Boolean = True 'Számolunk-e késedelmi kamatot
+    Private _NoAssetsHandling As Boolean = False 'Nem kell fizetési felszólítás erre a számlára vonatkozólag
+
+    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
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            If Not SecuritySystem.CurrentUser Is Nothing Then
+                _UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+            End If
+        End If
+    End Sub
+
+    Property QueueIndex As Long
+        Get
+            Return _QueueIndex
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("QueueIndex", _QueueIndex, value)
+        End Set
+    End Property
+    Property InvoiceHeader As InvoiceHeader
+        Get
+            Return _InvoiceHeader
+        End Get
+        Set(ByVal value As InvoiceHeader)
+            SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
+        End Set
+    End Property
+    Property DateClose As Date
+        Get
+            Return _DateClose
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateClose", _DateClose, value)
+        End Set
+    End Property
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    Property AmountDEV_Account As Double
+        Get
+            Return _AmountDEV_Account
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountDEV_Account", _AmountDEV_Account, value)
+        End Set
+    End Property
+    Property AmountHUF_Account As Double
+        Get
+            Return _AmountHUF_Account
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUF_Account", _AmountHUF_Account, value)
+        End Set
+    End Property
+    Property BalanceHUF As Double
+        Get
+            Return _BalanceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("BalanceHUF", _BalanceHUF, value)
+        End Set
+    End Property
+    Property BalanceDEV As Double
+        Get
+            Return _BalanceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("BalanceDEV", _BalanceDEV, value)
+        End Set
+    End Property
+    Property DateCreated As Date
+        Get
+            Return _DateCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateCreated", _DateCreated, value)
+        End Set
+    End Property
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property DatePayment As Date
+        Get
+            Return _DatePayment
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DatePayment", _DatePayment, value)
+        End Set
+    End Property
+    Property Note As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Note", _Note, value)
+        End Set
+    End Property
+    Property IsActive As Boolean
+        Get
+            Return _IsActive
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsActive", _IsActive, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(ByVal 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 EMailSendQueueRows As EMailSendQueueRows
+        Get
+            Return _EMailSendQueueRows
+        End Get
+        Set(value As EMailSendQueueRows)
+            SetPropertyValue("EMailSendQueueRows", _EMailSendQueueRows, value)
+        End Set
+    End Property
+
+    Property CountLateCharges As Boolean
+        Get
+            Return _CountLateCharges
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("CountLateCharges", _CountLateCharges, value)
+        End Set
+    End Property
+    Property NoAssetsHandling As Boolean
+        Get
+            Return _NoAssetsHandling
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("NoAssetsHandling", _NoAssetsHandling, value)
+        End Set
+    End Property
+
+    Property LateChargesBalanceHUF As Double
+        Get
+            Return _LateChargesBalanceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("LateChargesBalanceHUF", _LateChargesBalanceHUF, value)
+        End Set
+    End Property
+
+    <Association("AssetsHandlin-AssetsHandlingPCI", GetType(AssetsHandlingPCI)), VisibleInListView(False)> _
+    ReadOnly Property AssetsHandlingPCI As XPCollection(Of AssetsHandlingPCI)
+        Get
+            Return GetCollection(Of AssetsHandlingPCI)("AssetsHandlingPCI")
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingActivity.vb

@@ -0,0 +1,78 @@
+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 AssetsHandlingActivity
+    Inherits BaseObject
+    Private _AssetsHandling As AssetsHandling 'Fejléc objektum
+    Private _ObjectCreated As Date 'Objektum létrehozás dátum idõ
+    Private _UserCreated As User ' Ki csinálta a bejegyzést
+    Private _Note As String 'Megjegyzés
+    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
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            If Not SecuritySystem.CurrentUser Is Nothing Then
+                _UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+            End If
+        End If
+    End Sub
+
+    Property AssetsHandling As AssetsHandling
+        Get
+            Return _AssetsHandling
+        End Get
+        Set(ByVal value As AssetsHandling)
+            SetPropertyValue("AssetsHandling", _AssetsHandling, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(ByVal 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
+    <Size(-1)> _
+    Property Note As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Note", _Note, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPB.vb

@@ -0,0 +1,116 @@
+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 AssetsHandlingCPB
+    Inherits BaseObject
+    Private _Customers As Customers
+
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.row_ConversationType = eConversationType.eNotset
+        Me.row_DateDeadline = GetSQLTime(Session)
+    End Sub
+    Public Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+
+    Private _row_NoteCustomers As String
+    Private _row_NotePrivate As String
+    Private _row_DateDeadline As Date 'Határidõ
+    Private _row_Amount As Double = 0 ' Összeget fizet határidõig 
+    Private _row_AmountPercent As Double '%-ot fizet határidõig
+    Private _row_ConversationType As eConversationType
+
+    <NonPersistent(), Size(-1)> _
+    Property row_NoteCustomers As String
+        Get
+            Return _row_NoteCustomers
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_NoteCustomers", _row_NoteCustomers, value)
+        End Set
+    End Property
+    <NonPersistent(), Size(-1)>
+    Property row_NotePrivate As String
+        Get
+            Return _row_NotePrivate
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_NotePrivate", _row_NotePrivate, value)
+        End Set
+    End Property
+    Property row_DateDeadline As Date
+        Get
+            Return _row_DateDeadline
+        End Get
+        Set(value As Date)
+            SetPropertyValue("row_DateDeadline", _row_DateDeadline, value)
+        End Set
+    End Property
+    Property row_Amount As Double
+        Get
+            Return _row_Amount
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_Amount", _row_Amount, value)
+        End Set
+    End Property
+    Property row_AmountPercent As Double
+        Get
+            Return _row_AmountPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_AmountPercent", _row_AmountPercent, value)
+        End Set
+    End Property
+    Property row_ConversationType As eConversationType
+        Get
+            Return _row_ConversationType
+        End Get
+        Set(value As eConversationType)
+            SetPropertyValue("row_ConversationType", _row_ConversationType, value)
+        End Set
+    End Property
+
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property AssetsHandlingCPBActivity As XPCollection(Of AssetsHandlingCPBActivity)
+        Get
+            Return New XPCollection(Of AssetsHandlingCPBActivity)(Session, CriteriaOperator.Parse("Customers=?", Me.Customers))
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property PCIGroup As XPCollection(Of PCIGroup)
+        Get
+            Dim _Criteria As String = " IsNull(InvoiceHeader)=False And PartnerType = 0 And InvoiceHeader.PaymentOption.PayMode in ('InTransfer','InContinuous') And " +
+                                    "GetDate(InvoiceHeader.DatePayment) < GetDate(?) and (GetDate(InvoiceHeader.DatePayment) < GetDate(DateLastConnected) OR " +
+                                    "IsNull(DateLastConnected)=True) and AmountHUF_Account>1000  And InvoiceHeader.IsStorno=False and Customers=?"
+            Return New XPCollection(Of PCIGroup)(Session, CriteriaOperator.Parse(_Criteria, Now, Me.Customers))
+        End Get
+    End Property
+    ReadOnly Property AssetsHandling As XPCollection(Of AssetsHandling)
+        Get
+            Return New XPCollection(Of AssetsHandling)(Session, CriteriaOperator.Parse("Customers=?", Me.Customers))
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBActivity.vb

@@ -0,0 +1,130 @@
+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
+Public Enum eConversationType
+    eNotset = -1
+    ePhone = 0
+    ePersonal = 1
+    eMail = 2
+End Enum
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class AssetsHandlingCPBActivity
+    Inherits BaseObject
+
+    Private _Customers As Customers
+    Private _NoteCustomers As String
+    Private _NotePrivate As String
+    Private _DateDeadline As Date 'Határidõ
+    Private _Amount As Double = 0 ' Összeget fizet határidõig 
+    Private _AmountPercent As Double '%-ot fizet határidõig
+    Private _ConversationType As eConversationType
+    Private _ObjectCreated As Date 'Keletkezés dátuma
+    Private _UserCreated As User 'Létrehozó felhasználó
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+
+        If Session.IsNewObject(Me) Then
+            Me.ConversationType = eConversationType.eNotset
+        End If
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            Me.ObjectCreated = GetSQLTime(Session)
+            If SecuritySystem.CurrentUser IsNot Nothing Then
+                Me.UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+            End If
+        End If
+    End Sub
+
+    <RuleRequiredField("AssetsHandlingCPBActivity-Customers", DefaultContexts.Save)> _
+    Public Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    <RuleRequiredField("AssetsHandlingCPBActivity-NoteCustomers", DefaultContexts.Save), Size(-1)> _
+    Public Property NoteCustomers As String
+        Get
+            Return _NoteCustomers
+        End Get
+        Set(value As String)
+            SetPropertyValue("NoteCustomers", _NoteCustomers, value)
+        End Set
+    End Property
+    <RuleRequiredField("AssetsHandlingCPBActivity-NotePrivate", DefaultContexts.Save), Size(-1)> _
+    Public Property NotePrivate As String
+        Get
+            Return _NotePrivate
+        End Get
+        Set(value As String)
+            SetPropertyValue("NotePrivate", _NotePrivate, value)
+        End Set
+    End Property
+    Public Property DateDeadline As Date
+        Get
+            Return _DateDeadline
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateDeadline", _DateDeadline, value)
+        End Set
+    End Property
+    Public Property Amount As Double
+        Get
+            Return _Amount
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Amount", _Amount, value)
+        End Set
+    End Property
+    Public Property AmountPercent As Double
+        Get
+            Return _AmountPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountPercent", _AmountPercent, value)
+        End Set
+    End Property
+    <RuleValueComparison("AssetsHandlingCPBActivity-ConversationType", DefaultContexts.Save, ValueComparisonType.NotEquals, eConversationType.eNotset)> _
+    Public Property ConversationType As eConversationType
+        Get
+            Return _ConversationType
+        End Get
+        Set(value As eConversationType)
+            SetPropertyValue("ConversationType", _ConversationType, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(ByVal 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
+
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBVC.Designer.vb

@@ -0,0 +1,104 @@
+Partial Class AssetsHandlingCPBVC
+
+	<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.aToTable_AHCPB = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTableD_AHCPB = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBackToRowEdit_AHCPB = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewAtachments_AHCPB = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aToTable_AHCPB
+        '
+        Me.aToTable_AHCPB.Caption = "aToTable"
+        Me.aToTable_AHCPB.Category = "aToTable_AHCPB"
+        Me.aToTable_AHCPB.ConfirmationMessage = Nothing
+        Me.aToTable_AHCPB.Id = "aToTable_AHCPB"
+        Me.aToTable_AHCPB.ImageName = Nothing
+        Me.aToTable_AHCPB.Shortcut = Nothing
+        Me.aToTable_AHCPB.Tag = Nothing
+        Me.aToTable_AHCPB.TargetObjectsCriteria = Nothing
+        Me.aToTable_AHCPB.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandlingCPB)
+        Me.aToTable_AHCPB.TargetViewId = ""
+        Me.aToTable_AHCPB.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aToTable_AHCPB.ToolTip = Nothing
+        Me.aToTable_AHCPB.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aToTableD_AHCPB
+        '
+        Me.aToTableD_AHCPB.Caption = "Delete row"
+        Me.aToTableD_AHCPB.Category = "aToTableD_AHCPB"
+        Me.aToTableD_AHCPB.ConfirmationMessage = Nothing
+        Me.aToTableD_AHCPB.Id = "aToTableD_AHCPB"
+        Me.aToTableD_AHCPB.ImageName = Nothing
+        Me.aToTableD_AHCPB.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aToTableD_AHCPB.Shortcut = Nothing
+        Me.aToTableD_AHCPB.Tag = Nothing
+        Me.aToTableD_AHCPB.TargetObjectsCriteria = Nothing
+        Me.aToTableD_AHCPB.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandlingCPB)
+        Me.aToTableD_AHCPB.TargetViewId = ""
+        Me.aToTableD_AHCPB.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aToTableD_AHCPB.ToolTip = Nothing
+        Me.aToTableD_AHCPB.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aBackToRowEdit_AHCPB
+        '
+        Me.aBackToRowEdit_AHCPB.Caption = "Edit row"
+        Me.aBackToRowEdit_AHCPB.Category = "aBackToRowEdit_AHCPB"
+        Me.aBackToRowEdit_AHCPB.ConfirmationMessage = Nothing
+        Me.aBackToRowEdit_AHCPB.Id = "aBackToRowEdit_AHCPB"
+        Me.aBackToRowEdit_AHCPB.ImageName = Nothing
+        Me.aBackToRowEdit_AHCPB.Shortcut = Nothing
+        Me.aBackToRowEdit_AHCPB.Tag = Nothing
+        Me.aBackToRowEdit_AHCPB.TargetObjectsCriteria = Nothing
+        Me.aBackToRowEdit_AHCPB.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandlingCPB)
+        Me.aBackToRowEdit_AHCPB.TargetViewId = ""
+        Me.aBackToRowEdit_AHCPB.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aBackToRowEdit_AHCPB.ToolTip = Nothing
+        Me.aBackToRowEdit_AHCPB.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aViewAtachments_AHCPB
+        '
+        Me.aViewAtachments_AHCPB.Caption = "aViewAtachments_AHCPB"
+        Me.aViewAtachments_AHCPB.ConfirmationMessage = Nothing
+        Me.aViewAtachments_AHCPB.Id = "aViewAtachments_AHCPB"
+        Me.aViewAtachments_AHCPB.ImageName = Nothing
+        Me.aViewAtachments_AHCPB.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewAtachments_AHCPB.Shortcut = Nothing
+        Me.aViewAtachments_AHCPB.Tag = Nothing
+        Me.aViewAtachments_AHCPB.TargetObjectsCriteria = Nothing
+        Me.aViewAtachments_AHCPB.TargetViewId = "AssetsHandlingCPB_PCIGroup_ListView"
+        Me.aViewAtachments_AHCPB.ToolTip = Nothing
+        Me.aViewAtachments_AHCPB.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aToTable_AHCPB As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTableD_AHCPB As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aBackToRowEdit_AHCPB As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewAtachments_AHCPB As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBVC.resx

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

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBVC.vb

@@ -0,0 +1,80 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.Editors
+
+Public Class AssetsHandlingCPBVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+
+    Private Sub aToTable_AHCPB_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_AHCPB.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _AssetsHandlingCPBA As AssetsHandlingCPB = TryCast(View.SelectedObjects(0), AssetsHandlingCPB)
+        Dim _AssetsHandlingCPBActivity As AssetsHandlingCPBActivity
+
+        If _AssetsHandlingCPBA IsNot Nothing Then
+
+            _AssetsHandlingCPBActivity = _onew.CreateObject(Of AssetsHandlingCPBActivity)()
+            _AssetsHandlingCPBActivity.Customers = _onew.GetObject(_AssetsHandlingCPBA.Customers)
+            _AssetsHandlingCPBActivity.Amount = _AssetsHandlingCPBA.row_Amount
+            _AssetsHandlingCPBActivity.AmountPercent = _AssetsHandlingCPBA.row_AmountPercent
+            _AssetsHandlingCPBActivity.ConversationType = _AssetsHandlingCPBA.row_ConversationType
+            _AssetsHandlingCPBActivity.DateDeadline = _AssetsHandlingCPBA.row_DateDeadline
+            _AssetsHandlingCPBActivity.NoteCustomers = _AssetsHandlingCPBA.row_NoteCustomers
+            _AssetsHandlingCPBActivity.NotePrivate = _AssetsHandlingCPBA.row_NotePrivate
+            _AssetsHandlingCPBActivity.Customers.AssetsHandling_Note = _AssetsHandlingCPBA.row_NoteCustomers
+            _onew.CommitChanges()
+
+            Dim _DetailView As DetailView = TryCast(View, DetailView)
+            If _DetailView IsNot Nothing Then
+                Dim _ListPropertyEditor As ListPropertyEditor = _DetailView.FindItem("AssetsHandlingCPBActivity")
+                If _ListPropertyEditor IsNot Nothing Then
+                    TryCast(_ListPropertyEditor.ListView, ListView).CollectionSource.Reload()
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub aToTableD_AHCPB_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_AHCPB.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _AssetsHandlingCPBActivity_Collection As New List(Of AssetsHandlingCPBActivity)
+        Dim _AssetsHandlingCPBActivity As AssetsHandlingCPBActivity
+        Dim _DetailView As DetailView = TryCast(View, DetailView)
+        If _DetailView IsNot Nothing Then
+            Dim _ListPropertyEditor As ListPropertyEditor = _DetailView.FindItem("AssetsHandlingCPBActivity")
+            If _ListPropertyEditor IsNot Nothing Then
+                Dim _ListView As ListView = TryCast(_ListPropertyEditor.ListView, ListView)
+                If _ListView IsNot Nothing Then
+                    For Each _AssetsHandlingCPBActivity In _ListView.SelectedObjects
+                        _AssetsHandlingCPBActivity_Collection.Add(_onew.GetObject(_AssetsHandlingCPBActivity))
+                    Next
+                    _onew.Delete(_AssetsHandlingCPBActivity_Collection)
+                    _onew.CommitChanges()
+                End If
+                TryCast(_ListPropertyEditor.ListView, ListView).CollectionSource.Reload()
+            End If
+        End If
+    End Sub
+
+    Private Sub aViewAtachments_AHCPB_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAtachments_AHCPB.Execute
+        Dim _PCIGroup As PCIGroup = TryCast(View.SelectedObjects(0), PCIGroup)
+
+        Dim _CustomersFrom As CustomersFrom = _PCIGroup.CustomersFrom
+        Dim _Customers As Customers = _PCIGroup.Customers
+        Dim _DocumentNumber As String = _PCIGroup.ConnectInfo
+        ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "")
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingGroupChange.vb

@@ -0,0 +1,145 @@
+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), NonPersistent()> _
+Public Class AssetsHandlingGroupChange
+    Inherits BaseObject
+    Private _QueueIndex As Long
+    Private _AssetsHandlingStatus As AssetsHandlingStatus
+    Private _IsQueueIndex As Boolean
+    Private _AssetsHandling_Note_Customers As String
+    Private _IsAssetsHandling_Note_Customers As Boolean
+    Private _AssetsHandling_Note_Invoice As String
+    Private _IsAssetsHandling_Note_Invoice As Boolean
+    Private _NoAssetsHandlingModifies As Boolean 'Nincs felsz. módosítod?
+    Private _NoAssetsHandling As Boolean
+    Private _AktivModifies As Boolean 'Aktív státuszt módosítod?
+    Private _IsActive As Boolean
+    
+
+    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
+    <Browsable(False)> _
+    Property QueueIndex As Long
+        Get
+            Return _QueueIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("QueueIndex", _QueueIndex, value)
+        End Set
+    End Property
+    Property AssetsHandlingStatus As AssetsHandlingStatus
+        Get
+            Return _AssetsHandlingStatus
+        End Get
+        Set(value As AssetsHandlingStatus)
+            SetPropertyValue("AssetsHandlingStatus", _AssetsHandlingStatus, value)
+            If value IsNot Nothing Then
+                QueueIndex = value.QueueIndex
+            End If
+        End Set
+    End Property
+    Property IsQueueIndex As Boolean
+        Get
+            Return _IsQueueIndex
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsQueueIndex", _IsQueueIndex, value)
+        End Set
+    End Property
+
+    <Size(-1)> _
+    Property AssetsHandling_Note_Customers As String
+        Get
+            Return _AssetsHandling_Note_Customers
+        End Get
+        Set(value As String)
+            SetPropertyValue("AssetsHandling_Note_Customers", _AssetsHandling_Note_Customers, value)
+        End Set
+    End Property
+    Property IsAssetsHandling_Note_Customers As Boolean
+        Get
+            Return _IsAssetsHandling_Note_Customers
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsAssetsHandling_Note_Customers", _IsAssetsHandling_Note_Customers, value)
+        End Set
+    End Property
+
+    <Size(-1)> _
+    Property AssetsHandling_Note_Invoice As String
+        Get
+            Return _AssetsHandling_Note_Invoice
+        End Get
+        Set(value As String)
+            SetPropertyValue("AssetsHandling_Note_Invoice", _AssetsHandling_Note_Invoice, value)
+        End Set
+    End Property
+    Property IsAssetsHandling_Note_Invoice As Boolean
+        Get
+            Return _IsAssetsHandling_Note_Invoice
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsAssetsHandling_Note_Invoice", _IsAssetsHandling_Note_Invoice, value)
+        End Set
+    End Property
+
+    Public Property NoAssetsHandlingModifies() As Boolean
+        Get
+            Return _NoAssetsHandlingModifies
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("NoAssetsHandlingModifies", _NoAssetsHandlingModifies, value)
+        End Set
+    End Property 'Nem kell fizetési felszólítás módosuljon
+    Public Property NoAssetsHandling() As Boolean
+        Get
+            Return _NoAssetsHandling
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("NoAssetsHandling", _NoAssetsHandling, value)
+        End Set
+    End Property         'Nem kell fizetési felszólítás / Legyen
+
+    Public Property AktivModifies() As Boolean
+        Get
+            Return _AktivModifies
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("AktivModifies", _AktivModifies, value)
+        End Set
+    End Property
+    Public Property IsActive() As Boolean
+        Get
+            Return _IsActive
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsActive", _IsActive, value)
+        End Set
+    End Property
+
+    Property IsAssetsHandling_InvoiceHeader As Boolean
+    Property IsAssetsHandling_InvoiceHeader_Modifies As Boolean
+
+    Property IsLateChargeModifies As Boolean 'A késedelmi kamatszáml módosuljon ?
+    Property IsLateCharge As Boolean
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingPCI.vb

@@ -0,0 +1,94 @@
+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 AssetsHandlingPCI
+    Inherits BaseObject
+    Private _AssetsHandling As AssetsHandling 'Fejléc objektum
+    Private _MainType As String 'Tipus (Számla, pénztár, bank stb)
+    Private _DateExecution As Date 'Teljestés dátuma
+    Private _BallanceHUF As Double 'Egyenleg HUF
+    Private _BallanceDEV As Double 'Egyenleg DEV
+    Private _ShortName As String
+    Private _Description 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
+
+    <Association("AssetsHandlin-AssetsHandlingPCI", GetType(AssetsHandling))> _
+    Property AssetsHandling As AssetsHandling
+        Get
+            Return _AssetsHandling
+        End Get
+        Set(ByVal value As AssetsHandling)
+            SetPropertyValue("AssetsHandling", _AssetsHandling, value)
+        End Set
+    End Property
+    Property MainType As String
+        Get
+            Return _MainType
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("MainType", _MainType, value)
+        End Set
+    End Property
+    Property DateExectution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property BallanceHUF As Double
+        Get
+            Return _BallanceHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("BallanceHUF", _BallanceHUF, value)
+        End Set
+    End Property
+    Property BallanceDEV As Double
+        Get
+            Return _BallanceDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("BallanceDEV", _BallanceDEV, value)
+        End Set
+    End Property
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingParameter.vb

@@ -0,0 +1,259 @@
+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 System.Drawing
+
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+<CreatableItem(False)> _
+Public Class AssetsHandlingParameter
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom
+    Private _ReportData As ReportData '1 fizetési felszólítás
+    Private _ReportData2 As ReportData '2 fizetési felszólítás
+    Private _ReportData3 As ReportData '3 rendkivüli felmondás
+
+    Private _ReportData_LateChargesDocument As ReportData 'Késedelmi kamatlevél
+
+    Private _ReportDataEN As ReportData '1 fizetési felszólítás (angol nyelven)
+    Private _ReportData2EN As ReportData '2 fizetési felszólítás (angol nyelven)
+    Private _ReportData3EN As ReportData '3 rendkivüli felmondás (angol nyelven)
+
+    Private _TolerationDay1 As Long 'Türelmi nap 1. felszólításhoz
+    Private _TolerationDay2 As Long 'Türelmi nap 2. felszólításhoz
+    Private _TolerationDay3 As Long 'Türelmi nap 3. felmondáshoz
+    Private _Cost1HUF As Double ' 1. felszólítás költsége
+    Private _Cost2HUF As Double ' 2. felszólítás költsége
+    Private _Cost3HUF As Double ' 3. felszólítás költsége
+    Private _EMailSendQueueParameters As EMailSendQueueParameters
+
+    <Persistent("ForeColor0")> Private _ForeColor0 As Int32 = -1 '0 sorszám színe
+    <Persistent("ForeColor1")> Private _ForeColor1 As Int32 = -1 '1 sorszám színe
+    <Persistent("ForeColor2")> Private _ForeColor2 As Int32 = -1 '0 sorszám színe
+    <Persistent("ForeColor3")> Private _ForeColor3 As Int32 = -1 '1 sorszám színe
+
+    <Persistent("BackColor0")> Private _BackColor0 As Int32 = -1 '0 sorszám színe
+    <Persistent("BackColor1")> Private _BackColor1 As Int32 = -1 '1 sorszám színe
+    <Persistent("BackColor2")> Private _BackColor2 As Int32 = -1 '0 sorszám színe
+    <Persistent("BackColor3")> Private _BackColor3 As Int32 = -1 '1 sorszám színe
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property ReportData As ReportData
+        Get
+            Return _ReportData
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData", _ReportData, value)
+        End Set
+    End Property
+    Property ReportData2 As ReportData
+        Get
+            Return _ReportData2
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData2", _ReportData2, value)
+        End Set
+    End Property
+    Property ReportData3 As ReportData
+        Get
+            Return _ReportData3
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData3", _ReportData3, value)
+        End Set
+    End Property
+    Property ReportDataEN As ReportData
+        Get
+            Return _ReportDataEN
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportDataEN", _ReportDataEN, value)
+        End Set
+    End Property
+    Property ReportData2EN As ReportData
+        Get
+            Return _ReportData2EN
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData2EN", _ReportData2EN, value)
+        End Set
+    End Property
+    Property ReportData3EN As ReportData
+        Get
+            Return _ReportData3EN
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData3EN", _ReportData3EN, value)
+        End Set
+    End Property
+
+    Property ReportData_LateChargesDocument As ReportData
+        Get
+            Return _ReportData_LateChargesDocument
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData_LateChargesDocument", _ReportData_LateChargesDocument, value)
+        End Set
+    End Property
+
+    Property TolerationDay1 As Long
+        Get
+            Return _TolerationDay1
+        End Get
+        Set(value As Long)
+            SetPropertyValue("TolerationDay1", _TolerationDay1, value)
+        End Set
+    End Property
+    Property TolerationDay2 As Long
+        Get
+            Return _TolerationDay2
+        End Get
+        Set(value As Long)
+            SetPropertyValue("TolerationDay2", _TolerationDay2, value)
+        End Set
+    End Property
+    Property TolerationDay3 As Long
+        Get
+            Return _TolerationDay3
+        End Get
+        Set(value As Long)
+            SetPropertyValue("TolerationDay3", _TolerationDay3, value)
+        End Set
+    End Property
+    Property Cost1HUF As Double
+        Get
+            Return _Cost1HUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Cost1HUF", _Cost1HUF, value)
+        End Set
+    End Property
+    Property Cost2HUF As Double
+        Get
+            Return _Cost2HUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Cost2HUF", _Cost2HUF, value)
+        End Set
+    End Property
+    Property Cost3HUF As Double
+        Get
+            Return _Cost3HUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Cost3HUF", _Cost3HUF, value)
+        End Set
+    End Property
+    Property EMailSendQueueParameters As EMailSendQueueParameters
+        Get
+            Return _EMailSendQueueParameters
+        End Get
+        Set(value As EMailSendQueueParameters)
+            SetPropertyValue("EMailSendQueueParameters", _EMailSendQueueParameters, value)
+        End Set
+    End Property
+
+    <NonPersistent> _
+    Public Property ForeColor0() As Color
+        Get
+            Return Color.FromArgb(_ForeColor0)
+        End Get
+        Set(ByVal value As Color)
+            _ForeColor0 = value.ToArgb()
+            OnChanged("ForeColor0")
+        End Set
+    End Property
+    <NonPersistent> _
+    Public Property ForeColor1() As Color
+        Get
+            Return Color.FromArgb(_ForeColor1)
+        End Get
+        Set(ByVal value As Color)
+            _ForeColor1 = value.ToArgb()
+            OnChanged("ForeColor1")
+        End Set
+    End Property
+    <NonPersistent> _
+    Public Property ForeColor2() As Color
+        Get
+            Return Color.FromArgb(_ForeColor2)
+        End Get
+        Set(ByVal value As Color)
+            _ForeColor2 = value.ToArgb()
+            OnChanged("ForeColor2")
+        End Set
+    End Property
+    <NonPersistent> _
+    Public Property ForeColor3() As Color
+        Get
+            Return Color.FromArgb(_ForeColor3)
+        End Get
+        Set(ByVal value As Color)
+            _ForeColor3 = value.ToArgb()
+            OnChanged("ForeColor3")
+        End Set
+    End Property
+
+    <NonPersistent> _
+    Public Property BackColor0() As Color
+        Get
+            Return Color.FromArgb(_BackColor0)
+        End Get
+        Set(ByVal value As Color)
+            _BackColor0 = value.ToArgb()
+            OnChanged("BackColor0")
+        End Set
+    End Property
+    <NonPersistent> _
+    Public Property BackColor1() As Color
+        Get
+            Return Color.FromArgb(_BackColor1)
+        End Get
+        Set(ByVal value As Color)
+            _BackColor1 = value.ToArgb()
+            OnChanged("BackColor1")
+        End Set
+    End Property
+    <NonPersistent> _
+    Public Property BackColor2() As Color
+        Get
+            Return Color.FromArgb(_BackColor2)
+        End Get
+        Set(ByVal value As Color)
+            _BackColor2 = value.ToArgb()
+            OnChanged("BackColor2")
+        End Set
+    End Property
+    <NonPersistent> _
+    Public Property BackColor3() As Color
+        Get
+            Return Color.FromArgb(_BackColor3)
+        End Get
+        Set(ByVal value As Color)
+            _BackColor3 = value.ToArgb()
+            OnChanged("BackColor3")
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingStatus.vb

@@ -0,0 +1,48 @@
+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 AssetsHandlingStatus
+    Inherits BaseObject
+    Private _QueueIndex As Long
+    Private _ShortName 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 QueueIndex As Long
+        Get
+            Return _QueueIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("QueueIndex", _QueueIndex, value)
+        End Set
+    End Property
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCICustomersFrom.vb

@@ -0,0 +1,48 @@
+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 AssetsPCICustomersFrom
+    Inherits BaseObject
+    Private _AssetsPCIHeader As AssetsPCIHeader
+    Private _CustomersFrom As CustomersFrom
+    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
+
+    <Association("AssetsPCIHeader-AssetsPCICustomersFrom", GetType(AssetsPCIHeader))> _
+    Property AssetsPCIHeader As AssetsPCIHeader
+        Get
+            Return _AssetsPCIHeader
+        End Get
+        Set(value As AssetsPCIHeader)
+            SetPropertyValue("AssetsPCIHeader", _AssetsPCIHeader, value)
+        End Set
+    End Property
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIHeader.vb

@@ -0,0 +1,124 @@
+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.Persistent.Base.General
+Imports System.Data.SqlClient
+Imports System.Configuration
+Imports System.Linq
+Imports System.Linq.Expressions
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem("FinancialTransactions")> _
+<DeferredDeletion(False)> _
+Public Class AssetsPCIHeader
+    Inherits BaseObject
+    Private _DateClose As Date 'Utolsó banki nap dátuma (csak az ezt megelõzõ tételek vagy u.a. dátumú tételek)
+    Private _DateExecution As Date 'A fizetési felszólítás érvényességi dátuma
+    Private _ShortName As String
+    Private _QueryCustomersFrom As Boolean = False 'Lekérdezze e a saját céget is ?
+    Private _ObjectCreated As Date 'Keletkezés dátuma
+    Private _UserCreated As User 'Létrehozó felhasználó
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.DateClose = Now
+        Me.DateExecution = Now
+ 
+        Dim _AssetsPCICustomersFrom As AssetsPCICustomersFrom
+        Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(Session)
+        Dim _CustomersFrom As CustomersFrom
+
+        For Each _CustomersFrom In _CustomersFrom_Collection
+            _AssetsPCICustomersFrom = New AssetsPCICustomersFrom(Session)
+            _AssetsPCICustomersFrom.AssetsPCIHeader = Me
+            _AssetsPCICustomersFrom.CustomersFrom = _CustomersFrom
+        Next
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            If Not SecuritySystem.CurrentUser Is Nothing Then
+                _UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+            End If
+        End If
+    End Sub
+
+
+    Property DateClose As Date
+        Get
+            Return _DateClose
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateClose", _DateClose, value)
+        End Set
+    End Property
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property QueryCustomersFrom As Boolean
+        Get
+            Return _QueryCustomersFrom
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("QueryCustomersFrom", _QueryCustomersFrom, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(ByVal 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
+
+    <Association("AssetsPCIHeader-AssetsPCIRows", GetType(AssetsPCIRows)), VisibleInListView(False)> _
+        ReadOnly Property AssetsPCIRows As XPCollection(Of AssetsPCIRows)
+        Get
+            Return GetCollection(Of AssetsPCIRows)("AssetsPCIRows")
+        End Get
+    End Property
+
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    <Association("AssetsPCIHeader-AssetsPCICustomersFrom", GetType(AssetsPCICustomersFrom))> _
+    ReadOnly Property AssetsPCICustomersFrom As XPCollection(Of AssetsPCICustomersFrom)
+        Get
+            Return GetCollection(Of AssetsPCICustomersFrom)("AssetsPCICustomersFrom")
+        End Get
+    End Property
+End Class
+

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIRows.vb

@@ -0,0 +1,153 @@
+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.Persistent.Base.General
+Imports System.Data.SqlClient
+Imports System.Configuration
+Imports System.Linq
+Imports System.Linq.Expressions
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<DeferredDeletion(False)> _
+Public Class AssetsPCIRows
+    Inherits BaseObject
+    Private _AssetsPCIHeader As AssetsPCIHeader 'Kapcsolódó fejléc
+    Private _CustomersFrom As CustomersFrom 'Saját cég
+    Private _Customers As Customers 'Partner
+    Private _PartnerType As ePartnerType 'Partner tipusa, mindig 0
+    Private _ConnectInfo As String 'Pontozási info
+    Private _CurrencyName As CurrencyName 'Devizanem
+    Private _DateExecution As Date 'Teljesítés dátuma
+    Private _DateCreated As Date 'Kiáll. dátuma
+    Private _DatePayment As Date 'Fizetési határidõ
+    Private _DelayedDay As Long 'Késett nap
+    Private _AmountHUF_Account As Double 'Számla eredeti bruttó összege
+    Private _AmountDEV_Account As Double 'Számla eredeti bruttó összege
+    Private _BallanceHUF As Double 'Egyenleg HUF
+    Private _BallanceDEV As Double 'Egyenleg DEV
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <Association("AssetsPCIHeader-AssetsPCIRows", GetType(AssetsPCIHeader))> _
+    Property AssetsPCIHeader As AssetsPCIHeader
+        Get
+            Return _AssetsPCIHeader
+        End Get
+        Set(ByVal value As AssetsPCIHeader)
+            SetPropertyValue("AssetsPCIHeader", _AssetsPCIHeader, value)
+        End Set
+    End Property
+    Property CustomersFrom() As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property Customers() As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property PartnerType() As ePartnerType
+        Get
+            Return _PartnerType
+        End Get
+        Set(ByVal value As ePartnerType)
+            SetPropertyValue("PartnerType", _PartnerType, value)
+        End Set
+    End Property
+    Property ConnectInfo() As String
+        Get
+            Return _ConnectInfo
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ConnectInfo", _ConnectInfo, value)
+        End Set
+    End Property
+    Property CurrencyName() As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property DateCreated As Date
+        Get
+            Return _DateCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateCreated", _DateCreated, value)
+        End Set
+    End Property
+    Property DatePayment As Date
+        Get
+            Return _DatePayment
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DatePayment", _DatePayment, value)
+        End Set
+    End Property
+    Property DelayedDay As Long
+        Get
+            Return _DelayedDay
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("DelayedDay", _DelayedDay, value)
+        End Set
+    End Property
+    Property BallanceHUF As Double
+        Get
+            Return _BallanceHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("BallanceHUF", _BallanceHUF, value)
+        End Set
+    End Property
+    Property BallanceDEV As Double
+        Get
+            Return _BallanceDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("BallanceTotal", _BallanceDEV, value)
+        End Set
+    End Property
+    Property AmountHUF_Account As Double
+        Get
+            Return _AmountHUF_Account
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUF_Account", _AmountHUF_Account, value)
+        End Set
+    End Property
+    Property AmountDEV_Account As Double
+        Get
+            Return _AmountDEV_Account
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountDEV_Account", _AmountDEV_Account, value)
+        End Set
+    End Property
+End Class
+

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.Designer.vb

@@ -0,0 +1,404 @@
+Partial Class AssetsPCIVC
+
+	<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.aGenerateAssetsReport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateAssetsHandling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewAttachments_AssetsHandling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aPrintAssetsHandling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aPrintAssetsHandling2 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewLateCharges = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCreateLateCharges = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCountLateCharges = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aNoAssetsHandling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aPrintAssetsHandling3 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aPrintLateChargesDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewCPBAssetsPCIRows_ListView = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewCPBAssetsHandling_ListView = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewPCIDW_AssetsPCIRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aPCIGenerate_AssetsHandling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAssetsHandling_CreateSendEmailQueue = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAssetsHandling_RemoveSendEmailQueue = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aAssetsHandling_GroupChange = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aViewLateCharges_AssetsHandling = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aSelectCustomersFromAssetsHandlingPCI = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCreateLateChargesDocument = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aRemoveLateChargesDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aGenerateAssetsReport
+        '
+        Me.aGenerateAssetsReport.Caption = "Generate report"
+        Me.aGenerateAssetsReport.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aGenerateAssetsReport.Id = "aGenerateAssetsReport"
+        Me.aGenerateAssetsReport.ImageName = "stopwatch_run"
+        Me.aGenerateAssetsReport.Shortcut = Nothing
+        Me.aGenerateAssetsReport.Tag = Nothing
+        Me.aGenerateAssetsReport.TargetObjectsCriteria = Nothing
+        Me.aGenerateAssetsReport.TargetViewId = "AssetsPCIHeader_DetailView"
+        Me.aGenerateAssetsReport.ToolTip = Nothing
+        Me.aGenerateAssetsReport.TypeOfView = Nothing
+        '
+        'aCreateAssetsHandling
+        '
+        Me.aCreateAssetsHandling.Caption = "aCreate Assets Handling"
+        Me.aCreateAssetsHandling.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aCreateAssetsHandling.Id = "aCreateAssetsHandling"
+        Me.aCreateAssetsHandling.ImageName = "cube_green_new"
+        Me.aCreateAssetsHandling.Shortcut = Nothing
+        Me.aCreateAssetsHandling.Tag = Nothing
+        Me.aCreateAssetsHandling.TargetObjectsCriteria = Nothing
+        Me.aCreateAssetsHandling.TargetViewId = "AssetsPCIHeader_DetailView"
+        Me.aCreateAssetsHandling.ToolTip = Nothing
+        Me.aCreateAssetsHandling.TypeOfView = Nothing
+        '
+        'aViewAttachments_AssetsHandling
+        '
+        Me.aViewAttachments_AssetsHandling.Caption = "View attachments"
+        Me.aViewAttachments_AssetsHandling.ConfirmationMessage = Nothing
+        Me.aViewAttachments_AssetsHandling.Id = "aViewAttachments_AssetsHandling"
+        Me.aViewAttachments_AssetsHandling.ImageName = "printer_view"
+        Me.aViewAttachments_AssetsHandling.Shortcut = Nothing
+        Me.aViewAttachments_AssetsHandling.Tag = Nothing
+        Me.aViewAttachments_AssetsHandling.TargetObjectsCriteria = Nothing
+        Me.aViewAttachments_AssetsHandling.TargetViewId = "AssetsPCIHeader_AssetsPCIRows_ListView"
+        Me.aViewAttachments_AssetsHandling.ToolTip = Nothing
+        Me.aViewAttachments_AssetsHandling.TypeOfView = Nothing
+        '
+        'aPrintAssetsHandling
+        '
+        Me.aPrintAssetsHandling.Caption = "Print I."
+        Me.aPrintAssetsHandling.ConfirmationMessage = "Do you want to print ?"
+        Me.aPrintAssetsHandling.Id = "aPrintAssetsHandling"
+        Me.aPrintAssetsHandling.ImageName = "Action_Printing_Print"
+        Me.aPrintAssetsHandling.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aPrintAssetsHandling.Shortcut = Nothing
+        Me.aPrintAssetsHandling.Tag = Nothing
+        Me.aPrintAssetsHandling.TargetObjectsCriteria = Nothing
+        Me.aPrintAssetsHandling.TargetViewId = ""
+        Me.aPrintAssetsHandling.ToolTip = Nothing
+        Me.aPrintAssetsHandling.TypeOfView = Nothing
+        '
+        'aPrintAssetsHandling2
+        '
+        Me.aPrintAssetsHandling2.Caption = "Print II."
+        Me.aPrintAssetsHandling2.ConfirmationMessage = "Do you want to print ?"
+        Me.aPrintAssetsHandling2.Id = "aPrintAssetsHandling2"
+        Me.aPrintAssetsHandling2.ImageName = "Action_Printing_Print"
+        Me.aPrintAssetsHandling2.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aPrintAssetsHandling2.Shortcut = Nothing
+        Me.aPrintAssetsHandling2.Tag = Nothing
+        Me.aPrintAssetsHandling2.TargetObjectsCriteria = Nothing
+        Me.aPrintAssetsHandling2.TargetViewId = ""
+        Me.aPrintAssetsHandling2.ToolTip = Nothing
+        Me.aPrintAssetsHandling2.TypeOfView = Nothing
+        '
+        'aViewLateCharges
+        '
+        Me.aViewLateCharges.AcceptButtonCaption = Nothing
+        Me.aViewLateCharges.CancelButtonCaption = Nothing
+        Me.aViewLateCharges.Caption = "View Late Charges"
+        Me.aViewLateCharges.ConfirmationMessage = Nothing
+        Me.aViewLateCharges.Id = "aViewLateCharges"
+        Me.aViewLateCharges.ImageName = Nothing
+        Me.aViewLateCharges.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewLateCharges.Shortcut = Nothing
+        Me.aViewLateCharges.Tag = Nothing
+        Me.aViewLateCharges.TargetObjectsCriteria = Nothing
+        Me.aViewLateCharges.TargetViewId = ""
+        Me.aViewLateCharges.ToolTip = Nothing
+        Me.aViewLateCharges.TypeOfView = Nothing
+        '
+        'aCreateLateCharges
+        '
+        Me.aCreateLateCharges.Caption = "aCreate Late Charges"
+        Me.aCreateLateCharges.Category = "ObjectsCreation"
+        Me.aCreateLateCharges.ConfirmationMessage = Nothing
+        Me.aCreateLateCharges.Id = "aCreateLateCharges"
+        Me.aCreateLateCharges.ImageName = Nothing
+        Me.aCreateLateCharges.Shortcut = Nothing
+        Me.aCreateLateCharges.Tag = Nothing
+        Me.aCreateLateCharges.TargetObjectsCriteria = Nothing
+        Me.aCreateLateCharges.TargetViewId = ""
+        Me.aCreateLateCharges.ToolTip = Nothing
+        Me.aCreateLateCharges.TypeOfView = Nothing
+        '
+        'aCountLateCharges
+        '
+        Me.aCountLateCharges.Caption = "aCount Late Charges"
+        Me.aCountLateCharges.Category = "ObjectsCreation"
+        Me.aCountLateCharges.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aCountLateCharges.Id = "aCountLateCharges"
+        Me.aCountLateCharges.ImageName = Nothing
+        Me.aCountLateCharges.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aCountLateCharges.Shortcut = Nothing
+        Me.aCountLateCharges.Tag = Nothing
+        Me.aCountLateCharges.TargetObjectsCriteria = Nothing
+        Me.aCountLateCharges.TargetViewId = ""
+        Me.aCountLateCharges.ToolTip = Nothing
+        Me.aCountLateCharges.TypeOfView = Nothing
+        '
+        'aNoAssetsHandling
+        '
+        Me.aNoAssetsHandling.Caption = "aNo Assets Handling"
+        Me.aNoAssetsHandling.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aNoAssetsHandling.Id = "aNoAssetsHandling"
+        Me.aNoAssetsHandling.ImageName = Nothing
+        Me.aNoAssetsHandling.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aNoAssetsHandling.Shortcut = Nothing
+        Me.aNoAssetsHandling.Tag = Nothing
+        Me.aNoAssetsHandling.TargetObjectsCriteria = Nothing
+        Me.aNoAssetsHandling.TargetViewId = ""
+        Me.aNoAssetsHandling.ToolTip = Nothing
+        Me.aNoAssetsHandling.TypeOfView = Nothing
+        '
+        'aPrintAssetsHandling3
+        '
+        Me.aPrintAssetsHandling3.Caption = "Print III."
+        Me.aPrintAssetsHandling3.ConfirmationMessage = "Do you want to print ?"
+        Me.aPrintAssetsHandling3.Id = "aPrintAssetsHandling3"
+        Me.aPrintAssetsHandling3.ImageName = "Action_Printing_Print"
+        Me.aPrintAssetsHandling3.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aPrintAssetsHandling3.Shortcut = Nothing
+        Me.aPrintAssetsHandling3.Tag = Nothing
+        Me.aPrintAssetsHandling3.TargetObjectsCriteria = Nothing
+        Me.aPrintAssetsHandling3.TargetViewId = Nothing
+        Me.aPrintAssetsHandling3.ToolTip = Nothing
+        Me.aPrintAssetsHandling3.TypeOfView = Nothing
+        '
+        'aPrintLateChargesDocument
+        '
+        Me.aPrintLateChargesDocument.Caption = "aPrint Late Charges Document"
+        Me.aPrintLateChargesDocument.ConfirmationMessage = Nothing
+        Me.aPrintLateChargesDocument.Id = "aPrintLateChargesDocument"
+        Me.aPrintLateChargesDocument.ImageName = Nothing
+        Me.aPrintLateChargesDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aPrintLateChargesDocument.Shortcut = Nothing
+        Me.aPrintLateChargesDocument.Tag = Nothing
+        Me.aPrintLateChargesDocument.TargetObjectsCriteria = Nothing
+        Me.aPrintLateChargesDocument.TargetViewId = "PCIGroup_ListView_DelayedPay"
+        Me.aPrintLateChargesDocument.ToolTip = Nothing
+        Me.aPrintLateChargesDocument.TypeOfView = Nothing
+        '
+        'aViewCPBAssetsPCIRows_ListView
+        '
+        Me.aViewCPBAssetsPCIRows_ListView.Caption = "aViewCPBAssetsPCIRows_ListView"
+        Me.aViewCPBAssetsPCIRows_ListView.ConfirmationMessage = Nothing
+        Me.aViewCPBAssetsPCIRows_ListView.Id = "aViewCPBAssetsPCIRows_ListView"
+        Me.aViewCPBAssetsPCIRows_ListView.ImageName = Nothing
+        Me.aViewCPBAssetsPCIRows_ListView.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewCPBAssetsPCIRows_ListView.Shortcut = Nothing
+        Me.aViewCPBAssetsPCIRows_ListView.Tag = Nothing
+        Me.aViewCPBAssetsPCIRows_ListView.TargetObjectsCriteria = Nothing
+        Me.aViewCPBAssetsPCIRows_ListView.TargetObjectType = GetType(Nuvolar.[Module].AssetsPCIRows)
+        Me.aViewCPBAssetsPCIRows_ListView.TargetViewId = ""
+        Me.aViewCPBAssetsPCIRows_ListView.ToolTip = Nothing
+        Me.aViewCPBAssetsPCIRows_ListView.TypeOfView = Nothing
+        '
+        'aViewCPBAssetsHandling_ListView
+        '
+        Me.aViewCPBAssetsHandling_ListView.Caption = "aViewCPBAssetsHandling_ListView"
+        Me.aViewCPBAssetsHandling_ListView.ConfirmationMessage = Nothing
+        Me.aViewCPBAssetsHandling_ListView.Id = "aViewCPBAssetsHandling_ListView"
+        Me.aViewCPBAssetsHandling_ListView.ImageName = Nothing
+        Me.aViewCPBAssetsHandling_ListView.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewCPBAssetsHandling_ListView.Shortcut = Nothing
+        Me.aViewCPBAssetsHandling_ListView.Tag = Nothing
+        Me.aViewCPBAssetsHandling_ListView.TargetObjectsCriteria = Nothing
+        Me.aViewCPBAssetsHandling_ListView.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandling)
+        Me.aViewCPBAssetsHandling_ListView.TargetViewId = ""
+        Me.aViewCPBAssetsHandling_ListView.ToolTip = Nothing
+        Me.aViewCPBAssetsHandling_ListView.TypeOfView = Nothing
+        '
+        'aViewPCIDW_AssetsPCIRows
+        '
+        Me.aViewPCIDW_AssetsPCIRows.Caption = "aViewPCIDW_AssetsPCIRows"
+        Me.aViewPCIDW_AssetsPCIRows.ConfirmationMessage = Nothing
+        Me.aViewPCIDW_AssetsPCIRows.Id = "aViewPCIDW_AssetsPCIRows"
+        Me.aViewPCIDW_AssetsPCIRows.ImageName = Nothing
+        Me.aViewPCIDW_AssetsPCIRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewPCIDW_AssetsPCIRows.Shortcut = Nothing
+        Me.aViewPCIDW_AssetsPCIRows.Tag = Nothing
+        Me.aViewPCIDW_AssetsPCIRows.TargetObjectsCriteria = Nothing
+        Me.aViewPCIDW_AssetsPCIRows.TargetObjectType = GetType(Nuvolar.[Module].AssetsPCIRows)
+        Me.aViewPCIDW_AssetsPCIRows.TargetViewId = Nothing
+        Me.aViewPCIDW_AssetsPCIRows.ToolTip = Nothing
+        Me.aViewPCIDW_AssetsPCIRows.TypeOfView = Nothing
+        '
+        'aPCIGenerate_AssetsHandling
+        '
+        Me.aPCIGenerate_AssetsHandling.Caption = "aPCIGenerate_AssetsHandling"
+        Me.aPCIGenerate_AssetsHandling.Category = "ObjectsCreation"
+        Me.aPCIGenerate_AssetsHandling.ConfirmationMessage = "Are you sure ?"
+        Me.aPCIGenerate_AssetsHandling.Id = "aPCIGenerate_AssetsHandling"
+        Me.aPCIGenerate_AssetsHandling.ImageName = Nothing
+        Me.aPCIGenerate_AssetsHandling.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aPCIGenerate_AssetsHandling.Shortcut = Nothing
+        Me.aPCIGenerate_AssetsHandling.Tag = Nothing
+        Me.aPCIGenerate_AssetsHandling.TargetObjectsCriteria = Nothing
+        Me.aPCIGenerate_AssetsHandling.TargetObjectType = GetType(Nuvolar.[Module].AssetsPCIRows)
+        Me.aPCIGenerate_AssetsHandling.TargetViewId = Nothing
+        Me.aPCIGenerate_AssetsHandling.ToolTip = Nothing
+        Me.aPCIGenerate_AssetsHandling.TypeOfView = Nothing
+        '
+        'aAssetsHandling_CreateSendEmailQueue
+        '
+        Me.aAssetsHandling_CreateSendEmailQueue.Caption = "aAssetsHandling_CreateSendEmailQueue"
+        Me.aAssetsHandling_CreateSendEmailQueue.ConfirmationMessage = Nothing
+        Me.aAssetsHandling_CreateSendEmailQueue.Id = "aAssetsHandling_CreateSendEmailQueue"
+        Me.aAssetsHandling_CreateSendEmailQueue.ImageName = Nothing
+        Me.aAssetsHandling_CreateSendEmailQueue.Shortcut = Nothing
+        Me.aAssetsHandling_CreateSendEmailQueue.Tag = Nothing
+        Me.aAssetsHandling_CreateSendEmailQueue.TargetObjectsCriteria = Nothing
+        Me.aAssetsHandling_CreateSendEmailQueue.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandling)
+        Me.aAssetsHandling_CreateSendEmailQueue.TargetViewId = Nothing
+        Me.aAssetsHandling_CreateSendEmailQueue.ToolTip = Nothing
+        Me.aAssetsHandling_CreateSendEmailQueue.TypeOfView = Nothing
+        '
+        'aAssetsHandling_RemoveSendEmailQueue
+        '
+        Me.aAssetsHandling_RemoveSendEmailQueue.Caption = "aAssetsHandling_RemoveSendEmailQueue"
+        Me.aAssetsHandling_RemoveSendEmailQueue.ConfirmationMessage = Nothing
+        Me.aAssetsHandling_RemoveSendEmailQueue.Id = "aAssetsHandling_RemoveSendEmailQueue"
+        Me.aAssetsHandling_RemoveSendEmailQueue.ImageName = Nothing
+        Me.aAssetsHandling_RemoveSendEmailQueue.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aAssetsHandling_RemoveSendEmailQueue.Shortcut = Nothing
+        Me.aAssetsHandling_RemoveSendEmailQueue.Tag = Nothing
+        Me.aAssetsHandling_RemoveSendEmailQueue.TargetObjectsCriteria = Nothing
+        Me.aAssetsHandling_RemoveSendEmailQueue.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandling)
+        Me.aAssetsHandling_RemoveSendEmailQueue.TargetViewId = Nothing
+        Me.aAssetsHandling_RemoveSendEmailQueue.ToolTip = Nothing
+        Me.aAssetsHandling_RemoveSendEmailQueue.TypeOfView = Nothing
+        '
+        'aAssetsHandling_GroupChange
+        '
+        Me.aAssetsHandling_GroupChange.AcceptButtonCaption = Nothing
+        Me.aAssetsHandling_GroupChange.CancelButtonCaption = Nothing
+        Me.aAssetsHandling_GroupChange.Caption = "aAssetsHandling_GroupChange"
+        Me.aAssetsHandling_GroupChange.ConfirmationMessage = Nothing
+        Me.aAssetsHandling_GroupChange.Id = "aAssetsHandling_GroupChange"
+        Me.aAssetsHandling_GroupChange.ImageName = Nothing
+        Me.aAssetsHandling_GroupChange.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aAssetsHandling_GroupChange.Shortcut = Nothing
+        Me.aAssetsHandling_GroupChange.Tag = Nothing
+        Me.aAssetsHandling_GroupChange.TargetObjectsCriteria = Nothing
+        Me.aAssetsHandling_GroupChange.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandling)
+        Me.aAssetsHandling_GroupChange.TargetViewId = Nothing
+        Me.aAssetsHandling_GroupChange.ToolTip = Nothing
+        Me.aAssetsHandling_GroupChange.TypeOfView = Nothing
+        '
+        'aViewLateCharges_AssetsHandling
+        '
+        Me.aViewLateCharges_AssetsHandling.AcceptButtonCaption = Nothing
+        Me.aViewLateCharges_AssetsHandling.CancelButtonCaption = Nothing
+        Me.aViewLateCharges_AssetsHandling.Caption = "View Late Charges"
+        Me.aViewLateCharges_AssetsHandling.ConfirmationMessage = Nothing
+        Me.aViewLateCharges_AssetsHandling.Id = "aViewLateCharges_AssetsHandling"
+        Me.aViewLateCharges_AssetsHandling.ImageName = Nothing
+        Me.aViewLateCharges_AssetsHandling.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewLateCharges_AssetsHandling.Shortcut = Nothing
+        Me.aViewLateCharges_AssetsHandling.Tag = Nothing
+        Me.aViewLateCharges_AssetsHandling.TargetObjectsCriteria = Nothing
+        Me.aViewLateCharges_AssetsHandling.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandling)
+        Me.aViewLateCharges_AssetsHandling.TargetViewId = ""
+        Me.aViewLateCharges_AssetsHandling.ToolTip = Nothing
+        Me.aViewLateCharges_AssetsHandling.TypeOfView = Nothing
+        '
+        'aSelectCustomersFromAssetsHandlingPCI
+        '
+        Me.aSelectCustomersFromAssetsHandlingPCI.AcceptButtonCaption = Nothing
+        Me.aSelectCustomersFromAssetsHandlingPCI.CancelButtonCaption = Nothing
+        Me.aSelectCustomersFromAssetsHandlingPCI.Caption = "Select CustomersFrom"
+        Me.aSelectCustomersFromAssetsHandlingPCI.ConfirmationMessage = Nothing
+        Me.aSelectCustomersFromAssetsHandlingPCI.Id = "aSelectCustomersFromAssetsHandlingPCI"
+        Me.aSelectCustomersFromAssetsHandlingPCI.ImageName = Nothing
+        Me.aSelectCustomersFromAssetsHandlingPCI.Shortcut = Nothing
+        Me.aSelectCustomersFromAssetsHandlingPCI.Tag = Nothing
+        Me.aSelectCustomersFromAssetsHandlingPCI.TargetObjectsCriteria = Nothing
+        Me.aSelectCustomersFromAssetsHandlingPCI.TargetObjectType = GetType(Nuvolar.[Module].AssetsPCICustomersFrom)
+        Me.aSelectCustomersFromAssetsHandlingPCI.TargetViewId = Nothing
+        Me.aSelectCustomersFromAssetsHandlingPCI.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aSelectCustomersFromAssetsHandlingPCI.ToolTip = Nothing
+        Me.aSelectCustomersFromAssetsHandlingPCI.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aCreateLateChargesDocument
+        '
+        Me.aCreateLateChargesDocument.AcceptButtonCaption = Nothing
+        Me.aCreateLateChargesDocument.CancelButtonCaption = Nothing
+        Me.aCreateLateChargesDocument.Caption = "aCreate Late Charges Document"
+        Me.aCreateLateChargesDocument.ConfirmationMessage = Nothing
+        Me.aCreateLateChargesDocument.Id = "aCreateLateChargesDocument"
+        Me.aCreateLateChargesDocument.ImageName = Nothing
+        Me.aCreateLateChargesDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aCreateLateChargesDocument.Shortcut = Nothing
+        Me.aCreateLateChargesDocument.Tag = Nothing
+        Me.aCreateLateChargesDocument.TargetObjectsCriteria = Nothing
+        Me.aCreateLateChargesDocument.TargetObjectType = GetType(Nuvolar.[Module].PCIGroup)
+        Me.aCreateLateChargesDocument.TargetViewId = "PCIGroup_ListView_DelayedPay"
+        Me.aCreateLateChargesDocument.ToolTip = Nothing
+        Me.aCreateLateChargesDocument.TypeOfView = Nothing
+        '
+        'aRemoveLateChargesDocument
+        '
+        Me.aRemoveLateChargesDocument.Caption = "aRemove Late Charges Document"
+        Me.aRemoveLateChargesDocument.ConfirmationMessage = "Do you want to execute ?"
+        Me.aRemoveLateChargesDocument.Id = "aRemoveLateChargesDocument"
+        Me.aRemoveLateChargesDocument.ImageName = Nothing
+        Me.aRemoveLateChargesDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aRemoveLateChargesDocument.Shortcut = Nothing
+        Me.aRemoveLateChargesDocument.Tag = Nothing
+        Me.aRemoveLateChargesDocument.TargetObjectsCriteria = Nothing
+        Me.aRemoveLateChargesDocument.TargetObjectType = GetType(Nuvolar.[Module].PCIGroup)
+        Me.aRemoveLateChargesDocument.TargetViewId = "PCIGroup_ListView_DelayedPay"
+        Me.aRemoveLateChargesDocument.ToolTip = Nothing
+        Me.aRemoveLateChargesDocument.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aGenerateAssetsReport As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateAssetsHandling As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewAttachments_AssetsHandling As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aPrintAssetsHandling As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aPrintAssetsHandling2 As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewLateCharges As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCreateLateCharges As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCountLateCharges As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aNoAssetsHandling As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewCPBAssetsPCIRows_ListView As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewCPBAssetsHandling_ListView As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewPCIDW_AssetsPCIRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aPCIGenerate_AssetsHandling As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAssetsHandling_CreateSendEmailQueue As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAssetsHandling_RemoveSendEmailQueue As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aAssetsHandling_GroupChange As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aViewLateCharges_AssetsHandling As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aSelectCustomersFromAssetsHandlingPCI As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aPrintAssetsHandling3 As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateLateChargesDocument As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aRemoveLateChargesDocument As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aPrintLateChargesDocument As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.resx

@@ -0,0 +1,189 @@
+<?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="aGenerateAssetsReport.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>194, 173</value>
+  </metadata>
+  <metadata name="aCreateAssetsHandling.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aViewAttachments_AssetsHandling.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>834, 134</value>
+  </metadata>
+  <metadata name="aPrintAssetsHandling.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>460, 17</value>
+  </metadata>
+  <metadata name="aPrintAssetsHandling2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>660, 134</value>
+  </metadata>
+  <metadata name="aViewLateCharges.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>509, 134</value>
+  </metadata>
+  <metadata name="aCreateLateCharges.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>349, 134</value>
+  </metadata>
+  <metadata name="aCountLateCharges.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>959, 95</value>
+  </metadata>
+  <metadata name="aNoAssetsHandling.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>191, 134</value>
+  </metadata>
+  <metadata name="aPrintAssetsHandling3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aPrintLateChargesDocument.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>905, 17</value>
+  </metadata>
+  <metadata name="aViewCPBAssetsPCIRows_ListView.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>723, 95</value>
+  </metadata>
+  <metadata name="aViewCPBAssetsHandling_ListView.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>257, 56</value>
+  </metadata>
+  <metadata name="aViewPCIDW_AssetsPCIRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>515, 95</value>
+  </metadata>
+  <metadata name="aPCIGenerate_AssetsHandling.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>301, 95</value>
+  </metadata>
+  <metadata name="aAssetsHandling_CreateSendEmailQueue.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>719, 56</value>
+  </metadata>
+  <metadata name="aAssetsHandling_RemoveSendEmailQueue.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aAssetsHandling_GroupChange.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>496, 56</value>
+  </metadata>
+  <metadata name="aViewLateCharges_AssetsHandling.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aSelectCustomersFromAssetsHandlingPCI.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>627, 17</value>
+  </metadata>
+  <metadata name="aCreateLateChargesDocument.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>243, 17</value>
+  </metadata>
+  <metadata name="aRemoveLateChargesDocument.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/InstallmentPayment.vb

@@ -0,0 +1,114 @@
+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 InstallmentPayment 'Részletfizetési megállapodás
+    Inherits BaseObject
+    Private _InvoiceHeader As InvoiceHeader
+    Private _DatePayment As Date
+    Private _AmountHUF As Double
+    Private _AmountDEV As Double
+    Private _NoteRow As String
+    Private _Active As Boolean
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    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
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            If Not SecuritySystem.CurrentUser Is Nothing Then
+                _UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+            End If
+        End If
+    End Sub
+
+    Property InvoiceHeader As InvoiceHeader
+        Get
+            Return _InvoiceHeader
+        End Get
+        Set(value As InvoiceHeader)
+            SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
+        End Set
+    End Property
+    Property DatePayment As Date
+        Get
+            Return _DatePayment
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DatePayment", _DatePayment, value)
+        End Set
+    End Property
+    Property AmountHUF As Double
+        Get
+            Return _AmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUF", _AmountHUF, value)
+        End Set
+    End Property
+    Property AmountDEV As Double
+        Get
+            Return _AmountDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountDEV", _AmountDEV, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property NoteRow As String
+        Get
+            Return _NoteRow
+        End Get
+        Set(value As String)
+            SetPropertyValue("NoteRow", _NoteRow, value)
+        End Set
+    End Property
+    Property Active As Boolean
+        Get
+            Return _Active
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Active", _Active, 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
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/LateCharges.vb

@@ -0,0 +1,151 @@
+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.Xpo.DB
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<DeferredDeletion(False)> _
+Public Class LateCharges
+    Inherits BaseObject
+    Private _InvoiceHeader As InvoiceHeader 'Aktuális számla
+    Private _DateExecution As Date 'Dátum
+    Private _CapitalBalanceHUF As Double 'Tõke egyenleg HUF
+    Private _CapitalBalanceDEV As Double 'Tõke egyenleg DEV
+    Private _LateChargesBalanceHUF As Double ' Késedelmi kamat egyenleg HUF
+    Private _LateChargesBalanceDEV As Double ' Késedelmi kamat egyenleg DEV
+    Private _CostBalanceHUF As Double ' Egyéb költség
+    Private _CostBalanceDEV As Double
+    Private _DebitHUF As Double
+    Private _DebitDEV As Double
+    Private _CreditHUF As Double
+    Private _CreditDEV As Double
+    Private _CostNote As String
+    Private _CurrentLateChargesPercent As Double
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property InvoiceHeader As InvoiceHeader
+        Get
+            Return _InvoiceHeader
+        End Get
+        Set(value As InvoiceHeader)
+            SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
+        End Set
+    End Property
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property CapitalBalanceHUF As Double
+        Get
+            Return _CapitalBalanceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CapitalBalanceHUF", _CapitalBalanceHUF, value)
+        End Set
+    End Property
+    Property CapitalBalanceDEV As Double
+        Get
+            Return _CapitalBalanceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CapitalBalanceDEV", _CapitalBalanceDEV, value)
+        End Set
+    End Property
+    Property LateChargesBalanceHUF As Double
+        Get
+            Return _LateChargesBalanceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("LateChargesBalanceHUF", _LateChargesBalanceHUF, value)
+        End Set
+    End Property
+    Property LateChargesBalanceDEV As Double
+        Get
+            Return _LateChargesBalanceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("LateChargesBalanceDEV", _LateChargesBalanceDEV, value)
+        End Set
+    End Property
+    Property CostBalanceHUF As Double
+        Get
+            Return _CostBalanceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CostBalanceHUF", _CostBalanceHUF, value)
+        End Set
+    End Property
+    Property CostBalanceDEV As Double
+        Get
+            Return _CostBalanceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CostBalanceDEV", _CostBalanceDEV, value)
+        End Set
+    End Property
+    Property DebitHUF As Double
+        Get
+            Return _DebitHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DebitHUF", _DebitHUF, value)
+        End Set
+    End Property
+    Property DebitDEV As Double
+        Get
+            Return _DebitDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DebitDEV", _DebitDEV, value)
+        End Set
+    End Property
+    Property CreditHUF As Double
+        Get
+            Return _CreditHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CreditHUF", _CreditHUF, value)
+        End Set
+    End Property
+    Property CreditDEV As Double
+        Get
+            Return _CreditDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CreditDEV", _CreditDEV, value)
+        End Set
+    End Property
+    Property CostNote As String
+        Get
+            Return _CostNote
+        End Get
+        Set(value As String)
+            SetPropertyValue("CostNote", _CostNote, value)
+        End Set
+    End Property
+    Property CurrentLateChargesPercent As Double
+        Get
+            Return _CurrentLateChargesPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CurrentLateChargesPercent", _CurrentLateChargesPercent, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/LateChargesCountMode.vb

@@ -0,0 +1,53 @@
+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
+
+Public Enum eLCCountMode
+    eFix = 0
+    eVariable = 1
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("FinancialStock")> _
+<CreatableItem(False)> _
+Public Class LateChargesCountMode
+    Inherits BaseObject
+    Private _LCCountMode As eLCCountMode 'Számítás módja
+    Private _LCValue As Double ' Érték. Ha LCCountMode=0 akkor a késedelmi kamat %-os mértéke pld 6%, ha 1 akkor ? szorosa a kamattörzsnek pld 2
+    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 LCCountMode As eLCCountMode
+        Get
+            Return _LCCountMode
+        End Get
+        Set(value As eLCCountMode)
+            SetPropertyValue("LCCountMode", _LCCountMode, value)
+        End Set
+    End Property
+    Property LCValue As Double
+        Get
+            Return _LCValue
+        End Get
+        Set(value As Double)
+            SetPropertyValue("LCValue", _LCValue, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/Popup/LateChargesPopup.vb

@@ -0,0 +1,30 @@
+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 LateChargesPopup
+    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 DateCreated As Date
+End Class