First create solution

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/MoveLocationOtherLocation_PopUp.vb

@@ -0,0 +1,48 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+Public Class MoveLocationOtherLocation_PopUp
+    Inherits BaseObject
+    Private _StorageLocation As StorageLocation
+    Private _NewStorageLocation As StorageLocation
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+
+    End Sub
+
+    <Browsable(False)> _
+    Property StorageLocation As StorageLocation
+        Get
+            Return _StorageLocation
+        End Get
+        Set(value As StorageLocation)
+            SetPropertyValue("StorageLocation", _StorageLocation, value)
+
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("Storage='@This.StorageLocation.Storage'")>
+    Property NewStorageLocation As StorageLocation
+        Get
+            Return _NewStorageLocation
+        End Get
+        Set(value As StorageLocation)
+            SetPropertyValue("NewStorageLocation", _NewStorageLocation, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/MoveProductsOtherLocation_PopUp.vb

@@ -0,0 +1,67 @@
+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 MoveProductsOtherLocation_PopUp
+    Inherits BaseObject
+
+    Private _StorageLocation As StorageLocation
+    Private _NewStorageLocation As StorageLocation
+    Private _Criteria As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Criteria = "1=2"
+    End Sub
+
+    <Browsable(False)> _
+    Property StorageLocation As StorageLocation
+        Get
+            Return _StorageLocation
+        End Get
+        Set(value As StorageLocation)
+            SetPropertyValue("StorageLocation", _StorageLocation, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("Storage='@This.StorageLocation.Storage'")>
+    Property NewStorageLocation As StorageLocation
+        Get
+            Return _NewStorageLocation
+        End Get
+        Set(value As StorageLocation)
+            SetPropertyValue("NewStorageLocation", _NewStorageLocation, value)
+        End Set
+    End Property
+    Property Criteria As String
+        Get
+            Return _Criteria
+        End Get
+        Set(value As String)
+            SetPropertyValue("Criteria", _Criteria, value)
+        End Set
+    End Property
+    '------------------Readonly--------------
+    ReadOnly Property StorageComputedLocations As XPCollection(Of StorageComputedLocations)
+        Get
+            If Criteria <> "1=2" Then
+                Return New XPCollection(Of StorageComputedLocations)(Session, CriteriaOperator.Parse(Criteria))
+            Else
+                Return Nothing
+            End If
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/SetSIRPrice_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 SetSIRPrice_PopUp
+    Inherits BaseObject
+
+    Private _AveragePriceInHUF As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property AveragePriceInHUF As Double
+        Get
+            Return _AveragePriceInHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AveragePriceInHUF", _AveragePriceInHUF, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/ShowStorageOutDeliveryOutRows_PopUp.vb

@@ -0,0 +1,54 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<NonPersistent()> _
+<Appearance("ShowStorageOutDeliveryOutRows_PopUp - HIde OrderInRows all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="OrderInRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class ShowStorageOutDeliveryOutRows_PopUp
+    Inherits BaseObject
+
+    Private _OrderInRows As OrderInRows
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property OrderInRows As OrderInRows
+        Get
+            Return _OrderInRows
+        End Get
+        Set(value As OrderInRows)
+            SetPropertyValue("OrderInRows", _OrderInRows, value)
+        End Set
+    End Property
+
+    ReadOnly Property StorageOutRowsInRows_Collection As XPCollection(Of StorageOutRowsInRows)
+        Get
+            Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("StorageOutRows.OrderInRows.Oid=?", OrderInRows))
+        End Get
+    End Property
+    ReadOnly Property DeliveryNoteOutRows As XPCollection(Of DeliveryNoteOutRows)
+        Get
+            Return New XPCollection(Of DeliveryNoteOutRows)(Session, CriteriaOperator.Parse("StorageOutRowsInRows.StorageOutRows.OrderInRows=?", OrderInRows))
+        End Get
+    End Property
+    ReadOnly Property DeliveryNoteInRows As XPCollection(Of DeliveryNoteInRows)
+        Get
+            Return New XPCollection(Of DeliveryNoteInRows)(Session, CriteriaOperator.Parse("Products=? AND QTT <> QTT_Controlled", OrderInRows.Products))
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/StorageDateClearingPrice_GeneterateDate2Date_PopUp.vb

@@ -0,0 +1,45 @@
+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 StorageDateClearingPrice_GeneterateDate2Date_PopUp
+    Inherits BaseObject
+
+    Dim _StartDate As Date
+    Dim _EndDate As Date
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property StartDate As Date
+        Get
+            Return _StartDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("StartDate", _StartDate, value)
+        End Set
+    End Property
+    Property EndDate As Date
+        Get
+            Return _EndDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("EndDate", _EndDate, value)
+        End Set
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/Storage.vb

@@ -0,0 +1,157 @@
+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
+Imports System.Reflection
+
+
+'------------------------------- Raktárkezelés -----------------------------------------------------------------------------------
+<DefaultClassOptions()> _
+<NavigationItem("StorageStocks")> _
+Public Class Storage '-- Raktárak ------------
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom ' -- Saját cég
+    Private _Address As Address ' -- Cím
+    Private _ShortName As String ' -- Megnevezés
+    Private _Description As String ' -- Leírás
+    Private _NumberGeneratorOut As NumberGenerator ' -- Sorszám generátor kitárolás
+    Private _NumberGeneratorIn As NumberGenerator ' -- Sorszám generátor betárolás
+    Private _NumberGeneratorOutS As NumberGenerator ' -- Sorszám generátor kitárolás storno
+    Private _NumberGeneratorInS As NumberGenerator ' -- Sorszám generátor betárolás storno
+    Private _ReportIn As ReportData ' -- Nyomtatvány betárolás
+    Private _ReportOut As ReportData ' -- Nyomtatvány kitárolás
+    Private _ReportInventory As ReportData '--Leltár nyomtatvány DataType InventorySIR
+
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+    End Sub
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceProperty("CustomersFrom_Address")>
+    Property Address As Address
+        Get
+            Return _Address
+        End Get
+        Set(ByVal value As Address)
+            SetPropertyValue("Address", _Address, value)
+        End Set
+    End Property
+    <RuleRequiredField("Storage-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
+    <RuleRequiredField("Storage-Description", DefaultContexts.Save)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    <RuleRequiredField("Storage-NumberGeneratorOut", DefaultContexts.Save), NonCloneable()> _
+    Property NumberGeneratorOut As NumberGenerator
+        Get
+            Return _NumberGeneratorOut
+        End Get
+        Set(ByVal value As NumberGenerator)
+            SetPropertyValue("NumberGeneratorOut", _NumberGeneratorOut, value)
+        End Set
+    End Property
+    <RuleRequiredField("Storage-NumberGeneratorIn", DefaultContexts.Save), NonCloneable()> _
+    Property NumberGeneratorIn As NumberGenerator
+        Get
+            Return _NumberGeneratorIn
+        End Get
+        Set(ByVal value As NumberGenerator)
+            SetPropertyValue("NumberGeneratorIn", _NumberGeneratorIn, value)
+        End Set
+    End Property
+    <RuleRequiredField("Storage-NumberGeneratorOutS", DefaultContexts.Save), NonCloneable()> _
+    Property NumberGeneratorOutS As NumberGenerator
+        Get
+            Return _NumberGeneratorOutS
+        End Get
+        Set(ByVal value As NumberGenerator)
+            SetPropertyValue("NumberGeneratorOutS", _NumberGeneratorOutS, value)
+        End Set
+    End Property
+    <RuleRequiredField("Storage-NumberGeneratorInS", DefaultContexts.Save), NonCloneable()> _
+    Property NumberGeneratorInS As NumberGenerator
+        Get
+            Return _NumberGeneratorInS
+        End Get
+        Set(ByVal value As NumberGenerator)
+            SetPropertyValue("NumberGeneratorInS", _NumberGeneratorInS, value)
+        End Set
+    End Property
+    Property ReportIn As ReportData
+        Get
+            Return _ReportIn
+        End Get
+        Set(ByVal value As ReportData)
+            SetPropertyValue("ReportIn", _ReportIn, value)
+        End Set
+    End Property
+    Property ReportOut As ReportData
+        Get
+            Return _ReportOut
+        End Get
+        Set(ByVal value As ReportData)
+            SetPropertyValue("ReportOut", _ReportOut, value)
+        End Set
+    End Property
+    Property ReportInventory As ReportData
+        Get
+            Return _ReportInventory
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportInventory", _ReportInventory, value)
+        End Set
+    End Property
+
+    '-------------ReadOnly--------------
+    <VisibleInListView(False)> _
+    Private ReadOnly Property CustomersFrom_Address As XPCollection(Of Address)
+        Get
+            Dim _Address_Collection As New XPCollection(Of Address)(Session, CriteriaOperator.Parse("Oid<>Oid"))
+            _Address_Collection.Add(CustomersFrom.Address1)
+            _Address_Collection.Add(CustomersFrom.Address2)
+
+            Dim _CustomersAddress_Collection As New XPCollection(Of CustomersAddress)(Session, CriteriaOperator.Parse("Customers.Oid=?", CustomersFrom.Oid))
+            Dim _CustomersAddress As CustomersAddress
+
+            For Each _CustomersAddress In _CustomersAddress_Collection
+                _Address_Collection.Add(_CustomersAddress.Address)
+            Next
+
+            
+            Return _Address_Collection
+        End Get
+    End Property
+
+End Class
+
+
+

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputed.vb

@@ -0,0 +1,232 @@
+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()> _
+<DefaultProperty("Products")> _
+<NavigationItem("StorageStocks")> _
+Public Class StorageComputed '-- Készletinfo
+    Inherits BaseObject
+    Private _Storage As Storage ' -- Raktár
+    Private _Products As Products ' -- Termék
+    Private _QTTFree As Double = 0 ' -- Szabad készlet
+    Private _QTTReserved As Double = 0 ' -- Foglalás kitárolásra
+    Private _QTTReservedIn As Double = 0 ' -- Betárolás alatt
+    Private _QTTReservedOut As Double = 0 ' -- Kitárolás alatt
+    Private _QTT_Minimum As Double 'Minimum mennyiség
+    Private _QTT_Maximum As Double 'Feltöltés erre a mennyiségre
+    Private _QTT_Remainder_In As Double 'Nem teljesített kimenõ megrendelés a szállító felé
+    Private _QTT_Remainder_To As Double 'Nem teljesített továbbrendelt tétel
+    Private _QTT_FIFO As Double 'Összes betárolt mennyiség minus a kitárolt mennyiség StorageInRows.QTT-StorageInRows-QTT_Out ez mindig >= 0 (nulla)!
+    Private _AveragePriceInHUF As Double 'Átlagár forintban
+    Private _MimumumPriceOutHUF As Double 'Átlagárból számított minmimális eladási ár
+    Private _MinimumPriceIsChecked As Boolean = False 'Az átlagárból számított adat rendben van-e
+    Private _PricingMinimum As PricingMinimum 'Mimimum ár számító rutin
+
+    Private _SumAveragePriceInHUFFree As Double 'Összesen átlagár szerinti készlet érték HUF
+    Private _SumFIFOPriceInHUFFree As Double 'FIFO szerinti készletérték HUF
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaved()
+        MyBase.OnSaved()
+        '// Mentés után
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        '// Mentéskor
+        Me.RecalculateAveragePrice()
+        Me.RecalculateMinimumPrice()
+    End Sub
+    Property Storage As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(ByVal value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+        End Set
+    End Property
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(ByVal value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property QTTFree As Double
+        Get
+            Return _QTTFree
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTTFree", _QTTFree, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+        End Set
+    End Property
+    Property QTTReserved As Double
+        Get
+            Return _QTTReserved
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTTReserved", _QTTReserved, value)
+        End Set
+    End Property
+    Property QTTReservedIn As Double
+        Get
+            Return _QTTReservedIn
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTTReservedIn", _QTTReservedIn, value)
+        End Set
+    End Property
+    Property QTTReservedOut As Double
+        Get
+            Return _QTTReservedOut
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTTReservedOut", _QTTReservedOut, value)
+        End Set
+    End Property
+    Property QTT_Minimum As Double
+        Get
+            Return _QTT_Minimum
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Minimum", _QTT_Minimum, value)
+        End Set
+    End Property
+    Property QTT_Maximum As Double
+        Get
+            Return _QTT_Maximum
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Maximum", _QTT_Maximum, value)
+        End Set
+    End Property
+
+    Property QTT_Remainder_In As Double
+        Get
+            Return _QTT_Remainder_In
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Remainder_In", _QTT_Remainder_In, value)
+        End Set
+    End Property
+    Property QTT_Remainder_To As Double
+        Get
+            Return _QTT_Remainder_To
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Remainder_To", _QTT_Remainder_To, value)
+        End Set
+    End Property
+    Property QTT_FIFO As Double
+        Get
+            Return _QTT_FIFO
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_FIFO", _QTT_FIFO, value)
+        End Set
+    End Property
+
+    Property AveragePriceInHUF As Double
+        Get
+            Return _AveragePriceInHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AveragePriceInHUF", _AveragePriceInHUF, value)
+        End Set
+    End Property
+    Property MimumumPriceOutHUF As Double
+        Get
+            Return _MimumumPriceOutHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("MimumumPriceOutHUF", _MimumumPriceOutHUF, value)
+        End Set
+    End Property
+    Property PricingMinimum As PricingMinimum
+        Get
+            Return _PricingMinimum
+        End Get
+        Set(value As PricingMinimum)
+            SetPropertyValue("PricingMinimum", _PricingMinimum, value)
+        End Set
+    End Property
+    Property MinimumPriceIsChecked As Boolean
+        Get
+            Return _MinimumPriceIsChecked
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("MinimumPriceIsChecked", _MinimumPriceIsChecked, value)
+        End Set
+    End Property
+
+    Property SumAveragePriceInHUFFree As Double
+        Get
+            Return _SumAveragePriceInHUFFree
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceInHUFFree", _SumAveragePriceInHUFFree, value)
+        End Set
+    End Property
+    Property SumFIFOPriceInHUFFree As Double
+        Get
+            Return _SumFIFOPriceInHUFFree
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumFIFOPriceInHUFFree", _SumFIFOPriceInHUFFree, value)
+        End Set
+    End Property
+    '//XPCollections
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property StorageInRows As XPCollection(Of StorageInRows)
+        Get
+            Return New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse("StorageInHeader.Storage=? and Products=?", Me.Storage, Me.Products))
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property StorageMoveEvents As XPCollection(Of StorageMoveEvents)
+        Get
+            Return New XPCollection(Of StorageMoveEvents)(Session, CriteriaOperator.Parse("IsNull(StorageInRows.GCRecord)=True and IsNull(StorageInRows.StorageInHeader.GCRecord)=True and StorageInRows.Storage=? and StorageInRows.Products=?", Me.Storage, Me.Products))
+        End Get
+    End Property
+
+    Public Sub RecalculateAveragePrice()
+        If Me.Storage Is Nothing Then Exit Sub
+        If Me.Products Is Nothing Then Exit Sub
+
+        Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice)(Session, CriteriaOperator.Parse("Products=?", Me.Products))
+        Dim _StorageDateClearingPrice As StorageDateClearingPrice
+
+        AveragePriceInHUF = 0
+        _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Descending))
+        For Each _StorageDateClearingPrice In _StorageDateClearingPrice_Collection
+            _AveragePriceInHUF = _StorageDateClearingPrice.AveragePriceHUF_After
+            Exit For
+        Next
+        Me.SumAveragePriceInHUFFree = Me.QTTFree * Me.AveragePriceInHUF
+    End Sub
+    Public Sub RecalculateMinimumPrice()
+        If Me.PricingMinimum IsNot Nothing Then
+            MimumumPriceOutHUF = Math.Round(AveragePriceInHUF * (1 + (Me.PricingMinimum.PricePercent / 100)), 0, MidpointRounding.AwayFromZero)
+        Else
+            MimumumPriceOutHUF = 0
+            Me.MinimumPriceIsChecked = False
+        End If
+    End Sub
+    Sub RecalculateSumFIFOPriceInHUFFree()
+
+
+    End Sub
+    
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations.vb

@@ -0,0 +1,70 @@
+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("StorageStocks"), CreatableItem(False)> _
+Public Class StorageComputedLocations
+    Inherits BaseObject
+
+    Private _StorageComputed As StorageComputed
+    Private _PacketNumber As String 'Kötegszám
+    Private _SerialNumber As String 'Sorozatszám
+    Private _QTT As Double
+    Private _StorageLocation As StorageLocation
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property StorageComputed As StorageComputed
+        Get
+            Return _StorageComputed
+        End Get
+        Set(value As StorageComputed)
+            SetPropertyValue("StorageComputed", _StorageComputed, 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 StorageLocation As StorageLocation
+        Get
+            Return _StorageLocation
+        End Get
+        Set(value As StorageLocation)
+            SetPropertyValue("StorageLocation", _StorageLocation, value)
+        End Set
+    End Property
+    Property PacketNumber As String
+        Get
+            Return _PacketNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("PacketNumber", _PacketNumber, value)
+        End Set
+    End Property
+    Property SerialNumber As String
+        Get
+            Return _SerialNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("SerialNumber", _SerialNumber, value)
+        End Set
+    End Property
+
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations_VC.Designer.vb

@@ -0,0 +1,71 @@
+Partial Class StorageComputedLocations_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.aMoveProductsOtherLocation = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aMoveLocationOtherLocation = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aMoveProductsOtherLocation
+        '
+        Me.aMoveProductsOtherLocation.AcceptButtonCaption = Nothing
+        Me.aMoveProductsOtherLocation.CancelButtonCaption = Nothing
+        Me.aMoveProductsOtherLocation.Caption = "aMoveProductsOtherLocation"
+        Me.aMoveProductsOtherLocation.ConfirmationMessage = Nothing
+        Me.aMoveProductsOtherLocation.Id = "aMoveProductsOtherLocation"
+        Me.aMoveProductsOtherLocation.ImageName = Nothing
+        Me.aMoveProductsOtherLocation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aMoveProductsOtherLocation.Shortcut = Nothing
+        Me.aMoveProductsOtherLocation.Tag = Nothing
+        Me.aMoveProductsOtherLocation.TargetObjectsCriteria = Nothing
+        Me.aMoveProductsOtherLocation.TargetObjectType = GetType(Nuvolar.[Module].StorageComputedLocations)
+        Me.aMoveProductsOtherLocation.TargetViewId = Nothing
+        Me.aMoveProductsOtherLocation.ToolTip = Nothing
+        Me.aMoveProductsOtherLocation.TypeOfView = Nothing
+        '
+        'aMoveLocationOtherLocation
+        '
+        Me.aMoveLocationOtherLocation.AcceptButtonCaption = Nothing
+        Me.aMoveLocationOtherLocation.CancelButtonCaption = Nothing
+        Me.aMoveLocationOtherLocation.Caption = "aMoveLocationOtherLocation"
+        Me.aMoveLocationOtherLocation.ConfirmationMessage = Nothing
+        Me.aMoveLocationOtherLocation.Id = "aMoveLocationOtherLocation"
+        Me.aMoveLocationOtherLocation.ImageName = Nothing
+        Me.aMoveLocationOtherLocation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aMoveLocationOtherLocation.Shortcut = Nothing
+        Me.aMoveLocationOtherLocation.Tag = Nothing
+        Me.aMoveLocationOtherLocation.TargetObjectsCriteria = Nothing
+        Me.aMoveLocationOtherLocation.TargetObjectType = GetType(Nuvolar.[Module].StorageComputedLocations)
+        Me.aMoveLocationOtherLocation.TargetViewId = Nothing
+        Me.aMoveLocationOtherLocation.ToolTip = Nothing
+        Me.aMoveLocationOtherLocation.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aMoveProductsOtherLocation As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aMoveLocationOtherLocation As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations_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="aMoveProductsOtherLocation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aMoveLocationOtherLocation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>134, 143</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/StorageTransactions/Storage/StorageComputedLocations_VC.vb

@@ -0,0 +1,111 @@
+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 DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.CloneObject
+
+Public Class StorageComputedLocations_VC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        If View.Id = "MoveProductsOtherLocation_PopUp_StorageComputedLocations_ListView" Then
+            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
+        Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+        Frame.GetController(Of ModificationsController)().Active.SetItemValue("", True)
+        Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+        Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+        Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+        Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
+    End Sub
+
+    Private Sub aMoveProductsOtherLocation_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aMoveProductsOtherLocation.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _MoveProductsOtherLocation_PopUp As MoveProductsOtherLocation_PopUp = _onew.CreateObject(Of MoveProductsOtherLocation_PopUp)()
+            Dim _StorageComputedLocations As StorageComputedLocations = TryCast(View.SelectedObjects(0), StorageComputedLocations)
+            _MoveProductsOtherLocation_PopUp.StorageLocation = _onew.GetObject(_StorageComputedLocations.StorageLocation)
+            _MoveProductsOtherLocation_PopUp.Criteria = "Oid in ('"
+
+            For Each _StorageComputedLocations_Selected As StorageComputedLocations In View.SelectedObjects
+                _MoveProductsOtherLocation_PopUp.Criteria += TryCast(_StorageComputedLocations_Selected, StorageComputedLocations).Oid.ToString + "','"
+            Next
+            _MoveProductsOtherLocation_PopUp.Criteria = _MoveProductsOtherLocation_PopUp.Criteria.Remove(_MoveProductsOtherLocation_PopUp.Criteria.Length - 2, 2)
+            _MoveProductsOtherLocation_PopUp.Criteria += ")"
+
+            e.View = Application.CreateDetailView(_onew, "MoveProductsOtherLocation_PopUp_DetailView", False, _MoveProductsOtherLocation_PopUp)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+    Private Sub aMoveProductsOtherLocation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aMoveProductsOtherLocation.Execute
+        Try
+            Dim _onew As Xpo.XPObjectSpace = e.PopupWindow.View.ObjectSpace
+            Dim _MoveProductsOtherLocation_PopUp As MoveProductsOtherLocation_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), MoveProductsOtherLocation_PopUp)
+            If _MoveProductsOtherLocation_PopUp.StorageComputedLocations.Count = 0 Then Throw New Exception("*Nem lett kijelölve lokalizált termék!")
+
+            For Each _StorageComputedLocations As StorageComputedLocations In _MoveProductsOtherLocation_PopUp.StorageComputedLocations
+                _StorageComputedLocations.StorageLocation = _MoveProductsOtherLocation_PopUp.NewStorageLocation
+            Next
+            _onew.CommitChanges()
+        Catch ex As Exception
+
+        End Try
+    End Sub
+    Private Sub aMoveLocationOtherLocation_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aMoveLocationOtherLocation.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _MoveLocationOtherLocation_PopUp As MoveLocationOtherLocation_PopUp = _onew.CreateObject(Of MoveLocationOtherLocation_PopUp)()
+            Dim _StorageComputedLocations As StorageComputedLocations = TryCast(View.SelectedObjects(0), StorageComputedLocations)
+            _MoveLocationOtherLocation_PopUp.StorageLocation = _onew.GetObject(_StorageComputedLocations.StorageLocation)
+
+            e.View = Application.CreateDetailView(_onew, "MoveLocationOtherLocation_PopUp_DetailView", False, _MoveLocationOtherLocation_PopUp)
+            View.Refresh()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+    Private Sub aMoveLocationOtherLocation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aMoveLocationOtherLocation.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _MoveLocationOtherLocation_PopUp As MoveLocationOtherLocation_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), MoveLocationOtherLocation_PopUp)
+            Dim _NewStorageLocation As StorageLocation = _ocur.GetObjectByKey(Of StorageLocation)(_MoveLocationOtherLocation_PopUp.NewStorageLocation.Oid)
+
+            Dim _StorageComputedLocations_Collection As New XPCollection(Of StorageComputedLocations)(_ocur.Session, CriteriaOperator.Parse("StorageLocation=?", TryCast(View.SelectedObjects(0), StorageComputedLocations).StorageLocation))
+
+            If _StorageComputedLocations_Collection.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem, így nem lehet azonosítani a mozgatásra váró lokációt!")
+
+            For Each _StorageComputedLocations As StorageComputedLocations In _StorageComputedLocations_Collection
+                _StorageComputedLocations.StorageLocation = _NewStorageLocation
+            Next
+            _ocur.CommitChanges()
+            View.Refresh()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.Designer.vb

