Reconfigure for GIT

SISBusiness.Module/BusinessObjects/Business/Products/CustomersOrderPriority.vb

@@ -0,0 +1,109 @@
+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
+'-- Termék, termék beszállítók
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False), DefaultProperty("DisplayName")> _
+Public Class CustomersOrderPriority 'Termék beszállítók !!! Egy termékhez lehet több is !!!
+    Inherits BaseObject
+
+    Private _CustomersOrder As CustomersOrder
+    Private _RowIndex As Long ' Sorrend !!! Kitől rendelünk elsődlegesen.
+    Private _Products As Products 'Termék
+    Private _DeadlineDay As Long 'Mennyi idő mulva tudja szállítani (átlagosan) napban
+    Private _DeadlineWeek As Long 'Mennyi idő mulva tudja szállítani (átlagosan) hétben, ez kerekített a napi értékből
+    Private _MinOrderQTT As Double 'Minimális rendelési mennyiség !
+    Private _MinOrderUnit As Units 'Ehhez tartozó rendelési mennyiség 
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+
+    Property CustomersOrder As CustomersOrder
+        Get
+            Return _CustomersOrder
+        End Get
+        Set(value As CustomersOrder)
+            SetPropertyValue("CustomersOrder", _CustomersOrder, 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
+    <Association("Products-CustomersOrderPriority", GetType(Products))> _
+    Property Products() As Products
+        Get
+            Return _Products
+        End Get
+        Set(ByVal value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property DeadlineDay As Long
+        Get
+            Return _DeadlineDay
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("DeadlineDay", _DeadlineDay, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                If value Mod 7 = 0 Then
+                    DeadlineWeek = CType(value / 7, Long)
+                Else
+                    DeadlineWeek = CType(value / 7, Long) + 1
+                End If
+            End If
+        End Set
+    End Property
+    Property DeadlineWeek As Long
+        Get
+            Return _DeadlineWeek
+        End Get
+        Set(value As Long)
+            SetPropertyValue("DeadlineWeek", _DeadlineWeek, value)
+        End Set
+    End Property
+    Property MinOrderQTT As Double
+        Get
+            Return _MinOrderQTT
+
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("MinOrderQTT", _MinOrderQTT, value)
+        End Set
+    End Property
+    Property MinOrderUnit As Units
+        Get
+            Return _MinOrderUnit
+        End Get
+        Set(ByVal value As Units)
+            SetPropertyValue("MinOrderUnit", _MinOrderUnit, value)
+        End Set
+    End Property
+
+    ReadOnly Property DisplayName As String
+        Get
+            If CustomersOrder IsNot Nothing Then
+                Return CustomersOrder.FullName
+            Else
+                Return ""
+            End If
+        End Get
+    End Property
+End Class
+
+
+
+
+
+
+

SISBusiness.Module/BusinessObjects/Business/Products/Installation.vb

@@ -0,0 +1,128 @@
+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
+
+'-- Termék, termék beszállítók
+<DefaultClassOptions()> _
+<NavigationItem("BusinessStocks")> _
+<Appearance("Installation - ObjectCreated Disable all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("Installation - UserCreated Disable all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
+Public Class Installation
+    Inherits HCategory
+    Private _DocumentNumber As String
+    Private _InstallationType As InstallationType
+    Private _Description As String 'Leírás
+    Private _IsParent As Boolean = True 'Szülő-e ?
+    Private _UserCreated As User
+    Private _ObjectCreated As Date
+    Private _TakeoverProtocolRows As TakeoverProtocolRows
+
+    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 String.IsNullOrEmpty(DocumentNumber) Then
+            DocumentNumber = _InstallationType.NumberGenerator.GetNewNumber(_InstallationType.NumberGenerator)
+        End If
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    <NonCloneable()> _
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property IsParent() As Boolean
+        Get
+            Return _IsParent
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsParent", _IsParent, value)
+        End Set
+    End Property
+    Property InstallationType As InstallationType
+        Get
+            Return _InstallationType
+        End Get
+        Set(value As InstallationType)
+            SetPropertyValue("InstallationType", _InstallationType, 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
+    <Browsable(False)> _
+    <VisibleInListView(False)> _
+    <VisibleInDetailView(False)> _
+    Property TakeoverProtocolRows As TakeoverProtocolRows
+        Get
+            Return _TakeoverProtocolRows
+        End Get
+        Set(value As TakeoverProtocolRows)
+            SetPropertyValue("TakeoverProtocolRows", _TakeoverProtocolRows, value)
+        End Set
+    End Property
+
+    '-------------ReadOnly-----------
+    <VisibleInListView(False)> _
+    <Aggregated(), Association("Installation-InstallationDocumentations", GetType(InstallationDocumentations))> _
+    Public ReadOnly Property InstallationDocumentations() As XPCollection(Of InstallationDocumentations)
+        Get
+            Return GetCollection(Of InstallationDocumentations)("InstallationDocumentations")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Association("Installation-InstallationProductsVariable", GetType(InstallationProductsVariable))> _
+    ReadOnly Property InstallationProductsVariable As XPCollection(Of InstallationProductsVariable)
+        Get
+            Return GetCollection(Of InstallationProductsVariable)("InstallationProductsVariable")
+        End Get
+    End Property
+End Class
+
+
+
+
+
+
+

SISBusiness.Module/BusinessObjects/Business/Products/InstallationDocumentations.vb

@@ -0,0 +1,139 @@
+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 eInstallationDocumentationStatus
+    ePublic = 0 '-- Bárki láthatja
+    ePrivat = 1 '-- Csak belső használatra
+    eCustomers = 2 '-- Az ügyfél akinek a gyártmány átadása történt láthatja
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("SubcontractorDocuments - Hide XML properties, when IsDashboard = False", _
+    AppearanceItemType.ViewItem, "IsDashboard = False", TargetItems:="XML_ServerName;XML_UserName;XML_DatabaseName;XML_Password;XML_SqlType", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class InstallationDocumentations
+    Inherits FileAttachmentBase
+    Private _Installation As Installation
+    Private _Status As eInstallationDocumentationStatus
+    Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező)
+    Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező)
+    Private _IsDashboard As Boolean 'Műszerfal-e
+    Private _XML_ServerName As String
+    Private _XML_UserName As String
+    Private _XML_DatabaseName As String
+    Private _XML_Password As String
+    Private _XML_SqlType As eSQLType
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.Status = eInstallationDocumentationStatus.eCustomers
+    End Sub
+
+    <Persistent(), Association("Installation-InstallationDocumentations")> _
+    Property Installation() As Installation
+        Get
+            Return _Installation
+        End Get
+        Set(ByVal value As Installation)
+            SetPropertyValue("Installation", _Installation, value)
+        End Set
+    End Property
+    Property Status As eInstallationDocumentationStatus
+        Get
+            Return _Status
+        End Get
+        Set(value As eInstallationDocumentationStatus)
+            SetPropertyValue("Status", _Status, value)
+        End Set
+    End Property
+    Property RowGroup1 As String
+        Get
+            Return _RowGroup1
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup1", _RowGroup1, value)
+        End Set
+    End Property
+    Property RowGroup2 As String
+        Get
+            Return _RowGroup2
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup2", _RowGroup2, value)
+        End Set
+    End Property
+
+    <ImmediatePostData()> _
+    Property IsDashboard As Boolean
+        Get
+            Return _IsDashboard
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsDashboard", _IsDashboard, value)
+        End Set
+    End Property
+    <RuleRequiredField("InstallationDocumentations - XML_ServerName", DefaultContexts.Save, TargetCriteria:="IsDashboard=True")> _
+    Property XML_ServerName As String
+        Get
+            Return _XML_ServerName
+        End Get
+        Set(value As String)
+            SetPropertyValue("XML_ServerName", _XML_ServerName, value)
+        End Set
+    End Property
+    <RuleRequiredField("InstallationDocumentations - XML_UserName", DefaultContexts.Save, TargetCriteria:="IsDashboard=True")> _
+    Property XML_UserName As String
+        Get
+            Return _XML_UserName
+        End Get
+        Set(value As String)
+            SetPropertyValue("XML_UserName", _XML_UserName, value)
+        End Set
+    End Property
+    <RuleRequiredField("InstallationDocumentations - XML_DatabaseName", DefaultContexts.Save, TargetCriteria:="IsDashboard=True")> _
+    Property XML_DatabaseName As String
+        Get
+            Return _XML_DatabaseName
+        End Get
+        Set(value As String)
+            SetPropertyValue("XML_DatabaseName", _XML_DatabaseName, value)
+        End Set
+    End Property
+    <PasswordPropertyText(True)> _
+    <ValueConverter(GetType(Encryption))> _
+    <RuleRequiredField("InstallationDocumentations - XML_Password", DefaultContexts.Save, TargetCriteria:="IsDashboard=True")> _
+    Property XML_Password As String
+        Get
+            Return _XML_Password
+        End Get
+        Set(value As String)
+            SetPropertyValue("XML_Password", _XML_Password, value)
+        End Set
+    End Property
+    <RuleRequiredField("InstallationDocumentations - XML_SqlType", DefaultContexts.Save, TargetCriteria:="IsDashboard=True")> _
+    Property XML_SqlType As eSQLType
+        Get
+            Return _XML_SqlType
+        End Get
+        Set(value As eSQLType)
+            SetPropertyValue("XML_SqlType", _XML_SqlType, value)
+        End Set
+    End Property
+
+End Class
+
+
+
+
+
+
+

SISBusiness.Module/BusinessObjects/Business/Products/InstallationProductsVariable.vb

@@ -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 InstallationProductsVariable ' A gyártmány hierarchia legalsó (nem szülő !) része milyen Products-ból áll
+    Inherits BaseObject
+    Private _Installation As Installation
+    Private _Products As Products 'Termék
+    Private _QTT As Double 'Mennyiség
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <Association("Installation-InstallationProductsVariable", GetType(Installation))> _
+    Property Installation As Installation
+        Get
+            Return _Installation
+        End Get
+        Set(ByVal value As Installation)
+            SetPropertyValue("Installation", _Installation, 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 QTT As Double
+        Get
+            Return _QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+End Class
+
+
+
+
+
+

SISBusiness.Module/BusinessObjects/Business/Products/InstallationType.vb

@@ -0,0 +1,89 @@
+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()> _
+<CreatableItem(False)> _
+<NavigationItem("BusinessStocks")> _
+<Appearance("Disable InstallationType-ObjectCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("Disable InstallationType-UserCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
+Public Class InstallationType
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom
+    Private _UserCreated As User
+    Private _ObjectCreated As Date
+    Private _ShortName As String
+    Private _NumberGenerator As NumberGenerator
+    Private _IsVirtual As Boolean = False
+    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 CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, 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
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    Property IsVirtual As Boolean
+        Get
+            Return _IsVirtual
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsVirtual", _IsVirtual, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/InstallationVC.Designer.vb

@@ -0,0 +1,52 @@
+Partial Class InstallationVC
+
+	<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.aInstallation_ChangeGroups = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aInstallation_ChangeGroups
+        '
+        Me.aInstallation_ChangeGroups.AcceptButtonCaption = Nothing
+        Me.aInstallation_ChangeGroups.CancelButtonCaption = Nothing
+        Me.aInstallation_ChangeGroups.Caption = "aInstallation_ChangeGroups"
+        Me.aInstallation_ChangeGroups.ConfirmationMessage = Nothing
+        Me.aInstallation_ChangeGroups.Id = "aInstallation_ChangeGroups"
+        Me.aInstallation_ChangeGroups.ImageName = Nothing
+        Me.aInstallation_ChangeGroups.Shortcut = Nothing
+        Me.aInstallation_ChangeGroups.Tag = Nothing
+        Me.aInstallation_ChangeGroups.TargetObjectsCriteria = Nothing
+        Me.aInstallation_ChangeGroups.TargetObjectType = GetType(SISBusiness.[Module].InstallationDocumentations)
+        Me.aInstallation_ChangeGroups.TargetViewId = ""
+        Me.aInstallation_ChangeGroups.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aInstallation_ChangeGroups.ToolTip = Nothing
+        Me.aInstallation_ChangeGroups.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+
+    End Sub
+    Friend WithEvents aInstallation_ChangeGroups As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/InstallationVC.resx

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

@@ -0,0 +1,80 @@
+
+Imports DevExpress.ExpressApp
+
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Data.Filtering
+
+Public Class InstallationVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        If View.Id = "Installation_InstallationDocumentations_ListView_Support" Then
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)))
+
+            If _Contacts IsNot Nothing Then
+                If _Contacts.Customers IsNot Nothing Then
+                    TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("Installation.TakeoverProtocolRows.TakeoverProtocolHeader.Customers.Oid = ? and Installation.TakeoverProtocolRows.TakeoverProtocolHeader.IsEditable=False ", _Contacts.Customers.Oid)
+                Else
+                    TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2")
+                End If
+            Else
+                TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2")
+            End If
+            Frame.GetController(Of InstallationVC).aInstallation_ChangeGroups.Active.SetItemValue("", False)
+        End If
+
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "Installation_InstallationDocumentations_ListView_Support" Then
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of InstallationVC).aInstallation_ChangeGroups.Active.SetItemValue("", True)
+        End If
+    End Sub
+
+    Private Sub aInstallation_ChangeGroups_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aInstallation_ChangeGroups.CustomizePopupWindowParams
+        Try
+            If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _Installation_ChangeGroups_PopUp As Installation_ChangeGroups_PopUp = _onew.CreateObject(Of Installation_ChangeGroups_PopUp)()
+
+            _Installation_ChangeGroups_PopUp.RowGroup1 = TryCast(View.SelectedObjects(0), InstallationDocumentations).RowGroup1
+            _Installation_ChangeGroups_PopUp.RowGroup2 = TryCast(View.SelectedObjects(0), InstallationDocumentations).RowGroup2
+
+            e.View = Application.CreateDetailView(_onew, "Installation_ChangeGroups_PopUp_DetailView", False, _Installation_ChangeGroups_PopUp)
+        Catch ext As Exception
+            MsgBox(ext.Message)
+        End Try
+    End Sub
+    Private Sub aInstallation_ChangeGroups_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aInstallation_ChangeGroups.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _Installation_ChangeGroups_PopUp As Installation_ChangeGroups_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), Installation_ChangeGroups_PopUp)
+            If _Installation_ChangeGroups_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
+            For Each _InstallationDocumentations As InstallationDocumentations In View.SelectedObjects
+                If _Installation_ChangeGroups_PopUp.Change_RowGroup1 Then
+                    _InstallationDocumentations.RowGroup1 = _Installation_ChangeGroups_PopUp.RowGroup1
+                End If
+                If _Installation_ChangeGroups_PopUp.Change_RowGroup2 Then
+                    _InstallationDocumentations.RowGroup2 = _Installation_ChangeGroups_PopUp.RowGroup2
+                End If
+            Next
+            _ocur.CommitChanges()
+        Catch ext As Exception
+            MsgBox(ext.Message)
+        End Try
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/PopUp/Installation_ChangeGroups_PopUp.vb

@@ -0,0 +1,65 @@
+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 Installation_ChangeGroups_PopUp
+    Inherits BaseObject
+
+    Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelezõ)
+    Private _Change_RowGroup1 As Boolean
+    Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelezõ)
+    Private _Change_RowGroup2 As Boolean
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Change_RowGroup1 = True
+        Change_RowGroup2 = True
+    End Sub
+
+    Property RowGroup1 As String
+        Get
+            Return _RowGroup1
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup1", _RowGroup1, value)
+        End Set
+    End Property
+    Property RowGroup2 As String
+        Get
+            Return _RowGroup2
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup2", _RowGroup2, value)
+        End Set
+    End Property
+    Property Change_RowGroup1 As Boolean
+        Get
+            Return _Change_RowGroup1
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_RowGroup1", _Change_RowGroup1, value)
+        End Set
+    End Property
+    Property Change_RowGroup2 As Boolean
+        Get
+            Return _Change_RowGroup2
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Change_RowGroup2", _Change_RowGroup2, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ModifyProductsParameters.vb

