First create solution

2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
@@ -0,0 +1,46 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<NonPersistent()> _
+Public Class ChangeGroup_StorageComputed_PopUp
+    Inherits BaseObject
+
+    Private _Change_PricingMinimum As Boolean
+    Private _PricingMinimum As PricingMinimum
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Change_PricingMinimum = False
+    End Sub
+
+    Property Change_PricingMinimum As Boolean
+        Get
+            Return _Change_PricingMinimum
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_PricingMinimum", _Change_PricingMinimum, 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
+End Class
@@ -0,0 +1,150 @@
+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(False), CreatableItem(False), NonPersistent()> _
+Public Class StorageMoveInfo
+    Inherits BaseObject
+
+    Private _Products As Products
+
+    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 Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property ProductFinderInfo As XPCollection(Of ProductFinderInfo)
+        Get
+            Dim _ProductFinderInfo_Collection As New XPCollection(Of ProductFinderInfo)(Session, Session.ParseCriteria("1=2"))
+            Dim _ProductFinderInfo As ProductFinderInfo
+            _ProductFinderInfo = New ProductFinderInfo(Session)
+            _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "ProductGroups")
+            If _Products.ProductGroups IsNot Nothing Then
+                _ProductFinderInfo.InfoString = _Products.ProductGroups.ShortName
+            Else
+                _ProductFinderInfo.InfoString = "Nincs beállítva!"
+            End If
+            _ProductFinderInfo_Collection.Add(_ProductFinderInfo)
+
+
+            _ProductFinderInfo = New ProductFinderInfo(Session)
+            _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "Description")
+            _ProductFinderInfo.InfoString = _Products.Description
+            _ProductFinderInfo_Collection.Add(_ProductFinderInfo)
+
+            _ProductFinderInfo = New ProductFinderInfo(Session)
+            _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "ProductNumber")
+            _ProductFinderInfo.InfoString = _Products.ProductNumber
+            _ProductFinderInfo_Collection.Add(_ProductFinderInfo)
+
+            _ProductFinderInfo = New ProductFinderInfo(Session)
+            _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "ShortName")
+            _ProductFinderInfo.InfoString = _Products.ShortName
+            _ProductFinderInfo_Collection.Add(_ProductFinderInfo)
+
+            _ProductFinderInfo = New ProductFinderInfo(Session)
+            _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "PacketUnitIn")
+            _ProductFinderInfo.InfoString = _Products.PacketUnitIn.ToString
+            _ProductFinderInfo_Collection.Add(_ProductFinderInfo)
+
+            _ProductFinderInfo = New ProductFinderInfo(Session)
+            _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "ProductStrategyCode")
+            _ProductFinderInfo.InfoString = _Products.ProductStrategyCode
+            _ProductFinderInfo_Collection.Add(_ProductFinderInfo)
+
+            _ProductFinderInfo = New ProductFinderInfo(Session)
+            _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "Units")
+            If _Products.Units IsNot Nothing Then
+                _ProductFinderInfo.InfoString = _Products.Units.ShortName
+            Else
+                _ProductFinderInfo.InfoString = "Nincs beállítva!"
+            End If
+            _ProductFinderInfo_Collection.Add(_ProductFinderInfo)
+
+            _ProductFinderInfo = New ProductFinderInfo(Session)
+            _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "CustomsTariff")
+            If _Products.CustomsTariff IsNot Nothing Then
+                _ProductFinderInfo.InfoString = _Products.CustomsTariff.CustomsTariffNumber
+            Else
+                _ProductFinderInfo.InfoString = "Nincs beállítva!"
+            End If
+            _ProductFinderInfo_Collection.Add(_ProductFinderInfo)
+
+
+            _ProductFinderInfo = New ProductFinderInfo(Session)
+            _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "GrossWeight")
+            _ProductFinderInfo.InfoString = _Products.GrossWeight
+            _ProductFinderInfo_Collection.Add(_ProductFinderInfo)
+
+
+            _ProductFinderInfo = New ProductFinderInfo(Session)
+            _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "ListPriceOutHUF")
+            _ProductFinderInfo.InfoString = _Products.ListPriceOutHUF.ToString
+            _ProductFinderInfo_Collection.Add(_ProductFinderInfo)
+
+            _ProductFinderInfo = New ProductFinderInfo(Session)
+            _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "VAT")
+            If _Products.VAT IsNot Nothing Then
+                _ProductFinderInfo.InfoString = _Products.VAT.ShortName
+            Else
+                _ProductFinderInfo.InfoString = "Nincs beállítva!"
+            End If
+            _ProductFinderInfo_Collection.Add(_ProductFinderInfo)
+
+            Dim _PricingActionRows As PricingActionRows = Session.FindObject(Of PricingActionRows) _
+                                    (Session.ParseCriteria("Products=? and PricingActionHeader.IsActive=1 and PricingActionHeader.DateFrom<=Now() and PricingActionHeader.DateTo>=Now()", _Products))
+
+            If _PricingActionRows IsNot Nothing Then
+
+                _ProductFinderInfo = New ProductFinderInfo(Session)
+                _ProductFinderInfo.PropertyName = "Akció!"
+                _ProductFinderInfo.InfoString = Format(_PricingActionRows.ListPriceHUF, "#,##0") & Chr(13) & Chr(10) & _
+                    _PricingActionRows.PricingActionHeader.ShortName & Chr(13) & Chr(10) & _PricingActionRows.PricingActionHeader.DateFrom.ToShortDateString & _
+                    " - " & _PricingActionRows.PricingActionHeader.DateTo.ToShortDateString
+                _ProductFinderInfo_Collection.Add(_ProductFinderInfo)
+
+            End If
+
+            Return _ProductFinderInfo_Collection
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property StorageOutCirculation As XPCollection(Of StorageOutCirculation)
+        Get
+            Return New XPCollection(Of StorageOutCirculation)(Session, Session.ParseCriteria("Products=?", Products))
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property StorageMoveEvents As XPCollection(Of StorageMoveEvents)
+        Get
+            Return New XPCollection(Of StorageMoveEvents)(Session, Session.ParseCriteria("StorageInRows.Products=?", Products))
+        End Get
+    End Property
+End Class
@@ -0,0 +1,34 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class GenerateStorageInPDALocationCollection
+    Inherits BaseObject
+
+    Private _StoragePDAParameters As StoragePDAParameters
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property StoragePDAParameters As StoragePDAParameters
+        Get
+            Return _StoragePDAParameters
+        End Get
+        Set(value As StoragePDAParameters)
+            SetPropertyValue("StoragePDAParameters", _StoragePDAParameters, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,43 @@
+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 StorageInRowsFromPDACollectionPopup
+    Inherits BaseObject
+
+    Private _StoragePDACollectionHeader As StoragePDACollectionHeader
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property StoragePDACollectionHeader As StoragePDACollectionHeader
+        Get
+            Return _StoragePDACollectionHeader
+        End Get
+        Set(value As StoragePDACollectionHeader)
+            SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, value)
+        End Set
+    End Property
+    '____________________ReadOnly______________________________________
+    <VisibleInListView(False)> _
+    <VisibleInLookupListView(False)> _
+    Public ReadOnly Property StoragePDACollectionRows As XPCollection(Of StoragePDACollectionRows)
+        Get
+            Return New XPCollection(Of StoragePDACollectionRows)(Session, CriteriaOperator.Parse("StoragePDACollectionHeader.Oid=?", Me.StoragePDACollectionHeader.Oid))
+        End Get
+    End Property
+End Class
@@ -0,0 +1,47 @@
+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("StorageInRows_Split_PopUp - HIde StorageInRows all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="StorageInRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class StorageInRows_Split_PopUp
+    Inherits BaseObject
+
+    Private _QTT_Max As Double
+    Private _StorageInRows As StorageInRows
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property QTT_Max As Double
+        Get
+            Return _QTT_Max
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Max", _QTT_Max, 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
+End Class
@@ -0,0 +1,69 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Disable DeliveryNoteInHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="DeliveryNoteInHeader", Enabled:=False)> _
+Public Class StorageInfromDeliveryNoteInRowsHeader
+    Inherits BaseObject
+    Private _DeliveryNoteInHeader As DeliveryNoteInHeader
+    Private _Storage As Storage
+    Private _StorageMoveType As StorageMoveType
+    Private _DateCreation As Date
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <VisibleInListView(False)> _
+    <Association("StorageInfromDeliveryNoteInRowsHeader-StorageInfromDeliveryNoteInRowsRows", GetType(StorageInfromDeliveryNoteInRowsRows))> _
+    ReadOnly Property StorageInfromDeliveryNoteInRowsRows As XPCollection(Of StorageInfromDeliveryNoteInRowsRows)
+        Get
+            Return GetCollection(Of StorageInfromDeliveryNoteInRowsRows)("StorageInfromDeliveryNoteInRowsRows")
+        End Get
+    End Property
+    Property DeliveryNoteInHeader As DeliveryNoteInHeader
+        Get
+            Return _DeliveryNoteInHeader
+        End Get
+        Set(value As DeliveryNoteInHeader)
+            SetPropertyValue("DeliveryNoteInHeader", _DeliveryNoteInHeader, value)
+        End Set
+    End Property
+    <RuleRequiredField("StorageInfromDeliveryNoteInRowsHeader.Storage", DefaultContexts.Save)> _
+    Property Storage As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("Storage='@This.Storage' and MoveDirection=0 and MoveType=7")>
+    Property StorageMoveType As StorageMoveType
+        Get
+            Return _StorageMoveType
+        End Get
+        Set(value As StorageMoveType)
+            SetPropertyValue("StorageMoveType", _StorageMoveType, value)
+        End Set
+    End Property
+    Property DateCreation As Date
+        Get
+            Return _DateCreation
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateCreation", _DateCreation, value)
+        End Set
+    End Property
+End Class
@@ -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 System.Linq
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class StorageInfromDeliveryNoteInRowsRows
+    Inherits BaseObject
+    Private _StorageInfromDeliveryNoteInRowsHeader As StorageInfromDeliveryNoteInRowsHeader
+    Private _DeliveryNoteInRows As DeliveryNoteInRows
+    Private _QTT_Process As Double ' a betárolni kívánt mennyiség a sorról
+    Private _QTT_Max As Double ' Maximum mennyit lehet még betárolni a sorról
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <Association("StorageInfromDeliveryNoteInRowsHeader-StorageInfromDeliveryNoteInRowsRows", GetType(StorageInfromDeliveryNoteInRowsHeader))> _
+    Property StorageInfromDeliveryNoteInRowsHeader As StorageInfromDeliveryNoteInRowsHeader
+        Get
+            Return _StorageInfromDeliveryNoteInRowsHeader
+        End Get
+        Set(value As StorageInfromDeliveryNoteInRowsHeader)
+            SetPropertyValue("StorageInfromDeliveryNoteInRowsHeader", _StorageInfromDeliveryNoteInRowsHeader, value)
+        End Set
+    End Property
+    Property DeliveryNoteInRows As DeliveryNoteInRows
+        Get
+            Return _DeliveryNoteInRows
+        End Get
+        Set(value As DeliveryNoteInRows)
+            SetPropertyValue("DeliveryNoteInRows", _DeliveryNoteInRows, value)
+        End Set
+    End Property
+    Property QTT_Process As Double
+        Get
+            Return _QTT_Process
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Process", _QTT_Process, value)
+        End Set
+    End Property
+    ReadOnly Property QTT_StorageIn As Double
+        Get
+            Dim _StorageInRows As New XPQuery(Of StorageInRows)(Session)
+            Dim _QTT_Sum As Double = 0
+            Dim query = From _SIR In _StorageInRows
+                    Where _SIR.DeliveryNoteInRows Is DeliveryNoteInRows
+            Group _SIR By _SIR.DeliveryNoteInRows Into g = Group _
+            Select New With {Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)}
+
+            For Each item In query
+                _QTT_Sum = item.QTT_Sum
+            Next
+
+            Return _QTT_Sum
+        End Get
+    End Property
+    <NonPersistent()> _
+    Property QTT_Max As Double
+        Get
+            Return _QTT_Max
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Max", _QTT_Max, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,32 @@
+Partial Class SorageByDateVC
+
+	<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()
+		components = New System.ComponentModel.Container()
+	End Sub
+
+End Class
@@ -0,0 +1,22 @@
+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
+
+Public Class SorageByDateVC
+	Inherits DevExpress.ExpressApp.ViewController
+
+	Public Sub New()
+		MyBase.New()
+
+		'This call is required by the Component Designer.
+		InitializeComponent()
+		RegisterActions(components) 
+
+	End Sub
+End Class
@@ -0,0 +1,59 @@
+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 StorageByDate
+    Inherits BaseObject
+    Private _DateClose As Date
+    Private _UserCreated As User
+    Private _ObjectCreated As Date
+
+    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 DateClose As Date
+        Get
+            Return _DateClose
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateClose", _DateClose, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,263 @@
+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
+
+'<EditorStateRule("Disabled properties when IsEditable=False", "*", ViewType.DetailView, "IsEditable = False", EditorState.Disabled)> _
+
+<Appearance("Disabled properties when IsEditable=False", TargetItems:="*", Criteria:="IsEditable = False", Enabled:=False, Context:="DetailView")> _
+<Appearance("Hide row_ properties when IsEditable=False", AppearanceItemType.ViewItem, "IsEditable=False", TargetItems:="row_Products;row_QTT_WILL;row_PacketNumber;row_SerialNumber;row_Weight", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable aToTable_StorageIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aToTable_StorageIn", Enabled:=False)> _
+<Appearance("Hide aToTable_StorageIn", AppearanceItemType.Action, "StorageMoveType.MoveType=6", TargetItems:="aToTable_StorageIn", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide aStorageInFromPdaCollection", AppearanceItemType.Action, "StorageMoveType.MoveType=6", TargetItems:="aStorageInFromPdaCollection", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable aToTableD_SIH", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aToTableD_SIH", Enabled:=False)> _
+<Appearance("Hide Item3 StorageOutHeader", AppearanceItemType.LayoutItem, "IsNull(Storage) Or IsNull(DocumentNumber) Or IsNull(StorageMoveType)", TargetItems:="Item3", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable StorageInRows when IsStorno=True", AppearanceItemType.ViewItem, "IsStorno=True", TargetItems:="StorageInRows", Enabled:=False)> _
+<Appearance("Hide row_PacketNumber when row_Products.ProductType!=2", AppearanceItemType.ViewItem, "row_Products.ProductType!=2", TargetItems:="row_PacketNumber", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide row_SerialNumber when row_Products.ProductType!=1", AppearanceItemType.ViewItem, "row_Products.ProductType!=1", TargetItems:="row_SerialNumber", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide StorageFrom property when StorageMoveType.MoveType<>6", AppearanceItemType.ViewItem, "StorageMoveType.MoveType<>6", TargetItems:="StorageFrom", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide aStorageInHeader_InsertInventoryTransfer when StorageMoveType.MoveType<>6", AppearanceItemType.Action, "StorageMoveType.MoveType<>6", TargetItems:="aStorageInHeader_InsertInventoryTransfer,aStorageInHeader_InsertInventoryTransfer_FIFO,aCheckInventoryTransfer", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide row_ properties when StorageMoveType.MoveType<>6", AppearanceItemType.ViewItem, "StorageMoveType.MoveType=6", TargetItems:="row_Weight;row_Products;row_QTT_WILL;row_PacketNumber;row_SerialNumber", visibility:=Editors.ViewItemVisibility.Hide)> _
+<DefaultClassOptions()> _
+<NavigationItem("StorageTransactions")> _
+Public Class StorageInHeader
+    Inherits BaseObject
+    Private _StorageMoveType As StorageMoveType
+    Private _DocumentNumber As String ' Bizonylatszám
+    Private _ConnectInfo As String
+    Private _Storage As Storage ' Raktár
+    Private _StorageFrom As Storage '
+    Private _CreateDate As Date ' Kiállítás dátuma
+    Private _Active As Boolean = True ' Aktív
+    Private _ObjectCreated As Date ' Objektum mikor készült
+    Private _UserCreated As User 'Ki készítette
+    Private _IsStorno As Boolean = False 'Storno e?
+    Private _IsEditable As Boolean = True 'Végleges e?
+    Private _IsFinalized As Boolean = False 'Volt-e már véglegesítve ?
+    Private _RecipeExecutionSimple As RecipeExecutionSimple 'Melyik gyártáshoz kapcs. betárolás
+    Private _StoragePDACollectionHeader As StoragePDACollectionHeader
+    '--------------------------------------------------------
+    Private _row_Products As Products ' Termék
+    Private _row_QTT_Will As Double ' Mennyiség (szándék)
+    Private _row_PacketNumber As String 'Kötegszám
+    Private _row_SerialNumber As String ' Sorozatszám
+    Private _row_Weight As Double
+    Private _row_WeightMode As eWeightMode
+    '--------------------------------------------------------
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If String.IsNullOrEmpty(DocumentNumber) Then
+            DocumentNumber = _Storage.NumberGeneratorIn.GetNewNumber(_Storage.NumberGeneratorIn)
+            If String.IsNullOrEmpty(ConnectInfo) Then ConnectInfo = DocumentNumber
+        End If
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        CreateDate = GetSQLTime(Session)
+    End Sub
+
+    <RuleRequiredField("StorageInHeader-StorageMoveType", DefaultContexts.Save)>
+    <ImmediatePostData(True), DataSourceCriteria("Storage='@This.Storage' and MoveDirection=0")>
+    Property StorageMoveType As StorageMoveType
+        Get
+            Return _StorageMoveType
+        End Get
+        Set(value As StorageMoveType)
+            SetPropertyValue("StorageMoveType", _StorageMoveType, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    <Association("StorageIn", GetType(StorageInRows))> _
+    Public ReadOnly Property StorageInRows() As XPCollection(Of StorageInRows)
+        Get
+            Return GetCollection(Of StorageInRows)("StorageInRows")
+        End Get
+    End Property
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    Property ConnectInfo As String
+        Get
+            Return _ConnectInfo
+        End Get
+        Set(value As String)
+            SetPropertyValue("ConnectInfo", _ConnectInfo, value)
+        End Set
+    End Property
+    <RuleRequiredField("", DefaultContexts.Save)> _
+    Property Storage As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(ByVal value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <RuleRequiredField("StorageInHeader - StorageFrom", DefaultContexts.Save, TargetCriteria:="StorageMoveType.MoveType=6")> _
+    Property StorageFrom As Storage
+        Get
+            Return _StorageFrom
+        End Get
+        Set(value As Storage)
+            SetPropertyValue("StorageFrom", _StorageFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("StorageInHeader-CreateDate", DefaultContexts.Save)> _
+    Property CreateDate As Date
+        Get
+            Return _CreateDate
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("CreateDate", _CreateDate, value)
+        End Set
+    End Property
+    Property Active As Boolean
+        Get
+            Return _Active
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("Active", _Active, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+    Property IsStorno As Boolean
+        Get
+            Return _IsStorno
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsStorno", _IsStorno, value)
+        End Set
+    End Property
+    Property IsEditable As Boolean
+        Get
+            Return _IsEditable
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsEditable", _IsEditable, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property IsFinalized As Boolean
+        Get
+            Return _IsFinalized
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsFinalized", _IsFinalized, value)
+        End Set
+    End Property
+    Property RecipeExecutionSimple As RecipeExecutionSimple
+        Get
+            Return _RecipeExecutionSimple
+        End Get
+        Set(value As RecipeExecutionSimple)
+            SetPropertyValue("RecipeExecutionSimple", _RecipeExecutionSimple, value)
+        End Set
+    End Property
+    Property StoragePDACollectionHeader As StoragePDACollectionHeader
+        Get
+            Return _StoragePDACollectionHeader
+        End Get
+        Set(value As StoragePDACollectionHeader)
+            SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, value)
+        End Set
+    End Property
+
+    <NonPersistent()> _
+    <RuleRequiredField("StorageInHeader-row_Products", "aToTable_StorageIn_Context")> _
+    <VisibleInListView(False)> _
+    <ImmediatePostData()> _
+    Property row_Products As Products
+        Get
+            Return _row_Products
+        End Get
+        Set(ByVal value As Products)
+            SetPropertyValue("row_Products", _row_Products, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <RuleRange("StorageInHeader-row_QTT_Will", "aToTable_StorageIn_Context", 0.0001, Double.MaxValue, TargetCriteria:="IsEditable=True")> _
+    <VisibleInListView(False)> _
+    Property row_QTT_WILL As Double
+        Get
+            Return _row_QTT_Will
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("row_QTT_Will", _row_QTT_Will, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_PacketNumber As String
+        Get
+            Return _row_PacketNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue(" row_PacketNumber", _row_PacketNumber, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_SerialNumber As String
+        Get
+            Return _row_SerialNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_SerialNumber", _row_SerialNumber, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+   <VisibleInListView(False)> _
+    Property row_Weight As Double
+        Get
+            Return _row_Weight
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_Weight", _row_Weight, value)
+        End Set
+    End Property
+    <NonPersistent>
+    Property row_WeightMode As eWeightMode
+        Get
+            Return _row_WeightMode
+        End Get
+        Set(value As eWeightMode)
+            SetPropertyValue("row_WeightMode", _row_WeightMode, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,282 @@
+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)> _
+<DefaultProperty("Products")> _
+Public Class StorageInRows
+    Inherits BaseObject
+
+    Private _RowIndex As Long ' -- Sor szám
+    Private _StorageInHeader As StorageInHeader ' -- Betárolási biz. fejléc
+    Private _Products As Products ' -- Termék
+    Private _QTT As Double '-- Betárolt mennyiség
+    Private _QTT_Will As Double = 0 '-- Betárolási szándék
+    Private _QTT_Out As Double = 0 '-- Kitárolt mennyiség ebből a betárolásból (FIFO !)
+    Private _QTT_Out_Will As Double = 0 '--Az össze kitárolási szándék, info az aktuális készletről
+    Private _QTT_Overstored As Double = 0 'Raktárközi mozgással áttárolt mennyiség ebből a FIFO lábból
+    Private _QTT_Overstor As Double = 0 'Mennyi lett a bevételezett mennyiségből raktárközi átadással kitárolva !
+    Private _QTT_Overstored_Will As Double = 0 'Raktárközi mozgással áttárolt mennyiség ebből a FIFO lábból véglegesítés nélkül
+    Private _QTT_Overstor_Will As Double = 0 'Mennyi lett a bevételezett mennyiségből raktárközi átadással kitárolva véglegesítés nélkül!
+    Private _Active As Boolean = True ' -- Aktív e?
+    Private _OnStorno As Boolean ' -- Storno e?
+    Private _DeliveryNoteInRows As DeliveryNoteInRows ' Melyik bejövő szállítólevél soráról van (ha van)
+    Private _PacketNumber As String 'Kötegszám
+    Private _SerialNumber As String 'Sorozatszám
+    Private _Weight As Double
+    Private _WeightMode As eWeightMode 'Súly értelmezése, egységsúly vagy öszsúly 
+    Private _Storage As Storage
+    Private _StorageInRowsFrom As StorageInRows 'Raktárközi átadásnál a küldő betárolási sor
+    Private _AveragePriceInHUF As Double 'Átlagár forintban
+
+    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 StorageInHeader IsNot Nothing Then
+            Storage = StorageInHeader.Storage
+        End If
+        'Átlagár újraszámolása
+        ' Ha nincs DNIR akkor a fejléc dátumig az összes raktár+termék í8ahol van DNIR db/DNIR ár
+    End Sub
+    Protected Overrides Sub OnSaved()
+        MyBase.OnSaved()
+        Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse("Storage=? and Products=? AND IsNull(GCRecord)=True", Storage, Products))
+        Dim _StorageInRows As StorageInRows
+        Dim _StorageComputed As StorageComputed = Session.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", Storage, Products))
+        If _StorageComputed IsNot Nothing Then
+            _StorageComputed.QTTFree = 0
+            _StorageComputed.QTTReserved = 0
+            _StorageComputed.QTTReservedIn = 0
+            _StorageComputed.QTTReservedOut = 0
+        Else
+            _StorageComputed = New StorageComputed(Session)
+            _StorageComputed.Storage = StorageInHeader.Storage
+            _StorageComputed.Products = Products
+        End If
+        For Each _StorageInRows In _StorageInRows_Collection
+            _StorageComputed.QTTFree += (_StorageInRows.QTT - _StorageInRows.QTT_Out - _StorageInRows.QTT_Out_Will)
+            _StorageComputed.QTTReservedIn += _StorageInRows.QTT_Will
+            _StorageComputed.QTTReservedOut += _StorageInRows.QTT_Out_Will
+        Next
+        _StorageComputed.Save()
+        Session.CommitTransaction()
+    End Sub
+    Public Sub AddRows(ByVal _p_StorageInHeader As StorageInHeader)
+        ' --- Sor hozzáadása Betárolási bizonylathoz manuálisan, vagy Rendelésből automatikusan
+        If _p_StorageInHeader IsNot Nothing And _p_StorageInHeader.row_Products IsNot Nothing And _p_StorageInHeader.Active = True Then
+
+            Me.StorageInHeader = _p_StorageInHeader
+            Me.Products = _p_StorageInHeader.row_Products
+            Me.QTT_Will = _p_StorageInHeader.row_QTT_WILL
+            Me.PacketNumber = _p_StorageInHeader.row_PacketNumber
+            Me.SerialNumber = _p_StorageInHeader.row_SerialNumber
+            Me.Weight = _p_StorageInHeader.row_Weight
+            Me.WeightMode = _p_StorageInHeader.row_WeightMode
+            If _p_StorageInHeader.StorageInRows.Count = 0 Then
+                Me.RowIndex = 1
+            Else
+                Me.RowIndex = _p_StorageInHeader.StorageInRows.Count
+            End If
+        End If
+    End Sub
+    Public Sub RemoveRows()
+        For Each _StorageInRows As StorageInRows In Me.StorageInHeader.StorageInRows
+            If _StorageInRows.RowIndex > Me.RowIndex Then
+                _StorageInRows.RowIndex -= 1
+            End If
+        Next
+    End Sub
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    <Association("StorageIn", GetType(StorageInHeader))> _
+    Property StorageInHeader() As StorageInHeader
+        Get
+            Return _StorageInHeader
+        End Get
+        Set(ByVal value As StorageInHeader)
+            SetPropertyValue("StorageInHeader", _StorageInHeader, value)
+        End Set
+    End Property
+    <RuleRequiredField("", DefaultContexts.Save)> _
+    Property Products() As Products
+        Get
+            Return _Products
+        End Get
+        Set(ByVal value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property QTT() As Double
+        Get
+            Return _QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property QTT_Will() As Double
+        Get
+            Return _QTT_Will
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT_Will", _QTT_Will, value)
+        End Set
+    End Property
+    Property QTT_Out As Double
+        Get
+            Return _QTT_Out
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT_Out", _QTT_Out, value)
+        End Set
+    End Property
+    Property QTT_Out_Will As Double
+        Get
+            Return _QTT_Out_Will
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Out_Will", _QTT_Out_Will, value)
+        End Set
+    End Property
+    Property QTT_Overstored As Double
+        Get
+            Return _QTT_Overstored
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Overstored", _QTT_Overstored, value)
+        End Set
+    End Property
+    Property QTT_Overstor As Double
+        Get
+            Return _QTT_Overstor
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Overstor", _QTT_Overstor, value)
+        End Set
+    End Property
+    Property QTT_Overstored_Will As Double
+        Get
+            Return _QTT_Overstored_Will
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Overstored_Will", _QTT_Overstored_Will, value)
+        End Set
+    End Property
+    Property QTT_Overstor_Will As Double
+        Get
+            Return _QTT_Overstor_Will
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Overstor_Will", _QTT_Overstor_Will, value)
+        End Set
+    End Property
+    Property Active() As Boolean
+        Get
+            Return _Active
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("Active", _Active, value)
+        End Set
+    End Property
+    Property OnStorno As Boolean
+        Get
+            Return _OnStorno
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("OnStorno", _OnStorno, value)
+        End Set
+    End Property
+    Property DeliveryNoteInRows As DeliveryNoteInRows
+        Get
+            Return _DeliveryNoteInRows
+        End Get
+        Set(value As DeliveryNoteInRows)
+            SetPropertyValue("DeliveryNoteInRows", _DeliveryNoteInRows, 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
+    Property Weight As Double
+        Get
+            Return _Weight
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Weight", _Weight, value)
+        End Set
+    End Property
+    Property WeightMode As eWeightMode
+        Get
+            Return _WeightMode
+        End Get
+        Set(value As eWeightMode)
+            SetPropertyValue("WeightMode", _WeightMode, value)
+        End Set
+    End Property
+
+    <Browsable(False)> _
+    Property Storage As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+        End Set
+    End Property
+    Property StorageInRowsFrom As StorageInRows
+        Get
+            Return _StorageInRowsFrom
+        End Get
+        Set(value As StorageInRows)
+            SetPropertyValue("StorageInRowsFrom", _StorageInRowsFrom, 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
+    '//XPCollections
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows)
+        Get
+            Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("StorageInRows=?", Me))
+        End Get
+    End Property
+End Class
@@ -0,0 +1,74 @@
+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 StorageInRowsByDate 'Adott dátumra visszamenõleg készlet info sorai, amit action generál
+    Inherits BaseObject
+    Private _StorageInRows As StorageInRows 'Bevételi sor
+    Private _StorageByDate As StorageByDate 'lekérdezõ fejléc
+    Private _QTT As Double 'Mennyiség
+    Private _AmountHUFFIFO As Double 'Mennyiséghez tartozó érték FIFO szerint
+    Private _AmountHUFAverage As Double 'Átlagár szerinti é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
+
+    Property StorageInRows As StorageInRows
+        Get
+            Return _StorageInRows
+        End Get
+        Set(value As StorageInRows)
+            SetPropertyValue("StorageInRows", _StorageInRows, value)
+        End Set
+    End Property
+    Property StorageByDate As StorageByDate
+        Get
+            Return _StorageByDate
+        End Get
+        Set(value As StorageByDate)
+            SetPropertyValue("StorageByDate", _StorageByDate, 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 AmountHUFFIFO As Double
+        Get
+            Return _AmountHUFFIFO
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFFIFO", _AmountHUFFIFO, value)
+        End Set
+    End Property
+    Property AmountHUFAverage As Double
+        Get
+            Return _AmountHUFAverage
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUFAverage", _AmountHUFAverage, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,51 @@
+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 StorageInRowsLocation
+    Inherits BaseObject
+
+    Private _StorageInRows As StorageInRows
+    Private _StorageComputedLocations As StorageComputedLocations
+    Private _QTT As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property StorageInRows As StorageInRows
+        Get
+            Return _StorageInRows
+        End Get
+        Set(value As StorageInRows)
+            SetPropertyValue("StorageInRows", _StorageInRows, value)
+        End Set
+    End Property
+    Property StorageComputedLocations As StorageComputedLocations
+        Get
+            Return _StorageComputedLocations
+        End Get
+        Set(value As StorageComputedLocations)
+            SetPropertyValue("StorageComputedLocations", _StorageComputedLocations, 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
+End Class
@@ -0,0 +1,67 @@
+Partial Class StorageTransactionsInPrint
+
+	<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.aStorageTransactionsInPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aStorageInPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aStorageTransactionsInPrint
+        '
+        Me.aStorageTransactionsInPrint.Caption = "aStorageTransactionsInPrint"
+        Me.aStorageTransactionsInPrint.Category = "View"
+        Me.aStorageTransactionsInPrint.ConfirmationMessage = Nothing
+        Me.aStorageTransactionsInPrint.Id = "aStorageTransactionsInPrint"
+        Me.aStorageTransactionsInPrint.ImageName = Nothing
+        Me.aStorageTransactionsInPrint.Shortcut = Nothing
+        Me.aStorageTransactionsInPrint.Tag = Nothing
+        Me.aStorageTransactionsInPrint.TargetObjectsCriteria = Nothing
+        Me.aStorageTransactionsInPrint.TargetObjectType = GetType(Nuvolar.[Module].StorageInHeader)
+        Me.aStorageTransactionsInPrint.TargetViewId = Nothing
+        Me.aStorageTransactionsInPrint.ToolTip = Nothing
+        Me.aStorageTransactionsInPrint.TypeOfView = Nothing
+        '
+        'aStorageInPrint
+        '
+        Me.aStorageInPrint.Caption = "aStorage In Print"
+        Me.aStorageInPrint.ConfirmationMessage = Nothing
+        Me.aStorageInPrint.Id = "aStorageInPrint"
+        Me.aStorageInPrint.ImageName = "Action_Printing_Print"
+        Me.aStorageInPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aStorageInPrint.Shortcut = Nothing
+        Me.aStorageInPrint.Tag = Nothing
+        Me.aStorageInPrint.TargetObjectsCriteria = Nothing
+        Me.aStorageInPrint.TargetObjectType = GetType(Nuvolar.[Module].StorageInHeader)
+        Me.aStorageInPrint.TargetViewId = Nothing
+        Me.aStorageInPrint.ToolTip = Nothing
+        Me.aStorageInPrint.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aStorageTransactionsInPrint As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aStorageInPrint As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class
@@ -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="aStorageTransactionsInPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aStorageInPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>221, 56</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>
@@ -0,0 +1,46 @@
+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 StorageTransactionsInPrint
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+    Private Sub aStorageTransactionsInPrint_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorageTransactionsInPrint.Execute
+        Dim _ReportData As ReportData
+        Dim _StorageInHeader As StorageInHeader
+        If e.SelectedObjects.Count > 0 Then
+            _StorageInHeader = TryCast(e.SelectedObjects.Item(0), StorageInHeader)
+            If _StorageInHeader Is Nothing Then
+            Else
+                _ReportData = _StorageInHeader.Storage.ReportIn
+                If _ReportData Is Nothing Or _StorageInHeader Is Nothing Then
+                Else
+                    Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("DocumentNumber =?", _StorageInHeader.DocumentNumber), True)
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub aStorageInPrint_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aStorageInPrint.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _StorageInHeader As StorageInHeader = TryCast(View.SelectedObjects(0), StorageInHeader)
+
+        Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageInHeader.Storage.ReportIn.Oid), True)
+        If _ReportData Is Nothing Or _StorageInHeader Is Nothing Then
+        Else
+            Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageInHeader.DocumentNumber =?", _StorageInHeader.DocumentNumber), True)
+        End If
+    End Sub
+End Class
@@ -0,0 +1,279 @@
+Partial Class StorageTransactionsInVC
+
+	<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.aDown_StorageIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aUp_StorageIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTableD_SIH = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFinalizeAndNew_StorageIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTable_StorageIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBackToEdit_StorageInHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aStorageInStorno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aStorageInFromPdaCollection = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aFinalize_StorageIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aGenerateStorageInPDACollection = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aStorageInHeader_InsertInventoryTransfer = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aStorageInRows_Split = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aStorageInHeader_InsertInventoryTransfer_FIFO = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCheckInventoryTransfer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aDown_StorageIn
+        '
+        Me.aDown_StorageIn.Caption = "Down"
+        Me.aDown_StorageIn.Category = "RecordsNavigation"
+        Me.aDown_StorageIn.ConfirmationMessage = Nothing
+        Me.aDown_StorageIn.Id = "aDown_StorageIn"
+        Me.aDown_StorageIn.ImageName = "arrow_down_green"
+        Me.aDown_StorageIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aDown_StorageIn.Shortcut = Nothing
+        Me.aDown_StorageIn.Tag = Nothing
+        Me.aDown_StorageIn.TargetObjectsCriteria = Nothing
+        Me.aDown_StorageIn.TargetViewId = Nothing
+        Me.aDown_StorageIn.ToolTip = Nothing
+        Me.aDown_StorageIn.TypeOfView = Nothing
+        '
+        'aUp_StorageIn
+        '
+        Me.aUp_StorageIn.Caption = "Up"
+        Me.aUp_StorageIn.Category = "RecordsNavigation"
+        Me.aUp_StorageIn.ConfirmationMessage = Nothing
+        Me.aUp_StorageIn.Id = "aUp_StorageIn"
+        Me.aUp_StorageIn.ImageName = "arrow_up_green"
+        Me.aUp_StorageIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aUp_StorageIn.Shortcut = Nothing
+        Me.aUp_StorageIn.Tag = Nothing
+        Me.aUp_StorageIn.TargetObjectsCriteria = Nothing
+        Me.aUp_StorageIn.TargetViewId = Nothing
+        Me.aUp_StorageIn.ToolTip = Nothing
+        Me.aUp_StorageIn.TypeOfView = Nothing
+        '
+        'aToTableD_SIH
+        '
+        Me.aToTableD_SIH.Caption = "Delete row"
+        Me.aToTableD_SIH.Category = "aToTableD_SIH"
+        Me.aToTableD_SIH.ConfirmationMessage = Nothing
+        Me.aToTableD_SIH.Id = "aToTableD_SIH"
+        Me.aToTableD_SIH.ImageName = Nothing
+        Me.aToTableD_SIH.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aToTableD_SIH.Shortcut = Nothing
+        Me.aToTableD_SIH.Tag = Nothing
+        Me.aToTableD_SIH.TargetObjectsCriteria = Nothing
+        Me.aToTableD_SIH.TargetViewId = ""
+        Me.aToTableD_SIH.ToolTip = Nothing
+        Me.aToTableD_SIH.TypeOfView = Nothing
+        '
+        'aFinalizeAndNew_StorageIn
+        '
+        Me.aFinalizeAndNew_StorageIn.Caption = "aStorage In Final And New"
+        Me.aFinalizeAndNew_StorageIn.Category = "RecordEdit"
+        Me.aFinalizeAndNew_StorageIn.ConfirmationMessage = Nothing
+        Me.aFinalizeAndNew_StorageIn.Id = "aFinalizeAndNew_StorageIn"
+        Me.aFinalizeAndNew_StorageIn.ImageName = Nothing
+        Me.aFinalizeAndNew_StorageIn.Shortcut = Nothing
+        Me.aFinalizeAndNew_StorageIn.Tag = Nothing
+        Me.aFinalizeAndNew_StorageIn.TargetObjectsCriteria = Nothing
+        Me.aFinalizeAndNew_StorageIn.TargetViewId = Nothing
+        Me.aFinalizeAndNew_StorageIn.ToolTip = Nothing
+        Me.aFinalizeAndNew_StorageIn.TypeOfView = Nothing
+        '
+        'aToTable_StorageIn
+        '
+        Me.aToTable_StorageIn.Caption = "aSIHTo Table"
+        Me.aToTable_StorageIn.Category = "aToTable_StorageIn"
+        Me.aToTable_StorageIn.ConfirmationMessage = Nothing
+        Me.aToTable_StorageIn.Id = "aToTable_StorageIn"
+        Me.aToTable_StorageIn.ImageName = Nothing
+        Me.aToTable_StorageIn.Shortcut = Nothing
+        Me.aToTable_StorageIn.Tag = Nothing
+        Me.aToTable_StorageIn.TargetObjectsCriteria = Nothing
+        Me.aToTable_StorageIn.TargetViewId = Nothing
+        Me.aToTable_StorageIn.ToolTip = Nothing
+        Me.aToTable_StorageIn.TypeOfView = Nothing
+        '
+        'aBackToEdit_StorageInHeader
+        '
+        Me.aBackToEdit_StorageInHeader.Caption = "aBackToEdit_StorageInHeader"
+        Me.aBackToEdit_StorageInHeader.Category = "Edit"
+        Me.aBackToEdit_StorageInHeader.ConfirmationMessage = Nothing
+        Me.aBackToEdit_StorageInHeader.Id = "aBackToEdit_StorageInHeader"
+        Me.aBackToEdit_StorageInHeader.ImageName = Nothing
+        Me.aBackToEdit_StorageInHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBackToEdit_StorageInHeader.Shortcut = Nothing
+        Me.aBackToEdit_StorageInHeader.Tag = Nothing
+        Me.aBackToEdit_StorageInHeader.TargetObjectsCriteria = Nothing
+        Me.aBackToEdit_StorageInHeader.TargetViewId = Nothing
+        Me.aBackToEdit_StorageInHeader.ToolTip = Nothing
+        Me.aBackToEdit_StorageInHeader.TypeOfView = Nothing
+        '
+        'aStorageInStorno
+        '
+        Me.aStorageInStorno.Caption = "aStorage In Storno"
+        Me.aStorageInStorno.Category = "Edit"
+        Me.aStorageInStorno.ConfirmationMessage = Nothing
+        Me.aStorageInStorno.Id = "aStorageInStorno"
+        Me.aStorageInStorno.ImageName = "document_delete"
+        Me.aStorageInStorno.Shortcut = Nothing
+        Me.aStorageInStorno.Tag = Nothing
+        Me.aStorageInStorno.TargetObjectsCriteria = Nothing
+        Me.aStorageInStorno.TargetViewId = Nothing
+        Me.aStorageInStorno.ToolTip = Nothing
+        Me.aStorageInStorno.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aStorageInFromPdaCollection
+        '
+        Me.aStorageInFromPdaCollection.AcceptButtonCaption = Nothing
+        Me.aStorageInFromPdaCollection.CancelButtonCaption = Nothing
+        Me.aStorageInFromPdaCollection.Caption = "StorageIn From Pda Collection"
+        Me.aStorageInFromPdaCollection.Category = "aStorageInFromPdaCollection"
+        Me.aStorageInFromPdaCollection.ConfirmationMessage = Nothing
+        Me.aStorageInFromPdaCollection.Id = "aStorageInFromPdaCollection"
+        Me.aStorageInFromPdaCollection.ImageName = Nothing
+        Me.aStorageInFromPdaCollection.Shortcut = Nothing
+        Me.aStorageInFromPdaCollection.Tag = Nothing
+        Me.aStorageInFromPdaCollection.TargetObjectsCriteria = Nothing
+        Me.aStorageInFromPdaCollection.TargetViewId = Nothing
+        Me.aStorageInFromPdaCollection.ToolTip = Nothing
+        Me.aStorageInFromPdaCollection.TypeOfView = Nothing
+        '
+        'aFinalize_StorageIn
+        '
+        Me.aFinalize_StorageIn.Caption = "aStorage In Final"
+        Me.aFinalize_StorageIn.Category = "RecordEdit"
+        Me.aFinalize_StorageIn.ConfirmationMessage = Nothing
+        Me.aFinalize_StorageIn.Id = "aFinalize_StorageIn"
+        Me.aFinalize_StorageIn.ImageName = Nothing
+        Me.aFinalize_StorageIn.Shortcut = Nothing
+        Me.aFinalize_StorageIn.Tag = Nothing
+        Me.aFinalize_StorageIn.TargetObjectsCriteria = Nothing
+        Me.aFinalize_StorageIn.TargetObjectType = GetType(Nuvolar.[Module].StorageInHeader)
+        Me.aFinalize_StorageIn.TargetViewId = Nothing
+        Me.aFinalize_StorageIn.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aFinalize_StorageIn.ToolTip = Nothing
+        Me.aFinalize_StorageIn.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aGenerateStorageInPDACollection
+        '
+        Me.aGenerateStorageInPDACollection.AcceptButtonCaption = Nothing
+        Me.aGenerateStorageInPDACollection.CancelButtonCaption = Nothing
+        Me.aGenerateStorageInPDACollection.Caption = "aGenerateStorageInPDACollection"
+        Me.aGenerateStorageInPDACollection.Category = "Edit"
+        Me.aGenerateStorageInPDACollection.ConfirmationMessage = Nothing
+        Me.aGenerateStorageInPDACollection.Id = "aGenerateStorageInPDACollection"
+        Me.aGenerateStorageInPDACollection.ImageName = Nothing
+        Me.aGenerateStorageInPDACollection.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aGenerateStorageInPDACollection.Shortcut = Nothing
+        Me.aGenerateStorageInPDACollection.Tag = Nothing
+        Me.aGenerateStorageInPDACollection.TargetObjectsCriteria = Nothing
+        Me.aGenerateStorageInPDACollection.TargetObjectType = GetType(Nuvolar.[Module].StorageInHeader)
+        Me.aGenerateStorageInPDACollection.TargetViewId = Nothing
+        Me.aGenerateStorageInPDACollection.ToolTip = Nothing
+        Me.aGenerateStorageInPDACollection.TypeOfView = Nothing
+        '
+        'aStorageInHeader_InsertInventoryTransfer
+        '
+        Me.aStorageInHeader_InsertInventoryTransfer.AcceptButtonCaption = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer.CancelButtonCaption = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer.Caption = "aStorageInHeader_InsertInventoryTransfer"
+        Me.aStorageInHeader_InsertInventoryTransfer.Category = "aStorageInHeader_InsertInventoryTransfer"
+        Me.aStorageInHeader_InsertInventoryTransfer.ConfirmationMessage = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer.Id = "aStorageInHeader_InsertInventoryTransfer"
+        Me.aStorageInHeader_InsertInventoryTransfer.ImageName = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer.Shortcut = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer.Tag = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer.TargetObjectsCriteria = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer.TargetObjectType = GetType(Nuvolar.[Module].StorageInHeader)
+        Me.aStorageInHeader_InsertInventoryTransfer.TargetViewId = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer.ToolTip = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer.TypeOfView = Nothing
+        '
+        'aStorageInRows_Split
+        '
+        Me.aStorageInRows_Split.AcceptButtonCaption = Nothing
+        Me.aStorageInRows_Split.CancelButtonCaption = Nothing
+        Me.aStorageInRows_Split.Caption = "aStorageInRows_Split"
+        Me.aStorageInRows_Split.ConfirmationMessage = Nothing
+        Me.aStorageInRows_Split.Id = "aStorageInRows_Split"
+        Me.aStorageInRows_Split.ImageName = Nothing
+        Me.aStorageInRows_Split.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aStorageInRows_Split.Shortcut = Nothing
+        Me.aStorageInRows_Split.Tag = Nothing
+        Me.aStorageInRows_Split.TargetObjectsCriteria = "QTT_Out_Will=0 AND QTT_Will=0"
+        Me.aStorageInRows_Split.TargetObjectType = GetType(Nuvolar.[Module].StorageInRows)
+        Me.aStorageInRows_Split.TargetViewId = Nothing
+        Me.aStorageInRows_Split.ToolTip = Nothing
+        Me.aStorageInRows_Split.TypeOfView = Nothing
+        '
+        'aStorageInHeader_InsertInventoryTransfer_FIFO
+        '
+        Me.aStorageInHeader_InsertInventoryTransfer_FIFO.AcceptButtonCaption = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer_FIFO.CancelButtonCaption = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer_FIFO.Caption = "aStorageInHeader_InsertInventoryTransfer_FIFO"
+        Me.aStorageInHeader_InsertInventoryTransfer_FIFO.Category = "aStorageInHeader_InsertInventoryTransfer_FIFO"
+        Me.aStorageInHeader_InsertInventoryTransfer_FIFO.ConfirmationMessage = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer_FIFO.Id = "aStorageInHeader_InsertInventoryTransfer_FIFO"
+        Me.aStorageInHeader_InsertInventoryTransfer_FIFO.ImageName = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer_FIFO.Shortcut = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer_FIFO.Tag = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer_FIFO.TargetObjectsCriteria = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer_FIFO.TargetObjectType = GetType(Nuvolar.[Module].StorageInHeader)
+        Me.aStorageInHeader_InsertInventoryTransfer_FIFO.TargetViewId = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer_FIFO.ToolTip = Nothing
+        Me.aStorageInHeader_InsertInventoryTransfer_FIFO.TypeOfView = Nothing
+        '
+        'aCheckInventoryTransfer
+        '
+        Me.aCheckInventoryTransfer.Caption = "aCheckInventoryTransfer"
+        Me.aCheckInventoryTransfer.Category = "aCheckInventoryTransfer"
+        Me.aCheckInventoryTransfer.ConfirmationMessage = Nothing
+        Me.aCheckInventoryTransfer.Id = "aCheckInventoryTransfer"
+        Me.aCheckInventoryTransfer.ImageName = Nothing
+        Me.aCheckInventoryTransfer.Shortcut = Nothing
+        Me.aCheckInventoryTransfer.Tag = Nothing
+        Me.aCheckInventoryTransfer.TargetObjectsCriteria = Nothing
+        Me.aCheckInventoryTransfer.TargetObjectType = GetType(Nuvolar.[Module].StorageInHeader)
+        Me.aCheckInventoryTransfer.TargetViewId = Nothing
+        Me.aCheckInventoryTransfer.ToolTip = Nothing
+        Me.aCheckInventoryTransfer.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aStorageInStorno As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFinalize_StorageIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aDown_StorageIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aUp_StorageIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTableD_SIH As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFinalizeAndNew_StorageIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTable_StorageIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aBackToEdit_StorageInHeader As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aStorageInFromPdaCollection As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aGenerateStorageInPDACollection As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aStorageInHeader_InsertInventoryTransfer As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aStorageInRows_Split As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aStorageInHeader_InsertInventoryTransfer_FIFO As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCheckInventoryTransfer As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class
@@ -0,0 +1,165 @@
+<?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="aDown_StorageIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>255, 17</value>
+  </metadata>
+  <metadata name="aUp_StorageIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>683, 17</value>
+  </metadata>
+  <metadata name="aToTableD_SIH.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aFinalizeAndNew_StorageIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>150, 56</value>
+  </metadata>
+  <metadata name="aToTable_StorageIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>333, 56</value>
+  </metadata>
+  <metadata name="aBackToEdit_StorageInHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>453, 56</value>
+  </metadata>
+  <metadata name="aStorageInStorno.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>185, 95</value>
+  </metadata>
+  <metadata name="aStorageInFromPdaCollection.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>332, 95</value>
+  </metadata>
+  <metadata name="aFinalize_StorageIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>514, 134</value>
+  </metadata>
+  <metadata name="aGenerateStorageInPDACollection.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="aStorageInHeader_InsertInventoryTransfer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>402, 17</value>
+  </metadata>
+  <metadata name="aStorageInRows_Split.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aStorageInHeader_InsertInventoryTransfer_FIFO.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aCheckInventoryTransfer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>328, 134</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>
@@ -0,0 +1,107 @@
+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 InventoryDifferent
+    Inherits BaseObject
+    Private _InventoryHeader As InventoryHeader
+    Private _Products As Products
+    Private _QTT_SC_Free As Double
+    Private _QTT_SC_Found As Double
+    Private _QTT_PDA As Double 'Leltározott mennyiség
+    Private _SumPriceHUF As Double
+    Private _SumPriceDEV As Double
+    Private _QTT_In As Double
+    Private _QTT_Out As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("InventoryHeader-InventoryDifferent", GetType(InventoryHeader))> _
+    Property InventoryHeader As InventoryHeader
+        Get
+            Return _InventoryHeader
+        End Get
+        Set(value As InventoryHeader)
+            SetPropertyValue("InventoryHeader", _InventoryHeader, 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 QTT_SC_Free As Double
+        Get
+            Return _QTT_SC_Free
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_SC_Free", _QTT_SC_Free, value)
+        End Set
+    End Property
+    Property QTT_SC_Found As Double
+        Get
+            Return _QTT_SC_Found
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_SC_Found", _QTT_SC_Found, value)
+        End Set
+    End Property
+    Property QTT_PDA As Double
+        Get
+            Return _QTT_PDA
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_PDA", _QTT_PDA, value)
+        End Set
+    End Property
+    Property SumPriceHUF As Double
+        Get
+            Return _SumPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceHUF", _SumPriceHUF, value)
+        End Set
+    End Property
+    Property SumPriceDEV As Double
+        Get
+            Return _SumPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceDEV", _SumPriceDEV, value)
+        End Set
+    End Property
+    Property QTT_In As Double
+        Get
+            Return _QTT_In
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_In", _QTT_In, value)
+        End Set
+    End Property
+    Property QTT_Out As Double
+        Get
+            Return _QTT_Out
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Out", _QTT_Out, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,207 @@
+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
+
+Public Enum eInventoryStatus
+    eOpen = 0
+    eClosed = 1
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("StorageTransactions"), CreatableItem(False)> _
+<Appearance("Disable InventoryHeader-ObjectCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("Disable InventoryHeader-UserCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
+<Appearance("Disable InventoryHeader-InventoryStatus", AppearanceItemType.ViewItem, "1=1", TargetItems:="InventoryStatus", Enabled:=False)> _
+<Appearance("Disable InventoryHeader-InventoryHeaderDateClose", AppearanceItemType.ViewItem, "1=1", TargetItems:="InventoryHeaderDateClose", Enabled:=False)> _
+<Appearance("Disable InventoryHeader-Storage", AppearanceItemType.ViewItem, "1=1", TargetItems:="Storage", Enabled:=False)> _
+<Appearance("Disable InventoryHeader-DocumentNumber", AppearanceItemType.ViewItem, "1=1", TargetItems:="DocumentNumber", Enabled:=False)> _
+Public Class InventoryHeader
+    Inherits BaseObject
+
+    Private _DocumentNumber As String
+    Private _Storage As Storage
+    Private _InventoryStatus As eInventoryStatus
+    Private _InventoryParameters As InventoryParameters
+    Private _DateClose As Date
+    Private _InventoryHeaderDateClose As Date
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _ExcelProperty As String
+    Private _ExcelFile As FileData
+    Private _InventoryInspector As HRPerson 'Ellenõr
+    Private _InventoryCreator As HRPerson 'Leltárt készítõ/elvégzõ/végrehejtó
+    Private _InventorySignedDocument As FileData
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.InventoryStatus = eInventoryStatus.eOpen
+    End Sub
+
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If String.IsNullOrEmpty(DocumentNumber) Then
+            DocumentNumber = InventoryParameters.NumberGenerator.GetNewNumber(InventoryParameters.NumberGenerator)
+        End If
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, 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
+    Property InventoryStatus As eInventoryStatus
+        Get
+            Return _InventoryStatus
+        End Get
+        Set(value As eInventoryStatus)
+            SetPropertyValue("InventoryStatus", _InventoryStatus, value)
+        End Set
+    End Property
+    <RuleRequiredField("InventoryHeader -InventoryParameters ", DefaultContexts.Save)> _
+    Property InventoryParameters As InventoryParameters
+        Get
+            Return _InventoryParameters
+        End Get
+        Set(value As InventoryParameters)
+            SetPropertyValue("InventoryParameters", _InventoryParameters, value)
+        End Set
+    End Property
+    Property DateClose As Date
+        Get
+            Return _DateClose
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateClose", _DateClose, value)
+        End Set
+    End Property
+    Property InventoryHeaderDateClose As Date
+        Get
+            Return _InventoryHeaderDateClose
+        End Get
+        Set(value As Date)
+            SetPropertyValue("InventoryHeaderDateClose", _InventoryHeaderDateClose, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+    <Size(-1)> _
+   <ImmediatePostData(True)> _
+    Property ExcelProperty As String
+        Get
+            Return _ExcelProperty
+        End Get
+        Set(value As String)
+            SetPropertyValue("ExcelProperty", _ExcelProperty, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    <VisibleInDetailView(False)> _
+    Property ExcelFile As FileData
+        Get
+            Return _ExcelFile
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("ExcelFile", _ExcelFile, value)
+        End Set
+    End Property
+    <RuleRequiredField("InventoryHeader - InventoryInspector ", DefaultContexts.Save)> _
+    Property InventoryInspector As HRPerson
+        Get
+            Return _InventoryInspector
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("InventoryInspector", _InventoryInspector, value)
+        End Set
+    End Property
+    <RuleRequiredField("InventoryHeader - InventoryCreator ", DefaultContexts.Save)> _
+    Property InventoryCreator As HRPerson
+        Get
+            Return _InventoryCreator
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("InventoryCreator", _InventoryCreator, value)
+        End Set
+    End Property
+    Property InventorySignedDocument As FileData
+        Get
+            Return _InventorySignedDocument
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("InventorySignedDocument", _InventorySignedDocument, value)
+        End Set
+    End Property
+
+    '-------------------------ReadOnly-----------------------
+    <VisibleInListView(False)> _
+    <Aggregated()> _
+    <Association("InventoryHeader-InventorySC", GetType(InventorySC))> _
+    Public ReadOnly Property InventorySC() As XPCollection(Of InventorySC)
+        Get
+            Return GetCollection(Of InventorySC)("InventorySC")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Aggregated()> _
+    <Association("InventoryHeader-InventorySIR", GetType(InventorySIR))> _
+    Public ReadOnly Property InventorySIR() As XPCollection(Of InventorySIR)
+        Get
+            Return GetCollection(Of InventorySIR)("InventorySIR")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+   <Aggregated()> _
+   <Association("InventoryHeader-InventoryPDA", GetType(InventoryPDA))> _
+    Public ReadOnly Property InventoryPDA() As XPCollection(Of InventoryPDA)
+        Get
+            Return GetCollection(Of InventoryPDA)("InventoryPDA")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Aggregated()> _
+    <Association("InventoryHeader-InventoryDifferent", GetType(InventoryDifferent))> _
+    Public ReadOnly Property InventoryDifferent() As XPCollection(Of InventoryDifferent)
+        Get
+            Return GetCollection(Of InventoryDifferent)("InventoryDifferent")
+        End Get
+    End Property
+End Class
@@ -0,0 +1,50 @@
+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 InventoryPDA
+    Inherits BaseObject
+    Private _InventoryHeader As InventoryHeader
+    Private _StoragePDACollectionHeader As StoragePDACollectionHeader
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("InventoryHeader-InventoryPDA", GetType(InventoryHeader))> _
+    Property InventoryHeader As InventoryHeader
+        Get
+            Return _InventoryHeader
+        End Get
+        Set(value As InventoryHeader)
+            SetPropertyValue("InventoryHeader", _InventoryHeader, value)
+        End Set
+    End Property
+    Property StoragePDACollectionHeader As StoragePDACollectionHeader
+        Get
+            Return _StoragePDACollectionHeader
+        End Get
+        Set(value As StoragePDACollectionHeader)
+            SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, value)
+        End Set
+    End Property
+
+    <VisibleInListView(False), VisibleInDetailView(False)> _
+    ReadOnly Property StoragePDACollectionRows As XPCollection(Of StoragePDACollectionRows)
+        Get
+            Return New XPCollection(Of StoragePDACollectionRows)(Session, Session.ParseCriteria("StoragePDACollectionHeader=?", Me.StoragePDACollectionHeader))
+        End Get
+    End Property
+End Class
@@ -0,0 +1,78 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<CreatableItem(False)> _
+<NavigationItem(False)> _
+<DefaultProperty("NumberGenerator")> _
+Public Class InventoryParameters
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _Storage As Storage
+    Private _NumberGenerator As NumberGenerator
+    Private _ExcelProperty As String
+    Private _ExcelFile As FileData
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <RuleRequiredField("InventoryParameters - CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("InventoryParameters - Storage", DefaultContexts.Save)> _
+    Property Storage As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+        End Set
+    End Property
+    <RuleRequiredField("InventoryParameters - NumberGenerator", DefaultContexts.Save)> _
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property ExcelProperty As String
+        Get
+            Return _ExcelProperty
+        End Get
+        Set(value As String)
+            SetPropertyValue("ExcelProperty", _ExcelProperty, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    <VisibleInDetailView(False)> _
+    Property ExcelFile As FileData
+        Get
+            Return _ExcelFile
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("ExcelFile", _ExcelFile, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,141 @@
+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 InventorySC
+    Inherits BaseObject
+    Private _InventoryHeader As InventoryHeader
+    Private _Products As Products
+    Private _QTT As Double 'Raktáron lévõ mennyiség GÉPI készlet
+    Private _QTT_Found As Double 'Raktáron lévõ TALÁLT mennyiség
+    Private _QTT_Different As Double 'Különbség GÉPI-TALÁLT
+    Private _AveragePriceHUF As Double 'Mérlegelt átlagár adott záró dátumra vonatkozólag
+    Private _SumAveragePriceHUF_Found As Double 'Talált átlagár
+    Private _SumAveragePriceHUF As Double 'Gépi érték
+    Private _SumAveragePriceHUF_Different As Double 'különbség érték
+    Private _SumAveragePriceHUF_Surplus As Double 'Összes Többlet
+    Private _SumAveragePriceHUF_Want As Double 'Összes Hiány
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("InventoryHeader-InventorySC", GetType(InventoryHeader))> _
+    Property InventoryHeader As InventoryHeader
+        Get
+            Return _InventoryHeader
+        End Get
+        Set(value As InventoryHeader)
+            SetPropertyValue("InventoryHeader", _InventoryHeader, 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 QTT As Double
+        Get
+            Return Math.Round(_QTT, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT", _QTT, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+        End Set
+    End Property
+    Property QTT_Found As Double
+        Get
+            Return Math.Round(_QTT_Found, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Found", _QTT_Found, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                QTT_Different = Math.Round(value - QTT, 4, MidpointRounding.AwayFromZero)
+
+                SumAveragePriceHUF_Found = AveragePriceHUF * value
+                SumAveragePriceHUF_Different = SumAveragePriceHUF_Found - SumAveragePriceHUF
+
+                If SumAveragePriceHUF_Different > 0 Then
+                    SumAveragePriceHUF_Surplus = SumAveragePriceHUF_Different
+                Else
+                    SumAveragePriceHUF_Want = Math.Abs(SumAveragePriceHUF_Different)
+                End If
+            End If
+        End Set
+    End Property
+    Property QTT_Different As Double
+        Get
+            Return Math.Round(_QTT_Different, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Different", _QTT_Different, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+        End Set
+    End Property
+    Property AveragePriceHUF As Double
+        Get
+            Return _AveragePriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AveragePriceHUF", _AveragePriceHUF, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                SumAveragePriceHUF_Found = Math.Round(AveragePriceHUF * QTT_Found, 0, MidpointRounding.AwayFromZero)
+                SumAveragePriceHUF = Math.Round(AveragePriceHUF * QTT, 0, MidpointRounding.AwayFromZero)
+                SumAveragePriceHUF_Different = Math.Round(AveragePriceHUF * QTT_Different, 0, MidpointRounding.AwayFromZero)
+            End If
+        End Set
+    End Property
+    Property SumAveragePriceHUF_Found As Double
+        Get
+            Return _SumAveragePriceHUF_Found
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceHUF_Found", _SumAveragePriceHUF_Found, value)
+        End Set
+    End Property
+    Property SumAveragePriceHUF As Double
+        Get
+            Return Math.Round(_SumAveragePriceHUF, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceHUF", _SumAveragePriceHUF, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+        End Set
+    End Property
+    Property SumAveragePriceHUF_Different As Double
+        Get
+            Return Math.Round(_SumAveragePriceHUF_Different, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceHUF_Different", _SumAveragePriceHUF_Different, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+        End Set
+    End Property
+    Property SumAveragePriceHUF_Surplus As Double
+        Get
+            Return _SumAveragePriceHUF_Surplus
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceHUF_Surplus", _SumAveragePriceHUF_Surplus, value)
+        End Set
+    End Property
+    Property SumAveragePriceHUF_Want As Double
+        Get
+            Return _SumAveragePriceHUF_Want
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceHUF_Want", _SumAveragePriceHUF_Want, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,141 @@
+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 InventorySIR
+    Inherits BaseObject
+    Private _InventoryHeader As InventoryHeader
+    Private _StorageInRows As StorageInRows
+    Private _QTT As Double
+    Private _QTT_Found As Double
+    Private _QTT_Different As Double
+    Private _AveragePriceHUF As Double 'Mérlegelt átlagár adott záró dátumra vonatkozólag
+    Private _SumAveragePriceHUF_Found As Double 'Talált átlagár
+    Private _SumAveragePriceHUF As Double
+    Private _SumAveragePriceHUF_Different As Double
+    Private _SumAveragePriceHUF_Surplus As Double 'Többlet
+    Private _SumAveragePriceHUF_Want As Double 'Hiány
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("InventoryHeader-InventorySIR", GetType(InventoryHeader))> _
+    Property InventoryHeader As InventoryHeader
+        Get
+            Return _InventoryHeader
+        End Get
+        Set(value As InventoryHeader)
+            SetPropertyValue("InventoryHeader", _InventoryHeader, value)
+        End Set
+    End Property
+    Property StorageInRows As StorageInRows
+        Get
+            Return _StorageInRows
+        End Get
+        Set(value As StorageInRows)
+            SetPropertyValue("StorageInRows", _StorageInRows, value)
+        End Set
+    End Property
+    Property QTT As Double
+        Get
+            Return _QTT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property QTT_Found As Double
+        Get
+            Return Math.Round(_QTT_Found, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Found", _QTT_Found, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                QTT_Different = Math.Round(value - QTT, 4, MidpointRounding.AwayFromZero)
+
+                SumAveragePriceHUF_Found = AveragePriceHUF * value
+                SumAveragePriceHUF_Different = SumAveragePriceHUF_Found - SumAveragePriceHUF
+
+                If SumAveragePriceHUF_Different > 0 Then
+                    SumAveragePriceHUF_Surplus = SumAveragePriceHUF_Different
+                Else
+                    SumAveragePriceHUF_Want = Math.Abs(SumAveragePriceHUF_Different)
+                End If
+            End If
+        End Set
+    End Property
+    Property QTT_Different As Double
+        Get
+            Return Math.Round(_QTT_Different, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Different", _QTT_Different, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+        End Set
+    End Property
+    Property AveragePriceHUF As Double
+        Get
+            Return _AveragePriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AveragePriceHUF", _AveragePriceHUF, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                SumAveragePriceHUF_Found = Math.Round(AveragePriceHUF * QTT_Found, 0, MidpointRounding.AwayFromZero)
+                SumAveragePriceHUF = Math.Round(AveragePriceHUF * QTT, 0, MidpointRounding.AwayFromZero)
+                SumAveragePriceHUF_Different = Math.Round(AveragePriceHUF * QTT_Different, 0, MidpointRounding.AwayFromZero)
+            End If
+        End Set
+    End Property
+    Property SumAveragePriceHUF_Found As Double
+        Get
+            Return _SumAveragePriceHUF_Found
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceHUF_Found", _SumAveragePriceHUF_Found, value)
+        End Set
+    End Property
+    Property SumAveragePriceHUF As Double
+        Get
+            Return Math.Round(_SumAveragePriceHUF, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceHUF", _SumAveragePriceHUF, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+        End Set
+    End Property
+    Property SumAveragePriceHUF_Different As Double
+        Get
+            Return Math.Round(_SumAveragePriceHUF_Different, 4, MidpointRounding.AwayFromZero)
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceHUF_Different", _SumAveragePriceHUF_Different, Math.Round(value, 4, MidpointRounding.AwayFromZero))
+        End Set
+    End Property
+    Property SumAveragePriceHUF_Surplus As Double
+        Get
+            Return _SumAveragePriceHUF_Surplus
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceHUF_Surplus", _SumAveragePriceHUF_Surplus, value)
+        End Set
+    End Property
+    Property SumAveragePriceHUF_Want As Double
+        Get
+            Return _SumAveragePriceHUF_Want
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumAveragePriceHUF_Want", _SumAveragePriceHUF_Want, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,167 @@
+Partial Class InventoryVC
+
+	<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.aCloseInventoryHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateInventoryHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCreatePDACollection = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateDifferent = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aInventory_Print = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aInventoryHeader_RecreateInventory = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aInventoryHeader_LoadSpreadFromParameters = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aInventoryRecalculatePrice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aCloseInventoryHeader
+        '
+        Me.aCloseInventoryHeader.Caption = "aCloseInventoryHeader"
+        Me.aCloseInventoryHeader.Category = "RecordEdit"
+        Me.aCloseInventoryHeader.ConfirmationMessage = Nothing
+        Me.aCloseInventoryHeader.Id = "aCloseInventoryHeader"
+        Me.aCloseInventoryHeader.ImageName = Nothing
+        Me.aCloseInventoryHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCloseInventoryHeader.Shortcut = Nothing
+        Me.aCloseInventoryHeader.Tag = Nothing
+        Me.aCloseInventoryHeader.TargetObjectsCriteria = Nothing
+        Me.aCloseInventoryHeader.TargetViewId = Nothing
+        Me.aCloseInventoryHeader.ToolTip = Nothing
+        Me.aCloseInventoryHeader.TypeOfView = Nothing
+        '
+        'aCreateInventoryHeader
+        '
+        Me.aCreateInventoryHeader.AcceptButtonCaption = Nothing
+        Me.aCreateInventoryHeader.CancelButtonCaption = Nothing
+        Me.aCreateInventoryHeader.Caption = "aCreateInventoryHeader"
+        Me.aCreateInventoryHeader.Category = "ObjectsCreation"
+        Me.aCreateInventoryHeader.ConfirmationMessage = Nothing
+        Me.aCreateInventoryHeader.Id = "aCreateInventoryHeader"
+        Me.aCreateInventoryHeader.ImageName = Nothing
+        Me.aCreateInventoryHeader.Shortcut = Nothing
+        Me.aCreateInventoryHeader.Tag = Nothing
+        Me.aCreateInventoryHeader.TargetObjectsCriteria = Nothing
+        Me.aCreateInventoryHeader.TargetViewId = Nothing
+        Me.aCreateInventoryHeader.ToolTip = Nothing
+        Me.aCreateInventoryHeader.TypeOfView = Nothing
+        '
+        'aCreatePDACollection
+        '
+        Me.aCreatePDACollection.Caption = "aCreatePDACollection"
+        Me.aCreatePDACollection.ConfirmationMessage = Nothing
+        Me.aCreatePDACollection.Id = "aCreatePDACollection"
+        Me.aCreatePDACollection.ImageName = Nothing
+        Me.aCreatePDACollection.Shortcut = Nothing
+        Me.aCreatePDACollection.Tag = Nothing
+        Me.aCreatePDACollection.TargetObjectsCriteria = Nothing
+        Me.aCreatePDACollection.TargetViewId = Nothing
+        Me.aCreatePDACollection.ToolTip = Nothing
+        Me.aCreatePDACollection.TypeOfView = Nothing
+        '
+        'aCreateDifferent
+        '
+        Me.aCreateDifferent.Caption = "aCreateDifferent"
+        Me.aCreateDifferent.ConfirmationMessage = Nothing
+        Me.aCreateDifferent.Id = "aCreateDifferent"
+        Me.aCreateDifferent.ImageName = Nothing
+        Me.aCreateDifferent.Shortcut = Nothing
+        Me.aCreateDifferent.Tag = Nothing
+        Me.aCreateDifferent.TargetObjectsCriteria = Nothing
+        Me.aCreateDifferent.TargetViewId = Nothing
+        Me.aCreateDifferent.ToolTip = Nothing
+        Me.aCreateDifferent.TypeOfView = Nothing
+        '
+        'aInventory_Print
+        '
+        Me.aInventory_Print.Caption = "aInventory_Print"
+        Me.aInventory_Print.ConfirmationMessage = Nothing
+        Me.aInventory_Print.Id = "aInventory_Print"
+        Me.aInventory_Print.ImageName = Nothing
+        Me.aInventory_Print.Shortcut = Nothing
+        Me.aInventory_Print.Tag = Nothing
+        Me.aInventory_Print.TargetObjectsCriteria = Nothing
+        Me.aInventory_Print.TargetObjectType = GetType(Nuvolar.[Module].InventoryHeader)
+        Me.aInventory_Print.TargetViewId = Nothing
+        Me.aInventory_Print.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aInventory_Print.ToolTip = Nothing
+        Me.aInventory_Print.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aInventoryHeader_RecreateInventory
+        '
+        Me.aInventoryHeader_RecreateInventory.Caption = "aInventoryHeader_RecreateInventory"
+        Me.aInventoryHeader_RecreateInventory.Category = "ObjectsCreation"
+        Me.aInventoryHeader_RecreateInventory.ConfirmationMessage = "Are you sure ?"
+        Me.aInventoryHeader_RecreateInventory.Id = "aInventoryHeader_RecreateInventory"
+        Me.aInventoryHeader_RecreateInventory.ImageName = Nothing
+        Me.aInventoryHeader_RecreateInventory.Shortcut = Nothing
+        Me.aInventoryHeader_RecreateInventory.Tag = Nothing
+        Me.aInventoryHeader_RecreateInventory.TargetObjectsCriteria = Nothing
+        Me.aInventoryHeader_RecreateInventory.TargetObjectType = GetType(Nuvolar.[Module].InventoryHeader)
+        Me.aInventoryHeader_RecreateInventory.TargetViewId = Nothing
+        Me.aInventoryHeader_RecreateInventory.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aInventoryHeader_RecreateInventory.ToolTip = Nothing
+        Me.aInventoryHeader_RecreateInventory.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aInventoryHeader_LoadSpreadFromParameters
+        '
+        Me.aInventoryHeader_LoadSpreadFromParameters.Caption = "aInventoryHeader_LoadSpreadFromParameters"
+        Me.aInventoryHeader_LoadSpreadFromParameters.Category = "aInventoryHeader_LoadSpreadFromParameters"
+        Me.aInventoryHeader_LoadSpreadFromParameters.ConfirmationMessage = Nothing
+        Me.aInventoryHeader_LoadSpreadFromParameters.Id = "aInventoryHeader_LoadSpreadFromParameters"
+        Me.aInventoryHeader_LoadSpreadFromParameters.ImageName = Nothing
+        Me.aInventoryHeader_LoadSpreadFromParameters.Shortcut = Nothing
+        Me.aInventoryHeader_LoadSpreadFromParameters.Tag = Nothing
+        Me.aInventoryHeader_LoadSpreadFromParameters.TargetObjectsCriteria = Nothing
+        Me.aInventoryHeader_LoadSpreadFromParameters.TargetObjectType = GetType(Nuvolar.[Module].InventoryHeader)
+        Me.aInventoryHeader_LoadSpreadFromParameters.TargetViewId = Nothing
+        Me.aInventoryHeader_LoadSpreadFromParameters.ToolTip = Nothing
+        Me.aInventoryHeader_LoadSpreadFromParameters.TypeOfView = Nothing
+        '
+        'aInventoryRecalculatePrice
+        '
+        Me.aInventoryRecalculatePrice.Caption = "aInventory Recalculate Price"
+        Me.aInventoryRecalculatePrice.ConfirmationMessage = "Are you sure ?"
+        Me.aInventoryRecalculatePrice.Id = "aInventoryRecalculatePrice"
+        Me.aInventoryRecalculatePrice.ImageName = Nothing
+        Me.aInventoryRecalculatePrice.Shortcut = Nothing
+        Me.aInventoryRecalculatePrice.Tag = Nothing
+        Me.aInventoryRecalculatePrice.TargetObjectsCriteria = Nothing
+        Me.aInventoryRecalculatePrice.TargetObjectType = GetType(Nuvolar.[Module].InventoryHeader)
+        Me.aInventoryRecalculatePrice.TargetViewId = Nothing
+        Me.aInventoryRecalculatePrice.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aInventoryRecalculatePrice.ToolTip = Nothing
+        Me.aInventoryRecalculatePrice.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+
+    End Sub
+    Friend WithEvents aCloseInventoryHeader As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateInventoryHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCreatePDACollection As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateDifferent As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aInventory_Print As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aInventoryHeader_RecreateInventory As DevExpress.ExpressApp.Actions.SimpleAction
+    Protected WithEvents aInventoryHeader_LoadSpreadFromParameters As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aInventoryRecalculatePrice As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class
@@ -0,0 +1,147 @@
+<?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="aCloseInventoryHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aCreateInventoryHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 290</value>
+  </metadata>
+  <metadata name="aCreatePDACollection.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aCreateDifferent.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aInventory_Print.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aInventoryHeader_RecreateInventory.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aInventoryHeader_LoadSpreadFromParameters.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aInventoryRecalculatePrice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>577, 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>
@@ -0,0 +1,463 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.CloneObject
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.Utils
+Imports System.IO
+Imports DevExpress.Persistent.BaseImpl
+
+Public Class InventoryVC
+    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()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        Frame.GetController(Of InventoryVC).aCreateInventoryHeader.Active.SetItemValue("", False)
+        Frame.GetController(Of InventoryVC).aCloseInventoryHeader.Active.SetItemValue("", False)
+        Frame.GetController(Of InventoryVC).aCreatePDACollection.Active.SetItemValue("", False)
+        Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", False)
+
+        If View.Id = "InventoryHeader_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            ' Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Teszt miatt ideiglenesen enedélyezett
+
+            Frame.GetController(Of InventoryVC).aCreateInventoryHeader.Active.SetItemValue("", True)
+            Frame.GetController(Of InventoryVC).aCloseInventoryHeader.Active.SetItemValue("", True)
+        End If
+        If View.Id = "InventoryHeader_InventorySC_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
+            Frame.GetController(Of InventoryVC).aCreatePDACollection.Active.SetItemValue("", True)
+        End If
+        If View.Id = "InventoryHeader_InventorySIR_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
+        End If
+        If View.Id = "InventoryHeader_InventoryPDA_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
+        End If
+        If View.Id = "InventoryHeader_InventoryDifferent_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
+            Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", True)
+        End If
+        If View.Id = "Storage_LookupListView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "InventoryParameters_ListView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+        End If
+        '--------------DeatilViewZ-------------
+        If View.Id = "InventoryParameters_DetailView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "InventoryHeader_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+
+            Frame.GetController(Of InventoryVC).aCreateInventoryHeader.Active.SetItemValue("", False)
+            Frame.GetController(Of InventoryVC).aCloseInventoryHeader.Active.SetItemValue("", False)
+        End If
+        If View.Id = "Storage_LookupListView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+        End If
+        If View.Id = "InventoryHeader_InventorySC_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
+            Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
+            Frame.GetController(Of InventoryVC).aCreatePDACollection.Active.SetItemValue("", False)
+        End If
+        If View.Id = "InventoryHeader_InventorySIR_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
+            Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
+        End If
+        If View.Id = "InventoryHeader_InventoryPDA_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
+            Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
+        End If
+        If View.Id = "InventoryHeader_InventoryDifferent_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
+            Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
+            Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", False)
+        End If
+        If View.Id = "InventoryParameters_ListView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+        End If
+        '--------------DeatilViewZ-------------
+        If View.Id = "InventoryHeader_DetailView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+        End If
+        If View.Id = "InventoryParameters_DetailView" Then
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+        End If
+    End Sub
+    Private Sub aCreateInventoryHeader_Cancel(sender As Object, e As System.EventArgs) Handles aCreateInventoryHeader.Cancel
+    End Sub
+    Private Sub aCreateInventoryHeader_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateInventoryHeader.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _CreateInventoryHeader_PopUp As CreateInventoryHeader_PopUp = _onew.CreateObject(Of CreateInventoryHeader_PopUp)()
+
+        e.View = Application.CreateDetailView(_onew, "CreateInventoryHeader_PopUp_DetailView", False, _CreateInventoryHeader_PopUp)
+    End Sub
+    Private Sub aCreateInventoryHeader_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateInventoryHeader.Execute
+        Try
+            GLOBAL_HAS_Audit = False
+
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _CreateInventoryHeader_PopUp As CreateInventoryHeader_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), CreateInventoryHeader_PopUp)
+            Dim _InventoryHeader As InventoryHeader = _ocur.CreateObject(Of InventoryHeader)()
+            With _InventoryHeader
+                .Storage = _ocur.GetObject(_CreateInventoryHeader_PopUp.Storage)
+                .DateClose = _CreateInventoryHeader_PopUp.DateClose
+                .InventoryParameters = _ocur.GetObject(_CreateInventoryHeader_PopUp.InventoryParameters)
+                .InventoryCreator = _ocur.GetObject(_CreateInventoryHeader_PopUp.InventoryCreator)
+                .InventoryInspector = _ocur.GetObject(_CreateInventoryHeader_PopUp.InventoryInspector)
+            End With
+
+            Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_ocur.Session, _
+                                        CriteriaOperator.Parse("StorageInHeader.IsEditable=False AND " +
+                                                               " StorageInHeader.Active=True AND " +
+                                                               " StorageInHeader.Storage=? AND " +
+                                                               " StorageInHeader.ObjectCreated<=?", _ocur.GetObject(_CreateInventoryHeader_PopUp.Storage), _CreateInventoryHeader_PopUp.DateClose))
+
+            RaiseEvent InitWork(1, 1, _StorageInRows_Collection.Count)
+
+            If _StorageInRows_Collection.Count > 0 Then
+                For Each _StorageInRows As StorageInRows In _StorageInRows_Collection
+                    Dim _InventorySIR As InventorySIR = _ocur.CreateObject(Of InventorySIR)()
+                    With _InventorySIR
+                        .InventoryHeader = _InventoryHeader
+                        .StorageInRows = _StorageInRows
+                        .QTT = Math.Round(_StorageInRows.QTT, 4, MidpointRounding.AwayFromZero)
+
+                        Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_ocur.Session, _
+                             CriteriaOperator.Parse("StorageInRows=? and StorageOutRows.StorageOutHeader.ObjectCreated<=?", _StorageInRows, _CreateInventoryHeader_PopUp.DateClose))
+
+                        For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection
+                            .QTT -= Math.Round(_StorageOutRowsInRows.QTT, 4, MidpointRounding.AwayFromZero)
+                        Next
+                    End With
+                    If _InventorySIR.QTT > 0 Then
+                        Dim _InventorySC As InventorySC = _ocur.FindObject(Of InventorySC)(CriteriaOperator.Parse("InventoryHeader=? AND Products=?", _
+                                                                                                                  _InventoryHeader, _InventorySIR.StorageInRows.Products))
+                        If _InventorySC Is Nothing Then
+                            _InventorySC = New InventorySC(_ocur.Session)
+                            With _InventorySC
+                                .InventoryHeader = _InventoryHeader
+                                .Products = _InventorySIR.StorageInRows.Products
+                                .QTT = Math.Round(_InventorySIR.QTT, 4, MidpointRounding.AwayFromZero)
+                            End With
+                        Else
+                            _InventorySC.QTT += Math.Round(_InventorySIR.QTT, 4, MidpointRounding.AwayFromZero)
+                        End If
+                    End If
+                    RaiseEvent DoWork()
+                Next
+            End If
+
+            _ocur.CommitChanges()
+
+            Dim _InventorySIR_DEL_Collection As New XPCollection(Of InventorySIR)(_ocur.Session, CriteriaOperator.Parse("InventoryHeader=? AND QTT=0", _InventoryHeader))
+
+            If _InventorySIR_DEL_Collection.Count > 0 Then _ocur.Delete(_InventorySIR_DEL_Collection)
+            _ocur.CommitChanges()
+        Catch ext As Exception
+            MsgBox(ext.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")
+        Finally
+            GLOBAL_HAS_Audit = True
+
+            RaiseEvent FinalWork
+        End Try
+    End Sub
+    Private Sub aCloseInventoryHeader_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloseInventoryHeader.Execute
+        Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+        Dim _InventoryHeader As InventoryHeader = TryCast(View.SelectedObjects(0), InventoryHeader)
+        _InventoryHeader.InventoryStatus = eInventoryStatus.eClosed
+        _InventoryHeader.InventoryHeaderDateClose = GetSQLTime(_ocur.Session)
+
+        _ocur.CommitChanges()
+    End Sub
+    Private Sub aCreatePDACollection_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreatePDACollection.Execute
+
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _InventoryHeader As InventoryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
+            If _InventoryHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
+
+            Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = _ocur.CreateObject(Of StoragePDACollectionHeader)()
+            _StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eOpen
+            _StoragePDACollectionHeader.StoragePDAParameters = _ocur.FindObject(Of StoragePDAParameters)(CriteriaOperator.Parse("CustomersFrom=?", _InventoryHeader.Storage.CustomersFrom))
+
+
+            Dim _InventoryPDA As InventoryPDA = _ocur.CreateObject(Of InventoryPDA)()
+            _InventoryPDA.InventoryHeader = _InventoryHeader
+            _InventoryPDA.StoragePDACollectionHeader = _StoragePDACollectionHeader
+
+            _ocur.CommitChanges()
+        Catch ext As Exception
+            MsgBox(ext.Message)
+        End Try
+    End Sub
+    Private Sub aCreateDifferent_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateDifferent.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _InventoryHeader As InventoryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
+            If _InventoryHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
+
+            If _InventoryHeader.InventoryDifferent.Count > 0 Then
+                Dim _InventoryDifferent_Collection As New XPCollection(Of InventoryDifferent)(_ocur.Session, CriteriaOperator.Parse("InventoryHeader=?", _InventoryHeader))
+
+                _ocur.Delete(_InventoryDifferent_Collection)
+            End If
+
+            If _InventoryHeader.InventorySC.Count > 0 Then
+                For Each _InventorySC As InventorySC In _InventoryHeader.InventorySC
+                    Dim _InventoryDifferent As InventoryDifferent = _ocur.CreateObject(Of InventoryDifferent)()
+                    _InventoryDifferent.InventoryHeader = _InventoryHeader
+                    '_InventoryDifferent.Products = _InventorySC.StorageComputed.Products
+                    '_InventoryDifferent.QTT_SC_Free = _InventorySC.StorageComputed.QTTFree
+                    _InventoryDifferent.QTT_SC_Found = _InventorySC.QTT_Found
+                Next
+            End If
+
+            If _InventoryHeader.InventoryPDA.Count > 0 Then
+                For Each _InventoryPDA As InventoryPDA In _InventoryHeader.InventoryPDA
+                    If _InventoryPDA.StoragePDACollectionHeader.StoragePDACollectionRows.Count > 0 Then
+                        For Each _StoragePDACollectionRows As StoragePDACollectionRows In _InventoryPDA.StoragePDACollectionHeader.StoragePDACollectionRows
+                            Dim _InventoryDifferent As InventoryDifferent = _ocur.FindObject(Of InventoryDifferent)(CriteriaOperator.Parse("Products.Oid=? AND InventoryHeader=?", _StoragePDACollectionRows.Products.Oid, _InventoryHeader), True)
+                            If _InventoryDifferent IsNot Nothing Then
+                                _InventoryDifferent.QTT_PDA = _StoragePDACollectionRows.QTT
+                            End If
+                        Next
+                    End If
+                Next
+            End If
+
+            If _InventoryHeader.InventorySIR.Count > 0 Then
+                For Each _InventorySIR As InventorySIR In _InventoryHeader.InventorySIR
+                    Dim _InventoryDifferent As InventoryDifferent = _ocur.FindObject(Of InventoryDifferent)(CriteriaOperator.Parse("Products.Oid=? AND InventoryHeader=?", _InventorySIR.StorageInRows.Products.Oid, _InventoryHeader), True)
+
+                    Dim _StorageMoveEvents_IN_Collection As New XPCollection(Of StorageMoveEvents)(_ocur.Session, CriteriaOperator.Parse("StorageInRows.Oid=? AND StorageOutRows=?", _InventorySIR.StorageInRows.Oid, Nothing))
+                    _StorageMoveEvents_IN_Collection.Sorting.Add(New SortProperty("ExecutionDate", DB.SortingDirection.Ascending))
+                    _StorageMoveEvents_IN_Collection.Filter = CriteriaOperator.Parse("ExecutionDate>?", _InventoryHeader.ObjectCreated)
+                    If _StorageMoveEvents_IN_Collection.Count > 0 Then
+                        Dim _QTT_In As Double = 0
+                        For Each _StorageMoveEvents As StorageMoveEvents In _StorageMoveEvents_IN_Collection
+                            _QTT_In += _StorageMoveEvents.QTT
+                        Next
+                        _InventoryDifferent.QTT_In = _QTT_In
+                    End If
+
+                    Dim _StorageMoveEvents_OUT_Collection As New XPCollection(Of StorageMoveEvents)(_ocur.Session, CriteriaOperator.Parse("StorageInRows.Oid=? AND StorageOutRows=?", _InventorySIR.StorageInRows.Oid, Not Nothing))
+                    _StorageMoveEvents_OUT_Collection.Sorting.Add(New SortProperty("ExecutionDate", DB.SortingDirection.Ascending))
+                    _StorageMoveEvents_OUT_Collection.Filter = CriteriaOperator.Parse("ExecutionDate>?", _InventoryHeader.ObjectCreated)
+                    If _StorageMoveEvents_OUT_Collection.Count > 0 Then
+                        Dim _QTT_Out As Double = 0
+                        For Each _StorageMoveEvents As StorageMoveEvents In _StorageMoveEvents_OUT_Collection
+                            _QTT_Out += _StorageMoveEvents.QTT
+                        Next
+                        _InventoryDifferent.QTT_Out = _QTT_Out
+                    End If
+                Next
+            End If
+            _ocur.CommitChanges()
+        Catch ext As Exception
+            MsgBox(ext.Message)
+        End Try
+    End Sub
+    Private Sub aInventory_Print_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInventory_Print.Execute
+        Try
+            Dim _InventoryHeader As InventoryHeader = TryCast(View.SelectedObjects(0), InventoryHeader)
+            Dim _ReportData As ReportData = _InventoryHeader.Storage.ReportInventory
+            If _ReportData Is Nothing Then Throw New Exception(String.Format("""{0}"" raktárhoz nincs beállítva letár nyomtatvány!", _InventoryHeader.Storage.ShortName))
+
+            Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("InventoryHeader.Oid=?", _InventoryHeader.Oid), True)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+    Private Sub aInventoryHeader_RecreateInventory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInventoryHeader_RecreateInventory.Execute
+        Try
+            GLOBAL_HAS_Audit = False
+
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _InventoryHeader As InventoryHeader = TryCast(View.SelectedObjects(0), InventoryHeader)
+
+            Dim _InventorySC_DELCollection As New XPCollection(Of InventorySC)(_ocur.Session, CriteriaOperator.Parse("InventoryHeader=?", _InventoryHeader))
+            Dim _InventorySIR_DELCollection As New XPCollection(Of InventorySIR)(_ocur.Session, CriteriaOperator.Parse("InventoryHeader=?", _InventoryHeader))
+            _ocur.Delete(_InventorySC_DELCollection)
+            _ocur.Delete(_InventorySIR_DELCollection)
+
+            Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_ocur.Session, _
+                                         CriteriaOperator.Parse("StorageInHeader.IsEditable=False AND " +
+                                                                " StorageInHeader.Active=True AND " +
+                                                                " StorageInHeader.Storage=? AND " +
+                                                                " StorageInHeader.ObjectCreated<=?", _InventoryHeader.Storage, _InventoryHeader.DateClose))
+
+            RaiseEvent InitWork(1, 1, _StorageInRows_Collection.Count)
+
+            If _StorageInRows_Collection.Count > 0 Then
+                For Each _StorageInRows As StorageInRows In _StorageInRows_Collection
+                    Dim _InventorySIR As InventorySIR = _ocur.CreateObject(Of InventorySIR)()
+                    With _InventorySIR
+                        .InventoryHeader = _InventoryHeader
+                        .StorageInRows = _StorageInRows
+                        .QTT = Math.Round(_StorageInRows.QTT, 4, MidpointRounding.AwayFromZero)
+
+                        Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_ocur.Session, _
+                             CriteriaOperator.Parse("StorageInRows=? AND StorageOutRows.StorageOutHeader.ObjectCreated<=?", _StorageInRows, _InventoryHeader.DateClose))
+
+                        For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection
+                            .QTT -= Math.Round(_StorageOutRowsInRows.QTT, 4, MidpointRounding.AwayFromZero)
+                        Next
+                        .QTT = Math.Round(.QTT, 4, MidpointRounding.AwayFromZero)
+                    End With
+                    If _InventorySIR.QTT > 0 Then
+                        Dim _InventorySC As InventorySC = _ocur.FindObject(Of InventorySC)(CriteriaOperator.Parse("InventoryHeader=? AND Products=?", _
+                                                                                                                  _InventoryHeader, _InventorySIR.StorageInRows.Products))
+                        If _InventorySC Is Nothing Then
+                            _InventorySC = New InventorySC(_ocur.Session)
+                            With _InventorySC
+                                .InventoryHeader = _InventoryHeader
+                                .Products = _InventorySIR.StorageInRows.Products
+                                .QTT = Math.Round(_InventorySIR.QTT, 4, MidpointRounding.AwayFromZero)
+                            End With
+                        Else
+                            _InventorySC.QTT += Math.Round(_InventorySIR.QTT, 4, MidpointRounding.AwayFromZero)
+                        End If
+                    End If
+                    RaiseEvent DoWork()
+                Next
+            End If
+
+            _ocur.CommitChanges()
+
+            Dim _InventorySIR_DEL_Collection As New XPCollection(Of InventorySIR)(_ocur.Session, CriteriaOperator.Parse("InventoryHeader=? AND QTT<=0", _InventoryHeader))
+
+            If _InventorySIR_DEL_Collection.Count > 0 Then _ocur.Delete(_InventorySIR_DEL_Collection)
+            _ocur.CommitChanges()
+        Catch ext As Exception
+            MsgBox(ext.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")
+        Finally
+            GLOBAL_HAS_Audit = True
+
+            RaiseEvent FinalWork
+        End Try
+    End Sub
+    Protected Sub aInventoryHeader_LoadSpreadFromParameters_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInventoryHeader_LoadSpreadFromParameters.Execute
+        'WIN esben kidolgozva!
+    End Sub
+
+    Private Sub aInventoryRecalculatePrice_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInventoryRecalculatePrice.Execute
+        Try
+            GLOBAL_HAS_Audit = False
+
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _InventoryHeader As InventoryHeader = TryCast(View.SelectedObjects(0), InventoryHeader)
+            Dim _StorageDateClearingPrice As StorageDateClearingPrice
+            Dim _StorageDateClearingPrice_Collection As XPCollection(Of StorageDateClearingPrice)
+
+            RaiseEvent InitWork(1, 1, _InventoryHeader.InventorySC.Count)
+            For Each _InventorySC As InventorySC In _InventoryHeader.InventorySC
+                RaiseEvent DoWork()
+                _InventorySC.AveragePriceHUF = 0
+                _StorageDateClearingPrice_Collection = New XPCollection(Of StorageDateClearingPrice)(_ocur.Session, CriteriaOperator.Parse("CustomersFrom=? and Products=? and GetDate(DateExecution)<=?", _InventoryHeader.Storage.CustomersFrom, _InventorySC.Products, _InventoryHeader.DateClose.Date))
+                _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending))
+                _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
+                For Each _StorageDateClearingPrice In _StorageDateClearingPrice_Collection
+                    _InventorySC.AveragePriceHUF = _StorageDateClearingPrice.AveragePriceHUF_After
+                    _InventorySC.SumAveragePriceHUF = _InventorySC.AveragePriceHUF * _InventorySC.QTT
+
+                    _InventorySC.SumAveragePriceHUF_Found = _InventorySC.AveragePriceHUF * _InventorySC.QTT_Found
+                    _InventorySC.SumAveragePriceHUF_Different = _InventorySC.SumAveragePriceHUF_Found - _InventorySC.SumAveragePriceHUF
+
+                    _InventorySC.SumAveragePriceHUF_Surplus = 0
+                    _InventorySC.SumAveragePriceHUF_Want = 0
+
+                    If _InventorySC.SumAveragePriceHUF_Different > 0 Then
+                        _InventorySC.SumAveragePriceHUF_Surplus = _InventorySC.SumAveragePriceHUF_Different
+                    Else
+                        _InventorySC.SumAveragePriceHUF_Want = Math.Abs(_InventorySC.SumAveragePriceHUF_Different)
+                    End If
+
+                    Exit For
+                Next
+                For Each _InventorySIR As InventorySIR In _InventoryHeader.InventorySIR
+                    If _InventorySC.Products.Oid = _InventorySIR.StorageInRows.Products.Oid Then
+                        _InventorySIR.AveragePriceHUF = _InventorySC.AveragePriceHUF
+                        _InventorySIR.SumAveragePriceHUF = _InventorySIR.AveragePriceHUF * _InventorySIR.QTT
+
+                        _InventorySIR.SumAveragePriceHUF_Found = _InventorySIR.AveragePriceHUF * _InventorySIR.QTT_Found
+                        _InventorySIR.SumAveragePriceHUF_Different = _InventorySIR.SumAveragePriceHUF_Found - _InventorySIR.SumAveragePriceHUF
+
+                        _InventorySIR.SumAveragePriceHUF_Surplus = 0
+                        _InventorySIR.SumAveragePriceHUF_Want = 0
+
+                        If _InventorySIR.SumAveragePriceHUF_Different > 0 Then
+                            _InventorySIR.SumAveragePriceHUF_Surplus = _InventorySIR.SumAveragePriceHUF_Different
+                        Else
+                            _InventorySIR.SumAveragePriceHUF_Want = Math.Abs(_InventorySIR.SumAveragePriceHUF_Different)
+                        End If
+                    End If
+                Next
+            Next
+            _ocur.CommitChanges()
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        Finally
+            GLOBAL_HAS_Audit = True
+            RaiseEvent FinalWork
+        End Try
+    End Sub
+End Class
@@ -0,0 +1,82 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<Appearance("Disable CreateInventoryHeader_PopUp-Storage", AppearanceItemType.ViewItem, "1=1", TargetItems:="Storage", Enabled:=False)> _
+Public Class CreateInventoryHeader_PopUp
+    Inherits BaseObject
+
+    Private _InventoryParameters As InventoryParameters
+    Private _Storage As Storage
+    Private _DateClose As Date
+    Private _InventoryInspector As HRPerson 'Ellenõr
+    Private _InventoryCreator As HRPerson 'Leltárt készítõ/elvégzõ/végrehejtó
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        DateClose = GetSQLTime(Session)
+    End Sub
+
+    <ImmediatePostData()> _
+    Property InventoryParameters As InventoryParameters
+        Get
+            Return _InventoryParameters
+        End Get
+        Set(value As InventoryParameters)
+            SetPropertyValue("InventoryParameters", _InventoryParameters, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                Storage = value.Storage
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("CreateInventoryHeader_PopUp-Storage", DefaultContexts.Save)> _
+    Property Storage As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+        End Set
+    End Property
+    Property DateClose As Date
+        Get
+            Return _DateClose
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateClose", _DateClose, value)
+        End Set
+    End Property
+
+    Property InventoryInspector As HRPerson
+        Get
+            Return _InventoryInspector
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("InventoryInspector", _InventoryInspector, value)
+        End Set
+    End Property
+
+    Property InventoryCreator As HRPerson
+        Get
+            Return _InventoryCreator
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("InventoryCreator", _InventoryCreator, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,35 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class StorageOutRowsFromPDACollectionPopup
+    Inherits BaseObject
+
+    Private _StoragePDACollectionHeader As StoragePDACollectionHeader
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property StoragePDACollectionHeader As StoragePDACollectionHeader
+        Get
+            Return _StoragePDACollectionHeader
+        End Get
+        Set(value As StoragePDACollectionHeader)
+            SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,179 @@
+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
+
+'------------------------ Fogyás mátrix -----------------------------------------------------------------------------------------------
+Public Enum eCirculationType
+    eAccaount = 0 'Kiszámlázott tételek
+    eMoving = 1 'Mozgási tételek
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class StorageOutCirculation 'Fogyási mátrix 
+    Inherits BaseObject
+    Private _CirculationType As eCirculationType
+    Private _Storage As Storage 'Raktár
+    Private _Products As Products 'Termék
+    Private _YearExecution As Long 'Év
+    Private _Month01 As Double 'Januárban
+    Private _Month02 As Double 'Februárban
+    Private _Month03 As Double 'Márciusban
+    Private _Month04 As Double 'Áprilisban
+    Private _Month05 As Double 'Májusban 
+    Private _Month06 As Double 'Júniusban
+    Private _Month07 As Double 'Júliusban
+    Private _Month08 As Double 'Augusztusban
+    Private _Month09 As Double 'Szeptemberben
+    Private _Month10 As Double 'Októberben
+    Private _Month11 As Double 'Novemberben
+    Private _Month12 As Double 'Decemberben
+    Private _Total As Double 'Év összesen
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+
+    Property CirculationType As eCirculationType
+        Get
+            Return _CirculationType
+        End Get
+        Set(value As eCirculationType)
+            SetPropertyValue("CirculationType", _CirculationType, value)
+        End Set
+    End Property
+    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 YearExecution As Long
+        Get
+            Return _YearExecution
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("YearExecution", _YearExecution, value)
+        End Set
+    End Property
+    Property Month01 As Double
+        Get
+            Return _Month01
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Month01", _Month01, value)
+        End Set
+    End Property
+    Property Month02 As Double
+        Get
+            Return _Month02
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Month02", _Month02, value)
+        End Set
+    End Property
+    Property Month03 As Double
+        Get
+            Return _Month03
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Month03", _Month03, value)
+        End Set
+    End Property
+    Property Month04 As Double
+        Get
+            Return _Month04
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Month04", _Month04, value)
+        End Set
+    End Property
+    Property Month05 As Double
+        Get
+            Return _Month01
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Month05", _Month05, value)
+        End Set
+    End Property
+    Property Month06 As Double
+        Get
+            Return _Month06
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Month06", _Month06, value)
+        End Set
+    End Property
+    Property Month07 As Double
+        Get
+            Return _Month07
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Month07", _Month07, value)
+        End Set
+    End Property
+    Property Month08 As Double
+        Get
+            Return _Month08
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Month08", _Month08, value)
+        End Set
+    End Property
+    Property Month09 As Double
+        Get
+            Return _Month09
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Month09", _Month09, value)
+        End Set
+    End Property
+    Property Month10 As Double
+        Get
+            Return _Month10
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Month10", _Month10, value)
+        End Set
+    End Property
+    Property Month11 As Double
+        Get
+            Return _Month11
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Month11", _Month11, value)
+        End Set
+    End Property
+    Property Month12 As Double
+        Get
+            Return _Month12
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Month12", _Month12, value)
+        End Set
+    End Property
+    Property Total As Double
+        Get
+            Return _Total
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Total", _Total, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,336 @@
+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
+Public Enum eOutMode
+    eProducts = 0
+    ePacketNumber = 1
+    eSerialNumber = 2
+End Enum
+
+'<EditorStateRule("Disable properties when IsEditable = False", "*", ViewType.DetailView, "IsEditable = False", EditorState.Disabled)> _
+'<EditorStateRuleAttribute("Disable DocumentNumber all time StorageOutHeader", "DocumentNumber", ViewType.DetailView, "1=1", EditorState.Disabled)> _
+
+<DefaultClassOptions()> _
+<NavigationItem("StorageTransactions")> _
+<Appearance("Hide row_StorageInRows properties when row_OutMode=0", AppearanceItemType.ViewItem, "row_OutMode=0", TargetItems:="row_StorageInRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide row_StorageComputed properties when row_OutMode<>0", AppearanceItemType.ViewItem, "row_OutMode<>0", TargetItems:="row_StorageComputed", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide row_ properties when IsEditable=False", AppearanceItemType.ViewItem, "IsEditable=False", TargetItems:="row_OutMode;row_QTT;row_QTT_Will;row_StorageComputed;row_StorageInRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable properties when IsEditable = False", TargetItems:="*", Criteria:="IsEditable = False", Enabled:=False, Context:="DetailView")> _
+<Appearance("Disable DocumentNumber all time StorageOutHeader", TargetItems:="DocumentNumber", Criteria:="1=1", Enabled:=False, Context:="DetailView")> _
+<Appearance("Hide Row Data", AppearanceItemType.LayoutItem, "IsEditable = False", TargetItems:="Item1", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide Item3 StorageOutHeader", AppearanceItemType.LayoutItem, "IsNull(Storage) Or IsNull(DocumentNumber) Or IsNull(CustomersFrom) Or IsNull(StorageMoveType) Or IsNull(Customers)", TargetItems:="Item3", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable Storage, CustomersFrom, StorageMoveType when IsFinalized=True", AppearanceItemType.ViewItem, "IsFinalized=True", TargetItems:="Storage;CustomersFrom;StorageMoveType", Enabled:=False)> _
+<Appearance("Hide StorageTo property when StorageMoveType.MoveType<>6", AppearanceItemType.ViewItem, "StorageMoveType.MoveType<>6", TargetItems:="StorageTo", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable Customers property when StorageMoveType.MoveType=6", AppearanceItemType.ViewItem, "StorageMoveType.MoveType=6", TargetItems:="Customers", Enabled:=False)> _
+Public Class StorageOutHeader
+    Inherits BaseObject
+    Private _StorageMoveType As StorageMoveType
+    Private _CustomersFrom As CustomersFrom
+    Private _Customers As Customers
+    Private _DocumentNumber As String
+    Private _Storage As Storage
+    Private _StorageTo As Storage
+    Private _CreateDate As Date
+    Private _Active As Boolean = True
+    Private _ObjectCreated As Date
+    Private _UserCreated As User 'Ki készítette
+    Private _IsStorno As Boolean = False
+    Private _IsEditable As Boolean = True
+    Private _IsFinalized As Boolean = False 'Volt-e már véglegesítve ?
+    Private _RecipeExecutionSimple As RecipeExecutionSimple 'Melyik gyártáshoz kapcs. kitárolás
+    Private _WorkSheet_Header As WorkSheet_Header 'Melyik munkalaphoz kapcsolódik a kitárolás
+    Private _StoragePDACollectionHeader As StoragePDACollectionHeader
+    Private _ConnectInfo As String
+
+    '----------------------------------------------------------------------------
+    Private _row_OutMode As eOutMode
+    Private _row_QTT As Double
+    Private _row_QTT_Will As Double
+    Private _row_StorageComputed As StorageComputed
+    Private _row_StorageInRows As StorageInRows
+    '----------------------------------------------------------------------------
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        CreateDate = GetSQLTime(Session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If String.IsNullOrEmpty(DocumentNumber) Then
+            _DocumentNumber = _Storage.NumberGeneratorOut.GetNewNumber(_Storage.NumberGeneratorOut)
+        End If
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    <RuleRequiredField("StorageOutHeader-StorageMoveType", DefaultContexts.Save)>
+    <ImmediatePostData(True), DataSourceCriteria("Storage='@This.Storage' and MoveDirection=1")>
+    Property StorageMoveType As StorageMoveType
+        Get
+            Return _StorageMoveType
+        End Get
+        Set(value As StorageMoveType)
+            SetPropertyValue("StorageMoveType", _StorageMoveType, value)
+        End Set
+    End Property
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <ImmediatePostData()>
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customres", _Customers, value)
+        End Set
+    End Property
+    Property DocumentNumber() As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    <RuleRequiredField("", DefaultContexts.Save)>
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")>
+    Property Storage() As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(ByVal value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                If StorageMoveType IsNot Nothing Then
+                    If StorageMoveType.MoveType = eMoveType.InventoryTransfer Then
+                        Customers = value.CustomersFrom
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")>
+    <RuleRequiredField("StorageOutHeader - StorageTo", DefaultContexts.Save, TargetCriteria:="StorageMoveType.MoveType=6")>
+    Property StorageTo As Storage
+        Get
+            Return _StorageTo
+        End Get
+        Set(value As Storage)
+            SetPropertyValue("StorageTo", _StorageTo, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                If StorageMoveType.MoveType = eMoveType.InventoryTransfer Then
+                    If value Is Nothing Then
+                        Customers = Nothing
+                    Else
+                        Customers = value.CustomersFrom
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+
+    Property CreateDate() As Date
+        Get
+            Return _CreateDate
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("CreateDate", _CreateDate, value)
+        End Set
+    End Property
+    Property Active() As Boolean
+        Get
+            Return _Active
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("Active", _Active, value)
+        End Set
+    End Property
+    <NonCloneable>
+    Property ObjectCreated() As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable>
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+    Property IsStorno() As Boolean
+        Get
+            Return _IsStorno
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsStorno", _IsStorno, value)
+        End Set
+    End Property
+    Property IsEditable() As Boolean
+        Get
+            Return _IsEditable
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsEditable", _IsEditable, value)
+        End Set
+    End Property
+    <Browsable(False)>
+    Property IsFinalized As Boolean
+        Get
+            Return _IsFinalized
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsFinalized", _IsFinalized, value)
+        End Set
+    End Property
+
+    Property RecipeExecutionSimple As RecipeExecutionSimple
+        Get
+            Return _RecipeExecutionSimple
+        End Get
+        Set(value As RecipeExecutionSimple)
+            SetPropertyValue("RecipeExecutionSimple", _RecipeExecutionSimple, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom='@This.CustomersFrom' and Customers='@This.Customers' and WorkSheetState<>1")>
+    Property WorkSheet_Header As WorkSheet_Header
+        Get
+            Return _WorkSheet_Header
+        End Get
+        Set(value As WorkSheet_Header)
+            SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value)
+        End Set
+    End Property
+    Property StoragePDACollectionHeader As StoragePDACollectionHeader
+        Get
+            Return _StoragePDACollectionHeader
+        End Get
+        Set(value As StoragePDACollectionHeader)
+            SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, value)
+        End Set
+    End Property
+    Property ConnectInfo As String
+        Get
+            Return _ConnectInfo
+        End Get
+        Set(value As String)
+            SetPropertyValue("ConnectInfo", _ConnectInfo, value)
+        End Set
+    End Property
+
+    'Nonpersistent
+    <NonPersistent()>
+    <ImmediatePostData()>
+    Property row_OutMode As eOutMode
+        Get
+            Return _row_OutMode
+        End Get
+        Set(value As eOutMode)
+            SetPropertyValue("row_OutMode", _row_OutMode, value)
+        End Set
+    End Property
+    <NonPersistent()>
+    <VisibleInListView(False)>
+    Property row_QTT() As Double
+        Get
+            Return _row_QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Row_QTT", _row_QTT, value)
+        End Set
+    End Property
+    <NonPersistent()>
+    <RuleRange("StorageOutHeader-row_QTT_Will", "aToTable_StorageOut_Context", 0.0001, Double.MaxValue, TargetCriteria:="IsEditable=True")>
+    <VisibleInListView(False)>
+    Property row_QTT_Will() As Double
+        Get
+            Return _row_QTT_Will
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("Row_QTT_Will", _row_QTT_Will, value)
+        End Set
+    End Property
+    <NonPersistent()>
+    <ImmediatePostData(True), DataSourceCriteria("Storage = '@This.Storage'")>
+    <RuleRequiredField("StorageOutHeader-row_StorageComputed", "aToTable_StorageOut_Context", TargetCriteria:="row_OutMode=0")>
+    <VisibleInListView(False)>
+    Property row_StorageComputed() As StorageComputed
+        Get
+            Return _row_StorageComputed
+        End Get
+        Set(ByVal value As StorageComputed)
+            SetPropertyValue("Row_StorageComputed", _row_StorageComputed, value)
+        End Set
+    End Property
+    <NonPersistent()>
+    <ImmediatePostData(True), DataSourceCriteria("StorageInHeader.Storage = '@This.Storage' and QTT>QTT_Out")>
+    <RuleRequiredField("StorageOutHeader-row_StorageInRows", "aToTable_StorageOut_Context", targetcriteria:="row_OutMode<>0")> _
+    <VisibleInListView(False)> _
+    Property row_StorageInRows As StorageInRows
+        Get
+            Return _row_StorageInRows
+        End Get
+        Set(value As StorageInRows)
+            SetPropertyValue("row_StorageInRows", _row_StorageInRows, value)
+        End Set
+    End Property
+
+    'XPCollections
+    <VisibleInListView(False)> _
+    <Association("StorageOut", GetType(StorageOutRows))> _
+    Public ReadOnly Property StorageOutRows() As XPCollection(Of StorageOutRows)
+        Get
+            Return GetCollection(Of StorageOutRows)("StorageOutRows")
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows)
+        Get
+            Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("1=2"))
+            Dim _StorageOutRows As StorageOutRows
+            Dim _StorageOutRowsInRows As StorageOutRowsInRows
+            For Each _StorageOutRows In Me.StorageOutRows
+                For Each _StorageOutRowsInRows In _StorageOutRows.StorageOutRowsInRows
+                    _StorageOutRowsInRows_Collection.Add(_StorageOutRowsInRows)
+                Next
+            Next
+            Return _StorageOutRowsInRows_Collection
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property StorageInRows As XPCollection(Of StorageInRows)
+        Get
+            Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse("1=2"))
+            Dim _StorageOutRows As StorageOutRows
+            Dim _StorageOutRowsInRows As StorageOutRowsInRows
+            For Each _StorageOutRows In Me.StorageOutRows
+                For Each _StorageOutRowsInRows In _StorageOutRows.StorageOutRowsInRows
+                    _StorageInRows_Collection.Add(_StorageOutRowsInRows.StorageInRows)
+                Next
+            Next
+            Return _StorageInRows_Collection
+        End Get
+    End Property
+End Class
@@ -0,0 +1,155 @@
+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)> _
+Public Class StorageOutRows
+    Inherits BaseObject
+
+    Private _RowIndex As Long
+    Private _StorageOutHeader As StorageOutHeader ' -- Kitárolás fejléc
+    Private _StorageComputed As StorageComputed ' -- Raktárkészlet
+    Private _OrderInRows As OrderInRows '-- Bejövő megrendelés sora
+    Private _QTT As Double ' -- Mennyiség
+    Private _QTT_Will As Double ' -- Mennyiség (Szándék)
+    Private _QTT_To_DeliveryOut As Double '-- Kiszállított mennyiség
+    Private _Products As Products ' -- Termék
+    Private _OnStorno As Boolean = False ' -- Stornírozás alatt van e?
+    Private _DividedOriginal As Long '-- 0: nincs bontva 1: fő sor 2: bontott sor
+    Private _DividedGUID As Guid '-- Az összekapcsoló GUID ami a bontáshoz kell
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        QTT = 0
+        QTT_Will = 0
+        QTT_To_DeliveryOut = 0
+        OnStorno = False
+        RowIndex = -1
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        QTT = Math.Round(QTT, 4, MidpointRounding.AwayFromZero)
+        QTT_To_DeliveryOut = Math.Round(QTT_To_DeliveryOut, 4, MidpointRounding.AwayFromZero)
+        QTT_Will = Math.Round(QTT_Will, 4, MidpointRounding.AwayFromZero)
+    End Sub
+
+    Public Sub RemoveRows()
+        For Each _StorageOutRows As StorageOutRows In Me.StorageOutHeader.StorageOutRows
+            If _StorageOutRows.RowIndex > Me.RowIndex Then
+                _StorageOutRows.RowIndex -= 1
+            End If
+        Next
+    End Sub
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    <Association("StorageOut", GetType(StorageOutHeader))> _
+    Property StorageOutHeader() As StorageOutHeader
+        Get
+            Return _StorageOutHeader
+        End Get
+        Set(ByVal value As StorageOutHeader)
+            SetPropertyValue("StorageOutHeader", _StorageOutHeader, value)
+        End Set
+    End Property
+    <ImmediatePostData(True), DataSourceCriteria("Storage = '@This.StorageOutHeader.Storage'")>
+    Property StorageComputed() As StorageComputed
+        Get
+            Return _StorageComputed
+        End Get
+        Set(ByVal value As StorageComputed)
+            SetPropertyValue("StorageComputed", _StorageComputed, value)
+        End Set
+    End Property
+    Property OrderInRows() As OrderInRows
+        Get
+            Return _OrderInRows
+        End Get
+        Set(ByVal value As OrderInRows)
+            SetPropertyValue("OrderInRows", _OrderInRows, value)
+        End Set
+    End Property
+    <RuleRequiredField("", DefaultContexts.Save)> _
+    Property QTT() As Double
+        Get
+            Return _QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    <RuleRequiredField("", DefaultContexts.Save)> _
+    Property QTT_Will() As Double
+        Get
+            Return _QTT_Will
+        End Get
+        Set(ByVal value As Double)
+            _QTT_Will = value
+        End Set
+    End Property
+    Property QTT_To_DeliveryOut As Double
+        Get
+            Return _QTT_To_DeliveryOut
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_To_DeliveryOut", _QTT_To_DeliveryOut, 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 OnStorno() As Boolean
+        Get
+            Return _OnStorno
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("OnStorno", _OnStorno, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInLookupListView(False), VisibleInListView(False)>
+    Property DividedOriginal As Long
+        Get
+            Return _DividedOriginal
+        End Get
+        Set(value As Long)
+            SetPropertyValue("DividedOriginal", _DividedOriginal, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInLookupListView(False), VisibleInListView(False)>
+    Property DividedGUID As Guid
+        Get
+            Return _DividedGUID
+        End Get
+        Set(value As Guid)
+            SetPropertyValue("DividedGUID", _DividedGUID, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    <Association("StorageOutIn", GetType(StorageOutRowsInRows))> _
+    Public ReadOnly Property StorageOutRowsInRows() As XPCollection(Of StorageOutRowsInRows)
+        Get
+            Return GetCollection(Of StorageOutRowsInRows)("StorageOutRowsInRows")
+        End Get
+    End Property
+End Class
@@ -0,0 +1,104 @@
+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.Linq
+Imports System.Linq.Expressions
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<DefaultProperty("StorageOutRows.StorageOutHeader.DocumentNumber")> _
+Public Class StorageOutRowsInRows
+    Inherits BaseObject
+    Private _RowIndex As Long
+    Private _StorageOutRows As StorageOutRows
+    Private _StorageInRows As StorageInRows
+    Private _QTT As Double 'Kitárolt mennyiség
+    Private _QTT_To_DeliveryOut As Double 'Kiszállított mennyiség
+    Private _QTT_Will As Double 'Kiszállítási szándék
+    Private _DividedOriginal As Long '-- 0: nincs bontva 1: fő sor 2: bontott sor
+    Private _DividedGUID As Guid '-- Az összekapcsoló GUID ami a bontáshoz kell
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        QTT = Math.Round(QTT, 4, MidpointRounding.AwayFromZero)
+        QTT_To_DeliveryOut = Math.Round(QTT_To_DeliveryOut, 4, MidpointRounding.AwayFromZero)
+        QTT_Will = Math.Round(QTT_Will, 4, MidpointRounding.AwayFromZero)
+    End Sub
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    <Association("StorageOutIn", GetType(StorageOutRows))> _
+    Property StorageOutRows() As StorageOutRows
+        Get
+            Return _StorageOutRows
+        End Get
+        Set(ByVal value As StorageOutRows)
+            SetPropertyValue("StorageOutRows", _StorageOutRows, value)
+        End Set
+    End Property
+    Property StorageInRows() As StorageInRows
+        Get
+            Return _StorageInRows
+        End Get
+        Set(ByVal value As StorageInRows)
+            SetPropertyValue("StorageInRows", _StorageInRows, value)
+        End Set
+    End Property
+    Property QTT() As Double
+        Get
+            Return _QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property QTT_To_DeliveryOut As Double
+        Get
+            Return _QTT_To_DeliveryOut
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_To_DeliveryOut", _QTT_To_DeliveryOut, value)
+        End Set
+    End Property
+    Property QTT_Will As Double
+        Get
+            Return _QTT_Will
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Will", _QTT_Will, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInLookupListView(False), VisibleInListView(False)>
+    Property DividedOriginal As Long
+        Get
+            Return _DividedOriginal
+        End Get
+        Set(value As Long)
+            SetPropertyValue("DividedOriginal", _DividedOriginal, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInLookupListView(False), VisibleInListView(False)>
+    Property DividedGUID As Guid
+        Get
+            Return _DividedGUID
+        End Get
+        Set(value As Guid)
+            SetPropertyValue("DividedGUID", _DividedGUID, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,51 @@
+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 StorageOutRowsLocation
+    Inherits BaseObject
+
+    Private _StorageOutRows As StorageOutRows
+    Private _StorageComputedLocations As StorageComputedLocations
+    Private _QTT As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property StorageOutRows As StorageOutRows
+        Get
+            Return _StorageOutRows
+        End Get
+        Set(value As StorageOutRows)
+            SetPropertyValue("StorageOutRows", _StorageOutRows, value)
+        End Set
+    End Property
+    Property StorageComputedLocations As StorageComputedLocations
+        Get
+            Return _StorageComputedLocations
+        End Get
+        Set(value As StorageComputedLocations)
+            SetPropertyValue("StorageComputedLocations", _StorageComputedLocations, 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
+End Class
@@ -0,0 +1,68 @@
+Partial Class StorageTransactionsOutPrint
+
+	<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.aStorageTransactionsOutPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aStorageOutRowsInRowsPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aStorageTransactionsOutPrint
+        '
+        Me.aStorageTransactionsOutPrint.Caption = "aStorageTransactionsOutPrint"
+        Me.aStorageTransactionsOutPrint.Category = "View"
+        Me.aStorageTransactionsOutPrint.ConfirmationMessage = Nothing
+        Me.aStorageTransactionsOutPrint.Id = "aStorageTransactionsOutPrint"
+        Me.aStorageTransactionsOutPrint.ImageName = Nothing
+        Me.aStorageTransactionsOutPrint.Shortcut = Nothing
+        Me.aStorageTransactionsOutPrint.Tag = Nothing
+        Me.aStorageTransactionsOutPrint.TargetObjectsCriteria = Nothing
+        Me.aStorageTransactionsOutPrint.TargetObjectType = GetType(Nuvolar.[Module].StorageOutHeader)
+        Me.aStorageTransactionsOutPrint.TargetViewId = Nothing
+        Me.aStorageTransactionsOutPrint.ToolTip = Nothing
+        Me.aStorageTransactionsOutPrint.TypeOfView = Nothing
+        '
+        'aStorageOutRowsInRowsPrint
+        '
+        Me.aStorageOutRowsInRowsPrint.Caption = "aStorageOutRowsInRowsPrint"
+        Me.aStorageOutRowsInRowsPrint.Category = "Print"
+        Me.aStorageOutRowsInRowsPrint.ConfirmationMessage = Nothing
+        Me.aStorageOutRowsInRowsPrint.Id = "aStorageOutRowsInRowsPrint"
+        Me.aStorageOutRowsInRowsPrint.ImageName = Nothing
+        Me.aStorageOutRowsInRowsPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aStorageOutRowsInRowsPrint.Shortcut = Nothing
+        Me.aStorageOutRowsInRowsPrint.Tag = Nothing
+        Me.aStorageOutRowsInRowsPrint.TargetObjectsCriteria = Nothing
+        Me.aStorageOutRowsInRowsPrint.TargetObjectType = GetType(Nuvolar.[Module].StorageOutRowsInRows)
+        Me.aStorageOutRowsInRowsPrint.TargetViewId = Nothing
+        Me.aStorageOutRowsInRowsPrint.ToolTip = Nothing
+        Me.aStorageOutRowsInRowsPrint.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aStorageTransactionsOutPrint As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aStorageOutRowsInRowsPrint As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class
@@ -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="aStorageTransactionsOutPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aStorageOutRowsInRowsPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>344, 186</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>
@@ -0,0 +1,51 @@
+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.ExpressApp.Utils
+Imports DevExpress.Persistent.BaseImpl
+
+Public Class StorageTransactionsOutPrint
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Sub New()
+        MyBase.New()
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+    Private Sub aStorageTransactionsOutPrint_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorageTransactionsOutPrint.Execute
+        Dim _ReportData As ReportData
+        Dim _StorageOutHeader As StorageOutHeader
+        If e.SelectedObjects.Count > 0 Then
+            _StorageOutHeader = TryCast(e.SelectedObjects.Item(0), StorageOutHeader)
+            If _StorageOutHeader Is Nothing Then
+            Else
+                _ReportData = _StorageOutHeader.Storage.ReportOut
+                If _ReportData Is Nothing Or _StorageOutHeader Is Nothing Then
+                Else
+                    Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.DocumentNumber =?", _StorageOutHeader.DocumentNumber), True)
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub aStorageOutRowsInRowsPrint_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aStorageOutRowsInRowsPrint.Execute
+        Try
+            If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
+            Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutRowsInRows).StorageOutRows.StorageOutHeader
+            If _StorageOutHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt a folyamat megszakadt!")
+            Dim _ReportData As ReportData = _StorageOutHeader.Storage.ReportOut
+            If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!")
+
+            Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.DocumentNumber =?", _StorageOutHeader.DocumentNumber), True)
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+End Class
@@ -0,0 +1,272 @@
+Partial Class StorageTransactionsOutVC
+
+	<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.aFinalizeAndNew_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTable_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aSOFinList_Order = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBackToEdit_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTableD_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateDeliveryNote = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aUp_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDown_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBackToStorageOutFromOrderIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aStorageOutStorno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFinalize_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aStorageOutFromPdaCollection = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCreatePDACollectionFromStorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aGenerateStorageOutPDACollection = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aFinalizeAndNew_StorageOut
+        '
+        Me.aFinalizeAndNew_StorageOut.Caption = "aStorage Out Final And New"
+        Me.aFinalizeAndNew_StorageOut.Category = "RecordEdit"
+        Me.aFinalizeAndNew_StorageOut.ConfirmationMessage = Nothing
+        Me.aFinalizeAndNew_StorageOut.Id = "aFinalizeAndNew_StorageOut"
+        Me.aFinalizeAndNew_StorageOut.ImageName = Nothing
+        Me.aFinalizeAndNew_StorageOut.Shortcut = Nothing
+        Me.aFinalizeAndNew_StorageOut.Tag = Nothing
+        Me.aFinalizeAndNew_StorageOut.TargetObjectsCriteria = Nothing
+        Me.aFinalizeAndNew_StorageOut.TargetViewId = Nothing
+        Me.aFinalizeAndNew_StorageOut.ToolTip = Nothing
+        Me.aFinalizeAndNew_StorageOut.TypeOfView = Nothing
+        '
+        'aToTable_StorageOut
+        '
+        Me.aToTable_StorageOut.Caption = "aSOHTo Table"
+        Me.aToTable_StorageOut.Category = "aToTable_StorageOut"
+        Me.aToTable_StorageOut.ConfirmationMessage = Nothing
+        Me.aToTable_StorageOut.Id = "aToTable_StorageOut"
+        Me.aToTable_StorageOut.ImageName = Nothing
+        Me.aToTable_StorageOut.Shortcut = Nothing
+        Me.aToTable_StorageOut.Tag = Nothing
+        Me.aToTable_StorageOut.TargetObjectsCriteria = Nothing
+        Me.aToTable_StorageOut.TargetViewId = Nothing
+        Me.aToTable_StorageOut.ToolTip = Nothing
+        Me.aToTable_StorageOut.TypeOfView = Nothing
+        '
+        'aSOFinList_Order
+        '
+        Me.aSOFinList_Order.Caption = "aSOFinList_Order"
+        Me.aSOFinList_Order.ConfirmationMessage = Nothing
+        Me.aSOFinList_Order.Id = "aSOFinList_Order"
+        Me.aSOFinList_Order.ImageName = Nothing
+        Me.aSOFinList_Order.Shortcut = Nothing
+        Me.aSOFinList_Order.Tag = Nothing
+        Me.aSOFinList_Order.TargetObjectsCriteria = Nothing
+        Me.aSOFinList_Order.TargetViewId = "StorageOutRows_ListView_Order"
+        Me.aSOFinList_Order.ToolTip = Nothing
+        Me.aSOFinList_Order.TypeOfView = Nothing
+        '
+        'aBackToEdit_StorageOut
+        '
+        Me.aBackToEdit_StorageOut.Caption = "aBack To Edit SOH"
+        Me.aBackToEdit_StorageOut.Category = "Edit"
+        Me.aBackToEdit_StorageOut.ConfirmationMessage = Nothing
+        Me.aBackToEdit_StorageOut.Id = "aBackToEdit_StorageOut"
+        Me.aBackToEdit_StorageOut.ImageName = Nothing
+        Me.aBackToEdit_StorageOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBackToEdit_StorageOut.Shortcut = Nothing
+        Me.aBackToEdit_StorageOut.Tag = Nothing
+        Me.aBackToEdit_StorageOut.TargetObjectsCriteria = Nothing
+        Me.aBackToEdit_StorageOut.TargetViewId = ""
+        Me.aBackToEdit_StorageOut.ToolTip = Nothing
+        Me.aBackToEdit_StorageOut.TypeOfView = Nothing
+        '
+        'aToTableD_StorageOut
+        '
+        Me.aToTableD_StorageOut.Caption = "Delete row"
+        Me.aToTableD_StorageOut.Category = "aToTableD_StorageOut"
+        Me.aToTableD_StorageOut.ConfirmationMessage = Nothing
+        Me.aToTableD_StorageOut.Id = "aToTableD_StorageOut"
+        Me.aToTableD_StorageOut.ImageName = Nothing
+        Me.aToTableD_StorageOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aToTableD_StorageOut.Shortcut = Nothing
+        Me.aToTableD_StorageOut.Tag = Nothing
+        Me.aToTableD_StorageOut.TargetObjectsCriteria = Nothing
+        Me.aToTableD_StorageOut.TargetViewId = ""
+        Me.aToTableD_StorageOut.ToolTip = Nothing
+        Me.aToTableD_StorageOut.TypeOfView = Nothing
+        '
+        'aCreateDeliveryNote
+        '
+        Me.aCreateDeliveryNote.AcceptButtonCaption = Nothing
+        Me.aCreateDeliveryNote.CancelButtonCaption = Nothing
+        Me.aCreateDeliveryNote.Caption = "Create Delivery Note"
+        Me.aCreateDeliveryNote.ConfirmationMessage = Nothing
+        Me.aCreateDeliveryNote.Id = "aCreateDeliveryNote"
+        Me.aCreateDeliveryNote.ImageName = Nothing
+        Me.aCreateDeliveryNote.Shortcut = Nothing
+        Me.aCreateDeliveryNote.Tag = Nothing
+        Me.aCreateDeliveryNote.TargetObjectsCriteria = Nothing
+        Me.aCreateDeliveryNote.TargetViewId = Nothing
+        Me.aCreateDeliveryNote.ToolTip = Nothing
+        Me.aCreateDeliveryNote.TypeOfView = Nothing
+        '
+        'aUp_StorageOut
+        '
+        Me.aUp_StorageOut.Caption = "Up"
+        Me.aUp_StorageOut.Category = "RecordsNavigation"
+        Me.aUp_StorageOut.ConfirmationMessage = Nothing
+        Me.aUp_StorageOut.Id = "aUp_StorageOut"
+        Me.aUp_StorageOut.ImageName = "arrow_up_green"
+        Me.aUp_StorageOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aUp_StorageOut.Shortcut = Nothing
+        Me.aUp_StorageOut.Tag = Nothing
+        Me.aUp_StorageOut.TargetObjectsCriteria = Nothing
+        Me.aUp_StorageOut.TargetViewId = Nothing
+        Me.aUp_StorageOut.ToolTip = Nothing
+        Me.aUp_StorageOut.TypeOfView = Nothing
+        '
+        'aDown_StorageOut
+        '
+        Me.aDown_StorageOut.Caption = "Down"
+        Me.aDown_StorageOut.Category = "RecordsNavigation"
+        Me.aDown_StorageOut.ConfirmationMessage = Nothing
+        Me.aDown_StorageOut.Id = "aDown_StorageOut"
+        Me.aDown_StorageOut.ImageName = "arrow_down_green"
+        Me.aDown_StorageOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aDown_StorageOut.Shortcut = Nothing
+        Me.aDown_StorageOut.Tag = Nothing
+        Me.aDown_StorageOut.TargetObjectsCriteria = Nothing
+        Me.aDown_StorageOut.TargetViewId = Nothing
+        Me.aDown_StorageOut.ToolTip = Nothing
+        Me.aDown_StorageOut.TypeOfView = Nothing
+        '
+        'aBackToStorageOutFromOrderIn
+        '
+        Me.aBackToStorageOutFromOrderIn.Caption = "aBack To Storage Out From Order In"
+        Me.aBackToStorageOutFromOrderIn.Category = "View"
+        Me.aBackToStorageOutFromOrderIn.ConfirmationMessage = "Do you want to execute?"
+        Me.aBackToStorageOutFromOrderIn.Id = "aBackToStorageOutFromOrderIn"
+        Me.aBackToStorageOutFromOrderIn.ImageName = Nothing
+        Me.aBackToStorageOutFromOrderIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBackToStorageOutFromOrderIn.Shortcut = Nothing
+        Me.aBackToStorageOutFromOrderIn.Tag = Nothing
+        Me.aBackToStorageOutFromOrderIn.TargetObjectsCriteria = Nothing
+        Me.aBackToStorageOutFromOrderIn.TargetViewId = ""
+        Me.aBackToStorageOutFromOrderIn.ToolTip = Nothing
+        Me.aBackToStorageOutFromOrderIn.TypeOfView = Nothing
+        '
+        'aStorageOutStorno
+        '
+        Me.aStorageOutStorno.Caption = "aStorage Out Storno"
+        Me.aStorageOutStorno.Category = "Edit"
+        Me.aStorageOutStorno.ConfirmationMessage = Nothing
+        Me.aStorageOutStorno.Id = "aStorageOutStorno"
+        Me.aStorageOutStorno.ImageName = "document_delete"
+        Me.aStorageOutStorno.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aStorageOutStorno.Shortcut = Nothing
+        Me.aStorageOutStorno.Tag = Nothing
+        Me.aStorageOutStorno.TargetObjectsCriteria = Nothing
+        Me.aStorageOutStorno.TargetObjectType = GetType(Nuvolar.[Module].StorageOutHeader)
+        Me.aStorageOutStorno.TargetViewId = Nothing
+        Me.aStorageOutStorno.ToolTip = Nothing
+        Me.aStorageOutStorno.TypeOfView = Nothing
+        '
+        'aFinalize_StorageOut
+        '
+        Me.aFinalize_StorageOut.Caption = "aStorage Out Final"
+        Me.aFinalize_StorageOut.Category = "RecordEdit"
+        Me.aFinalize_StorageOut.ConfirmationMessage = Nothing
+        Me.aFinalize_StorageOut.Id = "aFinalize_StorageOut"
+        Me.aFinalize_StorageOut.ImageName = Nothing
+        Me.aFinalize_StorageOut.Shortcut = Nothing
+        Me.aFinalize_StorageOut.Tag = Nothing
+        Me.aFinalize_StorageOut.TargetObjectsCriteria = Nothing
+        Me.aFinalize_StorageOut.TargetObjectType = GetType(Nuvolar.[Module].StorageOutHeader)
+        Me.aFinalize_StorageOut.TargetViewId = Nothing
+        Me.aFinalize_StorageOut.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aFinalize_StorageOut.ToolTip = Nothing
+        Me.aFinalize_StorageOut.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aStorageOutFromPdaCollection
+        '
+        Me.aStorageOutFromPdaCollection.AcceptButtonCaption = Nothing
+        Me.aStorageOutFromPdaCollection.CancelButtonCaption = Nothing
+        Me.aStorageOutFromPdaCollection.Caption = "StorageOut From Pda Collection"
+        Me.aStorageOutFromPdaCollection.Category = "aStorageOutFromPdaCollection"
+        Me.aStorageOutFromPdaCollection.ConfirmationMessage = Nothing
+        Me.aStorageOutFromPdaCollection.Id = "aStorageOutFromPdaCollection"
+        Me.aStorageOutFromPdaCollection.ImageName = Nothing
+        Me.aStorageOutFromPdaCollection.Shortcut = Nothing
+        Me.aStorageOutFromPdaCollection.Tag = Nothing
+        Me.aStorageOutFromPdaCollection.TargetObjectsCriteria = Nothing
+        Me.aStorageOutFromPdaCollection.TargetViewId = Nothing
+        Me.aStorageOutFromPdaCollection.ToolTip = Nothing
+        Me.aStorageOutFromPdaCollection.TypeOfView = Nothing
+        '
+        'aCreatePDACollectionFromStorageOut
+        '
+        Me.aCreatePDACollectionFromStorageOut.Caption = "aCreatePDACollectionFromStorageOut"
+        Me.aCreatePDACollectionFromStorageOut.Category = "aCreatePDACollectionFromStorageOut"
+        Me.aCreatePDACollectionFromStorageOut.ConfirmationMessage = Nothing
+        Me.aCreatePDACollectionFromStorageOut.Id = "aCreatePDACollectionFromStorageOut"
+        Me.aCreatePDACollectionFromStorageOut.ImageName = "pda"
+        Me.aCreatePDACollectionFromStorageOut.Shortcut = Nothing
+        Me.aCreatePDACollectionFromStorageOut.Tag = Nothing
+        Me.aCreatePDACollectionFromStorageOut.TargetObjectsCriteria = Nothing
+        Me.aCreatePDACollectionFromStorageOut.TargetViewId = Nothing
+        Me.aCreatePDACollectionFromStorageOut.ToolTip = Nothing
+        Me.aCreatePDACollectionFromStorageOut.TypeOfView = Nothing
+        '
+        'aGenerateStorageOutPDACollection
+        '
+        Me.aGenerateStorageOutPDACollection.AcceptButtonCaption = Nothing
+        Me.aGenerateStorageOutPDACollection.CancelButtonCaption = Nothing
+        Me.aGenerateStorageOutPDACollection.Caption = "aGenerateStorageOutPDACollection"
+        Me.aGenerateStorageOutPDACollection.Category = "Edit"
+        Me.aGenerateStorageOutPDACollection.ConfirmationMessage = Nothing
+        Me.aGenerateStorageOutPDACollection.Id = "aGenerateStorageOutPDACollection"
+        Me.aGenerateStorageOutPDACollection.ImageName = Nothing
+        Me.aGenerateStorageOutPDACollection.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aGenerateStorageOutPDACollection.Shortcut = Nothing
+        Me.aGenerateStorageOutPDACollection.Tag = Nothing
+        Me.aGenerateStorageOutPDACollection.TargetObjectsCriteria = Nothing
+        Me.aGenerateStorageOutPDACollection.TargetObjectType = GetType(Nuvolar.[Module].StorageOutHeader)
+        Me.aGenerateStorageOutPDACollection.TargetViewId = Nothing
+        Me.aGenerateStorageOutPDACollection.ToolTip = Nothing
+        Me.aGenerateStorageOutPDACollection.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aFinalizeAndNew_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTable_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aSOFinList_Order As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aBackToEdit_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTableD_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateDeliveryNote As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aUp_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aDown_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aBackToStorageOutFromOrderIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aStorageOutStorno As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFinalize_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aStorageOutFromPdaCollection As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCreatePDACollectionFromStorageOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aGenerateStorageOutPDACollection As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class
@@ -0,0 +1,165 @@
+<?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="aFinalizeAndNew_StorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 524</value>
+  </metadata>
+  <metadata name="aToTable_StorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 485</value>
+  </metadata>
+  <metadata name="aSOFinList_Order.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 446</value>
+  </metadata>
+  <metadata name="aBackToEdit_StorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 407</value>
+  </metadata>
+  <metadata name="aToTableD_StorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 368</value>
+  </metadata>
+  <metadata name="aCreateDeliveryNote.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 329</value>
+  </metadata>
+  <metadata name="aUp_StorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 290</value>
+  </metadata>
+  <metadata name="aDown_StorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aBackToStorageOutFromOrderIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aStorageOutStorno.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aFinalize_StorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aStorageOutFromPdaCollection.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aCreatePDACollectionFromStorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aGenerateStorageOutPDACollection.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>908, 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>
@@ -0,0 +1,35 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class StorageInFromPDACollectionPopup
+    Inherits BaseObject
+
+    Private _Storage As Storage
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <RuleRequiredField("StorageInFromPDACollectionPopup-Storage", DefaultContexts.Save)> _
+    Property Storage As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,156 @@
+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("PDA")> _
+<DeferredDeletion(False)> _
+<DefaultProperty("DocumentNumber")> _
+<Appearance("StoragePDACollectionHeader - Disable ObjectCreated, UserCreated, DocumentNumber", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated;UserCreated;DocumentNumber", Enabled:=False)> _
+<Appearance("StoragePDACollectionHeader - Disable all properties, when StoragePDACollectionHeaderStatus=1", AppearanceItemType.ViewItem, "StoragePDACollectionHeaderStatus=1", TargetItems:="*", Enabled:=False)> _
+<Appearance("StoragePDACollectionHeader - Disable aInsertStoragePDARows, when StoragePDACollectionHeaderStatus=1", AppearanceItemType.Action, "StoragePDACollectionHeaderStatus=1", TargetItems:="aInsertStoragePDARows", Visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("StoragePDACollectionHeader - Disable aDeleteStoragePDARows, when StoragePDACollectionHeaderStatus=1", AppearanceItemType.Action, "StoragePDACollectionHeaderStatus=1", TargetItems:="aDeleteStoragePDARows", Visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class StoragePDACollectionHeader
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom
+    Private _DocumentNumber As String
+    Private _StoragePDACollectionHeaderStatus As eStoragePDACollectionHeaderStatus
+    Private _StoragePDACollectionType As eStoragePDACollectionType
+    Private _StoragePDAParameters As StoragePDAParameters
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _StorageInHeader As StorageInHeader
+    Private _StorageOutHeader As StorageOutHeader
+
+
+    Private _row_Products As Products
+    Private _row_QTT As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.ObjectCreated = GetSQLTime(Session)
+        Me.UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        Me.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eOpen
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            Me.DocumentNumber = Me.StoragePDAParameters.NumberGenerator.GetNewNumber(Me.StoragePDAParameters.NumberGenerator)
+        End If
+    End Sub
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    Property StoragePDACollectionHeaderStatus As eStoragePDACollectionHeaderStatus
+        Get
+            Return _StoragePDACollectionHeaderStatus
+        End Get
+        Set(value As eStoragePDACollectionHeaderStatus)
+            SetPropertyValue("StoragePDACollectionHeaderStatus", _StoragePDACollectionHeaderStatus, value)
+        End Set
+    End Property
+    Property StorageCollectionType As eStoragePDACollectionType
+        Get
+            Return _StoragePDACollectionType
+        End Get
+        Set(value As eStoragePDACollectionType)
+            SetPropertyValue("StoragePDACollectionType", _StoragePDACollectionType, value)
+        End Set
+    End Property
+    <RuleRequiredField("StoragePDACollectionHeader-StoragePDAParameters", DefaultContexts.Save)>
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")>
+    Property StoragePDAParameters As StoragePDAParameters
+        Get
+            Return _StoragePDAParameters
+        End Get
+        Set(value As StoragePDAParameters)
+            SetPropertyValue("StoragePDAParameters", _StoragePDAParameters, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+    Property StorageInHeader As StorageInHeader
+        Get
+            Return _StorageInHeader
+        End Get
+        Set(value As StorageInHeader)
+            SetPropertyValue("StorageInHeader", _StorageInHeader, value)
+        End Set
+    End Property
+    Property StorageOutHeader As StorageOutHeader
+        Get
+            Return _StorageOutHeader
+        End Get
+        Set(value As StorageOutHeader)
+            SetPropertyValue("StorageOutHeader", _StorageOutHeader, value)
+        End Set
+    End Property
+
+    'Nonpersistent
+    <NonPersistent> _
+    Property row_Products As Products
+        Get
+            Return _row_Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("row_Products", _row_Products, value)
+        End Set
+    End Property
+    <NonPersistent> _
+    Property row_QTT As Double
+        Get
+            Return _row_QTT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_QTT", _row_QTT, value)
+        End Set
+    End Property
+    '--------------------ReadOnly--------------------------
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    <Association("StoragePDACollectionHeader-StoragePDACollectionRows", GetType(StoragePDACollectionRows)), Aggregated()> _
+    Public ReadOnly Property StoragePDACollectionRows() As XPCollection(Of StoragePDACollectionRows)
+        Get
+            Return GetCollection(Of StoragePDACollectionRows)("StoragePDACollectionRows")
+        End Get
+    End Property
+End Class
+
@@ -0,0 +1,270 @@
+Partial Class StoragePDACollectionHeaderVC
+
+	<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.aLocatePDACollectionIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aLocatePDACollectionOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aImportCSVToStoragePDA = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aGetBarcodeStoragePDA = New DevExpress.ExpressApp.Actions.ParametrizedAction(Me.components)
+        Me.aPrintReport_StoragePDA = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aImportPDA_StoragePDA = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTableD_StoragePDA = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTable_StoragePDA = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTable_StoragePDA_ocur = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTableD_StoragePDA_ocur = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aGetBarcodeStoragePDA_ocur = New DevExpress.ExpressApp.Actions.ParametrizedAction(Me.components)
+        Me.aImportPDA_StoragePDA_ocur = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aGeneratePDARowsByPricingActionHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aGeneratePDARowsByDiscount = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aStoragePDARow_Divide = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aStoragePDARow_Merge = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aLocatePDACollectionIn
+        '
+        Me.aLocatePDACollectionIn.Caption = "aLocatePDACollectionIn"
+        Me.aLocatePDACollectionIn.Category = "ObjectsCreation"
+        Me.aLocatePDACollectionIn.ConfirmationMessage = Nothing
+        Me.aLocatePDACollectionIn.Id = "aLocatePDACollectionIn"
+        Me.aLocatePDACollectionIn.ImageName = "PDA"
+        Me.aLocatePDACollectionIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aLocatePDACollectionIn.TargetObjectsCriteria = "StorageCollectionType=1 AND StoragePDACollectionHeaderStatus=2"
+        Me.aLocatePDACollectionIn.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionHeader)
+        Me.aLocatePDACollectionIn.TargetViewId = ""
+        Me.aLocatePDACollectionIn.ToolTip = Nothing
+        '
+        'aLocatePDACollectionOut
+        '
+        Me.aLocatePDACollectionOut.Caption = "aLocatePDACollectionOut"
+        Me.aLocatePDACollectionOut.Category = "ObjectsCreation"
+        Me.aLocatePDACollectionOut.ConfirmationMessage = Nothing
+        Me.aLocatePDACollectionOut.Id = "aLocatePDACollectionOut"
+        Me.aLocatePDACollectionOut.ImageName = "PDA"
+        Me.aLocatePDACollectionOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aLocatePDACollectionOut.TargetObjectsCriteria = "StorageCollectionType=2 AND StoragePDACollectionHeaderStatus=2"
+        Me.aLocatePDACollectionOut.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionHeader)
+        Me.aLocatePDACollectionOut.TargetViewId = ""
+        Me.aLocatePDACollectionOut.ToolTip = Nothing
+        '
+        'aImportCSVToStoragePDA
+        '
+        Me.aImportCSVToStoragePDA.Caption = "aImport CSVTo Storage PDA"
+        Me.aImportCSVToStoragePDA.Category = "aImportCSVToStoragePDA"
+        Me.aImportCSVToStoragePDA.ConfirmationMessage = Nothing
+        Me.aImportCSVToStoragePDA.Id = "aImportCSVToStoragePDA"
+        Me.aImportCSVToStoragePDA.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aImportCSVToStoragePDA.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionHeader)
+        Me.aImportCSVToStoragePDA.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
+        Me.aImportCSVToStoragePDA.ToolTip = Nothing
+        '
+        'aGetBarcodeStoragePDA
+        '
+        Me.aGetBarcodeStoragePDA.Caption = "aGet Barcode Storage PDA"
+        Me.aGetBarcodeStoragePDA.Category = "aGetBarcodeStoragePDA"
+        Me.aGetBarcodeStoragePDA.ConfirmationMessage = Nothing
+        Me.aGetBarcodeStoragePDA.Id = "aGetBarcodeStoragePDA"
+        Me.aGetBarcodeStoragePDA.NullValuePrompt = Nothing
+        Me.aGetBarcodeStoragePDA.ShortCaption = Nothing
+        Me.aGetBarcodeStoragePDA.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionHeader)
+        Me.aGetBarcodeStoragePDA.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aGetBarcodeStoragePDA.ToolTip = Nothing
+        Me.aGetBarcodeStoragePDA.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aPrintReport_StoragePDA
+        '
+        Me.aPrintReport_StoragePDA.AcceptButtonCaption = Nothing
+        Me.aPrintReport_StoragePDA.CancelButtonCaption = Nothing
+        Me.aPrintReport_StoragePDA.Caption = "aPrintReport_StoragePDA"
+        Me.aPrintReport_StoragePDA.ConfirmationMessage = Nothing
+        Me.aPrintReport_StoragePDA.Id = "aPrintReport_StoragePDA"
+        Me.aPrintReport_StoragePDA.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aPrintReport_StoragePDA.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionHeader)
+        Me.aPrintReport_StoragePDA.ToolTip = Nothing
+        '
+        'aImportPDA_StoragePDA
+        '
+        Me.aImportPDA_StoragePDA.Caption = "aImportPDA_StoragePDA"
+        Me.aImportPDA_StoragePDA.Category = "aImportPDA_StoragePDA"
+        Me.aImportPDA_StoragePDA.ConfirmationMessage = Nothing
+        Me.aImportPDA_StoragePDA.Id = "aImportPDA_StoragePDA"
+        Me.aImportPDA_StoragePDA.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionHeader)
+        Me.aImportPDA_StoragePDA.ToolTip = Nothing
+        '
+        'aToTableD_StoragePDA
+        '
+        Me.aToTableD_StoragePDA.Caption = "Delete row"
+        Me.aToTableD_StoragePDA.Category = "aToTableD_StoragePDA"
+        Me.aToTableD_StoragePDA.ConfirmationMessage = Nothing
+        Me.aToTableD_StoragePDA.Id = "aToTableD_StoragePDA"
+        Me.aToTableD_StoragePDA.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aToTableD_StoragePDA.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionHeader)
+        Me.aToTableD_StoragePDA.TargetViewId = ""
+        Me.aToTableD_StoragePDA.ToolTip = Nothing
+        '
+        'aToTable_StoragePDA
+        '
+        Me.aToTable_StoragePDA.Caption = "Add row"
+        Me.aToTable_StoragePDA.Category = "aToTable_StoragePDA"
+        Me.aToTable_StoragePDA.ConfirmationMessage = Nothing
+        Me.aToTable_StoragePDA.Id = "aToTable_StoragePDA"
+        Me.aToTable_StoragePDA.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aToTable_StoragePDA.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionHeader)
+        Me.aToTable_StoragePDA.TargetViewId = ""
+        Me.aToTable_StoragePDA.ToolTip = Nothing
+        '
+        'aToTable_StoragePDA_ocur
+        '
+        Me.aToTable_StoragePDA_ocur.Caption = "Add row"
+        Me.aToTable_StoragePDA_ocur.Category = "aToTable_StoragePDA_ocur"
+        Me.aToTable_StoragePDA_ocur.ConfirmationMessage = Nothing
+        Me.aToTable_StoragePDA_ocur.Id = "aToTable_StoragePDA_ocur"
+        Me.aToTable_StoragePDA_ocur.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aToTable_StoragePDA_ocur.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionHeader)
+        Me.aToTable_StoragePDA_ocur.TargetViewId = ""
+        Me.aToTable_StoragePDA_ocur.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aToTable_StoragePDA_ocur.ToolTip = Nothing
+        Me.aToTable_StoragePDA_ocur.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aToTableD_StoragePDA_ocur
+        '
+        Me.aToTableD_StoragePDA_ocur.Caption = "Delete row"
+        Me.aToTableD_StoragePDA_ocur.Category = "aToTableD_StoragePDA_ocur"
+        Me.aToTableD_StoragePDA_ocur.ConfirmationMessage = Nothing
+        Me.aToTableD_StoragePDA_ocur.Id = "aToTableD_StoragePDA_ocur"
+        Me.aToTableD_StoragePDA_ocur.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aToTableD_StoragePDA_ocur.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionHeader)
+        Me.aToTableD_StoragePDA_ocur.TargetViewId = ""
+        Me.aToTableD_StoragePDA_ocur.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aToTableD_StoragePDA_ocur.ToolTip = Nothing
+        Me.aToTableD_StoragePDA_ocur.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aGetBarcodeStoragePDA_ocur
+        '
+        Me.aGetBarcodeStoragePDA_ocur.Caption = "aGetBarcodeStoragePDA_ocur"
+        Me.aGetBarcodeStoragePDA_ocur.Category = "aGetBarcodeStoragePDA_ocur"
+        Me.aGetBarcodeStoragePDA_ocur.ConfirmationMessage = Nothing
+        Me.aGetBarcodeStoragePDA_ocur.Id = "aGetBarcodeStoragePDA_ocur"
+        Me.aGetBarcodeStoragePDA_ocur.NullValuePrompt = Nothing
+        Me.aGetBarcodeStoragePDA_ocur.ShortCaption = Nothing
+        Me.aGetBarcodeStoragePDA_ocur.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionHeader)
+        Me.aGetBarcodeStoragePDA_ocur.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aGetBarcodeStoragePDA_ocur.ToolTip = Nothing
+        Me.aGetBarcodeStoragePDA_ocur.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aImportPDA_StoragePDA_ocur
+        '
+        Me.aImportPDA_StoragePDA_ocur.Caption = "aImportPDA_StoragePDA_ocur"
+        Me.aImportPDA_StoragePDA_ocur.Category = "aImportPDA_StoragePDA_ocur"
+        Me.aImportPDA_StoragePDA_ocur.ConfirmationMessage = Nothing
+        Me.aImportPDA_StoragePDA_ocur.Id = "aImportPDA_StoragePDA_ocur"
+        Me.aImportPDA_StoragePDA_ocur.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionHeader)
+        Me.aImportPDA_StoragePDA_ocur.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aImportPDA_StoragePDA_ocur.ToolTip = Nothing
+        Me.aImportPDA_StoragePDA_ocur.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aGeneratePDARowsByPricingActionHeader
+        '
+        Me.aGeneratePDARowsByPricingActionHeader.AcceptButtonCaption = Nothing
+        Me.aGeneratePDARowsByPricingActionHeader.CancelButtonCaption = Nothing
+        Me.aGeneratePDARowsByPricingActionHeader.Caption = "aGenerate PDARows By Pricing Action Header"
+        Me.aGeneratePDARowsByPricingActionHeader.Category = "aGeneratePDARowsByPricingActionHeader"
+        Me.aGeneratePDARowsByPricingActionHeader.ConfirmationMessage = Nothing
+        Me.aGeneratePDARowsByPricingActionHeader.Id = "aGeneratePDARowsByPricingActionHeader"
+        Me.aGeneratePDARowsByPricingActionHeader.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionHeader)
+        Me.aGeneratePDARowsByPricingActionHeader.ToolTip = Nothing
+        '
+        'aGeneratePDARowsByDiscount
+        '
+        Me.aGeneratePDARowsByDiscount.AcceptButtonCaption = Nothing
+        Me.aGeneratePDARowsByDiscount.CancelButtonCaption = Nothing
+        Me.aGeneratePDARowsByDiscount.Caption = "aGenerate PDARows By Discount"
+        Me.aGeneratePDARowsByDiscount.Category = "aGeneratePDARowsByDiscount"
+        Me.aGeneratePDARowsByDiscount.ConfirmationMessage = Nothing
+        Me.aGeneratePDARowsByDiscount.Id = "aGeneratePDARowsByDiscount"
+        Me.aGeneratePDARowsByDiscount.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionHeader)
+        Me.aGeneratePDARowsByDiscount.ToolTip = Nothing
+        '
+        'aStoragePDARow_Divide
+        '
+        Me.aStoragePDARow_Divide.AcceptButtonCaption = Nothing
+        Me.aStoragePDARow_Divide.CancelButtonCaption = Nothing
+        Me.aStoragePDARow_Divide.Caption = "aStoragePDARow_Divide"
+        Me.aStoragePDARow_Divide.ConfirmationMessage = Nothing
+        Me.aStoragePDARow_Divide.Id = "aStoragePDARow_Divide"
+        Me.aStoragePDARow_Divide.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aStoragePDARow_Divide.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionRows)
+        Me.aStoragePDARow_Divide.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aStoragePDARow_Divide.ToolTip = Nothing
+        Me.aStoragePDARow_Divide.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aStoragePDARow_Merge
+        '
+        Me.aStoragePDARow_Merge.Caption = "aStoragePDARow_Merge"
+        Me.aStoragePDARow_Merge.ConfirmationMessage = Nothing
+        Me.aStoragePDARow_Merge.Id = "aStoragePDARow_Merge"
+        Me.aStoragePDARow_Merge.TargetObjectType = GetType(Nuvolar.[Module].StoragePDACollectionRows)
+        Me.aStoragePDARow_Merge.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aStoragePDARow_Merge.ToolTip = Nothing
+        Me.aStoragePDARow_Merge.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'StoragePDACollectionHeaderVC
+        '
+        Me.Actions.Add(Me.aLocatePDACollectionIn)
+        Me.Actions.Add(Me.aLocatePDACollectionOut)
+        Me.Actions.Add(Me.aImportCSVToStoragePDA)
+        Me.Actions.Add(Me.aGetBarcodeStoragePDA)
+        Me.Actions.Add(Me.aPrintReport_StoragePDA)
+        Me.Actions.Add(Me.aImportPDA_StoragePDA)
+        Me.Actions.Add(Me.aToTableD_StoragePDA)
+        Me.Actions.Add(Me.aToTable_StoragePDA)
+        Me.Actions.Add(Me.aToTable_StoragePDA_ocur)
+        Me.Actions.Add(Me.aToTableD_StoragePDA_ocur)
+        Me.Actions.Add(Me.aGetBarcodeStoragePDA_ocur)
+        Me.Actions.Add(Me.aImportPDA_StoragePDA_ocur)
+        Me.Actions.Add(Me.aGeneratePDARowsByPricingActionHeader)
+        Me.Actions.Add(Me.aGeneratePDARowsByDiscount)
+        Me.Actions.Add(Me.aStoragePDARow_Divide)
+        Me.Actions.Add(Me.aStoragePDARow_Merge)
+
+    End Sub
+    Friend WithEvents aLocatePDACollectionIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aLocatePDACollectionOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aGetBarcodeStoragePDA As DevExpress.ExpressApp.Actions.ParametrizedAction
+    Public WithEvents aImportCSVToStoragePDA As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aPrintReport_StoragePDA As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aImportPDA_StoragePDA As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTableD_StoragePDA As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTable_StoragePDA As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTable_StoragePDA_ocur As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTableD_StoragePDA_ocur As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aGetBarcodeStoragePDA_ocur As DevExpress.ExpressApp.Actions.ParametrizedAction
+    Friend WithEvents aImportPDA_StoragePDA_ocur As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aGeneratePDARowsByPricingActionHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aGeneratePDARowsByDiscount As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Public WithEvents aStoragePDARow_Divide As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Public WithEvents aStoragePDARow_Merge As DevExpress.ExpressApp.Actions.SimpleAction
+End Class
@@ -0,0 +1,171 @@
+<?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="aLocatePDACollectionIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aLocatePDACollectionOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aImportCSVToStoragePDA.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 290</value>
+  </metadata>
+  <metadata name="aGetBarcodeStoragePDA.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 368</value>
+  </metadata>
+  <metadata name="aPrintReport_StoragePDA.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 446</value>
+  </metadata>
+  <metadata name="aImportPDA_StoragePDA.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 485</value>
+  </metadata>
+  <metadata name="aToTableD_StoragePDA.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 524</value>
+  </metadata>
+  <metadata name="aToTable_StoragePDA.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aToTable_StoragePDA_ocur.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 563</value>
+  </metadata>
+  <metadata name="aToTableD_StoragePDA_ocur.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 602</value>
+  </metadata>
+  <metadata name="aGetBarcodeStoragePDA_ocur.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aImportPDA_StoragePDA_ocur.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 407</value>
+  </metadata>
+  <metadata name="aGeneratePDARowsByPricingActionHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 329</value>
+  </metadata>
+  <metadata name="aGeneratePDARowsByDiscount.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aStoragePDARow_Divide.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aStoragePDARow_Merge.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>189, 56</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>
@@ -0,0 +1,622 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Xpo
+Imports System.IO
+Imports Microsoft.VisualBasic.FileIO
+Imports System.Reflection
+Imports DevExpress.Xpo.DB
+Imports System.Net
+
+Public Class StoragePDACollectionHeaderVC
+    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()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+
+
+        If View.Id = "StoragePDACollectionHeader_ListView" Then
+            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "StoragePDACollectionHeader_StoragePDACollectionRows_ListView" Then
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of AuditTrailVC)().aGetAuditTrail.Active.SetItemValue("", False)
+        End If
+
+        '--------------------------DetailViewZ----------------------------------------
+        If View.Id = "StoragePDACollectionHeader_DetailView" Then
+            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "StorageInFromPDACollectionPopup_DetailView" Then
+            AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "StoragePDACollectionHeader_ListView" Then
+            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "StoragePDACollectionHeader_StoragePDACollectionRows_ListView" Then
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+            Frame.GetController(Of AuditTrailVC)().aGetAuditTrail.Active.SetItemValue("", True)
+        End If
+
+        '--------------------------DetailViewZ----------------------------------------
+        If View.Id = "StoragePDACollectionHeader_DetailView" Then
+            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "StorageInFromPDACollectionPopup_DetailView" Then
+            RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
+        End If
+    End Sub
+    Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
+        Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save)
+    End Sub
+
+    Private Sub aInsertStoragePDARows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs)
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _StoragePDACollectionRows As StoragePDACollectionRows = _onew.CreateObject(Of StoragePDACollectionRows)()
+
+        e.View = Application.CreateDetailView(_onew, "StoragePDACollectionRows_DetailView", False, _StoragePDACollectionRows)
+    End Sub
+    Private Sub aInsertStoragePDARows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs)
+
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
+            Dim _StoragePDACollectionRows_PopUp As StoragePDACollectionRows = TryCast(e.PopupWindow.View.SelectedObjects(0), StoragePDACollectionRows)
+            If _StoragePDACollectionRows_PopUp Is Nothing Then Throw New Exception("*")
+            Dim _StoragePDACollectionRows As StoragePDACollectionRows = _ocur.CreateObject(Of StoragePDACollectionRows)()
+            _StoragePDACollectionRows.StoragePDACollectionHeader = _ocur.GetObject(_StoragePDACollectionHeader)
+            _StoragePDACollectionRows.Products = _ocur.GetObject(_StoragePDACollectionRows_PopUp.Products)
+            _StoragePDACollectionRows.QTT = _StoragePDACollectionRows_PopUp.QTT
+            _StoragePDACollectionRows.Description = _StoragePDACollectionRows_PopUp.Description
+
+            _ocur.CommitChanges()
+
+            Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame)
+            If nestedFrame IsNot Nothing Then
+                Dim parentView As View = nestedFrame.View
+                parentView.ObjectSpace.Refresh()
+            End If
+        Catch ext As Exception
+            MsgBox(ext.Message)
+        End Try
+
+    End Sub
+    Private Sub aDeleteStoragePDARows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs)
+        Try
+            Dim _StoragePDACollectionRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("StoragePDACollectionRows")
+            If _StoragePDACollectionRows_ListEditor Is Nothing Then Throw New Exception("*Váratlan hiba történt, művelet megszakadt!")
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _StoragePDACollectionRows_DEL_Collection As New ArrayList
+            For Each _StoragePDACollectionRows As StoragePDACollectionRows In _StoragePDACollectionRows_ListEditor.ListView.SelectedObjects
+                _StoragePDACollectionRows_DEL_Collection.Add(_StoragePDACollectionRows)
+            Next
+            _ocur.Delete(_StoragePDACollectionRows_DEL_Collection)
+            _ocur.CommitChanges()
+        Catch ext As Exception
+            MsgBox(ext.Message)
+        End Try
+    End Sub
+
+    Private Sub aLocatePDACollectionIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aLocatePDACollectionIn.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
+            If _StoragePDACollectionHeader Is Nothing Then Throw New Exception("*Nincs kijelölve egyetlen PDA kollekció sem!")
+            If _StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eClosed Then Throw New Exception("*A kollekció már fel lett dolgozva!")
+            If _StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eOpen Then Throw New Exception("*A kollekció még nem lett lokalizálva!")
+            Dim _StorageComputedLocations As StorageComputedLocations = Nothing
+
+            For Each _StoragePDACollectionRows As StoragePDACollectionRows In _StoragePDACollectionHeader.StoragePDACollectionRows
+                If _StoragePDACollectionRows.StorageLocation IsNot Nothing Then
+                    Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed) _
+                                       (CriteriaOperator.Parse("Storage=? AND Products=?", _StoragePDACollectionRows.StorageLocation.Storage, _StoragePDACollectionRows.Products))
+
+                    If _StorageComputed Is Nothing Then Throw New Exception("*Végzetes hiba történt, a folymat megszakadt!")
+
+                    If _StoragePDACollectionRows.Products.ProductType = eProductType.ePacketNumber Or _
+                        _StoragePDACollectionRows.Products.ProductType = eProductType.eSerialNumber Then
+
+                        _StorageComputedLocations = _ocur.CreateObject(Of StorageComputedLocations)()
+
+                        _StorageComputedLocations.StorageComputed = _StorageComputed
+                        _StorageComputedLocations.QTT = _StoragePDACollectionRows.QTT
+                        _StorageComputedLocations.StorageLocation = _StoragePDACollectionRows.StorageLocation
+
+                        _StorageComputedLocations.SerialNumber = _StoragePDACollectionRows.SerialNumber
+                        _StorageComputedLocations.PacketNumber = _StoragePDACollectionRows.PacketNumber
+
+                    Else
+                        _StorageComputedLocations = _ocur.FindObject(Of StorageComputedLocations)(CriteriaOperator.Parse("StorageComputed=? AND StorageLocation=?", _
+                                                                                                                   _StorageComputed, _StoragePDACollectionRows.StorageLocation))
+                        If _StorageComputedLocations Is Nothing Then
+                            _StorageComputedLocations = _ocur.CreateObject(Of StorageComputedLocations)()
+
+                            _StorageComputedLocations.StorageComputed = _StorageComputed
+                            _StorageComputedLocations.QTT = _StoragePDACollectionRows.QTT
+                            _StorageComputedLocations.StorageLocation = _StoragePDACollectionRows.StorageLocation
+                        Else
+                            _StorageComputedLocations.QTT += _StoragePDACollectionRows.QTT
+                        End If
+
+                    End If
+
+                End If
+            Next
+            _StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eClosed
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+    Private Sub aLocatePDACollectionOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aLocatePDACollectionOut.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
+            If _StoragePDACollectionHeader Is Nothing Then Throw New Exception("*Nincs kijelölve egyetlen PDA kollekció sem!")
+
+            'For Each _StoragePDACollectionRows As StoragePDACollectionRows In _StoragePDACollectionHeader.StoragePDACollectionRows
+            '    Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed) _
+            '                               (CriteriaOperator.Parse("Storage=? AND Products=?", _StoragePDACollectionRows.StorageLocation.Storage, _StoragePDACollectionRows.Products))
+            '    Dim _StorageComputedLocations As StorageComputedLocations = _ocur.FindObject(Of StorageComputedLocations)(CriteriaOperator.Parse("StorageLocation=? AND StorageComputed=?", _StoragePDACollectionRows.StorageLocation, _StorageComputed))
+
+            '    ' _StorageComputedLocations.QTT -= _StoragePDACollectionRows.QTT
+            'Next
+            _StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eClosed
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly)
+        End Try
+    End Sub
+
+    Private Sub aGetBarcodeStoragePDA_Execute(sender As Object, e As ParametrizedActionExecuteEventArgs) Handles aGetBarcodeStoragePDA.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+
+        Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
+        Dim _Barcode As String = TryCast(e.ParameterCurrentValue, String)
+
+        TryCast(sender, ParametrizedAction).Value = Nothing
+
+        _Barcode = _Barcode.Replace("ö", "0")
+
+        If LTrim(RTrim(_Barcode)) <> "" Then
+            Dim _ProductsBarcodes As ProductsBarcodes = _onew.FindObject(Of ProductsBarcodes)(CriteriaOperator.Parse("StartsWith([Barcode], ?)", _Barcode))
+            If _ProductsBarcodes IsNot Nothing Then
+                Dim _StoragePDACollectionRows As StoragePDACollectionRows
+
+                _StoragePDACollectionRows = _onew.CreateObject(Of StoragePDACollectionRows)()
+                _StoragePDACollectionRows.StoragePDACollectionHeader = _onew.GetObject(_StoragePDACollectionHeader)
+                _StoragePDACollectionRows.Barcode = _Barcode
+                _StoragePDACollectionRows.Products = _ProductsBarcodes.Products
+                If _StoragePDACollectionHeader.row_QTT <= 0 Then
+                    _StoragePDACollectionRows.QTT = 1
+                Else
+                    _StoragePDACollectionRows.QTT = _StoragePDACollectionHeader.row_QTT
+                End If
+                _StoragePDACollectionRows.QTT_Processed = 0
+
+                _onew.CommitChanges()
+            End If
+            Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+        End If
+
+        'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        'Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
+        'Dim _Barcode As String = TryCast(e.ParameterCurrentValue, String)
+
+        'TryCast(sender, ParametrizedAction).Value = Nothing
+
+        'If LTrim(RTrim(_Barcode)) <> "" Then
+        '    Dim _ProductsBarcodes As ProductsBarcodes = _ocur.FindObject(Of ProductsBarcodes)(CriteriaOperator.Parse("StartsWith([Barcode], ?)", _Barcode))
+        '    If _ProductsBarcodes IsNot Nothing Then
+        '        Dim _StoragePDACollectionRows As StoragePDACollectionRows
+
+        '        _StoragePDACollectionRows = _ocur.CreateObject(Of StoragePDACollectionRows)()
+        '        _StoragePDACollectionRows.StoragePDACollectionHeader = _StoragePDACollectionHeader
+        '        _StoragePDACollectionRows.Barcode = _Barcode
+        '        _StoragePDACollectionRows.Products = _ProductsBarcodes.Products
+        '        If _StoragePDACollectionHeader.row_QTT <= 0 Then
+        '            _StoragePDACollectionRows.QTT = 1
+        '        Else
+        '            _StoragePDACollectionRows.QTT = _StoragePDACollectionHeader.row_QTT
+        '        End If
+        '        _StoragePDACollectionRows.QTT_Processed = 0
+
+        '        '_onew.CommitChanges()
+        '    End If
+        '    'Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+        'End If
+
+
+    End Sub
+
+    Private Sub aImportCSVToStoragePDA_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aImportCSVToStoragePDA.Execute
+    End Sub
+
+    Private Sub aPrintReport_StoragePDA_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aPrintReport_StoragePDA.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _ReportData_CollectionSource = New CollectionSource(_onew, GetType(ReportData))
+
+
+        _ReportData_CollectionSource.BeginUpdateCriteria()
+        _ReportData_CollectionSource.Criteria("Criteria") = CriteriaOperator.Parse("DataTypeName='Nuvolar.Module.PricingProductsBarcodePrint'")
+        _ReportData_CollectionSource.EndUpdateCriteria()
+
+        e.View = Application.CreateListView("ReportData_ListView_Select", _ReportData_CollectionSource, True)
+    End Sub
+    Private Sub aPrintReport_StoragePDA_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aPrintReport_StoragePDA.Execute
+        Dim _ReportData As ReportData = TryCast(e.PopupWindow.View.SelectedObjects(0), ReportData)
+        If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!")
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
+            '// Le kell generálni a sorokat
+            Dim _textStreamReader As StreamReader
+            Dim _assembly As [Assembly]
+            Dim _SQL As String
+            Try
+                _assembly = [Assembly].GetExecutingAssembly()
+                _textStreamReader = New StreamReader(_assembly.GetManifestResourceStream("Nuvolar.Module.StoragePDAGenerateDataforPrint.sql"))
+                _SQL = _textStreamReader.ReadToEnd
+
+                _SQL = String.Format(_SQL, _StoragePDACollectionHeader.Oid.ToString, SecuritySystem.CurrentUserId.ToString)
+                _ocur.Session.ExecuteNonQuery(_SQL)
+
+            Catch ex As Exception
+                MsgBox(ex.Message, MsgBoxStyle.Critical)
+            End Try
+
+        Catch ext As Exception
+            MsgBox(ext.Message, MsgBoxStyle.OkOnly)
+        Finally
+            RaiseEvent FinalWork()
+            Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("MasterKey=?", SecuritySystem.CurrentUserId))
+        End Try
+    End Sub
+
+    Private Sub aImportPDA_StoragePDA_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aImportPDA_StoragePDA.Execute
+        ''Megnyitja a PDA-t és beemeli a sorokat
+        'Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        'Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = _onew.GetObjectByKey(Of StoragePDACollectionHeader)(TryCast(View.SelectedObjects(0), StoragePDACollectionHeader).Oid)
+        'Dim _Products As Products
+
+        'Try
+        '    GLOBAL_HAS_Audit = False
+        '    Dim _DeliveryNoteInType As DeliveryNoteInType = _onew.FindObject(Of DeliveryNoteInType)(CriteriaOperator.Parse("IsNull(PDAPath)=False and PDAPath !=''"))
+
+        '    If File.Exists(_DeliveryNoteInType.PDAPath) Then
+        '        Dim _StreamFile = New FileStream(_DeliveryNoteInType.PDAPath, FileMode.Open, FileAccess.Read)
+        '        Dim _StreamReader As New StreamReader(_StreamFile)
+        '        Dim _StrBuffer As String = ""
+        '        Dim _LineCount As Long = File.ReadAllLines(_DeliveryNoteInType.PDAPath).Length
+        '        _StreamFile.Seek(0, SeekOrigin.Begin)
+        '        _StrBuffer = _StreamReader.ReadToEnd()
+        '        _StreamReader.Close()
+        '        _StreamFile.Close()
+        '        File.Delete(_DeliveryNoteInType.PDAPath)
+        '        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+        '        Using parser As New TextFieldParser(New StringReader(_StrBuffer))
+        '            parser.TextFieldType = FieldType.Delimited
+        '            parser.SetDelimiters(",")
+        '            RaiseEvent InitWork(1, 1, _LineCount)
+        '            While Not parser.EndOfData
+        '                Try
+        '                    RaiseEvent DoWork()
+        '                    Dim columns As String() = parser.ReadFields()
+        '                    _Products = _onew.FindObject(Of Products)(CriteriaOperator.Parse("ProductNumber=?", columns(2).ToString))
+        '                    If _Products IsNot Nothing Then
+        '                        Dim _StoragePDACollectionRows As StoragePDACollectionRows
+
+        '                        _StoragePDACollectionRows = _onew.CreateObject(Of StoragePDACollectionRows)()
+        '                        _StoragePDACollectionRows.StoragePDACollectionHeader = _onew.GetObject(_StoragePDACollectionHeader)
+        '                        _StoragePDACollectionRows.Products = _onew.GetObject(_Products)
+        '                        _StoragePDACollectionRows.QTT = Val(columns(4))
+        '                        _StoragePDACollectionRows.QTT_Processed = 0
+
+        '                        _onew.CommitChanges()
+        '                    End If
+        '                Catch ex As MalformedLineException
+        '                    'MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
+        '                End Try
+        '            End While
+        '        End Using
+        '        _onew.CommitChanges()
+        '        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        '    End If
+        'Catch ex As Exception
+        '    MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
+        'Finally
+        '    RaiseEvent FinalWork()
+        '    GLOBAL_HAS_Audit = True
+        '    Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+        'End Try
+    End Sub
+
+    Private Sub aToTable_StoragePDA_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aToTable_StoragePDA.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
+
+        Dim _Start As String
+
+        'Dim watch As Stopwatch = Stopwatch.StartNew()
+
+        If _StoragePDACollectionHeader.row_Products IsNot Nothing Then
+            Dim _StoragePDACollectionRows As StoragePDACollectionRows
+
+            _StoragePDACollectionRows = _onew.CreateObject(Of StoragePDACollectionRows)()
+            _StoragePDACollectionRows.StoragePDACollectionHeader = _onew.GetObject(_StoragePDACollectionHeader)
+            _StoragePDACollectionRows.Barcode = ""
+            _StoragePDACollectionRows.Products = _onew.GetObjectByKey(Of Products)(_StoragePDACollectionHeader.row_Products.Oid)
+            If _StoragePDACollectionHeader.row_QTT < 0 Then
+                _StoragePDACollectionRows.QTT = 1
+            Else
+                _StoragePDACollectionRows.QTT = _StoragePDACollectionHeader.row_QTT
+            End If
+            _StoragePDACollectionRows.QTT_Processed = 0
+
+            _onew.CommitChanges()
+            Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+        End If
+        'watch.Stop()
+        'MsgBox(watch.Elapsed.TotalMilliseconds)
+    End Sub
+
+    Private Sub aToTableD_StoragePDA_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aToTableD_StoragePDA.Execute
+        ' a kiválasztott sorokat törli -----------------------------------------------
+        'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), StoragePDACollectionHeader))
+        Dim _StoragePDACollectionRows_Collection As ArrayList = New ArrayList
+        Dim _StoragePDACollectionRows_ListEditor As ListPropertyEditor
+
+        Try
+            GLOBAL_HAS_Audit = False
+            _StoragePDACollectionRows_ListEditor = TryCast(View, DetailView).FindItem("StoragePDACollectionRows")
+
+            For Each _StoragePDACollectionRows As StoragePDACollectionRows In _StoragePDACollectionRows_ListEditor.ListView.SelectedObjects
+                _StoragePDACollectionRows_Collection.Add(_onew.GetObject(_StoragePDACollectionRows))
+            Next
+
+            _onew.Delete(_StoragePDACollectionRows_Collection)
+            _onew.CommitChanges()
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
+        Finally
+            GLOBAL_HAS_Audit = True
+            Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+        End Try
+    End Sub
+
+    Private Sub aToTable_StoragePDA_ocur_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aToTable_StoragePDA_ocur.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
+
+        If _StoragePDACollectionHeader.row_Products IsNot Nothing Then
+            Dim _StoragePDACollectionRows As StoragePDACollectionRows
+            _StoragePDACollectionRows = _ocur.CreateObject(Of StoragePDACollectionRows)()
+            _StoragePDACollectionRows.StoragePDACollectionHeader = _ocur.GetObject(_StoragePDACollectionHeader)
+            _StoragePDACollectionRows.Barcode = ""
+            _StoragePDACollectionRows.Products = _ocur.GetObjectByKey(Of Products)(_StoragePDACollectionHeader.row_Products.Oid)
+            _StoragePDACollectionRows.RowIndex = _StoragePDACollectionHeader.StoragePDACollectionRows.Count + 1
+            If _StoragePDACollectionHeader.row_QTT < 0 Then
+                _StoragePDACollectionRows.QTT = 1
+            Else
+                _StoragePDACollectionRows.QTT = _StoragePDACollectionHeader.row_QTT
+            End If
+            _StoragePDACollectionRows.QTT_Processed = 0
+        End If
+    End Sub
+
+    Private Sub aToTableD_StoragePDA_ocur_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aToTableD_StoragePDA_ocur.Execute
+        ' a kiválasztott sorokat törli -----------------------------------------------
+
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
+        Dim _StoragePDACollectionRows_Collection As ArrayList = New ArrayList
+        Dim _StoragePDACollectionRows_ListEditor As ListPropertyEditor
+        Try
+            _StoragePDACollectionRows_ListEditor = TryCast(View, DetailView).FindItem("StoragePDACollectionRows")
+            For Each _StoragePDACollectionRows As StoragePDACollectionRows In _StoragePDACollectionRows_ListEditor.ListView.SelectedObjects
+                _StoragePDACollectionRows_Collection.Add(_ocur.GetObject(_StoragePDACollectionRows))
+            Next
+            _ocur.Delete(_StoragePDACollectionRows_Collection)
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
+        Finally
+        End Try
+    End Sub
+
+    Private Sub aGetBarcodeStoragePDA_ocur_Execute(sender As Object, e As ParametrizedActionExecuteEventArgs) Handles aGetBarcodeStoragePDA_ocur.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+
+        Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
+        Dim _Barcode As String = TryCast(e.ParameterCurrentValue, String)
+
+        TryCast(sender, ParametrizedAction).Value = Nothing
+
+        If LTrim(RTrim(_Barcode)) <> "" Then
+            Dim _ProductsBarcodes As ProductsBarcodes = _ocur.FindObject(Of ProductsBarcodes)(CriteriaOperator.Parse("StartsWith([Barcode], ?)", _Barcode), True)
+            If _ProductsBarcodes IsNot Nothing Then
+                Dim _StoragePDACollectionRows As StoragePDACollectionRows
+
+
+                _StoragePDACollectionRows = _ocur.CreateObject(Of StoragePDACollectionRows)()
+                _StoragePDACollectionRows.StoragePDACollectionHeader = _StoragePDACollectionHeader
+                _StoragePDACollectionRows.Barcode = _Barcode
+                _StoragePDACollectionRows.Products = _ProductsBarcodes.Products
+                _StoragePDACollectionRows.RowIndex = _StoragePDACollectionHeader.StoragePDACollectionRows.Count + 1
+                If _StoragePDACollectionHeader.row_QTT <= 0 Then
+                    _StoragePDACollectionRows.QTT = 1
+                Else
+                    _StoragePDACollectionRows.QTT = _StoragePDACollectionHeader.row_QTT
+                End If
+                _StoragePDACollectionRows.QTT_Processed = 0
+
+            End If
+        End If
+    End Sub
+
+    Private Sub aImportPDA_StoragePDA_ocur_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aImportPDA_StoragePDA_ocur.Execute
+        ''Megnyitja a PDA-t és beemeli a sorokat
+        'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        'Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
+        'Dim _Products As Products
+
+        'Try
+        '    Dim _DeliveryNoteInType As DeliveryNoteInType = _ocur.FindObject(Of DeliveryNoteInType)(CriteriaOperator.Parse("IsNull(PDAPath)=False and PDAPath !=''"), True)
+
+        '    If File.Exists(_DeliveryNoteInType.PDAPath) Then
+        '        Dim _StreamFile = New FileStream(_DeliveryNoteInType.PDAPath, FileMode.Open, FileAccess.Read)
+        '        Dim _StreamReader As New StreamReader(_StreamFile)
+        '        Dim _StrBuffer As String = ""
+        '        Dim _LineCount As Long = File.ReadAllLines(_DeliveryNoteInType.PDAPath).Length
+        '        _StreamFile.Seek(0, SeekOrigin.Begin)
+        '        _StrBuffer = _StreamReader.ReadToEnd()
+        '        _StreamReader.Close()
+        '        _StreamFile.Close()
+        '        File.Delete(_DeliveryNoteInType.PDAPath)
+        '        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+        '        Using parser As New TextFieldParser(New StringReader(_StrBuffer))
+        '            parser.TextFieldType = FieldType.Delimited
+        '            parser.SetDelimiters(",")
+        '            RaiseEvent InitWork(1, 1, _LineCount)
+        '            While Not parser.EndOfData
+        '                Try
+        '                    RaiseEvent DoWork()
+        '                    Dim columns As String() = parser.ReadFields()
+        '                    _Products = _ocur.FindObject(Of Products)(CriteriaOperator.Parse("ProductNumber=?", columns(2).ToString))
+        '                    If _Products IsNot Nothing Then
+        '                        Dim _StoragePDACollectionRows As StoragePDACollectionRows
+
+        '                        _StoragePDACollectionRows = _ocur.CreateObject(Of StoragePDACollectionRows)()
+        '                        _StoragePDACollectionRows.StoragePDACollectionHeader = _ocur.GetObject(_StoragePDACollectionHeader)
+        '                        _StoragePDACollectionRows.Products = _ocur.GetObject(_Products)
+        '                        _StoragePDACollectionRows.QTT = Val(columns(4))
+        '                        _StoragePDACollectionRows.QTT_Processed = 0
+        '                        _StoragePDACollectionRows.RowIndex = _StoragePDACollectionHeader.StoragePDACollectionRows.Count + 1
+        '                    End If
+        '                Catch ex As MalformedLineException
+        '                    'MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
+        '                End Try
+        '            End While
+        '        End Using
+        '    End If
+        'Catch ex As Exception
+        '    MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
+        'Finally
+        '    RaiseEvent FinalWork()
+        'End Try
+    End Sub
+
+    Private Sub aGeneratePDARowsByPricingActionHeader_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGeneratePDARowsByPricingActionHeader.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _StoragePDACollectionProductSelectPopup As StoragePDACollectionProductSelectPopup = _onew.CreateObject(Of StoragePDACollectionProductSelectPopup)()
+
+        Dim _PricingActionHeader_Collection As New XPCollection(Of PricingActionHeader)(_onew.Session, CriteriaOperator.Parse("PricingActionType=2"))
+        Dim _PricingActionHeader As PricingActionHeader
+        _StoragePDACollectionProductSelectPopup.DateExecution = Now
+
+        For Each _PricingActionHeader In _PricingActionHeader_Collection
+            _StoragePDACollectionProductSelectPopup.PricingActionHeader.Add(_PricingActionHeader)
+        Next
+
+        e.View = Application.CreateDetailView(_onew, "StoragePDACollectionProductSelectPopup_DetailView", True, _StoragePDACollectionProductSelectPopup)
+
+    End Sub
+
+    Private Sub aGeneratePDARowsByPricingActionHeader_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGeneratePDARowsByPricingActionHeader.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
+        Dim _StoragePDACollectionProductSelectPopup As StoragePDACollectionProductSelectPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), StoragePDACollectionProductSelectPopup)
+
+        Dim _ListPropertyEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("PricingActionHeader")
+
+        If _ListPropertyEditor IsNot Nothing Then
+            For Each _PricinhActionHeader As PricingActionHeader In _ListPropertyEditor.ListView.SelectedObjects
+                Dim _textStreamReader As StreamReader
+                Dim _assembly As [Assembly]
+                Dim _SQL As String
+                Try
+                    _assembly = [Assembly].GetExecutingAssembly()
+                    _textStreamReader = New StreamReader(_assembly.GetManifestResourceStream("Nuvolar.Module.StoragePDAGenerateDatafromPricingActionHeader.sql"))
+                    _SQL = _textStreamReader.ReadToEnd
+
+                    _SQL = String.Format(_SQL, _PricinhActionHeader.Oid.ToString, _StoragePDACollectionHeader.Oid.ToString, Format(_StoragePDACollectionProductSelectPopup.DateExecution.Date, "yyyy-MM-dd"), _StoragePDACollectionProductSelectPopup.IsOvverides.ToString)
+                    _ocur.Session.ExecuteNonQuery(_SQL)
+
+                Catch ex As Exception
+                    MsgBox(ex.Message, MsgBoxStyle.Critical)
+                End Try
+
+            Next
+        End If
+
+        Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+
+
+    End Sub
+
+    Private Sub aGeneratePDARowsByDiscount_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGeneratePDARowsByDiscount.CustomizePopupWindowParams
+        'Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        'Dim _PricingProductsBarcodeCustomers_CollectionSource = New CollectionSource(_onew, GetType(PricingProductsBarcodeCustomers))
+
+
+        '_PricingProductsBarcodeCustomers_CollectionSource.BeginUpdateCriteria()
+        '_PricingProductsBarcodeCustomers_CollectionSource.Criteria("Criteria") = CriteriaOperator.Parse("StartsWith([Barcode], '99') And [ExpirationDate] >= LocalDateTimeNow() And [ActualDate] <= LocalDateTimeNow() And (BarcodeType='' or IsNull(BarcodeType)=True)")
+        '_PricingProductsBarcodeCustomers_CollectionSource.EndUpdateCriteria()
+
+        'e.View = Application.CreateListView("PricingProductsBarcodeCustomers_ListView_Select", _PricingProductsBarcodeCustomers_CollectionSource, True)
+    End Sub
+
+    Private Sub aGeneratePDARowsByDiscount_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGeneratePDARowsByDiscount.Execute
+        'Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
+        'Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        'RaiseEvent InitWork(1, 1, TryCast(e.PopupWindow.View, ListView).CollectionSource.List.Count)
+        'For Each _PricingProductsBarcodeCustomers As PricingProductsBarcodeCustomers In TryCast(e.PopupWindow.View, ListView).CollectionSource.List
+        '    RaiseEvent DoWork()
+        '    If _PricingProductsBarcodeCustomers.NonPersistent_QTT > 0 Then
+        '        Dim _StoragePDACollectionRows As StoragePDACollectionRows = _onew.CreateObject(Of StoragePDACollectionRows)()
+        '        _StoragePDACollectionRows.StoragePDACollectionHeader = _onew.GetObject(_StoragePDACollectionHeader)
+        '        _StoragePDACollectionRows.Barcode = _PricingProductsBarcodeCustomers.Barcode
+        '        _StoragePDACollectionRows.Products = _onew.GetObject(_PricingProductsBarcodeCustomers.Products)
+        '        _StoragePDACollectionRows.QTT = _PricingProductsBarcodeCustomers.NonPersistent_QTT
+        '        _StoragePDACollectionRows.RowIndex = 0
+        '        _onew.CommitChanges()
+        '    End If
+        'Next
+        'RaiseEvent FinalWork()
+        'Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+
+    End Sub
+End Class
@@ -0,0 +1,28 @@
+Imports System.Linq
+Imports DevExpress.Xpo
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+
+
+<DefaultClassOptions(), NonPersistent> _
+Public Class StoragePDACollectionProductSelectPopup
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        _PricingActionHeader_List = New List(Of PricingActionHeader)
+        IsOvverides = False
+    End Sub
+
+    Private _PricingActionHeader_List As IList(Of PricingActionHeader)
+
+    Property DateExecution As Date
+    Property IsOvverides As Boolean
+    ReadOnly Property PricingActionHeader As IList(Of PricingActionHeader)
+        Get
+            Return _PricingActionHeader_List
+        End Get
+    End Property
+End Class
@@ -0,0 +1,149 @@
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<DeferredDeletion(False)> _
+Public Class StoragePDACollectionRows
+    Inherits BaseObject
+
+    Private _StoragePDACollectionHeader As StoragePDACollectionHeader
+    Private _RowIndex As Long 'Sor index, ami alapján látszik, mi lett beolvasva utoljára
+    Private _Barcode As String 'Termék vonalkódja
+    Private _Products As Products 'Termék
+    Private _QTT As Double 'Mennyiség
+    Private _QTT_Processed As Double 'Szándék
+    Private _Description As String 'Leírás
+    Private _StorageLocation As StorageLocation 'Raktári lokáció
+    Private _DateModified As Date 'Módosítás dátuma
+    Private _ConnectOid As Guid
+    Private _PacketNumber As String 'Kötegszám
+    Private _SerialNumber As String 'Sorozatszám
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.QTT = 0
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Session.IsNewObject(Me) Then
+            If Me.RowIndex = 0 Then
+                Dim _MaxRowIndex As Long = Val(Session.ExecuteScalar(String.Format("select max(RowIndex) from StoragePDACollectionRows Where StoragePDACollectionHeader='{0}'", _StoragePDACollectionHeader.Oid)))
+                Me.RowIndex = _MaxRowIndex + 1
+            End If
+        End If
+    End Sub
+    Protected Overrides Sub OnDeleting()
+        MyBase.OnDeleting()
+        Session.ExecuteNonQuery(String.Format("update StoragePDACollectionRows set RowIndex=RowIndex-1 where RowIndex>{0} and StoragePDACollectionHeader='{1}'", Me.RowIndex, _StoragePDACollectionHeader.Oid))
+    End Sub
+    <RuleRequiredField("StoragePDACollectionRows-StoragePDACollectionHeader", DefaultContexts.Save)> _
+    <Association("StoragePDACollectionHeader-StoragePDACollectionRows", GetType(StoragePDACollectionHeader))> _
+    Property StoragePDACollectionHeader As StoragePDACollectionHeader
+        Get
+            Return _StoragePDACollectionHeader
+        End Get
+        Set(value As StoragePDACollectionHeader)
+            SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, 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 Barcode As String
+        Get
+            Return _Barcode
+        End Get
+        Set(value As String)
+            SetPropertyValue("Barcode", _Barcode, value)
+        End Set
+    End Property
+    <RuleRequiredField("StoragePDACollectionRows-Products", DefaultContexts.Save)> _
+    <NoForeignKey> _
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, 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_Processed As Double
+        Get
+            Return _QTT_Processed
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Processed", _QTT_Processed, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property StorageLocation As StorageLocation
+        Get
+            Return _StorageLocation
+        End Get
+        Set(value As StorageLocation)
+            SetPropertyValue("StorageLocation", _StorageLocation, value)
+        End Set
+    End Property
+    Property DateModified As Date
+        Get
+            Return _DateModified
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateModified", _DateModified, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property ConnectOid As Guid
+        Get
+            Return _ConnectOid
+        End Get
+        Set(value As Guid)
+            SetPropertyValue("ConnectOid", _ConnectOid, 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
@@ -0,0 +1,86 @@
+set nocount on
+
+declare @StoragePDACollectionHeader uniqueidentifier
+declare @StoragePDACollectionRows   uniqueidentifier
+declare @Barcode                    nvarchar(50)
+declare @Barcode2                   nvarchar(50)
+declare @MasterKey                  uniqueidentifier 
+declare @PriceBruttoHUF             float
+declare @PriceDiscountHUF           float
+declare @Products                   uniqueidentifier
+declare @ActualDate                 datetime
+declare @ExpirationDate             datetime
+declare @PricingCodeDescription     nvarchar(255)
+declare @QTT                        int 
+declare @J                          int
+set @StoragePDACollectionHeader='{0}'
+set @MasterKey='{1}'
+
+begin tran 
+delete from PricingProductsBarcodePrint Where MasterKey=@MasterKey
+
+declare CSPDAR cursor local fast_forward for
+
+select Oid,Products,ltrim(rtrim(isnull(Barcode,''))),convert(int,QTT)
+from StoragePDACollectionRows
+where StoragePDACollectionHeader=@StoragePDACollectionHeader
+order by RowIndex
+
+open CSPDAR
+fetch next from CSPDAR into @StoragePDACollectionRows,@Products,@Barcode,@QTT
+while @@FETCH_STATUS=0
+begin
+		
+		-- Eladási ár meghatározása
+        set @PriceBruttoHUF=0
+		
+		if @Barcode=''
+		begin
+			select top 1 @Barcode2=Barcode,@PriceBruttoHUF=PriceBruttoHUF,@ActualDate=ActualDate,@ExpirationDate=ExpirationDate,@PricingCodeDescription=PricingCodeDescription 
+			from PricingProductsBarcodeCustomers
+			where Products=@Products and ActualDate<=getdate() and convert(varchar(10),getdate(),111)<=convert(varchar(10),ExpirationDate,111) and Barcode not like '28%' and len(Barcode)>4
+			order by IsAction desc,ActualDate desc
+		end
+		else
+		begin
+			select top 1 @Barcode2=Barcode,@PriceBruttoHUF=PriceBruttoHUF,@ActualDate=ActualDate,@ExpirationDate=ExpirationDate,@PricingCodeDescription=PricingCodeDescription 
+			from PricingProductsBarcodeCustomers
+			where Barcode=@Barcode and ActualDate<=getdate() and convert(varchar(10),getdate(),111)<=convert(varchar(10),ExpirationDate,111) and Barcode not like '28%' and len(Barcode)>4
+			order by IsAction desc,ActualDate desc
+		end
+		set @PriceDiscountHUF=@PriceBruttoHUF
+		if substring(@Barcode,1,2)='99'
+		begin
+		     select top 1 @PriceBruttoHUF=PriceBruttoHUF
+		     from PricingProductsBarcodeCustomers
+		     where Products=@Products and ActualDate<=getdate() and convert(varchar(10),getdate(),111)<=convert(varchar(10),ExpirationDate,111) and Barcode not like '28%' and len(Barcode)>4
+			       and Barcode not like '99%'
+		     order by IsAction desc,ActualDate desc
+		end
+
+		set @J=0
+		while @J<@QTT
+		begin
+			if isnull(@Barcode,'')=''
+			begin
+					insert PricingProductsBarcodePrint ( Oid, MasterKey, Products, RowIndex, Barcode, PriceBruttoHUF, PriceDiscountHUF)
+					select NEWID(),'{1}',t1.Products,t1.RowIndex,@Barcode2,@PriceBruttoHUF,@PriceBruttoHUF
+					from StoragePDACollectionRows t1
+					where Oid=@StoragePDACollectionRows
+			end
+			else
+			begin
+					insert PricingProductsBarcodePrint ( Oid, MasterKey, Products, RowIndex, Barcode, PriceBruttoHUF, PriceDiscountHUF,ActualDate,ExpirationDate,PricingCodeDescription)
+					select NEWID(),'{1}',t1.Products,t1.RowIndex,@Barcode,@PriceBruttoHUF,@PriceDiscountHUF,@ActualDate,@ExpirationDate,@PricingCodeDescription
+					from StoragePDACollectionRows t1
+					where Oid=@StoragePDACollectionRows
+			end
+			set @J=@J+1
+		end
+		fetch next from CSPDAR into @StoragePDACollectionRows,@Products,@Barcode,@QTT
+end
+close CSPDAR
+deallocate CSPDAR
+
+commit
+
@@ -0,0 +1,53 @@
+set nocount on
+
+declare @StoragePDACollectionHeader uniqueidentifier
+declare @PricingActionHeader        uniqueidentifier
+declare @PricingActionRows          uniqueidentifier
+declare @DateExecution              datetime
+declare @PriceBruttoHUF             float
+declare @Products                   uniqueidentifier
+declare @Barcode                    nvarchar(50)
+declare @RowIndex                   int
+
+declare @IsOverrides                nvarchar(10)
+
+set @PricingActionHeader='{0}'
+set @StoragePDACollectionHeader='{1}'
+set @DateExecution='{2}'
+set @IsOverrides='{3}'
+
+
+if @IsOverrides='True' 
+begin
+     delete from StoragePDACollectionRows where StoragePDACollectionHeader=@StoragePDACollectionHeader
+end
+
+declare CGU cursor fast_forward local for
+select t1.Oid,t1.Products,t1.RowIndex
+from pcs_whs.dbo.PricingActionRows t1
+where t1.PricingActionHeader=@PricingActionHeader
+order by t1.RowIndex
+
+open CGU
+fetch next from CGU into @PricingActionRows,@Products,@RowIndex
+while @@FETCH_STATUS=0
+begin
+		set @PriceBruttoHUF=0
+		
+		select top 1 @Barcode=Barcode,@PriceBruttoHUF=PriceBruttoHUF 
+		from PricingProductsBarcodeCustomers
+		where Products=@Products and  ActualDate<=getdate() and convert(varchar(10),getdate(),111)<=convert(varchar(10),ExpirationDate,111) and Barcode not like '28%' and len(Barcode)>4
+		order by IsAction desc,ActualDate desc
+
+		insert StoragePDACollectionRows ( Oid, StoragePDACollectionHeader, Products, QTT,RowIndex, Barcode)        		
+        select NEWID(),@StoragePDACollectionHeader,@Products,1,@RowIndex,@Barcode
+
+
+		fetch next from CGU into @PricingActionRows,@Products,@RowIndex
+end
+close CGU
+deallocate CGU
+
+
+
+
@@ -0,0 +1,114 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem("PDA"), CreatableItem(False)> _
+<DefaultProperty("NumberGenerator")> _
+<Appearance("Disable ObjectCreated UserCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated;UserCreated", Enabled:=False)> _
+Public Class StoragePDAParameters
+    Inherits BaseObject
+    Private _UserCreated As User
+    Private _ObjectCreated As Date
+    Private _NumberGenerator As NumberGenerator
+    Private _CustomersFrom As CustomersFrom
+    Private _ShortName As String
+    Private _ReportLocationIn As ReportData ' -- Nyomtatvány betárolás
+    Private _ReportLocationOut As ReportData ' -- Nyomtatvány kitárolás
+    Private _ImportPath As String 'Importálás utvonala (Könyvtár)
+    Private _DeleteAfterImport As Boolean 'Törölje-e a beimportált filet.
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.ObjectCreated = GetSQLTime(Session)
+        Me.UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        DeleteAfterImport = False
+    End Sub
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <NonCloneable>
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <RuleRequiredField("StoragePDAParameters-NumberGenerator", DefaultContexts.Save)> _
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    <RuleRequiredField("StoragePDAParameters-CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property ReportLocationIn As ReportData
+        Get
+            Return _ReportLocationIn
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportLocationIn", _ReportLocationIn, value)
+        End Set
+    End Property
+    Property ReportLocationOut As ReportData
+        Get
+            Return _ReportLocationOut
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportLocationOut", _ReportLocationOut, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property ImportPath As String
+        Get
+            Return _ImportPath
+        End Get
+        Set(value As String)
+            SetPropertyValue("ImportPath", _ImportPath, value)
+        End Set
+    End Property
+    Property DeleteAfterImport As Boolean
+        Get
+            Return _DeleteAfterImport
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("DeleteAfterImport", _DeleteAfterImport, value)
+        End Set
+    End Property
+End Class
@@ -0,0 +1,7 @@
+
+
+Public Enum eStoragePDACollectionHeaderStatus
+    eOpen = 0
+    eClosed = 1
+    eReady = 2
+End Enum
@@ -0,0 +1,8 @@
+
+Public Enum eStoragePDACollectionType
+    eIsInventory = 0
+    eIsLocationIn = 1 'Lokációra berakás
+    eIsLocationOut = 2 'Lokációról kiszedés
+    eInventorySurplus = 3 'Többletet tartalmazó, a betároláshoz
+    eInventoryWant = 4 'Hiányt tartalmazó, a kitároláshoz
+End Enum
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
+
+
+
@@ -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
@@ -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
@@ -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
@@ -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>
@@ -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
@@ -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
@@ -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>
@@ -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
+
@@ -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
@@ -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
@@ -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
@@ -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>
@@ -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
@@ -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
@@ -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
@@ -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>
@@ -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
@@ -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
@@ -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
@@ -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>
@@ -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
@@ -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
@@ -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
@@ -0,0 +1,5 @@
+
+Public Enum eMoveDirection
+    eInput = 0
+    eOutput = 1
+End Enum
@@ -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
@@ -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