@@ -0,0 +1,122 @@
+Partial Class StorageComputedVC
+
+    <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.aViewStorageMoveInfo_StorageComputed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewStorageMoveInfo_StorageOutCirculation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aChangeGroup_StorageComputed = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aGenerateStorageComputedPrice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aStorageComputed_Generate_QTT_FIFO = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aViewStorageMoveInfo_StorageComputed
+        '
+        Me.aViewStorageMoveInfo_StorageComputed.Caption = "aViewStorageMoveInfo_StorageComputed"
+        Me.aViewStorageMoveInfo_StorageComputed.ConfirmationMessage = Nothing
+        Me.aViewStorageMoveInfo_StorageComputed.Id = "aViewStorageMoveInfo_StorageComputed"
+        Me.aViewStorageMoveInfo_StorageComputed.ImageName = Nothing
+        Me.aViewStorageMoveInfo_StorageComputed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewStorageMoveInfo_StorageComputed.Shortcut = Nothing
+        Me.aViewStorageMoveInfo_StorageComputed.Tag = Nothing
+        Me.aViewStorageMoveInfo_StorageComputed.TargetObjectsCriteria = Nothing
+        Me.aViewStorageMoveInfo_StorageComputed.TargetObjectType = GetType(Nuvolar.[Module].StorageComputed)
+        Me.aViewStorageMoveInfo_StorageComputed.TargetViewId = Nothing
+        Me.aViewStorageMoveInfo_StorageComputed.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aViewStorageMoveInfo_StorageComputed.ToolTip = Nothing
+        Me.aViewStorageMoveInfo_StorageComputed.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aViewStorageMoveInfo_StorageOutCirculation
+        '
+        Me.aViewStorageMoveInfo_StorageOutCirculation.Caption = "aViewStorageMoveInfo_StorageOutCirculation"
+        Me.aViewStorageMoveInfo_StorageOutCirculation.ConfirmationMessage = Nothing
+        Me.aViewStorageMoveInfo_StorageOutCirculation.Id = "aViewStorageMoveInfo_StorageOutCirculation"
+        Me.aViewStorageMoveInfo_StorageOutCirculation.ImageName = Nothing
+        Me.aViewStorageMoveInfo_StorageOutCirculation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewStorageMoveInfo_StorageOutCirculation.Shortcut = Nothing
+        Me.aViewStorageMoveInfo_StorageOutCirculation.Tag = Nothing
+        Me.aViewStorageMoveInfo_StorageOutCirculation.TargetObjectsCriteria = Nothing
+        Me.aViewStorageMoveInfo_StorageOutCirculation.TargetObjectType = GetType(Nuvolar.[Module].StorageOutCirculation)
+        Me.aViewStorageMoveInfo_StorageOutCirculation.TargetViewId = Nothing
+        Me.aViewStorageMoveInfo_StorageOutCirculation.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aViewStorageMoveInfo_StorageOutCirculation.ToolTip = Nothing
+        Me.aViewStorageMoveInfo_StorageOutCirculation.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aChangeGroup_StorageComputed
+        '
+        Me.aChangeGroup_StorageComputed.AcceptButtonCaption = Nothing
+        Me.aChangeGroup_StorageComputed.CancelButtonCaption = Nothing
+        Me.aChangeGroup_StorageComputed.Caption = "aChangeGroup_StorageComputed"
+        Me.aChangeGroup_StorageComputed.ConfirmationMessage = Nothing
+        Me.aChangeGroup_StorageComputed.Id = "aChangeGroup_StorageComputed"
+        Me.aChangeGroup_StorageComputed.ImageName = Nothing
+        Me.aChangeGroup_StorageComputed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aChangeGroup_StorageComputed.Shortcut = Nothing
+        Me.aChangeGroup_StorageComputed.Tag = Nothing
+        Me.aChangeGroup_StorageComputed.TargetObjectsCriteria = Nothing
+        Me.aChangeGroup_StorageComputed.TargetObjectType = GetType(Nuvolar.[Module].StorageComputed)
+        Me.aChangeGroup_StorageComputed.TargetViewId = Nothing
+        Me.aChangeGroup_StorageComputed.ToolTip = Nothing
+        Me.aChangeGroup_StorageComputed.TypeOfView = Nothing
+        '
+        'aGenerateStorageComputedPrice
+        '
+        Me.aGenerateStorageComputedPrice.Caption = "aGenerate Storage Computed Price"
+        Me.aGenerateStorageComputedPrice.ConfirmationMessage = Nothing
+        Me.aGenerateStorageComputedPrice.Id = "aGenerateStorageComputedPrice"
+        Me.aGenerateStorageComputedPrice.ImageName = Nothing
+        Me.aGenerateStorageComputedPrice.Shortcut = Nothing
+        Me.aGenerateStorageComputedPrice.Tag = Nothing
+        Me.aGenerateStorageComputedPrice.TargetObjectsCriteria = Nothing
+        Me.aGenerateStorageComputedPrice.TargetObjectType = GetType(Nuvolar.[Module].StorageComputed)
+        Me.aGenerateStorageComputedPrice.TargetViewId = Nothing
+        Me.aGenerateStorageComputedPrice.ToolTip = Nothing
+        Me.aGenerateStorageComputedPrice.TypeOfView = Nothing
+        '
+        'aStorageComputed_Generate_QTT_FIFO
+        '
+        Me.aStorageComputed_Generate_QTT_FIFO.Caption = "aStorageComputed_Generate_QTT_FIFO"
+        Me.aStorageComputed_Generate_QTT_FIFO.ConfirmationMessage = Nothing
+        Me.aStorageComputed_Generate_QTT_FIFO.Id = "aStorageComputed_Generate_QTT_FIFO"
+        Me.aStorageComputed_Generate_QTT_FIFO.ImageName = Nothing
+        Me.aStorageComputed_Generate_QTT_FIFO.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aStorageComputed_Generate_QTT_FIFO.Shortcut = Nothing
+        Me.aStorageComputed_Generate_QTT_FIFO.Tag = Nothing
+        Me.aStorageComputed_Generate_QTT_FIFO.TargetObjectsCriteria = Nothing
+        Me.aStorageComputed_Generate_QTT_FIFO.TargetObjectType = GetType(Nuvolar.[Module].StorageComputed)
+        Me.aStorageComputed_Generate_QTT_FIFO.TargetViewId = Nothing
+        Me.aStorageComputed_Generate_QTT_FIFO.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aStorageComputed_Generate_QTT_FIFO.ToolTip = Nothing
+        Me.aStorageComputed_Generate_QTT_FIFO.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+
+    End Sub
+    Friend WithEvents aViewStorageMoveInfo_StorageComputed As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewStorageMoveInfo_StorageOutCirculation As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aChangeGroup_StorageComputed As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aGenerateStorageComputedPrice As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aStorageComputed_Generate_QTT_FIFO As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.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="aViewStorageMoveInfo_StorageComputed.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>458, 17</value>
+  </metadata>
+  <metadata name="aViewStorageMoveInfo_StorageOutCirculation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>979, 17</value>
+  </metadata>
+  <metadata name="aChangeGroup_StorageComputed.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="aGenerateStorageComputedPrice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>240, 17</value>
+  </metadata>
+  <metadata name="aStorageComputed_Generate_QTT_FIFO.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>725, 17</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+</root>

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.vb