@@ -0,0 +1,121 @@
+Imports DevExpress.Xpo
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ModifyProductsParameters
+    Inherits BaseObject
+
+    Private _CurrencyRate As Double
+    Private _CurrencyName As CurrencyName
+    Private _ProductType As eProductType
+    Private _IsProductType As Boolean = False
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        CurrencyName = Session.FindObject(Of CurrencyName)(Session.ParseCriteria("ShortName='HUF'"))
+    End Sub
+
+    <NonPersistent()> Property Parameter_01 As String
+    <NonPersistent()> Property Parameter_02 As String
+    <NonPersistent()> Property Parameter_03 As String
+    <NonPersistent()> Property Parameter_04 As String
+    <NonPersistent()> Property Parameter_05 As String
+    <NonPersistent()> Property Parameter_06 As String
+    <NonPersistent()> Property Parameter_07 As String
+    <NonPersistent()> Property Parameter_08 As String
+    <NonPersistent()> Property Parameter_09 As String
+    <NonPersistent()> Property Parameter_10 As String
+    <NonPersistent()> Property IsParameter_01 As Boolean = False
+    <NonPersistent()> Property IsParameter_02 As Boolean = False
+    <NonPersistent()> Property IsParameter_03 As Boolean = False
+    <NonPersistent()> Property IsParameter_04 As Boolean = False
+    <NonPersistent()> Property IsParameter_05 As Boolean = False
+    <NonPersistent()> Property IsParameter_06 As Boolean = False
+    <NonPersistent()> Property IsParameter_07 As Boolean = False
+    <NonPersistent()> Property IsParameter_08 As Boolean = False
+    <NonPersistent()> Property IsParameter_09 As Boolean = False
+    <NonPersistent()> Property IsParameter_10 As Boolean = False
+    <NonPersistent()> Property IsCurrencyName As Boolean = False
+    <NonPersistent()> Property IsCustomsTariffs As Boolean = False
+    <NonPersistent()> Property IsCountryFrom As Boolean = False
+    <NonPersistent()> Property IsCustomersOrder1 As Boolean = False
+    <NonPersistent()> Property IsCustomersOrder2 As Boolean = False
+    <NonPersistent()> Property IsCustomersOrder3 As Boolean = False
+    <NonPersistent()> Property ProductsGroups As ProductsGroups
+    <NonPersistent()> Property IsUnits As Boolean = False
+    <NonPersistent()> Property IsVAT As Boolean = False
+    <NonPersistent()> Property CustomersOrder1 As CustomersOrder
+    <NonPersistent()> Property CustomersOrder2 As CustomersOrder
+    <NonPersistent()> Property CustomersOrder3 As CustomersOrder
+    <NonPersistent()> Property Units As Units
+    <NonPersistent()> Property VAT As VAT
+    <NonPersistent()> Property CustomsTariffs As CustomsTariffs
+    <NonPersistent()> Property CountryFrom As Country
+    <NonPersistent()> Property IsListPriceHUF As Boolean = False 'Listaár módosuljon ?
+    <NonPersistent()> Property IsListPriceDEV As Boolean = False 'Listaár módosuljon ?
+    <NonPersistent()> Property ListPricePercent As Double = 0 'Listaár %-kal módosul ? termékár változás
+    <NonPersistent()> Property IsListPriceRegenerate As Boolean = False 'Listaár újraszámolódjon ? valuta váltás 
+    <NonPersistent()> Property PriceMode As ePriceMode = ePriceMode.eDEVToHUF
+    <NonPersistent()> Property IsProducer As Boolean = False
+    <NonPersistent()> Property Producer As Customers
+    <NonPersistent()> Property IsDecimalIn As Boolean
+    <NonPersistent()> Property IsDecimalOut As Boolean
+    <NonPersistent()> Property DecimalIn As Double
+    <NonPersistent()> Property DecimalOut As Double
+
+
+    <NonPersistent()>
+    <ImmediatePostData(True)> _
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+            If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading And value.ShortName <> "HUF" Then
+                Dim _CurrencyRate As CurrencyRate = Session.FindObject(Of CurrencyRate)(Session.ParseCriteria("IsMNB=? AND GetDate(DateValid)=? AND CurrencyName=?", True, GetSQLTime(Session).Date, value))
+                If _CurrencyRate Is Nothing Then
+                    _CurrencyRate = Session.FindObject(Of CurrencyRate)(Session.ParseCriteria("IsMNB=? AND GetDate(DateValid)=?", True, GetSQLTime(Session).Date.AddDays(-1)))
+                    If _CurrencyRate IsNot Nothing Then
+                        CurrencyRate = _CurrencyRate.RateAverage
+                    End If
+                Else
+                    If _CurrencyRate IsNot Nothing Then
+                        CurrencyRate = _CurrencyRate.RateAverage
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+    <NonPersistent()>
+    Property CurrencyRate As Double
+        Get
+            Return _CurrencyRate
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CurrencyRate", _CurrencyRate, value)
+        End Set
+    End Property
+    <NonPersistent()>
+    Property ProductType As eProductType
+        Get
+            Return _ProductType
+        End Get
+        Set(value As eProductType)
+            SetPropertyValue("ProductType", _ProductType, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    Property IsProductType As Boolean
+        Get
+            Return _IsProductType
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsProductType", _IsProductType, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinder.vb

@@ -0,0 +1,84 @@
+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()>
+<CreatableItem(False)> _
+<NavigationItem(False)> _
+Public Class ProductFinder
+    Inherits BaseObject
+    Private _MasterKey As Guid
+    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
+    <Browsable(False)> _
+    Property MasterKey As Guid
+        Get
+            Return _MasterKey
+        End Get
+        Set(value As Guid)
+            SetPropertyValue("MasterKey", _MasterKey, value)
+        End Set
+    End Property
+    <ImmediatePostData(), Browsable(False)>
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+            If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
+                Dim c As XPCollection(Of ProductFinderInfo)
+                c = Me.ProductFinderInfo
+            End If
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property ProductSelect As XPCollection(Of ProductSelect)
+        Get
+            Return New XPCollection(Of ProductSelect)(Session)
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property ProductSelected As XPCollection(Of ProductSelected)
+        Get
+            Return New XPCollection(Of ProductSelected)(Session, CriteriaOperator.Parse("MasterKey=?", Me.MasterKey))
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property StorageOutCirculation As XPCollection(Of StorageOutCirculation)
+        Get
+            Return New XPCollection(Of StorageOutCirculation)(Session, CriteriaOperator.Parse("1=2"))
+        End Get
+    End Property
+    ReadOnly Property StorageComputedInfo As XPCollection(Of StorageComputedInfo)
+        Get
+            Return New XPCollection(Of StorageComputedInfo)(Session, CriteriaOperator.Parse("1=2"))
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property ProductFinderInfo As XPCollection(Of ProductFinderInfo)
+        Get
+            Return New XPCollection(Of ProductFinderInfo)(Session, CriteriaOperator.Parse("1=2"))
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderFIFO.vb

@@ -0,0 +1,52 @@
+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()>
+<CreatableItem(False)> _
+<NavigationItem(False)> _
+Public Class ProductFinderFIFO
+    Inherits BaseObject
+    Private _MasterKey As Guid
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+    <Browsable(False)> _
+    Property MasterKey As Guid
+        Get
+            Return _MasterKey
+        End Get
+        Set(value As Guid)
+            SetPropertyValue("MasterKey", _MasterKey, value)
+        End Set
+    End Property
+
+    ReadOnly Property StorageInRows As XPCollection(Of StorageInRows)
+        Get
+            Return New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse(""))
+        End Get
+    End Property
+    ReadOnly Property ProductSelectedFIFO As XPCollection(Of ProductSelectedFIFO)
+        Get
+            Return New XPCollection(Of ProductSelectedFIFO)(Session, CriteriaOperator.Parse("MasterKey=?", Me.MasterKey))
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderInfo.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
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<CreatableItem(False)> _
+<NavigationItem(False)> _
+<Appearance("Set PropertyName Font style", AppearanceItemType:="ViewItem", FontStyle:=Drawing.FontStyle.Bold, TargetItems:="PropertyName")> _
+Public Class ProductFinderInfo
+    Inherits BaseObject
+    Private _PropertyName As String
+    Private _InfoString As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property PropertyName As String
+        Get
+            Return _PropertyName
+        End Get
+        Set(value As String)
+            SetPropertyValue("PropertyName", _PropertyName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property InfoString As String
+        Get
+            Return _InfoString
+        End Get
+        Set(value As String)
+            SetPropertyValue("InfoString", _InfoString, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.Designer.vb

@@ -0,0 +1,67 @@
+Partial Class ProductFinderVC
+
+	<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.aToTableProductFinder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aToTableD_ProductFinder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aToTableProductFinder
+        '
+        Me.aToTableProductFinder.Caption = "aTo Table Product Finder"
+        Me.aToTableProductFinder.Category = "aToTableProductFinder"
+        Me.aToTableProductFinder.ConfirmationMessage = Nothing
+        Me.aToTableProductFinder.Id = "aToTableProductFinder"
+        Me.aToTableProductFinder.ImageName = Nothing
+        Me.aToTableProductFinder.Shortcut = "Add"
+        Me.aToTableProductFinder.Tag = Nothing
+        Me.aToTableProductFinder.TargetObjectsCriteria = Nothing
+        Me.aToTableProductFinder.TargetObjectType = GetType(SISBusiness.[Module].ProductFinder)
+        Me.aToTableProductFinder.TargetViewId = Nothing
+        Me.aToTableProductFinder.ToolTip = Nothing
+        Me.aToTableProductFinder.TypeOfView = Nothing
+        '
+        'aToTableD_ProductFinder
+        '
+        Me.aToTableD_ProductFinder.Caption = "aToTableD_ProductFinder"
+        Me.aToTableD_ProductFinder.Category = "aToTableD_ProductFinder"
+        Me.aToTableD_ProductFinder.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aToTableD_ProductFinder.Id = "aToTableD_ProductFinder"
+        Me.aToTableD_ProductFinder.ImageName = Nothing
+        Me.aToTableD_ProductFinder.Shortcut = "Subtract"
+        Me.aToTableD_ProductFinder.Tag = Nothing
+        Me.aToTableD_ProductFinder.TargetObjectsCriteria = Nothing
+        Me.aToTableD_ProductFinder.TargetObjectType = GetType(SISBusiness.[Module].ProductFinder)
+        Me.aToTableD_ProductFinder.TargetViewId = Nothing
+        Me.aToTableD_ProductFinder.ToolTip = Nothing
+        Me.aToTableD_ProductFinder.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aToTableProductFinder As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aToTableD_ProductFinder As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.resx

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

SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.vb

@@ -0,0 +1,126 @@
+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.ExpressApp.Editors
+Imports DevExpress.Data.Filtering
+
+Public Class ProductFinderVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        Frame.GetController(Of ProductFinderVC).aToTableProductFinder.Active.SetItemValue("", False)
+
+        If View.Id = "ProductFinder_DetailView" Then
+            Frame.GetController(Of ProductFinderVC).aToTableProductFinder.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+
+        End If
+        If View.Id = "ProductFinder_ProductSelect_ListView" Then
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "ProductFinder_ProductSelected_ListView" Then
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "ProductFinder_StorageOutCirculation_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+
+        End If
+        If View.Id = "ProductFinder_ProductFinderInfo_ListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+
+    End Sub
+
+    Private Sub aToTableProductFinder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableProductFinder.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+
+        Dim _ProductSelect_ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ProductSelect")
+        Dim _ProductSelected_ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ProductSelected")
+
+        Dim _ProductFinder As ProductFinder = TryCast(View.SelectedObjects(0), ProductFinder)
+        Dim _ProductSelect As ProductSelect
+        Dim _ProductSelected As ProductSelected
+
+        Dim _IsExists As Boolean = False
+
+        If _ProductSelect_ListPropertyEditor IsNot Nothing Then
+            For Each _ProductSelect In _ProductSelect_ListPropertyEditor.ListView.SelectedObjects
+                If _ProductSelected_ListPropertyEditor IsNot Nothing Then
+                    _IsExists = False
+                    For Each _ProductSelected In _ProductSelected_ListPropertyEditor.ListView.CollectionSource.List
+                        If _ProductSelected.Products Is _ProductSelect.Products Then
+                            _IsExists = True
+                            Exit For
+                        End If
+                    Next
+
+                    If _IsExists Then
+                        _ProductSelected.QTT += 1
+                    Else
+                        _ProductSelected = _ocur.CreateObject(Of ProductSelected)()
+                        _ProductSelected.MasterKey = _ProductFinder.MasterKey
+                        _ProductSelected.Products = _ProductSelect.Products
+                        _ProductSelected.QTT = 1
+                        _ProductSelected_ListPropertyEditor.ListView.CollectionSource.Add(_ProductSelected)
+                    End If
+                    _ocur.CommitChanges()
+                End If
+            Next
+        End If
+
+    End Sub
+    Private Sub aToTableD_ProductFinder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_ProductFinder.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _ProductSelected_ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ProductSelected")
+        Dim _ProductFinder As ProductFinder = TryCast(View.SelectedObjects(0), ProductFinder)
+        Dim _ProductSelected_Collection As New XPCollection(Of ProductSelected)(_onew.Session, CriteriaOperator.Parse("1=2"))
+        Dim _ProductSelected As ProductSelected
+        If _ProductSelected_ListPropertyEditor IsNot Nothing Then
+            For Each _ProductSelected In _ProductSelected_ListPropertyEditor.ListView.SelectedObjects
+                _ProductSelected_Collection.Add(_onew.GetObject(_ProductSelected))
+            Next
+            _onew.Delete(_ProductSelected_Collection)
+            _onew.CommitChanges()
+            _ProductSelected_ListPropertyEditor.ListView.CollectionSource.Reload()
+        End If
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVariable.vb

@@ -0,0 +1,60 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions(), NonPersistent(), CreatableItem(False), NavigationItem(False)> _
+Public Class ProductFinderVariable
+    Inherits BaseObject
+    Private _MasterKey As Guid
+    Private _Products As Products
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Browsable(False)> _
+    Property MasterKey As Guid
+        Get
+            Return _MasterKey
+        End Get
+        Set(value As Guid)
+            SetPropertyValue("MasterKey", _MasterKey, value)
+        End Set
+    End Property
+    <ImmediatePostData(), Browsable(False)>
+    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 ProductSelectOriginal As XPCollection(Of ProductSelect)
+        Get
+            If Me.Products IsNot Nothing Then
+                Return New XPCollection(Of ProductSelect)(Session, CriteriaOperator.Parse("Products=?", Me.Products))
+            Else
+                Return Nothing
+            End If
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property ProductSelectVariables As XPCollection(Of ProductSelect)
+        Get
+            Return New XPCollection(Of ProductSelect)(Session)
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductSelected.vb

@@ -0,0 +1,68 @@
+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 ProductSelected
+    Inherits BaseObject
+    Private _MasterKey As Guid 'PopUP master key
+    Private _Products As Products
+    Private _QTT As Double
+    Private _Description As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    <Browsable(False)> _
+    Property MasterKey As Guid
+        Get
+            Return _MasterKey
+        End Get
+        Set(value As Guid)
+            SetPropertyValue("MasterKey", _MasterKey, 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 _QTT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductSelectedFIFO.vb

@@ -0,0 +1,68 @@
+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 ProductSelectedFIFO
+    Inherits BaseObject
+    Private _MasterKey As Guid
+    Private _StorageInRows As StorageInRows
+    Private _QTT As Double
+    Private _Description As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    <Browsable(False)> _
+    Property MasterKey As Guid
+        Get
+            Return _MasterKey
+        End Get
+        Set(value As Guid)
+            SetPropertyValue("MasterKey", _MasterKey, 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 Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductsGant_CreateCustomersReport_PopUp.vb

@@ -0,0 +1,127 @@
+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
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.ExpressApp.Utils
+
+<DefaultClassOptions()> _
+<NonPersistent()>
+<CreatableItem(False)> _
+<NavigationItem(False)> _
+Public Class ProductsGant_CreateCustomersReport_PopUp
+    Inherits BaseObject
+
+    Private _Customers As Customers
+    Private _CustomersFrom As CustomersFrom
+    Private _Products As Products
+    Private _ProductsGantRows As ProductsGantRows
+    Private _DateExecution As Date
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <VisibleInDetailView(False)> _
+    <VisibleInListView(False)> _
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False)> _
+  <VisibleInListView(False)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False)> _
+ <VisibleInListView(False)> _
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property ProductsGantRows As ProductsGantRows
+        Get
+            Return _ProductsGantRows
+        End Get
+        Set(value As ProductsGantRows)
+            SetPropertyValue("ProductsGantRows", _ProductsGantRows, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+            If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then
+                '    ProductsGantCustomersReport.Reload()
+            End If
+        End Set
+    End Property
+
+    ReadOnly Property ProductsGantCustomersReport As XPCollection(Of ProductsGantCustomersReport)
+        Get
+            Dim _ProductsGantCustomersReport_Collection As New XPCollection(Of ProductsGantCustomersReport)(Session, CriteriaOperator.Parse("1=2"))
+
+            Dim InvoiceRowsXPQ As New XPQuery(Of InvoiceRows)(Session)
+            Dim IRXPQ = From _InvoiceRowsXPQ In InvoiceRowsXPQ
+                        Where _InvoiceRowsXPQ.OrderInRows IsNot Nothing And
+                                _InvoiceRowsXPQ.OrderInRows.Products IsNot Nothing And
+                                _InvoiceRowsXPQ.InvoiceHeader.IsStorno = False And
+                                _InvoiceRowsXPQ.InvoiceHeader.CustomersFrom.Oid = CustomersFrom.Oid And
+                                _InvoiceRowsXPQ.InvoiceHeader.Customers.Oid = Customers.Oid
+                        Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.OrderInRows.Products Into g = Group _
+                        Select New With {Key .Products = Products}
+
+
+            If IRXPQ.Count > 0 Then
+                For Each _IRXPQ_Item In IRXPQ
+                    Dim _ProductsGantCustomersReport As New ProductsGantCustomersReport(Session)
+                    With _ProductsGantCustomersReport
+                        .Customers = Customers
+                        .Products = _IRXPQ_Item.Products
+                        .DateExecution = DateExecution.Date
+                    End With
+
+                    _ProductsGantCustomersReport_Collection.Add(_ProductsGantCustomersReport)
+
+                Next
+            End If
+
+            Dim _ProductsGantCustomersReport_Existing_Collection As New XPCollection(Of ProductsGantCustomersReport) _
+                (Session, CriteriaOperator.Parse("Customers=? AND Products=? AND GetDate(DateExecution)=?", Customers, Products, DateExecution.Date))
+
+            If _ProductsGantCustomersReport_Existing_Collection.Count > 0 Then
+                For Each _ProductsGantCustomersReport As ProductsGantCustomersReport In _ProductsGantCustomersReport_Existing_Collection
+                    _ProductsGantCustomersReport_Collection.Add(_ProductsGantCustomersReport)
+                Next
+            End If
+
+            Return _ProductsGantCustomersReport_Collection
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductsGant_SetGantItemColumn_PopUp.vb

@@ -0,0 +1,90 @@
+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 ProductsGant_SetGantItemColumn_PopUp
+    Inherits BaseObject
+
+    Private _ColumnCaption As String
+    Private _IsGroupColumn As Boolean
+    Private _GroupIndex As Long
+    Private _IsVisable As Boolean
+    Private _Index As Long
+    Private _Width As Long
+    Private _ColumnID As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property ColumnCaption As String
+        Get
+            Return _ColumnCaption
+        End Get
+        Set(value As String)
+            SetPropertyValue("ColumnCaption", _ColumnCaption, value)
+        End Set
+    End Property
+    Property IsGroupColumn As Boolean
+        Get
+            Return _IsGroupColumn
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsGroupColumn", _IsGroupColumn, value)
+        End Set
+    End Property
+    Property GroupIndex As Long
+        Get
+            Return _GroupIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("GroupIndex", _GroupIndex, value)
+        End Set
+    End Property
+    Property IsVisable As Boolean
+        Get
+            Return _IsVisable
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsVisable", _IsVisable, value)
+        End Set
+    End Property
+    Property Index As Long
+        Get
+            Return _Index
+        End Get
+        Set(value As Long)
+            SetPropertyValue("Index", _Index, value)
+        End Set
+    End Property
+    Property Width As Long
+        Get
+            Return _Width
+        End Get
+        Set(value As Long)
+            SetPropertyValue("Width", _Width, value)
+        End Set
+    End Property
+    Property ColumnID As String
+        Get
+            Return _ColumnID
+        End Get
+        Set(value As String)
+            SetPropertyValue("ColumnID", _ColumnID, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/PopUp/StorageComputedInfo.vb

@@ -0,0 +1,41 @@
+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)> _
+Public Class StorageComputedInfo
+    Inherits BaseObject
+    Private _InfoString As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    Property InfoString As String
+        Get
+            Return _InfoString
+        End Get
+        Set(value As String)
+            SetPropertyValue("InfoString", _InfoString, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ePriceMode.vb

@@ -0,0 +1,5 @@
+
+Public Enum ePriceMode
+    eDEVToHUF = 0
+    eHUFToDEV = 1
+End Enum

SISBusiness.Module/BusinessObjects/Business/Products/ProductSelect.vb

@@ -0,0 +1,31 @@
+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()> _
+<Persistent("vv_ProductSelect")> _
+<NavigationItem(False), CreatableItem(False)> _
+<DefaultProperty("DisplayName")> _
+<Appearance("Set QTT_Will Font style", AppearanceItemType:="ViewItem", FontStyle:=Drawing.FontStyle.Bold, BackColor:="240,240,240", TargetItems:="QTT_Will")> _
+Public Class ProductSelect
+    Inherits XPLiteObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <Key(True), Persistent("Oid")> Public Oid As Guid
+    <Persistent("Products")> Public Products As Products
+    <Persistent("StorageComputed")> Public StorageComputed As StorageComputed
+    <NonPersistent()> Public QTT_Will As Double
+    ReadOnly Property DisplayName As String
+        Get
+            Return Products.ProductNumber & ", " & Products.ShortName
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/Products.vb

@@ -0,0 +1,834 @@
+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.Drawing
+
+Public Enum eProductType
+    eNormal = 0
+    eSerialNumber = 1
+    ePacketNumber = 2
+End Enum
+Public Enum eADRPackingUnit
+    eNotSet = 0
+    eUnit_I = 1
+    eUnit_II = 2
+    eUnit_III = 3
+End Enum
+Public Enum eDangerClass
+    eNotSet = 0
+    eClassI = 1
+    eClassII = 2
+    eClassIII = 3
+End Enum
+'-- Termék, termék beszállítók
+<DefaultClassOptions()> _
+<NavigationItem("BusinessStocks")> _
+<Appearance("Disable ObjectCreated and UserCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated;UserCreated", Enabled:=False)> _
+Public Class Products
+    Inherits BaseObject
+    Private _ProductType As eProductType = eProductType.eNormal
+    Private _ProductsGroups As ProductsGroups 'Termék csoport
+    Private _ProductNumber As String 'Termék cikkszáma, egyedi ! Nem lehet két egyforma !!!!!!
+    Private _ProductCode As String 'Termék kód
+    Private _ProductStrategyCode As String 'Stratégiai kód, az automatikus rendelést fogja befojásolni
+    Private _ShortName As String 'Megnevezés
+    Private _ShortName_Hu As String 'Megnevezés magyarul
+    Private _ShortName_Gb As String 'Megnevezés angolul
+    Private _ShortName_De As String 'Megnevezés németül
+    Private _Description As String 'Leírás 
+    Private _Description_Hu As String 'Leírás magyarul
+    Private _Description_Gb As String 'Leírás angolul
+    Private _Description_De As String 'Leírás németül
+    Private _Description_Private As String 'Belső megjegyzés a termékre vonatkozóan
+    Private _VAT As VAT 'ÁFA kód
+    Private _Units As Units 'Mennyiségi egység
+    Private _CustomsTariff As CustomsTariffs 'Vámtarifa szj, stb
+    Private _NettoWeight As Double 'Nettó súly
+    Private _GrossWeight As Double 'Bruttó súly (csomagolva a nettó)
+    Private _PacketUnitOut As Double 'Eladási csomagolási egység
+    Private _PacketUnitIn As Double 'Beszerzési csomagolási egység
+    Private _ListPriceOutHUF As Double 'Listaár HUF eladási !!!
+    Private _ListPriceOutDEV As Double 'Listaár DEV eladási
+    Private _ListPriceInHUF As Double 'Listaár HUF vételi !!!
+    Private _ListPriceInDEV As Double 'Listaár DEV vételi
+    Private _CurrencyName As CurrencyName 'Deviza ( ez az alapértelmezett devizája !)
+    Private _CountryFrom As Country 'Származási ország !
+    Private _DecimalIn As Long ' Bejövő bizonylatoknál ? tizedesre
+    Private _DecimalOut As Long 'Kimenő bizonylatoknál ? tizedesre
+    Private _ObjectCreated As Date 'Létrehozás dátuma
+    Private _UserCreated As User 'Létrehozó
+    Private _Barcode As String 'Vonalkód
+    Private _MasterBusinessDirectory As BusinessDirectory
+    Private _IsStoragEverUsed As Boolean
+
+    Private _Parameter_01 As String = ""
+    Private _Parameter_02 As String = ""
+    Private _Parameter_03 As String = ""
+    Private _Parameter_04 As String = ""
+    Private _Parameter_05 As String = ""
+    Private _Parameter_06 As String = ""
+    Private _Parameter_07 As String = ""
+    Private _Parameter_08 As String = ""
+    Private _Parameter_09 As String = ""
+    Private _Parameter_10 As String = ""
+    Private _HRPersonResponsible As HRPerson 'Termék felelős
+    Private _HRPersonSpecialist As HRPerson 'Termék specialista
+
+    '//WEB ShoppingCart megjelenéshez
+    Private _Picture_110x110 As Image
+    Private _Picture_240x220 As Image
+    Private _Picture_FullSize As Image
+    Private _ProductsGroupsWEB As ProductsGroupsWEB
+
+    Private _Producer As Customers 'Gyártó
+    Private _ADRPackingUnit As eADRPackingUnit
+    Private _UNNumber As String 'UN szám (mezőgazdasági veszélyességhez)
+    Private _UNNumberDescription As String 'UN szám szöveges megjelenítése
+    Private _Agent As String 'Hatóanyag
+    Private _DangerLabel As Double 'Veszélyességi bárca
+    Private _DangerClass As eDangerClass
+    Private _PGNumber As String 'PG szám a veszélyességhez
+
+
+    Private _FastCode As String 'Termék gyorskód
+    Private _PLUCode As String 'Pult kód mérlegelt termékekhez
+    Private _Empties As Products 'Göngyöleg
+    Private _PriceColumnBruttoHUF01 As Double '1. ároszlop forintos bruttó ára
+    Private _PriceColumnBruttoHUF02 As Double '2. ároszlop forintos bruttó ára
+    Private _PriceColumnBruttoHUF03 As Double '3. ároszlop forintos bruttó ára
+    Private _PriceColumnBruttoHUF04 As Double '4. ároszlop forintos bruttó ára
+    Private _PriceColumnBruttoHUF05 As Double '5. ároszlop forintos bruttó ára
+    Private _PriceColumnBruttoHUF06 As Double '6. ároszlop forintos bruttó ára
+    Private _PriceColumnBruttoHUF07 As Double '7. ároszlop forintos bruttó ára
+    Private _PriceColumnBruttoHUF08 As Double '8. ároszlop forintos bruttó ára
+    Private _PriceColumnBruttoHUF09 As Double '9. ároszlop forintos bruttó ára
+    Private _PriceColumnBruttoHUF10 As Double '10. ároszlop forintos bruttó ára
+
+    Private _CustomersOrder01 As CustomersOrder '1. beszállító
+    Private _CustomersOrder02 As CustomersOrder '2. beszállító
+
+    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))
+        IsStoragEverUsed = False
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If IsDeleted = False Then
+            If CustomersOrder01 Is Nothing Then
+                If Me.CustomersOrderPriority.Count > 0 Then
+                    Me.CustomersOrderPriority.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
+                    Me.CustomersOrder01 = Me.CustomersOrderPriority(0).CustomersOrder
+                End If
+            End If
+            If CustomersOrder02 Is Nothing Then
+                If Me.CustomersOrderPriority.Count > 1 Then
+                    Me.CustomersOrderPriority.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
+                    Me.CustomersOrder02 = Me.CustomersOrderPriority(1).CustomersOrder
+                End If
+            End If
+        End If
+    End Sub
+    Property ProductType As eProductType
+        Get
+            Return _ProductType
+        End Get
+        Set(value As eProductType)
+            SetPropertyValue("ProductType", _ProductType, value)
+        End Set
+    End Property
+    Property ProductGroups As ProductsGroups
+        Get
+            Return _ProductsGroups
+        End Get
+        Set(ByVal value As ProductsGroups)
+            SetPropertyValue("ProductsGroups", _ProductsGroups, value)
+        End Set
+    End Property
+    <RuleRequiredField("Products.ProductNumber.RuleRequiredField", DefaultContexts.Save)> _
+    <RuleUniqueValue("Products.ProductNumber.RuleUniqueValue", DefaultContexts.Save, _
+    CriteriaEvaluationBehavior:=PersistentCriteriaEvaluationBehavior.BeforeTransaction)> _
+    <Size(255)> _
+    Property ProductNumber() As String
+        Get
+            Return _ProductNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ProductNumber", _ProductNumber, value)
+        End Set
+    End Property
+    Property ProductCode As String
+        Get
+            Return _ProductCode
+        End Get
+        Set(value As String)
+            SetPropertyValue("ProductCode", _ProductCode, value)
+        End Set
+    End Property
+    Property ProductStrategyCode As String
+        Get
+            Return _ProductStrategyCode
+        End Get
+        Set(value As String)
+            SetPropertyValue("ProductStrategyCode", _ProductStrategyCode, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property ShortName_Hu As String
+        Get
+            Return _ShortName_Hu
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName_Hu", _ShortName_Hu, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property ShortName_Gb As String
+        Get
+            Return _ShortName_Gb
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName_gb", _ShortName_Gb, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property ShortName_De As String
+        Get
+            Return _ShortName_De
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName_De", _ShortName_De, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description_Hu() As String
+        Get
+            Return _Description_Hu
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description_Hu", _Description_Hu, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description_Gb() As String
+        Get
+            Return _Description_Gb
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description_gb", _Description_Gb, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description_De() As String
+        Get
+            Return _Description_De
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description_De", _Description_De, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description_Private As String
+        Get
+            Return _Description_Private
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description_Private", _Description_Private, value)
+        End Set
+    End Property
+    Property VAT As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(ByVal value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+    Property Units As Units
+        Get
+            Return _Units
+        End Get
+        Set(ByVal value As Units)
+            SetPropertyValue("Units", _Units, value)
+        End Set
+    End Property
+    Property CustomsTariff As CustomsTariffs
+        Get
+            Return _CustomsTariff
+        End Get
+        Set(ByVal value As CustomsTariffs)
+            SetPropertyValue("CustomsTariff", _CustomsTariff, value)
+        End Set
+    End Property
+    Property NettoWeight As Double
+        Get
+            Return _NettoWeight
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("NettoWeight", _NettoWeight, value)
+        End Set
+    End Property
+    Property GrossWeight As Double
+        Get
+            Return _GrossWeight
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("GrossWeight", _GrossWeight, value)
+        End Set
+    End Property
+    Property PacketUnitOut As Double
+        Get
+            Return _PacketUnitOut
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PacketUnitOut", _PacketUnitOut, value)
+        End Set
+    End Property
+    Property PacketUnitIn As Double
+        Get
+            Return _PacketUnitIn
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PacketUnitIn", _PacketUnitIn, value)
+        End Set
+    End Property
+    Property ListPriceOutHUF As Double
+        Get
+            Return _ListPriceOutHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("ListPriceOutHUF", _ListPriceOutHUF, value)
+        End Set
+    End Property
+    Property ListPriceOutDEV As Double
+        Get
+            Return _ListPriceOutDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("ListPriceOutDEV", _ListPriceOutDEV, value)
+        End Set
+    End Property
+    Property ListPriceInHUF As Double
+        Get
+            Return _ListPriceInHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ListPriceInHUF", _ListPriceInHUF, value)
+        End Set
+    End Property
+    Property ListPriceInDEV As Double
+        Get
+            Return _ListPriceInDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ListPriceInDEV", _ListPriceInDEV, value)
+        End Set
+    End Property
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("Currencyname", _CurrencyName, value)
+        End Set
+    End Property
+    Property CountryFrom As Country
+        Get
+            Return _CountryFrom
+        End Get
+        Set(ByVal value As Country)
+            SetPropertyValue("CountryFrom", _CountryFrom, value)
+        End Set
+    End Property
+    Property DecimalIn As Long
+        Get
+            Return _DecimalIn
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("DecimalIn", _DecimalIn, value)
+
+        End Set
+    End Property
+    Property DecimalOut As Long
+        Get
+            Return _DecimalOut
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("DecimalOut", _DecimalOut, 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(50)> _
+    Property Barcode As String
+        Get
+            Return _Barcode
+        End Get
+        Set(value As String)
+            SetPropertyValue("Barcode", _Barcode, value)
+        End Set
+    End Property
+    Property MasterBusinessDirectory As BusinessDirectory
+        Get
+            Return _MasterBusinessDirectory
+        End Get
+        Set(value As BusinessDirectory)
+            SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    <VisibleInDetailView(False)> _
+    Property IsStoragEverUsed As Boolean
+        Get
+            Return _IsStoragEverUsed
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsStoragEverUsed", _IsStoragEverUsed, value)
+        End Set
+    End Property
+
+    <Size(255)> _
+    Property Parameter_01 As String
+        Get
+            Return _Parameter_01
+        End Get
+        Set(value As String)
+            SetPropertyValue("Parameter_01", _Parameter_01, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property Parameter_02 As String
+        Get
+            Return _Parameter_02
+        End Get
+        Set(value As String)
+            SetPropertyValue("Parameter_02", _Parameter_02, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property Parameter_03 As String
+        Get
+            Return _Parameter_03
+        End Get
+        Set(value As String)
+            SetPropertyValue("Parameter_03", _Parameter_03, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property Parameter_04 As String
+        Get
+            Return _Parameter_04
+        End Get
+        Set(value As String)
+            SetPropertyValue("Parameter_04", _Parameter_04, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property Parameter_05 As String
+        Get
+            Return _Parameter_05
+        End Get
+        Set(value As String)
+            SetPropertyValue("Parameter_05", _Parameter_05, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property Parameter_06 As String
+        Get
+            Return _Parameter_06
+        End Get
+        Set(value As String)
+            SetPropertyValue("Parameter_06", _Parameter_06, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property Parameter_07 As String
+        Get
+            Return _Parameter_07
+        End Get
+        Set(value As String)
+            SetPropertyValue("Parameter_07", _Parameter_07, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property Parameter_08 As String
+        Get
+            Return _Parameter_08
+        End Get
+        Set(value As String)
+            SetPropertyValue("Parameter_08", _Parameter_08, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property Parameter_09 As String
+        Get
+            Return _Parameter_09
+        End Get
+        Set(value As String)
+            SetPropertyValue("Parameter_09", _Parameter_09, value)
+        End Set
+    End Property
+    <Size(255)> _
+    Property Parameter_10 As String
+        Get
+            Return _Parameter_10
+        End Get
+        Set(value As String)
+            SetPropertyValue("Parameter_10", _Parameter_10, value)
+        End Set
+    End Property
+    Property HRPersonResponsible As HRPerson
+        Get
+            Return _HRPersonResponsible
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPersonResponsible", _HRPersonResponsible, value)
+        End Set
+    End Property
+    Property HRPersonSpecialist As HRPerson
+        Get
+            Return _HRPersonSpecialist
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPersonSpecialist", _HRPersonSpecialist, value)
+        End Set
+    End Property
+
+    '//WEB miatt
+    <ValueConverter(GetType(DevExpress.Xpo.Metadata.ImageValueConverter))> _
+    Property Picture_110x110 As Image
+        Get
+            Return _Picture_110x110
+        End Get
+        Set(value As Image)
+            SetPropertyValue("Picture_110x110", _Picture_110x110, value)
+        End Set
+    End Property
+    <ValueConverter(GetType(DevExpress.Xpo.Metadata.ImageValueConverter))> _
+    Property Picture_240x220 As Image
+        Get
+            Return _Picture_240x220
+        End Get
+        Set(value As Image)
+            SetPropertyValue("Picture_240x220", _Picture_240x220, value)
+        End Set
+    End Property
+    <ValueConverter(GetType(DevExpress.Xpo.Metadata.ImageValueConverter))> _
+    Property Picture_FullSize As Image
+        Get
+            Return _Picture_FullSize
+        End Get
+        Set(value As Image)
+            SetPropertyValue("Picture_FullSize", _Picture_FullSize, value)
+        End Set
+    End Property
+    Property ProductsGroupsWEB As ProductsGroupsWEB
+        Get
+            Return _ProductsGroupsWEB
+        End Get
+        Set(value As ProductsGroupsWEB)
+            SetPropertyValue("ProductsGroupsWEB", _ProductsGroupsWEB, value)
+        End Set
+    End Property
+
+    'Veszélyesség
+    Property Producer As Customers
+        Get
+            Return _Producer
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Producer", _Producer, value)
+        End Set
+    End Property
+    Property ADRPackingUnit As eADRPackingUnit
+        Get
+            Return _ADRPackingUnit
+        End Get
+        Set(value As eADRPackingUnit)
+            SetPropertyValue("ADRPackingUnit", _ADRPackingUnit, value)
+        End Set
+    End Property
+    Property UNNumber As String
+        Get
+            Return _UNNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("UNNumber", _UNNumber, value)
+        End Set
+    End Property
+    <Size(800)> _
+    Property UNNumberDescription As String
+        Get
+            Return _UNNumberDescription
+        End Get
+        Set(value As String)
+            SetPropertyValue("UNNumberDescription", _UNNumberDescription, value)
+        End Set
+    End Property
+    Property Agent As String
+        Get
+            Return _Agent
+        End Get
+        Set(value As String)
+            SetPropertyValue("Agent", _Agent, value)
+        End Set
+    End Property
+    Property DangerLabel As Double
+        Get
+            Return _DangerLabel
+        End Get
+        Set(value As Double)
+            SetPropertyValue("DangerLabel", _DangerLabel, value)
+        End Set
+    End Property
+    Property DangerClass As eDangerClass
+        Get
+            Return _DangerClass
+        End Get
+        Set(value As eDangerClass)
+            SetPropertyValue("DangerClass", _DangerClass, value)
+        End Set
+    End Property
+    Property PGNumber As String
+        Get
+            Return _PGNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("PGNumber", _PGNumber, value)
+        End Set
+    End Property
+
+    'Vonalkód, pultkód
+    Property FastCode As String
+        Get
+            Return _FastCode
+        End Get
+        Set(value As String)
+            SetPropertyValue("FastCode", _FastCode, value)
+        End Set
+    End Property
+    Property PLUCode As String
+        Get
+            Return _PLUCode
+        End Get
+        Set(value As String)
+            SetPropertyValue("PLUCode", _PLUCode, value)
+        End Set
+    End Property
+    Property Empties As Products
+        Get
+            Return _Empties
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Empties", _Empties, value)
+        End Set
+    End Property
+
+    'Ároszlop ÁRAK
+    Property PriceColumnBruttoHUF01 As Double
+        Get
+            Return _PriceColumnBruttoHUF01
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceColumnBruttoHUF01", _PriceColumnBruttoHUF01, value)
+        End Set
+    End Property
+    Property PriceColumnBruttoHUF02 As Double
+        Get
+            Return _PriceColumnBruttoHUF02
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceColumnBruttoHUF02", _PriceColumnBruttoHUF02, value)
+        End Set
+    End Property
+    Property PriceColumnBruttoHUF03 As Double
+        Get
+            Return _PriceColumnBruttoHUF03
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceColumnBruttoHUF03", _PriceColumnBruttoHUF03, value)
+        End Set
+    End Property
+    Property PriceColumnBruttoHUF04 As Double
+        Get
+            Return _PriceColumnBruttoHUF04
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceColumnBruttoHUF04", _PriceColumnBruttoHUF04, value)
+        End Set
+    End Property
+    Property PriceColumnBruttoHUF05 As Double
+        Get
+            Return _PriceColumnBruttoHUF05
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceColumnBruttoHUF05", _PriceColumnBruttoHUF05, value)
+        End Set
+    End Property
+    Property PriceColumnBruttoHUF06 As Double
+        Get
+            Return _PriceColumnBruttoHUF01
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceColumnBruttoHUF06", _PriceColumnBruttoHUF06, value)
+        End Set
+    End Property
+    Property PriceColumnBruttoHUF07 As Double
+        Get
+            Return _PriceColumnBruttoHUF01
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceColumnBruttoHUF07", _PriceColumnBruttoHUF07, value)
+        End Set
+    End Property
+    Property PriceColumnBruttoHUF08 As Double
+        Get
+            Return _PriceColumnBruttoHUF01
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceColumnBruttoHUF08", _PriceColumnBruttoHUF08, value)
+        End Set
+    End Property
+    Property PriceColumnBruttoHUF09 As Double
+        Get
+            Return _PriceColumnBruttoHUF09
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceColumnBruttoHUF09", _PriceColumnBruttoHUF09, value)
+        End Set
+    End Property
+    Property PriceColumnBruttoHUF10 As Double
+        Get
+            Return _PriceColumnBruttoHUF01
+        End Get
+        Set(value As Double)
+            SetPropertyValue("PriceColumnBruttoHUF10", _PriceColumnBruttoHUF10, value)
+        End Set
+    End Property
+
+    <VisibleInDetailView(False)> _
+    Property CustomersOrder01 As CustomersOrder
+        Get
+            Return _CustomersOrder01
+        End Get
+        Set(value As CustomersOrder)
+            SetPropertyValue("CustomersOrder01", _CustomersOrder01, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False)> _
+    Property CustomersOrder02 As CustomersOrder
+        Get
+            Return _CustomersOrder02
+        End Get
+        Set(value As CustomersOrder)
+            SetPropertyValue("CustomersOrder02", _CustomersOrder02, value)
+        End Set
+    End Property
+
+    '//XPCollections
+    <VisibleInListView(False)> _
+    <Association("Products-CustomersOrderPriority", GetType(CustomersOrderPriority))> _
+    Public ReadOnly Property CustomersOrderPriority As XPCollection(Of CustomersOrderPriority)
+        Get
+            Return GetCollection(Of CustomersOrderPriority)("CustomersOrderPriority")
+        End Get
+    End Property
+    <VisibleInListView(False), Aggregated(), Association("Products-ProductsDocumentations", GetType(ProductsDocumentations))> _
+    Public ReadOnly Property ProductsDocumentations() As XPCollection(Of ProductsDocumentations)
+        Get
+            Return GetCollection(Of ProductsDocumentations)("ProductsDocumentations")
+        End Get
+    End Property
+    Public ReadOnly Property Products_BusinessDirectory As XPCollection(Of BusinessDirectory)
+        Get
+            Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse("1=2"))
+
+            If MasterBusinessDirectory IsNot Nothing Then
+                If MasterBusinessDirectory.Children.Count > 0 Then
+                    _BusinessDirectory_Collection.Add(MasterBusinessDirectory)
+                    RecursiveBusinessDirectory(_BusinessDirectory_Collection, MasterBusinessDirectory.NestedBusinessDirectory)
+                Else
+                    _BusinessDirectory_Collection.Add(MasterBusinessDirectory)
+                End If
+            End If
+            If ProductGroups IsNot Nothing Then
+                If ProductGroups.MasterBusinessDirectory IsNot Nothing Then
+                    If ProductGroups.MasterBusinessDirectory.Children.Count > 0 Then
+                        _BusinessDirectory_Collection.Add(ProductGroups.MasterBusinessDirectory)
+                        RecursiveBusinessDirectory(_BusinessDirectory_Collection, ProductGroups.MasterBusinessDirectory.NestedBusinessDirectory)
+                    Else
+                        _BusinessDirectory_Collection.Add(ProductGroups.MasterBusinessDirectory)
+                    End If
+
+                End If
+            End If
+
+            Return _BusinessDirectory_Collection
+        End Get
+    End Property
+
+#Region "Other subs"
+    Private Sub RecursiveBusinessDirectory(_BusinessDirectoryList As XPCollection(Of BusinessDirectory), _NestedBusinessDirectory As XPCollection(Of BusinessDirectory))
+        For Each _BusinessDirectory As BusinessDirectory In _NestedBusinessDirectory
+            If _BusinessDirectory.Children.Count > 0 Then
+                _BusinessDirectoryList.Add(_BusinessDirectory)
+                RecursiveBusinessDirectory(_BusinessDirectoryList, _BusinessDirectory.NestedBusinessDirectory)
+            Else
+                _BusinessDirectoryList.Add(_BusinessDirectory)
+            End If
+        Next
+    End Sub
+#End Region
+
+End Class
+
+
+
+
+
+
+

SISBusiness.Module/BusinessObjects/Business/Products/ProductsCredit.vb

@@ -0,0 +1,56 @@
+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 ProductsCredit
+    Inherits BaseObject 'Termékcsoporthoz adott hitelkeret
+    Private _ShortName As String
+    Private _CurrencyName As CurrencyName
+    Private _AmountHUF As Double
+    Private _AmountDEV As Double
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+
+    <Association("ProductsCredit-ProductsCreditProducts", GetType(ProductsCreditProducts))> _
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property ProductsCreditProducts As XPCollection(Of ProductsCreditProducts)
+        Get
+            Return GetCollection(Of ProductsCreditProducts)("ProductsCreditProducts")
+        End Get
+    End Property
+    <Association("ProductsCredit-ProductsCreditGroups", GetType(ProductsCreditGroups))> _
+        <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property ProductsCreditGroups As XPCollection(Of ProductsCreditGroups)
+        Get
+            Return GetCollection(Of ProductsCreditGroups)("ProductsCreditGroups")
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/ProductsCreditGroups.vb

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

SISBusiness.Module/BusinessObjects/Business/Products/ProductsCreditProducts.vb

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

SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations.vb

@@ -0,0 +1,157 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports System.Drawing
+Imports System.IO
+Imports DevExpress.ExpressApp.Utils
+
+Public Enum eProductsDocumentationStatus
+    ePublic = 0 '-- Bárki láthatja
+    ePrivat = 1 '-- Csak belső használatra
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ProductsDocumentations
+    Inherits FileAttachmentBase
+    Private _Products As Products
+    Private _Status As eProductsDocumentationStatus
+    Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező)
+    Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező)
+    Private _ShortName As String
+    Private _Description As String
+    Private _FileCreated As Date
+    Private _FileModified As Date
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Status = eProductsDocumentationStatus.ePublic
+     
+    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
+    <Persistent(), Association("Products-ProductsDocumentations")> _
+    Property Products() As Products
+        Get
+            Return _Products
+        End Get
+        Set(ByVal value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property Status As eProductsDocumentationStatus
+        Get
+            Return _Status
+        End Get
+        Set(value As eProductsDocumentationStatus)
+            SetPropertyValue("Status", _Status, value)
+        End Set
+    End Property
+    Property RowGroup1 As String
+        Get
+            Return _RowGroup1
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup1", _RowGroup1, value)
+        End Set
+    End Property
+    Property RowGroup2 As String
+        Get
+            Return _RowGroup2
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup2", _RowGroup2, 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 Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property FileCreated As Date
+        Get
+            Return _FileCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("FileCreated", _FileCreated, value)
+        End Set
+    End Property
+    Property FileModified As Date
+        Get
+            Return _FileModified
+        End Get
+        Set(value As Date)
+            SetPropertyValue("FileModified", _FileModified, 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
+
+    '--------ReadOnly---------
+    <VisibleInDetailView(False)> _
+    ReadOnly Property ImageType As Image
+        Get
+            Select Case LCase(Path.GetExtension(File.FileName))
+                Case ".xls", ".xlsx"
+                    Return ImageLoader.Instance.GetImageInfo("XLS").Image
+                Case ".doc", ".docx"
+                    Return ImageLoader.Instance.GetImageInfo("DOC").Image
+                Case ".pdf"
+                    Return ImageLoader.Instance.GetImageInfo("PDF").Image
+                Case ".txt"
+                    Return ImageLoader.Instance.GetImageInfo("NoImage").Image
+                Case Else
+                    Return ImageLoader.Instance.GetImageInfo("NoImage").Image
+                    Return Nothing
+            End Select
+        End Get
+    End Property
+End Class
+
+
+
+
+
+
+

SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations_VC.Designer.vb

@@ -0,0 +1,49 @@
+Partial Class ProductsDocumentations_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.aProductsDocumentations_OpenProductGroupFolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aProductsDocumentations_OpenProductGroupFolder
+        '
+        Me.aProductsDocumentations_OpenProductGroupFolder.Caption = "aProductsDocumentations_OpenProductGroupFolder"
+        Me.aProductsDocumentations_OpenProductGroupFolder.ConfirmationMessage = Nothing
+        Me.aProductsDocumentations_OpenProductGroupFolder.Id = "aProductsDocumentations_OpenProductGroupFolder"
+        Me.aProductsDocumentations_OpenProductGroupFolder.ImageName = Nothing
+        Me.aProductsDocumentations_OpenProductGroupFolder.Shortcut = Nothing
+        Me.aProductsDocumentations_OpenProductGroupFolder.Tag = Nothing
+        Me.aProductsDocumentations_OpenProductGroupFolder.TargetObjectsCriteria = Nothing
+        Me.aProductsDocumentations_OpenProductGroupFolder.TargetObjectType = GetType(SISBusiness.[Module].ProductsDocumentations)
+        Me.aProductsDocumentations_OpenProductGroupFolder.TargetViewId = Nothing
+        Me.aProductsDocumentations_OpenProductGroupFolder.ToolTip = Nothing
+        Me.aProductsDocumentations_OpenProductGroupFolder.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aProductsDocumentations_OpenProductGroupFolder As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations_VC.resx

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

SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations_VC.vb

@@ -0,0 +1,36 @@
+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 ProductsDocumentations_VC
+	Inherits DevExpress.ExpressApp.ViewController
+
+	Public Sub New()
+		MyBase.New()
+        InitializeComponent()
+		RegisterActions(components) 
+    End Sub
+
+    Private Sub aProductsDocumentations_OpenProductGroupFolder_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsDocumentations_OpenProductGroupFolder.Execute
+        Try
+            Dim _DefaultFolder As String = TryCast(Application.Model.Options, IModelOptionsExtender).DefaultproductsFileFolder
+            Dim _Products As Products = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Products)
+            If _Products Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
+
+            If System.IO.Directory.Exists(_DefaultFolder + _Products.ProductGroups.ShortName) Then
+                Process.Start("explorer.exe", _DefaultFolder + _Products.ProductGroups.ShortName)
+            Else
+                System.IO.Directory.CreateDirectory(_DefaultFolder + _Products.ProductGroups.ShortName)
+                Process.Start("explorer.exe", _DefaultFolder + _Products.ProductGroups.ShortName)
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")
+        End Try
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant.vb

@@ -0,0 +1,55 @@
+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("ProductsGant - CustomersFrom all time", TargetItems:="CustomersFrom", Criteria:="1=1", Enabled:=False, Context:="Any")> _
+Public Class ProductsGant
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _G2antt As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property G2antt As String
+        Get
+            Return _G2antt
+        End Get
+        Set(value As String)
+            SetPropertyValue("G2antt", _G2antt, value)
+        End Set
+    End Property
+
+    'ReadOnly
+    <VisibleInListView(False)> _
+    <VisibleInLookupListView(False)> _
+    <Association("ProductsGant - ProductsGantRows", GetType(ProductsGantRows))> _
+    ReadOnly Property ProductsGantRows As XPCollection(Of ProductsGantRows)
+        Get
+            Return GetCollection(Of ProductsGantRows)("ProductsGantRows")
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/ProductsGantCustomersReport.vb

@@ -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
+
+<DefaultClassOptions()> _
+<CreatableItem(False)> _
+<NavigationItem(False)> _
+<DeferredDeletion(False)> _
+Public Class ProductsGantCustomersReport
+    Inherits BaseObject
+
+    Private _Customers As Customers 'Partner
+    Private _Products As Products 'Termék
+    Private _QTT As Double 'Jelentett mennyiség
+    Private _DateExecution As Date 'jelentés idõpillanata
+
+    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()
+        'Beep()
+    End Sub
+    <RuleRequiredField("ProductsGantCustomersReport - Customers", DefaultContexts.Save)> _
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    <RuleRequiredField("ProductsGantCustomersReport - 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 DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/ProductsGantRows.vb

@@ -0,0 +1,80 @@
+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 ProductsGantRows
+    Inherits BaseObject
+
+    Private _ProductsGant As ProductsGant
+    Private _Customers As Customers
+    Private _Products As Products
+    Private _CalculatedRotation As Double 'Kalkulált forgási sebesség
+    Private _ManualRotation As Double 'Manuális forgási sebesség
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("ProductsGant - ProductsGantRows", GetType(ProductsGant))> _
+    Property ProductsGant As ProductsGant
+        Get
+            Return _ProductsGant
+        End Get
+        Set(value As ProductsGant)
+            SetPropertyValue("ProductsGant", _ProductsGant, value)
+        End Set
+    End Property
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property CalculatedRotation As Double
+        Get
+            Return _CalculatedRotation
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CalculatedRotation", _CalculatedRotation, value)
+        End Set
+    End Property
+    Property ManualRotation As Double
+        Get
+            Return _ManualRotation
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ManualRotation", _ManualRotation, value)
+        End Set
+    End Property
+
+    'ReadOnly
+    <VisibleInListView(False)> _
+    <VisibleInLookupListView(False)> _
+    <Association("ProductsGantRows - ProductsGantRowsBar", GetType(ProductsGantRowsBar))> _
+    ReadOnly Property ProductsGantRowsBar As XPCollection(Of ProductsGantRowsBar)
+        Get
+            Return GetCollection(Of ProductsGantRowsBar)("ProductsGantRowsBar")
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/ProductsGantRowsBar.vb

@@ -0,0 +1,77 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Public Enum eBarType
+    eAccounted = 0
+    eOrdered = 1
+    eReported = 2
+    eOrderArrive = 3
+End Enum
+<DefaultClassOptions()> _
+<CreatableItem(False)> _
+<NavigationItem(False)> _
+Public Class ProductsGantRowsBar
+    Inherits BaseObject
+    Private _ProductsGantRows As ProductsGantRows
+    Private _FromDate As Date
+    Private _ToDate As Date
+    Private _BarType As eBarType
+    Private _Caption As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("ProductsGantRows - ProductsGantRowsBar", GetType(ProductsGantRows))> _
+    Property ProductsGantRows As ProductsGantRows
+        Get
+            Return _ProductsGantRows
+        End Get
+        Set(value As ProductsGantRows)
+            SetPropertyValue("ProductsGantRows", _ProductsGantRows, value)
+        End Set
+    End Property
+    Property FromDate As Date
+        Get
+            Return _FromDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("FromDate", _FromDate, value)
+        End Set
+    End Property
+    Property ToDate As Date
+        Get
+            Return _ToDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ToDate", _ToDate, value)
+        End Set
+    End Property
+    Property BarType As eBarType
+        Get
+            Return _BarType
+        End Get
+        Set(value As eBarType)
+            SetPropertyValue("BarType", _BarType, value)
+        End Set
+    End Property
+    Property Caption As String
+        Get
+            Return _Caption
+        End Get
+        Set(value As String)
+            SetPropertyValue("Caption", _Caption, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant_VC.Designer.vb

@@ -0,0 +1,69 @@
+Partial Class ProductsGant_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.aProductsGant_GerenrateProductsGantRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aProductsGant_UpdateProductsGantRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aProductsGant_GerenrateProductsGantRows
+        '
+        Me.aProductsGant_GerenrateProductsGantRows.Caption = "aProductsGant_GerenrateProductsGantRows"
+        Me.aProductsGant_GerenrateProductsGantRows.Category = "ObjectsCreation"
+        Me.aProductsGant_GerenrateProductsGantRows.ConfirmationMessage = "Biztos benne, hogy eldobja a Gant diagram jelenlegi tartalmát és újra felépíti?"
+        Me.aProductsGant_GerenrateProductsGantRows.Id = "aProductsGant_GerenrateProductsGantRows"
+        Me.aProductsGant_GerenrateProductsGantRows.ImageName = Nothing
+        Me.aProductsGant_GerenrateProductsGantRows.Shortcut = Nothing
+        Me.aProductsGant_GerenrateProductsGantRows.Tag = Nothing
+        Me.aProductsGant_GerenrateProductsGantRows.TargetObjectsCriteria = Nothing
+        Me.aProductsGant_GerenrateProductsGantRows.TargetObjectType = GetType(SISBusiness.[Module].ProductsGant)
+        Me.aProductsGant_GerenrateProductsGantRows.TargetViewId = Nothing
+        Me.aProductsGant_GerenrateProductsGantRows.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aProductsGant_GerenrateProductsGantRows.ToolTip = Nothing
+        Me.aProductsGant_GerenrateProductsGantRows.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aProductsGant_UpdateProductsGantRows
+        '
+        Me.aProductsGant_UpdateProductsGantRows.Caption = "aProductsGant_UpdateProductsGantRows"
+        Me.aProductsGant_UpdateProductsGantRows.Category = "ObjectsCreation"
+        Me.aProductsGant_UpdateProductsGantRows.ConfirmationMessage = Nothing
+        Me.aProductsGant_UpdateProductsGantRows.Id = "aProductsGant_UpdateProductsGantRows"
+        Me.aProductsGant_UpdateProductsGantRows.ImageName = Nothing
+        Me.aProductsGant_UpdateProductsGantRows.Shortcut = Nothing
+        Me.aProductsGant_UpdateProductsGantRows.Tag = Nothing
+        Me.aProductsGant_UpdateProductsGantRows.TargetObjectsCriteria = Nothing
+        Me.aProductsGant_UpdateProductsGantRows.TargetObjectType = GetType(SISBusiness.[Module].ProductsGant)
+        Me.aProductsGant_UpdateProductsGantRows.TargetViewId = Nothing
+        Me.aProductsGant_UpdateProductsGantRows.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aProductsGant_UpdateProductsGantRows.ToolTip = Nothing
+        Me.aProductsGant_UpdateProductsGantRows.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+
+    End Sub
+    Friend WithEvents aProductsGant_GerenrateProductsGantRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aProductsGant_UpdateProductsGantRows As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant_VC.resx

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

SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant_VC.vb

@@ -0,0 +1,335 @@
+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 System.Linq
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.ExpressApp.Utils
+
+Public Class ProductsGant_VC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event DoWork()
+    Public Event FinalWork
+
+#Region "Overrides"
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        If View.Id = "ProductsGant_ListView" Then
+            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "ProductsGant_ListView" Then
+            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+        End If
+    End Sub
+#End Region
+
+    Private Sub aProductsGant_GerenrateProductsGantRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsGant_GerenrateProductsGantRows.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
+        Dim _ProductsGant As ProductsGant = TryCast(View.SelectedObjects(0), ProductsGant)
+
+        Dim _ProductsGantRows_DELCollection As New XPCollection(Of ProductsGantRows)(_uow, CriteriaOperator.Parse("ProductsGant.Oid=?", _ProductsGant.Oid))
+        If _ProductsGantRows_DELCollection.Count > 0 Then
+
+            Dim _ProductsGantRowsBar_DELCollection As New XPCollection(Of ProductsGantRowsBar)(_uow, CriteriaOperator.Parse("ProductsGantRows.ProductsGant.Oid=?", _ProductsGant.Oid))
+            _uow.Delete(_ProductsGantRows_DELCollection)
+            _uow.Delete(_ProductsGantRowsBar_DELCollection)
+
+            _uow.CommitChanges()
+        End If
+
+
+
+        Dim InvoiceRowsXPQ As New XPQuery(Of InvoiceRows)(_ocur.Session)
+        Dim IRXPQ = From _InvoiceRowsXPQ In InvoiceRowsXPQ
+                    Where _InvoiceRowsXPQ.OrderInRows IsNot Nothing And
+                            _InvoiceRowsXPQ.OrderInRows.Products IsNot Nothing And
+                            _InvoiceRowsXPQ.InvoiceHeader.IsStorno = False And
+                            String.IsNullOrEmpty(_InvoiceRowsXPQ.InvoiceHeader.DocumentNumber) = False And
+                            _InvoiceRowsXPQ.InvoiceHeader IsNot Nothing And
+                            _InvoiceRowsXPQ.InvoiceHeader.IsEditable = False And
+                            _InvoiceRowsXPQ.InvoiceHeader.CustomersFrom.Oid = _ProductsGant.CustomersFrom.Oid
+                    Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.InvoiceHeader.Customers, _
+                        _InvoiceRowsXPQ.OrderInRows.Products Into g = Group _
+                    Select New With {Key .Customers = Customers, _
+                                     Key .Products = Products}
+
+        '                            _InvoiceRowsXPQ.InvoiceHeader.DateExecution.Date > #7/1/2013#
+
+        Try
+            RaiseEvent InitWork(1, 1, IRXPQ.Count)
+            For Each item In IRXPQ
+                RaiseEvent DoWork()
+                Dim _ProductsGantRows As New ProductsGantRows(_ocur.Session)
+                With _ProductsGantRows
+                    .ProductsGant = _ProductsGant
+                    .Customers = item.Customers
+                    .Products = item.Products
+                    .CalculatedRotation = 0
+                    .ManualRotation = 0
+                End With
+
+                'Számlázott mennyiségekhez ProductsGantRowsBar
+                Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_ocur.Session, CriteriaOperator.Parse("InvoiceHeader.Customers=? AND OrderInRows.Products=? AND InvoiceHeader.IsEditable=False AND " + _
+                                                                                    "InvoiceHeader.IsStorno=False AND (IsNull(InvoiceHeader.DocumentNumber)=False OR InvoiceHeader.DocumentNumber<>'')", item.Customers, item.Products))
+
+                If _InvoiceRows_Collection.Count > 0 Then
+                    _InvoiceRows_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending))
+                    For Each _InvoiceRows As InvoiceRows In _InvoiceRows_Collection
+
+                        Dim _ProductsGantRowsBar_OrderArrive As New ProductsGantRowsBar(_ocur.Session)
+                        With _ProductsGantRowsBar_OrderArrive
+                            .ProductsGantRows = _ProductsGantRows
+                            .FromDate = New Date(_InvoiceRows.InvoiceHeader.DateExecution.Year, _InvoiceRows.InvoiceHeader.DateExecution.Month, _InvoiceRows.InvoiceHeader.DateExecution.Day, 0, 0, 0)
+                            .ToDate = New Date(_InvoiceRows.InvoiceHeader.DateExecution.Year, _InvoiceRows.InvoiceHeader.DateExecution.Month, _InvoiceRows.InvoiceHeader.DateExecution.Day, 23, 59, 59)
+                            .BarType = eBarType.eAccounted
+                            .Caption = _InvoiceRows.QTT
+                        End With
+                    Next
+                End If
+
+
+                'Adott pillanatban leadott rendelés érkezése - dinamikos cucc, frissítésnél ezeket update!
+                Dim _CustomersOrderPriority_Collection As New XPCollection(Of CustomersOrderPriority)(_ocur.Session, CriteriaOperator.Parse("Products=?", item.Products))
+
+                If _CustomersOrderPriority_Collection.Count > 0 Then
+                    _CustomersOrderPriority_Collection.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
+
+                    Dim _ProductsGantRowsBar_OrderArrive As New ProductsGantRowsBar(_ocur.Session)
+                    With _ProductsGantRowsBar_OrderArrive
+                        .ProductsGantRows = _ProductsGantRows
+                        .FromDate = GetSQLTime(_ocur.Session)
+                        If _CustomersOrderPriority_Collection(0).DeadlineWeek = 0 Then
+                            .ToDate = .FromDate.AddDays(7)
+                        Else
+                            .ToDate = .FromDate.AddDays(_CustomersOrderPriority_Collection(0).DeadlineWeek * 7)
+                        End If
+                        .BarType = eBarType.eOrderArrive
+                    End With
+                End If
+
+                'Jelentett készlet
+                Dim _ProductsGantCustomersReport_Collection As New XPCollection(Of ProductsGantCustomersReport)(_ocur.Session, CriteriaOperator.Parse("Customers=? AND Products=?", item.Customers, item.Products))
+
+                If _ProductsGantCustomersReport_Collection.Count > 0 Then
+                    For Each _ProductsGantCustomersReport As ProductsGantCustomersReport In _ProductsGantCustomersReport_Collection
+                        Dim _ProductsGantRowsBar_Reported As New ProductsGantRowsBar(_ocur.Session)
+                        With _ProductsGantRowsBar_Reported
+                            .ProductsGantRows = _ProductsGantRows
+                            .FromDate = _ProductsGantCustomersReport.DateExecution
+                            If .ProductsGantRows.Products.CustomersOrderPriority.Count > 0 Then
+                                .ProductsGantRows.Products.CustomersOrderPriority.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
+                                .ToDate = .FromDate.AddDays(.ProductsGantRows.Products.CustomersOrderPriority(0).DeadlineWeek * 7)
+                            Else
+                                .ToDate = .FromDate.AddDays(_ProductsGantCustomersReport.QTT)
+                            End If
+                            .Caption = _ProductsGantCustomersReport.QTT.ToString
+                            .BarType = eBarType.eReported
+                        End With
+                    Next
+                End If
+
+
+                'Rendelések
+                Dim _OrderInRowsCollection As New XPCollection(Of OrderInRows)(_ocur.Session, CriteriaOperator.Parse("Products=? AND OrderInHeader.Customers=?", _ProductsGantRows.Products, _ProductsGantRows.Customers))
+
+                If _OrderInRowsCollection.Count > 0 Then
+                    For Each _OrderInRows As OrderInRows In _OrderInRowsCollection
+                        Dim _ProductsGantRowsBar As New ProductsGantRowsBar(_ocur.Session)
+                        With _ProductsGantRowsBar
+                            .ProductsGantRows = _ProductsGantRows
+                            .FromDate = New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 0, 0, 0)
+                            .ToDate = New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 23, 59, 59)
+                            .BarType = eBarType.eOrdered
+                            .Caption = String.Format("{0}", _OrderInRows.QTT)
+                        End With
+                    Next
+                End If
+            Next
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            RaiseEvent FinalWork
+        End Try
+    End Sub
+
+    Private Sub aProductsGant_UpdateProductsGantRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsGant_UpdateProductsGantRows.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
+        Dim _ProductsGant As ProductsGant = TryCast(View.SelectedObjects(0), ProductsGant)
+
+        Dim InvoiceRowsXPQ As New XPQuery(Of InvoiceRows)(_ocur.Session)
+        Dim IRXPQ = From _InvoiceRowsXPQ In InvoiceRowsXPQ
+                    Where _InvoiceRowsXPQ.OrderInRows IsNot Nothing And
+                            _InvoiceRowsXPQ.OrderInRows.Products IsNot Nothing And
+                            _InvoiceRowsXPQ.InvoiceHeader.IsStorno = False And
+                            String.IsNullOrEmpty(_InvoiceRowsXPQ.InvoiceHeader.DocumentNumber) = False And
+                            _InvoiceRowsXPQ.InvoiceHeader IsNot Nothing And
+                            _InvoiceRowsXPQ.InvoiceHeader.IsEditable = False And
+                            _InvoiceRowsXPQ.InvoiceHeader.CustomersFrom.Oid = _ProductsGant.CustomersFrom.Oid
+                    Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.InvoiceHeader.Customers, _
+                        _InvoiceRowsXPQ.OrderInRows.Products Into g = Group _
+                    Select New With {Key .Customers = Customers, _
+                                     Key .Products = Products}
+
+        '                            _InvoiceRowsXPQ.InvoiceHeader.DateExecution.Date > #7/1/2013#
+        Try
+            RaiseEvent InitWork(1, 1, IRXPQ.Count)
+            For Each item In IRXPQ
+                RaiseEvent DoWork()
+                Dim _ProductsGantRows As ProductsGantRows = _ocur.FindObject(Of ProductsGantRows)(CriteriaOperator.Parse("ProductsGant=? AND Customers=? AND Products=?", _ProductsGant, item.Customers, item.Products))
+
+                If _ProductsGantRows Is Nothing Then
+                    _ProductsGantRows = New ProductsGantRows(_ocur.Session)
+                    With _ProductsGantRows
+                        .ProductsGant = _ProductsGant
+                        .Customers = item.Customers
+                        .Products = item.Products
+                        .CalculatedRotation = 0
+                        .ManualRotation = 0
+                    End With
+                End If
+
+                'Számlázott mennyiségekhez ProductsGantRowsBar
+                Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_ocur.Session, CriteriaOperator.Parse("InvoiceHeader.Customers=? AND OrderInRows.Products=? AND InvoiceHeader.IsEditable=False AND " + _
+                                                                                    "InvoiceHeader.IsStorno=False AND (IsNull(InvoiceHeader.DocumentNumber)=False OR InvoiceHeader.DocumentNumber<>'')", item.Customers, item.Products))
+                If _InvoiceRows_Collection.Count > 0 Then
+                    _InvoiceRows_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending))
+                    For Each _InvoiceRows As InvoiceRows In _InvoiceRows_Collection
+                        Dim _FromDate As New Date(_InvoiceRows.InvoiceHeader.DateExecution.Year, _InvoiceRows.InvoiceHeader.DateExecution.Month, _InvoiceRows.InvoiceHeader.DateExecution.Day, 0, 0, 0)
+                        Dim _ToDate = New Date(_InvoiceRows.InvoiceHeader.DateExecution.Year, _InvoiceRows.InvoiceHeader.DateExecution.Month, _InvoiceRows.InvoiceHeader.DateExecution.Day, 23, 59, 59)
+
+                        Dim _ProductsGantRowsBar_InvoiceRows As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND FromDate=? AND ToDate=? AND BarType=0", _
+                                                                                                                                                                _ProductsGantRows, _FromDate, _ToDate))
+                        If _ProductsGantRowsBar_InvoiceRows Is Nothing Then
+                            _ProductsGantRowsBar_InvoiceRows = New ProductsGantRowsBar(_ocur.Session)
+                            With _ProductsGantRowsBar_InvoiceRows
+                                .ProductsGantRows = _ProductsGantRows
+                                .FromDate = _FromDate
+                                .ToDate = _ToDate
+                                .BarType = eBarType.eAccounted
+                                .Caption = _InvoiceRows.QTT
+                            End With
+                        End If
+
+                    Next
+                End If
+
+
+                'Adott pillanatban leadott rendelés érkezése - dinamikos cucc, frissítésnél ezeket update!
+                Dim _CustomersOrderPriority_Collection As New XPCollection(Of CustomersOrderPriority)(_ocur.Session, CriteriaOperator.Parse("Products=?", item.Products))
+
+                If _CustomersOrderPriority_Collection.Count > 0 Then
+                    _CustomersOrderPriority_Collection.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
+
+                    Dim _ProductsGantRowsBar_OrderArrive As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND BarType=3", _ProductsGantRows))
+                    If _ProductsGantRowsBar_OrderArrive Is Nothing Then
+                        _ProductsGantRowsBar_OrderArrive = New ProductsGantRowsBar(_ocur.Session)
+                        With _ProductsGantRowsBar_OrderArrive
+                            .ProductsGantRows = _ProductsGantRows
+                            .FromDate = GetSQLTime(_ocur.Session).Date
+                            If _CustomersOrderPriority_Collection(0).DeadlineWeek = 0 Then
+                                .ToDate = .FromDate.AddDays(7)
+                            Else
+                                .ToDate = .FromDate.AddDays(_CustomersOrderPriority_Collection(0).DeadlineWeek * 7)
+                            End If
+                            .BarType = eBarType.eOrderArrive
+                        End With
+                    End If
+
+                End If
+
+                'Jelentett készlet
+                Dim _ProductsGantCustomersReport_Collection As New XPCollection(Of ProductsGantCustomersReport)(_ocur.Session, CriteriaOperator.Parse("Customers=? AND Products=?", item.Customers, item.Products))
+
+                If _ProductsGantCustomersReport_Collection.Count > 0 Then
+                    For Each _ProductsGantCustomersReport As ProductsGantCustomersReport In _ProductsGantCustomersReport_Collection
+
+                        Dim _FromDate As Date = _ProductsGantCustomersReport.DateExecution
+                        _ProductsGantRows.Products.CustomersOrderPriority.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
+
+                        Dim _ToDate As Date
+                        If _ProductsGantRows.Products.CustomersOrderPriority.Count > 0 Then
+                            _ToDate = _FromDate.AddDays(_ProductsGantRows.Products.CustomersOrderPriority(0).DeadlineWeek * 7)
+                        Else
+                            _ToDate = _FromDate.Date
+                        End If
+
+
+                        Dim _ProductsGantRowsBar_Reported As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND FromDate=? AND ToDate=? AND BarType=2", _
+                                                                                                                                                   _ProductsGantRows, _FromDate, _ToDate))
+                        If _ProductsGantRowsBar_Reported Is Nothing Then
+                            _ProductsGantRowsBar_Reported = New ProductsGantRowsBar(_ocur.Session)
+                            With _ProductsGantRowsBar_Reported
+                                .ProductsGantRows = _ProductsGantRows
+                                .FromDate = _FromDate
+                                .ToDate = _ToDate
+                                .Caption = _ProductsGantCustomersReport.QTT.ToString
+                                .BarType = eBarType.eReported
+                            End With
+                        End If
+
+                    Next
+                End If
+
+
+                'Rendelések
+                Dim _OrderInRowsCollection As New XPCollection(Of OrderInRows)(_ocur.Session, CriteriaOperator.Parse("Products=? AND OrderInHeader.Customers=?", _ProductsGantRows.Products, _ProductsGantRows.Customers))
+
+                If _OrderInRowsCollection.Count > 0 Then
+                    For Each _OrderInRows As OrderInRows In _OrderInRowsCollection
+                        Dim _FromDate As New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 0, 0, 0)
+                        Dim _ToDate As New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 23, 59, 59)
+
+                        Dim _ProductsGantRowsBar As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND FromDate=? AND ToDate=? AND BarType=1", _
+                                                                                                                                          _ProductsGantRows, _FromDate, _ToDate))
+
+                        If _ProductsGantRowsBar Is Nothing Then
+                            _ProductsGantRowsBar = New ProductsGantRowsBar(_ocur.Session)
+                            With _ProductsGantRowsBar
+                                .ProductsGantRows = _ProductsGantRows
+                                .FromDate = New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 0, 0, 0)
+                                .ToDate = New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 23, 59, 59)
+                                .BarType = eBarType.eOrdered
+                                .Caption = String.Format("{0}", _OrderInRows.QTT)
+                            End With
+                        End If
+
+                    Next
+                End If
+            Next
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            RaiseEvent FinalWork
+        End Try
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups.vb

