First create solution

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringBank.vb

@@ -0,0 +1,83 @@
+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 InvoiceFactoringBank
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _Customers As Customers
+    Private _Factoring_Send_Number As String 'Bankba küldés sorszáma
+    Private _FileData As FileData 'Csatolt dokumentum
+    Private _Factoring_Send_Date As Date 'Beküldés dátuma
+
+    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 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 Factoring_Send_Number As String
+        Get
+            Return _Factoring_Send_Number
+        End Get
+        Set(value As String)
+            SetPropertyValue("Factoring_Send_Number", _Factoring_Send_Number, value)
+        End Set
+    End Property
+    Property Factoring_Send_Date As Date
+        Get
+            Return _Factoring_Send_Date
+        End Get
+        Set(value As Date)
+            SetPropertyValue("Factoring_Send_Date", _Factoring_Send_Date, value)
+        End Set
+    End Property
+    Property FileData As FileData
+        Get
+            Return _FileData
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("FileData", _FileData, value)
+        End Set
+    End Property
+
+    ReadOnly Property InvoiceHeader As XPCollection(Of InvoiceHeader)
+        Get
+            Return New XPCollection(Of InvoiceHeader)(Session, CriteriaOperator.Parse("InvoiceFactoringBank=?", Me))
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringHeader.vb