@@ -0,0 +1,157 @@
+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.Session
+Imports DevExpress.Data.Filtering
+Imports DevExpress.Xpo
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.Utils
+
+Public Class StorageComputedVC
+    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
+    Public Sub New()
+        MyBase.New()
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        '------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
+        If View.Id Like "StorageComputed_LookupListView" Then '-- StorageComputed csak programból állítható elő !!!
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False)
+            'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+        End If
+
+        '------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        '----------------- LISTVIEWS ----------------------------------------------------------------------------------------------------------------------------
+        If View.Id Like "StorageComputed_LookupListView" Then '-- StorageComputed csak programból állítható elő !!!
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", True)
+            'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+        End If
+        '----------------- DETAILVIEWS --------------------------------------------------------------------------------------------------------------------------
+
+        '----------------- OTHERVIEWS ---------------------------------------------------------------------------------------------------------------------------
+
+        If View.Id Like "Storage*Header_*" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", True)
+        End If
+        If View.Id Like "Products*" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+        End If
+    End Sub
+
+    Private Sub aViewStorageMoveInfo_StorageComputed_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewStorageMoveInfo_StorageComputed.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _StorageComputed As StorageComputed = TryCast(View.SelectedObjects(0), StorageComputed)
+        Dim _StorageMoveInfo As StorageMoveInfo
+        If _StorageComputed IsNot Nothing Then
+            _StorageMoveInfo = _onew.CreateObject(Of StorageMoveInfo)()
+            _StorageMoveInfo.Products = _onew.GetObject(_StorageComputed.Products)
+            e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "StorageMoveInfo_DetailView", False, _StorageMoveInfo)
+        End If
+    End Sub
+
+    Private Sub aViewStorageMoveInfo_StorageOutCirculation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewStorageMoveInfo_StorageOutCirculation.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _StorageOutCirculation As StorageOutCirculation = TryCast(View.SelectedObjects(0), StorageOutCirculation)
+        Dim _StorageMoveInfo As StorageMoveInfo
+        If _StorageOutCirculation IsNot Nothing Then
+            _StorageMoveInfo = _onew.CreateObject(Of StorageMoveInfo)()
+            _StorageMoveInfo.Products = _onew.GetObject(_StorageOutCirculation.Products)
+            e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "StorageMoveInfo_DetailView", False, _StorageMoveInfo)
+        End If
+    End Sub
+
+    Private Sub aGenerateStorageComputedPrice_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGenerateStorageComputedPrice.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _StorageComputed As StorageComputed
+
+        RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+        For Each _StorageComputed In View.SelectedObjects
+            RaiseEvent DoWork()
+            _StorageComputed.RecalculateAveragePrice()
+            _StorageComputed.RecalculateMinimumPrice()
+            _StorageComputed.RecalculateSumFIFOPriceInHUFFree()
+        Next
+        _ocur.CommitChanges()
+        RaiseEvent FinalWork
+
+    End Sub
+    Private Sub aChangeGroup_StorageComputed_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aChangeGroup_StorageComputed.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _ChangeGroup_StorageComputed_PopUp As New ChangeGroup_StorageComputed_PopUp(_onew.Session)
+
+            e.View = Application.CreateDetailView(_onew, "ChangeGroup_StorageComputed_PopUp_DetailView", True, _ChangeGroup_StorageComputed_PopUp)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+    Private Sub aChangeGroup_StorageComputed_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aChangeGroup_StorageComputed.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _ChangeGroup_StorageComputed_PopUp As ChangeGroup_StorageComputed_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ChangeGroup_StorageComputed_PopUp)
+
+            For Each _StorageComputed As StorageComputed In View.SelectedObjects
+                If _ChangeGroup_StorageComputed_PopUp.Change_PricingMinimum Then
+                    _StorageComputed.PricingMinimum = _ocur.GetObject(_ChangeGroup_StorageComputed_PopUp.PricingMinimum)
+                End If
+            Next
+
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+    Private Sub aStorageComputed_Generate_QTT_FIFO_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aStorageComputed_Generate_QTT_FIFO.Execute
+        Try
+            GLOBAL_HAS_Audit = False
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+            For Each _StorageComputed As StorageComputed In View.SelectedObjects
+                RaiseEvent DoWork()
+                Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_ocur.Session, CriteriaOperator.Parse("Storage=? AND Products=? AND StorageInHeader.IsStorno=False AND StorageInHeader.IsEditable=False", _
+                                                                                                           _StorageComputed.Storage, _StorageComputed.Products))
+                '  If _StorageInRows_Collection.Count > 0 Then
+                Dim _SIR_QTT As Double = 0
+                Dim _SIR_OTT_Out As Double = 0
+
+                For Each _StorageInRows As StorageInRows In _StorageInRows_Collection
+                    _SIR_QTT += _StorageInRows.QTT
+                    _SIR_OTT_Out += _StorageInRows.QTT_Out
+                Next
+
+                _StorageComputed.QTT_FIFO = _SIR_QTT - _SIR_OTT_Out
+                'End If
+            Next
+            _ocur.CommitChanges()
+        Catch ex As NullReferenceException
+            MsgBox("Már megint valami NULL!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")
+        Finally
+            GLOBAL_HAS_Audit = True
+            RaiseEvent FinalWork
+        End Try
+    End Sub
+End Class
+

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDate.vb