@@ -0,0 +1,106 @@
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem("BusinessStocks")> _
+Public Class ProductsGroups
+    Inherits HCategory
+    Private _ShortName As String
+    Private _Description As String
+    Private _ReportData As ReportData
+    Private _MasterBusinessDirectory As BusinessDirectory
+    Private _DocumentPath As String 'Windows Explorer path
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <RuleRequiredField("ProductsGroups - ShortName", DefaultContexts.Save)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description() As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property ReportData As ReportData
+        Get
+            Return _ReportData
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData", _ReportData, value)
+        End Set
+    End Property
+    Property MasterBusinessDirectory As BusinessDirectory
+        Get
+            Return _MasterBusinessDirectory
+        End Get
+        Set(value As BusinessDirectory)
+            SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value)
+        End Set
+    End Property
+    <VisibleInListView(False), Aggregated(), Association("ProductsGroups-ProductsGroupsDocumentations", GetType(ProductsGroupsDocumentations))> _
+    Public ReadOnly Property ProductsGroupsDocumentations() As XPCollection(Of ProductsGroupsDocumentations)
+        Get
+            Return GetCollection(Of ProductsGroupsDocumentations)("ProductsGroupsDocumentations")
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    Public ReadOnly Property ProductsGroups_BusinessDirectory As XPCollection(Of BusinessDirectory)
+        Get
+            Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse("1=2"))
+
+            If MasterBusinessDirectory IsNot Nothing Then
+                If MasterBusinessDirectory.Children.Count > 0 Then
+                    _BusinessDirectory_Collection.Add(MasterBusinessDirectory)
+                    RecursiveBusinessDirectory(_BusinessDirectory_Collection, MasterBusinessDirectory.NestedBusinessDirectory)
+                Else
+                    _BusinessDirectory_Collection.Add(MasterBusinessDirectory)
+                End If
+            End If
+            Return _BusinessDirectory_Collection
+        End Get
+    End Property
+    <Size(900)> _
+    Property DocumentPath As String
+        Get
+            Return _DocumentPath
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentPath", _DocumentPath, value)
+        End Set
+    End Property
+
+#Region "Other subs"
+    Private Sub RecursiveBusinessDirectory(_BusinessDirectoryList As XPCollection(Of BusinessDirectory), _NestedBusinessDirectory As XPCollection(Of BusinessDirectory))
+        For Each _BusinessDirectory As BusinessDirectory In _NestedBusinessDirectory
+            If _BusinessDirectory.Children.Count > 0 Then
+                _BusinessDirectoryList.Add(_BusinessDirectory)
+                RecursiveBusinessDirectory(_BusinessDirectoryList, _BusinessDirectory.NestedBusinessDirectory)
+            Else
+                _BusinessDirectoryList.Add(_BusinessDirectory)
+            End If
+        Next
+    End Sub
+#End Region
+
+End Class
+
+
+
+
+
+
+

SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroupsDocumentations.vb

@@ -0,0 +1,152 @@
+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 System.IO
+Imports DevExpress.ExpressApp.Utils
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ProductsGroupsDocumentations
+    Inherits FileAttachmentBase
+    Private _ProductsGroups As ProductsGroups
+    Private _Status As eProductsDocumentationStatus
+    Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező)
+    Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező)
+    Private _ShortName As String
+    Private _Description As String
+    Private _FileCreated As Date
+    Private _FileModified As Date
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Status = eProductsDocumentationStatus.ePublic
+    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
+    <Persistent(), Association("ProductsGroups-ProductsGroupsDocumentations")> _
+    Property ProductsGroups() As ProductsGroups
+        Get
+            Return _ProductsGroups
+        End Get
+        Set(ByVal value As ProductsGroups)
+            SetPropertyValue("ProductsGroups", _ProductsGroups, value)
+        End Set
+    End Property
+    Property Status As eProductsDocumentationStatus
+        Get
+            Return _Status
+        End Get
+        Set(value As eProductsDocumentationStatus)
+            SetPropertyValue("Status", _Status, value)
+        End Set
+    End Property
+    Property RowGroup1 As String
+        Get
+            Return _RowGroup1
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup1", _RowGroup1, value)
+        End Set
+    End Property
+    Property RowGroup2 As String
+        Get
+            Return _RowGroup2
+        End Get
+        Set(value As String)
+            SetPropertyValue("RowGroup2", _RowGroup2, 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 Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property FileCreated As Date
+        Get
+            Return _FileCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("FileCreated", _FileCreated, value)
+        End Set
+    End Property
+    Property FileModified As Date
+        Get
+            Return _FileModified
+        End Get
+        Set(value As Date)
+            SetPropertyValue("FileModified", _FileModified, 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
+
+    '--------ReadOnly---------
+    <VisibleInDetailView(False)> _
+    ReadOnly Property ImageType As Image
+        Get
+            Select Case LCase(Path.GetExtension(File.FileName))
+                Case ".xls", ".xlsx"
+                    Return ImageLoader.Instance.GetImageInfo("XLS").Image
+                Case ".doc", ".docx"
+                    Return ImageLoader.Instance.GetImageInfo("DOC").Image
+                Case ".pdf"
+                    Return ImageLoader.Instance.GetImageInfo("PDF").Image
+                Case ".txt"
+                    Return ImageLoader.Instance.GetImageInfo("NoImage").Image
+                Case Else
+                    Return ImageLoader.Instance.GetImageInfo("NoImage").Image
+                    Return Nothing
+            End Select
+        End Get
+    End Property
+End Class
+
+
+
+
+
+
+

SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroupsWEB.vb

@@ -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)> _
+Public Class ProductsGroupsWEB
+    Inherits BaseObject
+    Private _WEBMainGroupName As String 'Fõcsoport a WEB megjelenéshez
+    Private _WebGroupName As String 'Csoport a WEB megjelenéshez
+    Private _WEBDescription As String 'WEB leírás
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+    <Size(255)> _
+    Property WEBMainGroupName As String
+        Get
+            Return _WEBMainGroupName
+        End Get
+        Set(value As String)
+            SetPropertyValue("WEBMainGroupName", _WEBMainGroupName, value)
+        End Set
+    End Property
+    Property WebGroupName As String
+        Get
+            Return _WebGroupName
+        End Get
+        Set(value As String)
+            SetPropertyValue("WebGroupName", _WebGroupName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property WEBDescription As String
+        Get
+            Return _WEBDescription
+        End Get
+        Set(value As String)
+            SetPropertyValue("WEBDescription", _WEBDescription, value)
+        End Set
+    End Property
+
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups_VC.Designer.vb

@@ -0,0 +1,50 @@
+Partial Class ProductsGroups_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.aProductsGroups_CreateBusinessDirectory = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aProductsGroups_CreateBusinessDirectory
+        '
+        Me.aProductsGroups_CreateBusinessDirectory.Caption = "aProductsGroups_CreateBusinessDirectory"
+        Me.aProductsGroups_CreateBusinessDirectory.Category = "ObjectsCreation"
+        Me.aProductsGroups_CreateBusinessDirectory.ConfirmationMessage = Nothing
+        Me.aProductsGroups_CreateBusinessDirectory.Id = "aProductsGroups_CreateBusinessDirectory"
+        Me.aProductsGroups_CreateBusinessDirectory.ImageName = Nothing
+        Me.aProductsGroups_CreateBusinessDirectory.Shortcut = Nothing
+        Me.aProductsGroups_CreateBusinessDirectory.Tag = Nothing
+        Me.aProductsGroups_CreateBusinessDirectory.TargetObjectsCriteria = Nothing
+        Me.aProductsGroups_CreateBusinessDirectory.TargetObjectType = GetType(SISBusiness.[Module].ProductsGroups)
+        Me.aProductsGroups_CreateBusinessDirectory.TargetViewId = ""
+        Me.aProductsGroups_CreateBusinessDirectory.ToolTip = Nothing
+        Me.aProductsGroups_CreateBusinessDirectory.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aProductsGroups_CreateBusinessDirectory As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups_VC.resx

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

SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups_VC.vb

@@ -0,0 +1,47 @@
+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
+
+Public Class ProductsGroups_VC
+	Inherits DevExpress.ExpressApp.ViewController
+
+	Public Sub New()
+		MyBase.New()
+        InitializeComponent()
+		RegisterActions(components) 
+
+	End Sub
+
+    Private Sub aProductsGroups_CreateBusinessDirectory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsGroups_CreateBusinessDirectory.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ProductsGroups As ProductsGroups = TryCast(View.SelectedObjects, ProductsGroups)
+
+        If _ProductsGroups.MasterBusinessDirectory Is Nothing Then
+            Dim _ProductsBaseBusinessDirectory As BusinessDirectory = _ocur.FindObject(Of BusinessDirectory)(CriteriaOperator.Parse("ShortName='Termékek' AND IsNull(BusinessDirectory_Parent)=True"))
+
+            If _ProductsBaseBusinessDirectory Is Nothing Then
+                _ProductsBaseBusinessDirectory = New BusinessDirectory(_ocur.Session)
+                With _ProductsBaseBusinessDirectory
+                    .ShortName = "Termékek"
+                    .BusinessDirectory_Parent = Nothing
+                End With
+            End If
+
+            Dim _ProductsGroupsBusinessDirectory As New BusinessDirectory(_ocur.Session)
+            With _ProductsGroupsBusinessDirectory
+                .ShortName = _ProductsGroups.ShortName
+                .BusinessDirectory_Parent = _ProductsBaseBusinessDirectory
+            End With
+            _ProductsGroups.MasterBusinessDirectory = _ProductsGroupsBusinessDirectory
+
+            _ocur.CommitChanges()
+        End If
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/ProductsVC.Designer.vb

@@ -0,0 +1,189 @@
+Partial Class ProductsVC
+
+	<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.aModifyProductsParameters = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aPrintSelectedProductsBarcode = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewStorageMoveInfo_Products = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aProductsBarcodeGenerator = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aProductsDocumentations_ChangeGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aProductsDocumentations_Remove = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aProducts_Open = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aProducts_CreateBusinessDirectory = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aProducts_GenerateNotUsedList = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aModifyProductsParameters
+        '
+        Me.aModifyProductsParameters.AcceptButtonCaption = Nothing
+        Me.aModifyProductsParameters.CancelButtonCaption = Nothing
+        Me.aModifyProductsParameters.Caption = "Modify Products Parameters"
+        Me.aModifyProductsParameters.ConfirmationMessage = Nothing
+        Me.aModifyProductsParameters.Id = "aModifyProductsParameters"
+        Me.aModifyProductsParameters.ImageName = Nothing
+        Me.aModifyProductsParameters.Shortcut = Nothing
+        Me.aModifyProductsParameters.Tag = Nothing
+        Me.aModifyProductsParameters.TargetObjectsCriteria = Nothing
+        Me.aModifyProductsParameters.TargetViewId = "Products_ListView"
+        Me.aModifyProductsParameters.ToolTip = Nothing
+        Me.aModifyProductsParameters.TypeOfView = Nothing
+        '
+        'aPrintSelectedProductsBarcode
+        '
+        Me.aPrintSelectedProductsBarcode.Caption = "aPrint Selected Products Barcode"
+        Me.aPrintSelectedProductsBarcode.Category = "View"
+        Me.aPrintSelectedProductsBarcode.ConfirmationMessage = "Do you want to execute?"
+        Me.aPrintSelectedProductsBarcode.Id = "aPrintSelectedProductsBarcode"
+        Me.aPrintSelectedProductsBarcode.ImageName = Nothing
+        Me.aPrintSelectedProductsBarcode.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aPrintSelectedProductsBarcode.Shortcut = Nothing
+        Me.aPrintSelectedProductsBarcode.Tag = Nothing
+        Me.aPrintSelectedProductsBarcode.TargetObjectsCriteria = Nothing
+        Me.aPrintSelectedProductsBarcode.TargetObjectType = GetType(SISBusiness.[Module].Products)
+        Me.aPrintSelectedProductsBarcode.TargetViewId = "Products_ListView"
+        Me.aPrintSelectedProductsBarcode.ToolTip = Nothing
+        Me.aPrintSelectedProductsBarcode.TypeOfView = Nothing
+        '
+        'aViewStorageMoveInfo_Products
+        '
+        Me.aViewStorageMoveInfo_Products.Caption = "aViewStorageMoveInfo_Products"
+        Me.aViewStorageMoveInfo_Products.ConfirmationMessage = Nothing
+        Me.aViewStorageMoveInfo_Products.Id = "aViewStorageMoveInfo_Products"
+        Me.aViewStorageMoveInfo_Products.ImageName = Nothing
+        Me.aViewStorageMoveInfo_Products.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewStorageMoveInfo_Products.Shortcut = Nothing
+        Me.aViewStorageMoveInfo_Products.Tag = Nothing
+        Me.aViewStorageMoveInfo_Products.TargetObjectsCriteria = Nothing
+        Me.aViewStorageMoveInfo_Products.TargetObjectType = GetType(SISBusiness.[Module].Products)
+        Me.aViewStorageMoveInfo_Products.TargetViewId = Nothing
+        Me.aViewStorageMoveInfo_Products.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aViewStorageMoveInfo_Products.ToolTip = Nothing
+        Me.aViewStorageMoveInfo_Products.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aProductsBarcodeGenerator
+        '
+        Me.aProductsBarcodeGenerator.Caption = "aProductsBarcodeGenerator"
+        Me.aProductsBarcodeGenerator.Category = ""
+        Me.aProductsBarcodeGenerator.ConfirmationMessage = "Do you want to execute?"
+        Me.aProductsBarcodeGenerator.Id = "aProductsBarcodeGenerator"
+        Me.aProductsBarcodeGenerator.ImageName = Nothing
+        Me.aProductsBarcodeGenerator.Shortcut = Nothing
+        Me.aProductsBarcodeGenerator.Tag = Nothing
+        Me.aProductsBarcodeGenerator.TargetObjectsCriteria = Nothing
+        Me.aProductsBarcodeGenerator.TargetObjectType = GetType(SISBusiness.[Module].Products)
+        Me.aProductsBarcodeGenerator.TargetViewId = "Products_ListView"
+        Me.aProductsBarcodeGenerator.ToolTip = Nothing
+        Me.aProductsBarcodeGenerator.TypeOfView = Nothing
+        '
+        'aProductsDocumentations_ChangeGroup
+        '
+        Me.aProductsDocumentations_ChangeGroup.AcceptButtonCaption = Nothing
+        Me.aProductsDocumentations_ChangeGroup.CancelButtonCaption = Nothing
+        Me.aProductsDocumentations_ChangeGroup.Caption = "aProductsDocumentations_ChangeGroup"
+        Me.aProductsDocumentations_ChangeGroup.ConfirmationMessage = Nothing
+        Me.aProductsDocumentations_ChangeGroup.Id = "aProductsDocumentations_ChangeGroup"
+        Me.aProductsDocumentations_ChangeGroup.ImageName = Nothing
+        Me.aProductsDocumentations_ChangeGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aProductsDocumentations_ChangeGroup.Shortcut = Nothing
+        Me.aProductsDocumentations_ChangeGroup.Tag = Nothing
+        Me.aProductsDocumentations_ChangeGroup.TargetObjectsCriteria = Nothing
+        Me.aProductsDocumentations_ChangeGroup.TargetObjectType = GetType(SISBusiness.[Module].ProductsDocumentations)
+        Me.aProductsDocumentations_ChangeGroup.TargetViewId = Nothing
+        Me.aProductsDocumentations_ChangeGroup.ToolTip = Nothing
+        Me.aProductsDocumentations_ChangeGroup.TypeOfView = Nothing
+        '
+        'aProductsDocumentations_Remove
+        '
+        Me.aProductsDocumentations_Remove.Caption = "aProductsDocumentations_Remove"
+        Me.aProductsDocumentations_Remove.Category = "Edit"
+        Me.aProductsDocumentations_Remove.ConfirmationMessage = "Biztosan törlöd a kijelölt fájlokat?"
+        Me.aProductsDocumentations_Remove.Id = "aProductsDocumentations_Remove"
+        Me.aProductsDocumentations_Remove.ImageName = "Action_Delete"
+        Me.aProductsDocumentations_Remove.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aProductsDocumentations_Remove.Shortcut = Nothing
+        Me.aProductsDocumentations_Remove.Tag = Nothing
+        Me.aProductsDocumentations_Remove.TargetObjectsCriteria = Nothing
+        Me.aProductsDocumentations_Remove.TargetObjectType = GetType(SISBusiness.[Module].ProductsDocumentations)
+        Me.aProductsDocumentations_Remove.TargetViewId = Nothing
+        Me.aProductsDocumentations_Remove.ToolTip = Nothing
+        Me.aProductsDocumentations_Remove.TypeOfView = Nothing
+        '
+        'aProducts_Open
+        '
+        Me.aProducts_Open.Caption = "aProducts_Open"
+        Me.aProducts_Open.ConfirmationMessage = Nothing
+        Me.aProducts_Open.Id = "aProducts_Open"
+        Me.aProducts_Open.ImageName = Nothing
+        Me.aProducts_Open.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aProducts_Open.Shortcut = Nothing
+        Me.aProducts_Open.Tag = Nothing
+        Me.aProducts_Open.TargetObjectsCriteria = Nothing
+        Me.aProducts_Open.TargetViewId = "Products_ListView_CRM_Outlook"
+        Me.aProducts_Open.ToolTip = Nothing
+        Me.aProducts_Open.TypeOfView = Nothing
+        '
+        'aProducts_CreateBusinessDirectory
+        '
+        Me.aProducts_CreateBusinessDirectory.Caption = "aProducts_CreateBusinessDirectory"
+        Me.aProducts_CreateBusinessDirectory.Category = "ObjectsCreation"
+        Me.aProducts_CreateBusinessDirectory.ConfirmationMessage = Nothing
+        Me.aProducts_CreateBusinessDirectory.Id = "aProducts_CreateBusinessDirectory"
+        Me.aProducts_CreateBusinessDirectory.ImageName = Nothing
+        Me.aProducts_CreateBusinessDirectory.Shortcut = Nothing
+        Me.aProducts_CreateBusinessDirectory.Tag = Nothing
+        Me.aProducts_CreateBusinessDirectory.TargetObjectsCriteria = Nothing
+        Me.aProducts_CreateBusinessDirectory.TargetObjectType = GetType(SISBusiness.[Module].Products)
+        Me.aProducts_CreateBusinessDirectory.TargetViewId = ""
+        Me.aProducts_CreateBusinessDirectory.ToolTip = Nothing
+        Me.aProducts_CreateBusinessDirectory.TypeOfView = Nothing
+        '
+        'aProducts_GenerateNotUsedList
+        '
+        Me.aProducts_GenerateNotUsedList.Caption = "aProducts_GenerateNotUsedList"
+        Me.aProducts_GenerateNotUsedList.Category = "ObjectsCreation"
+        Me.aProducts_GenerateNotUsedList.ConfirmationMessage = Nothing
+        Me.aProducts_GenerateNotUsedList.Id = "aProducts_GenerateNotUsedList"
+        Me.aProducts_GenerateNotUsedList.ImageName = Nothing
+        Me.aProducts_GenerateNotUsedList.Shortcut = Nothing
+        Me.aProducts_GenerateNotUsedList.Tag = Nothing
+        Me.aProducts_GenerateNotUsedList.TargetObjectsCriteria = Nothing
+        Me.aProducts_GenerateNotUsedList.TargetViewId = "Products_ListView_EverUsed"
+        Me.aProducts_GenerateNotUsedList.ToolTip = Nothing
+        Me.aProducts_GenerateNotUsedList.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aModifyProductsParameters As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aPrintSelectedProductsBarcode As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewStorageMoveInfo_Products As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aProductsBarcodeGenerator As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aProductsDocumentations_ChangeGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aProductsDocumentations_Remove As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aProducts_Open As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aProducts_CreateBusinessDirectory As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aProducts_GenerateNotUsedList As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/Products/ProductsVC.resx

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

@@ -0,0 +1,480 @@
+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.BaseImpl
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.Utils
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.CloneObject
+
+Public Class ProductsVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Dim _Selection As ArrayList
+    Dim _NoSelect As Boolean = False
+
+    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()
+        _Selection = New ArrayList
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+#Region "Overrides"
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        If View.Id = "Products_ListView" Then
+            AddHandler View.SelectionChanged, AddressOf SelectionChanged
+            AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Products_ListView_DeleteAction_Executing
+        End If
+        If View.Id = "Products_LookupListView" Then
+            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
+        End If
+        If View.Id = "Products_Products_BusinessDirectory_ListView" Then
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "Products_ListView_EverUsed" Then
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+        End If
+        If View.Id = "Products_ListView_Deleted" Then
+            If TryCast(View, ListView) IsNot Nothing Then
+                If TryCast(View, ListView).CollectionSource IsNot Nothing Then
+                    If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then
+                        If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection) IsNot Nothing Then
+                            If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection IsNot Nothing Then
+                                If TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection) IsNot Nothing Then
+                                    TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection).SelectDeleted = True
+                                End If
+                            End If
+                        End If
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "Products_ListView" Then
+            RemoveHandler View.SelectionChanged, AddressOf SelectionChanged
+        End If
+        If View.Id = "Products_LookupListView" Then
+            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
+        End If
+        If View.Id = "Products_Products_BusinessDirectory_ListView" Then
+            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+        End If
+    End Sub
+#End Region
+    Private Sub SelectionChanged(sender As Object, e As System.EventArgs)
+
+        If _NoSelect = False Then
+            _Selection.Clear()
+            For Each _Products As Products In View.SelectedObjects
+                _Selection.Add(_Products)
+            Next
+        End If
+    End Sub
+    Private Sub aModifyProductsParameters_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aModifyProductsParameters.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _ModifyProductsParameters As ModifyProductsParameters = _onew.CreateObject(Of ModifyProductsParameters)()
+
+        e.View = Application.CreateDetailView(_onew, _ModifyProductsParameters)
+    End Sub
+    Private Sub aModifyProductsParameters_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aModifyProductsParameters.Execute
+        Dim _ModifyProductsParameters As ModifyProductsParameters = TryCast(e.PopupWindow.View.SelectedObjects(0), ModifyProductsParameters)
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        RaiseEvent InitWork(0, 1, View.SelectedObjects.Count)
+        For Each _Products As Products In _Selection
+            RaiseEvent DoWork()
+
+            If _ModifyProductsParameters.IsParameter_01 Then
+                _Products.Parameter_01 = _ModifyProductsParameters.Parameter_01
+            End If
+
+            If _ModifyProductsParameters.IsParameter_02 Then
+                _Products.Parameter_02 = _ModifyProductsParameters.Parameter_02
+            End If
+
+            If _ModifyProductsParameters.IsParameter_03 Then
+                _Products.Parameter_03 = _ModifyProductsParameters.Parameter_03
+            End If
+
+            If _ModifyProductsParameters.IsParameter_04 Then
+                _Products.Parameter_04 = _ModifyProductsParameters.Parameter_04
+            End If
+
+            If _ModifyProductsParameters.IsParameter_05 Then
+                _Products.Parameter_05 = _ModifyProductsParameters.Parameter_05
+            End If
+
+            If _ModifyProductsParameters.IsParameter_06 Then
+                _Products.Parameter_06 = _ModifyProductsParameters.Parameter_06
+            End If
+
+            If _ModifyProductsParameters.IsParameter_07 Then
+                _Products.Parameter_07 = _ModifyProductsParameters.Parameter_07
+            End If
+
+            If _ModifyProductsParameters.IsParameter_08 Then
+                _Products.Parameter_08 = _ModifyProductsParameters.Parameter_08
+            End If
+
+            If _ModifyProductsParameters.IsParameter_09 Then
+                _Products.Parameter_09 = _ModifyProductsParameters.Parameter_09
+            End If
+
+            If _ModifyProductsParameters.IsParameter_10 Then
+                _Products.Parameter_10 = _ModifyProductsParameters.Parameter_10
+            End If
+
+            If _ModifyProductsParameters.IsUnits Then
+                _Products.Units = _ocur.GetObjectByKey(Of Units)(_ModifyProductsParameters.Units.Oid)
+            End If
+
+            If _ModifyProductsParameters.IsVAT Then
+                _Products.VAT = _ocur.GetObjectByKey(Of VAT)(_ModifyProductsParameters.VAT.Oid)
+            End If
+
+            If _ModifyProductsParameters.IsCurrencyName Then
+                _Products.CurrencyName = _ocur.GetObjectByKey(Of CurrencyName)(_ModifyProductsParameters.CurrencyName.Oid)
+            End If
+
+            If _ModifyProductsParameters.IsCustomsTariffs Then
+                _Products.CustomsTariff = _ocur.GetObjectByKey(Of CustomsTariffs)(_ModifyProductsParameters.CustomsTariffs.Oid)
+            End If
+
+            If _ModifyProductsParameters.IsCountryFrom Then
+                _Products.CountryFrom = _ocur.GetObjectByKey(Of Country)(_ModifyProductsParameters.CountryFrom.Oid)
+            End If
+            If _ModifyProductsParameters.IsProductType Then
+                _Products.ProductType = _ModifyProductsParameters.ProductType
+            End If
+
+            If _ModifyProductsParameters.ProductsGroups IsNot Nothing Then
+                Dim _ProductsGroups As ProductsGroups = _ocur.GetObjectByKey(Of ProductsGroups)(_ModifyProductsParameters.ProductsGroups.Oid)
+                If _ProductsGroups IsNot Nothing Then
+                    _Products.ProductGroups = _ProductsGroups
+                End If
+            End If
+
+            If _ModifyProductsParameters.IsCustomersOrder1 Then
+                Dim _RowIndex1Avilable As Boolean = False
+                For Each _CustomersOrderPriority In _Products.CustomersOrderPriority
+                    If _CustomersOrderPriority.RowIndex = 1 Then
+                        _RowIndex1Avilable = True
+                        _CustomersOrderPriority.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder1.Oid)
+                        Exit For
+                    End If
+                Next
+                If _RowIndex1Avilable = False Then
+                    Dim _CustomersOrderPriority_New As CustomersOrderPriority = _ocur.CreateObject(Of CustomersOrderPriority)()
+                    _CustomersOrderPriority_New.RowIndex = 1
+                    _CustomersOrderPriority_New.Products = _Products
+                    _CustomersOrderPriority_New.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder1.Oid)
+                    _CustomersOrderPriority_New.Save()
+                End If
+            End If
+
+            If _ModifyProductsParameters.IsCustomersOrder2 Then
+                Dim _RowIndex2Avilable As Boolean = False
+                For Each _CustomersOrderPriority In _Products.CustomersOrderPriority
+                    If _CustomersOrderPriority.RowIndex = 2 Then
+                        _RowIndex2Avilable = True
+                        _CustomersOrderPriority.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder2.Oid)
+                        Exit For
+                    End If
+                Next
+                If _RowIndex2Avilable = False Then
+                    Dim _CustomersOrderPriority_New As CustomersOrderPriority = _ocur.CreateObject(Of CustomersOrderPriority)()
+                    _CustomersOrderPriority_New.RowIndex = 2
+                    _CustomersOrderPriority_New.Products = _Products
+                    _CustomersOrderPriority_New.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder2.Oid)
+                    _CustomersOrderPriority_New.Save()
+                End If
+            End If
+
+            If _ModifyProductsParameters.IsCustomersOrder3 Then
+                Dim _RowIndex3Avilable As Boolean = False
+                For Each _CustomersOrderPriority In _Products.CustomersOrderPriority
+                    If _CustomersOrderPriority.RowIndex = 3 Then
+                        _RowIndex3Avilable = True
+                        _CustomersOrderPriority.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder3.Oid)
+                        Exit For
+                    End If
+                Next
+                If _RowIndex3Avilable = False Then
+                    Dim _CustomersOrderPriority_New As CustomersOrderPriority = _ocur.CreateObject(Of CustomersOrderPriority)()
+                    _CustomersOrderPriority_New.RowIndex = 3
+                    _CustomersOrderPriority_New.Products = _Products
+                    _CustomersOrderPriority_New.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder3.Oid)
+                    _CustomersOrderPriority_New.Save()
+                End If
+            End If
+
+            If _ModifyProductsParameters.IsListPriceHUF = True Then
+                _Products.ListPriceOutHUF = _Products.ListPriceOutHUF + (_Products.ListPriceOutHUF * (_ModifyProductsParameters.ListPricePercent / 100))
+            End If
+            If _ModifyProductsParameters.IsListPriceDEV = True Then
+                _Products.ListPriceOutDEV = _Products.ListPriceOutDEV + (_Products.ListPriceOutDEV * (_ModifyProductsParameters.ListPricePercent / 100))
+            End If
+
+            If _ModifyProductsParameters.IsListPriceRegenerate Then
+                Select Case _ModifyProductsParameters.PriceMode
+                    Case ePriceMode.eDEVToHUF
+                        _Products.ListPriceOutHUF = _Products.ListPriceOutDEV * _ModifyProductsParameters.CurrencyRate
+                    Case (ePriceMode.eHUFToDEV)
+                        _Products.ListPriceOutDEV = _Products.ListPriceOutHUF / _ModifyProductsParameters.CurrencyRate
+                End Select
+            End If
+            If _ModifyProductsParameters.IsProducer Then 'Gyártó
+                _Products.Producer = _ocur.GetObjectByKey(Of Customers)(_ModifyProductsParameters.Producer.Oid)
+            End If
+
+            If _ModifyProductsParameters.IsDecimalIn Then _Products.DecimalIn = _ModifyProductsParameters.DecimalIn
+            If _ModifyProductsParameters.IsDecimalOut Then _Products.DecimalOut = _ModifyProductsParameters.DecimalOut
+
+            _Products.Save()
+        Next
+        _ocur.CommitChanges()
+        RaiseEvent FinalWork
+    End Sub
+    Private Sub aPrintSelectedProductsBarcode_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintSelectedProductsBarcode.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Name=?", "Termékek - etikett"))
+            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 _Products As Products In View.SelectedObjects
+                _OidArray.Add(_Products.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
+    Private Sub aViewStorageMoveInfo_Products_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewStorageMoveInfo_Products.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _Products As Products = TryCast(View.SelectedObjects(0), Products)
+        Dim _StorageMoveInfo As StorageMoveInfo
+        If _Products IsNot Nothing Then
+            _StorageMoveInfo = _onew.CreateObject(Of StorageMoveInfo)()
+            _StorageMoveInfo.Products = _onew.GetObject(_Products)
+            e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "StorageMoveInfo_DetailView", False, _StorageMoveInfo)
+        End If
+    End Sub
+    Private Sub aProductsBarcodeGenerator_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aProductsBarcodeGenerator.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
+            Dim _Products_Collection As New XPCollection(Of Products)(_uow, CriteriaOperator.Parse("IsNull(Barcode)=False AND Barcode!=''"))
+            _Products_Collection.Sorting.Add(New SortProperty("Barcode", DB.SortingDirection.Descending))
+
+            RaiseEvent InitWork(0, 1, View.SelectedObjects.Count)
+
+            Dim _StartIndex As Double
+            If _Products_Collection.Count = 0 Then
+                _StartIndex = 400000100001
+            Else
+                _StartIndex = Convert.ToDouble(Mid(_Products_Collection(0).Barcode, 1, 12)) + 1
+            End If
+
+            For Each _Products As Products In View.SelectedObjects
+                RaiseEvent DoWork()
+                If _Products.Barcode Is Nothing Then
+                    _Products.Barcode = EAN13Generator((_StartIndex).ToString)
+                    _StartIndex += 1
+                End If
+            Next
+            _uow.CommitChanges()
+            RaiseEvent FinalWork
+        Catch ex As Exception
+
+        End Try
+    End Sub
+    Function EAN13Generator(ByVal _Base As String) As String
+        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
+
+    Private Sub aProductsDocumentations_ChangeGroup_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aProductsDocumentations_ChangeGroup.CustomizePopupWindowParams
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = _onew.CreateObject(Of ChangeFileAttachment_PopUp)()
+            e.View = Application.CreateDetailView(_onew, "ChangeFileAttachment_PopUp_DetailView", True, _ChangeFileAttachment_PopUp)
+            e.View.Tag = e.Action.Id
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Hiba")
+        End Try
+    End Sub
+    Private Sub aProductsDocumentations_ChangeGroup_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aProductsDocumentations_ChangeGroup.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ChangeFileAttachment_PopUp)
+            For Each _ProductsDocumentations As ProductsDocumentations In View.SelectedObjects
+                If _ChangeFileAttachment_PopUp.ChangeStatus = True Then
+                    _ProductsDocumentations.Status = _ChangeFileAttachment_PopUp.Status
+                End If
+                If _ChangeFileAttachment_PopUp.ChangeRowGroup1 = True Then
+                    _ProductsDocumentations.RowGroup1 = _ChangeFileAttachment_PopUp.RowGroup1
+                End If
+                If _ChangeFileAttachment_PopUp.ChangeRowGroup2 = True Then
+                    _ProductsDocumentations.RowGroup2 = _ChangeFileAttachment_PopUp.RowGroup2
+                End If
+            Next
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Hiba")
+        End Try
+    End Sub
+
+    Private Sub aProductsDocumentations_Remove_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsDocumentations_Remove.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _ListView As ListView = TryCast(View, ListView)
+            Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
+
+            Dim _Products As Products = TryCast(_PropertyCollectionSource.MasterObject, Products)
+
+            For Each _ProductsDocumentations As ProductsDocumentations In e.SelectedObjects
+                If _Products IsNot Nothing Then
+                    _Products.ProductsDocumentations.Remove(_ProductsDocumentations)
+                End If
+            Next
+            _ocur.CommitChanges()
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+    Private Sub aProducts_Open_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProducts_Open.Execute
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _Products As Products = _onew.GetObject(TryCast(View.SelectedObjects(0), Products))
+            If _Products Is Nothing Then Throw New Exception("*Nem lehet azonosítani a terméket!")
+
+            e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Products_DetailView", True, _Products)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+
+    Private Sub Products_ListView_DeleteAction_Executing(sender As Object, e As CancelEventArgs)
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _Products As Products
+        'For Each _Products In View.SelectedObjects
+        '    'For Each _Object In _ocur.Session.CollectReferencingObjects(_Products)
+        '    '    e.Cancel = True
+
+        '    '    '// Ide kell vaami model szöveg ...
+        '    'Next
+        'Next
+    End Sub
+    Private Sub aProducts_CreateBusinessDirectory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProducts_CreateBusinessDirectory.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        For Each _Products As Products In View.SelectedObjects
+            Dim _ProductsMasterBusinessDirectory As BusinessDirectory = Nothing
+            Dim _ProductGroupsMasterBusinessDirectory As BusinessDirectory = Nothing
+
+            If _Products.MasterBusinessDirectory Is Nothing Then
+
+                If _Products.ProductGroups IsNot Nothing Then
+                    If _Products.ProductGroups.MasterBusinessDirectory IsNot Nothing Then
+                        _ProductGroupsMasterBusinessDirectory = _Products.ProductGroups.MasterBusinessDirectory
+                    Else
+                        Dim _ProductsBaseBusinessDirectory As BusinessDirectory = _ocur.FindObject(Of BusinessDirectory)(CriteriaOperator.Parse("ShortName='Termékek' AND IsNull(BusinessDirectory_Parent)=True"))
+
+                        If _ProductsBaseBusinessDirectory Is Nothing Then
+                            _ProductsBaseBusinessDirectory = New BusinessDirectory(_ocur.Session)
+                            With _ProductsBaseBusinessDirectory
+                                .ShortName = "Termékek"
+                                .BusinessDirectory_Parent = Nothing
+                            End With
+                        End If
+                        _ProductGroupsMasterBusinessDirectory = New BusinessDirectory(_ocur.Session)
+                        With _ProductGroupsMasterBusinessDirectory
+                            .ShortName = _Products.ProductGroups.ShortName
+                            .BusinessDirectory_Parent = _ProductsBaseBusinessDirectory
+                        End With
+                        _Products.ProductGroups.MasterBusinessDirectory = _ProductGroupsMasterBusinessDirectory
+                    End If
+                    _ProductsMasterBusinessDirectory = New BusinessDirectory(_ocur.Session)
+                    With _ProductsMasterBusinessDirectory
+                        .ShortName = _Products.ShortName
+                        .BusinessDirectory_Parent = _ProductGroupsMasterBusinessDirectory
+                    End With
+                End If
+
+                _Products.MasterBusinessDirectory = _ProductsMasterBusinessDirectory
+
+            End If
+        Next
+        _ocur.CommitChanges()
+    End Sub
+
+    Private Sub aProducts_GenerateNotUsedList_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProducts_GenerateNotUsedList.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _Products_Collection As New XPCollection(Of Products)(_ocur.Session)
+
+        RaiseEvent InitWork(1, 1, _Products_Collection.Count)
+        For Each _Products As Products In _Products_Collection
+            If Not _Products.IsStoragEverUsed Then
+                Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_ocur.Session, CriteriaOperator.Parse("Products=?", _Products))
+                If _StorageInRows_Collection.Count > 0 Then
+                    _Products.IsStoragEverUsed = True
+                Else
+                    Dim _OrderInRows_Collection As New XPCollection(Of OrderInRows)(_ocur.Session, CriteriaOperator.Parse("Products=?", _Products))
+                    If _OrderInRows_Collection.Count > 0 Then
+                        _Products.IsStoragEverUsed = True
+                    Else
+                        Dim _OrderOutRows_Collection As New XPCollection(Of OrderOutRows)(_ocur.Session, CriteriaOperator.Parse("Products=?", _Products))
+                        If _OrderOutRows_Collection.Count > 0 Then
+                            _Products.IsStoragEverUsed = True
+                        Else
+                            _Products.IsStoragEverUsed = False
+                        End If
+                    End If
+                End If
+            End If
+            RaiseEvent DoWork()
+        Next
+
+        _ocur.CommitChanges()
+        RaiseEvent FinalWork
+    End Sub
+End Class