@@ -0,0 +1,105 @@
+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 InvoiceFactoringHeader 'Faktorálási engedményezési szerzõdés
+    Inherits BaseObject
+
+    Private _DocumentNumber As String 'A bank által jóváhagyott sorszám
+    Private _ContractFile As FileData 'A bank által visszaküldött engedményezési szerzõdés
+    Private _Description As String 'Egyéb megjegyzés
+    Private _DateExecution As Date 'Dátum
+    Private _InterestPercent As Double ' faktor kamat
+
+    Private _SpreadXML As String
+    Private _SpreadFile As FileData
+    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 DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    Property ContractFile As FileData
+        Get
+            Return _ContractFile
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("ContractFile", _ContractFile, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, 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 InterestPercent As Double
+        Get
+            Return _InterestPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("InterestPercent", _InterestPercent, value)
+        End Set
+    End Property
+
+    <Size(-1)> _
+    Property SpreadXML As String
+        Get
+            Return _SpreadXML
+        End Get
+        Set(value As String)
+            SetPropertyValue("SpreadXML", _SpreadXML, value)
+        End Set
+    End Property
+    Property SpreadFile As FileData
+        Get
+            Return _SpreadFile
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("SpreadFile", _SpreadFile, value)
+        End Set
+    End Property
+
+
+    <Association("InvoiceFactoringHeader-InvoiceFactoringRows", GetType(InvoiceFactoringRows)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property InvoiceFactoringRows As XPCollection(Of InvoiceFactoringRows)
+        Get
+            Return GetCollection(Of InvoiceFactoringRows)("InvoiceFactoringRows")
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringParameter.vb

@@ -0,0 +1,136 @@
+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 InvoiceFactoringParameter
+    Inherits BaseObject
+
+    Private _LiquidAssets As LiquidAssets 'Melyik pénzeszköz
+    Private _NumberGenerator As NumberGenerator 'Bankba küldési csomag sorszáma (ezt lehet majd nyomtatni !!!)
+    Private _InterestPercent As Double ' Faktor kamat éves !
+    Private _InterestPercentMonth As Double 'Havi faktordíj plusz !
+    Private _RiskPercent As Double ' Kockázati összeg (minden egyes számlára!)!
+    Private _InterestPercentperTransaction As Double ' Faktordíj  (minden egyes számlára)!
+    Private _GracePeriod As Long ' Türelmi idõ (nap)
+    Private _Controlling_Interest As Controlling 'Banki rögzítésnél hova pontozódjon (kamat)
+    Private _Controlling_Risk As Controlling 'Banki rögzítés hova pontozódjon (kockázat)
+    Private _Controlling_Fee As Controlling 'Banki rögzítés hova pontozódjon (faktordíj)
+    Private _ReportData_Question As ReportData 'Kérelem nyomtatvány
+
+    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 LiquidAssets As LiquidAssets
+        Get
+            Return _LiquidAssets
+        End Get
+        Set(value As LiquidAssets)
+            SetPropertyValue("LiquidAssets", _LiquidAssets, value)
+        End Set
+    End Property
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    Property InterestPercent As Double
+        Get
+            Return _InterestPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("InterestPercent", _InterestPercent, value)
+        End Set
+    End Property
+    Property InterestPercentMonth As Double
+        Get
+            Return _InterestPercentMonth
+        End Get
+        Set(value As Double)
+            SetPropertyValue("InterestPercentMonth", _InterestPercentMonth, value)
+        End Set
+    End Property
+    Property RiskPercent As Double
+        Get
+            Return _RiskPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("RiskPercent", _RiskPercent, value)
+        End Set
+    End Property
+    ''' <summary>
+    ''' Faktor díj minden egyes számlára
+    ''' </summary>
+    ''' <returns></returns>
+    Property InterestPercentperTransaction As Double
+        Get
+            Return _InterestPercentperTransaction
+        End Get
+        Set(value As Double)
+            SetPropertyValue("InterestPercentperTransaction", _InterestPercentperTransaction, value)
+        End Set
+    End Property
+    Property GracePeriod As Long
+        Get
+            Return _GracePeriod
+        End Get
+        Set(value As Long)
+            SetPropertyValue("GracePeriod", _GracePeriod, value)
+        End Set
+    End Property
+
+    Property Controlling_Interest As Controlling
+        Get
+            Return _Controlling_Interest
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling_Interest", _Controlling_Interest, value)
+        End Set
+    End Property
+    Property Controlling_Risk As Controlling
+        Get
+            Return _Controlling_Risk
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling_Risk", _Controlling_Risk, value)
+        End Set
+    End Property
+    Property Controlling_Fee As Controlling
+        Get
+            Return _Controlling_Fee
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling_Fee", _Controlling_Fee, value)
+        End Set
+    End Property
+
+    Property ReportData_Question As ReportData
+        Get
+            Return _ReportData_Question
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData_Question", _ReportData_Question, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringRows.vb

@@ -0,0 +1,134 @@
+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 InvoiceFactoringRows
+    Inherits BaseObject
+
+    Private _InvoiceFactoringHeader As InvoiceFactoringHeader
+    Private _InvoiceHeader As InvoiceHeader
+    Private _InterestValueHUF As Double ' Faktor kamat összege
+    Private _CapitalValueHUF As Double ' "TÕKE" összege
+    Private _RiskValueHUF As Double ' Kockázat összege
+    Private _InterestPercentperTransactionValueHUF As Double 'Faktordíj tranzakciónként összege
+    Private _FeeValueHUF As Double ' Faktor díj összege
+    Private _DiscountInterestPercent As Double 'Diszkont kamat !!!
+    Private _InterestDay As Long
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+        InterestValueHUF = 0
+        CapitalValueHUF = 0
+        RiskValueHUF = 0
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+
+        If IsDeleted = False Then
+            RecalculateValues()
+        End If
+
+    End Sub
+
+    <Association("InvoiceFactoringHeader-InvoiceFactoringRows", GetType(InvoiceFactoringHeader))> _
+    Property InvoiceFactoringHeader As InvoiceFactoringHeader
+        Get
+            Return _InvoiceFactoringHeader
+        End Get
+        Set(value As InvoiceFactoringHeader)
+            SetPropertyValue("InvoiceFactoringHeader", _InvoiceFactoringHeader, value)
+        End Set
+    End Property
+    Property InvoiceHeader As InvoiceHeader
+        Get
+            Return _InvoiceHeader
+        End Get
+        Set(value As InvoiceHeader)
+            SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
+        End Set
+    End Property
+
+    Property InterestValueHUF As Double
+        Get
+            Return _InterestValueHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("InterestValueHUF", _InterestValueHUF, value)
+        End Set
+    End Property
+    Property CapitalValueHUF As Double
+        Get
+            Return _CapitalValueHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CapitalValueHUF", _CapitalValueHUF, value)
+        End Set
+    End Property
+    Property RiskValueHUF As Double
+        Get
+            Return _RiskValueHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("RiskValueHUF", _RiskValueHUF, value)
+        End Set
+    End Property
+    Property InterestPercentperTransactionValueHUF As Double
+        Get
+            Return _InterestPercentperTransactionValueHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("InterestPercentperTransactionValueHUF", _InterestPercentperTransactionValueHUF, value)
+        End Set
+    End Property
+    Property FeeValueHUF As Double
+        Get
+            Return _FeeValueHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("FeeValueHUF", _FeeValueHUF, value)
+        End Set
+    End Property
+
+    Private Sub RecalculateValues()
+        Dim _InterestPercent As Double = 0
+
+        If InvoiceFactoringHeader.InterestPercent > 0 Then
+            _InterestPercent = InvoiceFactoringHeader.InterestPercent
+        Else
+            _InterestPercent = InvoiceHeader.InvoiceFactoringParameter.InterestPercent
+        End If
+
+        If InvoiceHeader IsNot Nothing Then
+            If InvoiceHeader.InvoiceFactoringParameter IsNot Nothing Then
+                _InterestDay = DateDiff(DateInterval.Day, InvoiceFactoringHeader.DateExecution, _InvoiceHeader.DatePayment) + _InvoiceHeader.InvoiceFactoringParameter.GracePeriod
+                _DiscountInterestPercent = (360 * _InterestPercent / 100) /
+                                           (360 + (_InterestPercent / 100) * _InterestDay)
+
+                FeeValueHUF = Math.Round(((_InterestDay \ 30) + 1) * (InvoiceHeader.InvoiceFactoringParameter.InterestPercentMonth / 100) * InvoiceHeader.TotalBruttoHUF, 0, MidpointRounding.AwayFromZero)
+                RiskValueHUF = Math.Round(InvoiceHeader.TotalBruttoHUF * InvoiceHeader.InvoiceFactoringParameter.RiskPercent / 100, 0, MidpointRounding.AwayFromZero)
+                InterestPercentperTransactionValueHUF = Math.Round(InvoiceHeader.TotalBruttoHUF * InvoiceHeader.InvoiceFactoringParameter.InterestPercentperTransaction / 100, 0, MidpointRounding.AwayFromZero)
+                InterestValueHUF = Math.Round(((InvoiceHeader.TotalBruttoHUF - RiskValueHUF) * _InterestDay * _DiscountInterestPercent) / 360, 0, MidpointRounding.AwayFromZero)
+                CapitalValueHUF = Math.Round(InvoiceHeader.TotalBruttoHUF - InterestValueHUF - RiskValueHUF - FeeValueHUF - InterestPercentperTransactionValueHUF, 0, MidpointRounding.AwayFromZero)
+
+
+            End If
+        End If
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.Designer.vb

@@ -0,0 +1,110 @@
+Partial Class InvoiceFactoring_VC
+
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+		MyClass.New()
+
+		'Required for Windows.Forms Class Composition Designer support
+		Container.Add(Me)
+
+	End Sub
+
+	'Component overrides dispose to clean up the component list.
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+		If disposing AndAlso components IsNot Nothing Then
+			components.Dispose()
+		End If
+		MyBase.Dispose(disposing)
+	End Sub
+
+	'Required by the Component Designer
+	Private components As System.ComponentModel.IContainer
+
+	'NOTE: The following procedure is required by the Component Designer
+	'It can be modified using the Component Designer.
+	'Do not modify it using the code editor.
+	<System.Diagnostics.DebuggerStepThrough()> _
+	Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.aFactoringSet = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFactoringSendToBank = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aFactoringBackFromBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFactoringCreate = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aFactoringDestroy = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFactoringSendToBankPrintPreview = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aFactoringSet
+        '
+        Me.aFactoringSet.Caption = "aFactoring Set"
+        Me.aFactoringSet.Category = "RecordEdit"
+        Me.aFactoringSet.ConfirmationMessage = Nothing
+        Me.aFactoringSet.Id = "aFactoringSet"
+        Me.aFactoringSet.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aFactoringSet.TargetViewId = "InvoiceHeader_ListView"
+        Me.aFactoringSet.ToolTip = Nothing
+        '
+        'aFactoringSendToBank
+        '
+        Me.aFactoringSendToBank.AcceptButtonCaption = Nothing
+        Me.aFactoringSendToBank.CancelButtonCaption = Nothing
+        Me.aFactoringSendToBank.Caption = "aFactoring Send To Bank"
+        Me.aFactoringSendToBank.Category = "RecordEdit"
+        Me.aFactoringSendToBank.ConfirmationMessage = Nothing
+        Me.aFactoringSendToBank.Id = "aFactoringSendToBank"
+        Me.aFactoringSendToBank.TargetViewId = "InvoiceHeader_ListView_Factoring_Not_Send"
+        Me.aFactoringSendToBank.ToolTip = Nothing
+        '
+        'aFactoringBackFromBank
+        '
+        Me.aFactoringBackFromBank.Caption = "aFactoring Back From Bank"
+        Me.aFactoringBackFromBank.Category = "RecordEdit"
+        Me.aFactoringBackFromBank.ConfirmationMessage = Nothing
+        Me.aFactoringBackFromBank.Id = "aFactoringBackFromBank"
+        Me.aFactoringBackFromBank.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aFactoringBackFromBank.TargetViewId = "InvoiceFactoringBank_ListView"
+        Me.aFactoringBackFromBank.ToolTip = Nothing
+        '
+        'aFactoringCreate
+        '
+        Me.aFactoringCreate.AcceptButtonCaption = Nothing
+        Me.aFactoringCreate.CancelButtonCaption = Nothing
+        Me.aFactoringCreate.Caption = "aFactoring Create"
+        Me.aFactoringCreate.Category = "ObjectsCreation"
+        Me.aFactoringCreate.ConfirmationMessage = Nothing
+        Me.aFactoringCreate.Id = "aFactoringCreate"
+        Me.aFactoringCreate.TargetViewId = "InvoiceHeader_ListView_Factoring_Sended"
+        Me.aFactoringCreate.ToolTip = Nothing
+        '
+        'aFactoringDestroy
+        '
+        Me.aFactoringDestroy.Caption = "aFactoring Destroy"
+        Me.aFactoringDestroy.Category = "ObjectsCreation"
+        Me.aFactoringDestroy.ConfirmationMessage = Nothing
+        Me.aFactoringDestroy.Id = "aFactoringDestroy"
+        Me.aFactoringDestroy.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aFactoringDestroy.TargetViewId = "InvoiceFactoringHeader_ListView"
+        Me.aFactoringDestroy.ToolTip = Nothing
+        '
+        'aFactoringSendToBankPrintPreview
+        '
+        Me.aFactoringSendToBankPrintPreview.Caption = "aFactoring Send To Bank Print Preview"
+        Me.aFactoringSendToBankPrintPreview.Category = "View"
+        Me.aFactoringSendToBankPrintPreview.ConfirmationMessage = Nothing
+        Me.aFactoringSendToBankPrintPreview.Id = "aFactoringSendToBankPrintPreview"
+        Me.aFactoringSendToBankPrintPreview.ImageName = "Action_Printing_Print"
+        Me.aFactoringSendToBankPrintPreview.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aFactoringSendToBankPrintPreview.TargetObjectType = GetType(Nuvolar.[Module].InvoiceFactoringBank)
+        Me.aFactoringSendToBankPrintPreview.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aFactoringSendToBankPrintPreview.ToolTip = Nothing
+        Me.aFactoringSendToBankPrintPreview.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+
+    End Sub
+    Friend WithEvents aFactoringSet As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFactoringSendToBank As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aFactoringBackFromBank As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFactoringCreate As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aFactoringDestroy As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFactoringSendToBankPrintPreview As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.resx

@@ -0,0 +1,141 @@
+<?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="aFactoringSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aFactoringSendToBank.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aFactoringBackFromBank.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aFactoringCreate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aFactoringDestroy.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aFactoringSendToBankPrintPreview.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>-4, 257</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/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.vb

@@ -0,0 +1,257 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports System.IO
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.Utils
+
+Public Class InvoiceFactoring_VC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        If View.Id = "InvoiceHeader_ListView_Factoring_Sended" Then
+            '// Bankba elküldött faktorálandó számlák
+            Frame.GetController(Of InvoiceVC).aRecalculateHUF.Active.SetItemValue("", False)
+            Frame.GetController(Of InvoiceVC).aViewInvoiceHold.Active.SetItemValue("", False)
+            Frame.GetController(Of InvoiceVC).aCreateInvoiceCreditNote.Active.SetItemValue("", False)
+
+        End If
+        If View.Id = "InvoiceHeader_ListView_Factoring_Contracted" Then
+            '// Elfogadott engedményezett szlák
+            Frame.GetController(Of InvoiceVC).aRecalculateHUF.Active.SetItemValue("", False)
+            Frame.GetController(Of InvoiceVC).aViewInvoiceHold.Active.SetItemValue("", False)
+            Frame.GetController(Of InvoiceVC).aCreateInvoiceCreditNote.Active.SetItemValue("", False)
+
+        End If
+        If View.Id = "InvoiceHeader_ListView_Factoring_Not_Send" Then
+            '// Elõkészítés alatti faktorálandó számlák
+            Frame.GetController(Of InvoiceVC).aRecalculateHUF.Active.SetItemValue("", False)
+            Frame.GetController(Of InvoiceVC).aViewInvoiceHold.Active.SetItemValue("", False)
+            Frame.GetController(Of InvoiceVC).aCreateInvoiceCreditNote.Active.SetItemValue("", False)
+        End If
+        If View.Id = "InvoiceHeader_ListView" Then
+            '// Végleges számlák
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+    End Sub
+
+    Private Sub aFactoringSet_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringSet.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceHeader As InvoiceHeader
+
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+        For Each _InvoiceHeader In View.SelectedObjects
+            If _InvoiceHeader.IsFactoring = False Then
+                _InvoiceHeader.IsFactoring = True
+            ElseIf _InvoiceHeader.IsFactoring = True And _InvoiceHeader.Factoring_Send = False Then
+                _InvoiceHeader.IsFactoring = False
+            End If
+        Next
+        _ocur.CommitChanges()
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+    End Sub
+
+    Private Sub aFactoringSendToBank_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aFactoringSendToBank.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _InvoiceFactoringPopup As InvoiceFactoringPopup = _onew.CreateObject(Of InvoiceFactoringPopup)()
+
+        _InvoiceFactoringPopup.Factoring_Send_Date = Now
+
+        Dim _InvoiceFactoringParameter As InvoiceFactoringParameter
+
+        Dim _InvoiceFactoringParameter_Collection As New XPCollection(Of InvoiceFactoringParameter)(_onew.Session)
+        If _InvoiceFactoringParameter_Collection.Count = 1 Then
+            For Each _InvoiceFactoringParameter In _InvoiceFactoringParameter_Collection
+                _InvoiceFactoringPopup.InvoiceFactoringParameter = _InvoiceFactoringParameter
+                Exit For
+            Next
+        End If
+
+        e.View = Application.CreateDetailView(_onew, "InvoiceFactoringPopup_DetailView", True, _InvoiceFactoringPopup)
+
+
+    End Sub
+
+    Private Sub aFactoringSendToBank_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aFactoringSendToBank.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceHeader As InvoiceHeader
+        Dim _InvoiceFactoringPopup As InvoiceFactoringPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceFactoringPopup)
+        Dim _Factoring_Send_Number As String = ""
+        Dim _InvoiceFactoringBank As InvoiceFactoringBank
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+
+        For Each _InvoiceHeader In View.SelectedObjects
+            If _InvoiceHeader.IsFactoring = True Then
+                If _Factoring_Send_Number = "" Then
+                    _Factoring_Send_Number = _InvoiceFactoringPopup.InvoiceFactoringParameter.NumberGenerator.GetNewNumber(_InvoiceFactoringPopup.InvoiceFactoringParameter.NumberGenerator)
+                End If
+                _InvoiceHeader.Factoring_Send = True
+                _InvoiceHeader.Factoring_Send_Date = _InvoiceFactoringPopup.Factoring_Send_Date
+                _InvoiceHeader.Factoring_Send_Number = _Factoring_Send_Number
+                _InvoiceHeader.InvoiceFactoringParameter = _ocur.GetObject(_InvoiceFactoringPopup.InvoiceFactoringParameter)
+            End If
+        Next
+
+        _InvoiceFactoringBank = _ocur.CreateObject(Of InvoiceFactoringBank)()
+        _InvoiceFactoringBank.Factoring_Send_Date = _InvoiceFactoringPopup.Factoring_Send_Date
+        _InvoiceFactoringBank.Factoring_Send_Number = _Factoring_Send_Number
+        _InvoiceFactoringBank.CustomersFrom = _InvoiceHeader.CustomersFrom
+        _InvoiceFactoringBank.Customers = _InvoiceHeader.Customers
+
+        For Each _InvoiceHeader In View.SelectedObjects
+            _InvoiceHeader.InvoiceFactoringBank = _InvoiceFactoringBank
+        Next
+
+        _ocur.CommitChanges()
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+
+        '// Most kell a kérelmet kinyomtatni !!!!
+
+        Dim _ReportData As ReportData = _ocur.GetObject(_InvoiceFactoringPopup.InvoiceFactoringParameter.ReportData_Question)
+        If _ReportData IsNot Nothing Then
+            Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("Factoring_Send_Number=?", _Factoring_Send_Number), True)
+        End If
+
+
+    End Sub
+
+    Private Sub aFactoringBackFromBank_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringBackFromBank.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceFactoringBank As InvoiceFactoringBank
+        Dim _InvoiceHeader As InvoiceHeader
+        Dim _ReadyForDelete As Boolean = False
+        Dim _InvoiceFactoringBank_Collection As New XPCollection(Of InvoiceFactoringBank)(_ocur.Session, CriteriaOperator.Parse("1=2"))
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+
+        For Each _InvoiceFactoringBank In View.SelectedObjects
+            _ReadyForDelete = False
+            For Each _InvoiceHeader In _InvoiceFactoringBank.InvoiceHeader
+                If _InvoiceHeader.Factoring_Send = True And _InvoiceHeader.InvoiceFactoringRows Is Nothing Then
+                    _ReadyForDelete = True
+                    _InvoiceHeader.Factoring_Send = False
+                    _InvoiceHeader.Factoring_Send_Date = Nothing
+                    _InvoiceHeader.Factoring_Send_Number = ""
+                    _InvoiceHeader.InvoiceFactoringBank = Nothing
+                End If
+            Next
+            If _ReadyForDelete Then
+                _InvoiceFactoringBank_Collection.Add(_InvoiceFactoringBank)
+            End If
+        Next
+        _ocur.Delete(_InvoiceFactoringBank_Collection)
+        _ocur.CommitChanges()
+
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+    End Sub
+
+    Private Sub aFactoringCreate_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aFactoringCreate.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _InvoiceFactoringHeaderPopup As InvoiceFactoringHeaderPopup = _onew.CreateObject(Of InvoiceFactoringHeaderPopup)()
+
+        e.View = Application.CreateDetailView(_onew, "InvoiceFactoringHeaderPopup_DetailView", True, _InvoiceFactoringHeaderPopup)
+
+    End Sub
+
+    Private Sub aFactoringCreate_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aFactoringCreate.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceHeader As InvoiceHeader
+        Dim _InvoiceFactoringHeaderPopup As InvoiceFactoringHeaderPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceFactoringHeaderPopup)
+
+        Dim _InvoiceFactoringHeader As InvoiceFactoringHeader = _ocur.CreateObject(Of InvoiceFactoringHeader)()
+        _InvoiceFactoringHeader.DocumentNumber = _InvoiceFactoringHeaderPopup.DocumentNumber
+        _InvoiceFactoringHeader.Description = _InvoiceFactoringHeaderPopup.Description
+        _InvoiceFactoringHeader.DateExecution = _InvoiceFactoringHeaderPopup.DateExecution
+        _InvoiceFactoringHeader.InterestPercent = _InvoiceFactoringHeaderPopup.InterestPercent
+
+        '// FILEDATA áthozása másik objectspace-rõl !!!!
+        If _InvoiceFactoringHeaderPopup.ContractFile IsNot Nothing Then
+            Dim _MemoryStream As New MemoryStream
+            _InvoiceFactoringHeaderPopup.ContractFile.SaveToStream(_MemoryStream)
+            _MemoryStream.Seek(0, System.IO.SeekOrigin.Begin)
+            Dim _FileData As FileData = _ocur.CreateObject(Of FileData)()
+            _FileData.LoadFromStream(_InvoiceFactoringHeaderPopup.ContractFile.FileName, _MemoryStream)
+            _InvoiceFactoringHeader.ContractFile = _FileData
+        End If
+        '// EXCEL TÁBLÁZAT MENTÉSE
+
+        If _InvoiceFactoringHeaderPopup.SpreadFile IsNot Nothing Then
+            Dim _MemoryStreamXML As New MemoryStream
+            _InvoiceFactoringHeaderPopup.ContractFile.SaveToStream(_MemoryStreamXML)
+            _MemoryStreamXML.Seek(0, System.IO.SeekOrigin.Begin)
+            Dim _SpreadFile As FileData = _ocur.CreateObject(Of FileData)()
+            _SpreadFile.LoadFromStream(_InvoiceFactoringHeaderPopup.SpreadFile.FileName, _MemoryStreamXML)
+            _InvoiceFactoringHeader.SpreadFile = _SpreadFile
+        End If
+
+        Dim _InvoiceFactoringRows As InvoiceFactoringRows
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+        For Each _InvoiceHeader In View.SelectedObjects
+            _InvoiceFactoringRows = _ocur.CreateObject(Of InvoiceFactoringRows)()
+            _InvoiceFactoringRows.InvoiceFactoringHeader = _InvoiceFactoringHeader
+            _InvoiceFactoringRows.InvoiceHeader = _InvoiceHeader
+            _InvoiceHeader.InvoiceFactoringRows = _InvoiceFactoringRows
+        Next
+        _ocur.CommitChanges()
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+    End Sub
+
+    Private Sub aFactoringDestroy_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringDestroy.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceFactoringHeader As InvoiceFactoringHeader
+        Dim _InvoiceFactoringRows As InvoiceFactoringRows
+
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+
+        For Each _InvoiceFactoringHeader In View.SelectedObjects
+            For Each _InvoiceFactoringRows In _InvoiceFactoringHeader.InvoiceFactoringRows
+                _InvoiceFactoringRows.InvoiceHeader.InvoiceFactoringRows = Nothing
+                _InvoiceFactoringRows.InvoiceHeader = Nothing
+            Next
+            _ocur.Delete(_InvoiceFactoringHeader.InvoiceFactoringRows)
+            _ocur.Delete(_InvoiceFactoringHeader)
+        Next
+        _ocur.CommitChanges()
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+    End Sub
+
+
+    Private Sub aFactoringSendToBankPrintPreview_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringSendToBankPrintPreview.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceFactoringBank As InvoiceFactoringBank = View.SelectedObjects(0)
+
+        If _InvoiceFactoringBank IsNot Nothing Then
+
+            Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(_ocur.Session, CriteriaOperator.Parse("InvoiceFactoringBank =?", _InvoiceFactoringBank))
+
+            If _InvoiceHeader_Collection.Count > 0 Then
+                Dim _ReportData As ReportData = _ocur.GetObject(_InvoiceHeader_Collection(0).InvoiceFactoringParameter.ReportData_Question)
+                If _ReportData IsNot Nothing Then
+                    Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("Factoring_Send_Number=?", _InvoiceFactoringBank.Factoring_Send_Number), True)
+                End If
+            Else
+                MsgBox("Az összeállított kérelemhez nem tartozik faktorizált számla(k)!", MsgBoxStyle.OkOnly, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
+            End If
+        End If
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNoteHeader.vb

@@ -0,0 +1,148 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+'CreditNoteRows
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<Appearance("InvoiceCreditNoteHeader - Disable UserCreated all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
+<Appearance("InvoiceCreditNoteHeader - Disable ObjectCreated all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("InvoiceCreditNoteHeader - Disable CustomersFrom when not empty", AppearanceItemType.ViewItem, "IsNull(CustomersFrom)=False", TargetItems:="CustomersFrom", Enabled:=False)> _
+<Appearance("InvoiceCreditNoteHeader - Disable Customers when not empty", AppearanceItemType.ViewItem, "IsNull(Customers)=False", TargetItems:="Customers", Enabled:=False)> _
+<Appearance("InvoiceCreditNoteHeader - Hide Item2 when IsNewObject", AppearanceItemType.LayoutItem, "IsNull(ObjectCreated) Or IsNull(UserCreated)", TargetItems:="Item2", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class InvoiceCreditNoteHeader
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _Customers As Customers
+    Private _Storage As Storage
+    Private _StorageMoveType As StorageMoveType
+    Private _DateExecution As Date
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _PaymentOption As PaymentOption
+    Private _DatePayment As Date
+    Private _Description As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        DateExecution = GetSQLTime(Session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    <RuleRequiredField("InvoiceCreditNoteHeader - CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("InvoiceCreditNoteHeader - Customers", DefaultContexts.Save)> _
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    <RuleRequiredField("InvoiceCreditNoteHeader - Storage", DefaultContexts.Save)> _
+    Property Storage As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+        End Set
+    End Property
+
+    <RuleRequiredField("InvoiceCreditNoteHeader-StorageMoveType", DefaultContexts.Save)>
+    <ImmediatePostData(True), DataSourceCriteria("Storage='@This.Storage' AND MoveType=8")>
+    Property StorageMoveType As StorageMoveType
+        Get
+            Return _StorageMoveType
+        End Get
+        Set(value As StorageMoveType)
+            SetPropertyValue("StorageMoveType", _StorageMoveType, 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 ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+    <RuleRequiredField("InvoiceCreditNoteHeader - PaymentOption", DefaultContexts.Save)> _
+    Property PaymentOption As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, 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
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+
+    '--==ReadOnly==--
+    <VisibleInListView(False)> _
+    <Association("InvoiceCreditNoteHeader-InvoiceCreditNoteRows", GetType(InvoiceCreditNoteRows))> _
+    ReadOnly Property InvoiceCreditNoteRows As XPCollection(Of InvoiceCreditNoteRows)
+        Get
+            Return GetCollection(Of InvoiceCreditNoteRows)("InvoiceCreditNoteRows")
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNoteRows.vb

@@ -0,0 +1,154 @@
+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 InvoiceCreditNoteRows
+    Inherits BaseObject
+
+    Private _InvoiceCreditNoteHeader As InvoiceCreditNoteHeader
+    Private _QTT As Double 'Jóváírt mennyiség 
+    Private _PriceHUF As Double 'Jóváírás ára
+    Private _PriceDEV As Double
+    Private _SumPriceHUF As Double 'Netto sor összesen
+    Private _SumPriceDEV As Double
+    Private _SumPriceVATHUF As Double 'ÁFA sor összesen
+    Private _SumPriceVATDEV As Double
+    Private _SumPriceBruttoHUF As Double 'Brutto sor összesen
+    Private _SumPriceBruttoDEV As Double
+    Private _Description As String
+    Private _StorageInRows As StorageInRows 'Viszaírt betárolási sor
+    Private _FromInvoiceRows As InvoiceRows
+    Private _ToInvoiceRows As InvoiceRows
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("InvoiceCreditNoteHeader-InvoiceCreditNoteRows", GetType(InvoiceCreditNoteHeader))> _
+    Property InvoiceCreditNoteHeader As InvoiceCreditNoteHeader
+        Get
+            Return _InvoiceCreditNoteHeader
+        End Get
+        Set(value As InvoiceCreditNoteHeader)
+            SetPropertyValue("InvoiceCreditNoteHeader", _InvoiceCreditNoteHeader, value)
+        End Set
+    End Property
+    Property QTT As Double
+        Get
+            Return _QTT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property PriceHUF As Double
+        Get
+            Return _PriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceHUF", _PriceHUF, value)
+        End Set
+    End Property
+    Property PriceDEV As Double
+        Get
+            Return _PriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceDEV", _PriceDEV, value)
+        End Set
+    End Property
+    Property SumPriceHUF As Double
+        Get
+            Return _SumPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceHUF", _SumPriceHUF, value)
+        End Set
+    End Property
+    Property SumPriceDEV As Double
+        Get
+            Return _SumPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceDEV", _SumPriceDEV, value)
+        End Set
+    End Property
+    Property SumPriceVATHUF As Double
+        Get
+            Return _SumPriceVATHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceVATHUF", _SumPriceVATHUF, value)
+        End Set
+    End Property
+    Property SumPriceVATDEV As Double
+        Get
+            Return _SumPriceVATDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceVATDEV", _SumPriceVATDEV, value)
+        End Set
+    End Property
+    Property SumPriceBruttoHUF As Double
+        Get
+            Return _SumPriceBruttoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceBruttoHUF", _SumPriceBruttoHUF, value)
+        End Set
+    End Property
+    Property SumPriceBruttoDEV As Double
+        Get
+            Return _SumPriceBruttoDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceBruttoDEV", _SumPriceBruttoDEV, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property StorageInRows As StorageInRows
+        Get
+            Return _StorageInRows
+        End Get
+        Set(value As StorageInRows)
+            SetPropertyValue("StorageInRows", _StorageInRows, value)
+        End Set
+    End Property
+    Property FromInvoiceRows As InvoiceRows
+        Get
+            Return _FromInvoiceRows
+        End Get
+        Set(value As InvoiceRows)
+            SetPropertyValue("FromInvoiceRows", _FromInvoiceRows, value)
+        End Set
+    End Property
+    Property ToInvoiceRows As InvoiceRows
+        Get
+            Return _ToInvoiceRows
+        End Get
+        Set(value As InvoiceRows)
+            SetPropertyValue("ToInvoiceRows", _ToInvoiceRows, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.Designer.vb

@@ -0,0 +1,70 @@
+Partial Class InvoiceCreditNote_VC
+
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+		MyClass.New()
+
+		'Required for Windows.Forms Class Composition Designer support
+		Container.Add(Me)
+
+	End Sub
+
+	'Component overrides dispose to clean up the component list.
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+		If disposing AndAlso components IsNot Nothing Then
+			components.Dispose()
+		End If
+		MyBase.Dispose(disposing)
+	End Sub
+
+	'Required by the Component Designer
+	Private components As System.ComponentModel.IContainer
+
+	'NOTE: The following procedure is required by the Component Designer
+	'It can be modified using the Component Designer.
+	'Do not modify it using the code editor.
+	<System.Diagnostics.DebuggerStepThrough()> _
+	Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.aInvoiceCreditNoteHeader_AddRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aInvoiceCreditNoteHeader_Finalize = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aInvoiceCreditNoteHeader_AddRows
+        '
+        Me.aInvoiceCreditNoteHeader_AddRows.AcceptButtonCaption = Nothing
+        Me.aInvoiceCreditNoteHeader_AddRows.CancelButtonCaption = Nothing
+        Me.aInvoiceCreditNoteHeader_AddRows.Caption = "aInvoiceCreditNoteHeader_AddRows"
+        Me.aInvoiceCreditNoteHeader_AddRows.Category = "ObjectsCreation"
+        Me.aInvoiceCreditNoteHeader_AddRows.ConfirmationMessage = Nothing
+        Me.aInvoiceCreditNoteHeader_AddRows.Id = "aInvoiceCreditNoteHeader_AddRows"
+        Me.aInvoiceCreditNoteHeader_AddRows.ImageName = Nothing
+        Me.aInvoiceCreditNoteHeader_AddRows.Shortcut = Nothing
+        Me.aInvoiceCreditNoteHeader_AddRows.Tag = Nothing
+        Me.aInvoiceCreditNoteHeader_AddRows.TargetObjectsCriteria = Nothing
+        Me.aInvoiceCreditNoteHeader_AddRows.TargetObjectType = GetType(Nuvolar.[Module].InvoiceCreditNoteRows)
+        Me.aInvoiceCreditNoteHeader_AddRows.TargetViewId = "InvoiceCreditNoteHeader_InvoiceCreditNoteRows_ListView"
+        Me.aInvoiceCreditNoteHeader_AddRows.ToolTip = Nothing
+        Me.aInvoiceCreditNoteHeader_AddRows.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aInvoiceCreditNoteHeader_Finalize
+        '
+        Me.aInvoiceCreditNoteHeader_Finalize.Caption = "aInvoiceCreditNoteHeader_Finalize"
+        Me.aInvoiceCreditNoteHeader_Finalize.Category = "ObjectsCreation"
+        Me.aInvoiceCreditNoteHeader_Finalize.ConfirmationMessage = "Are you sure ?"
+        Me.aInvoiceCreditNoteHeader_Finalize.Id = "aInvoiceCreditNoteHeader_Finalize"
+        Me.aInvoiceCreditNoteHeader_Finalize.ImageName = Nothing
+        Me.aInvoiceCreditNoteHeader_Finalize.Shortcut = Nothing
+        Me.aInvoiceCreditNoteHeader_Finalize.Tag = Nothing
+        Me.aInvoiceCreditNoteHeader_Finalize.TargetObjectsCriteria = Nothing
+        Me.aInvoiceCreditNoteHeader_Finalize.TargetObjectType = GetType(Nuvolar.[Module].InvoiceCreditNoteHeader)
+        Me.aInvoiceCreditNoteHeader_Finalize.TargetViewId = Nothing
+        Me.aInvoiceCreditNoteHeader_Finalize.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aInvoiceCreditNoteHeader_Finalize.ToolTip = Nothing
+        Me.aInvoiceCreditNoteHeader_Finalize.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+
+    End Sub
+    Friend WithEvents aInvoiceCreditNoteHeader_AddRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aInvoiceCreditNoteHeader_Finalize As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.resx

@@ -0,0 +1,129 @@
+<?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="aInvoiceCreditNoteHeader_AddRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aInvoiceCreditNoteHeader_Finalize.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>269, 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/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.vb

@@ -0,0 +1,391 @@
+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.SystemModule
+Imports DevExpress.ExpressApp.CloneObject
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.ExpressApp.Utils
+
+Public Class InvoiceCreditNote_VC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+
+#Region "Overrides"
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        If View.Id = "InvoiceCreditNoteHeader_DetailView" Then
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "InvoiceCreditNoteHeader_InvoiceCreditNoteRows_ListView" Then
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "InvoiceRows_ListView_CreditNote" Then
+            AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf InvoiceRows_ListView_CreditNote_AcceptAction_Executing
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+
+        If View.Id = "InvoiceCreditNoteHeader_DetailView" Then
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "InvoiceCreditNoteHeader_InvoiceCreditNoteRows_ListView" Then
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
+        End If
+    End Sub
+#End Region
+
+    Private Sub aInvoiceCreditNoteHeader_AddRows_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aInvoiceCreditNoteHeader_AddRows.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _CustomersFrom As CustomersFrom = _onew.GetObjectByKey(Of CustomersFrom)(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, InvoiceCreditNoteHeader).CustomersFrom.Oid)
+        Dim _Customers As Customers = _onew.GetObjectByKey(Of Customers)(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, InvoiceCreditNoteHeader).Customers.Oid)
+        Dim _InvoiceRows_CollectionSource As New CollectionSource(_onew, GetType(InvoiceRows))
+
+        _InvoiceRows_CollectionSource.BeginUpdateCriteria()
+        _InvoiceRows_CollectionSource.Criteria.Clear()
+        _InvoiceRows_CollectionSource.Criteria.Add("First", CriteriaOperator.Parse("InvoiceHeader.IsStorno=False AND InvoiceHeader.IsEditable=False AND IsNull(InvoiceHeader.GCRecord)=True AND InvoiceHeader.DocumentNumber<>'' AND IsNull(InvoiceHeader)=False AND InvoiceHeader.CustomersFrom=? AND InvoiceHeader.Customers=? AND IsNull(OrderInRows)=False", _
+                                                                 _CustomersFrom, _Customers))
+        _InvoiceRows_CollectionSource.EndUpdateCriteria()
+
+
+        e.View = Application.CreateListView("InvoiceRows_ListView_CreditNote", _InvoiceRows_CollectionSource, True)
+    End Sub
+    Private Sub aInvoiceCreditNoteHeader_AddRows_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aInvoiceCreditNoteHeader_AddRows.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceCreditNoteHeader As InvoiceCreditNoteHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, InvoiceCreditNoteHeader)
+
+        If _InvoiceCreditNoteHeader IsNot Nothing Then
+            For Each _InvoiceRows As InvoiceRows In TryCast(e.PopupWindow.View, ListView).CollectionSource.Collection
+                If _InvoiceRows.QTT_Will > 0 Then
+                    Dim _InvoiceCreditNoteRows As InvoiceCreditNoteRows = _ocur.FindObject(Of InvoiceCreditNoteRows)(CriteriaOperator.Parse("InvoiceCreditNoteHeader=? AND FromInvoiceRows=?", _
+                                                                                                                                            _InvoiceCreditNoteHeader, _ocur.GetObject(_InvoiceRows)))
+                    If _InvoiceCreditNoteRows Is Nothing Then
+                        _InvoiceCreditNoteRows = New InvoiceCreditNoteRows(_ocur.Session)
+                        With _InvoiceCreditNoteRows
+                            .InvoiceCreditNoteHeader = _InvoiceCreditNoteHeader
+                            .QTT = _InvoiceRows.QTT_Will
+                            .PriceHUF = _InvoiceRows.PriceHUF
+                            .PriceDEV = _InvoiceRows.PriceDEV
+                            .SumPriceHUF = Math.Round(.QTT * .PriceHUF, 0, MidpointRounding.AwayFromZero)
+                            .SumPriceDEV = Math.Round(.QTT * .PriceDEV, 2, MidpointRounding.AwayFromZero)
+                            .SumPriceVATHUF = Math.Round(.SumPriceHUF * _InvoiceRows.VAT.KeyValue, 0, MidpointRounding.AwayFromZero)
+                            .SumPriceVATDEV = Math.Round(.SumPriceDEV * _InvoiceRows.VAT.KeyValue, 2, MidpointRounding.AwayFromZero)
+                            .SumPriceBruttoHUF = .SumPriceHUF + .SumPriceVATHUF
+                            .SumPriceBruttoDEV = .SumPriceDEV + .SumPriceVATDEV
+                            .Description = _InvoiceRows.Description
+                            .FromInvoiceRows = _ocur.GetObject(_InvoiceRows)
+                        End With
+                    Else
+                        With _InvoiceCreditNoteRows
+                            .QTT += _InvoiceRows.QTT_Will
+                            .SumPriceHUF = Math.Round(.QTT * .PriceHUF, 0, MidpointRounding.AwayFromZero)
+                            .SumPriceDEV = Math.Round(.QTT * .PriceDEV, 2, MidpointRounding.AwayFromZero)
+                            .SumPriceVATHUF = Math.Round(.SumPriceHUF * _InvoiceRows.VAT.KeyValue, 0, MidpointRounding.AwayFromZero)
+                            .SumPriceVATDEV = Math.Round(.SumPriceDEV * _InvoiceRows.VAT.KeyValue, 2, MidpointRounding.AwayFromZero)
+                            .SumPriceBruttoHUF = .SumPriceHUF + .SumPriceVATHUF
+                            .SumPriceBruttoDEV = .SumPriceDEV + .SumPriceVATDEV
+                        End With
+                    End If
+                End If
+            Next
+
+            _ocur.CommitChanges()
+        End If
+
+    End Sub
+    Private Sub aInvoiceCreditNoteHeader_Finalize_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInvoiceCreditNoteHeader_Finalize.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer)
+        Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User))
+
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _InvoiceCreditNoteHeader As InvoiceCreditNoteHeader = TryCast(View.SelectedObjects(0), InvoiceCreditNoteHeader)
+
+            If _InvoiceCreditNoteHeader IsNot Nothing And _InvoiceCreditNoteHeader.InvoiceCreditNoteRows.Count > 0 Then
+                If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then
+                    Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-"))
+
+                    Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions\StorageComputed", "CanNotStorageInByLocking")
+                    Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxError")
+                    MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title)
+
+                    Exit Sub
+                Else
+                    'Új számlák darabszámának meghatározása OrderInParameters alapján
+                    Dim _OrderInParameters_Array As New ArrayList
+                    Dim _InvoiceHeader_Credited_Collection As New ArrayList
+
+                    For Each _InvoiceCreditNoteRows As InvoiceCreditNoteRows In _InvoiceCreditNoteHeader.InvoiceCreditNoteRows
+                        If _OrderInParameters_Array.Count = 0 Then
+                            _OrderInParameters_Array.Add(_InvoiceCreditNoteRows.FromInvoiceRows.OrderInRows.OrderInHeader.OrderInParameters)
+                        Else
+                            Dim _Need As Boolean = True
+
+                            For Each _OrderInParameters As OrderInParameters In _OrderInParameters_Array
+                                If _OrderInParameters.Oid = _InvoiceCreditNoteRows.FromInvoiceRows.OrderInRows.OrderInHeader.OrderInParameters.Oid Then
+                                    _Need = False
+                                    Exit For
+                                End If
+                            Next
+
+                            If _Need Then
+                                _OrderInParameters_Array.Add(_InvoiceCreditNoteRows.FromInvoiceRows.OrderInRows.OrderInHeader.OrderInParameters)
+                            End If
+                        End If
+                    Next
+
+                    If _OrderInParameters_Array.Count > 0 Then
+                        For Each _OrderInParameters As OrderInParameters In _OrderInParameters_Array
+
+                            Dim _InvoiceHeader_Credited As New InvoiceHeader(_ocur.Session)
+                            With _InvoiceHeader_Credited
+                                .InvoiceType = _OrderInParameters.InvoiceType
+                                .CustomersFrom = _InvoiceCreditNoteHeader.CustomersFrom
+                                .Customers = _InvoiceCreditNoteHeader.Customers
+                                .DateCreated = GetSQLTime(_ocur.Session)
+                                .DateExecution = _InvoiceCreditNoteHeader.DateExecution
+                                .DatePayment = _InvoiceCreditNoteHeader.DatePayment
+                                .PaymentOption = _InvoiceCreditNoteHeader.PaymentOption
+                                .ShipmentOption = _OrderInParameters.ShipmentOption
+                                .CurrencyName = _OrderInParameters.CurrencyName                               
+                                If .PaymentOption.PayMode <> ePayMode.InCash Then
+                                    .BankInformation = _OrderInParameters.BankInformation
+                                End If
+                                .Description = _InvoiceCreditNoteHeader.Description
+
+                                InvoiceHeaderSavedSettings(_InvoiceHeader_Credited)
+
+                                If .PaymentOption.PayMode = ePayMode.InContinuous Then
+                                    .DatePayment = .DateExecution
+                                Else
+                                    If .PaymentOption.DatePaymentMode = eDatePaymentMode.eDateCreated Then
+                                        .DatePayment = .DateCreated.AddDays(.PaymentOption.PayDay)
+                                    Else
+                                        .DatePayment = .DateExecution.AddDays(.PaymentOption.PayDay)
+                                    End If
+                                End If
+                                If .InvoiceType.NumberGeneratorProforma IsNot Nothing Then
+                                    .DocumentNumberProforma = .InvoiceType.NumberGeneratorProforma.GetNewNumber(.InvoiceType.NumberGeneratorProforma)
+                                End If
+
+                                'Véglegesítés
+                                .IsCreditNote = True
+                                .IsEditable = False
+                                .IsProforma = False
+                                .IsStorno = False
+
+                                '.ConnectInfo = .InvoiceType.NumberGenerator.GetNewNumber(.InvoiceType.NumberGenerator)
+                                .DocumentNumber = .InvoiceType.NumberGenerator.GetNewNumber(.InvoiceType.NumberGenerator) '.ConnectInfo
+                            End With
+
+
+                            _InvoiceHeader_Credited_Collection.Add(_InvoiceHeader_Credited)
+
+                            'Számlasorok beszúrása
+                            Dim _InvoiceCreditNoteRows_Collection As New XPCollection(Of InvoiceCreditNoteRows)(_ocur.Session, CriteriaOperator.Parse("InvoiceCreditNoteHeader=? AND FromInvoiceRows.OrderInRows.OrderInHeader.OrderInParameters=?", _
+                                                                                                                                                      _InvoiceCreditNoteHeader, _OrderInParameters))
+
+                            If _InvoiceCreditNoteRows_Collection.Count > 0 Then
+                                For Each _InvoiceCreditNoteRows As InvoiceCreditNoteRows In _InvoiceCreditNoteRows_Collection
+                                    Dim _InvoiceRows As New InvoiceRows(_ocur.Session)
+                                    With _InvoiceRows
+                                        .InvoiceHeader = _InvoiceHeader_Credited
+                                        .RowIndex = _InvoiceHeader_Credited.InvoiceRows.Count
+                                        .OrderInRows = _InvoiceCreditNoteRows.FromInvoiceRows.OrderInRows
+                                        .InvoiceRowtype = eInvoiceRowType.FromOrder
+                                        .DiscountPriceDEV = 0
+                                        .DiscountPriceHUF = 0
+                                        .ListPriceDEV = _InvoiceCreditNoteRows.PriceDEV
+                                        .ListPriceHUF = _InvoiceCreditNoteRows.PriceHUF
+                                        .QTT = _InvoiceCreditNoteRows.QTT * (-1)
+                                        .QualityOption = _InvoiceCreditNoteRows.FromInvoiceRows.QualityOption
+                                        .ShortName = _InvoiceCreditNoteRows.FromInvoiceRows.ShortName
+                                        .Units = _InvoiceCreditNoteRows.FromInvoiceRows.Units
+                                        .VAT = _InvoiceCreditNoteRows.FromInvoiceRows.VAT
+                                        .Description = _InvoiceCreditNoteRows.Description
+                                        .CustomsTariffs = _InvoiceCreditNoteRows.FromInvoiceRows.CustomsTariffs
+                                        .Controlling = _InvoiceCreditNoteRows.FromInvoiceRows.Controlling
+                                        .InvoiceRows = _InvoiceCreditNoteRows.FromInvoiceRows
+                                    End With
+                                    _InvoiceCreditNoteRows.ToInvoiceRows = _InvoiceRows
+                                    If String.IsNullOrEmpty(_InvoiceHeader_Credited.ConnectInfo) Then
+                                        _InvoiceHeader_Credited.ConnectInfo = _InvoiceCreditNoteRows.FromInvoiceRows.InvoiceHeader.DocumentNumber
+                                    End If
+                                Next
+                            End If
+                        Next
+
+
+                        'Betárolás
+                        Dim _StorageInHeader As New StorageInHeader(_ocur.Session)
+                        With _StorageInHeader
+                            .Storage = _InvoiceCreditNoteHeader.Storage
+                            .StorageMoveType = _InvoiceCreditNoteHeader.StorageMoveType
+                            .CreateDate = _InvoiceCreditNoteHeader.DateExecution
+                        End With
+
+                        If _InvoiceCreditNoteHeader.InvoiceCreditNoteRows.Count > 0 Then
+                            For Each _InvoiceCreditNoteRows As InvoiceCreditNoteRows In _InvoiceCreditNoteHeader.InvoiceCreditNoteRows
+                                Dim _StorageInRows As New StorageInRows(_ocur.Session)
+                                With _StorageInRows
+                                    .StorageInHeader = _StorageInHeader
+                                    .RowIndex = _StorageInHeader.StorageInRows.Count
+                                    .Products = _InvoiceCreditNoteRows.FromInvoiceRows.OrderInRows.Products
+                                    .QTT_Will = _InvoiceCreditNoteRows.QTT
+                                    .AveragePriceInHUF = (_InvoiceCreditNoteRows.ToInvoiceRows.SumAveragePriceHUF / _InvoiceCreditNoteRows.ToInvoiceRows.QTT)
+
+                                    If _InvoiceCreditNoteRows.FromInvoiceRows.DeliveryNoteOutRows IsNot Nothing Then
+                                        .PacketNumber = _InvoiceCreditNoteRows.FromInvoiceRows.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.PacketNumber
+                                        .SerialNumber = _InvoiceCreditNoteRows.FromInvoiceRows.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.SerialNumber
+                                        .Weight = Math.Round(_InvoiceCreditNoteRows.FromInvoiceRows.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.Weight / _InvoiceCreditNoteRows.FromInvoiceRows.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.QTT * _InvoiceCreditNoteRows.QTT, 4, MidpointRounding.AwayFromZero)
+                                        .WeightMode = _InvoiceCreditNoteRows.FromInvoiceRows.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.WeightMode
+                                    End If
+
+                                    Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _
+                                                                                                                            .Products, _StorageInHeader.Storage))
+
+                                    If _StorageComputed Is Nothing Then
+                                        _StorageComputed = _ocur.CreateObject(Of StorageComputed)()
+                                        _StorageComputed.Storage = .Storage
+                                        _StorageComputed.Products = .Products
+                                        _StorageComputed.QTTReservedIn = .QTT_Will
+                                    Else
+                                        _StorageComputed.QTTReservedIn += .QTT_Will
+                                    End If
+
+                                End With
+                            Next
+                        End If
+
+                        'Betárolás véglegesítése
+                        For Each _StorageInRows As StorageInRows In _StorageInHeader.StorageInRows
+
+                            Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _
+                                                                                    _onew.GetObject(_StorageInRows.Products), _onew.GetObject(_StorageInHeader.Storage)))
+
+                            If _StorageInRows.QTT_Will > 0 Then
+                                _StorageInRows.QTT = _StorageInRows.QTT_Will
+                                _StorageComputed.QTTFree += _StorageInRows.QTT_Will
+                                _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will
+
+                                Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session)
+                                With _StorageMoveEvents
+                                    .StorageInRows = _onew.GetObject(_StorageInRows)
+                                    .QTT = _StorageInRows.QTT_Will
+                                    .QTT_Free_After = _StorageComputed.QTTFree
+                                    .QTT_Free_Before = _StorageMoveEvents.QTT_Free_After - _StorageMoveEvents.QTT
+                                    .MoveEventsType = eMoveEventsType.StorageInFinal
+                                    .ExecutionDate = _StorageInRows.StorageInHeader.CreateDate
+                                End With
+
+                                _StorageInRows.QTT_Will = 0
+                            End If
+                        Next
+
+                        _StorageInHeader.IsEditable = False
+                        _StorageInHeader.IsFinalized = True
+
+                        _ocur.CommitChanges()
+
+                        For Each _InvoiceHeader As InvoiceHeader In _InvoiceHeader_Credited_Collection
+                            _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _ocur)
+                        Next
+                        _ocur.CommitChanges()
+
+                        Dim _ReportData_Storage As ReportData = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageInHeader.Storage.ReportIn.Oid), True)
+                        If _ReportData_Storage Is Nothing Or _StorageInHeader Is Nothing Then
+                        Else
+                            Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData_Storage, CriteriaOperator.Parse("StorageInHeader.DocumentNumber =?", _StorageInHeader.DocumentNumber), True)
+                        End If
+
+                        For Each _InvoiceHeader As InvoiceHeader In _InvoiceHeader_Credited_Collection
+                            If _InvoiceHeader IsNot Nothing Then
+                                Dim _XAFPrintHelper As New XAFPrintHelper(Nothing, Frame, _InvoiceHeader.InvoiceType.ReportDataV2, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHeader.Oid))
+                                _XAFPrintHelper.ShowPreviewV2()
+                            End If
+                        Next
+                    End If
+                End If
+            End If
+            View.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User)
+        End Try
+    End Sub
+    Private Sub InvoiceRows_ListView_CreditNote_AcceptAction_Executing(sender As Object, e As CancelEventArgs)
+        Try
+            Dim _onew As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            For Each _InvoiceRows As InvoiceRows In TryCast(View, ListView).CollectionSource.Collection
+                If _InvoiceRows.QTT_Will > 0 Then
+                    If (_InvoiceRows.QTT_CreditNote + _InvoiceRows.QTT_Will) > _InvoiceRows.QTT Then
+                        e.Cancel = True
+                        Throw New Exception(String.Format("A {0} rendelésen lévõ {1} sorban az eladott mennyiség kisebb, mint a visszavenni kívánt mennyiség!", _
+                                                          _InvoiceRows.InvoiceHeader.DocumentNumber, _InvoiceRows.OrderInRows.Products.ShortName))
+                    End If
+                End If
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+    Private Sub InvoiceHeaderSavedSettings(ByVal _InvoiceHeader As InvoiceHeader)
+        On Error GoTo CheckError
+        With _InvoiceHeader
+            .Saved_Customers_Name = _InvoiceHeader.Customers.Name.ToString
+            .Saved_Customers_Address_Country = _InvoiceHeader.Customers.Address1.Country.ToString
+            .Saved_Customers_Address_ZipPostal = _InvoiceHeader.Customers.Address1.ZipPostal.ToString
+            .Saved_Customers_Address_Street = _InvoiceHeader.Customers.Address1.Street.ToString
+            .Saved_Customers_Address_City = _InvoiceHeader.Customers.Address1.City.ToString
+            .Saved_Customers_Address_StateProvince = _InvoiceHeader.Customers.Address1.StateProvince.ToString
+            .Saved_Customers_VATNumber = _InvoiceHeader.Customers.VATNumber.ToString
+            .Saved_Customers_VATNumberEU = _InvoiceHeader.Customers.VATNumberEU.ToString
+
+            .Saved_CustomersFrom_Name = _InvoiceHeader.CustomersFrom.Name.ToString
+            .Saved_CustomersFrom_Address_ZipPostal = _InvoiceHeader.CustomersFrom.Address1.ZipPostal.ToString
+            .Saved_CustomersFrom_Address_Street = _InvoiceHeader.CustomersFrom.Address1.Street.ToString
+            .Saved_CustomersFrom_Address_City = _InvoiceHeader.CustomersFrom.Address1.City.ToString
+            .Saved_CustomersFrom_Address_StateProvince = _InvoiceHeader.CustomersFrom.Address1.StateProvince.ToString
+            .Saved_CustomersFrom_VATNumber = _InvoiceHeader.CustomersFrom.VATNumber.ToString
+            .Saved_CustomersFrom_VATNumberEU = _InvoiceHeader.CustomersFrom.VATNumberEU.ToString
+
+            .Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader.BankInformation.FullBankAccount.ToString
+            .Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN.ToString
+            .Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT.ToString
+            .Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber.ToString
+        End With
+
+CheckError:
+        If Err.Number = 91 Then Resume Next
+        If Err.Number = 13 Then Resume Next
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceHold.vb