@@ -0,0 +1,138 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DeferredDeletion(False)> _
+Public Class StorageDate
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _Products As Products
+    Private _DateExecution As Date
+    Private _DateExecutionYear As String
+    Private _DateExecutionMonth As String
+    Private _DateExecutionQuarter As String
+    Private _DateExecutionWeek As String
+
+    Private _QTT_Close As Double 'Záró készlet
+    Private _SumAveragePriceHUF As Double 'Mérlegelt átlagár
+    Private _SumPriceHUF As Double 'Mérlegelt átlagérték
+
+    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 String.IsNullOrEmpty(DateExecutionYear) Then DateExecutionYear = DateExecution.Year.ToString
+        If String.IsNullOrEmpty(DateExecutionMonth) Then DateExecutionMonth = DateExecution.Month.ToString
+        If String.IsNullOrEmpty(DateExecutionQuarter) Then DateExecutionQuarter = DatePart(DateInterval.Quarter, DateExecution).ToString
+        If String.IsNullOrEmpty(DateExecutionWeek) Then DateExecutionWeek = DatePart(DateInterval.WeekOfYear, DateExecution).ToString
+
+    End Sub
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+
+    Property DateExecution() As Date
+        Get
+            Return _DateExecution.Date
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value.Date)
+        End Set
+    End Property
+
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property DateExecutionYear As String
+        Get
+            Return _DateExecutionYear
+        End Get
+        Set(value As String)
+            SetPropertyValue("DateExecutionYear", _DateExecutionYear, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property DateExecutionMonth As String
+        Get
+            Return _DateExecutionMonth
+        End Get
+        Set(value As String)
+            SetPropertyValue("DateExecutionMonth", _DateExecutionMonth, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property DateExecutionQuarter As String
+        Get
+            Return _DateExecutionQuarter
+        End Get
+        Set(value As String)
+            SetPropertyValue("DateExecutionQuarter", _DateExecutionQuarter, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property DateExecutionWeek As String
+        Get
+            Return _DateExecutionWeek
+        End Get
+        Set(value As String)
+            SetPropertyValue("DateExecutionWeek", _DateExecutionWeek, 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 SumAveragePriceHUF As Double
+        Get
+            Return _SumAveragePriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceHUF", _SumAveragePriceHUF, value)
+        End Set
+    End Property
+    Property QTT_Close As Double
+        Get
+            Return _QTT_Close
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Close", _QTT_Close, value)
+        End Set
+    End Property
+
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateClearingPrice.vb

@@ -0,0 +1,209 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports System.Drawing
+Imports DevExpress.ExpressApp.Utils
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DeferredDeletion(False)> _
+Public Class StorageDateClearingPrice
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _Products As Products
+    Private _RowIndex As Long
+    Private _DateExecution As Date
+    Private _QTT_Before As Double
+    Private _QTT_In As Double
+    Private _QTT_Out As Double
+    Private _QTT_After As Double
+    Private _AveragePriceHUF_After As Double
+    Private _SumAveragePriceHUF_After As Double
+    Private _AveragePriceHUF_Before As Double
+    Private _SumAveragePriceHUF_Before As Double
+
+    Private _MainIndex As Long
+
+    Private _DeliveryNoteInRRFC As DeliveryNoteInRRFC 'Leigazolt szállítólevél sor
+    Private _InvoiceRows As InvoiceRows 'Vevõi számla sor 
+    Private _StorageInRows As StorageInRows 'Gyártásból bevétel sor
+    Private _StorageOutRowsInRows As StorageOutRowsInRows 'Gyártásba kiadás sor
+
+    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 Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, 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 DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property QTT_Before As Double
+        Get
+            Return Math.Round(_QTT_Before, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Before", _QTT_Before, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+        End Set
+    End Property
+    Property QTT_In As Double
+        Get
+            Return Math.Round(_QTT_In, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_In", _QTT_In, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+        End Set
+    End Property
+    Property QTT_Out As Double
+        Get
+            Return Math.Round(_QTT_Out, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Out", _QTT_Out, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+        End Set
+    End Property
+    Property QTT_After As Double
+        Get
+            Return Math.Round(_QTT_After, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_After", _QTT_After, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+        End Set
+    End Property
+    Property AveragePriceHUF_After As Double
+        Get
+            Return _AveragePriceHUF_After
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AveragePriceHUF_After", _AveragePriceHUF_After, value)
+        End Set
+    End Property
+    Property SumAveragePriceHUF_After As Double
+        Get
+            Return _SumAveragePriceHUF_After
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceHUF_After", _SumAveragePriceHUF_After, value)
+        End Set
+    End Property
+    Property AveragePriceHUF_Before As Double
+        Get
+            Return _AveragePriceHUF_Before
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AveragePriceHUF_Before", _AveragePriceHUF_Before, value)
+        End Set
+    End Property
+    Property SumAveragePriceHUF_Before As Double
+        Get
+            Return _SumAveragePriceHUF_Before
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceHUF_Before", _SumAveragePriceHUF_Before, value)
+        End Set
+    End Property
+    Property MainIndex As Long
+        Get
+            Return _MainIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("MainIndex", _MainIndex, value)
+        End Set
+    End Property
+    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 StorageInRows As StorageInRows
+        Get
+            Return _StorageInRows
+        End Get
+        Set(value As StorageInRows)
+            SetPropertyValue("StorageInRows", _StorageInRows, value)
+        End Set
+    End Property
+    Property StorageOutRowsInRows As StorageOutRowsInRows
+        Get
+            Return _StorageOutRowsInRows
+        End Get
+        Set(value As StorageOutRowsInRows)
+            SetPropertyValue("StorageOutRowsInRows", _StorageOutRowsInRows, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False)> _
+    ReadOnly Property Image1 As Image
+        Get
+            Select Case RowIndex
+                Case 0
+                    If DeliveryNoteInRRFC IsNot Nothing Then
+                        Return ImageLoader.Instance.GetImageInfo("arrow_down_blue").Image
+                    ElseIf StorageInRows IsNot Nothing Then
+                        Return ImageLoader.Instance.GetImageInfo("arrow_down_gear_blue").Image
+                    End If
+                Case 1
+                    If InvoiceRows IsNot Nothing Then
+                        Return ImageLoader.Instance.GetImageInfo("arrow_up_green").Image
+                    ElseIf StorageOutRowsInRows IsNot Nothing Then
+                        Return ImageLoader.Instance.GetImageInfo("arrow_up_gear_green").Image
+                    End If
+                Case Else
+                    Return Nothing
+            End Select
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.Designer.vb

@@ -0,0 +1,195 @@
+Partial Class StorageDateVC
+
+	<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.aGenerateStorageDate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aGenerateStorageDateClearingPrice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aGenerateStorageDateClearingPrice_Products = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aStorageDateClearingPrice_ViewAttachments = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aStorageDateClearingPrice_DateAndValueReCalculate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aStorageDateClearingPrice_GeneterateDate2Date = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aStorageDateClearingPrice_SetSIRPrice = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aSetBonusHUF = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aGenerateStorageDate
+        '
+        Me.aGenerateStorageDate.Caption = "aGenerate Storage Date"
+        Me.aGenerateStorageDate.ConfirmationMessage = "Are you sure ?"
+        Me.aGenerateStorageDate.Id = "aGenerateStorageDate"
+        Me.aGenerateStorageDate.ImageName = Nothing
+        Me.aGenerateStorageDate.Shortcut = Nothing
+        Me.aGenerateStorageDate.Tag = Nothing
+        Me.aGenerateStorageDate.TargetObjectsCriteria = Nothing
+        Me.aGenerateStorageDate.TargetObjectType = GetType(Nuvolar.[Module].StorageDate)
+        Me.aGenerateStorageDate.TargetViewId = Nothing
+        Me.aGenerateStorageDate.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aGenerateStorageDate.ToolTip = Nothing
+        Me.aGenerateStorageDate.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aGenerateStorageDateClearingPrice
+        '
+        Me.aGenerateStorageDateClearingPrice.Caption = "aGenerate Storage Date Clearing Price"
+        Me.aGenerateStorageDateClearingPrice.ConfirmationMessage = "Are you sure ?"
+        Me.aGenerateStorageDateClearingPrice.Id = "aGenerateStorageDateClearingPrice"
+        Me.aGenerateStorageDateClearingPrice.ImageName = Nothing
+        Me.aGenerateStorageDateClearingPrice.Shortcut = Nothing
+        Me.aGenerateStorageDateClearingPrice.Tag = Nothing
+        Me.aGenerateStorageDateClearingPrice.TargetObjectsCriteria = Nothing
+        Me.aGenerateStorageDateClearingPrice.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
+        Me.aGenerateStorageDateClearingPrice.TargetViewId = Nothing
+        Me.aGenerateStorageDateClearingPrice.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aGenerateStorageDateClearingPrice.ToolTip = Nothing
+        Me.aGenerateStorageDateClearingPrice.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aGenerateStorageDateClearingPrice_Products
+        '
+        Me.aGenerateStorageDateClearingPrice_Products.AcceptButtonCaption = Nothing
+        Me.aGenerateStorageDateClearingPrice_Products.CancelButtonCaption = Nothing
+        Me.aGenerateStorageDateClearingPrice_Products.Caption = "aGenerateStorageDateClearingPrice_Products"
+        Me.aGenerateStorageDateClearingPrice_Products.ConfirmationMessage = Nothing
+        Me.aGenerateStorageDateClearingPrice_Products.Id = "aGenerateStorageDateClearingPrice_Products"
+        Me.aGenerateStorageDateClearingPrice_Products.ImageName = Nothing
+        Me.aGenerateStorageDateClearingPrice_Products.Shortcut = Nothing
+        Me.aGenerateStorageDateClearingPrice_Products.Tag = Nothing
+        Me.aGenerateStorageDateClearingPrice_Products.TargetObjectsCriteria = Nothing
+        Me.aGenerateStorageDateClearingPrice_Products.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
+        Me.aGenerateStorageDateClearingPrice_Products.TargetViewId = Nothing
+        Me.aGenerateStorageDateClearingPrice_Products.ToolTip = Nothing
+        Me.aGenerateStorageDateClearingPrice_Products.TypeOfView = Nothing
+        '
+        'aStorageDateClearingPrice_ViewAttachments
+        '
+        Me.aStorageDateClearingPrice_ViewAttachments.Caption = "aStorageDateClearingPrice_ViewAttachments"
+        Me.aStorageDateClearingPrice_ViewAttachments.ConfirmationMessage = Nothing
+        Me.aStorageDateClearingPrice_ViewAttachments.Id = "aStorageDateClearingPrice_ViewAttachments"
+        Me.aStorageDateClearingPrice_ViewAttachments.ImageName = Nothing
+        Me.aStorageDateClearingPrice_ViewAttachments.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aStorageDateClearingPrice_ViewAttachments.Shortcut = Nothing
+        Me.aStorageDateClearingPrice_ViewAttachments.Tag = Nothing
+        Me.aStorageDateClearingPrice_ViewAttachments.TargetObjectsCriteria = Nothing
+        Me.aStorageDateClearingPrice_ViewAttachments.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
+        Me.aStorageDateClearingPrice_ViewAttachments.TargetViewId = Nothing
+        Me.aStorageDateClearingPrice_ViewAttachments.ToolTip = Nothing
+        Me.aStorageDateClearingPrice_ViewAttachments.TypeOfView = Nothing
+        '
+        'aStorageDateClearingPrice_DateAndValueReCalculate
+        '
+        Me.aStorageDateClearingPrice_DateAndValueReCalculate.Caption = "aStorageDateClearingPrice_DateAndValueReCalculate"
+        Me.aStorageDateClearingPrice_DateAndValueReCalculate.ConfirmationMessage = Nothing
+        Me.aStorageDateClearingPrice_DateAndValueReCalculate.Id = "aStorageDateClearingPrice_DateAndValueReCalculate"
+        Me.aStorageDateClearingPrice_DateAndValueReCalculate.ImageName = Nothing
+        Me.aStorageDateClearingPrice_DateAndValueReCalculate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aStorageDateClearingPrice_DateAndValueReCalculate.Shortcut = Nothing
+        Me.aStorageDateClearingPrice_DateAndValueReCalculate.Tag = Nothing
+        Me.aStorageDateClearingPrice_DateAndValueReCalculate.TargetObjectsCriteria = Nothing
+        Me.aStorageDateClearingPrice_DateAndValueReCalculate.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
+        Me.aStorageDateClearingPrice_DateAndValueReCalculate.TargetViewId = Nothing
+        Me.aStorageDateClearingPrice_DateAndValueReCalculate.ToolTip = Nothing
+        Me.aStorageDateClearingPrice_DateAndValueReCalculate.TypeOfView = Nothing
+        '
+        'aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows
+        '
+        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.AcceptButtonCaption = Nothing
+        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.CancelButtonCaption = Nothing
+        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Caption = "aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows"
+        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.ConfirmationMessage = Nothing
+        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Id = "aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows"
+        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.ImageName = Nothing
+        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Shortcut = Nothing
+        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Tag = Nothing
+        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TargetObjectsCriteria = "IsNull(InvoiceRows)=False"
+        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
+        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TargetViewId = Nothing
+        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.ToolTip = Nothing
+        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TypeOfView = Nothing
+        '
+        'aStorageDateClearingPrice_GeneterateDate2Date
+        '
+        Me.aStorageDateClearingPrice_GeneterateDate2Date.AcceptButtonCaption = Nothing
+        Me.aStorageDateClearingPrice_GeneterateDate2Date.CancelButtonCaption = Nothing
+        Me.aStorageDateClearingPrice_GeneterateDate2Date.Caption = "aStorageDateClearingPrice_GeneterateDate2Date"
+        Me.aStorageDateClearingPrice_GeneterateDate2Date.ConfirmationMessage = Nothing
+        Me.aStorageDateClearingPrice_GeneterateDate2Date.Id = "aStorageDateClearingPrice_GeneterateDate2Date"
+        Me.aStorageDateClearingPrice_GeneterateDate2Date.ImageName = Nothing
+        Me.aStorageDateClearingPrice_GeneterateDate2Date.Shortcut = Nothing
+        Me.aStorageDateClearingPrice_GeneterateDate2Date.Tag = Nothing
+        Me.aStorageDateClearingPrice_GeneterateDate2Date.TargetObjectsCriteria = Nothing
+        Me.aStorageDateClearingPrice_GeneterateDate2Date.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
+        Me.aStorageDateClearingPrice_GeneterateDate2Date.TargetViewId = Nothing
+        Me.aStorageDateClearingPrice_GeneterateDate2Date.ToolTip = Nothing
+        Me.aStorageDateClearingPrice_GeneterateDate2Date.TypeOfView = Nothing
+        '
+        'aStorageDateClearingPrice_SetSIRPrice
+        '
+        Me.aStorageDateClearingPrice_SetSIRPrice.AcceptButtonCaption = Nothing
+        Me.aStorageDateClearingPrice_SetSIRPrice.CancelButtonCaption = Nothing
+        Me.aStorageDateClearingPrice_SetSIRPrice.Caption = "aStorageDateClearingPrice_SetSIRPrice"
+        Me.aStorageDateClearingPrice_SetSIRPrice.ConfirmationMessage = Nothing
+        Me.aStorageDateClearingPrice_SetSIRPrice.Id = "aStorageDateClearingPrice_SetSIRPrice"
+        Me.aStorageDateClearingPrice_SetSIRPrice.ImageName = Nothing
+        Me.aStorageDateClearingPrice_SetSIRPrice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aStorageDateClearingPrice_SetSIRPrice.Shortcut = Nothing
+        Me.aStorageDateClearingPrice_SetSIRPrice.Tag = Nothing
+        Me.aStorageDateClearingPrice_SetSIRPrice.TargetObjectsCriteria = "IsNull(StorageInRows)=False"
+        Me.aStorageDateClearingPrice_SetSIRPrice.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
+        Me.aStorageDateClearingPrice_SetSIRPrice.TargetViewId = Nothing
+        Me.aStorageDateClearingPrice_SetSIRPrice.ToolTip = Nothing
+        Me.aStorageDateClearingPrice_SetSIRPrice.TypeOfView = Nothing
+        '
+        'aSetBonusHUF
+        '
+        Me.aSetBonusHUF.AcceptButtonCaption = Nothing
+        Me.aSetBonusHUF.CancelButtonCaption = Nothing
+        Me.aSetBonusHUF.Caption = "aSet Bonus HUF"
+        Me.aSetBonusHUF.ConfirmationMessage = Nothing
+        Me.aSetBonusHUF.Id = "aSetBonusHUF"
+        Me.aSetBonusHUF.ImageName = Nothing
+        Me.aSetBonusHUF.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aSetBonusHUF.Shortcut = Nothing
+        Me.aSetBonusHUF.Tag = Nothing
+        Me.aSetBonusHUF.TargetObjectsCriteria = Nothing
+        Me.aSetBonusHUF.TargetObjectType = GetType(Nuvolar.[Module].DeliveryNoteInRRFC)
+        Me.aSetBonusHUF.TargetViewId = Nothing
+        Me.aSetBonusHUF.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aSetBonusHUF.ToolTip = Nothing
+        Me.aSetBonusHUF.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+
+    End Sub
+    Friend WithEvents aGenerateStorageDateClearingPrice As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aGenerateStorageDateClearingPrice_Products As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aGenerateStorageDate As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aStorageDateClearingPrice_ViewAttachments As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aStorageDateClearingPrice_DateAndValueReCalculate As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aStorageDateClearingPrice_GeneterateDate2Date As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aStorageDateClearingPrice_SetSIRPrice As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aSetBonusHUF As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.resx

@@ -0,0 +1,150 @@
+<?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="aGenerateStorageDate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aGenerateStorageDateClearingPrice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aGenerateStorageDateClearingPrice_Products.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aStorageDateClearingPrice_ViewAttachments.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aStorageDateClearingPrice_DateAndValueReCalculate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 290</value>
+  </metadata>
+  <metadata name="aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aStorageDateClearingPrice_GeneterateDate2Date.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aStorageDateClearingPrice_SetSIRPrice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>430, 47</value>
+  </metadata>
+  <metadata name="aSetBonusHUF.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>361, 290</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/StorageTransactions/Storage/StorageDateVC.vb

@@ -0,0 +1,736 @@
+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.Xpo.DB
+
+Public Class StorageDateVC
+    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()
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+
+    Private Sub aGenerateStorageDateClearingPrice_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGenerateStorageDateClearingPrice.Execute
+        Try
+            GLOBAL_HAS_Audit = False
+
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
+            Dim _StorageDateClearingPrice As StorageDateClearingPrice
+            Dim _Products As Products
+            Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_uow)
+
+            Dim _Products_Collection As New XPCollection(Of Products)(_uow)
+            RaiseEvent InitWork(1, 1, _Products_Collection.Count)
+            For Each _Products In _Products_Collection
+                RaiseEvent DoWork()
+
+                Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice)(_uow, CriteriaOperator.Parse("Products=?", _Products))
+                _uow.Delete(_StorageDateClearingPrice_Collection)
+                _uow.CommitChanges()
+
+
+                '// Igazolt szállítólevél sorok
+                Dim _DeliveryNoteInRRFC_Collection As XPCollection(Of DeliveryNoteInRRFC)
+                Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC
+                _DeliveryNoteInRRFC_Collection = New XPCollection(Of DeliveryNoteInRRFC)(_uow,
+                                     CriteriaOperator.Parse("DeliveryNoteInRows.Products=?", _Products))
+
+                _DeliveryNoteInRRFC_Collection.Sorting.Add(New SortProperty("GetDate(RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution)", DB.SortingDirection.Ascending))
+
+                For Each _DeliveryNoteInRRFC In _DeliveryNoteInRRFC_Collection
+                    _StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
+                    _StorageDateClearingPrice.RowIndex = 0
+                    _StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
+                    _StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
+                    _StorageDateClearingPrice.DeliveryNoteInRRFC = _DeliveryNoteInRRFC
+                    _StorageDateClearingPrice.Products = _DeliveryNoteInRRFC.DeliveryNoteInRows.Products
+                    _StorageDateClearingPrice.QTT_In = _DeliveryNoteInRRFC.QTT_Controlled
+                    _uow.CommitChanges()
+                Next
+
+                'Kimenõ számla sorok
+                Dim _InvoiceRows As InvoiceRows
+                Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow,
+                                    CriteriaOperator.Parse("isnull(InvoiceHeader.GCRecord)=True and " +
+                                                           "InvoiceHeader.IsEditable=False and " +
+                                                           "InvoiceHeader.IsStorno=False and " +
+                                                           "InvoiceHeader.DocumentNumber !='' and " +
+                                                           "OrderInRows.Products.Oid=?", _Products.Oid))
+
+                _InvoiceRows_Collection.Sorting.Add(New SortProperty("GetDate(InvoiceHeader.DateExecution)", DB.SortingDirection.Ascending))
+
+                For Each _InvoiceRows In _InvoiceRows_Collection
+                    _StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
+                    _StorageDateClearingPrice.RowIndex = 1
+                    _StorageDateClearingPrice.CustomersFrom = _InvoiceRows.InvoiceHeader.CustomersFrom
+                    _StorageDateClearingPrice.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution.Date
+                    _StorageDateClearingPrice.InvoiceRows = _InvoiceRows
+                    _StorageDateClearingPrice.Products = _InvoiceRows.OrderInRows.Products
+                    _StorageDateClearingPrice.QTT_Out = _InvoiceRows.QTT
+                    _uow.CommitChanges()
+                Next
+
+
+                '// Gyártásba kiadott tételek kitárolás !
+                Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_uow, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.StorageMoveType.MoveType in (5,3,4) " + _
+                                                                            "AND StorageOutRows.StorageOutHeader.IsEditable = False AND StorageOutRows.StorageOutHeader.DocumentNumber !='' and StorageOutRows.Products.Oid=?", _Products.Oid))
+
+                For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection
+                    _StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
+                    _StorageDateClearingPrice.RowIndex = 1
+                    _StorageDateClearingPrice.CustomersFrom = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CustomersFrom
+                    _StorageDateClearingPrice.DateExecution = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate.Date
+                    _StorageDateClearingPrice.Products = _StorageOutRowsInRows.StorageOutRows.Products
+                    _StorageDateClearingPrice.QTT_Out = _StorageOutRowsInRows.QTT
+                    _StorageDateClearingPrice.StorageOutRowsInRows = _StorageOutRowsInRows
+                    _uow.CommitChanges()
+                Next
+
+                '// Gyártásból bevett tételek + vevõi jóváírásból bevétel  betárolás !!
+                Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_uow, CriteriaOperator.Parse("StorageInHeader.StorageMoveType.MoveType in (5,3) " + _
+                                                                                                    "AND StorageInHeader.IsEditable = False AND StorageInHeader.DocumentNumber !='' and Products.Oid=?", _Products.Oid))
+
+                For Each _StorageInRows As StorageInRows In _StorageInRows_Collection
+                    _StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
+                    _StorageDateClearingPrice.RowIndex = 0
+                    _StorageDateClearingPrice.CustomersFrom = _StorageInRows.StorageInHeader.Storage.CustomersFrom
+                    _StorageDateClearingPrice.DateExecution = _StorageInRows.StorageInHeader.CreateDate.Date
+                    _StorageDateClearingPrice.StorageInRows = _StorageInRows
+                    _StorageDateClearingPrice.Products = _StorageInRows.Products
+                    _StorageDateClearingPrice.QTT_In = _StorageInRows.QTT
+                    _uow.CommitChanges()
+                Next
+
+
+                _uow.CommitChanges()
+
+                For Each _CustomersFrom As CustomersFrom In _CustomersFrom_Collection
+                    UpdateStorageDateClearingPrice(_Products, _CustomersFrom, False)
+                Next
+                _uow.CommitChanges()
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        Finally
+            GLOBAL_HAS_Audit = True
+            RaiseEvent FinalWork()
+        End Try
+
+    End Sub
+    Private Sub aGenerateStorageDateClearingPrice_Products_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGenerateStorageDateClearingPrice_Products.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _CS As New CollectionSource(_onew, GetType(Products))
+        Dim _StorageDateClearingPrice As StorageDateClearingPrice
+        Dim _SQL As String = ""
+
+        For Each _StorageDateClearingPrice In View.SelectedObjects
+            If _SQL = "" Then
+                _SQL = " Oid in ('" & _StorageDateClearingPrice.Products.Oid.ToString & "'"
+            Else
+                _SQL += ",'" & _StorageDateClearingPrice.Products.Oid.ToString & "'"
+            End If
+        Next
+        If _SQL <> "" Then
+            _SQL += ")"
+            _CS.BeginUpdateCriteria()
+            _CS.Criteria.Clear()
+            _CS.Criteria("ByProducts") = CriteriaOperator.Parse(_SQL)
+            _CS.EndUpdateCriteria()
+        End If
+
+        e.View = Application.CreateListView("Products_ListView_Find", _CS, True)
+    End Sub
+    Private Sub aGenerateStorageDateClearingPrice_Products_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGenerateStorageDateClearingPrice_Products.Execute
+        Try
+            GLOBAL_HAS_Audit = False
+
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
+            Dim _StorageDateClearingPrice As StorageDateClearingPrice
+            Dim _Products As Products
+            Dim _SQL As String = ""
+            Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_uow)
+
+            RaiseEvent InitWork(1, 1, e.PopupWindow.View.SelectedObjects.Count)
+            For Each _Products In e.PopupWindow.View.SelectedObjects
+                RaiseEvent DoWork()
+
+                Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice)(_uow, CriteriaOperator.Parse("Products.Oid=?", _Products.Oid))
+                _uow.Delete(_StorageDateClearingPrice_Collection)
+                _uow.CommitChanges()
+                Dim _DeliveryNoteInRRFC_Collection As XPCollection(Of DeliveryNoteInRRFC)
+                Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC
+                _DeliveryNoteInRRFC_Collection = New XPCollection(Of DeliveryNoteInRRFC)(_uow,
+                                     CriteriaOperator.Parse("DeliveryNoteInRows.Products.Oid=?", _Products.Oid))
+
+                _DeliveryNoteInRRFC_Collection.Sorting.Add(New SortProperty("GetDate(RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution)", DB.SortingDirection.Ascending))
+
+                For Each _DeliveryNoteInRRFC In _DeliveryNoteInRRFC_Collection
+                    _StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
+                    _StorageDateClearingPrice.RowIndex = 0
+                    _StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
+                    _StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
+                    _StorageDateClearingPrice.DeliveryNoteInRRFC = _DeliveryNoteInRRFC
+                    _StorageDateClearingPrice.Products = _DeliveryNoteInRRFC.DeliveryNoteInRows.Products
+                    _StorageDateClearingPrice.QTT_In = _DeliveryNoteInRRFC.QTT_Controlled
+                Next
+
+                Dim _InvoiceRows As InvoiceRows
+                Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow,
+                                    CriteriaOperator.Parse("isnull(InvoiceHeader.GCRecord)=True and " +
+                                                           "InvoiceHeader.IsEditable=False and " +
+                                                           "InvoiceHeader.IsStorno=False and " +
+                                                           "InvoiceHeader.DocumentNumber !='' and " +
+                                                           "OrderInRows.Products.Oid=?", _Products.Oid))
+
+                _InvoiceRows_Collection.Sorting.Add(New SortProperty("GetDate(InvoiceHeader.DateExecution)", DB.SortingDirection.Ascending))
+
+                For Each _InvoiceRows In _InvoiceRows_Collection
+                    _StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
+                    _StorageDateClearingPrice.RowIndex = 1
+                    _StorageDateClearingPrice.CustomersFrom = _InvoiceRows.InvoiceHeader.CustomersFrom
+                    _StorageDateClearingPrice.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution.Date
+                    _StorageDateClearingPrice.InvoiceRows = _InvoiceRows
+                    _StorageDateClearingPrice.Products = _InvoiceRows.OrderInRows.Products
+                    _StorageDateClearingPrice.QTT_Out = _InvoiceRows.QTT
+                Next
+
+
+                '// Gyártásba kiadott tételek kitárolás !
+                Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_uow, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.StorageMoveType.MoveType in (5,3,4) " + _
+                                                                            "AND StorageOutRows.StorageOutHeader.IsEditable = False AND StorageOutRows.StorageOutHeader.DocumentNumber !='' and StorageOutRows.Products.Oid=?", _Products.Oid))
+
+                For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection
+                    _StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
+                    _StorageDateClearingPrice.RowIndex = 1
+                    _StorageDateClearingPrice.CustomersFrom = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CustomersFrom
+                    _StorageDateClearingPrice.DateExecution = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate.Date
+                    _StorageDateClearingPrice.Products = _StorageOutRowsInRows.StorageOutRows.Products
+                    _StorageDateClearingPrice.QTT_Out = _StorageOutRowsInRows.QTT
+                    _StorageDateClearingPrice.StorageOutRowsInRows = _StorageOutRowsInRows
+                Next
+
+                '// Gyártásból bevett tételek + vevõi jóváírásból betárolás !!
+                Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_uow, CriteriaOperator.Parse("StorageInHeader.StorageMoveType.MoveType in (5,3) " + _
+                                                                                                    "AND StorageInHeader.IsEditable = False AND StorageInHeader.DocumentNumber !='' and Products.Oid=?", _Products.Oid))
+
+                For Each _StorageInRows As StorageInRows In _StorageInRows_Collection
+                    _StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
+                    _StorageDateClearingPrice.RowIndex = 0
+                    _StorageDateClearingPrice.CustomersFrom = _StorageInRows.StorageInHeader.Storage.CustomersFrom
+                    _StorageDateClearingPrice.DateExecution = _StorageInRows.StorageInHeader.CreateDate.Date
+                    _StorageDateClearingPrice.StorageInRows = _StorageInRows
+                    _StorageDateClearingPrice.Products = _StorageInRows.Products
+                    _StorageDateClearingPrice.QTT_In = _StorageInRows.QTT
+                Next
+
+                _uow.CommitChanges()
+
+                For Each _CustomersFrom As CustomersFrom In _CustomersFrom_Collection
+                    UpdateStorageDateClearingPrice(_Products, _CustomersFrom, False)
+                Next
+
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        Finally
+            GLOBAL_HAS_Audit = True
+            RaiseEvent FinalWork()
+        End Try
+
+    End Sub
+    Private Sub aGenerateStorageDate_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGenerateStorageDate.Execute
+        Try
+            GLOBAL_HAS_Audit = False
+
+            Dim _uow As New UnitOfWork(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.DataLayer)
+            Dim _StorageDate_Collection As New XPCollection(Of StorageDate)(_uow)
+
+            _uow.Delete(_StorageDate_Collection)
+            _uow.CommitChanges()
+
+
+            Dim _Products_Collection As New XPCollection(Of Products)(_uow)
+
+            RaiseEvent InitWork(1, 1, _Products_Collection.Count)
+            For Each _Products In _Products_Collection
+                RaiseEvent DoWork()
+
+                Dim _DateArray As ArrayList = GenerateDateCollection(New Date(2013, 1, 1), GetSQLTime(_uow))
+
+                For Each _Date As Date In _DateArray
+                    Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice) _
+                            (_uow, CriteriaOperator.Parse("Products.Oid=? and GetDate(DateExecution)<=? and RowIndex=1",
+                                                          _Products.Oid, _Date))
+
+                    Dim _StorageDateClearingPrice As StorageDateClearingPrice
+                    _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending))
+                    _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("QTT_After", DB.SortingDirection.Ascending))
+
+                    If _StorageDateClearingPrice_Collection.Count <= 0 Then
+                        _StorageDateClearingPrice_Collection = New XPCollection(Of StorageDateClearingPrice) _
+                        (_uow, CriteriaOperator.Parse("Products.Oid=? and GetDate(DateExecution)<=?  and RowIndex=0",
+                                                      _Products.Oid, _Date))
+                        _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending))
+                        _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("QTT_After", DB.SortingDirection.Descending))
+                    End If
+
+                    For Each _StorageDateClearingPrice In _StorageDateClearingPrice_Collection
+                        Dim _StorageDate As New StorageDate(_uow)
+                        _StorageDate.CustomersFrom = _StorageDateClearingPrice.CustomersFrom
+                        _StorageDate.DateExecution = _Date
+                        _StorageDate.Products = _StorageDateClearingPrice.Products
+                        _StorageDate.QTT_Close = _StorageDateClearingPrice.QTT_After
+                        _StorageDate.SumAveragePriceHUF = _StorageDateClearingPrice.AveragePriceHUF_After
+                        _StorageDate.SumPriceHUF = _StorageDate.QTT_Close * _StorageDateClearingPrice.AveragePriceHUF_After
+                        _uow.CommitChanges()
+                        Exit For
+                    Next
+                Next
+
+
+                _DateArray = GenerateDateCollection(New Date(2013, 1, 1), GetSQLTime(_uow), True)
+
+                For Each _Date As Date In _DateArray
+                    Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice) _
+                            (_uow, CriteriaOperator.Parse("Products.Oid=? and GetDate(DateExecution)<=? and RowIndex=1",
+                                                          _Products.Oid, _Date))
+
+                    Dim _StorageDateClearingPrice As StorageDateClearingPrice
+                    _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending))
+                    _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("QTT_After", DB.SortingDirection.Ascending))
+
+                    If _StorageDateClearingPrice_Collection.Count <= 0 Then
+                        _StorageDateClearingPrice_Collection = New XPCollection(Of StorageDateClearingPrice) _
+                        (_uow, CriteriaOperator.Parse("Products.Oid=? and GetDate(DateExecution)<=?  and RowIndex=0",
+                                                      _Products.Oid, _Date))
+                        _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending))
+                        _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("QTT_After", DB.SortingDirection.Descending))
+                    End If
+
+                    For Each _StorageDateClearingPrice In _StorageDateClearingPrice_Collection
+                        If _uow.FindObject(Of StorageDate)(CriteriaOperator.Parse("CustomersFrom=? AND Products=? AND DateExecution=?", _StorageDateClearingPrice.CustomersFrom, _StorageDateClearingPrice.Products, _Date)) Is Nothing Then
+                            Dim _StorageDate As New StorageDate(_uow)
+                            _StorageDate.CustomersFrom = _StorageDateClearingPrice.CustomersFrom
+                            _StorageDate.DateExecution = _Date
+                            _StorageDate.Products = _StorageDateClearingPrice.Products
+                            _StorageDate.QTT_Close = _StorageDateClearingPrice.QTT_After
+                            _StorageDate.SumAveragePriceHUF = _StorageDateClearingPrice.AveragePriceHUF_After
+                            _StorageDate.SumPriceHUF = _StorageDate.QTT_Close * _StorageDateClearingPrice.AveragePriceHUF_After
+                            _uow.CommitChanges()
+                            Exit For
+                        End If
+                    Next
+                Next
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        Finally
+            GLOBAL_HAS_Audit = True
+            RaiseEvent FinalWork()
+        End Try
+    End Sub
+    Private Sub aStorageDateClearingPrice_ViewAttachments_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aStorageDateClearingPrice_ViewAttachments.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _StorageDateClearingPrice As StorageDateClearingPrice = TryCast(View.SelectedObjects(0), StorageDateClearingPrice)
+
+        If _StorageDateClearingPrice.DeliveryNoteInRRFC IsNot Nothing Then
+            ViewAttachments.ViewAttachments(_ocur, Frame, _StorageDateClearingPrice.DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom, _
+                                           _StorageDateClearingPrice.DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.Customers, _
+                                           _StorageDateClearingPrice.DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.DocumentNumber)
+
+        End If
+        If _StorageDateClearingPrice.InvoiceRows IsNot Nothing Then
+            ViewAttachments.ViewAttachments(_ocur, Frame, _StorageDateClearingPrice.InvoiceRows.InvoiceHeader.CustomersFrom, _
+                                            _StorageDateClearingPrice.InvoiceRows.InvoiceHeader.Customers, _
+                                            _StorageDateClearingPrice.InvoiceRows.InvoiceHeader.DocumentNumber)
+
+        End If
+    End Sub
+    Private Sub aStorageDateClearingPrice_DateAndValueReCalculate_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aStorageDateClearingPrice_DateAndValueReCalculate.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _StorageDateClearingPrice_Selected As StorageDateClearingPrice = TryCast(View.SelectedObjects(0), StorageDateClearingPrice)
+
+        UpdateStorageDateClearingPrice(_StorageDateClearingPrice_Selected.Products, _StorageDateClearingPrice_Selected.CustomersFrom, True)
+
+        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController).RefreshAction.DoExecute()
+    End Sub
+    Public Sub UpdateStorageDateClearingPrice_SQL(ByVal _Products As Products, _CustomersFrom As CustomersFrom, Optional _NeedLine As Boolean = True)
+        Dim _SelectedData As SelectedData = Nothing
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
+        Dim _SQL As String = ""
+
+
+        _SQL = String.Format("select [] from [StorageDateClearingPrice] Where [CustomersFrom]='{0}' and [Products]='{1}'", _CustomersFrom.Oid.ToString, _Products.Oid.ToString)
+        _SelectedData = _uow.ExecuteQuery(_SQL)
+
+        For Each row As SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
+            'Console.WriteLine(String.Format("{0}" & Constants.vbTab & "{1}", row.Values(0), row.Values(1)))
+        Next row
+    End Sub
+    Public Sub UpdateStorageDateClearingPrice(ByVal _Products As Products, _CustomersFrom As CustomersFrom, Optional _NeedLine As Boolean = True)
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _uow_update As New UnitOfWork(_onew.Session.DataLayer)
+        Dim _uow_xpcollection As New UnitOfWork(_onew.Session.DataLayer)
+        Dim _uow_nothing As New UnitOfWork(_onew.Session.DataLayer)
+
+        Dim _StorageDateClearingPrice As StorageDateClearingPrice = Nothing
+
+        Dim _SQL As String = ""
+        Dim _ItemIndex As Long = 0
+        Dim _QTT_Before As Double = 0
+        Dim _QTT_After As Double = 0
+        Dim _AveragePriceHUF_After As Double = 0
+        Dim _SumAveragePriceHUF_After As Double = 0
+
+        Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice)(_uow_xpcollection, CriteriaOperator.Parse("Products.Oid=? AND CustomersFrom.Oid=?", _
+                                                                    _Products.Oid, _CustomersFrom.Oid))
+        _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending))
+        _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
+        '  Try
+        'If _NeedLine Then RaiseEvent InitWork(1, 1, _StorageDateClearingPrice_Collection.Count)
+        'If _StorageDateClearingPrice_Collection.Count > 0 Then
+
+        For Each _StorageDateClearingPrice In _StorageDateClearingPrice_Collection
+            'If _NeedLine Then RaiseEvent DoWork()
+            _StorageDateClearingPrice = _uow_nothing.GetObjectByKey(Of StorageDateClearingPrice)(_StorageDateClearingPrice.Oid)
+
+            If _ItemIndex > 0 Then
+                _StorageDateClearingPrice.AveragePriceHUF_Before = _AveragePriceHUF_After
+                _StorageDateClearingPrice.QTT_Before = _QTT_After
+                _StorageDateClearingPrice.SumAveragePriceHUF_Before = Math.Round(_StorageDateClearingPrice.QTT_Before * _StorageDateClearingPrice.AveragePriceHUF_Before)
+
+
+                If _StorageDateClearingPrice.QTT_In <> 0 Then
+                    _QTT_After = _StorageDateClearingPrice.QTT_Before + _StorageDateClearingPrice.QTT_In
+                    If _StorageDateClearingPrice.DeliveryNoteInRRFC IsNot Nothing Then
+                        _StorageDateClearingPrice.SumAveragePriceHUF_After = _StorageDateClearingPrice.SumAveragePriceHUF_Before + (_StorageDateClearingPrice.DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount - _StorageDateClearingPrice.DeliveryNoteInRRFC.BonusHUF)
+                    ElseIf _StorageDateClearingPrice.StorageInRows IsNot Nothing Then
+                        _StorageDateClearingPrice.SumAveragePriceHUF_After = _StorageDateClearingPrice.SumAveragePriceHUF_Before + (_StorageDateClearingPrice.StorageInRows.AveragePriceInHUF * _StorageDateClearingPrice.StorageInRows.QTT)
+                    End If
+                    If _QTT_After <> 0 Then
+                        _StorageDateClearingPrice.AveragePriceHUF_After = Math.Round(_StorageDateClearingPrice.SumAveragePriceHUF_After / _QTT_After, 0, MidpointRounding.AwayFromZero)
+                    Else
+                        _StorageDateClearingPrice.AveragePriceHUF_After = 0
+                    End If
+
+                    _AveragePriceHUF_After = _StorageDateClearingPrice.AveragePriceHUF_After
+                    _SumAveragePriceHUF_After = _StorageDateClearingPrice.SumAveragePriceHUF_After
+                End If
+                If _StorageDateClearingPrice.QTT_Out <> 0 Then
+                    _QTT_After = _StorageDateClearingPrice.QTT_Before - _StorageDateClearingPrice.QTT_Out
+
+                    If _QTT_After = 0 Then
+                        _StorageDateClearingPrice.AveragePriceHUF_After = _AveragePriceHUF_After
+                        _AveragePriceHUF_After = 0
+                        _SumAveragePriceHUF_After = 0
+                    Else
+                        _StorageDateClearingPrice.AveragePriceHUF_After = _AveragePriceHUF_After
+                    End If
+
+                    _StorageDateClearingPrice.SumAveragePriceHUF_After = _StorageDateClearingPrice.AveragePriceHUF_After * _QTT_After
+                End If
+                _StorageDateClearingPrice.QTT_After = _QTT_After
+            Else
+                _StorageDateClearingPrice.QTT_Before = 0
+                If _StorageDateClearingPrice.QTT_In <> 0 Then
+                    _QTT_After = _StorageDateClearingPrice.QTT_Before + _StorageDateClearingPrice.QTT_In
+                End If
+                If _StorageDateClearingPrice.QTT_Out <> 0 Then
+                    _QTT_After = _StorageDateClearingPrice.QTT_Before - _StorageDateClearingPrice.QTT_Out
+                End If
+                _StorageDateClearingPrice.QTT_After = _QTT_After
+
+                _StorageDateClearingPrice.AveragePriceHUF_Before = 0
+                _StorageDateClearingPrice.SumAveragePriceHUF_Before = 0
+                '// Itt kell 2.
+                If _StorageDateClearingPrice.DeliveryNoteInRRFC IsNot Nothing Then
+                    _SumAveragePriceHUF_After = (_StorageDateClearingPrice.DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount - _StorageDateClearingPrice.DeliveryNoteInRRFC.BonusHUF)
+                    If _StorageDateClearingPrice.QTT_After <> 0 Then
+                        _AveragePriceHUF_After = _SumAveragePriceHUF_After / _StorageDateClearingPrice.QTT_After
+                    Else
+                        _AveragePriceHUF_After = 0
+                    End If
+
+
+                    _StorageDateClearingPrice.SumAveragePriceHUF_After = _SumAveragePriceHUF_After
+                    _StorageDateClearingPrice.AveragePriceHUF_After = _AveragePriceHUF_After
+
+                ElseIf _StorageDateClearingPrice.StorageInRows IsNot Nothing Then
+                    _SumAveragePriceHUF_After = _StorageDateClearingPrice.StorageInRows.AveragePriceInHUF * _StorageDateClearingPrice.StorageInRows.QTT
+                    If _StorageDateClearingPrice.QTT_After <> 0 Then
+                        _AveragePriceHUF_After = _SumAveragePriceHUF_After / _StorageDateClearingPrice.QTT_After
+                    Else
+                        _AveragePriceHUF_After = 0
+                    End If
+
+
+                    _StorageDateClearingPrice.SumAveragePriceHUF_After = _SumAveragePriceHUF_After
+                    _StorageDateClearingPrice.AveragePriceHUF_After = _AveragePriceHUF_After
+                Else
+                    _StorageDateClearingPrice.SumAveragePriceHUF_After = 0
+                    _StorageDateClearingPrice.AveragePriceHUF_After = 0
+
+                    _SumAveragePriceHUF_After = 0
+                    _AveragePriceHUF_After = 0
+                End If
+
+            End If
+            _StorageDateClearingPrice.MainIndex = _ItemIndex
+
+            _ItemIndex += 1
+
+            Select Case GLOBAL_SQLType
+                Case eSQLType.MSSQL
+                    _SQL = "update StorageDateClearingPrice set "
+                    _SQL = String.Format("{0} QTT_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_Before.ToString))
+                    _SQL = String.Format("{0} QTT_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_After.ToString))
+                    _SQL = String.Format("{0} AveragePriceHUF_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_Before.ToString))
+                    _SQL = String.Format("{0} SumAveragePriceHUF_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_Before.ToString))
+                    _SQL = String.Format("{0} AveragePriceHUF_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_After.ToString))
+                    _SQL = String.Format("{0} SumAveragePriceHUF_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_After.ToString))
+                    _SQL = String.Format("{0} MainIndex={1}", _SQL, SQLNum(_StorageDateClearingPrice.MainIndex.ToString))
+                    _SQL += String.Format(" Where Oid='{0}'", _StorageDateClearingPrice.Oid)
+                Case eSQLType.MySQL
+                    _SQL = "update StorageDateClearingPrice set "
+                    _SQL = String.Format("{0} QTT_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_Before.ToString))
+                    _SQL = String.Format("{0} QTT_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_After.ToString))
+                    _SQL = String.Format("{0} AveragePriceHUF_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_Before.ToString))
+                    _SQL = String.Format("{0} SumAveragePriceHUF_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_Before.ToString))
+                    _SQL = String.Format("{0} AveragePriceHUF_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_After.ToString))
+                    _SQL = String.Format("{0} SumAveragePriceHUF_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_After.ToString))
+                    _SQL = String.Format("{0} MainIndex={1}", _SQL, SQLNum(_StorageDateClearingPrice.MainIndex.ToString))
+                    _SQL += String.Format(" Where Oid='{0}'", _StorageDateClearingPrice.Oid)
+                Case eSQLType.PostgreSQL
+                    _SQL = "update ""StorageDateClearingPrice"" set "
+                    _SQL = String.Format("{0} ""QTT_Before""={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_Before.ToString))
+                    _SQL = String.Format("{0} ""QTT_After""={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_After.ToString))
+                    _SQL = String.Format("{0} ""AveragePriceHUF_Before""={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_Before.ToString))
+                    _SQL = String.Format("{0} ""SumAveragePriceHUF_Before""={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_Before.ToString))
+                    _SQL = String.Format("{0} ""AveragePriceHUF_After""={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_After.ToString))
+                    _SQL = String.Format("{0} ""SumAveragePriceHUF_After""={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_After.ToString))
+                    _SQL = String.Format("{0} ""MainIndex""={1}", _SQL, SQLNum(_StorageDateClearingPrice.MainIndex.ToString))
+                    _SQL += String.Format(" Where ""Oid""='{0}'", _StorageDateClearingPrice.Oid)
+            End Select
+            _uow_update.ExecuteNonQuery(_SQL)
+
+            If _StorageDateClearingPrice.InvoiceRows IsNot Nothing Then
+                _SQL = ""
+                Select Case GLOBAL_SQLType
+                    Case eSQLType.MSSQL
+                        _SQL = String.Format("update InvoiceRows set SumAveragePriceHUF=QTT*{0},", SQLNum(Math.Round(_StorageDateClearingPrice.AveragePriceHUF_After, 0, MidpointRounding.AwayFromZero).ToString))
+                        _SQL = _SQL & " SumGrossMarginHUF=SumPriceHUF-SumAveragePriceHUF "
+                        _SQL += String.Format(" Where Oid='{0}'", _StorageDateClearingPrice.InvoiceRows.Oid)
+                    Case eSQLType.MySQL
+                        _SQL = String.Format("update InvoiceRows set SumAveragePriceHUF=QTT*{0},", SQLNum(Math.Round(_StorageDateClearingPrice.AveragePriceHUF_After, 0, MidpointRounding.AwayFromZero).ToString))
+                        _SQL = _SQL & " SumGrossMarginHUF=SumPriceHUF-SumAveragePriceHUF "
+                        _SQL += String.Format(" Where Oid='{0}'", _StorageDateClearingPrice.InvoiceRows.Oid)
+                    Case eSQLType.PostgreSQL
+                        _SQL = String.Format("update ""InvoiceRows"" set ""SumAveragePriceHUF""=""QTT""*{0},", SQLNum(Math.Round(_StorageDateClearingPrice.AveragePriceHUF_After, 0, MidpointRounding.AwayFromZero).ToString))
+                        _SQL = _SQL & " ""SumGrossMarginHUF""=""SumPriceHUF""-""SumAveragePriceHUF"" "
+                        _SQL += String.Format(" Where ""Oid""='{0}'", _StorageDateClearingPrice.InvoiceRows.Oid)
+                End Select
+                _uow_update.ExecuteNonQuery(_SQL)
+            End If
+        Next
+        'End If
+        '_uow.CommitChanges()
+        'Catch ex As Exception
+        '    MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
+        'Finally
+        'If _NeedLine Then RaiseEvent FinalWork
+        'End Try
+    End Sub
+    Private Sub aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _StorageDateClearingPrice As StorageDateClearingPrice = _onew.GetObject(TryCast(View.SelectedObjects(0), StorageDateClearingPrice))
+
+        If _StorageDateClearingPrice IsNot Nothing Then
+            If _StorageDateClearingPrice.InvoiceRows.OrderInRows IsNot Nothing Then
+                Dim _ShowStorageOutDeliveryOutRows_PopUp As New ShowStorageOutDeliveryOutRows_PopUp(_onew.Session)
+                _ShowStorageOutDeliveryOutRows_PopUp.OrderInRows = _StorageDateClearingPrice.InvoiceRows.OrderInRows
+
+                e.View = Application.CreateDetailView(_onew, "ShowStorageOutDeliveryOutRows_PopUp_DetailView", False, _ShowStorageOutDeliveryOutRows_PopUp)
+            End If
+        End If
+    End Sub
+    Private Sub aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Execute
+    End Sub
+    Private Sub aStorageDateClearingPrice_GeneterateDate2Date_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aStorageDateClearingPrice_GeneterateDate2Date.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _StorageDateClearingPrice_GeneterateDate2Date_PopUp As New StorageDateClearingPrice_GeneterateDate2Date_PopUp(_onew.Session)
+
+        e.View = Application.CreateDetailView(_onew, "StorageDateClearingPrice_GeneterateDate2Date_PopUp_DetailView", False, _StorageDateClearingPrice_GeneterateDate2Date_PopUp)
+    End Sub
+    Private Sub aStorageDateClearingPrice_GeneterateDate2Date_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aStorageDateClearingPrice_GeneterateDate2Date.Execute
+        Try
+            GLOBAL_HAS_Audit = False
+
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
+            Dim _StorageDateClearingPrice As StorageDateClearingPrice
+            Dim _Products As Products
+            Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_uow)
+            Dim _StartDate As Date = TryCast(e.PopupWindow.View.SelectedObjects(0), StorageDateClearingPrice_GeneterateDate2Date_PopUp).StartDate
+            Dim _EndDate As Date = TryCast(e.PopupWindow.View.SelectedObjects(0), StorageDateClearingPrice_GeneterateDate2Date_PopUp).EndDate
+
+            Dim _Products_Collection As New XPCollection(Of Products)(_uow)
+            RaiseEvent InitWork(1, 1, _Products_Collection.Count)
+            For Each _Products In _Products_Collection
+                RaiseEvent DoWork()
+
+                Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice)(_uow, CriteriaOperator.Parse("Products=? AND DateExecution>=? AND DateExecution<=?", _
+                                                                                                                                      _Products, _StartDate, _EndDate))
+                _uow.Delete(_StorageDateClearingPrice_Collection)
+                _uow.CommitChanges()
+
+                Dim _DeliveryNoteInRRFC_Collection As XPCollection(Of DeliveryNoteInRRFC)
+                Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC
+                _DeliveryNoteInRRFC_Collection = New XPCollection(Of DeliveryNoteInRRFC)(_uow,
+                                     CriteriaOperator.Parse("DeliveryNoteInRows.Products=? AND RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution>=? AND RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution<=?", _
+                                                                                                        _Products, _StartDate, _EndDate))
+
+                _DeliveryNoteInRRFC_Collection.Sorting.Add(New SortProperty("GetDate(RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution)", DB.SortingDirection.Ascending))
+
+                For Each _DeliveryNoteInRRFC In _DeliveryNoteInRRFC_Collection
+                    _StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
+                    _StorageDateClearingPrice.RowIndex = 0
+                    _StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
+                    _StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
+                    _StorageDateClearingPrice.DeliveryNoteInRRFC = _DeliveryNoteInRRFC
+                    _StorageDateClearingPrice.Products = _DeliveryNoteInRRFC.DeliveryNoteInRows.Products
+                    _StorageDateClearingPrice.QTT_In = _DeliveryNoteInRRFC.QTT_Controlled
+                Next
+
+                Dim _InvoiceRows As InvoiceRows
+                Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow,
+                                    CriteriaOperator.Parse("isnull(InvoiceHeader.GCRecord)=True and " +
+                                                           "InvoiceHeader.IsEditable=False and " +
+                                                            "InvoiceHeader.IsStorno=False and " +
+                                                           "InvoiceHeader.DocumentNumber !='' and " +
+                                                           "OrderInRows.Products.Oid=? AND InvoiceHeader.DateExecution>=? AND InvoiceHeader.DateExecution<=?", _Products.Oid, _StartDate, _EndDate))
+
+                _InvoiceRows_Collection.Sorting.Add(New SortProperty("GetDate(InvoiceHeader.DateExecution)", DB.SortingDirection.Ascending))
+
+                For Each _InvoiceRows In _InvoiceRows_Collection
+                    _StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
+                    _StorageDateClearingPrice.RowIndex = 1
+                    _StorageDateClearingPrice.CustomersFrom = _InvoiceRows.InvoiceHeader.CustomersFrom
+                    _StorageDateClearingPrice.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution.Date
+                    _StorageDateClearingPrice.InvoiceRows = _InvoiceRows
+                    _StorageDateClearingPrice.Products = _InvoiceRows.OrderInRows.Products
+                    _StorageDateClearingPrice.QTT_Out = _InvoiceRows.QTT
+                Next
+
+                '// Gyártásba kiadott tételek kitárolás !
+                Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_uow, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.StorageMoveType.MoveType in (5,3,4) " + _
+                                                                            "AND StorageOutRows.StorageOutHeader.IsEditable = False AND StorageOutRows.StorageOutHeader.DocumentNumber !='' and StorageOutRows.Products.Oid=? " + _
+                                                                            "AND StorageOutRows.StorageOutHeader.CreateDate>=? AND StorageOutRows.StorageOutHeader.CreateDate<=?", _Products.Oid, _StartDate, _EndDate))
+
+                For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection
+                    _StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
+                    _StorageDateClearingPrice.RowIndex = 1
+                    _StorageDateClearingPrice.CustomersFrom = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CustomersFrom
+                    _StorageDateClearingPrice.DateExecution = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate.Date
+                    _StorageDateClearingPrice.Products = _StorageOutRowsInRows.StorageOutRows.Products
+                    _StorageDateClearingPrice.QTT_Out = _StorageOutRowsInRows.QTT
+                    _StorageDateClearingPrice.StorageOutRowsInRows = _StorageOutRowsInRows
+                Next
+
+                '// Gyártásból bevett tételek + vevõi jóváírásból betárolás !!
+                Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_uow, CriteriaOperator.Parse("StorageInHeader.StorageMoveType.MoveType in (5,3) " + _
+                                                                                                    "AND StorageInHeader.IsEditable = False AND StorageInHeader.DocumentNumber !='' and Products.Oid=?" + _
+                                                                                                    " and StorageInHeader.CreateDate>=? AND StorageInHeader.CreateDate<=?", _Products.Oid, _StartDate, _EndDate))
+
+                For Each _StorageInRows As StorageInRows In _StorageInRows_Collection
+                    _StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
+                    _StorageDateClearingPrice.RowIndex = 0
+                    _StorageDateClearingPrice.CustomersFrom = _StorageInRows.StorageInHeader.Storage.CustomersFrom
+                    _StorageDateClearingPrice.DateExecution = _StorageInRows.StorageInHeader.CreateDate.Date
+                    _StorageDateClearingPrice.StorageInRows = _StorageInRows
+                    _StorageDateClearingPrice.Products = _StorageInRows.Products
+                    _StorageDateClearingPrice.QTT_In = _StorageInRows.QTT
+                Next
+
+                _uow.CommitChanges()
+
+                For Each _CustomersFrom As CustomersFrom In _CustomersFrom_Collection
+                    UpdateStorageDateClearingPrice(_Products, _CustomersFrom, False)
+                Next
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        Finally
+            GLOBAL_HAS_Audit = True
+            RaiseEvent FinalWork()
+        End Try
+    End Sub
+
+    Private Sub aStorageDateClearingPrice_SetSIRPrice_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aStorageDateClearingPrice_SetSIRPrice.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _SetSIRPrice_PopUp As New SetSIRPrice_PopUp(_onew.Session)
+
+        e.View = Application.CreateDetailView(_onew, "SetSIRPrice_PopUp_DetailView", False, _SetSIRPrice_PopUp)
+    End Sub
+    Private Sub aStorageDateClearingPrice_SetSIRPrice_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aStorageDateClearingPrice_SetSIRPrice.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _StorageDateClearingPrice As StorageDateClearingPrice = TryCast(View.SelectedObjects(0), StorageDateClearingPrice)
+        Dim _SetSIRPrice_PopUp As SetSIRPrice_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), SetSIRPrice_PopUp)
+
+        If _StorageDateClearingPrice.StorageInRows IsNot Nothing Then
+            _StorageDateClearingPrice.StorageInRows.AveragePriceInHUF = _SetSIRPrice_PopUp.AveragePriceInHUF
+        End If
+
+        _ocur.CommitChanges()
+
+        Frame.GetController(Of StorageDateVC).aStorageDateClearingPrice_DateAndValueReCalculate.DoExecute()
+    End Sub
+
+    Private Sub aSetBonusHUF_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aSetBonusHUF.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _DeliveryNoteInRRFC_Popup As DeliveryNoteInRRFC_Popup = _onew.CreateObject(Of DeliveryNoteInRRFC_Popup)()
+
+
+        e.View = Application.CreateDetailView(_onew, "DeliveryNoteInRRFC_Popup_DetailView", False, _DeliveryNoteInRRFC_Popup)
+    End Sub
+
+    Private Sub aSetBonusHUF_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aSetBonusHUF.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInRRFC_Popup As DeliveryNoteInRRFC_Popup = e.PopupWindow.View.SelectedObjects(0)
+        Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC
+        Dim _TotalAmount As Double = 0
+
+        For Each _DeliveryNoteInRRFC In View.SelectedObjects
+            _TotalAmount += _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount
+        Next
+
+        RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+        For Each _DeliveryNoteInRRFC In View.SelectedObjects
+            RaiseEvent DoWork()
+            _DeliveryNoteInRRFC.BonusHUF = Math.Round(_DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount * (_DeliveryNoteInRRFC_Popup.BonusHUF / _TotalAmount), 0, MidpointRounding.AwayFromZero)
+            _ocur.CommitChanges()
+            UpdateStorageDateClearingPrice(_DeliveryNoteInRRFC.DeliveryNoteInRows.Products, _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom, False)
+        Next
+        RaiseEvent FinalWork()
+    End Sub
+
+
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation.vb

@@ -0,0 +1,100 @@
+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 StorageLocation
+    Inherits BaseObject
+
+    Private _ShortName As String
+    Private _Barcode As String 'Vonalkód
+    Private _Storage As Storage
+    Private _BarcodeEAN13Base As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property Barcode As String
+        Get
+            Return _Barcode
+        End Get
+        Set(value As String)
+            SetPropertyValue("Barcode", _Barcode, value)
+        End Set
+    End Property
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Storage As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+        End Set
+    End Property
+    <NonPersistent(), ImmediatePostData()> _
+    Property BarcodeEAN13Base As String
+        Get
+            Return _BarcodeEAN13Base
+        End Get
+        Set(value As String)
+            SetPropertyValue("BarcodeEAN13Base", _BarcodeEAN13Base, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                If EAN13Generator(value) <> "" Then
+                    Me.Barcode = EAN13Generator(value)
+                Else
+
+                End If
+
+            End If
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)>
+    ReadOnly Property StorageComputedLocations As XPCollection(Of StorageComputedLocations)
+        Get
+            Return New XPCollection(Of StorageComputedLocations)(Session, CriteriaOperator.Parse("StorageLocation=?", Me))
+        End Get
+    End Property
+    Function EAN13Generator(ByVal _Base As String) As String
+        If _Base = Nothing Then
+            Return ""
+            Exit Function
+        End If
+        If _Base.Length = 12 Then
+            Dim i As Long
+            Dim _CheckSum As Long = 0
+            For i = 1 To Len(_Base)
+                If i Mod 2 = 0 Then
+                    _CheckSum += Val(Mid(_Base, i, 1)) * 3
+                Else
+                    _CheckSum += Val(Mid(_Base, i, 1))
+                End If
+            Next
+            _CheckSum = 10 - (_CheckSum Mod 10)
+            If _CheckSum = 10 Then _CheckSum = 0
+
+            Return _Base & LTrim(RTrim(CStr(_CheckSum)))
+        Else
+            Return ""
+        End If
+    End Function
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation_VC.Designer.vb

@@ -0,0 +1,49 @@
+Partial Class StorageLocation_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.aStorageLocationsPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aStorageLocationsPrint
+        '
+        Me.aStorageLocationsPrint.Caption = "aStorageLocationsPrint"
+        Me.aStorageLocationsPrint.Category = "View"
+        Me.aStorageLocationsPrint.ConfirmationMessage = Nothing
+        Me.aStorageLocationsPrint.Id = "aStorageLocationsPrint"
+        Me.aStorageLocationsPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aStorageLocationsPrint.Shortcut = Nothing
+        Me.aStorageLocationsPrint.Tag = Nothing
+        Me.aStorageLocationsPrint.TargetObjectType = GetType(Nuvolar.[Module].StorageLocation)
+        Me.aStorageLocationsPrint.TargetViewId = Nothing
+        Me.aStorageLocationsPrint.ToolTip = Nothing
+        Me.aStorageLocationsPrint.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aStorageLocationsPrint As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation_VC.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="aStorageLocationsPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation_VC.vb

@@ -0,0 +1,42 @@
+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.Data.Filtering
+Imports DevExpress.Persistent.BaseImpl
+
+Public Class StorageLocation_VC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+
+    Private Sub aStorageLocationsPrint_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorageLocationsPrint.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Name=?", "Raktári lokációk"))
+            If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!")
+            If View.SelectedObjects.Count = 0 Then Throw New Exception("*Egy sort ki kell jelölni, hogy a raktár azonosítható legyen!")
+
+            Dim _OidArray As New ArrayList
+
+            For Each _StorageLocation As StorageLocation In View.SelectedObjects
+                _OidArray.Add(_StorageLocation.Oid)
+            Next
+
+            Dim _InOperator As InOperator = New InOperator("Oid", _OidArray)
+
+            Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, _InOperator, True)
+        Catch ext As Exception
+            MsgBox(ext.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEvents.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.Drawing
+Imports DevExpress.ExpressApp.Utils
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<DeferredDeletion(False)> _
+Public Class StorageMoveEvents
+    Inherits BaseObject
+
+    Private _StorageInRows As StorageInRows
+    Private _StorageOutRows As StorageOutRows
+    Private _QTT As Double 'A mozgatott mennyiség elõjelesen
+    Private _QTT_Free_Before As Double 'Elõzõ állapot
+    Private _QTT_Free_After As Double 'Utána állapot
+    Private _ExecutionDate As Date
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _MoveEventsType As eMoveEventsType 'Esemény megnevezése
+    Private _FullIndex As Long
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    Property StorageInRows As StorageInRows
+        Get
+            Return _StorageInRows
+        End Get
+        Set(value As StorageInRows)
+            SetPropertyValue("StorageInRows", _StorageInRows, value)
+        End Set
+    End Property
+    Property StorageOutRows As StorageOutRows
+        Get
+            Return _StorageOutRows
+        End Get
+        Set(value As StorageOutRows)
+            SetPropertyValue("StorageOutRows", _StorageOutRows, 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 QTT_Free_Before As Double
+        Get
+            Return _QTT_Free_Before
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Free_Before", _QTT_Free_Before, value)
+        End Set
+    End Property
+    Property QTT_Free_After As Double
+        Get
+            Return _QTT_Free_After
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Free_After", _QTT_Free_After, value)
+        End Set
+    End Property
+    Property ExecutionDate As Date
+        Get
+            Return _ExecutionDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ExecutionDate", _ExecutionDate, 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
+    Property MoveEventsType As eMoveEventsType
+        Get
+            Return _MoveEventsType
+        End Get
+        Set(value As eMoveEventsType)
+            SetPropertyValue("MoveEventsType", _MoveEventsType, value)
+        End Set
+    End Property
+    Property FullIndex As Long
+        Get
+            Return _FullIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("FullIndex", _FullIndex, value)
+        End Set
+    End Property
+
+    <VisibleInDetailView(False)> _
+    ReadOnly Property Image1 As Image
+        Get
+            Select Case MoveEventsType
+                Case eMoveEventsType.StorageInFinal
+                    Return ImageLoader.Instance.GetImageInfo("arrow_down_blue").Image
+                Case eMoveEventsType.StorageInBackToEdit
+                    Return ImageLoader.Instance.GetImageInfo("arrow_right_blue").Image
+                Case eMoveEventsType.StorageInStorno
+                    Return ImageLoader.Instance.GetImageInfo("box_next").Image
+
+                Case eMoveEventsType.StorageOutFinal
+                    Return ImageLoader.Instance.GetImageInfo("arrow_up_green").Image
+                Case eMoveEventsType.StorageOutBackToEdit
+                    Return ImageLoader.Instance.GetImageInfo("arrow_left_blue").Image
+                Case eMoveEventsType.StorageOutStorno
+                    Return ImageLoader.Instance.GetImageInfo("box_previous").Image
+                
+                Case Else
+                    Return Nothing
+            End Select
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.Designer.vb

@@ -0,0 +1,55 @@
+Partial Class StorageMoveEventsVC
+
+	<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.aRecalcStorageMoveEvents = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aRecalcStorageMoveEvents_StorageComputed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aRecalcStorageMoveEvents
+        '
+        Me.aRecalcStorageMoveEvents.Caption = "aRecalc Storage Move Events"
+        Me.aRecalcStorageMoveEvents.ConfirmationMessage = Nothing
+        Me.aRecalcStorageMoveEvents.Id = "aRecalcStorageMoveEvents"
+        Me.aRecalcStorageMoveEvents.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aRecalcStorageMoveEvents.TargetObjectType = GetType(Nuvolar.[Module].StorageMoveEvents)
+        Me.aRecalcStorageMoveEvents.ToolTip = Nothing
+        '
+        'aRecalcStorageMoveEvents_StorageComputed
+        '
+        Me.aRecalcStorageMoveEvents_StorageComputed.Caption = "aRecalcStorageMoveEvents_StorageComputed"
+        Me.aRecalcStorageMoveEvents_StorageComputed.ConfirmationMessage = Nothing
+        Me.aRecalcStorageMoveEvents_StorageComputed.Id = "aRecalcStorageMoveEvents_StorageComputed"
+        Me.aRecalcStorageMoveEvents_StorageComputed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aRecalcStorageMoveEvents_StorageComputed.TargetObjectType = GetType(Nuvolar.[Module].StorageComputed)
+        Me.aRecalcStorageMoveEvents_StorageComputed.ToolTip = Nothing
+
+    End Sub
+    Friend WithEvents aRecalcStorageMoveEvents As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aRecalcStorageMoveEvents_StorageComputed As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.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="aRecalcStorageMoveEvents.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aRecalcStorageMoveEvents_StorageComputed.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>228, 28</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/StorageTransactions/Storage/StorageMoveEventsVC.vb

@@ -0,0 +1,90 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.Linq
+Imports System.Text
+Imports DevExpress.ExpressApp
+Imports DevExpress.Data.Filtering
+Imports System.Collections.Generic
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.Utils
+Imports DevExpress.ExpressApp.Layout
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.ExpressApp.Templates
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.Model.NodeGenerators
+Imports DevExpress.Xpo
+
+' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic.
+Partial Public Class StorageMoveEventsVC
+    Inherits ViewController
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event DoWork()
+    Public Event FinalWork
+    Public Sub New()
+        InitializeComponent()
+        RegisterActions(components)
+        ' Target required Views (via the TargetXXX properties) and create their Actions.
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        ' Perform various tasks depending on the target View.
+    End Sub
+    Protected Overrides Sub OnViewControlsCreated()
+        MyBase.OnViewControlsCreated()
+        ' Access and customize the target View control.
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        ' Unsubscribe from previously subscribed events and release other references and resources.
+        MyBase.OnDeactivated()
+    End Sub
+
+    Private Sub aRecalcStorageMoveEvents_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRecalcStorageMoveEvents.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
+        Dim _StorageMoveEvents As StorageMoveEvents
+
+        RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+        For Each _StorageMoveEvents In View.SelectedObjects
+            RaiseEvent DoWork()
+            RecalcStorageMoveEvents(_uow, _StorageMoveEvents.StorageInRows.StorageInHeader.Storage, _StorageMoveEvents.StorageInRows.Products)
+        Next
+        RaiseEvent FinalWork
+    End Sub
+
+    Private Sub RecalcStorageMoveEvents(_uow As UnitOfWork, _Storage As Storage, _Products As Products)
+        Dim _FullIndex As Long = 1
+        Dim _Next As Double = 0
+        Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(_uow, CriteriaOperator.Parse("IsNull(StorageInRows.GCRecord)=True and IsNull(StorageInRows.StorageInHeader.GCRecord)=True and StorageInRows.Storage.Oid=? and StorageInRows.Products.Oid=?", _Storage.Oid, _Products.Oid))
+        Dim _StorageMoveEvents As StorageMoveEvents
+
+
+        _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("GetDate(ExecutionDate)", DB.SortingDirection.Ascending))
+        _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("StorageInRows.RowIndex", DB.SortingDirection.Ascending))
+
+
+        For Each _StorageMoveEvents In _StorageMoveEvents_Collection
+            _StorageMoveEvents.QTT_Free_Before = _Next
+            _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT
+            _StorageMoveEvents.FullIndex = _FullIndex
+            _FullIndex += 1
+            _Next = _StorageMoveEvents.QTT_Free_After
+        Next
+        _uow.CommitChanges()
+
+    End Sub
+
+    Private Sub aRecalcStorageMoveEvents_StorageComputed_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRecalcStorageMoveEvents_StorageComputed.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
+        Dim _StorageComputed As StorageComputed
+
+        RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+        For Each _StorageComputed In View.SelectedObjects
+            RaiseEvent DoWork()
+            RecalcStorageMoveEvents(_uow, _StorageComputed.Storage, _StorageComputed.Products)
+        Next
+        RaiseEvent FinalWork
+    End Sub
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveType.vb

@@ -0,0 +1,76 @@
+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.Utils
+<DefaultClassOptions()>
+<NavigationItem("StorageStocks"), CreatableItem(False)> _
+<DefaultProperty("DisplayName")> _
+Public Class StorageMoveType '-- Mozgási paraméterek
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _Storage As Storage ' -- Raktár
+    Private _MoveType As eMoveType ' Mozgás tipusa
+    Private _MoveDirection As eMoveDirection
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+
+    <RuleRequiredField("StorageMoveType-Storage", DefaultContexts.Save)>
+    Property Storage As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(ByVal value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+        End Set
+    End Property
+    <RuleRequiredField("StorageMoveType-MoveType", DefaultContexts.Save)>
+    Property MoveType As eMoveType
+        Get
+            Return _MoveType
+        End Get
+        Set(ByVal value As eMoveType)
+            SetPropertyValue("MoveType", _MoveType, value)
+        End Set
+    End Property
+    Property MoveDirection As eMoveDirection
+        Get
+            Return _MoveDirection
+        End Get
+        Set(value As eMoveDirection)
+            SetPropertyValue("MoveDirection", _MoveDirection, value)
+        End Set
+    End Property
+    ReadOnly Property DisplayName As String
+        Get
+            If Storage Is Nothing Then
+                Return ""
+            Else
+                Return Storage.ShortName & " - > " & CaptionHelper.GetLocalizedText("Enums\Nuvolar.Module.eMoveType", MoveType.ToString)
+            End If
+        End Get
+    End Property
+
+    <Association("StorageMoveType-StorageMoveTypeYear", GetType(StorageMoveTypeYear))> _
+    ReadOnly Property StorageMoveTypeYear As XPCollection(Of StorageMoveTypeYear)
+        Get
+            Return GetCollection(Of StorageMoveTypeYear)("StorageMoveTypeYear")
+        End Get
+    End Property
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveTypeYear.vb

@@ -0,0 +1,71 @@
+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 StorageMoveTypeYear
+    Inherits BaseObject
+    Private _StorageMoveType As StorageMoveType
+    Private _DebitChartOfAccounts As ChartOfAccounts '-- Tartozik
+    Private _CreditChartOfAccounts As ChartOfAccounts '-- Követel
+    Private _ProductsGroups As ProductsGroups ' -- Termék csoport
+    <RuleRequiredField("StorageMoveType-ProductsGroups", DefaultContexts.Save)> _
+    Property ProductsGroups As ProductsGroups
+        Get
+            Return _ProductsGroups
+        End Get
+        Set(ByVal value As ProductsGroups)
+            SetPropertyValue("ProductsGroups", _ProductsGroups, value)
+        End Set
+    End Property
+
+    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("StorageMoveType-StorageMoveTypeYear", GetType(StorageMoveType))> _
+    Property StorageMoveType As StorageMoveType
+        Get
+            Return _StorageMoveType
+        End Get
+        Set(value As StorageMoveType)
+            SetPropertyValue("StorageMoveType", _StorageMoveType, value)
+        End Set
+    End Property
+    <RuleRequiredField("StorageMoveType-DebitChartOfAccounts", DefaultContexts.Save)> _
+    Property DebitChartOfAccounts As ChartOfAccounts
+        Get
+            Return _DebitChartOfAccounts
+        End Get
+        Set(ByVal value As ChartOfAccounts)
+            SetPropertyValue("DebitChartsOfAccounts", _DebitChartOfAccounts, value)
+        End Set
+    End Property
+    <RuleRequiredField("StorageMoveType-CreditChartOfAccounts", DefaultContexts.Save)> _
+    Property CreditChartOfAccounts As ChartOfAccounts
+        Get
+            Return _CreditChartOfAccounts
+        End Get
+        Set(ByVal value As ChartOfAccounts)
+            SetPropertyValue("CreditChartsOfAccounts", _CreditChartOfAccounts, value)
+        End Set
+    End Property
+
+End Class

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/eMoveDirection.vb

@@ -0,0 +1,5 @@
+
+Public Enum eMoveDirection
+    eInput = 0
+    eOutput = 1
+End Enum

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/eMoveEventsType.vb

@@ -0,0 +1,10 @@
+
+Public Enum eMoveEventsType
+    StorageInFinal = 0
+    StorageInBackToEdit = 1
+    StorageInStorno = 2
+    StorageOutFinal = 3
+    StorageOutBackToEdit = 4
+    StorageOutStorno = 5
+    StorageInventory = 6 'Leltározás induló mozgás
+End Enum

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/eMoveType.vb

@@ -0,0 +1,16 @@
+
+
+Public Enum eMoveType
+    Sales = 0 'Értékesítés -> 1
+    Uses = 1 'Felhasználás -> 1
+    Inventory = 3 'Leltár -> 0,1
+    Disposal = 4 'Selejtezés -> 0,1
+    Production = 5 'Gyártás -> 0,1
+    InventoryTransfer = 6 'Raktárközi mozgás
+    Asset = 2 'Tárgyi eszköz
+    NormalInput = 7 'Normál bevételezés
+    CreditNote = 8 'Eladott tétel jóváírásából visszavétel
+    ReturnBack = 9 'Szállítói visszárú !
+    ShopTransfer = 10 'Boltközi mozgás
+    PairCorrection = 11 ' Egyéb növekedés, csökkenés CSAK párban !!!
+End Enum