Reconfigure for GIT

SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/Popup/ChangeGroup_StorageComputed_PopUp.vb

@@ -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

SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/Popup/StorageInFromPDACollectionPopup.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class 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

SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/Popup/StorageMoveInfo.vb

@@ -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

SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeader.vb

@@ -0,0 +1,135 @@
+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 eStoragePDACollectionHeaderStatus
+    eOpen = 0
+    eClosed = 1
+    eReady = 2
+End Enum
+Public Enum eStoragePDACollectionType
+    eIsInventory = 0
+    eIsLocationIn = 1
+    eIsLocationOut = 2
+End Enum
+<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 _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
+
+    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 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)> _
+    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
+
+    '--------------------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
+

SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeaderVC.Designer.vb

@@ -0,0 +1,104 @@
+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.aInsertStoragePDARows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aDeleteStoragePDARows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aLocatePDACollectionIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aLocatePDACollectionOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aInsertStoragePDARows
+        '
+        Me.aInsertStoragePDARows.AcceptButtonCaption = Nothing
+        Me.aInsertStoragePDARows.CancelButtonCaption = Nothing
+        Me.aInsertStoragePDARows.Caption = "aInsertStoragePDARows"
+        Me.aInsertStoragePDARows.Category = "aInsertStoragePDARows"
+        Me.aInsertStoragePDARows.ConfirmationMessage = Nothing
+        Me.aInsertStoragePDARows.Id = "aInsertStoragePDARows"
+        Me.aInsertStoragePDARows.ImageName = Nothing
+        Me.aInsertStoragePDARows.Shortcut = Nothing
+        Me.aInsertStoragePDARows.Tag = Nothing
+        Me.aInsertStoragePDARows.TargetObjectsCriteria = Nothing
+        Me.aInsertStoragePDARows.TargetViewId = Nothing
+        Me.aInsertStoragePDARows.ToolTip = Nothing
+        Me.aInsertStoragePDARows.TypeOfView = Nothing
+        '
+        'aDeleteStoragePDARows
+        '
+        Me.aDeleteStoragePDARows.Caption = "aDeleteStoragePDARows"
+        Me.aDeleteStoragePDARows.Category = "aDeleteStoragePDARows"
+        Me.aDeleteStoragePDARows.ConfirmationMessage = Nothing
+        Me.aDeleteStoragePDARows.Id = "aDeleteStoragePDARows"
+        Me.aDeleteStoragePDARows.ImageName = "table_delete"
+        Me.aDeleteStoragePDARows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aDeleteStoragePDARows.Shortcut = Nothing
+        Me.aDeleteStoragePDARows.Tag = Nothing
+        Me.aDeleteStoragePDARows.TargetObjectsCriteria = Nothing
+        Me.aDeleteStoragePDARows.TargetViewId = ""
+        Me.aDeleteStoragePDARows.ToolTip = Nothing
+        Me.aDeleteStoragePDARows.TypeOfView = Nothing
+        '
+        '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.Shortcut = Nothing
+        Me.aLocatePDACollectionIn.Tag = Nothing
+        Me.aLocatePDACollectionIn.TargetObjectsCriteria = "StorageCollectionType=1 AND StoragePDACollectionHeaderStatus=2"
+        Me.aLocatePDACollectionIn.TargetObjectType = GetType(SISBusiness.[Module].StoragePDACollectionHeader)
+        Me.aLocatePDACollectionIn.TargetViewId = ""
+        Me.aLocatePDACollectionIn.ToolTip = Nothing
+        Me.aLocatePDACollectionIn.TypeOfView = 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.Shortcut = Nothing
+        Me.aLocatePDACollectionOut.Tag = Nothing
+        Me.aLocatePDACollectionOut.TargetObjectsCriteria = "StorageCollectionType=2 AND StoragePDACollectionHeaderStatus=2"
+        Me.aLocatePDACollectionOut.TargetObjectType = GetType(SISBusiness.[Module].StoragePDACollectionHeader)
+        Me.aLocatePDACollectionOut.TargetViewId = ""
+        Me.aLocatePDACollectionOut.ToolTip = Nothing
+        Me.aLocatePDACollectionOut.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aInsertStoragePDARows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aDeleteStoragePDARows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aLocatePDACollectionIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aLocatePDACollectionOut As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeaderVC.resx

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

SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeaderVC.vb

@@ -0,0 +1,196 @@
+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
+
+Public Class StoragePDACollectionHeaderVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        Frame.GetController(Of StoragePDACollectionHeaderVC)().aInsertStoragePDARows.Active.SetItemValue("", False)
+        Frame.GetController(Of StoragePDACollectionHeaderVC)().aDeleteStoragePDARows.Active.SetItemValue("", False)
+
+        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)
+            Frame.GetController(Of StoragePDACollectionHeaderVC)().aInsertStoragePDARows.Active.SetItemValue("", True)
+            Frame.GetController(Of StoragePDACollectionHeaderVC)().aDeleteStoragePDARows.Active.SetItemValue("", True)
+        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)
+            Frame.GetController(Of StoragePDACollectionHeaderVC)().aInsertStoragePDARows.Active.SetItemValue("", False)
+            Frame.GetController(Of StoragePDACollectionHeaderVC)().aDeleteStoragePDARows.Active.SetItemValue("", False)
+        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) Handles aInsertStoragePDARows.CustomizePopupWindowParams
+        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) Handles aInsertStoragePDARows.Execute
+
+        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) Handles aDeleteStoragePDARows.Execute
+        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
+End Class

SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionRows.vb

@@ -0,0 +1,121 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<DeferredDeletion(False)> _
+Public Class StoragePDACollectionRows
+    Inherits BaseObject
+    Private _StoragePDACollectionHeader As StoragePDACollectionHeader
+    Private _Products As Products
+    Private _QTT As Double
+    Private _QTT_Processed As Double
+    Private _Description As String
+    Private _StorageLocation As StorageLocation
+    Private _DateModified As Date
+    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
+    <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
+    <RuleRequiredField("StoragePDACollectionRows-Products", DefaultContexts.Save)> _
+    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

SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDAParameters.vb

@@ -0,0 +1,87 @@
+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 _ReportLocationIn As ReportData ' -- Nyomtatvány betárolás
+    Private _ReportLocationOut As ReportData ' -- Nyomtatvány kitárolás
+
+    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))
+    End Sub
+    <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
+
+End Class