@@ -0,0 +1,115 @@
+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 eHoldRowType
+    Normal = 0
+    Hold = 1
+End Enum
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class InvoiceHold
+    Inherits BaseObject
+
+    Private _InvoiceHeader As InvoiceHeader 'Számla fejléc
+    Private _RowIndex As Long = 0 'Sor index
+    Private _RowType As eHoldRowType
+    Private _DatePayment As Date 'Fizetési határidõ
+    Private _ShortName As String 'Visszatartás oka (szöveg)
+    Private _AmountHUF As Double 'Visszatartás összege HUF
+    Private _AmountDEV As Double 'Visszatartás összege DEV
+    Private _BallanceDEV As Double 'Egyenleg (DEV)
+    Private _BallanceHUF As Double 'Egyenleg (HUF)
+    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 InvoiceHeader As InvoiceHeader
+        Get
+            Return _InvoiceHeader
+        End Get
+        Set(value As InvoiceHeader)
+            SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
+        End Set
+    End Property
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    Property RowType As eHoldRowType
+        Get
+            Return _RowType
+        End Get
+        Set(value As eHoldRowType)
+            SetPropertyValue("RowType", _RowType, value)
+        End Set
+    End Property
+    Property DatePayment As Date
+        Get
+            Return _DatePayment.Date
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DatePayment", _DatePayment, value.Date)
+        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 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
+    Property BallanceHUF As Double
+        Get
+            Return _BallanceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("BallanceHUF", _BallanceHUF, value)
+        End Set
+    End Property
+    Property BallanceDEV As Double
+        Get
+            Return _BallanceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("BallanceDEV", _BallanceDEV, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowVC.Designer.vb

@@ -0,0 +1,214 @@
+Partial Class InvoiceRowVC
+
+	<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.aToTableD_Invoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTable_Invoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBackToRowEdit_Invoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aUp_InvoiceRow = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDown_InvoiceRow = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aPrintInvoiceByRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aChangeInvoiceByRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aInvoiceRowPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aChoiceProducts = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aChoiceService = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aToTableD_Invoice
+        '
+        Me.aToTableD_Invoice.Caption = "Delete row"
+        Me.aToTableD_Invoice.Category = "aToTableD_Invoice"
+        Me.aToTableD_Invoice.ConfirmationMessage = Nothing
+        Me.aToTableD_Invoice.Id = "aToTableD_Invoice"
+        Me.aToTableD_Invoice.ImageName = "row_delete"
+        Me.aToTableD_Invoice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aToTableD_Invoice.Shortcut = Nothing
+        Me.aToTableD_Invoice.Tag = Nothing
+        Me.aToTableD_Invoice.TargetObjectsCriteria = Nothing
+        Me.aToTableD_Invoice.TargetViewId = ""
+        Me.aToTableD_Invoice.ToolTip = Nothing
+        Me.aToTableD_Invoice.TypeOfView = Nothing
+        '
+        'aToTable_Invoice
+        '
+        Me.aToTable_Invoice.Caption = "aToTable"
+        Me.aToTable_Invoice.Category = "aToTable_Invoice"
+        Me.aToTable_Invoice.ConfirmationMessage = Nothing
+        Me.aToTable_Invoice.Id = "aToTable_Invoice"
+        Me.aToTable_Invoice.ImageName = "row_add_after"
+        Me.aToTable_Invoice.Shortcut = Nothing
+        Me.aToTable_Invoice.Tag = Nothing
+        Me.aToTable_Invoice.TargetObjectsCriteria = "row_QTT<>0"
+        Me.aToTable_Invoice.TargetViewId = ""
+        Me.aToTable_Invoice.ToolTip = Nothing
+        Me.aToTable_Invoice.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aBackToRowEdit_Invoice
+        '
+        Me.aBackToRowEdit_Invoice.Caption = "Edit row"
+        Me.aBackToRowEdit_Invoice.Category = "aBackToRowEdit_Invoice"
+        Me.aBackToRowEdit_Invoice.ConfirmationMessage = Nothing
+        Me.aBackToRowEdit_Invoice.Id = "aBackToRowEdit_Invoice"
+        Me.aBackToRowEdit_Invoice.ImageName = "table_refresh"
+        Me.aBackToRowEdit_Invoice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBackToRowEdit_Invoice.Shortcut = Nothing
+        Me.aBackToRowEdit_Invoice.Tag = Nothing
+        Me.aBackToRowEdit_Invoice.TargetObjectsCriteria = Nothing
+        Me.aBackToRowEdit_Invoice.TargetViewId = ""
+        Me.aBackToRowEdit_Invoice.ToolTip = Nothing
+        Me.aBackToRowEdit_Invoice.TypeOfView = Nothing
+        '
+        'aUp_InvoiceRow
+        '
+        Me.aUp_InvoiceRow.Caption = "Up"
+        Me.aUp_InvoiceRow.Category = "RecordsNavigation"
+        Me.aUp_InvoiceRow.ConfirmationMessage = Nothing
+        Me.aUp_InvoiceRow.Id = "aUp_InvoiceRow"
+        Me.aUp_InvoiceRow.ImageName = "arrow_up_green"
+        Me.aUp_InvoiceRow.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aUp_InvoiceRow.Shortcut = Nothing
+        Me.aUp_InvoiceRow.Tag = Nothing
+        Me.aUp_InvoiceRow.TargetObjectsCriteria = Nothing
+        Me.aUp_InvoiceRow.TargetViewId = "InvoiceHeader_InvoiceRows_ListView"
+        Me.aUp_InvoiceRow.ToolTip = Nothing
+        Me.aUp_InvoiceRow.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aDown_InvoiceRow
+        '
+        Me.aDown_InvoiceRow.Caption = "Down"
+        Me.aDown_InvoiceRow.Category = "RecordsNavigation"
+        Me.aDown_InvoiceRow.ConfirmationMessage = Nothing
+        Me.aDown_InvoiceRow.Id = "aDown_InvoiceRow"
+        Me.aDown_InvoiceRow.ImageName = "arrow_down_green"
+        Me.aDown_InvoiceRow.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aDown_InvoiceRow.Shortcut = Nothing
+        Me.aDown_InvoiceRow.Tag = Nothing
+        Me.aDown_InvoiceRow.TargetObjectsCriteria = Nothing
+        Me.aDown_InvoiceRow.TargetViewId = "InvoiceHeader_InvoiceRows_ListView"
+        Me.aDown_InvoiceRow.ToolTip = Nothing
+        Me.aDown_InvoiceRow.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aPrintInvoiceByRows
+        '
+        Me.aPrintInvoiceByRows.Caption = "aPrint Invoice By Rows"
+        Me.aPrintInvoiceByRows.Category = "View"
+        Me.aPrintInvoiceByRows.ConfirmationMessage = Nothing
+        Me.aPrintInvoiceByRows.Id = "aPrintInvoiceByRows"
+        Me.aPrintInvoiceByRows.ImageName = Nothing
+        Me.aPrintInvoiceByRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aPrintInvoiceByRows.Shortcut = Nothing
+        Me.aPrintInvoiceByRows.Tag = Nothing
+        Me.aPrintInvoiceByRows.TargetObjectsCriteria = Nothing
+        Me.aPrintInvoiceByRows.TargetObjectType = GetType(Nuvolar.[Module].InvoiceRows)
+        Me.aPrintInvoiceByRows.TargetViewId = Nothing
+        Me.aPrintInvoiceByRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aPrintInvoiceByRows.ToolTip = Nothing
+        Me.aPrintInvoiceByRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aChangeInvoiceByRows
+        '
+        Me.aChangeInvoiceByRows.AcceptButtonCaption = Nothing
+        Me.aChangeInvoiceByRows.CancelButtonCaption = Nothing
+        Me.aChangeInvoiceByRows.Caption = "aChange Invoice By Rows"
+        Me.aChangeInvoiceByRows.ConfirmationMessage = Nothing
+        Me.aChangeInvoiceByRows.Id = "aChangeInvoiceByRows"
+        Me.aChangeInvoiceByRows.ImageName = Nothing
+        Me.aChangeInvoiceByRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aChangeInvoiceByRows.Shortcut = Nothing
+        Me.aChangeInvoiceByRows.Tag = Nothing
+        Me.aChangeInvoiceByRows.TargetObjectsCriteria = Nothing
+        Me.aChangeInvoiceByRows.TargetObjectType = GetType(Nuvolar.[Module].InvoiceRows)
+        Me.aChangeInvoiceByRows.TargetViewId = Nothing
+        Me.aChangeInvoiceByRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aChangeInvoiceByRows.ToolTip = Nothing
+        Me.aChangeInvoiceByRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aInvoiceRowPrint
+        '
+        Me.aInvoiceRowPrint.Caption = "aInvoiceRowPrint"
+        Me.aInvoiceRowPrint.Category = "Print"
+        Me.aInvoiceRowPrint.ConfirmationMessage = Nothing
+        Me.aInvoiceRowPrint.Id = "aInvoiceRowPrint"
+        Me.aInvoiceRowPrint.ImageName = Nothing
+        Me.aInvoiceRowPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aInvoiceRowPrint.Shortcut = Nothing
+        Me.aInvoiceRowPrint.Tag = Nothing
+        Me.aInvoiceRowPrint.TargetObjectsCriteria = Nothing
+        Me.aInvoiceRowPrint.TargetObjectType = GetType(Nuvolar.[Module].InvoiceRows)
+        Me.aInvoiceRowPrint.TargetViewId = ""
+        Me.aInvoiceRowPrint.ToolTip = Nothing
+        Me.aInvoiceRowPrint.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aChoiceProducts
+        '
+        Me.aChoiceProducts.AcceptButtonCaption = Nothing
+        Me.aChoiceProducts.CancelButtonCaption = Nothing
+        Me.aChoiceProducts.Caption = "aChoice Products"
+        Me.aChoiceProducts.Category = "aChoiceProducts"
+        Me.aChoiceProducts.ConfirmationMessage = Nothing
+        Me.aChoiceProducts.Id = "aChoiceProducts"
+        Me.aChoiceProducts.ImageName = Nothing
+        Me.aChoiceProducts.Shortcut = Nothing
+        Me.aChoiceProducts.Tag = Nothing
+        Me.aChoiceProducts.TargetObjectsCriteria = Nothing
+        Me.aChoiceProducts.TargetObjectType = GetType(Nuvolar.[Module].InvoiceHeader)
+        Me.aChoiceProducts.TargetViewId = Nothing
+        Me.aChoiceProducts.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aChoiceProducts.ToolTip = Nothing
+        Me.aChoiceProducts.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aChoiceService
+        '
+        Me.aChoiceService.AcceptButtonCaption = Nothing
+        Me.aChoiceService.CancelButtonCaption = Nothing
+        Me.aChoiceService.Caption = "aChoice Service"
+        Me.aChoiceService.Category = "aChoiceService"
+        Me.aChoiceService.ConfirmationMessage = Nothing
+        Me.aChoiceService.Id = "aChoiceService"
+        Me.aChoiceService.ImageName = Nothing
+        Me.aChoiceService.Shortcut = Nothing
+        Me.aChoiceService.Tag = Nothing
+        Me.aChoiceService.TargetObjectsCriteria = Nothing
+        Me.aChoiceService.TargetObjectType = GetType(Nuvolar.[Module].InvoiceHeader)
+        Me.aChoiceService.TargetViewId = Nothing
+        Me.aChoiceService.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aChoiceService.ToolTip = Nothing
+        Me.aChoiceService.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+
+    End Sub
+    Friend WithEvents aToTableD_Invoice As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTable_Invoice As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aBackToRowEdit_Invoice As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aUp_InvoiceRow As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aDown_InvoiceRow As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aPrintInvoiceByRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aChangeInvoiceByRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aInvoiceRowPrint As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aChoiceProducts As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aChoiceService As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowVC.resx

@@ -0,0 +1,153 @@
+<?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="aToTableD_Invoice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aToTable_Invoice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aBackToRowEdit_Invoice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aUp_InvoiceRow.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 290</value>
+  </metadata>
+  <metadata name="aDown_InvoiceRow.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aPrintInvoiceByRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 329</value>
+  </metadata>
+  <metadata name="aChangeInvoiceByRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 368</value>
+  </metadata>
+  <metadata name="aInvoiceRowPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aChoiceProducts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aChoiceService.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>689, 212</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/Business/BusinessTransactions/Invoice/InvoiceRowVC.vb

@@ -0,0 +1,460 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.Utils
+Imports DevExpress.Persistent.BaseImpl
+
+Public Class InvoiceRowVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event DoWork()
+    Public Event FinalWork
+    Protected _noselect As Boolean = False
+    Protected _selection As ArrayList
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+        _selection = New ArrayList()
+    End Sub
+    Private _InvoiceRows_Corr As InvoiceRows
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        Frame.GetController(Of InvoiceRowVC).aToTable_Invoice.Active.SetItemValue("", False)
+        Frame.GetController(Of InvoiceRowVC).aBackToRowEdit_Invoice.Active.SetItemValue("", False)
+        Frame.GetController(Of InvoiceRowVC).aToTableD_Invoice.Active.SetItemValue("", False)
+        Frame.GetController(Of InvoiceRowVC).aChoiceProducts.Active.SetItemValue("", False)
+        Frame.GetController(Of InvoiceRowVC).aChoiceService.Active.SetItemValue("", False)
+
+        If View.Id = "InvoiceHeader_DetailView" Then
+            Dim _InvoiceHeader As InvoiceHeader = Nothing
+            If View.SelectedObjects.Count > 0 Then
+                _InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader)
+            End If
+            If _InvoiceHeader IsNot Nothing Then
+                If _InvoiceHeader.IsEditable = True Then
+                    Frame.GetController(Of InvoiceRowVC).aToTable_Invoice.Active.SetItemValue("", True)
+                    Frame.GetController(Of InvoiceRowVC).aBackToRowEdit_Invoice.Active.SetItemValue("", True)
+                    Frame.GetController(Of InvoiceRowVC).aToTableD_Invoice.Active.SetItemValue("", True)
+                    Frame.GetController(Of InvoiceRowVC).aChoiceProducts.Active.SetItemValue("", True)
+                    Frame.GetController(Of InvoiceRowVC).aChoiceService.Active.SetItemValue("", True)
+                End If
+            End If
+        End If
+
+        If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of InvoiceVC)().aDeleteSelectedInvoiceRows.Active.SetItemValue("", False) ' Kijelölt sor törlése
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+        End If
+
+        If View.Id = "InvoiceHeader_InvoiceVATRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "InvoiceRows_ListView_Table" Then
+            AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
+        End If
+        If View.Id = "OrderInHeader_InvoiceRows_ListView" Or View.Id = "InvoiceHeader_InvoiceRows_ListView" Then
+            Frame.GetController(Of InvoiceRowVC).aInvoiceRowPrint.Active.SetItemValue("", False)
+        End If
+
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of InvoiceVC)().aDeleteSelectedInvoiceRows.Active.SetItemValue("", True) ' Kijelölt sor törlése
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+        End If
+
+        If View.Id = "InvoiceHeader_InvoiceVATRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+        End If
+        If View.Id = "InvoiceRows_ListView_Table" Then
+            RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
+        End If
+        If View.Id = "OrderInHeader_InvoiceRows_ListView" Or View.Id = "InvoiceHeader_InvoiceRows_ListView" Then
+            Frame.GetController(Of InvoiceRowVC).aInvoiceRowPrint.Active.SetItemValue("", True)
+        End If
+    End Sub
+    Private Sub aToTable_Invoice_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_Invoice.Execute
+        Dim _InvoiceHeader As InvoiceHeader = CType(e.SelectedObjects(0), InvoiceHeader)
+
+        If _InvoiceHeader.IsCorrigendum Then
+            Dim _ItemInvoiceRows As ListPropertyEditor = TryCast(View, DetailView).FindItem("@InvoiceHeader.InvoiceRows")
+            If _ItemInvoiceRows IsNot Nothing Then
+                _InvoiceRows_Corr = TryCast(_ItemInvoiceRows.ListView.SelectedObjects(0), InvoiceRows)
+            End If
+        End If
+
+        If _InvoiceRows_Corr IsNot Nothing Then
+            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+        End If
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+
+
+        Dim _InvoiceRows_Originalminus As InvoiceRows = Nothing
+        If _InvoiceRows_Corr IsNot Nothing Then
+            _InvoiceRows_Originalminus = _ocur.FindObject(Of InvoiceRows)(CriteriaOperator.Parse("InvoiceRowCorrigendumType=1 AND InvoiceRows.Oid=?", _InvoiceRows_Corr.Oid))
+        End If
+
+        If _InvoiceRows_Originalminus Is Nothing Then
+            Dim _InvoiceRows As InvoiceRows = _ocur.CreateObject(Of InvoiceRows)()
+            _InvoiceRows.AddRows(_InvoiceHeader, _InvoiceRows_Corr, _ocur)
+
+            Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products")
+            If ItemToFocus IsNot Nothing Then
+                Dim ItemControl As Object
+                ItemControl = ItemToFocus.Control
+                If ItemControl IsNot Nothing Then 'A Control ha ures lépjen tovább
+                    ItemControl.Focus()
+                End If
+            End If
+
+            _ocur.CommitChanges()
+            _InvoiceRows_Corr = Nothing
+            If _InvoiceRows_Corr IsNot Nothing Then
+                _InvoiceHeader.row_QTT = 0
+            Else
+                _InvoiceHeader.row_QTT = 1
+            End If
+            _InvoiceHeader.row_ShortName = ""
+            _InvoiceHeader.row_Description = ""
+            _InvoiceHeader.row_ListPriceHUF = 0
+            _InvoiceHeader.row_ListPriceDEV = 0
+            _InvoiceHeader.row_DiscountPercent = 0
+            _InvoiceHeader.row_QualityOption = Nothing
+            _InvoiceHeader.row_Controlling = Nothing
+            _InvoiceHeader.row_UniqueObjects = Nothing
+            _InvoiceHeader.row_CostHolder = Nothing
+            _InvoiceHeader.row_CostPlace = Nothing
+            _InvoiceHeader.row_JobNumberObjects = Nothing
+
+
+
+            If _InvoiceRows_Corr IsNot Nothing Then
+                Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+            End If
+        Else
+            '_ocur.Rollback()
+            Throw New Exception("*Ez a sor már módosítva lett!")
+        End If
+        View.Refresh()
+    End Sub
+    Private Sub aToTableD_Invoice_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_Invoice.Execute
+        Dim _InvoiceRows As InvoiceRows
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader)
+        Dim _InvoiceRows_ListEditor As ListPropertyEditor
+
+        _InvoiceRows_ListEditor = TryCast(View, DetailView).FindItem("InvoiceRows")
+        For Each _InvoiceRows In _InvoiceRows_ListEditor.ListView.SelectedObjects
+            If _InvoiceRows.InvoiceRowCorrigendumType <> eInvoiceRowCorrigendumType.eNormal Then
+                Dim _InvoiceRows_Link As InvoiceRows = Nothing
+                If _InvoiceRows.InvoiceRowCorrigendumType = eInvoiceRowCorrigendumType.eNew Then
+                    _InvoiceRows_Link = _ocur.FindObject(Of InvoiceRows)(CriteriaOperator.Parse("InvoiceRowCorrigendumType=1 AND InvoiceRows.Oid=?", _InvoiceRows.InvoiceRows.Oid))
+                End If
+                If _InvoiceRows.InvoiceRowCorrigendumType = eInvoiceRowCorrigendumType.eOriginalMinus Then
+                    _InvoiceRows_Link = _ocur.FindObject(Of InvoiceRows)(CriteriaOperator.Parse("InvoiceRowCorrigendumType=2 AND InvoiceRows.Oid=?", _InvoiceRows.InvoiceRows.Oid))
+                End If
+                _InvoiceRows_Link.Delete()
+
+            End If
+            _InvoiceRows.RemoveRows(_InvoiceHeader)
+        Next
+        _InvoiceHeader.Save()
+
+        View.Refresh()
+    End Sub
+    Private Sub aBackToRowEdit_Invoice_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_Invoice.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceHeader As InvoiceHeader = View.SelectedObjects(0) 'Kijelölt elem fejlécének betöltése
+        Dim _ListView As ListPropertyEditor
+        If _InvoiceHeader.IsCorrigendum = True Then
+            _ListView = TryCast(View, DetailView).FindItem("@InvoiceHeader.InvoiceRows") 'Sorok összeszedése
+        Else
+            _ListView = TryCast(View, DetailView).FindItem("InvoiceRows") 'Sorok összeszedése
+        End If
+        If _ListView.ListView.SelectedObjects.Count > 0 Then
+
+            Dim _InvoiceRows As InvoiceRows = _ListView.ListView.SelectedObjects(0)  'Régi sor változóba töltése
+            _InvoiceHeader.row_Controlling = _InvoiceRows.Controlling
+            _InvoiceHeader.row_CostHolder = _InvoiceRows.CostHolder
+            _InvoiceHeader.row_CostPlace = _InvoiceRows.CostPlace
+            _InvoiceHeader.row_Description = _InvoiceRows.Description
+            _InvoiceHeader.row_DiscountPercent = _InvoiceRows.DiscountPercent
+            _InvoiceHeader.row_JobNumberObjects = _InvoiceRows.JobNumberObjects
+            _InvoiceHeader.row_ListPriceDEV = _InvoiceRows.ListPriceDEV
+            _InvoiceHeader.row_ListPriceHUF = _InvoiceRows.ListPriceHUF
+            _InvoiceHeader.row_QTT = _InvoiceRows.QTT
+            _InvoiceHeader.row_QualityOption = _InvoiceRows.QualityOption
+            _InvoiceHeader.row_ShortName = _InvoiceRows.ShortName
+            _InvoiceHeader.row_UniqueObjects = _InvoiceRows.UniqueObjects
+            _InvoiceHeader.row_Units = _InvoiceRows.Units
+            _InvoiceHeader.row_VAT = _InvoiceRows.VAT
+            _InvoiceHeader.row_InvoicePeriod = _InvoiceRows.InvoicePeriod
+            _InvoiceHeader.row_CustomsTariffs = _InvoiceRows.CustomsTariffs
+            If View.Id = "InvoiceHeader_DetailView_Corrigendum" Then
+                _InvoiceRows_Corr = _InvoiceRows
+            End If
+        End If
+    End Sub
+    Private Sub aUp_InvoiceRow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_InvoiceRow.Execute
+        ' A kiválaszott sort egy sorral feljebb helyezi
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceRows).InvoiceHeader
+        Dim _InvoiceRowsSelected As InvoiceRows
+        Dim _InvoiceRowsMinus As InvoiceRows = Nothing
+        Dim _InvoiceRows As InvoiceRows
+
+        Try
+            _InvoiceRowsSelected = TryCast(View.SelectedObjects(0), InvoiceRows) ' Az editor egy listview, kiveszi az első kijelölt sorát
+        Catch
+            ' TESZT MIATT!!!! ----------------------------------------------------------------
+            Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
+        End Try
+
+        If _InvoiceRowsSelected.RowIndex > 0 Then
+            For Each _InvoiceRows In _InvoiceHeader.InvoiceRows
+                If _InvoiceRows.RowIndex = _InvoiceRowsSelected.RowIndex - 1 Then
+                    _InvoiceRowsMinus = _InvoiceRows
+                    Exit For
+                End If
+            Next
+
+            If _InvoiceRowsMinus IsNot Nothing Then
+                _InvoiceRowsSelected.RowIndex -= 1
+                _InvoiceRowsMinus.RowIndex += 1
+            End If
+            _InvoiceRowsMinus.Save()
+            _InvoiceRowsSelected.Save()
+            _ocur.CommitChanges()
+            View.Refresh()
+        End If
+    End Sub
+    Private Sub aDown_InvoiceRow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_InvoiceRow.Execute
+        ' A kiválaszott sort egy sorral lejebb helyezi
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceHeader As InvoiceHeader = TryCast(View.CurrentObject, InvoiceRows).InvoiceHeader
+        Dim _InvoiceRowsSelected As InvoiceRows
+        Dim _InvoiceRowsPlus As InvoiceRows = Nothing
+        Dim _InvoiceRows As InvoiceRows
+
+        Try
+            _InvoiceRowsSelected = TryCast(View.SelectedObjects(0), InvoiceRows) ' Kiveszi a kijelölt sorok közül az elsőt
+        Catch
+            ' TESZT MIATT!!!! ----------------------------------------------------------------
+            Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
+        End Try
+
+        If _InvoiceRowsSelected.RowIndex < _InvoiceHeader.InvoiceRows.Count - 1 Then
+            For Each _InvoiceRows In _InvoiceHeader.InvoiceRows
+                If _InvoiceRows.RowIndex = _InvoiceRowsSelected.RowIndex + 1 Then
+                    _InvoiceRowsPlus = _InvoiceRows
+                    Exit For
+                End If
+            Next
+
+            If _InvoiceRowsPlus IsNot Nothing Then
+                _InvoiceRowsSelected.RowIndex += 1
+                _InvoiceRowsPlus.RowIndex -= 1
+            End If
+            _InvoiceRowsPlus.Save()
+            _InvoiceRowsSelected.Save()
+            _ocur.CommitChanges()
+            View.Refresh()
+        End If
+    End Sub
+
+    Private Sub aPrintInvoiceByRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPrintInvoiceByRows.Execute
+        Dim _ReportData As ReportData
+        Dim _ReportData_DEV As ReportData
+        Dim _ReportData_DEV_EU As ReportData
+        Dim _InvoiceHeader As InvoiceHeader
+        Dim _CurrencyName As CurrencyName
+        If e.SelectedObjects.Count > 0 Then
+            _InvoiceHeader = TryCast(e.SelectedObjects.Item(0), InvoiceRows).InvoiceHeader
+            _CurrencyName = _InvoiceHeader.CurrencyName
+            If _InvoiceHeader IsNot Nothing Then
+                Dim _XAFPrintHelper_I As New XAFPrintHelper(Nothing, Frame, _InvoiceHeader.InvoiceType.ReportDataV2, CriteriaOperator.Parse("InvoiceHeader.Oid = ?", _InvoiceHeader.Oid))
+                _XAFPrintHelper_I.ShowPreviewV2()
+            End If
+        End If
+    End Sub
+
+    Private Sub aChangeInvoiceByRows_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aChangeInvoiceByRows.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _InvoiceRows_Changer_Popup As InvoiceRows_Changer_Popup = _onew.CreateObject(Of InvoiceRows_Changer_Popup)()
+        _noselect = True
+        e.View = Application.CreateDetailView(_onew, "InvoiceRows_Changer_Popup_DetailView", False, _InvoiceRows_Changer_Popup)
+    End Sub
+
+    Private Sub aChangeInvoiceByRows_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aChangeInvoiceByRows.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceRows As InvoiceRows
+        Dim _InvoiceRows_Selected As InvoiceRows
+        Dim _InvoiceRows_Changer_Popup As InvoiceRows_Changer_Popup = TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceRows_Changer_Popup)
+        Dim _GLRows As GLRows = Nothing
+        RaiseEvent InitWork(1, 1, _selection.Count)
+        For Each _InvoiceRows_Selected In _selection
+            RaiseEvent DoWork()
+            _InvoiceRows = _ocur.GetObject(_InvoiceRows_Selected)
+            _InvoiceRows.DateExecution = _InvoiceRows_Changer_Popup.DateExecution
+
+            If _InvoiceRows.InvoiceHeader.GLAccounts IsNot Nothing Then
+                _GLRows = _ocur.FindObject(Of GLRows)(CriteriaOperator.Parse("InvoiceRows=?", _InvoiceRows))
+                If _GLRows IsNot Nothing Then
+                    _GLRows.DateExecution = _InvoiceRows.DateExecution
+                End If
+            End If
+            If _InvoiceRows_Changer_Popup.Controlling IsNot Nothing Then
+                _InvoiceRows.Controlling = _ocur.GetObject(_InvoiceRows_Changer_Popup.Controlling)
+                If _GLRows IsNot Nothing Then
+                    _GLRows.Controlling = _ocur.GetObject(_InvoiceRows_Changer_Popup.Controlling)
+                End If
+            End If
+
+            If _InvoiceRows_Changer_Popup.CostHolder IsNot Nothing Then
+                _InvoiceRows.CostHolder = _ocur.GetObject(_InvoiceRows_Changer_Popup.CostHolder)
+                If _GLRows IsNot Nothing Then
+                    _GLRows.CostHolder = _ocur.GetObject(_InvoiceRows_Changer_Popup.CostHolder)
+                End If
+            End If
+
+            If _InvoiceRows_Changer_Popup.CostPlace IsNot Nothing Then
+                _InvoiceRows.CostPlace = _ocur.GetObject(_InvoiceRows_Changer_Popup.CostPlace)
+                If _GLRows IsNot Nothing Then
+                    _GLRows.CostPlace = _ocur.GetObject(_InvoiceRows_Changer_Popup.CostPlace)
+                End If
+            End If
+
+            If _InvoiceRows_Changer_Popup.UniqueObjects IsNot Nothing Then
+                _InvoiceRows.UniqueObjects = _ocur.GetObject(_InvoiceRows_Changer_Popup.UniqueObjects)
+                If _GLRows IsNot Nothing Then
+                    _GLRows.UniqueObjects = _ocur.GetObject(_InvoiceRows_Changer_Popup.UniqueObjects)
+                End If
+            End If
+
+            If _InvoiceRows_Changer_Popup.JobNumberObjects IsNot Nothing Then
+                _InvoiceRows.JobNumberObjects = _ocur.GetObject(_InvoiceRows_Changer_Popup.JobNumberObjects)
+                If _GLRows IsNot Nothing Then
+                    _GLRows.JobNumberObjects = _ocur.GetObject(_InvoiceRows_Changer_Popup.JobNumberObjects)
+                End If
+            End If
+            _ocur.CommitChanges()
+        Next
+        RaiseEvent FinalWork
+        _noselect = False
+    End Sub
+
+    Private Sub view_SelectionChanged(sender As Object, e As EventArgs)
+        Dim i As Long = 0
+        Dim _InvoiceRows As InvoiceRows
+
+        If View Is Nothing Then Exit Sub
+
+        If View.Id = "InvoiceRows_ListView_Table" Then
+            If _noselect = False Then
+                _selection.Clear()
+                For Each _InvoiceRows In View.SelectedObjects
+                    _selection.Add(_InvoiceRows)
+                Next
+            End If
+        End If
+    End Sub
+
+    Private Sub aInvoiceRowPrint_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInvoiceRowPrint.Execute
+        Try
+            If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
+            Dim _InvoiceRows As InvoiceRows = TryCast(View.SelectedObjects(0), InvoiceRows)
+            If _InvoiceRows Is Nothing Then Throw New Exception("*Váratlan hiba történt a folyamat megszakadt!")
+            If _InvoiceRows.InvoiceHeader.IsEditable = False Then Throw New Exception("*Szerkeszthető számlát nem lehet nyomtatni!")
+
+            Dim _XAFPrintHelper As New XAFPrintHelper(Nothing, Frame, _InvoiceRows.InvoiceHeader.InvoiceType.ReportDataV2, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceRows.InvoiceHeader.Oid))
+            _XAFPrintHelper.ShowPreviewV2()
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+
+    Private Sub aChoiceProducts_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aChoiceProducts.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _Products_CollectionSource As New CollectionSource(_onew, GetType(Products))
+
+        e.View = Application.CreateListView("Products_ListView_Choice", _Products_CollectionSource, False)
+    End Sub
+
+    Private Sub aChoiceProducts_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aChoiceProducts.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader)
+        Dim _Products As Products = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), Products))
+
+        If _InvoiceHeader IsNot Nothing Then
+            If _Products IsNot Nothing Then
+                _InvoiceHeader.row_ShortName = _Products.ShortName
+                _InvoiceHeader.row_CustomsTariffs = _Products.CustomsTariff
+                _InvoiceHeader.row_Description = _Products.Description
+                _InvoiceHeader.row_ListPriceHUF = _Products.ListPriceOutHUF
+                '_InvoiceHeader.row_ListPriceDEV = _Products.ListPriceOutDEV
+                _InvoiceHeader.row_VAT = _Products.VAT
+                _InvoiceHeader.row_Units = _Products.Units
+                _InvoiceHeader.row_Products = _Products
+            End If
+        End If
+
+
+    End Sub
+
+    Private Sub aChoiceService_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aChoiceService.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _Services_CollectionSource As New CollectionSource(_onew, GetType(Services))
+
+        e.View = Application.CreateListView("Services_ListView_Choice", _Services_CollectionSource, False)
+    End Sub
+
+    Private Sub aChoiceService_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aChoiceService.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader)
+        Dim _Services As Services = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), Services))
+
+        If _InvoiceHeader IsNot Nothing Then
+            If _Services IsNot Nothing Then
+                _InvoiceHeader.row_ShortName = _Services.ShortName
+                _InvoiceHeader.row_CustomsTariffs = _Services.CustomsTariffs
+                _InvoiceHeader.row_Description = _Services.Description
+                _InvoiceHeader.row_ListPriceHUF = _Services.ListPriceHUF
+                '_InvoiceHeader.row_ListPriceDEV = _Services.ListPriceDEV
+                _InvoiceHeader.row_VAT = _Services.VAT
+                _InvoiceHeader.row_Units = _Services.Units
+                _InvoiceHeader.row_Services = _Services
+            End If
+        End If
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRows.vb

@@ -0,0 +1,860 @@
+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.Data.SqlClient
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+Imports System.Linq
+Imports System.Linq.Expressions
+
+Public Enum eInvoiceRowType
+    FromOrder = 0 'Bejövő megrendelésből termék
+    FromManual = 1 'Kézzel beállítva
+    FromWorkSheet = 2 'Munkalap sorról
+    FromContract = 3 'Szerződési sorból
+End Enum
+Public Enum eInvoiceRowMainType
+    TurnOverMaterial = 0 'Árbevétel anyag
+    TurnOverServices = 1 'Árbevétel szolgáltatás
+    Advance = 2 'Előleg
+End Enum
+Public Enum eInvoiceRowCorrigendumType
+    eNormal = 0
+    eOriginalMinus = 1
+    eNew = 2
+End Enum
+
+'<EditorStateRuleAttribute("Disable all properties when InvoiceHeader.IsEditable = False", "InvoiceHeader;InvoiceRowtype;RowIndex;CustomsTariffs;ShortName;Description;ListPriceHUF;ListPriceDEV;DiscountPriceHUF;DiscountPriceDEV;QTT;Units;VAT;QualityOption;ContractRows", EditorState.Disabled, "InvoiceHeader.IsEditable=False", ViewType.DetailView)> _
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Disable all properties when InvoiceHeader.IsEditable = False", TargetItems:="InvoiceHeader;InvoiceRowtype;RowIndex;CustomsTariffs;ShortName;Description;ListPriceHUF;ListPriceDEV;DiscountPriceHUF;DiscountPriceDEV;QTT;Units;VAT;QualityOption;ContractRows", Criteria:="InvoiceHeader.IsEditable=False", Enabled:=False, Context:="DetailView")> _
+<Appearance("Hide DEV when InvoiceHeader.CurrencyName.ShortName = 'HUF'", AppearanceItemType.ViewItem, "InvoiceHeader.CurrencyName.ShortName = 'HUF'", TargetItems:="ListPriceDEV;DiscountPriceDEV", visibility:=Editors.ViewItemVisibility.Hide)> _
+<RuleCriteria("RuleCriteria InvoiceRows-ChartOfAccounts", DefaultContexts.Save, "ChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
+Public Class InvoiceRows
+    Inherits BaseObject
+    Private _InvoiceHeader As InvoiceHeader 'Számla fejléce
+    Private _InvoiceRowtype As eInvoiceRowType 'Számla sor tipusa
+    Private _InvoicePeriod As String 'Számlázási időszak string
+    Private _DateExecution As Date 'Elszámolás dátuma
+    Private _RowIndex As Long = 0 'Számla sorindex
+    Private _CustomsTariffs As CustomsTariffs 'Vámtarifaszám
+    Private _ShortName As String 'Megnevezés
+    Private _Description As String 'Leírás
+    Private _ListPriceHUF As Double = 0 ' Egységár HUF (nettó !)
+    Private _ListPriceDEV As Double = 0 ' Egységár DEV (Nettó !)
+    Private _DiscountPriceHUF As Double = 0 'Kedvezmény összege HUF
+    Private _DiscountPriceDEV As Double = 0 'Kedvezmény összege DEV
+    Private _QTT As Double = 0 'Mennyiség
+    Private _Units As Units ' Mennyiségi egység
+    Private _VAT As VAT 'ÁFA
+    Private _QualityOption As QualityOption 'Minőségi kondíció
+    Private _ContractRows As ContractRows ' -- Szerződés sor
+    Private _Controlling As Controlling '-- Controlling szám
+    Private _ChartOfAccounts As ChartOfAccounts '-- Ezt a könyvelő állítja be, ha akarja.
+    Private _UniqueObjects As UniqueObjects ' -- Egyedi azonosító
+    Private _CostHolder As CostHolder ' -- Költség viselő
+    Private _CostPlace As CostPlace ' -- Költség viselő
+    Private _JobNumberObjects As JobNumberObjects ' -- Project
+    Private _InvoiceRowsAdvance As InvoiceRows ' Ez egy előleg vissza sor és mutat az előleg sorra
+    Private _ReadyforBookEntryRows As Boolean '= False 'Könyvelhető-e a sor. Ha nem, akkor feladás előtti ellenőrzés nem engedi át
+    Private _InvoiceRows As InvoiceRows 'Helyesbített sor
+    Private _OrderInRows As OrderInRows ' A számla melyik rendelési sorról készült
+    Private _OrderInRowsOther As OrderInRowsOther ' A számla melyik rendelési egyéb sorról készült
+    Private _WorkflowSystemSteps As WorkflowSystemSteps
+    Private _InvoiceRowCorrigendumType As eInvoiceRowCorrigendumType
+    Private _Worksheet_CostRows As Worksheet_CostRows 'A kapcsolódó munkalap elszámolási sora
+    Private _DeliveryNoteOutRows As DeliveryNoteOutRows 'A kapcsolódó kimenő szállítólevél sora
+    Private _Products As Products 'Terméktörzsből
+    Private _Services As Services 'Szolgáltatás törzsből
+
+    Private _SumPriceHUF As Double 'Netto sor összesen HUF
+    Private _SumPriceDEV As Double 'Netto sor összesen DEV
+    Private _SumPriceVATHUF As Double 'ÁFA sor összesen HUF
+    Private _SumPriceVATDEV As Double 'ÁFA sor összesen DEV
+    Private _SumPriceBruttoHUF As Double 'Brutto sor összesen HUF
+    Private _SumPriceBruttoDEV As Double 'Brutto sor összesen DEV
+
+    Private _SumAveragePriceHUF As Double 'Átlag beszerzési ár HUF
+    Private _SumAveragePriceDEV As Double 'Átlag beszerzési ár DEV
+
+    Private _SumGrossMarginHUF As Double 'Árréstömeg
+    Private _SumGrossMarginDEV As Double 'Árréstömeg
+
+    Private _SumBallanceHUF As Double 'Mai napig kiegyenlített rész
+    Private _SumBallanceDEV As Double 'Mai napig kiegyenlített rész (deviza)
+
+    Private _Weight_NAV As Double 'ÁFA bevallás miatt a súly
+
+    'NonPersistent
+    Private _QTT_Will As Double 'NonPersistent jóváírandó mennyiség
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        If Me.InvoiceHeader IsNot Nothing Then
+            If Me.InvoiceHeader.DateExecution = Nothing Then
+            Else
+                Me.DateExecution = Me.InvoiceHeader.DateExecution
+            End If
+        End If
+        ReadyforBookEntryRows = False
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Me.InvoiceHeader IsNot Nothing Then
+            If Me.InvoiceHeader.DateExecution = Nothing Then
+                Me.DateExecution = Me.InvoiceHeader.DateExecution
+            End If
+        End If
+        Me.CalculateSum()
+
+        '// FIFO sorok újragenerálása
+        If Me.OrderInRows IsNot Nothing Then
+            If Me.InvoiceHeader IsNot Nothing Then
+                If Me.InvoiceHeader.IsEditable = False And Me.InvoiceHeader.IsStorno = False Then
+                    Dim _InvoiceRowsFIFO_Collection As New XPCollection(Of InvoiceRowsFIFO)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, CriteriaOperator.Parse("InvoiceRows=?", Me))
+                    Session.Delete(_InvoiceRowsFIFO_Collection)
+                    Dim _InvoiceRowsFIFO As InvoiceRowsFIFO
+                    Dim _StorageOutRowsInRows As StorageOutRowsInRows
+                    For Each _StorageOutRowsInRows In OrderInRows.StorageOutRowsInRows_Collection
+                        _InvoiceRowsFIFO = New InvoiceRowsFIFO(Session)
+                        _InvoiceRowsFIFO.InvoiceRows = Me
+                        _InvoiceRowsFIFO.StorageInRows = _StorageOutRowsInRows.StorageInRows
+                        _InvoiceRowsFIFO.QTT = _StorageOutRowsInRows.QTT
+                        _InvoiceRowsFIFO.Save()
+                    Next
+                End If
+            End If
+            If Me.Controlling Is Nothing Then
+                '// Kontrollszám nélküli tételek ellenőrzése !!!
+                If UCase(Me.ShortName) Like "*ELŐLEG*" Then
+                    If Me.OrderInRows.OrderInHeader.OrderInParameters.Controlling_InvoiceAdvance_Default IsNot Nothing Then
+                        Me.Controlling = Me.OrderInRows.OrderInHeader.OrderInParameters.Controlling_InvoiceAdvance_Default
+                    End If
+                Else
+                    If Me.OrderInRows.OrderInHeader.OrderInParameters.Controlling_Rows_Default IsNot Nothing Then
+                        Me.Controlling = Me.OrderInRows.OrderInHeader.OrderInParameters.Controlling_Rows_Default
+                    End If
+                End If
+            End If
+            If Me.OrderInRowsOther IsNot Nothing Then
+                If Me.Controlling Is Nothing Then
+                    If Me.OrderInRowsOther.OrderInHeader.OrderInParameters.Controlling_OtherRows_Default IsNot Nothing Then
+                        Me.Controlling = Me.OrderInRowsOther.OrderInHeader.OrderInParameters.Controlling_OtherRows_Default
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+    Public Sub AddRows(ByVal _p_InvoiceHeader As InvoiceHeader, Optional _p_InvoiceRows As InvoiceRows = Nothing, Optional _p_ObjectSpace As Xpo.XPObjectSpace = Nothing)
+        ' Sor hozzáadása a fejléchez, valamint árkalkuláció a sor termékére
+        If _p_InvoiceRows IsNot Nothing Then    'Számla sorainak módosítása
+            Dim _InvoiceRows_Corr_New As InvoiceRows = _p_ObjectSpace.CreateObject(Of InvoiceRows)()
+
+            Me.InvoiceHeader = _p_InvoiceHeader
+            Me.InvoiceRows = _p_InvoiceRows
+            Me.ShortName = _p_InvoiceRows.ShortName
+            Me.Description = _p_InvoiceRows.Description
+            Me.ListPriceHUF = _p_InvoiceRows.ListPriceHUF
+            Me.ListPriceDEV = _p_InvoiceRows.ListPriceDEV
+            'Me.DiscountPercent = _p_InvoiceHeader.row_DiscountPercent
+            Me.DiscountPriceHUF = Me.ListPriceHUF * (_p_InvoiceRows.DiscountPercent / 100)
+            Me.DiscountPriceDEV = Me.ListPriceDEV * (_p_InvoiceRows.DiscountPercent / 100)
+            Me.QTT = _p_InvoiceRows.QTT * (-1)
+            Me.Units = _p_InvoiceRows.Units
+            Me.VAT = _p_InvoiceRows.VAT
+            Me.QualityOption = _p_InvoiceRows.QualityOption
+            Me.Controlling = _p_InvoiceRows.Controlling
+            Me.UniqueObjects = _p_InvoiceRows.UniqueObjects
+            Me.CostHolder = _p_InvoiceRows.CostHolder
+            Me.CostPlace = _p_InvoiceRows.CostPlace
+            Me.JobNumberObjects = _p_InvoiceRows.JobNumberObjects
+            Me.InvoiceRowCorrigendumType = eInvoiceRowCorrigendumType.eOriginalMinus
+            Me.InvoicePeriod = _p_InvoiceRows.InvoicePeriod
+            Me.CustomsTariffs = _p_InvoiceRows.CustomsTariffs
+
+            Me.ContractRows = _p_InvoiceRows.ContractRows
+            Me.OrderInRows = _p_InvoiceRows.OrderInRows
+            Me.OrderInRowsOther = _p_InvoiceRows.OrderInRowsOther
+
+            If _p_InvoiceHeader.row_Products IsNot Nothing Then Me.Products = _p_InvoiceHeader.row_Products
+            If _p_InvoiceHeader.row_Services IsNot Nothing Then Me.Services = _p_InvoiceHeader.row_Services
+
+            If _p_InvoiceHeader.InvoiceRows.Count = 0 Then
+                Me.RowIndex = 0
+            Else
+                Me.RowIndex = _p_InvoiceHeader.InvoiceRows.Count - 1
+            End If
+
+            Me.Save()
+            _InvoiceRows_Corr_New.InvoiceHeader = _p_InvoiceHeader
+            _InvoiceRows_Corr_New.InvoiceRows = _p_InvoiceRows
+            _InvoiceRows_Corr_New.ShortName = _p_InvoiceRows.ShortName
+            _InvoiceRows_Corr_New.Description = _p_InvoiceRows.Description
+            _InvoiceRows_Corr_New.ListPriceHUF = _p_InvoiceHeader.row_ListPriceHUF
+            _InvoiceRows_Corr_New.ListPriceDEV = _p_InvoiceHeader.row_ListPriceDEV
+            _InvoiceRows_Corr_New.DiscountPriceHUF = _InvoiceRows_Corr_New.ListPriceHUF * (_p_InvoiceRows.DiscountPercent / 100)
+            _InvoiceRows_Corr_New.DiscountPriceDEV = _InvoiceRows_Corr_New.ListPriceDEV * (_p_InvoiceRows.DiscountPercent / 100)
+            _InvoiceRows_Corr_New.QTT = _p_InvoiceHeader.row_QTT
+            _InvoiceRows_Corr_New.Units = _p_InvoiceRows.Units
+            _InvoiceRows_Corr_New.VAT = _p_InvoiceHeader.row_VAT
+            _InvoiceRows_Corr_New.QualityOption = _p_InvoiceRows.QualityOption
+            _InvoiceRows_Corr_New.Controlling = _p_InvoiceRows.Controlling
+            _InvoiceRows_Corr_New.UniqueObjects = _p_InvoiceRows.UniqueObjects
+            _InvoiceRows_Corr_New.CostHolder = _p_InvoiceRows.CostHolder
+            _InvoiceRows_Corr_New.CostPlace = _p_InvoiceRows.CostPlace
+            _InvoiceRows_Corr_New.JobNumberObjects = _p_InvoiceRows.JobNumberObjects
+            _InvoiceRows_Corr_New.InvoiceRowCorrigendumType = eInvoiceRowCorrigendumType.eNew
+            _InvoiceRows_Corr_New.InvoicePeriod = _p_InvoiceRows.InvoicePeriod
+            _InvoiceRows_Corr_New.CustomsTariffs = _p_InvoiceRows.CustomsTariffs
+
+            _InvoiceRows_Corr_New.ContractRows = _p_InvoiceRows.ContractRows
+            _InvoiceRows_Corr_New.OrderInRows = _p_InvoiceRows.OrderInRows
+            _InvoiceRows_Corr_New.OrderInRowsOther = _p_InvoiceRows.OrderInRowsOther
+
+            If _p_InvoiceHeader.InvoiceRows.Count = 0 Then
+                _InvoiceRows_Corr_New.RowIndex = 0
+            Else
+                _InvoiceRows_Corr_New.RowIndex = _p_InvoiceHeader.InvoiceRows.Count - 1
+            End If
+            _InvoiceRows_Corr_New.Save()
+        Else    'Normál menetrend, gyalogos számla rögzítsé
+            Me.InvoiceHeader = _p_InvoiceHeader
+            Me.InvoiceRows = _p_InvoiceRows
+            Me.ShortName = _p_InvoiceHeader.row_ShortName
+            Me.Description = _p_InvoiceHeader.row_Description
+            Me.ListPriceHUF = _p_InvoiceHeader.row_ListPriceHUF
+            Me.ListPriceDEV = _p_InvoiceHeader.row_ListPriceDEV
+            'Me.DiscountPercent = _p_InvoiceHeader.row_DiscountPercent
+            Me.DiscountPriceHUF = Me.ListPriceHUF * (_p_InvoiceHeader.row_DiscountPercent / 100)
+            Me.DiscountPriceDEV = Me.ListPriceDEV * (_p_InvoiceHeader.row_DiscountPercent / 100)
+            Me.QTT = _p_InvoiceHeader.row_QTT
+            Me.Units = _p_InvoiceHeader.row_Units
+            Me.VAT = _p_InvoiceHeader.row_VAT
+            Me.QualityOption = _p_InvoiceHeader.row_QualityOption
+            If _p_InvoiceHeader.row_Controlling Is Nothing Then
+                Me.Controlling = _p_InvoiceHeader.InvoiceType.ControllingDefault
+            Else
+                Me.Controlling = _p_InvoiceHeader.row_Controlling
+            End If
+
+            Me.UniqueObjects = _p_InvoiceHeader.row_UniqueObjects
+            Me.CostHolder = _p_InvoiceHeader.row_CostHolder
+            Me.CostPlace = _p_InvoiceHeader.row_CostPlace
+            Me.JobNumberObjects = _p_InvoiceHeader.row_JobNumberObjects
+            Me.InvoiceRowCorrigendumType = eInvoiceRowCorrigendumType.eNormal
+            Me.InvoicePeriod = _p_InvoiceHeader.row_InvoicePeriod
+            Me.CustomsTariffs = _p_InvoiceHeader.row_CustomsTariffs
+            Me.Products = _p_InvoiceHeader.row_Products
+            Me.Services = _p_InvoiceHeader.row_Services
+
+            If _p_InvoiceHeader.InvoiceRows.Count = 0 Then
+                Me.RowIndex = 0
+            Else
+                Me.RowIndex = _p_InvoiceHeader.InvoiceRows.Count - 1
+            End If
+            Me.Save()
+        End If
+
+
+    End Sub
+    Public Sub RemoveRows(ByVal _p_InvoiceHeader As InvoiceHeader)
+        For Each _InvoiceRows As InvoiceRows In _p_InvoiceHeader.InvoiceRows
+            If _InvoiceRows.RowIndex > Me.RowIndex Then
+                _InvoiceRows.RowIndex -= 1
+            End If
+        Next
+        Me.Delete()
+        Me.Save()
+        Session.CommitTransaction()
+    End Sub
+
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property InvoicePeriod As String
+        Get
+            Return _InvoicePeriod
+        End Get
+        Set(value As String)
+            SetPropertyValue("InvoicePeriod", _InvoicePeriod, value)
+        End Set
+    End Property
+
+    <Association("InvoiceHeader", GetType(InvoiceHeader))> _
+    Property InvoiceHeader() As InvoiceHeader
+        Get
+            Return _InvoiceHeader
+        End Get
+        Set(ByVal value As InvoiceHeader)
+            SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
+            If _InvoiceHeader IsNot Nothing Then
+                ' Sor indexelés mikor hozzáad a fejléchez sorokat, az első sor rögtön 0 indexről indul
+                If Session.IsNewObject(Me) And Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Session.IsObjectMarkedDeleted(Me) = False Then
+                    Dim i As Integer = 1
+                    If i = _InvoiceHeader.InvoiceRows.Count Then
+                        Me.RowIndex = 1 ' A második sor indexét 1 re állítja
+                    End If
+                    If _InvoiceHeader.InvoiceRows.Count > 1 Then
+                        Me.RowIndex = _InvoiceHeader.InvoiceRows.Count ' a harmadik sortól növeli az indexeket
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+    Property InvoiceRowtype() As eInvoiceRowType
+        Get
+            Return _InvoiceRowtype
+        End Get
+        Set(ByVal value As eInvoiceRowType)
+            SetPropertyValue("InvoiceRowtype", _InvoiceRowtype, value)
+        End Set
+    End Property
+    Property RowIndex() As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    Property CustomsTariffs() As CustomsTariffs
+        Get
+            Return _CustomsTariffs
+        End Get
+        Set(ByVal value As CustomsTariffs)
+            SetPropertyValue("CustomsTariffs", _CustomsTariffs, value)
+        End Set
+    End Property
+    <Size(255)> _
+    <RuleRequiredField("RuleRequiredField for InvoiceRows.ShortName", DefaultContexts.Save)> _
+    Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <Size(4000)> _
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property ListPriceHUF() As Double
+        Get
+            Return _ListPriceHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("ListPriceHUF", _ListPriceHUF, value)
+            If Session.IsObjectsLoading = False AndAlso Session.IsObjectsSaving = False Then
+                CalculateSum()
+            End If
+        End Set
+    End Property
+    Property ListPriceDEV() As Double
+        Get
+            Return _ListPriceDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("ListPriceDEV", _ListPriceDEV, value)
+            If Session.IsObjectsLoading = False AndAlso Session.IsObjectsSaving = False Then
+                CalculateSum()
+            End If
+        End Set
+    End Property
+    Property DiscountPriceHUF() As Double
+        Get
+            Return _DiscountPriceHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("DiscountPriceHUF", _DiscountPriceHUF, value)
+            If Session.IsObjectsLoading = False AndAlso Session.IsObjectsSaving = False Then
+                CalculateSum()
+            End If
+        End Set
+    End Property
+    Property DiscountPriceDEV() As Double
+        Get
+            Return _DiscountPriceDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("DiscountPriceDEV", _DiscountPriceDEV, value)
+            If Session.IsObjectsLoading = False AndAlso Session.IsObjectsSaving = False Then
+                CalculateSum()
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("RuleRequiredField for InvoiceRows.QTT", DefaultContexts.Save)> _
+    Property QTT() As Double
+        Get
+            Return _QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+            If Session.IsObjectsLoading = False AndAlso Session.IsObjectsSaving = False Then
+                CalculateSum()
+            End If
+        End Set
+    End Property
+    Property DeliveryNoteOutRows As DeliveryNoteOutRows
+        Get
+            Return _DeliveryNoteOutRows
+        End Get
+        Set(value As DeliveryNoteOutRows)
+            SetPropertyValue("DeliveryNoteOutRows", _DeliveryNoteOutRows, value)
+        End Set
+    End Property
+
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
+    Property Services As Services
+        Get
+            Return _Services
+        End Get
+        Set(value As Services)
+            SetPropertyValue("Services", _Services, value)
+        End Set
+    End Property
+
+    <VisibleInDetailView(False)> _
+    Property SumPriceHUF() As Double
+        Get
+            Return _SumPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceHUF", _SumPriceHUF, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False)> _
+    Property SumPriceDEV() As Double
+        Get
+            Return _SumPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceDEV", _SumPriceDEV, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False)> _
+    Property SumPriceVATHUF As Double
+        Get
+            Return _SumPriceVATHUF
+
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceVATHUF", _SumPriceVATHUF, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False)> _
+    Property SumPriceVATDEV As Double
+        Get
+            Return _SumPriceVATDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceVATDEV", _SumPriceVATDEV, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False)> _
+    Property SumPriceBruttoHUF As Double
+        Get
+            Return _SumPriceBruttoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceBruttoHUF", _SumPriceBruttoHUF, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False)> _
+    Property SumPriceBruttoDEV As Double
+        Get
+            Return _SumPriceBruttoDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceBruttoDEV", _SumPriceBruttoDEV, value)
+        End Set
+    End Property
+
+    Property Weight_NAV As Double
+        Get
+            Return _Weight_NAV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Weight_NAV", _Weight_NAV, value)
+        End Set
+    End Property
+
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property SumAveragePriceHUF As Double
+        Get
+            Return _SumAveragePriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceHUF", _SumAveragePriceHUF, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property SumAveragePriceDEV As Double
+        Get
+            Return _SumAveragePriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceDEV", _SumAveragePriceDEV, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property SumGrossMarginHUF As Double
+        Get
+            Return _SumGrossMarginHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumGrossMarginHUF", _SumGrossMarginHUF, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property SumGrossMarginDEV As Double
+        Get
+            Return _SumGrossMarginDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumGrossMarginDEV", _SumGrossMarginDEV, value)
+        End Set
+    End Property
+
+    Property SumBallanceHUF As Double
+        Get
+            Return _SumBallanceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumBallanceHUF", _SumBallanceHUF, value)
+        End Set
+    End Property
+    Property SumBallanceDEV As Double
+        Get
+            Return _SumBallanceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumBallanceDEV", _SumBallanceDEV, value)
+        End Set
+    End Property
+
+    <RuleRequiredField("RuleRequiredField for InvoiceRows.Units", DefaultContexts.Save)> _
+    Property Units() As Units
+        Get
+            Return _Units
+        End Get
+        Set(ByVal value As Units)
+            SetPropertyValue("Units", _Units, value)
+        End Set
+    End Property
+    <RuleRequiredField("RuleRequiredField for InvoiceRows.VAT", DefaultContexts.Save)> _
+    Property VAT() As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(ByVal value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+            'If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+            '    If value.InversState = True Then
+            '        If Me.InvoiceHeader IsNot Nothing Then
+            '            If String.IsNullOrEmpty(Me.InvoiceHeader.Description) Then
+            '                Me.InvoiceHeader.Description = value.Description
+            '            Else
+            '                If Not (Me.InvoiceHeader.Description.Contains(value.Description)) Then
+            '                    Me.InvoiceHeader.Description = Me.InvoiceHeader.Description + vbNewLine + value.Description
+            '                End If
+            '            End If
+            '        End If
+            '    End If
+            'End If
+        End Set
+    End Property
+    Property QualityOption() As QualityOption
+        Get
+            Return _QualityOption
+        End Get
+        Set(ByVal value As QualityOption)
+            SetPropertyValue("QualityOption", _QualityOption, value)
+        End Set
+    End Property
+    Property ContractRows As ContractRows
+        Get
+            Return _ContractRows
+        End Get
+        Set(ByVal value As ContractRows)
+            SetPropertyValue("ContractRows", _ContractRows, value)
+        End Set
+    End Property
+    'Rule5DMatrix ...
+    <ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
+    Property Controlling As Controlling
+        Get
+            Return _Controlling
+        End Get
+        Set(ByVal value As Controlling)
+            SetPropertyValue("Controlling", _Controlling, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("AccountYear=GetYear('@This.InvoiceHeader.DateExecution')")>
+    Property ChartOfAccounts As ChartOfAccounts
+        Get
+            Return _ChartOfAccounts
+        End Get
+        Set(value As ChartOfAccounts)
+            SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
+        End Set
+    End Property
+    <RuleRequiredField("InvoiceRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="InvoiceHeader.InvoiceType.Rule5DMatrix.RequireUniqueObjects=True")> _
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(ByVal value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+        End Set
+    End Property
+    <RuleRequiredField("InvoiceRows-CostHolder", DefaultContexts.Save, TargetCriteria:="InvoiceHeader.InvoiceType.Rule5DMatrix.RequireCostHolder=True")> _
+    Property CostHolder As CostHolder
+        Get
+            Return _CostHolder
+        End Get
+        Set(ByVal value As CostHolder)
+            SetPropertyValue("CostHolder", _CostHolder, value)
+        End Set
+    End Property
+    Property CostPlace As CostPlace
+        Get
+            Return _CostPlace
+        End Get
+        Set(ByVal value As CostPlace)
+            SetPropertyValue("CostPlace", _CostPlace, value)
+        End Set
+    End Property
+    Property JobNumberObjects As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(ByVal value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+        End Set
+    End Property
+    Property Worksheet_CostRows As Worksheet_CostRows
+        Get
+            Return _Worksheet_CostRows
+        End Get
+        Set(value As Worksheet_CostRows)
+            SetPropertyValue("Worksheet_CostRows", _Worksheet_CostRows, value)
+        End Set
+    End Property
+
+    Property InvoiceRowsAdvance As InvoiceRows
+        Get
+            Return _InvoiceRowsAdvance
+        End Get
+        Set(ByVal value As InvoiceRows)
+            SetPropertyValue("InvoiceRowsAdvance", _InvoiceRowsAdvance, value)
+        End Set
+    End Property
+    Property ReadyforBookEntryRows As Boolean
+        Get
+            Return _ReadyforBookEntryRows
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("ReadyforBookEntryRows", _ReadyforBookEntryRows, value)
+        End Set
+    End Property
+    Property InvoiceRows As InvoiceRows
+        Get
+            Return _InvoiceRows
+        End Get
+        Set(value As InvoiceRows)
+            SetPropertyValue("InvoiceRows", _InvoiceRows, value)
+        End Set
+    End Property
+    Property OrderInRows As OrderInRows
+        Get
+            Return _OrderInRows
+        End Get
+        Set(value As OrderInRows)
+            SetPropertyValue("OrderInRows", _OrderInRows, value)
+        End Set
+    End Property
+    Property OrderInRowsOther As OrderInRowsOther
+        Get
+            Return _OrderInRowsOther
+        End Get
+        Set(value As OrderInRowsOther)
+            SetPropertyValue("OrderInRowsOther", _OrderInRowsOther, value)
+        End Set
+    End Property
+    Property WorkflowSystemSteps As WorkflowSystemSteps
+        Get
+            Return _WorkflowSystemSteps
+        End Get
+        Set(value As WorkflowSystemSteps)
+            SetPropertyValue("WorkflowSystemSteps", _WorkflowSystemSteps, value)
+        End Set
+    End Property
+    Property InvoiceRowCorrigendumType As eInvoiceRowCorrigendumType
+        Get
+            Return _InvoiceRowCorrigendumType
+        End Get
+        Set(value As eInvoiceRowCorrigendumType)
+            SetPropertyValue("InvoiceRowCorrigendumType", _InvoiceRowCorrigendumType, value)
+        End Set
+    End Property
+
+    <NonPersistent()> _
+    Property QTT_Will As Double
+        Get
+            Return _QTT_Will
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Will", _QTT_Will, value)
+        End Set
+    End Property
+
+    '// Readonly properties
+
+    ReadOnly Property SumPriceOriginalHUF As Double
+        Get
+            If OrderInRows IsNot Nothing Then
+                If OrderInRows.ListPriceOriginalHUF <> 0 Then
+                    Return OrderInRows.ListPriceOriginalHUF * QTT
+                Else
+                    Return SumPriceHUF
+                End If
+            Else
+                Return SumPriceHUF
+            End If
+        End Get
+    End Property
+    ReadOnly Property SumGrossMarginOriginalHUF As Double
+        Get
+            Return SumPriceOriginalHUF - SumAveragePriceHUF
+        End Get
+    End Property
+    ReadOnly Property InvoiceRowMainType As eInvoiceRowMainType
+        Get
+            If Me.OrderInRows IsNot Nothing Then
+                Return eInvoiceRowMainType.TurnOverMaterial
+            ElseIf UCase(ShortName) Like "*ELŐLEG*" Then
+                Return eInvoiceRowMainType.Advance
+            ElseIf Me.OrderInRowsOther IsNot Nothing Then
+                Return eInvoiceRowMainType.TurnOverServices
+            ElseIf Me.Worksheet_CostRows IsNot Nothing Then
+                Return eInvoiceRowMainType.TurnOverServices
+            Else
+                Return eInvoiceRowMainType.TurnOverServices
+            End If
+        End Get
+    End Property
+    ReadOnly Property DiscountPercent() As Double
+        Get
+            Return 0
+        End Get
+    End Property
+    ReadOnly Property PriceHUF As Double
+        Get
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Return ListPriceHUF - DiscountPriceHUF
+            Else
+                Return 0
+            End If
+        End Get
+    End Property
+    ReadOnly Property PriceDEV As Double
+        Get
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Return ListPriceDEV - DiscountPriceDEV
+            Else
+                Return 0
+            End If
+        End Get
+    End Property
+
+
+    '//XPCollections
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property InvoiceRowsFIFO As XPCollection(Of InvoiceRowsFIFO)
+        Get
+            If Me IsNot Nothing Then
+                Return New XPCollection(Of InvoiceRowsFIFO)(Session, CriteriaOperator.Parse("InvoiceRows=? and isnull(InvoiceRows)=False", Me))
+            Else
+                Return New XPCollection(Of InvoiceRowsFIFO)(Session, CriteriaOperator.Parse("1=2"))
+            End If
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows)
+        Get
+            If DeliveryNoteOutRows IsNot Nothing Then
+                Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("Oid=?", DeliveryNoteOutRows.StorageOutRowsInRows.Oid))
+            ElseIf OrderInRows IsNot Nothing Then
+                Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("StorageOutRows.OrderInRows=?", OrderInRows))
+            Else
+                Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("1=2"))
+            End If
+        End Get
+    End Property
+    <Browsable(False)> _
+    ReadOnly Property QTT_CreditNote As Double
+        Get
+            Dim _QTT_CreditNote As Double = 0
+
+            Dim _InvoiceCreditNoteRows_Collection As New XPCollection(Of InvoiceCreditNoteRows)(Session, CriteriaOperator.Parse("FromInvoiceRows=?", Me))
+            If _InvoiceCreditNoteRows_Collection.Count > 0 Then
+                For Each _InvoiceCreditNoteRows As InvoiceCreditNoteRows In _InvoiceCreditNoteRows_Collection
+                    _QTT_CreditNote += _InvoiceCreditNoteRows.QTT
+                Next
+            End If
+
+            Return _QTT_CreditNote
+        End Get
+    End Property
+
+
+    '//Public functions
+    '-- Számolt értékek beállítása
+    Public Sub CalculateSum()
+        SumPriceHUF = Math.Round(_QTT * (ListPriceHUF - DiscountPriceHUF), 2, MidpointRounding.AwayFromZero)
+        SumPriceDEV = Math.Round(_QTT * (ListPriceDEV - DiscountPriceDEV), 2, MidpointRounding.AwayFromZero)
+        If VAT Is Nothing Then
+            SumPriceVATHUF = 0
+        Else
+            SumPriceVATHUF = Math.Round(SumPriceHUF * VAT.KeyValue, 2, MidpointRounding.AwayFromZero)
+        End If
+        If VAT Is Nothing Then
+            SumPriceVATDEV = 0
+        Else
+            SumPriceVATDEV = Math.Round(SumPriceDEV * VAT.KeyValue, 2, MidpointRounding.AwayFromZero)
+        End If
+        SumPriceBruttoHUF = SumPriceHUF + SumPriceVATHUF
+        SumPriceBruttoDEV = SumPriceDEV + SumPriceVATDEV
+    End Sub
+
+End Class
+

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsAverageArray.vb

@@ -0,0 +1,60 @@
+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(), DeferredDeletion(False), NavigationItem(False), CreatableItem(False)> _
+Public Class InvoiceRowsAverageArray '// Átlagár számításhoz segéd tábla
+    Inherits BaseObject
+
+    Private _DeliveryNoteInRRFC As DeliveryNoteInRRFC
+    Private _InvoiceRows As InvoiceRows
+    Private _DateExecution As Date
+    Private _RowType As Long
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property DeliveryNoteInRRFC As DeliveryNoteInRRFC
+        Get
+            Return _DeliveryNoteInRRFC
+        End Get
+        Set(value As DeliveryNoteInRRFC)
+            SetPropertyValue("DeliveryNoteInRRFC", _DeliveryNoteInRRFC, value)
+        End Set
+    End Property
+    Property InvoiceRows As InvoiceRows
+        Get
+            Return _InvoiceRows
+        End Get
+        Set(value As InvoiceRows)
+            SetPropertyValue("InvoiceRows", _InvoiceRows, 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 RowType As Long
+        Get
+            Return _RowType
+        End Get
+        Set(value As Long)
+            SetPropertyValue("RowType", _RowType, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsFIFO.vb

@@ -0,0 +1,95 @@
+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 InvoiceRowsFIFO
+    Inherits BaseObject
+    Private _InvoiceRows As InvoiceRows 'Melyik számla sorhoz tartozik
+    Private _StorageInRows As StorageInRows 'Melyik bevételi ábhoz tartozik
+    Private _QTT As Double
+    Private _NettoPriceHUF As Double 'FIFO szerinti beszerzési érték !!! Ezt kell osztani a QTT-vel, így kapod meg az egységnyit !!!
+    Private _NettoPriceDEV As Double
+
+    Private _NettoPriceAverageHUF As Double 'Átlagár szerinti beszerzési érték !!! Ezt kell osztani a QTT-vel, így kapod meg az egységnyit !!!
+    Private _NettoPriceAverageDEV As Double
+
+    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 InvoiceRows As InvoiceRows
+        Get
+            Return _InvoiceRows
+        End Get
+        Set(value As InvoiceRows)
+            SetPropertyValue("InvoiceRows", _InvoiceRows, value)
+        End Set
+    End Property
+    Property StorageInRows As StorageInRows
+        Get
+            Return _StorageInRows
+        End Get
+        Set(value As StorageInRows)
+            SetPropertyValue("StorageInRows", _StorageInRows, value)
+        End Set
+    End Property
+    Property QTT As Double
+        Get
+            Return _QTT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property NettoPriceHUF As Double
+        Get
+            Return _NettoPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("NettoPriceHUF", _NettoPriceHUF, value)
+        End Set
+    End Property
+    Property NettoPriceDEV As Double
+        Get
+            Return _NettoPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("NettoPriceDEV", _NettoPriceDEV, value)
+        End Set
+    End Property
+
+    Property NettoPriceAverageHUF As Double
+        Get
+            Return _NettoPriceAverageHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("NettoPriceAverageHUF", _NettoPriceAverageHUF, value)
+        End Set
+    End Property
+    Property NettoPriceAverageDEV As Double
+        Get
+            Return _NettoPriceAverageDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("NettoPriceAverageDEV", _NettoPriceAverageDEV, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivot.vb

@@ -0,0 +1,166 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+'User.Oid = CurrentUserId()
+
+Public Enum eViewMode
+    eTableView = 0
+    ePivotView = 1
+    eBothView = 2
+End Enum
+<Appearance("InvoiceRowsPivot - Hide InvoiceRows_Table",
+    AppearanceItemType:="ViewItem",
+    Criteria:="ViewMode in (1)",
+    TargetItems:="InvoiceRows_Table",
+    Visibility:=ViewItemVisibility.Hide)> _
+<Appearance("InvoiceRowsPivot - Hide InvoiceRows_Pivot",
+    AppearanceItemType:="ViewItem",
+    Criteria:="ViewMode in (0)",
+    TargetItems:="InvoiceRows_Pivot",
+    Visibility:=ViewItemVisibility.Hide)> _
+<Appearance("InvoiceRowsPivot - Hide Criteria",
+    AppearanceItemType:="ViewItem",
+    Criteria:="UserCreated.Oid = CurrentUserId()",
+    TargetItems:="Criteria",
+    Visibility:=ViewItemVisibility.Hide)> _
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class InvoiceRowsPivot
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _ShortName As String
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+
+    Private _Criteria As String 'Kritéria szûréshez !
+    Private _ViewMode As eViewMode
+    Private _InvoiceRows As InvoiceRows
+
+    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 Me.UserCreated Is Nothing Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    <RuleRequiredField("InvoiceRowsPivot-CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("InvoiceRowsPivot-ShortName", DefaultContexts.Save)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, 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
+    <CriteriaOptionsAttribute("ObjectType"), Size(-1), ImmediatePostData(True)> _
+    Property Criteria As String
+        Get
+            Return _Criteria
+        End Get
+        Set(value As String)
+            SetPropertyValue("Criteria", _Criteria, value)
+        End Set
+    End Property
+    <NonPersistent(), MemberDesignTimeVisibility(False)> _
+    Public Property ObjectType() As Type
+        Get
+            Return GetType(InvoiceRows)
+        End Get
+        Set(ByVal value As Type)
+
+        End Set
+    End Property
+    Property ViewMode As eViewMode
+        Get
+            Return _ViewMode
+        End Get
+        Set(value As eViewMode)
+            SetPropertyValue("ViewMode", _ViewMode, value)
+        End Set
+    End Property
+    ReadOnly Property InvoiceRows_Table As XPCollection(Of InvoiceRows)
+        Get
+            Dim _InvoiceRows_Collection As XPCollection(Of InvoiceRows)
+            Dim _FullCriteria As String = "isnull(InvoiceHeader.GCRecord)=True and InvoiceHeader.CustomersFrom=? and InvoiceHeader.IsEditable=False and InvoiceHeader.DocumentNumber !=''"
+
+            If String.IsNullOrEmpty(Criteria) = False Then
+                _FullCriteria = "(" & _FullCriteria & ") and (" & Criteria & ")"
+            End If
+
+            _InvoiceRows_Collection = New XPCollection(Of InvoiceRows)(Session, CriteriaOperator.Parse(_FullCriteria, CustomersFrom))
+
+            Return _InvoiceRows_Collection
+        End Get
+    End Property
+    ReadOnly Property InvoiceRows_Pivot As XPCollection(Of InvoiceRows)
+        Get
+            Dim _InvoiceRows_Collection As XPCollection(Of InvoiceRows)
+            Dim _FullCriteria As String = "isnull(InvoiceHeader.GCRecord)=True and InvoiceHeader.CustomersFrom=? and InvoiceHeader.IsEditable=False and InvoiceHeader.DocumentNumber !=''"
+
+            If String.IsNullOrEmpty(Criteria) = False Then
+                _FullCriteria = "(" & _FullCriteria & ") and (" & Criteria & ")"
+            End If
+
+            _InvoiceRows_Collection = New XPCollection(Of InvoiceRows)(Session, CriteriaOperator.Parse(_FullCriteria, CustomersFrom))
+
+            Return _InvoiceRows_Collection
+        End Get
+    End Property
+
+    <Association("InvoiceRowsPivot-InvoiceRowsPivotUser", GetType(InvoiceRowsPivotUser)), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property InvoiceRowsPivotUser As XPCollection(Of InvoiceRowsPivotUser)
+        Get
+            Return GetCollection(Of InvoiceRowsPivotUser)("InvoiceRowsPivotUser")
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivotUser.vb

@@ -0,0 +1,49 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class InvoiceRowsPivotUser
+    Inherits BaseObject
+    Private _InvoiceRowsPivot As InvoiceRowsPivot
+    Private _User 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
+
+    <Association("InvoiceRowsPivot-InvoiceRowsPivotUser", GetType(InvoiceRowsPivot))> _
+    Property InvoiceRowsPivot As InvoiceRowsPivot
+        Get
+            Return _InvoiceRowsPivot
+        End Get
+        Set(value As InvoiceRowsPivot)
+            SetPropertyValue("InvoiceRowsPivot", _InvoiceRowsPivot, value)
+        End Set
+    End Property
+    Property User As User
+        Get
+            Return _User
+        End Get
+        Set(value As User)
+            SetPropertyValue("User", _User, value)
+        End Set
+    End Property
+
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivotVC.Designer.vb

@@ -0,0 +1,69 @@
+Partial Class InvoiceRowsPivotVC
+
+	<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.aRecalculateBallanceInvoiceRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aSelectUsers_InvoiceRowsPivot = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aRecalculateBallanceInvoiceRows
+        '
+        Me.aRecalculateBallanceInvoiceRows.Caption = "aRecalculate Ballance Invoice Rows"
+        Me.aRecalculateBallanceInvoiceRows.ConfirmationMessage = Nothing
+        Me.aRecalculateBallanceInvoiceRows.Id = "aRecalculateBallanceInvoiceRows"
+        Me.aRecalculateBallanceInvoiceRows.ImageName = Nothing
+        Me.aRecalculateBallanceInvoiceRows.Shortcut = Nothing
+        Me.aRecalculateBallanceInvoiceRows.Tag = Nothing
+        Me.aRecalculateBallanceInvoiceRows.TargetObjectsCriteria = Nothing
+        Me.aRecalculateBallanceInvoiceRows.TargetObjectType = GetType(Nuvolar.[Module].InvoiceRowsPivot)
+        Me.aRecalculateBallanceInvoiceRows.TargetViewId = Nothing
+        Me.aRecalculateBallanceInvoiceRows.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aRecalculateBallanceInvoiceRows.ToolTip = Nothing
+        Me.aRecalculateBallanceInvoiceRows.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aSelectUsers_InvoiceRowsPivot
+        '
+        Me.aSelectUsers_InvoiceRowsPivot.AcceptButtonCaption = Nothing
+        Me.aSelectUsers_InvoiceRowsPivot.CancelButtonCaption = Nothing
+        Me.aSelectUsers_InvoiceRowsPivot.Caption = "aSelectUsers_InvoiceRowsPivot"
+        Me.aSelectUsers_InvoiceRowsPivot.ConfirmationMessage = Nothing
+        Me.aSelectUsers_InvoiceRowsPivot.Id = "aSelectUsers_InvoiceRowsPivot"
+        Me.aSelectUsers_InvoiceRowsPivot.ImageName = Nothing
+        Me.aSelectUsers_InvoiceRowsPivot.Shortcut = Nothing
+        Me.aSelectUsers_InvoiceRowsPivot.Tag = Nothing
+        Me.aSelectUsers_InvoiceRowsPivot.TargetObjectsCriteria = Nothing
+        Me.aSelectUsers_InvoiceRowsPivot.TargetObjectType = GetType(Nuvolar.[Module].InvoiceRowsPivotUser)
+        Me.aSelectUsers_InvoiceRowsPivot.TargetViewId = Nothing
+        Me.aSelectUsers_InvoiceRowsPivot.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aSelectUsers_InvoiceRowsPivot.ToolTip = Nothing
+        Me.aSelectUsers_InvoiceRowsPivot.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+
+    End Sub
+    Friend WithEvents aRecalculateBallanceInvoiceRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aSelectUsers_InvoiceRowsPivot As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivotVC.resx

@@ -0,0 +1,129 @@
+<?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="aRecalculateBallanceInvoiceRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aSelectUsers_InvoiceRowsPivot.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>221, 173</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/Business/BusinessTransactions/Invoice/InvoiceRowsPivotVC.vb

@@ -0,0 +1,204 @@
+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.Xpo
+Imports DevExpress.Data.Filtering
+Imports System.Linq
+Imports DevExpress.Persistent.BaseImpl
+Imports System.Globalization
+
+Public Class InvoiceRowsPivotVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event InitWork2(ByVal _Minimum2 As Long, ByVal _Step2 As Long, ByVal _Maximum2 As Long)
+    Public Event DoWork()
+    Public Event DoWork2()
+    Public Event FinalWork
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
+
+        If View.Id = "InvoiceRowsPivot_ListView_UserEnable" Then
+            Dim _ListView As ListView = TryCast(View, ListView)
+
+            If _ListView IsNot Nothing Then
+                Dim _InvoiceRowsPivot As InvoiceRowsPivot
+                Dim _Criteria As String = ""
+                For Each _InvoiceRowsPivot In _ListView.CollectionSource.List
+                    Dim _InvoiceRowsPivotUser As InvoiceRowsPivotUser
+                    For Each _InvoiceRowsPivotUser In _InvoiceRowsPivot.InvoiceRowsPivotUser
+                        If _InvoiceRowsPivotUser.User.Oid.ToString = _User.Oid.ToString Then
+                            If _Criteria = "" Then
+                                _Criteria = "Oid in ('" & _InvoiceRowsPivot.Oid.ToString & "'"
+                            Else
+                                _Criteria += ", '" & _InvoiceRowsPivot.Oid.ToString & "'"
+                            End If
+                            Exit For
+                        End If
+                    Next
+                Next
+                If _Criteria = "" Then
+                    _Criteria = "1=2"
+                Else
+                    _Criteria += ")"
+                End If
+                _ListView.CollectionSource.BeginUpdateCriteria()
+                _ListView.CollectionSource.Criteria("ByEnabled") = CriteriaOperator.Parse(_Criteria)
+                _ListView.CollectionSource.EndUpdateCriteria()
+            End If
+        End If
+
+        If View.Id = "InvoiceRowsPivot_ListView_UserCreated" Then
+            Dim _ListView As ListView = TryCast(View, ListView)
+
+            If _ListView IsNot Nothing Then
+                _ListView.CollectionSource.BeginUpdateCriteria()
+                _ListView.CollectionSource.Criteria("ByUser") = CriteriaOperator.Parse("UserCreated=? ", _User)
+                _ListView.CollectionSource.EndUpdateCriteria()
+            End If
+        End If
+
+        
+    End Sub
+
+    Private Sub aRecalculateBallanceInvoiceRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRecalculateBallanceInvoiceRows.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
+        Dim _InvoiceRows As InvoiceRows
+        Dim _InvoiceRowsPivot As InvoiceRowsPivot = TryCast(View.SelectedObjects(0), InvoiceRowsPivot)
+        Dim _Rate As Double = 0
+        Dim _SumBallanceHUF As Double = 0
+        Dim _SumBallanceDEV As Double = 0
+        Dim _SQL As String = ""
+
+        '// Mielõtt bármi történne !!!!!
+
+        _SQL = "UPDATE InvoiceRows SET SumGrossMarginHUF=SumPriceHUF,SumGrossMarginDEV=SumPriceDEV  WHERE OrderInRowsOther Is Not NULL"
+
+        Select Case GLOBAL_SQLType
+            Case eSQLType.MSSQL
+                _SQL = "UPDATE InvoiceRows SET SumGrossMarginHUF=SumPriceHUF,SumGrossMarginDEV=SumPriceDEV  WHERE OrderInRowsOther Is Not NULL"
+                _uow.ExecuteNonQuery(_SQL)
+
+                _SQL = " UPDATE InvoiceRows t1 JOIN InvoiceHeader t2 ON  t1.InvoiceHeader = t2.Oid "
+                _SQL += " SET t1.SumAveragePriceDEV=t1.SumAveragePriceHUF/t2.CurrencyRate,"
+                _SQL += " t1.SumGrossMarginDEV = t1.SumGrossMarginHUF / t2.CurrencyRate"
+                _SQL += " WHERE t2.CurrencyRate > 0"
+                _uow.ExecuteNonQuery(_SQL)
+            Case eSQLType.MySQL
+                _SQL = "UPDATE InvoiceRows SET SumGrossMarginHUF=SumPriceHUF,SumGrossMarginDEV=SumPriceDEV  WHERE OrderInRowsOther Is Not NULL"
+                _uow.ExecuteNonQuery(_SQL)
+
+                _SQL = " UPDATE InvoiceRows t1 JOIN InvoiceHeader t2 ON  t1.InvoiceHeader = t2.Oid "
+                _SQL += " SET t1.SumAveragePriceDEV=t1.SumAveragePriceHUF/t2.CurrencyRate,"
+                _SQL += " t1.SumGrossMarginDEV = t1.SumGrossMarginHUF / t2.CurrencyRate"
+                _SQL += " WHERE t2.CurrencyRate > 0"
+                _uow.ExecuteNonQuery(_SQL)
+
+            Case eSQLType.PostgreSQL
+                _SQL = "UPDATE ""InvoiceRows"" SET ""SumGrossMarginHUF""=""SumPriceHUF"",""SumGrossMarginDEV""=""SumPriceDEV""  WHERE ""OrderInRowsOther"" Is Not NULL"
+                _uow.ExecuteNonQuery(_SQL)
+
+                _SQL = " UPDATE ""InvoiceRows"" t1 JOIN ""InvoiceHeader"" t2 ON  ""t1"".""InvoiceHeader"" = ""t2"".""Oid"" "
+                _SQL += " SET ""t1"".""SumAveragePriceDEV""=""t1"".""SumAveragePriceHUF""/""t2"".""CurrencyRate"","
+                _SQL += " ""t1"".""SumGrossMarginDEV"" = ""t1"".""SumGrossMarginHUF"" / ""t2"".""CurrencyRate"""
+                _SQL += " WHERE ""t2"".""CurrencyRate"" > 0"
+                _uow.ExecuteNonQuery(_SQL)
+        End Select
+
+
+        RaiseEvent InitWork(1, 1, _InvoiceRowsPivot.InvoiceRows_Table.Count)
+        For Each _InvoiceRows In _InvoiceRowsPivot.InvoiceRows_Table
+            RaiseEvent DoWork()
+            _Rate = 0
+            _SumBallanceHUF = 0
+            _SumBallanceDEV = 0
+
+            Dim cultures() As CultureInfo = {New CultureInfo("en-US"), _
+                                       New CultureInfo("fr-FR"), _
+                                       New CultureInfo("it-IT"), _
+                                       New CultureInfo("de-DE")}
+
+            Dim _PCIGroup As PCIGroup = _ocur.FindObject(Of PCIGroup)(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=0 and ConnectInfo=?", _
+                                                                                             _InvoiceRows.InvoiceHeader.CustomersFrom, _InvoiceRows.InvoiceHeader.Customers, _InvoiceRows.InvoiceHeader.ConnectInfo))
+            If _PCIGroup IsNot Nothing Then
+                If _PCIGroup.CurrencyName_Account.ShortName = "HUF" Then
+                    If _PCIGroup.AmountHUF_Account <> 0 Then
+                        _Rate = _PCIGroup.BallanceHUF / _PCIGroup.AmountHUF_Account
+                    End If
+                Else
+                    If _PCIGroup.AmountDEV_Account <> 0 Then
+                        _Rate = _PCIGroup.BallanceDEV / _PCIGroup.AmountDEV_Account
+                    End If
+                End If
+                _SumBallanceHUF = Math.Round((_Rate) * _InvoiceRows.SumPriceHUF, 0, MidpointRounding.AwayFromZero)
+                _SumBallanceDEV = Math.Round((_Rate) * _InvoiceRows.SumPriceDEV, 2, MidpointRounding.AwayFromZero)
+                _SQL = ""
+                Select Case GLOBAL_SQLType
+                    Case eSQLType.MSSQL
+                        _SQL = "update InvoiceRows set SumBallanceHUF=" & _SumBallanceHUF.ToString(New CultureInfo("en-US")) & ",SumBallanceDEV=" & _SumBallanceDEV.ToString(New CultureInfo("en-US"))
+                        _SQL += " Where Oid='" & _InvoiceRows.Oid.ToString & "'"
+                    Case eSQLType.MySQL
+                        _SQL = "update InvoiceRows set SumBallanceHUF=" & _SumBallanceHUF.ToString(New CultureInfo("en-US")) & ",SumBallanceDEV=" & _SumBallanceDEV.ToString(New CultureInfo("en-US"))
+                        _SQL += " Where Oid='" & _InvoiceRows.Oid.ToString & "'"
+                    Case eSQLType.PostgreSQL
+                        _SQL = "update ""InvoiceRows"" set ""SumBallanceHUF""=" & _SumBallanceHUF.ToString(New CultureInfo("en-US")) & ",""SumBallanceDEV""=" & _SumBallanceDEV.ToString(New CultureInfo("en-US"))
+                        _SQL += " Where ""Oid""='" & _InvoiceRows.Oid.ToString & "'"
+                End Select
+                _uow.ExecuteNonQuery(_SQL)
+            End If
+        Next
+        RaiseEvent FinalWork
+        View.Refresh()
+    End Sub
+
+    Private Sub aSelectUsers_InvoiceRowsPivot_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aSelectUsers_InvoiceRowsPivot.CustomizePopupWindowParams
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _CS As New CollectionSource(_onew, GetType(User))
+
+        e.View = Application.CreateListView("User_ListView_Find", _CS, False)
+    End Sub
+
+    Private Sub aSelectUsers_InvoiceRowsPivot_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aSelectUsers_InvoiceRowsPivot.Execute
+        Dim _InvoiceRowsPivot As InvoiceRowsPivot = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
+
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
+        Dim _User As User
+        Dim _InvoiceRowsPivotUser As InvoiceRowsPivotUser
+
+        If _InvoiceRowsPivot Is Nothing Then Exit Sub
+
+        If e.PopupWindow.View.SelectedObjects.Count > 0 Then
+
+            For Each _User In e.PopupWindow.View.SelectedObjects
+                _InvoiceRowsPivotUser = New InvoiceRowsPivotUser(_uow)
+                _InvoiceRowsPivotUser.InvoiceRowsPivot = _uow.GetObjectByKey(Of InvoiceRowsPivot)(_InvoiceRowsPivot.Oid)
+                _InvoiceRowsPivotUser.User = _uow.GetObjectByKey(Of User)(_User.Oid)
+            Next
+            _uow.CommitChanges()
+        End If
+
+        Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame)
+        If nestedFrame IsNot Nothing Then
+            Dim parentView As View = nestedFrame.View
+            parentView.ObjectSpace.Refresh()
+        End If
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceType.vb

@@ -0,0 +1,148 @@
+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.Data.SqlClient
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+Imports System.Linq
+Imports System.Linq.Expressions
+
+Public Enum eInvoiceTypeBase
+    eEarnestofTender = 0 'Foglaló számla
+    eAdvancePayment = 1 'Előleg számla
+    eNormalInvoice = 2 'Normál számla
+    eFinalInvoice = 3 'Végszámla, ami tartalmaz vagy előleg, vagy foglaló sorokat
+    eCustomRate = 4 'Egyéb számla szerű de nem számviteli számla (dijbekérők, illeték bekérők stb.)
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("BusinessStocks")> _
+Public Class InvoiceType
+    Inherits BaseObject
+    Private _InvoiceTypeBase As eInvoiceTypeBase 'Számla bázis tipus
+    Private _CustomersFrom As CustomersFrom '-- Saját cég
+    Private _CustomerBankAccounts As CustomerBankAccounts '--Számlán szereplő alapértelmezett bankszámlaszám
+    Private _ShortName As String '-- Megnevezés    
+    Private _Description As String '-- Rövid leírás
+    Private _NumberGenerator As NumberGenerator '-- Számla sorszám formátuma
+    Private _NumberGeneratorProforma As NumberGenerator '-- Számla sorszám formátuma proforma esetén
+    Private _WorkflowSystem As WorkflowSystem
+    Private _Rule5DMatrix As Rule5DMatrix
+    Private _ControllingDefault As Controlling
+    Private _ReportDataV2 As ReportDataV2 '--Számla nyomtatvány V2
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property InvoiceTypeBase As eInvoiceTypeBase
+        Get
+            Return _InvoiceTypeBase
+        End Get
+        Set(ByVal value As eInvoiceTypeBase)
+            SetPropertyValue("InvoiceTypeBase", _InvoiceTypeBase, value)
+        End Set
+    End Property
+    <RuleRequiredField("InvoiceType-CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("Customers='@This.CustomersFrom'")>
+    Property CustomerBankAccounts As CustomerBankAccounts
+        Get
+            Return _CustomerBankAccounts
+        End Get
+        Set(ByVal value As CustomerBankAccounts)
+            SetPropertyValue("CustomerBankAccount", _CustomerBankAccounts, 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
+    <Size(-1)>
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    ''' <summary>
+    ''' 
+    ''' </summary>
+    ''' <returns></returns>
+    <RuleRequiredField("InvoiceType-NumberGenerator", DefaultContexts.Save)>
+    Property NumberGenerator() As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(ByVal value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    ''' <summary>
+    ''' Próbaszámla sorszám generátora
+    ''' </summary>
+    ''' <returns></returns>
+    Property NumberGeneratorProforma As NumberGenerator
+        Get
+            Return _NumberGeneratorProforma
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGeneratorProforma", _NumberGeneratorProforma, value)
+        End Set
+    End Property
+    ''' <summary>
+    ''' V2 nyomtatvány
+    ''' </summary>
+    ''' <returns></returns>
+    <RuleRequiredField("InvoiceType-ReportDataV2", DefaultContexts.Save)>
+    Property ReportDataV2 As ReportDataV2
+        Get
+            Return _ReportDataV2
+        End Get
+        Set(value As ReportDataV2)
+            SetPropertyValue("ReportDataV2", _ReportDataV2, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("PartnerType = 0")>
+    <RuleRequiredField("InvoiceType-WorkflowSystem", DefaultContexts.Save)> _
+    Property WorkflowSystem As WorkflowSystem
+        Get
+            Return _WorkflowSystem
+        End Get
+        Set(value As WorkflowSystem)
+            SetPropertyValue("WorkflowSystem", _WorkflowSystem, value)
+        End Set
+    End Property
+    Property Rule5DMatrix As Rule5DMatrix
+        Get
+            Return _Rule5DMatrix
+        End Get
+        Set(value As Rule5DMatrix)
+            SetPropertyValue("Rule5DMatrix", _Rule5DMatrix, value)
+        End Set
+    End Property
+    Property ControllingDefault As Controlling
+        Get
+            Return _ControllingDefault
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("ControllingDefault", _ControllingDefault, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVATRows.vb

@@ -0,0 +1,121 @@
+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.Data.SqlClient
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+Imports System.Linq
+Imports System.Linq.Expressions
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class InvoiceVATRows
+    Inherits BaseObject
+    Private _InvoiceHeader As InvoiceHeader
+    Private _VAT As VAT
+    Private _DateVAT As Date 'ÁFA bevallás dátuma !!
+    Private _AmountNettoHUF As Double
+    Private _AmountVATHUF As Double
+    Private _AmountBruttoHUF As Double
+    Private _AmountNettoDEV As Double
+    Private _AmountVATDEV As Double
+    Private _AmountBruttoDEV As Double
+    Private _ReadyforBookEntryRows As Boolean = True 'Könyvelhető-e a sor. Ha nem, akkor feladás előtti ellenőrzés nem engedi át
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Me.InvoiceHeader IsNot Nothing And (DateVAT = Date.MinValue) Then
+            DateVAT = InvoiceHeader.DateExecution
+        End If
+    End Sub
+    <Association("InvoiceHeader-InvoiceVATRows", GetType(InvoiceHeader))> _
+    Property InvoiceHeader As InvoiceHeader
+        Get
+            Return _InvoiceHeader
+        End Get
+        Set(ByVal value As InvoiceHeader)
+            SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
+        End Set
+    End Property
+    Property VAT As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(ByVal value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+    Property DateVAT As Date
+        Get
+            Return _DateVAT
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateVAT", _DateVAT, value)
+        End Set
+    End Property
+    Property AmountNettoHUF As Double
+        Get
+            Return _AmountNettoHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountNettoHUF", _AmountNettoHUF, value)
+        End Set
+    End Property
+    Property AmountVATHUF As Double
+        Get
+            Return _AmountVATHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountVATHUF", _AmountVATHUF, value)
+        End Set
+    End Property
+    Property AmountBruttoHUF As Double
+        Get
+            Return _AmountBruttoHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountBruttoHUF", _AmountBruttoHUF, value)
+        End Set
+    End Property
+    Property AmountNettoDEV As Double
+        Get
+            Return _AmountNettoDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountNettoDEV", _AmountNettoDEV, value)
+        End Set
+    End Property
+    Property AmountVATDEV As Double
+        Get
+            Return _AmountVATDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountVATDEV", _AmountVATDEV, value)
+        End Set
+    End Property
+    Property AmountBruttoDEV As Double
+        Get
+            Return _AmountBruttoDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountBruttoDEV", _AmountBruttoDEV, value)
+        End Set
+    End Property
+    Property ReadyforBookEntryRows As Boolean
+        Get
+            Return _ReadyforBookEntryRows
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("ReadyforBookEntryRows", _ReadyforBookEntryRows, value)
+        End Set
+    End Property
+
+End Class
+

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.Designer.vb

@@ -0,0 +1,426 @@
+Partial Class InvoiceVC
+
+    <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()
+        Dim ChoiceActionItem1 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem()
+        Dim ChoiceActionItem2 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem()
+        Me.aFinalizeInvoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aStornoInvoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aInvoiceFromContractsRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCreateProforma = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateInvoice_Advance_Proforma = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aMakeEditableProforma = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateInvoice_Final_Proforma = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aDeleteSelectedInvoiceRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFinalizeInvoiceAdvance = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aViewGLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCorrInvoiceHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDescriptionChanger = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aInvoiceRowCloner = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aInvoiceHeaderClone = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aGenerateInvoiceToPdfFiles = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCloneFullInvoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDescriptionChangerHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aPCICheckInvoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewPCIDInvoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFinalizeInvoicewithPopup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aPrintSelectedInvoices = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aOpenInvoicePdf = New DevExpress.ExpressApp.Actions.SingleChoiceAction(Me.components)
+        Me.aViewInvoiceHold = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aRecalculateHUF = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateInvoiceCreditNote = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aInvoiceHeader_GenereateEmailSendQueue = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aBookEntryInvoiceHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aGeneratePDFandSendDefaultMailClient_Invoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aFinalizeInvoice
+        '
+        Me.aFinalizeInvoice.Caption = "aFinalize Invoice"
+        Me.aFinalizeInvoice.Category = "ObjectsCreation"
+        Me.aFinalizeInvoice.ConfirmationMessage = "Do you want to execute a command?"
+        Me.aFinalizeInvoice.Id = "aFinalizeInvoice"
+        Me.aFinalizeInvoice.TargetViewId = ""
+        Me.aFinalizeInvoice.ToolTip = Nothing
+        Me.aFinalizeInvoice.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aStornoInvoice
+        '
+        Me.aStornoInvoice.Caption = "aStorno Invoice"
+        Me.aStornoInvoice.Category = "ObjectsCreation"
+        Me.aStornoInvoice.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aStornoInvoice.Id = "aStornoInvoice"
+        Me.aStornoInvoice.TargetViewId = ""
+        Me.aStornoInvoice.ToolTip = Nothing
+        Me.aStornoInvoice.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aInvoiceFromContractsRows
+        '
+        Me.aInvoiceFromContractsRows.AcceptButtonCaption = Nothing
+        Me.aInvoiceFromContractsRows.CancelButtonCaption = Nothing
+        Me.aInvoiceFromContractsRows.Caption = "aInvoice From Contracts Rows"
+        Me.aInvoiceFromContractsRows.Category = "ObjectsCreation"
+        Me.aInvoiceFromContractsRows.ConfirmationMessage = Nothing
+        Me.aInvoiceFromContractsRows.Id = "aInvoiceFromContractsRows"
+        Me.aInvoiceFromContractsRows.TargetViewId = "InvoiceHeader_DetailView"
+        Me.aInvoiceFromContractsRows.ToolTip = Nothing
+        '
+        'aCreateProforma
+        '
+        Me.aCreateProforma.Caption = "Make me proforma"
+        Me.aCreateProforma.Category = "ObjectsCreation"
+        Me.aCreateProforma.ConfirmationMessage = Nothing
+        Me.aCreateProforma.Id = "aCreateProforma"
+        Me.aCreateProforma.TargetViewId = ""
+        Me.aCreateProforma.ToolTip = Nothing
+        '
+        'aCreateInvoice_Advance_Proforma
+        '
+        Me.aCreateInvoice_Advance_Proforma.AcceptButtonCaption = Nothing
+        Me.aCreateInvoice_Advance_Proforma.CancelButtonCaption = Nothing
+        Me.aCreateInvoice_Advance_Proforma.Caption = "aCreateInvoice_Advance_Proforma"
+        Me.aCreateInvoice_Advance_Proforma.Category = "ObjectsCreation"
+        Me.aCreateInvoice_Advance_Proforma.ConfirmationMessage = Nothing
+        Me.aCreateInvoice_Advance_Proforma.Id = "aCreateInvoice_Advance_Proforma"
+        Me.aCreateInvoice_Advance_Proforma.TargetViewId = "InvoiceHeader_ListView_Proforma_Advanced"
+        Me.aCreateInvoice_Advance_Proforma.ToolTip = Nothing
+        '
+        'aMakeEditableProforma
+        '
+        Me.aMakeEditableProforma.Caption = "aMake Editable Proforma"
+        Me.aMakeEditableProforma.Category = "ObjectsCreation"
+        Me.aMakeEditableProforma.ConfirmationMessage = Nothing
+        Me.aMakeEditableProforma.Id = "aMakeEditableProforma"
+        Me.aMakeEditableProforma.ToolTip = Nothing
+        '
+        'aCreateInvoice_Final_Proforma
+        '
+        Me.aCreateInvoice_Final_Proforma.AcceptButtonCaption = Nothing
+        Me.aCreateInvoice_Final_Proforma.CancelButtonCaption = Nothing
+        Me.aCreateInvoice_Final_Proforma.Caption = "Create final invoice"
+        Me.aCreateInvoice_Final_Proforma.Category = "ObjectsCreation"
+        Me.aCreateInvoice_Final_Proforma.ConfirmationMessage = Nothing
+        Me.aCreateInvoice_Final_Proforma.Id = "aCreateInvoice_Final_Proforma"
+        Me.aCreateInvoice_Final_Proforma.ImageName = "document_lock"
+        Me.aCreateInvoice_Final_Proforma.ToolTip = Nothing
+        '
+        'aDeleteSelectedInvoiceRows
+        '
+        Me.aDeleteSelectedInvoiceRows.Caption = "Delete"
+        Me.aDeleteSelectedInvoiceRows.Category = "RecordEdit"
+        Me.aDeleteSelectedInvoiceRows.ConfirmationMessage = Nothing
+        Me.aDeleteSelectedInvoiceRows.Id = "aDeleteSelectedInvoiceRows"
+        Me.aDeleteSelectedInvoiceRows.TargetViewId = ""
+        Me.aDeleteSelectedInvoiceRows.ToolTip = Nothing
+        Me.aDeleteSelectedInvoiceRows.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aFinalizeInvoiceAdvance
+        '
+        Me.aFinalizeInvoiceAdvance.AcceptButtonCaption = Nothing
+        Me.aFinalizeInvoiceAdvance.CancelButtonCaption = Nothing
+        Me.aFinalizeInvoiceAdvance.Caption = "aFinalize Invoice Advance"
+        Me.aFinalizeInvoiceAdvance.Category = "ObjectsCreation"
+        Me.aFinalizeInvoiceAdvance.ConfirmationMessage = Nothing
+        Me.aFinalizeInvoiceAdvance.Id = "aFinalizeInvoiceAdvance"
+        Me.aFinalizeInvoiceAdvance.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aFinalizeInvoiceAdvance.TargetViewId = "InvoiceHeader_ListView_Proforma_Advanced"
+        Me.aFinalizeInvoiceAdvance.ToolTip = Nothing
+        '
+        'aViewGLAccounts
+        '
+        Me.aViewGLAccounts.Caption = "View GLAccounts"
+        Me.aViewGLAccounts.Category = "View"
+        Me.aViewGLAccounts.ConfirmationMessage = Nothing
+        Me.aViewGLAccounts.Id = "aViewGLAccounts"
+        Me.aViewGLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewGLAccounts.TargetObjectsCriteria = "IsBookEntry=True"
+        Me.aViewGLAccounts.TargetViewId = ""
+        Me.aViewGLAccounts.ToolTip = Nothing
+        Me.aViewGLAccounts.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aCorrInvoiceHeader
+        '
+        Me.aCorrInvoiceHeader.Caption = "Invoice corr"
+        Me.aCorrInvoiceHeader.Category = "ObjectsCreation"
+        Me.aCorrInvoiceHeader.ConfirmationMessage = Nothing
+        Me.aCorrInvoiceHeader.Id = "aCorrInvoiceHeader"
+        Me.aCorrInvoiceHeader.ImageName = "Action_Clear"
+        Me.aCorrInvoiceHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCorrInvoiceHeader.TargetViewId = "InvoiceHeader_ListView"
+        Me.aCorrInvoiceHeader.ToolTip = Nothing
+        '
+        'aDescriptionChanger
+        '
+        Me.aDescriptionChanger.AcceptButtonCaption = Nothing
+        Me.aDescriptionChanger.CancelButtonCaption = Nothing
+        Me.aDescriptionChanger.Caption = "Description Changer"
+        Me.aDescriptionChanger.Category = "aDescriptionChanger"
+        Me.aDescriptionChanger.ConfirmationMessage = Nothing
+        Me.aDescriptionChanger.Id = "aDescriptionChanger"
+        Me.aDescriptionChanger.TargetViewId = ""
+        Me.aDescriptionChanger.ToolTip = Nothing
+        '
+        'aInvoiceRowCloner
+        '
+        Me.aInvoiceRowCloner.AcceptButtonCaption = Nothing
+        Me.aInvoiceRowCloner.CancelButtonCaption = Nothing
+        Me.aInvoiceRowCloner.Caption = "Invoice Row Cloner"
+        Me.aInvoiceRowCloner.Category = "aInvoiceRowCloner"
+        Me.aInvoiceRowCloner.ConfirmationMessage = Nothing
+        Me.aInvoiceRowCloner.Id = "aInvoiceRowCloner"
+        Me.aInvoiceRowCloner.TargetViewId = ""
+        Me.aInvoiceRowCloner.ToolTip = Nothing
+        '
+        'aInvoiceHeaderClone
+        '
+        Me.aInvoiceHeaderClone.Caption = "InvoiceHeader Clone"
+        Me.aInvoiceHeaderClone.Category = "ObjectsCreation"
+        Me.aInvoiceHeaderClone.ConfirmationMessage = Nothing
+        Me.aInvoiceHeaderClone.Id = "aInvoiceHeaderClone"
+        Me.aInvoiceHeaderClone.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aInvoiceHeaderClone.TargetViewId = ""
+        Me.aInvoiceHeaderClone.ToolTip = Nothing
+        Me.aInvoiceHeaderClone.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aGenerateInvoiceToPdfFiles
+        '
+        Me.aGenerateInvoiceToPdfFiles.Caption = "aGenerateInvoiceToPdfFiles"
+        Me.aGenerateInvoiceToPdfFiles.Category = "RecordEdit"
+        Me.aGenerateInvoiceToPdfFiles.ConfirmationMessage = Nothing
+        Me.aGenerateInvoiceToPdfFiles.Id = "aGenerateInvoiceToPdfFiles"
+        Me.aGenerateInvoiceToPdfFiles.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aGenerateInvoiceToPdfFiles.ToolTip = Nothing
+        '
+        'aCloneFullInvoice
+        '
+        Me.aCloneFullInvoice.Caption = "aCloneFullInvoice"
+        Me.aCloneFullInvoice.Category = "ObjectsCreation"
+        Me.aCloneFullInvoice.ConfirmationMessage = Nothing
+        Me.aCloneFullInvoice.Id = "aCloneFullInvoice"
+        Me.aCloneFullInvoice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aCloneFullInvoice.ToolTip = Nothing
+        '
+        'aDescriptionChangerHeader
+        '
+        Me.aDescriptionChangerHeader.AcceptButtonCaption = Nothing
+        Me.aDescriptionChangerHeader.CancelButtonCaption = Nothing
+        Me.aDescriptionChangerHeader.Caption = "Description Changer"
+        Me.aDescriptionChangerHeader.Category = "aDescriptionChangerHeader"
+        Me.aDescriptionChangerHeader.ConfirmationMessage = Nothing
+        Me.aDescriptionChangerHeader.Id = "aDescriptionChangerHeader"
+        Me.aDescriptionChangerHeader.TargetViewId = ""
+        Me.aDescriptionChangerHeader.ToolTip = Nothing
+        '
+        'aPCICheckInvoice
+        '
+        Me.aPCICheckInvoice.Caption = "aPCICheck Invoice"
+        Me.aPCICheckInvoice.Category = "RecordEdit"
+        Me.aPCICheckInvoice.ConfirmationMessage = Nothing
+        Me.aPCICheckInvoice.Id = "aPCICheckInvoice"
+        Me.aPCICheckInvoice.ToolTip = Nothing
+        '
+        'aViewPCIDInvoice
+        '
+        Me.aViewPCIDInvoice.Caption = "aViewPCIDGroup"
+        Me.aViewPCIDInvoice.Category = "View"
+        Me.aViewPCIDInvoice.ConfirmationMessage = Nothing
+        Me.aViewPCIDInvoice.Id = "aViewPCIDInvoice"
+        Me.aViewPCIDInvoice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewPCIDInvoice.TargetViewId = ""
+        Me.aViewPCIDInvoice.ToolTip = Nothing
+        '
+        'aFinalizeInvoicewithPopup
+        '
+        Me.aFinalizeInvoicewithPopup.AcceptButtonCaption = Nothing
+        Me.aFinalizeInvoicewithPopup.CancelButtonCaption = Nothing
+        Me.aFinalizeInvoicewithPopup.Caption = "aFinalize Invoicewith Popup"
+        Me.aFinalizeInvoicewithPopup.Category = "ObjectsCreation"
+        Me.aFinalizeInvoicewithPopup.ConfirmationMessage = Nothing
+        Me.aFinalizeInvoicewithPopup.Id = "aFinalizeInvoicewithPopup"
+        Me.aFinalizeInvoicewithPopup.ToolTip = Nothing
+        '
+        'aPrintSelectedInvoices
+        '
+        Me.aPrintSelectedInvoices.Caption = "aPrint Selected Invoices"
+        Me.aPrintSelectedInvoices.Category = "View"
+        Me.aPrintSelectedInvoices.ConfirmationMessage = Nothing
+        Me.aPrintSelectedInvoices.Id = "aPrintSelectedInvoices"
+        Me.aPrintSelectedInvoices.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aPrintSelectedInvoices.TargetObjectType = GetType(Nuvolar.[Module].InvoiceHeader)
+        Me.aPrintSelectedInvoices.TargetViewId = ""
+        Me.aPrintSelectedInvoices.ToolTip = Nothing
+        '
+        'aOpenInvoicePdf
+        '
+        Me.aOpenInvoicePdf.Caption = "aOpenInvoicePdf"
+        Me.aOpenInvoicePdf.ConfirmationMessage = Nothing
+        Me.aOpenInvoicePdf.Id = "aOpenInvoicePdf"
+        ChoiceActionItem1.Caption = "Original"
+        ChoiceActionItem1.ImageName = Nothing
+        ChoiceActionItem1.Shortcut = Nothing
+        ChoiceActionItem1.ToolTip = Nothing
+        ChoiceActionItem2.Caption = "Copy"
+        ChoiceActionItem2.ImageName = Nothing
+        ChoiceActionItem2.Shortcut = Nothing
+        ChoiceActionItem2.ToolTip = Nothing
+        Me.aOpenInvoicePdf.Items.Add(ChoiceActionItem1)
+        Me.aOpenInvoicePdf.Items.Add(ChoiceActionItem2)
+        Me.aOpenInvoicePdf.ItemType = DevExpress.ExpressApp.Actions.SingleChoiceActionItemType.ItemIsOperation
+        Me.aOpenInvoicePdf.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aOpenInvoicePdf.ShowItemsOnClick = True
+        Me.aOpenInvoicePdf.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll
+        Me.aOpenInvoicePdf.TargetObjectType = GetType(Nuvolar.[Module].InvoiceHeader)
+        Me.aOpenInvoicePdf.ToolTip = Nothing
+        '
+        'aViewInvoiceHold
+        '
+        Me.aViewInvoiceHold.Caption = "aView Invoice Hold"
+        Me.aViewInvoiceHold.ConfirmationMessage = Nothing
+        Me.aViewInvoiceHold.Id = "aViewInvoiceHold"
+        Me.aViewInvoiceHold.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewInvoiceHold.TargetObjectType = GetType(Nuvolar.[Module].InvoiceHeader)
+        Me.aViewInvoiceHold.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aViewInvoiceHold.ToolTip = Nothing
+        Me.aViewInvoiceHold.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aRecalculateHUF
+        '
+        Me.aRecalculateHUF.Caption = "aRecalculate HUF"
+        Me.aRecalculateHUF.Category = "RecordEdit"
+        Me.aRecalculateHUF.ConfirmationMessage = "Do you want to execute program ?"
+        Me.aRecalculateHUF.Id = "aRecalculateHUF"
+        Me.aRecalculateHUF.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aRecalculateHUF.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll
+        Me.aRecalculateHUF.TargetObjectType = GetType(Nuvolar.[Module].InvoiceHeader)
+        Me.aRecalculateHUF.ToolTip = Nothing
+        '
+        'aCreateInvoiceCreditNote
+        '
+        Me.aCreateInvoiceCreditNote.Caption = "aCreate Invoice Credit Note"
+        Me.aCreateInvoiceCreditNote.ConfirmationMessage = Nothing
+        Me.aCreateInvoiceCreditNote.Id = "aCreateInvoiceCreditNote"
+        Me.aCreateInvoiceCreditNote.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCreateInvoiceCreditNote.TargetObjectType = GetType(Nuvolar.[Module].InvoiceHeader)
+        Me.aCreateInvoiceCreditNote.ToolTip = Nothing
+        '
+        'aInvoiceHeader_GenereateEmailSendQueue
+        '
+        Me.aInvoiceHeader_GenereateEmailSendQueue.AcceptButtonCaption = Nothing
+        Me.aInvoiceHeader_GenereateEmailSendQueue.CancelButtonCaption = Nothing
+        Me.aInvoiceHeader_GenereateEmailSendQueue.Caption = "aInvoiceHeader_GenereateEmailSendQueue"
+        Me.aInvoiceHeader_GenereateEmailSendQueue.ConfirmationMessage = Nothing
+        Me.aInvoiceHeader_GenereateEmailSendQueue.Id = "aInvoiceHeader_GenereateEmailSendQueue"
+        Me.aInvoiceHeader_GenereateEmailSendQueue.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aInvoiceHeader_GenereateEmailSendQueue.TargetObjectType = GetType(Nuvolar.[Module].InvoiceHeader)
+        Me.aInvoiceHeader_GenereateEmailSendQueue.TargetViewId = "InvoiceHeader_ListView"
+        Me.aInvoiceHeader_GenereateEmailSendQueue.ToolTip = Nothing
+        '
+        'aBookEntryInvoiceHeader
+        '
+        Me.aBookEntryInvoiceHeader.Caption = "aBook Entry Invoice Header"
+        Me.aBookEntryInvoiceHeader.Category = "RecordEdit"
+        Me.aBookEntryInvoiceHeader.ConfirmationMessage = "Do you want to execute a command?"
+        Me.aBookEntryInvoiceHeader.Id = "aBookEntryInvoiceHeader"
+        Me.aBookEntryInvoiceHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aBookEntryInvoiceHeader.TargetObjectType = GetType(Nuvolar.[Module].InvoiceHeader)
+        Me.aBookEntryInvoiceHeader.TargetViewId = "InvoiceHeader_ListView"
+        Me.aBookEntryInvoiceHeader.ToolTip = Nothing
+        Me.aBookEntryInvoiceHeader.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aGeneratePDFandSendDefaultMailClient_Invoice
+        '
+        Me.aGeneratePDFandSendDefaultMailClient_Invoice.Caption = "aGeneratePDFandSendDefaultMailClient_Invoice"
+        Me.aGeneratePDFandSendDefaultMailClient_Invoice.ConfirmationMessage = Nothing
+        Me.aGeneratePDFandSendDefaultMailClient_Invoice.Id = "aGeneratePDFandSendDefaultMailClient_Invoice"
+        Me.aGeneratePDFandSendDefaultMailClient_Invoice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aGeneratePDFandSendDefaultMailClient_Invoice.TargetObjectType = GetType(Nuvolar.[Module].InvoiceHeader)
+        Me.aGeneratePDFandSendDefaultMailClient_Invoice.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aGeneratePDFandSendDefaultMailClient_Invoice.ToolTip = Nothing
+        Me.aGeneratePDFandSendDefaultMailClient_Invoice.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'InvoiceVC
+        '
+        Me.Actions.Add(Me.aFinalizeInvoice)
+        Me.Actions.Add(Me.aStornoInvoice)
+        Me.Actions.Add(Me.aInvoiceFromContractsRows)
+        Me.Actions.Add(Me.aCreateProforma)
+        Me.Actions.Add(Me.aCreateInvoice_Advance_Proforma)
+        Me.Actions.Add(Me.aMakeEditableProforma)
+        Me.Actions.Add(Me.aCreateInvoice_Final_Proforma)
+        Me.Actions.Add(Me.aDeleteSelectedInvoiceRows)
+        Me.Actions.Add(Me.aFinalizeInvoiceAdvance)
+        Me.Actions.Add(Me.aViewGLAccounts)
+        Me.Actions.Add(Me.aCorrInvoiceHeader)
+        Me.Actions.Add(Me.aDescriptionChanger)
+        Me.Actions.Add(Me.aInvoiceRowCloner)
+        Me.Actions.Add(Me.aInvoiceHeaderClone)
+        Me.Actions.Add(Me.aGenerateInvoiceToPdfFiles)
+        Me.Actions.Add(Me.aCloneFullInvoice)
+        Me.Actions.Add(Me.aDescriptionChangerHeader)
+        Me.Actions.Add(Me.aPCICheckInvoice)
+        Me.Actions.Add(Me.aViewPCIDInvoice)
+        Me.Actions.Add(Me.aFinalizeInvoicewithPopup)
+        Me.Actions.Add(Me.aPrintSelectedInvoices)
+        Me.Actions.Add(Me.aOpenInvoicePdf)
+        Me.Actions.Add(Me.aViewInvoiceHold)
+        Me.Actions.Add(Me.aRecalculateHUF)
+        Me.Actions.Add(Me.aCreateInvoiceCreditNote)
+        Me.Actions.Add(Me.aInvoiceHeader_GenereateEmailSendQueue)
+        Me.Actions.Add(Me.aBookEntryInvoiceHeader)
+        Me.Actions.Add(Me.aGeneratePDFandSendDefaultMailClient_Invoice)
+        Me.TypeOfView = GetType(DevExpress.ExpressApp.View)
+
+    End Sub
+    Friend WithEvents aFinalizeInvoice As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aStornoInvoice As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aInvoiceFromContractsRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCreateProforma As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateInvoice_Advance_Proforma As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aMakeEditableProforma As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateInvoice_Final_Proforma As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aDeleteSelectedInvoiceRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFinalizeInvoiceAdvance As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aViewGLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCorrInvoiceHeader As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aDescriptionChanger As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aInvoiceRowCloner As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aInvoiceHeaderClone As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aGenerateInvoiceToPdfFiles As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCloneFullInvoice As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aOpenInvoicePdf As DevExpress.ExpressApp.Actions.SingleChoiceAction
+    Friend WithEvents aDescriptionChangerHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aPCICheckInvoice As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewPCIDInvoice As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewInvoiceHold As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aRecalculateHUF As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFinalizeInvoicewithPopup As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCreateInvoiceCreditNote As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aInvoiceHeader_GenereateEmailSendQueue As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aBookEntryInvoiceHeader As DevExpress.ExpressApp.Actions.SimpleAction
+    Protected WithEvents aGeneratePDFandSendDefaultMailClient_Invoice As DevExpress.ExpressApp.Actions.SimpleAction
+    Public WithEvents aPrintSelectedInvoices As DevExpress.ExpressApp.Actions.SimpleAction
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.resx

@@ -0,0 +1,207 @@
+<?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="aFinalizeInvoice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>715, 134</value>
+  </metadata>
+  <metadata name="aStornoInvoice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>582, 134</value>
+  </metadata>
+  <metadata name="aInvoiceFromContractsRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1005, 17</value>
+  </metadata>
+  <metadata name="aCreateProforma.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>438, 134</value>
+  </metadata>
+  <metadata name="aCreateInvoice_Advance_Proforma.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>199, 134</value>
+  </metadata>
+  <metadata name="aMakeEditableProforma.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aCreateInvoice_Final_Proforma.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1210, 17</value>
+  </metadata>
+  <metadata name="aDeleteSelectedInvoiceRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1189, 95</value>
+  </metadata>
+  <metadata name="aFinalizeInvoiceAdvance.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1006, 95</value>
+  </metadata>
+  <metadata name="aViewGLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>858, 95</value>
+  </metadata>
+  <metadata name="aCorrInvoiceHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>649, 56</value>
+  </metadata>
+  <metadata name="aDescriptionChanger.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>692, 95</value>
+  </metadata>
+  <metadata name="aInvoiceRowCloner.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>536, 95</value>
+  </metadata>
+  <metadata name="aInvoiceHeaderClone.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>369, 95</value>
+  </metadata>
+  <metadata name="aGenerateInvoiceToPdfFiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>981, 56</value>
+  </metadata>
+  <metadata name="aCloneFullInvoice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>222, 95</value>
+  </metadata>
+  <metadata name="aDescriptionChangerHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aPCICheckInvoice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1332, 56</value>
+  </metadata>
+  <metadata name="aViewPCIDInvoice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1183, 56</value>
+  </metadata>
+  <metadata name="aFinalizeInvoicewithPopup.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>160, 56</value>
+  </metadata>
+  <metadata name="aPrintSelectedInvoices.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>808, 56</value>
+  </metadata>
+  <metadata name="aOpenInvoicePdf.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>505, 56</value>
+  </metadata>
+  <metadata name="aViewInvoiceHold.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>356, 56</value>
+  </metadata>
+  <metadata name="aRecalculateHUF.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aCreateInvoiceCreditNote.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>813, 17</value>
+  </metadata>
+  <metadata name="aInvoiceHeader_GenereateEmailSendQueue.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>523, 17</value>
+  </metadata>
+  <metadata name="aBookEntryInvoiceHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="aGeneratePDFandSendDefaultMailClient_Invoice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>208, 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/Business/BusinessTransactions/Invoice/Popup/InvoiceAdvancePopup.vb

@@ -0,0 +1,260 @@
+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.Data.SqlClient
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+Imports System.Linq
+Imports System.Linq.Expressions
+
+'-- POPUP-HOZ osztályok-------------------------------------------------------------
+<NavigationItem(False), CreatableItem(False)> _
+<NonPersistent()> _
+<Appearance("Hide DEV properties", AppearanceItemType.ViewItem, "CurrencyName.ShortName='HUF'", TargetItems:="AmountDEV;CurrencyRate", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide BankInformation", AppearanceItemType.ViewItem, "PaymentOption.PayMode != 1", TargetItems:="BankInformation", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide when IsEditable=False", AppearanceItemType.ViewItem, "IsEditable=False", TargetItems:="Controlling;CostHolder;CostPlace;UniqueObjects;JobNumberObjects;VAT;InvoiceType;PaymentOption;Controlling;DatePayment", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable when IsEditable=False", AppearanceItemType.ViewItem, "IsEditable=False", TargetItems:="CustomersFrom;Customers;CurrencyName", Enabled:=False)> _
+Public Class InvoiceAdvancePopup 'Előlegszámla készítő, ez csinál InvoiceHeader és InvoiceRows-t
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom ' -- Saját cég
+    Private _Customers As Customers ' -- Ügyfél
+    Private _CurrencyRate As Double ' -- Árfolyam
+    Private _CurrencyName As CurrencyName ' -- Deviza
+    Private _Description As String ' -- Leírás
+    Private _DateExecution As Date ' -- Teljesítés dátuma
+    Private _DatePayment As Date ' -- Fizetési határidő
+    Private _PaymentOption As PaymentOption ' -- Fizetési opció
+    Private _AmountHUF As Double ' -- Összeg HUF (Bruttó!!!)
+    Private _AmountDEV As Double ' -- Összeg DEV (Bruttó!!!)
+
+    Private _Controlling As Controlling ' -- Kontroll szám
+    Private _CostHolder As CostHolder ' -- Költségviselő
+    Private _CostPlace As CostPlace ' -- Költséghely
+    Private _UniqueObjects As UniqueObjects
+    Private _JobNumberObjects As JobNumberObjects
+
+
+    Private _VAT As VAT ' -- ÁFA kód
+    Private _BankInformation As BankInformation ' -- Bankszámlaszám
+    Private _InvoiceType As InvoiceType ' -- Számla típusa
+    Private _IsEditable As Boolean
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes=True"))
+        CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
+        CurrencyRate = 1
+        IsEditable = True
+    End Sub
+    <RuleRequiredField("InvoiceAdvancePopup.CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("InvoiceAdvancePopup.Customers", DefaultContexts.Save)> _
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property CurrencyRate As Double
+        Get
+            Return _CurrencyRate
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("CurrencyRate", _CurrencyRate, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <RuleRequiredField("InvoiceAdvancePopup.CurrencyName", DefaultContexts.Save)> _
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <RuleRequiredField("InvoiceAdvancePopup.DateExecution", DefaultContexts.Save)> _
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Me.DatePayment = value
+            End If
+        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
+    <RuleRequiredField("InvoiceAdvancePopup.PaymentOption", DefaultContexts.Save)> _
+    <ImmediatePostData()> _
+    Property PaymentOption As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(ByVal value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If value.PayMode = ePayMode.InCash Then
+                    Me.DateExecution = GetSQLTime(Session)
+                End If
+            End If
+        End Set
+    End Property
+    Property AmountHUF As Double
+        Get
+            Return _AmountHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountHUF", _AmountHUF, value)
+        End Set
+    End Property
+    <ImmediatePostData()>
+    Property AmountDEV As Double
+        Get
+            Return _AmountDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("AmountDEV", _AmountDEV, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If CurrencyName.ShortName <> "HUF" Then AmountHUF = Math.Round(AmountDEV * CurrencyRate, 0, MidpointRounding.AwayFromZero)
+            End If
+        End Set
+    End Property
+
+    '-- Rule5DMatrix ------------------------------------
+    <RuleRequiredField("InvoiceAdvancePopup-Controlling", DefaultContexts.Save, TargetCriteria:="InvoiceType.Rule5DMatrix.RequireControlling=True")>
+    <ImmediatePostData(True), DataSourceCriteria("IsAdvancePayment=True and IsParent=False")>
+    Property Controlling As Controlling
+        Get
+            Return _Controlling
+        End Get
+        Set(ByVal value As Controlling)
+            SetPropertyValue("Controlling", _Controlling, value)
+        End Set
+    End Property
+    <RuleRequiredField("InvoiceAdvancePopup-CostHolder", DefaultContexts.Save, TargetCriteria:="InvoiceType.Rule5DMatrix.RequireCostHolder=True")>
+    Property CostHolder As CostHolder
+        Get
+            Return _CostHolder
+        End Get
+        Set(value As CostHolder)
+            SetPropertyValue("CostHolder", _CostHolder, value)
+        End Set
+    End Property
+    <RuleRequiredField("InvoiceAdvancePopup-CostPlace", DefaultContexts.Save, TargetCriteria:="InvoiceType.Rule5DMatrix.RequireCostPlace=True")>
+    Property CostPlace As CostPlace
+        Get
+            Return _CostPlace
+        End Get
+        Set(value As CostPlace)
+            SetPropertyValue("CostPlace", _CostPlace, value)
+        End Set
+    End Property
+    <RuleRequiredField("InvoiceAdvancePopup-UniqueObjects", DefaultContexts.Save, TargetCriteria:="InvoiceType.Rule5DMatrix.RequireUniqueObjects=True")>
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+        End Set
+    End Property
+    <RuleRequiredField("InvoiceAdvancePopup-JobNumberObjects", DefaultContexts.Save, TargetCriteria:="InvoiceType.Rule5DMatrix.RequireJobNumberObjects=True")>
+    Property JobNumberObjects As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+        End Set
+    End Property
+
+
+    <RuleRequiredField("InvoiceAdvancePopup.VAT", DefaultContexts.Save)>
+    Property VAT As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(ByVal value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+    <RuleRequiredField("InvoiceAdvancePopup.BankInformation", DefaultContexts.Save, TargetCriteria:="PaymentOption.PayMode = 1")>
+    <ImmediatePostData(True), DataSourceCriteria("LiquidAssests.CustomerFrom = '@This.CustomersFrom'")>
+    Property BankInformation As BankInformation
+        Get
+            Return _BankInformation
+        End Get
+        Set(ByVal value As BankInformation)
+            SetPropertyValue("BankInformation", _BankInformation, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom ='@This.CustomersFrom' AND InvoiceTypeBase = 0 OR InvoiceTypeBase = 1")>
+    <RuleRequiredField("InvoiceAdvancePopup.InvoiceType", DefaultContexts.Save)> _
+    Property InvoiceType As InvoiceType
+        Get
+            Return _InvoiceType
+        End Get
+        Set(ByVal value As InvoiceType)
+            SetPropertyValue("InvoiceType", _InvoiceType, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property IsEditable As Boolean
+        Get
+            Return _IsEditable
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsEditable", _IsEditable, value)
+        End Set
+    End Property
+End Class
+
+#Region "Cool Codes"
+'<CustomQueryProperties("DisplayableProperties", "Employee_Linq;Orders_Sum_Linq")> _
+'Public Shared Function OrdersLinq(ByVal s As Session) As IQueryable
+'    Dim orders As New XPQuery(Of Order)(s)
+'    Dim queryOrders = _
+'     From o In orders _
+'     Order By o.Employee.FirstName Ascending _
+'     Group o By GroupKey = o.Employee.FirstName & " " & o.Employee.LastName Into oo = Group _
+'     Where oo.Sum(Function(o) o.Freight) > 10000 _
+'     Select New With {Key .OrderID = oo.Sum(Function(o) o.OrderID), Key .Employee_Linq = GroupKey, Key .Orders_Sum_Linq = oo.Sum(Function(o) o.Freight)}
+'    Return queryOrders
+'End Function
+#End Region
+

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceFactoringHeaderPopup.vb

@@ -0,0 +1,35 @@
+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 InvoiceFactoringHeaderPopup
+    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 DocumentNumber As String 'A bank által jóváhagyott sorszám
+    Property ContractFile As FileData 'A bank által visszaküldött engedményezési szerzõdés
+    Property Description As String 'Egyéb megjegyzés
+    Property DateExecution As Date 'Dátum
+    Property InterestPercent As Double '3 havi BUBOR + mars!!!
+    Property SpreadFile As FileData
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceFactoringPopup.vb

@@ -0,0 +1,32 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions(), NonPersistent, NavigationItem(False), CreatableItem(False)> _
+Public Class InvoiceFactoringPopup
+    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 Factoring_Send_Date As Date 'Mikor lett elküldve
+    Property Factoring_Send_Number As String 'Milyen sorszámon !
+    Property InvoiceFactoringParameter As InvoiceFactoringParameter 'Milyen paraméterrel !
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHeaderWithPopup.vb

@@ -0,0 +1,33 @@
+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 InvoiceHeaderWithPopup
+    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
+
+    <Size(-1)> Property Description As String
+    <Size(-1)> Property DescriptionHeader As String
+    Property NotNeedFinancial As Boolean = False
+
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHeader_DescriptionChanger_PopUp.vb

@@ -0,0 +1,34 @@
+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 InvoiceHeader_DescriptionChanger_PopUp
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Private _Description As String 'Számlán szereplõ megjegyzés
+
+    Overloads Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopup.vb

@@ -0,0 +1,118 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions(), NonPersistent(), NavigationItem(False), CreatableItem(False)> _
+<Appearance("Hide when CurrencyName is not HUF", AppearanceItemType:="ViewItem", criteria:="InvoiceHeader.CurrencyName.ShortName='HUF'", _
+                 targetitems:="row_AmountDEV;", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide when CurrencyName is HUF", AppearanceItemType:="ViewItem", criteria:="InvoiceHeader.CurrencyName.ShortName<>'HUF'", _
+                 targetitems:="row_AmountHUF;", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide when Finalized Action", AppearanceItemType:="Action", criteria:="InvoiceHeader.IsEditable=False and InvoiceHeader.IsProforma=False", _
+                 targetitems:="aToTable_InvoiceHold;aToTableD_InvoiceHold;aBackToRowEdit_InvoiceHold;aUp_InvoiceHold;aDown_InvoiceHold", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide when Finalized ViewItem", AppearanceItemType:="Action", criteria:="InvoiceHeader.IsEditable=False and InvoiceHeader.IsProforma=False", _
+                 targetitems:="row_DatePayment;row_ShortName;row_AmountDEV;row_AmountHUF;row_Percent", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class InvoiceHoldPopup
+    Inherits BaseObject
+
+    Private _InvoiceHeader As InvoiceHeader
+
+    Private _row_DatePayment As Date
+    Private _row_ShortName As String
+    Private _row_AmountHUF As Double
+    Private _row_AmountDEV As Double
+    Private _row_Percent As Double
+
+    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.
+        'row_Percent = 5
+    End Sub
+
+    Property InvoiceHeader As InvoiceHeader
+        Get
+            Return _InvoiceHeader
+        End Get
+        Set(value As InvoiceHeader)
+            SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
+        End Set
+    End Property
+
+    <NonPersistent()> _
+    <RuleRequiredField("InvoiceHoldPopup-row_DatePayment", "aToTable_InvoiceHold_Contexts")> _
+    Property row_DatePayment As Date
+        Get
+            Return _row_DatePayment
+        End Get
+        Set(value As Date)
+            SetPropertyValue("row_DatePayment", _row_DatePayment, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    Property row_ShortName As String
+        Get
+            Return _row_ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_ShortName", _row_ShortName, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <RuleValueComparison("InvoiceHoldPopup-row_AmountHUF", "aToTable_InvoiceHold_Contexts", ValueComparisonType.GreaterThan, "0", targetcriteria:="InvoiceHeader.CurrencyName.ShortName='HUF'")> _
+    Property row_AmountHUF As Double
+        Get
+            Return _row_AmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_AmountHUF", _row_AmountHUF, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <RuleValueComparison("InvoiceHoldPopup-row_AmountDEV", "aToTable_InvoiceHold_Contexts", ValueComparisonType.GreaterThan, "0", targetcriteria:="InvoiceHeader.CurrencyName.ShortName<>'HUF'")> _
+    Property row_AmountDEV As Double
+        Get
+            Return _row_AmountDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_AmountDEV", _row_AmountDEV, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <RuleRange("InvoiceHoldPopup", "aToTable_InvoiceHold_Contexts", "1", "99")> _
+    Property row_Percent As Double
+        Get
+            Return _row_Percent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_Percent", _row_Percent, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                row_AmountHUF = Math.Round(InvoiceHeader.TotalBruttoHUF * (value / 100), 0, MidpointRounding.AwayFromZero)
+                row_AmountDEV = Math.Round(InvoiceHeader.TotalBruttoDEV * (value / 100), 2, MidpointRounding.AwayFromZero)
+            End If
+        End Set
+    End Property
+
+
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property InvoiceHold As XPCollection(Of InvoiceHold)
+        Get
+            Return New XPCollection(Of InvoiceHold)(Session, CriteriaOperator.Parse("InvoiceHeader=?", Me.InvoiceHeader))
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopupVC.Designer.vb

@@ -0,0 +1,119 @@
+Partial Class InvoiceHoldPopupVC
+
+    <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.aBackToRowEdit_InvoiceHold = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTable_InvoiceHold = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTableD_InvoiceHold = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDown_InvoiceHold = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aUp_InvoiceHold = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aBackToRowEdit_InvoiceHold
+        '
+        Me.aBackToRowEdit_InvoiceHold.Caption = "Edit row"
+        Me.aBackToRowEdit_InvoiceHold.Category = "aBackToRowEdit_Invoice"
+        Me.aBackToRowEdit_InvoiceHold.ConfirmationMessage = Nothing
+        Me.aBackToRowEdit_InvoiceHold.Id = "aBackToRowEdit_InvoiceHold"
+        Me.aBackToRowEdit_InvoiceHold.ImageName = "table_refresh"
+        Me.aBackToRowEdit_InvoiceHold.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBackToRowEdit_InvoiceHold.Shortcut = Nothing
+        Me.aBackToRowEdit_InvoiceHold.Tag = Nothing
+        Me.aBackToRowEdit_InvoiceHold.TargetObjectsCriteria = Nothing
+        Me.aBackToRowEdit_InvoiceHold.TargetViewId = "InvoiceHoldPopup_DetailView"
+        Me.aBackToRowEdit_InvoiceHold.ToolTip = Nothing
+        Me.aBackToRowEdit_InvoiceHold.TypeOfView = Nothing
+        '
+        'aToTable_InvoiceHold
+        '
+        Me.aToTable_InvoiceHold.Caption = "aToTable"
+        Me.aToTable_InvoiceHold.Category = "aToTable_Invoice"
+        Me.aToTable_InvoiceHold.ConfirmationMessage = Nothing
+        Me.aToTable_InvoiceHold.Id = "aToTable_InvoiceHold"
+        Me.aToTable_InvoiceHold.ImageName = "row_add_after"
+        Me.aToTable_InvoiceHold.Shortcut = Nothing
+        Me.aToTable_InvoiceHold.Tag = Nothing
+        Me.aToTable_InvoiceHold.TargetObjectsCriteria = Nothing
+        Me.aToTable_InvoiceHold.TargetViewId = "InvoiceHoldPopup_DetailView"
+        Me.aToTable_InvoiceHold.ToolTip = Nothing
+        Me.aToTable_InvoiceHold.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aToTableD_InvoiceHold
+        '
+        Me.aToTableD_InvoiceHold.Caption = "Delete row"
+        Me.aToTableD_InvoiceHold.Category = "aToTableD_InvoiceHold"
+        Me.aToTableD_InvoiceHold.ConfirmationMessage = Nothing
+        Me.aToTableD_InvoiceHold.Id = "aToTableD_InvoiceHold"
+        Me.aToTableD_InvoiceHold.ImageName = "row_delete"
+        Me.aToTableD_InvoiceHold.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aToTableD_InvoiceHold.Shortcut = Nothing
+        Me.aToTableD_InvoiceHold.Tag = Nothing
+        Me.aToTableD_InvoiceHold.TargetObjectsCriteria = Nothing
+        Me.aToTableD_InvoiceHold.TargetViewId = "InvoiceHoldPopup_DetailView"
+        Me.aToTableD_InvoiceHold.ToolTip = Nothing
+        Me.aToTableD_InvoiceHold.TypeOfView = Nothing
+        '
+        'aDown_InvoiceHold
+        '
+        Me.aDown_InvoiceHold.Caption = "Down"
+        Me.aDown_InvoiceHold.Category = "RecordsNavigation"
+        Me.aDown_InvoiceHold.ConfirmationMessage = Nothing
+        Me.aDown_InvoiceHold.Id = "aDown_InvoiceHold"
+        Me.aDown_InvoiceHold.ImageName = "arrow_down_green"
+        Me.aDown_InvoiceHold.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aDown_InvoiceHold.Shortcut = Nothing
+        Me.aDown_InvoiceHold.Tag = Nothing
+        Me.aDown_InvoiceHold.TargetObjectsCriteria = Nothing
+        Me.aDown_InvoiceHold.TargetObjectType = GetType(Nuvolar.[Module].InvoiceHold)
+        Me.aDown_InvoiceHold.TargetViewId = ""
+        Me.aDown_InvoiceHold.ToolTip = Nothing
+        Me.aDown_InvoiceHold.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aUp_InvoiceHold
+        '
+        Me.aUp_InvoiceHold.Caption = "Up"
+        Me.aUp_InvoiceHold.Category = "RecordsNavigation"
+        Me.aUp_InvoiceHold.ConfirmationMessage = Nothing
+        Me.aUp_InvoiceHold.Id = "aUp_InvoiceHold"
+        Me.aUp_InvoiceHold.ImageName = "arrow_up_green"
+        Me.aUp_InvoiceHold.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aUp_InvoiceHold.Shortcut = Nothing
+        Me.aUp_InvoiceHold.Tag = Nothing
+        Me.aUp_InvoiceHold.TargetObjectsCriteria = Nothing
+        Me.aUp_InvoiceHold.TargetObjectType = GetType(Nuvolar.[Module].InvoiceHold)
+        Me.aUp_InvoiceHold.TargetViewId = ""
+        Me.aUp_InvoiceHold.ToolTip = Nothing
+        Me.aUp_InvoiceHold.TypeOfView = GetType(DevExpress.ExpressApp.View)
+
+    End Sub
+    Friend WithEvents aDown_InvoiceHold As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aUp_InvoiceHold As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aBackToRowEdit_InvoiceHold As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTable_InvoiceHold As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTableD_InvoiceHold As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopupVC.resx

@@ -0,0 +1,138 @@
+<?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="aBackToRowEdit_InvoiceHold.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aToTable_InvoiceHold.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aToTableD_InvoiceHold.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aDown_InvoiceHold.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aUp_InvoiceHold.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</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/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopupVC.vb

@@ -0,0 +1,167 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.Data.Filtering
+Imports DevExpress.Xpo
+
+Public Class InvoiceHoldPopupVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+    End Sub
+
+    Private Sub aToTable_InvoiceHold_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_InvoiceHold.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceHoldPopup As InvoiceHoldPopup = TryCast(View.SelectedObjects(0), InvoiceHoldPopup)
+        Dim _InvoiceHold_Collection As XPCollection(Of InvoiceHold)
+        Dim _InvoiceHold As InvoiceHold
+        Dim _AmountRemainingHUF As Double = _InvoiceHoldPopup.InvoiceHeader.TotalBruttoHUF
+        Dim _AmountRemainingDEV As Double = _InvoiceHoldPopup.InvoiceHeader.TotalBruttoDEV
+
+
+        _InvoiceHold = _ocur.FindObject(Of InvoiceHold)(CriteriaOperator.Parse("RowType='Normal' and InvoiceHeader.Oid=?", _InvoiceHoldPopup.InvoiceHeader.Oid), PersistentCriteriaEvaluationBehavior.InTransaction)
+
+        If _InvoiceHold IsNot Nothing Then
+            _ocur.Delete(_InvoiceHold)
+        End If
+
+        _ocur.CommitChanges()
+
+        _InvoiceHold = _ocur.CreateObject(Of InvoiceHold)()
+        _InvoiceHold.RowType = eHoldRowType.Hold
+        _InvoiceHold.InvoiceHeader = _InvoiceHoldPopup.InvoiceHeader
+        _InvoiceHold.ShortName = _InvoiceHoldPopup.row_ShortName
+        _InvoiceHold.AmountHUF = _InvoiceHoldPopup.row_AmountHUF
+        _InvoiceHold.AmountDEV = _InvoiceHoldPopup.row_AmountDEV
+        _InvoiceHold.DatePayment = _InvoiceHoldPopup.row_DatePayment
+
+        _ocur.CommitChanges()
+
+        _InvoiceHold_Collection = New XPCollection(Of InvoiceHold)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHoldPopup.InvoiceHeader.Oid))
+        For Each _InvoiceHold In _InvoiceHold_Collection
+            _AmountRemainingHUF -= _InvoiceHold.AmountHUF
+            _AmountRemainingDEV -= _InvoiceHold.AmountDEV
+        Next
+
+        _InvoiceHold = _ocur.CreateObject(Of InvoiceHold)()
+        _InvoiceHold.RowType = eHoldRowType.Normal
+        _InvoiceHold.InvoiceHeader = _InvoiceHoldPopup.InvoiceHeader
+        _InvoiceHold.ShortName = ""
+        _InvoiceHold.AmountHUF = _AmountRemainingHUF
+        _InvoiceHold.AmountDEV = _AmountRemainingDEV
+        _InvoiceHold.DatePayment = _InvoiceHoldPopup.InvoiceHeader.DatePayment
+
+        _ocur.CommitChanges()
+
+
+        Dim _DetailView As DetailView = TryCast(View, DetailView)
+        If _DetailView IsNot Nothing Then
+            Dim _ListPropertyEditor As ListPropertyEditor = _DetailView.FindItem("InvoiceHold")
+
+            If _ListPropertyEditor IsNot Nothing Then
+                TryCast(_ListPropertyEditor.ListView, ListView).CollectionSource.Reload()
+            End If
+
+        End If
+
+
+
+    End Sub
+
+    Private Sub aToTableD_InvoiceHold_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_InvoiceHold.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceHoldPopup As InvoiceHoldPopup = TryCast(View.SelectedObjects(0), InvoiceHoldPopup)
+        Dim _InvoiceHold_Collection As XPCollection(Of InvoiceHold) = Nothing
+        Dim _InvoiceHold As InvoiceHold = Nothing
+        Dim _AmountRemainingHUF As Double = _InvoiceHoldPopup.InvoiceHeader.TotalBruttoHUF
+        Dim _AmountRemainingDEV As Double = _InvoiceHoldPopup.InvoiceHeader.TotalBruttoDEV
+        Dim _DetailView As DetailView = TryCast(View, DetailView)
+        Dim _ListPropertyEditor As ListPropertyEditor = _DetailView.FindItem("InvoiceHold")
+        Dim _IsNormal = False
+
+        If _ListPropertyEditor IsNot Nothing Then
+
+
+            Dim _ListView As ListView = TryCast(_ListPropertyEditor.ListView, ListView)
+
+            For Each _InvoiceHold In _ListView.SelectedObjects
+                If _InvoiceHold.RowType = eHoldRowType.Hold Then
+                    _ocur.Delete(_InvoiceHold)
+                End If
+            Next
+            _ocur.CommitChanges()
+
+            _InvoiceHold = _ocur.FindObject(Of InvoiceHold)(CriteriaOperator.Parse("RowType='Normal' and InvoiceHeader.Oid=?", _InvoiceHoldPopup.InvoiceHeader.Oid), PersistentCriteriaEvaluationBehavior.InTransaction)
+            If _InvoiceHold IsNot Nothing Then
+                _ocur.Delete(_InvoiceHold)
+            End If
+            _ocur.CommitChanges()
+
+            _InvoiceHold_Collection = New XPCollection(Of InvoiceHold)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHoldPopup.InvoiceHeader.Oid))
+            For Each _InvoiceHold In _InvoiceHold_Collection
+                _AmountRemainingHUF -= _InvoiceHold.AmountHUF
+                _AmountRemainingDEV -= _InvoiceHold.AmountDEV
+                _IsNormal = True
+            Next
+
+            If _IsNormal Then
+                _InvoiceHold = _ocur.CreateObject(Of InvoiceHold)()
+                _InvoiceHold.RowType = eHoldRowType.Normal
+                _InvoiceHold.InvoiceHeader = _InvoiceHoldPopup.InvoiceHeader
+                _InvoiceHold.ShortName = ""
+                _InvoiceHold.AmountHUF = _AmountRemainingHUF
+                _InvoiceHold.AmountDEV = _AmountRemainingDEV
+                _InvoiceHold.DatePayment = _InvoiceHoldPopup.InvoiceHeader.DatePayment
+
+                _ocur.CommitChanges()
+            End If
+
+
+            _ListView.CollectionSource.Reload()
+        End If
+
+    End Sub
+
+    Private Sub aBackToRowEdit_InvoiceHold_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_InvoiceHold.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _InvoiceHoldPopup As InvoiceHoldPopup = TryCast(View.SelectedObjects(0), InvoiceHoldPopup)
+        Dim _InvoiceHold_Collection As XPCollection(Of InvoiceHold) = Nothing
+        Dim _InvoiceHold As InvoiceHold = Nothing
+
+        Dim _DetailView As DetailView = TryCast(View, DetailView)
+        Dim _ListPropertyEditor As ListPropertyEditor = _DetailView.FindItem("InvoiceHold")
+        Dim _IsNormal = False
+
+        If _ListPropertyEditor IsNot Nothing Then
+            Dim _ListView As ListView = TryCast(_ListPropertyEditor.ListView, ListView)
+            If _ListView IsNot Nothing Then
+                _InvoiceHold = TryCast(_ListView.SelectedObjects(0), InvoiceHold)
+                If _InvoiceHold IsNot Nothing Then
+                    _InvoiceHoldPopup.row_AmountHUF = _InvoiceHold.AmountHUF
+                    _InvoiceHoldPopup.row_AmountDEV = _InvoiceHold.AmountDEV
+                    _InvoiceHoldPopup.row_DatePayment = _InvoiceHold.DatePayment
+                    _InvoiceHoldPopup.row_ShortName = _InvoiceHold.ShortName
+                End If
+
+
+            End If
+        End If
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceRows_Changer_Popup.vb

@@ -0,0 +1,36 @@
+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 InvoiceRows_Changer_Popup
+    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 DateExecution As Date
+    Property Controlling As Controlling
+    Property CostPlace As CostPlace
+    Property CostHolder As CostHolder
+    Property UniqueObjects As UniqueObjects
+    Property JobNumberObjects As JobNumberObjects
+
+End Class